;******************************************************* LIST P=16F84A, R=DEC INCLUDE __CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC #define LED1 PORTA,0 count1 equ 0x30 count2 equ 0x31 count3 equ 0x32 org 0x00 ;goto INIT BSF STATUS,RP0 BCF PORTA,0 BCF STATUS,RP0 START BSF LED1 CALL PAUSE BCF LED1 CALL PAUSE GOTO START ;********************************** PAUSE ;RETURN movlw 0x06 movwf count3 r3 movlw 0xF0 movwf count1 r1 movlw 0xF0 movwf count2 r2 decfsz count2,f goto r2 decfsz count1,f goto r1 decfsz count3,f goto r3 RETURN ;******************************** END