ME Labs, Inc. | 1-719-520-5323 | Example Program - I2CEE625.pbp

' Name        : I2CEE625.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM or MPASM
' Target PIC  : PIC16CE62x or similar with internal I2C EEPROM
' Hardware    : Non specific
' Oscillator  : internal or external
' Keywords    : INTERNAL I2C, EEPROM, I2CREAD, I2CWRITE, SEROUT, STEP
' Description : PICBASIC PRO program to demonstate the I2CREAD and I2WRITE Commands.
' Writes to the first 16 locations of internal I2C EEPROM. Reads first 16 locations
' back and send to serial out repeatedly. Note: for PIC16CE62x MCU's.
'

Include "modedefs.bas"   ' Include serial modes

Define I2C_INTERNAL 1

SO   Con 0               ' Define serial output pin
DPIN Var EEINTF.1        ' Data line to internal EEPROM
CPIN Var EEINTF.2        ' Clock line to internal EEPROM
B0   Var byte
B1   Var byte
B2   Var byte

   For B0 = 0 To 15      ' Loop 16 times
     I2CWRITE DPIN,CPIN,$A0,B0,[B0]  ' Write each location's address to itself
     Pause 10            ' Delay 10ms after each write
   Next B0

mainloop:
   For B0 = 0 To 15 step 2  ' Loop 8 times
     I2CREAD DPIN,CPIN,$A0,B0,[B1,B2]  ' Read 2 locations in a row
     Serout SO,N2400,[#B1," ",#B2," "] ' Print 2 locations
   Next B0

   Serout SO,N2400,[10]     ' Print linefeed
   Goto mainloop
   
   End

           

Download the program file.