Прочитать бит Ack (готовность принтера), ...и вывести (0/1) Опции

[Jill]

Сам ассемблерный код есть:

Код

mov dx,379h
in al,dx
and al, 01000000b
shr al, 6; {состояние 6 бита}

Как оформить это в паскале? Подскажите, плз

[Malice]

Как оформить это в паскале? Подскажите, плз

Вот так:

Код

function test:byte;assembler;
asm
mov dx,379h
in al,dx
and al, 01000000b
shr al, 6
end;

[Jill]

Спасибо конечно Но функцию я оформлю
Может, некорректно сформулировала вопрос.
Меня интересует то, КАК это вывести (типа writeln(состояние бита)).
...или сама функция выдает значение?

Сообщение отредактировано: Jill - 9.08.2006 14:59