Mira LMARTE si te sirve esta secuencia escrita en picbasic para la comunicacion serial:
include "modedefs.bas"
dato var byte
inicio:
serin porta.0, n2400,dato
serout porta.1,n2400,[dato]
if dato=...... then continua
goto inicio
continua:
.........
........
Espero te sirva de algo. Hasta pronto
Picnick.