16-bit Real Mode в 2020

FLAT; -- build program id
SEGMENT
    *segments (dpl40), -- Give all user segments a DPL of 0.
    phantom code (dpl40), -- These two segments are created by
    phantom data (dpl40), -- the builder when the FLAT control is used.
    init code (base40ffffff80h); -- Put startup code at the reset vector area.
GATE
    g13 (entry413, dpl40, trap), -- trap gate disables interrupts
    i32 (entry432, dpl40, interrupt), -- interrupt gates doesn’t
TABLE
    -- create GDT
    GDT (LOCATION 4 GDT DESC, -- In a buffer starting at GDT DESC,
                -- BLD386 places the GDT base and
                -- GDT limit values. Buffer must be
                -- 6 bytes long. The base and limit
                -- values are places in this buffer
                -- as two bytes of limit plus
                -- four bytes of base in the format
                -- required for use by the LGDT
                -- instruction.
    ENTRY 4 (3: phantom code ,  -- Explicitly place segment
        4: phantom data ,       -- entries into the GDT.
        5:code32,
        6:data,
        7:init code)
);
TASK
MAIN TASK
(
    DPL 4 0, -- Task privilege level is 0.
    DATA 4 DATA,    -- Points to a segment that
            -- indicates initial DS value.
    CODE 4 main, -- Entry point is main, which
            -- must be a public id.
    STACKS 4 (DATA), -- Segment id points to stack
            -- segment. Sets the initial SS:ESP.
    NO INTENABLED, -- Disable interrupts.
    PRESENT -- Present bit in TSS set to 1.
);
MEMORY
    (RANGE 4 (EPROM 4 ROM(0ffff8000h..0ffffffffh),
    DRAM 4 RAM(0..0ffffh)),
    ALLOCATE 4 (EPROM 4 (MAIN TASK)));
END