Биты в LPT порту

[Vanta11a]

А в пупок не подуть?

Вы в автосервис так же приходите? "У меня в машине не работает, посмотрите её!" - и, насвистывая, идете хлебать пивасик?

Что делаете для получения битов состояния, какими функциями и что на входе/выходе?

[Fransuz_F]

Для битов состояния я делаю следующее:

function TForm1.Pin11 : boolean ;
 Var
 d : boolean;
 begin
     d := true;
     d := d xor(BUSY = (BUSY and Lpt.ReadPort(GetCurrentPort,1))) ;
     Pin11 := d;
 end;

  function TForm1.Pin10 : boolean ;
 Var
 d : boolean;
 begin
     d := true;
     d := d and(ACK  = (ACK  and Lpt.ReadPort(GetCurrentPort,1))) ;
     Pin10 := d;
 end;

 function TForm1.Pin12 : boolean ;
 Var
 d : boolean;
 begin
     d := true;
     d := d and(PAPEREND  = (PAPEREND  and Lpt.ReadPort(GetCurrentPort,1))) ;
     Pin12 := d;
 end;

 function TForm1.Pin13 : boolean ;
 Var
 d : boolean;
 begin
     d := true;
     d := d and(SELECT = (SELECT  and Lpt.ReadPort(GetCurrentPort,1))) ;
     Pin13 := d;
 end;

 function TForm1.Pin15 : boolean ;
 Var
 d : boolean;
 begin
     d := true;
     d := d and(ERROR  = (ERROR  and Lpt.ReadPort(GetCurrentPort,1))) ;
     Pin15 := d;
 end;

[Vanta11a]

И что Вы этим хотите сказать?

Вот прямо словами, по каждой из строчек, что она делает, по вашему мнению, и как?

Или снова тупо замена переменных на свои не вникая?