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 count EQU 20 org 0 GOTO MAIN org 4 GOTO Timer_ISR MAIN call initialize LOOP goto LOOP initialize call 0x3FF bsf STATUS, RP0 movwf OSCCAL movlw b'11101011' movwf TRISIO clrf ANSEL CLRWDT movlw b'11010011' movwf OPTION_REG bcf STATUS, RP0 movlw 7 movwf CMCON clrf GPIO ; movlw b'10100000' ; movwf INTCON bcf INTCON,2 bsf INTCON,7 bsf INTCON,5 movlw 0xF4 movwf count clrf TMR0 return Timer_ISR bcf INTCON,2 decfsz count, f retfie movlw b'00010000' xorwf GPIO,F movlw 0xF4 movwf count retfie END