read/write eeprom

[aratti]

How many bytes you need to tx?

This piece of code is not working properly, since the delay due to the instructions to be executed plus the pause will surely make you loose Tx data.

NEXTSTEP: 
    debugin[#b1,#b2]                         'Read input
    i2cwrite dapin,clpin,cont,addr,[b1,b2]   'Store in eeprom
    pause 10                                 'Wait between writes
    addr=addr+2                              'Next eeprom loc
    if b2 <> $FF then nextstep             'FF means end of data 

Think about to tx the whole packet in one go using array.

Replace pause 600 with For A0=1 to 120 :Pause 5:Next A0


Al.