Реферат: Паралельний інтерфейс IEEE 1284 (інтерфейс Centronics)

d:= d xor (SELECTIN = (SELECTIN and Lpt. ReadPort (GetCurrentPort, 2)));

Pin17:= 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. Pin11: boolean;

var

d: boolean;

begin

d:= true;

d:= d xor (BUSY = (BUSY and Lpt. ReadPort (GetCurrentPort, 1)));

Pin11:= 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