Hola:
Si no estoy mal ya conteste este post que pusiste en otro sub foro... pero bueno, es muy sencillo en PBP, solo asignas el valor del puerto directamente a auna variable y luego esa variable la envias serialmente.... algo asi:
dato var byte
TRISB=%11111111
loop:
dato=PORTB
SEROUT PORTA.1,T2400.[#dato]
pause 500
GOTO loop
END