this is my code i receive data but these are not the data i must receive
i receive wrong bytes
at the help of picbasic rcsta is90h
at he data sheet of 16f877a address of rcsta is 18h
i made it 18h i receive no data
please help me

[SIZE="5"]
INCLUDE "modedefs.bas"
PORTC=0
PORTB=0
PORTD=0
TRISC=%11111111
TRISB=%00000000
TRISD=%00000000
@ DEVICE pic16F877A
@ DEVICE pic16F877A , WDT_on
@ DEVICE pic16F877A , PWRT_ON
@ DEVICE pic16F877A , PROTECT_OFF
DEFINE OSC 4
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 9600
DEFINE HSER_SPBRG 25
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 1
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_RWREG PORTB
DEFINE LC_RWBIT 2
DEFINE LCD_BITS 4
DEFINE LCD_LINES 4

A1 VAR BYTE


RTAG
LCDOUT $FE,$80,"DIGITAL SIGN"
HSERIN 1000,JMP,[A1]
JMP
LCDOUT $FE,$C0,"TAGID=",hex2 A1
GOTO RTAG
/SIZE]