Systémová knihovna nr. 1 Pascal

unit sys;

interface

procedure cursoroff;
procedure cursoron;
procedure pause;


function Get_konvencni_mem:word;{musi byt 640kB jinak virus, pod w2k ne}
function Get_chybove_testy:word;{zapisnik pro chyb testy pri vyrobe na 0:0415h}
function Ctrl_break_pressed:boolean;{asi nefunguje !!!}
function Rebooting:boolean;
function Printing_screen:boolean; {asi ve win2k nejede}
function Fantom_floppy:boolean; {disketa a je i b}
procedure Verze_rom_biosu(var jak:string);

implementation


procedure cursoroff; assembler;asm mov AH,$01;mov CH,1;xor CL,cl;int 10h end;

procedure cursoron; assembler;asm mov AH,$01;mov CH,$06;mov CL,$07;int 10h end;

procedure pause; assembler;asm xor ah,ah;int 16h;end;



function Get_konvencni_mem:word;Assembler;
asm
xor dx,dx
mov es,dx
mov ax,[es:0413h]
end;

function Get_chybove_testy:word;assembler;r/>asm
xor dx,dx
mov es,dx
mov ax,[es:0415h]
end;

function Ctrl_break_pressed:boolean;assembler;
asm
xor dx,dx
mov es,dx
mov ah,[es:0471h]
end;

function Rebooting:boolean;assembler;
asm
xor dx,dx
mov es,dx
mov ax,[es:0472h]
cmp ax,1234h
jz @ok
xor ax,ax {rebooting = false ax = 0}
@ok:
end;

function Printing_screen:boolean;assembler;
asm
xor dx,dx
mov es,dx
mov ah,[es:0500h]
cmp ah,1
jz @oki
xor ax,ax
@oki:

end;

function Fantom_floppy:boolean;assembler;
asm
xor dx,dx
mov es,dx
mov ah,[es:0504h]
cmp ah,1
jz @ok
xor ax,ax
@ok:
end;

procedure Verze_rom_biosu(var jak:string);assembler;
asm
mov dx,0f000h
mov es,dx
mov cx,8
mov [ds:di],cl {retezec ma delku 8 "14/08/2002"}
mov bx,0fff5h

@tu:
mov ax,[es:bx]
mov [ds:di+1],ax
inc di
inc bx
loop @tu
end;
end.

Komentáře (0)