just a add on to be sure. If you want to test a specific character, the slave can be something like this.

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,[1]
     Serout portB.0,0,["I've receive 1.. yeah!!!"] 

     goto loop
OR

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
     if DataRec = 1 then
          Serout portB.0,0,["I've receive 1.. yeah!!!"] 
     else
          Serout portB.0,0,["Bad :-("]
     endif
     goto loop