Problem runing my code

[Mus.me]

THANK YOU ARATTI,Acetronics FOR HELPING ME, I DID THIS IT WORKS GREAT NOW IM PULLING SOME HAIR TO WAKE THE PIC FROM SLEEP WHEN I SEND DATA BUT STILL NOT WORKING YET HERE S MY CODE

@ DEVICE WDT_OFF, PWRT_OFF,MCLR_ON,CPD_OFF, BOD_OFF, PROTECT_OFF,INTRC_OSC_NOCLKOUT
      Include "modedefs.bas"
DEFINE OSC 4
DEFINE HSER_RCSTA 90H
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 2400
DEFINE HSER_SPBRG 25
DEFINE HSER_EVEN 1
DEFINE HSER_ODD 1
'DEFINE HSER_TIMEOUT 1 ' Clear overflow automatically  

PORTA = %00000
PORTB = %00000000
TRISA = %00000
TRISB = %00000000
intcon = 0		
vrcon = 0
CMCON = 7	     

SDO  Var PortB.4
SCLK Var PortB.5
BTM  Var PortB.6
BTN VAR PORTB.7
SEG var byte 
Digit var byte[4] 
index var byte 
B0 var word
D0 var byte 
MN VAR WORD
HR VAR word
j var byte

b0 = 0
loop:
j = j + 1
if j = 200 then SLP
HSERIN 10,main,[DEC4 b0]
MAIN:

D0 = B0 DIG 0                    
READ D0,DIGIT[0]
D0 = B0 DIG 1
READ D0,DIGIT[1]
D0 = B0 DIG 2
READ D0,DIGIT[2]
D0 = B0 DIG 3
READ D0,DIGIT[3]

for index = 0 to 3
seg = digit [index]
SHIFTOUT SDO,SCLK,0,[SEG\8]
PORTA.0[index] = 1
PAUSEus 999
PORTA=0
NEXT INDEX
goto loop
SLP:
CLEAR
RCREG = 1
RCSTA .7=1
RCSTA.4=1
RCSTA.5 = 1
RCSTA.6=1
TXSTA.7=0
TXSTA.4=1
PIE1.5 = 1
PORTB= %00000001

OPTION_REG = %00000001 'F628 can use  4>7 pins to wake up sleep
INTCON.1 = 0
INTCON.4 = 1
@ SLEEP 
@ NOP  
HIGH PORTB.6
PAUSE 100
LOW PORTB.6
CLEAR
RETURN
END
data @0,3,159,37,13,153,73,65,31,1,9