Controlling your World the Easy Way

Code: Select all

'* Only suitable for EEPROM chips with one byte address *
'The 24LC08 has 4 pages of 255 bytes each. 
'The example will write to the first 10 memory 
'locations of all 4 pages then
'read back and print to the terminal window. 
'Each page is accessed with A0,A1 and A2 internally. So
'the control bits change for each page.

I2CINIT(400000) ' Set Max clock speed to 400kHz
I2CTIME(1)
CLRSCR
PRINT "Writing......"
FOR i=0 TO 9
    I2CWR(0xa0,i,CHR$(i),1) ' Page1
    REPEAT
    UNTIL I2CBUSY(0xa0)=0
    I2CWR(0xa2,i,CHR$(i),1) ' Page2
    REPEAT
    UNTIL I2CBUSY(0xa2)=0
    I2CWR(0xa4,i,CHR$(i),1) ' Page3
    REPEAT
    UNTIL I2CBUSY(0xa4)=0
    I2CWR(0xa6,i,CHR$(i),1) ' Page4
    REPEAT
    UNTIL I2CBUSY(0xa6)=0
NEXT i
'DELAY 8000
CLRSCR
PRINT "Reading......."
FOR i = 0 TO 9
    a$=I2CRD$(0xa0, i, 1)
    PRINT ASCII(a$,1),"  ";
NEXT i
PRINT " PAGE 1 : b10100000 = 0xa0"
FOR i = 0 TO 9
    a$=I2CRD$(0xa2, i, 1)
    PRINT ASCII(a$,1),"  ";
NEXT i
PRINT " PAGE 2 : b10100010 = 0xa2 "
FOR i = 0 TO 9
    a$=I2CRD$(0xa4, i, 1)
    PRINT ASCII(a$,1),"  ";
NEXT i
PRINT " PAGE 3 : b10100100 = 0xa4"
FOR i = 0 TO 9
    a$=I2CRD$(0xa6, i, 1)
    PRINT ASCII(a$,1),"  ";
NEXT i
PRINT " PAGE 4 : b10100110 = 0xa6"
END

Code: Select all

' Parameter save/restore  to EEPROM, procedure for 24LC256 and 24LC512
' ====================================================================
' Conversion of a parameter with signed integer -9,999,999 to +9,999,999
' Parameterarea is  saved to EEPROM with a sign + 7 decimal ASCII string
'
' Set up......
DIM myarea(35)=1,9999999,3,-9999999,325205,6,7,8,9,10,-11,-12,-13,-14,-15,-16,-17,-18,-19,-20,-21,-22,-23,-24,-25,26,27,28,29,30,31,32,33,34,35 ' area....
I2CINIT(400000)                    'EEPROM clock 400Khz
I2CTIME(50)
'
' Convert the parameter to a string  and write to EEPROM
FOR Index = 1 TO 35
    MyPar=myarea(Index)            ' get parameter
    SSign$=II$(MyPar <0,"-","+")   ' check sign
    numstring$=STR$(ABS(MyPar))    ' convert parameter to a string
    mystring$="0000000"+numstring$ ' add leeding zeros
    mystring$=RIGHT$(mystring$,7)  ' adjust to a 7 characters string
    mystring$=SSign$+ mystring$    ' add sign
    '
    ' Now send the string to EEPROM (under...test)
    I2CWR16((0xa0),(Index*8),mystring$,8)
        REPEAT
        UNTIL I2CBUSY(0xa0)=0
    WAIT (20)
NEXT Index
'
WAIT (100) ' Write is done. Now read/convert and Print it
'
' Read EEPROM, convert and print
FOR Index = 1 TO 35
        mystring$=""
        mystring$=I2CRD16$((0xa0),(Index*8),8)
            REPEAT
            UNTIL I2CBUSY(0xa0)=0
        myarea(Index)=VAL(mystring$)
        PRINT Index," ",TAB(15), myarea(Index),TAB(30), " ",mystring$,TAB(50)
    WAIT(20)
NEXT Index
END