User manual

mikroPascal PRO for PIC32
MikroElektronika
313
result := I2C2_Read(1); // Read the data (NO acknowledge)
I2C2_Stop();
end;
begin
CHECON := 0x30;
AD1PCFG := 0xFFFFFFFF;
LATB := 0; // Set PORTB value to zero
TRISB := 0; // Congure PORTB as output
TRISA := 0;
TRISD := 0;
LATD := 0;
LATF := 0;
TRISF := 0;
EEPROM_24C02_Init(); // performs I2C initialization
b := 0x00;
for i := 0x00 to 0x80 do
begin
EEPROM_24C02_WrSingle(i,b);
Inc(b);
Delay_ms(5); //max vrednost za upis u eeprom
end;
for i := 0x00 to 0x80 do
begin
LATD := i;
LATB := EEPROM_24C02_RdSingle(i);
Delay_ms(100);
end;
end.