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 org 0 count equ 20 count2 equ 21 call initial LOOP call Blink call Delay goto LOOP initial call 3FF movwf OSCCAL bsf STATUS,RP0 movlw B'11101011' movwf TRISIO clrf ANSEL bcf STATUS,RP0 movlw 7 movwf CMCON clrf GPIO return Blink movlw B'00010000' xorwf GPIO,F return Delay movlw 0xFF movwf count movwf count2 Delayloop decfsz count,f goto Delayloop decfsz count2,f goto Delayloop return END