Problem solved! Thank You All...
Now code works fine:

'--------- TX
@ __config _INTRC_OSC_NOCLKOUT & _WDT_OFF & _MCLRE_OFF & _CP_OFF

DEFINE OSC 4
OPTION_REG.7 = 1
TRISIO = 101001
CMCON = 7
ANSEL = 0
AL var byte
TX var gpio.4
al =0

main:
for al=0 to 200
SEROUT2 TX,813,["t","m","p",AL]
pause 100
next al
goto main

End

'--------- RX
DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 2
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 3
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
Define OSC 4
TRISB= 111111
ADCON1 = 7
OPTION_REG.7 = 1
RX var PORTB.5
B0 var byte

Main:
low rx
serIN2 RX,813,[WAIT("tmp"),B0]
Lcdout $fe, 1,"DEC= ", dec B0
LCDOUT $fe,$c0,"BIN= ", bin (b0)
GoTo Main

End

Best regards