This is a serial server to receive remote commands in a HP48.
Eval START to begin. You may use double backlash '\\' for certain special characters, for instance:

HP Arrow: \\->
Open UserRPL macro: \\<<

Remember to send a 0x00 byte to begin the command transmission. 
The HP48 is a very slow machine, so remember also to wait until it decodes and evaluates the serial buffer.

Author: Erwin Ried (http://erwin.ried.cl)

---------------

START:
<< CLLCD 0 'N' STO CLOSEIO CLLCD "READY" 1 DISP OPENIO REV >>

REV:
<< CLLCD BUFLEN DROP SRECV DROP DUP "" == IF THEN DROP ELSE RREP OBJ-> END REV >>

RREV:
<< BUFLEN DROP SRECV DROP DUP "" == IF THEN DROP ELSE RREP 1 CLLCD DISP END REV >>

RREP:
<< "" -> S Q << S 1 S SIZE START DUP NUM 255 - NEG 2 / CHR Q SWAP + 'Q' STO TAIL NEXT DROP Q >> >>

P:
<< BUFLEN DROP SRECV DROP >>

---------------

IOPAR:
{ 9600 0 0 0 3 3 }