1
{This example demonstrates the use of the segment_to_descriptor()
4
It switches to VGA mode 13h (320x200x256 color), creates a selector
5
to the memory (based at $A000:0000), clears this memory with color
6
15 (white) and waits until the enter key is pressed }
16
r.eax := $13; realintr($10, r);
17
{ allocate descriptor to VGA memory quickly; it could be done
18
with allocate_ldt_descriptors() too, but we would have to
19
initialize it by ourselves... unlike segment_to_descriptor()
20
which automatically sets the limit and the base address
22
vgasel := segment_to_descriptor($A000);
23
{ simply fill the screen memory with color 15 }
24
seg_fillchar(vgasel, 0, 64000, #15);
25
{ wait for a return press }
28
r.eax := $3; realintr($10, r);
29
{ don't deallocate vgasel, that can't be done }
b'\\ No newline at end of file'