|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »rc850cont«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »rc850cont«
rc850cont;
type
cursor_mode = packed record
dummy1 : bit;
blink : boolean;
blinkrate : bit;
dummy2 : bit;
startc : 0..13;
dummy3 : 0..15;
endc : 0..13
end;
procedure writedisplay(a : integer; b : byte); external;
function readdisplay(a : integer) : byte; external;
procedure setcursorposition(r,c : byte); external;
procedure readcursorposition(var r,c : byte); external;
procedure blockdisplay; external;
procedure unblockdisplay; external;
procedure setcursormode(mode : cursor_mode); external;
procedure writechar(b : char); external;
procedure writenl; external;
procedure setattribute(a : byte); external;
procedure clearscreen; external;
. (* end rc850cont *)
▶EOF◀