Передача данных по lpt

function GetLPTByte(): char;
var
  ok, res: byte;
begin
// первый полубайт
  ok := $80;
  hLpt.WritePort( LPTPort, 0, $10 ); // готов принять
  while ( ok and $80 <> 0 ) and ( not cancel ) do begin
    ok := hLpt.ReadPort( LPTPort, 1 ); // ждем передачи
  end;
  res := ( ( ok xor $80 ) shr 3 ) and $F;
  hLpt.WritePort( LPTPort, 0, $8 ); // принял и обрабатываю
  ok := 0;
  while ( ok and $80 = 0 ) and ( not cancel ) do begin
    ok := hLpt.ReadPort( LPTPort, 1 ); // ждем готовности к приему
  end;
// второй полубайт
  ok := $80;
  hLpt.WritePort( LPTPort, 0, $10 ); // готов принять
  while ( ok and $80 <> 0 ) and ( not cancel ) do begin
    ok := hLpt.ReadPort( LPTPort, 1 ); // ждем передачи
  end;
  hLpt.WritePort( LPTPort, 0, $8 ); // принял и обрабатываю
  res := res + ( ok xor $80 ) shl 1;
  ok := 0;
  while ( ok and $80 = 0 ) and ( not cancel ) do begin
    ok := hLpt.ReadPort( LPTPort, 1 ); // ждем готовности к приему
  end;
// байт принят
  Result := char( res );
end;

procedure SendLPTByte( send: char );
var
  ok: byte;
begin
// первый полубайт
  ok := $80;
  while ( ok and $80 <> 0 ) and ( not cancel ) do begin
    ok := hLpt.ReadPort( LPTPort, 1 ); // ждем готовности к приему
  end;
  hLpt.WritePort( LPTPort, 0, byte( send ) and $F + $10 ); // передаем
  ok := 0;
  while ( ok and $40 = 0 ) and ( not cancel ) do begin
    ok := hLpt.ReadPort( LPTPort, 1 ); // ждем удачного приема
  end;
  hLpt.WritePort( LPTPort, 0, 0 );
// второй полубайт
  ok := $80;
  while ( ok and $80 <> 0 ) and ( not cancel ) do begin
    ok := hLpt.ReadPort( LPTPort, 1 ); // ждем готовности к приему
  end;
  hLpt.WritePort( LPTPort, 0, byte( send ) shr 4 + $10 ); // передаем
  ok := 0;
  while ( ok and $40 = 0 ) and ( not cancel ) do begin
    ok := hLpt.ReadPort( LPTPort, 1 ); // ждем удачного приема
  end;
  hLpt.WritePort( LPTPort, 0, 0 );
end;