BIOS

Programová podpora > CPU KITx > Prostředí Borland Pascal / RETOS > LIB > SYSTEM

Tato jednotka poskytuje pascalské funkce pro některé funkce BIOSu. Díky této jednotce není třeba orientovat se v assembleru, stačí najít vhodnou funkci této jednotky a tu zavolat s příslušnými parametry.

unit Bios;
interface
const
  cVerNo = $0101; { BCD format }
  cVer   = '01.01,17.03.2003';


procedure CrtSetMode(mode:byte);
procedure CrtSetCursMode(l1,l2:byte);
procedure CrtSetCursPos(pg,ln,cn:byte);
procedure CrtReadCurs(pg:byte;var ln,cn,l1,l2:byte);
procedure CrtSetPage(pg:byte);
procedure CrtRolUp(ct,at,y1,x1,y2,x2:byte);
procedure CrtRolDown(ct,at,y1,x1,y2,x2:byte);
procedure CrtReadCharAtr(pg:byte;var cr: char; var at:byte);
procedure CrtWriteCharAtr(pg:byte;cr:char;at:byte;ct:word);
procedure CrtWriteChar(pg:byte;cr:char;ct:word);
procedure CrtGetMode(var md,cn,ap:byte);
procedure CrtWriteTTY(cn: char);
procedure CrtWriteString(Pt: Pointer; L: Word; R: Byte; C: Byte; P: Byte; M: Byte);
procedure KbdReadChar(var z: char; var s: byte);
function  KbdGetStatus(var z: char; var s: byte): boolean;
function  KbdGetFlags: byte;
procedure PrnWriteChar(T: Word;C: Char; var Sts: Byte);
procedure PrnInit(T: Word; var Sts: Byte);
procedure PrnGetSts(T: Word; var Sts: Byte);
function  TmGetTimer(var T: Longint): Boolean;
procedure TmSetTimer(T: Longint);
function  TmGetTime(var Hour, Minute, Second, Sec100: Word): Boolean;
function  TmSetTime(Hour, Minute, Second, Sec100: Word): Boolean;
function  TmGetDate(var Year, Month, Day: Word): Boolean;
function  TmSetDate(Year, Month, Day: Word): Boolean;
procedure Cli; inline($fa { cli });
procedure Sti; inline($fb { sti });

implementation