regtype is the type identifier for a built-in enumerated type, which is part of the variant record type, which is used to store the x86 processor registers before and after calls to the built-in procedure intr.
The variant record layout is given below:
regtype = (byteregs, wordregs)
registers = record
case regtype of
byteregs : ( al, ah, afill1, afill2 : byte;
bl, bh, bfill1, bfill2 : byte;
cl, ch, cfill1, cfill2 : byte;
dl, dh, dfill1, dfill2 : byte;
);
wordregs : eax, ebx, ecx, edx, esi, edi, cflag : word;
end;
The simple program below clears the screen by using the built-in procedure intr to call the BIOS INT $10 interrupt.
program cls;
var
regs : registers;
begin
fill(regs, 0);
regs.eax := $0002;
intr($10, regs)
end.
Operating Systems: All
Standard Pascal: No