Interrupção usart Picbasic

Boa noite caros colegas de lista, estou tentando gerar uma interrupção na usart do pic 16f628 quando recebo dados pela serial do computador mas não esto conseguindo acertar em basic, em C ta tudo ok agora estou testando em basic. Aos colegas que usam basic (picbasic) podem dar uma orientada.
Obrigado.
DEFINE OSC 4
flag_angulo var byte
angulo var byte
calculo var word
flag_angulo=1
DEFINE HSER_BAUD 9600
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
DEFINE HSER_CLROERR 1
INTCON.6 = 1
INTCON.7 = 1
PIE1.4 = 0
PIE1.5 = 1
ON INTERRUPT GOTO interrupcao
ENABLE INTERRUPT
inicio:
angulo=40
while flag_angulo=1
pulsout portb.6,((45+angulo)/9)*10
pause 20
wend
GoTo inicio
DISABLE INTERRUPT
interrupcao:
high portb.3
resume
enable INTERRUPT
Obrigado.
DEFINE OSC 4
flag_angulo var byte
angulo var byte
calculo var word
flag_angulo=1
DEFINE HSER_BAUD 9600
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
DEFINE HSER_CLROERR 1
INTCON.6 = 1
INTCON.7 = 1
PIE1.4 = 0
PIE1.5 = 1
ON INTERRUPT GOTO interrupcao
ENABLE INTERRUPT
inicio:
angulo=40
while flag_angulo=1
pulsout portb.6,((45+angulo)/9)*10
pause 20
wend
GoTo inicio
DISABLE INTERRUPT
interrupcao:
high portb.3
resume
enable INTERRUPT