read/write eeprom

[mel4853]

At the end of PC download (Angel.bas) it puts out 255 on all

[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.

[mel4853]

I'm sending a varible amount of bytes, so far have lost none. The pause 600 is up where I read from eeprom. There's a pause 10 in interrupt routine to give time to write to eeprom. Everything works but doesn't seem to want to exit interrupt routine.

[aratti]

Everything works but doesn't seem to want to exit interrupt routine.

Because you have a problem with the timing in serial TX/RX.(as mentioned in post#14)

Use a timeout to exit from DEBUGIN because you get stack there.

Al.

[mel4853]

Shouldn't it exit when b2=$FF? I send a $FF at the end of all the data I want sent.
if b2 <> $FF then nextstep 'FF means end of data
That's the way I understand, but I've been wrong alot of times.(As my wife says) If not I'll sure put in a timeout. Thanks.

[mel4853]

Put in the timeout and works perfectly. Thanks to all that helped.

Mike