A vueltas con las interrupciones

[sergioc_g]

Estoy empezando con el tema de las interrupciones y los PIC. El libro de donde estoy leyendo propone un ejemplo, con un circuito y un programa. Lo monto y lo programo, pero no consigo hacerlo funcionar. ¿Alguien me ayuda?.


El programa es el siguiente:

define Osc 4

TRISA = $00
TRISB = $00

I var byte

symbol LED1 = PORTA.0
SYMBOL LED2 = PORTA.1
SYMBOL INTEDG = OPTION_REG.6

ON INTERRUPT GOTO Int1

INTCON = %10010000
PORTA = $00
LED1 = 0
LED2 = 0
INTEDG = 0

Inicio:

led1 = 1
pause 500
led1 = 0
pause 500
goto inicio

Int1:

disable
for i = 1 to 6
led2 = 1
pause 200
led2 = 0
pause 200
next i

INTCON = %10010000
ENABLE
RESUME
END

[sergioc_g]

Vale ya me respondo yo mismo. El error estaba en la configuración del puerto B. Se configuró como salida y hay que configurarlo como entrada TRISB = $FF