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

end;

function TForm1. Pin1: boolean;

var

d: boolean;

begin

d:= true;

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

Pin1:= d;

end;

function TForm1. Pin14: boolean;

var

d: boolean;

begin

d:= true;

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

Pin14:= d;

end;

function TForm1. Pin16: boolean;

var

d: boolean;

begin

d:= true;

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

Pin16:= d;

end;

function TForm1. Pin17: boolean;

var

d: boolean;

begin