list p=12F675 radix hex include "P12F675.INC" __config _CP_OFF & _WDT_OFF & _BODEN_ON & _PWRTE_ON & _INTRC_OSC_NOCLKOUT & _MCLRE_OFF & _CPD_OFF errorlevel -302 Wtemp equ 20 Statustemp equ 21 org 0 GOTO MAIN org 4 GOTO Button_ISR MAIN call initialize LOOP goto LOOP initialize call 0x3FF bsf STATUS, RP0 movwf OSCCAL movlw b'11101011' movwf TRISIO clrf ANSEL bsf IOC,3 CLRWDT bcf STATUS, RP0 movlw 7 movwf CMCON clrf GPIO bcf INTCON,0 bsf INTCON,7 bsf INTCON,3 return Button_ISR movwf Wtemp swapf STATUS, W movwf Statustemp movlw b'00010000' xorwf GPIO,F bcf INTCON,0 swapf Statustemp, w movwf STATUS swapf Wtemp,f swapf Wtemp,w retfie END