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;