A help with Write/Read a I2C memory

[mister_e]

Hi, something like the following will work.

        EEP1    con %10100000 ' First EEPROM A<2:0>=Gnd
        
        Addr    var word
        ByteA   var byte
        ByteB   var byte
        
        PAUSE 50
     
            addr=0
            BYTEA="A"
            byteb="B"
            I2CWRITE SDA,SCL,EEP1,ADDR,[bYTEA," TEXT1",BYTEB," TEXT2"]
            PAUSE 10
            
       FOR ADDR=0 TO 13
            I2Cread SDA,SCL,EEP1,ADDR,[bYTEA]     
            hserout [BYTEA]
            next
    
        @ GOTO $