mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-07 20:35:58 +02:00
14 lines
269 B
ObjectPascal
14 lines
269 B
ObjectPascal
uses
|
|
go32;
|
|
|
|
var
|
|
vgasel : Word;
|
|
r : trealregs;
|
|
|
|
begin
|
|
r.eax := $13; realintr($10, r);
|
|
vgasel := segment_to_descriptor($A000);
|
|
seg_fillchar(vgasel, 0, 64000, #15);
|
|
readln;
|
|
r.eax := $3; realintr($10, r);
|
|
end. |