Wireless 5-Position Switch Rev 0.01

CON
  _clkmode = xtal1 + pll16x
  _xinfreq = 5_000_000

  XB_Rx     = 5    ' XBee DOUT
  XB_Tx     = 6    ' XBee DIN
  XB_Baud   = 9600
  CR        = 13   ' Carriage Return value

OBJ
   XB    : "FullDuplexSerial"

Pub  Start
XB.start(XB_Rx, XB_Tx, 0, XB_Baud)       ' Initialize comms for XBee
waitcnt(clkfreq + cnt)
dira[0..4]~                              ' Pins 0-4 to input

 repeat
    if ina[0] == 0
      XB.Str(String("Down",13))
      XB.Tx(CR)
    if ina[1] == 0
      XB.Str(String("Left",13))
      XB.Tx(CR)
    if ina[2] == 0
      XB.Str(String("Center",13))
      XB.Tx(CR)
    if ina[3] == 0
      XB.Str(String("Right",13))
      XB.Tx(CR)
    if ina[4] == 0
      XB.Str(String("Up",13))
      XB.Tx(CR)
    waitcnt(clkfreq / 3  + cnt)