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); { маскируем неиспользуемые биты }
end;