	LIST	    p=16F84A
	__CONFIG    03FF1H
STATUS	equ	    03H
PORTA   equ	    05H
TRISA	equ	    05H   
Reg_1	equ	    10H
Reg_2	equ	    11H
Reg_3	equ	    2BH
reg_4	equ	    3EH	
	org 0
back	CLRF	    PORTA
	bsf	    STATUS,5
	movlw	    b'1000'
	movwf	    PORTA	
	bcf	    STATUS,5
	
	
restart	 CLRF	    PORTA
delayoff btfsc	    PORTA,3
	 goto	    ledon
	 goto	    restart
 
 ledon	    movlw       .85
            movwf       Reg_1
            movlw       .138
            movwf       Reg_2
            movlw       .3
            movwf       Reg_3
            decfsz      Reg_1,F
            goto        $-1
            decfsz      Reg_2,F
            goto        $-3
            decfsz      Reg_3,F
            goto        $-5
	    movlw	.1
	    movwf	PORTA
	     
	    
	    movlw       .110
            movwf       Reg_1
            movlw       .94
            movwf       Reg_2
            movlw       .26
            movwf       Reg_3
            decfsz      Reg_1,F
            goto        $-1
            decfsz      Reg_2,F
            goto        $-3
            decfsz      Reg_3,F
            goto        $-5
            goto	delayoff
	    
	    
          
	end

