CON

  _clkmode = xtal1 + pll16x
  _xinfreq = 5_000_000

Obj

  pst           : "FullDuplexSerial"
  modem         : "FullDuplexSerial"

Pub Main | rxByte, txByte

  Init

  repeat
    rxByte := modem.RxCheck
    case rxByte
      -1:
      other:
        pst.Tx(rxByte)

    txByte := pst.RxCheck
    case txByte
      -1:
      other:
        modem.Tx(txByte)



Pub Init

  pst.Start(31, 30, 0, 115_200)
  modem.Start(2, 3, %0000, 300)

  waitcnt((clkfreq / 100) + cnt)       'wait 10ms

  pst.Str(String("Propeller Modem Check Running!"))
  pst.Tx(13)
  pst.Tx(13)