Код
mov dx,379h
in al,dx
and al, 01000000b
shr al, 6; {состояние 6 бита}
in al,dx
and al, 01000000b
shr al, 6; {состояние 6 бита}
Как оформить это в паскале? Подскажите, плз
function _test: byte;
begin
_test := (Port[$379] and $40) shr 6;
end;
begin
if _test = 1 then writeln('set')
else writeln('not set');
end.