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

[Jill]

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

Код

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

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

[volvo]

Опять же непонятно, что именно у тебя не получается? Если тебе надо словесное описание, утановлен бит или сброшен, то вот так:

function _test: byte;
begin
  _test := (Port[$379] and $40) shr 6;
end;

begin
  if _test = 1 then writeln('set')
  else writeln('not set');
end.

Или тебя интересует логическая переменная? Тогда просто TypeCast...