int_reloj
movwf saveW ;save context
swapf saveW, f
swapf status, w
movwf saveS
nop
nop
nop
;ISR_Code bcf _rp0
; clrf tmr0
; incf msec,f
; bsf timef,msf
; movf msec,w
; sublw .100 ; 100 msec?
; btfss _z
; goto pop
; clrf msec
; bsf timef,sf
; incf sec,f
; bsf _rp0
; bcf porta,3
; bcf _rp0
; btfss porta,3
; goto prendo_led
; goto apago_led
;prendo_led bsf porta,3 ; led on
; goto pop
;apago_led bcf porta,3 ; led off
; goto pop
pop
bcf _t0if ;clear timer overflow
swapf saveS, w
movwf status
swapf saveW, w
retfie