But maybe you want to do a kinda serial backpack too...

Code:
' Serial LCD 2400 BAUD

SerData	VAR byte
SerPin 	VAR PORTB.0 	
TRISB.0=1
	
LCDOut $FE,1	'Clear LCD

Start:
     SERIN SerPin,0,SerData 'receive data
     LCDOut Serdata ' Send to LCD
     GOTO Start