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

Code:

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

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

Code:

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