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

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

Include "modedefs.bas" ' Include serial modes

Define I2C_INTERNAL 1

SO    Con 1        ' Define serial output pin
DPIN  Var GPIO.6   ' Data line to internal EEPROM
CPIN  Var GPIO.7   ' Clock line to internal EEPROM
B0    Var byte
B1    Var byte
B2    Var byte

   ADCON1 = 7       ' Set ADC pins to digital operation

   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.