{
Date: 7/97
Program to test I2C interface ON1BEW.
Toggles between high and low for one sec.
Adres printerport to be entered as lpt = 632.
lpt1 = 888
lpt2 = 632
lpt1 = 956 (Hercules card)
}
program pari2c;

uses hwi2c,dos,crt;

{LPT port definition}
const lpt = $278; {lpt2}

var SDA,SCL,power: boolean;

begin
 repeat
 powerchk(power);
 rsda;
 rscl;
 write('Power= ',power,' ');
 write('SDA= ',sda,' ');
 writeln('SCL= ',scl);
 delay(1000);
 if sda then sdal
 else sdah;
 if scl then scll
 else sclh;
 until keypressed;
end.

Terug