Скачать Проверка готовности принтера

04.11.1994
Скачать файл (582,00 Б)

function printerready:boolean;
var check:byte;
begin
Delay(10);
        asm
        push cx
        push es
        push dx
        push ax
        mov ax,40h
        mov es,ax
        mov dx,es:[8]
        inc dx
        in al,dx
        and al,80h
        mov cx,7
@loop1: shr al,1
        loop @loop1
        mov check,al
        pop ax
        pop dx
        pop es
        pop cx
    end;
printerready:=(check=1)
end;