Hello Mister-e,
Ok, then (if I understand correctly). Lets write a simple program to so such..
DEFINE CHAR_PACING 1000 '1 millisecond between characters.
Send Routine
ReadData var byte
For a = 0 to (length of EEPROM) step 1
Read ReadData
Serout PinX, ReadData, T300
Next a
'another kind of send routine useing FF for done with sending.
Send Routine
ReadData var byte
Counter var byte
Counter=0
ReadData=1
while ReadData!=FF
Read Counter, ReadData
Counter =Counter + 1
Serout PinX, ReadData, T300
Wend
Receive Routine
ReadData=1
Counter var byte
Counter=0
while ReadData != 255 'flag for end of transmission
Serin PinX, ReadData, T300
Write Counter, ReadData 'write data to EEPROM
Counter=Counter + 1 'next EEPROM place
Wend
Now to trigger these routines, its up to you... Maybe look for a pin toggle? Or use a special sequence... like
Serin Pinx, ReadData, ["XYZ"],DataRead
if DataRead="T" gosub Transmit_routine
if DataRead="R" gosub Receive_routine
goto where_ever you want to go for no good pin.
The transmit and Recieve code I wrote above has not been tested, but I would not be surprised if it is very close to the correct code you may be looking for.
Dwayne
Ability to Fly:
Hurling yourself towards the ground, and missing.
Engineers that Contribute to flying:
Both optimists and pessimists contribute to the society. The optimist invents the aeroplane, the pessimist the parachute
Pilots that are Flying:
Those who know their limitations, and respect the green side of the grass...
Bookmarks