User`s manual

mikroBASIC
- Basic Compiler for Microchip PIC microcontrollers
' Example of communication with 24c02 EEPROM
program BasicI2c
dim EE_adr as byte
dim EE_data as byte
dim jj as word
main:
I2C_init(100000)
' initialize full master mode
TRISD = 0 ' designate portd as output
PORTD = $ff ' initialize portd
I2C_start ' issue I2C start signal
I2C_wr($a2) ' send byte via I2C(command to 24cO2)
EE_adr = 2
I2C_wr(EE_adr)
' send byte(address for EEPROM)
EE_data = $aa
I2C_wr(EE_data) ' send data(data that will be written)
I2C_stop ' issue I2C stop sinal
for jj = 0 to 65500 ' pause while EEPROM writes data
nop
next i
I2C_start
' issue I2C start signal
I2C_wr($a2) ' send byte via I2C
EE_adr = 2
I2C_wr(EE_adr) ' send byte(address for EEPROM)
I2C_Repeated_Start ' issue I2Csignal repeated start
I2C_wr($a3) ' send byte(request data from EEPROM)
EE_data = I2C_rd(1) ' Read the data
I2C_stop ' issue I2C_stop signal
PORTD = EE_data ' show data on PORTD
noend: ' endless loop
goto noend
end.
MikroElektronika: Development tools - Books - Compilers
mikroBASIC
making it simple...
143
page