Close to be good. The only thing you have to add to the slave PIC, for safety sake, is the TRIS setting.

Code:
TRISA.0=1 ' set PORTA.0 as input
TRISB.0=0 ' set PORTB.0 as output

DataRec Var byte

loop: 
     Serin PortA.0,0,DataRec 
     Serout portB.0,0,[DataRec] 

     goto loop
it can also work without the TRIS setting since SERIN/SEROUT are *suppose* to set TRIS direction... what is to add 2 line to be sure ?!?

In the Master PIC...
serout Potrb.0,0,[1]
typo error PORTB.0

So if you monitor it at the end you'll send the ASCII 1.