;       CONSIDERAZIONI SUI BANCHI DI REGISTRI E LE VARIABILI
;       
;	    di Walter Giocoso
;	    http://digilander.iol.it/wgiocoso
;
;       Rotazione di 3 led con ritardo di 1 secondo
;       per PIC16F876A
;---------------------------------------------------------------------------------------



        PROCESSOR   16F876A
	    __CONFIG    3FF1H
	    RADIX 	    DEC
	    INCLUDE     "P16F876A.INC"
	    ERRORLEVEL  -302
	
	
	
        ORG	        20H		            ;prima locazione registri per uso generico

Count			RES	2




        ORG         00H                 ;prima locazione area programma
		CALL        BANCO1
        
		MOVLW		00000000B
		MOVWF		TRISA
		MOVLW		00000110B
		MOVWF		ADCON1  			; CONFIGURO LE PORTE A COME DIGITALI

        CALL        BANCO0
MAIN
        CLRF        PORTA
        BSF         PORTA,  0
        CALL        DELAY
        CLRF        PORTA
        BSF         PORTA,  1
        CALL        DELAY
        CLRF        PORTA
        BSF         PORTA,  2
        CALL        DELAY
        
        GOTO        MAIN



DELAY
	clrf Count
	clrf Count+1
	
DelayLoop
	decfsz Count,1
	goto DelayLoop
	decfsz Count+1,1
	goto DelayLoop
	return



BANCO0        
        BCF         STATUS, RP1
        BCF         STATUS, RP0
        RETURN
        
BANCO1
        BCF         STATUS, RP1
        BSF         STATUS, RP0
        RETURN
                
        
        END
