Как прочитать байт из параллельного порта

Первый способ:

Var
BytesRead : BYTE;
begin
asm \{ Читаем порт (LPT1) через встроенный ассемблер \}
MOV dx,$379;
IN al,dx;
MOV BytesRead,al;
end;
BytesRead:=(BytesRead OR $07); \{ OR а затем XOR данных \}
BytesRead:=(BytesRead XOR $80); \{ маскируем неиспользуемые биты \}

Второй способ :
Используем команды Turbo Pascal …

value:=port[$379]; \{ Прочитать из порта \}

and

port[$379]:=value; \{ Записать в порт \}