{{ Serial In/Out Demo }}

'  Receives bytes with SerialReceive-object and sends it back with
'  SerialTransmit-object.

CON

  _clkmode = xtal1 + pll16x
  _xinfreq = 5_000_000


OBJ
  in     :     "SerialReceive"                          
  out    :     "SerialTransmit"    
  
VAR


PUB Main | c

  'start the drivers
  in.start(31, 115200, 0)                               '115200 Baud (for PropTerminal)
  out.start(30, 115200, 0)
  out.str(string("Serial In/Out Demo...",13))

  'echo input to output
  repeat                                                'if you use PropTerminal -> try the mouse
    c :=  in.rx
    out.tx(c)