'
' Author: Thomas E. Wilson
'
'Here's a piece of code I've used to test serial connection and
'wiring. The stamp waits for any character, then sends back what
'it receives with some additional text:
'
'RS-232 Serial I/O Test -----------------------------------------

BAUDMODE        con         84 + $6000      '(Whatever mode you're using)
INPUT_PIN       con         0
OUTPUT_PIN      con         1
messageString   var         byte(1)
 
inputLoop:
        serin INPUT_PIN, BAUDMODE, 10000, timedOut, [STR messageString\1] 
        debug "> ", STR messageString, cr pause 1 serout OUTPUT_PIN,
        BAUDMODE, ["You sent: ",  STR messageString\1, cr]
goto inputLoop
 
timedOut:
        high IO_PIN
        pause 1
        serout OUTPUT_PIN, BAUDMODE, ["Timed out",  cr]
        low IO_PIN
goto inputLoop