Tx

loop:
serout2 portc.6,813,["A",byte1, byte0]
pause 100
goto loop


Rx
serin2 portb.1,813,[wait ("A"),byte1, byte0]


This works for us. It's slow but it works fine for us. All you should have to do is check the 813 to something faster.