program pascalI2c;
var EE_adr, EE_data : byte; jj : word;
begin
I2C_init(100000); TRISD := 0; PORTD := $ff; I2C_Start; I2C_Wr($a2); EE_adr := 2;
I2C_Wr(EE_adr); EE_data := $aa;
I2C_Wr(EE_data); I2C_Stop; for jj:=0 to 65500 do nop; I2C_Start; I2C_Wr($a2); EE_adr := 2; I2C_Wr(EE_adr); I2C_Repeated_Start; I2C_Wr($a3); k := I2C_rd(1); I2C_Stop; PORTD := k;
while true do nop;
end.