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

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

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]; \{ Прочитать из порта \} 
  port[$379]:=value; \{ Записать в порт \}

Взято из https://forum.sources.ru