SECUENCIA DEL AUTO-FANTASTICO

PRESENTADO POR: Wilmer Alejandro Sierra                            
                                Fabian Eduardo  García
correos:                    wilmer_5050@hotmail.com
                                fabigarcia.48@hotmail.com

SECUENCIA DEL AUTO-FANTÁSTICO

MATERIALES DEL CIRCUITO 

1. PROTOBOAR
2. PIC16F877A
3. CRISTAL CUARZO 20MHZ
4. UN LED
5. 2 CONDENSADORES DE 22 PICOS(CERAMICOS
6. UNA RESISTENCIA DE 10K Y  UNA DE 330 OHM
7. UN PULSADOR 

 CÓDIGO DEL PROGRAMA

LIST p=16F877A

INCLUDE <P16F877A.INC> ;LIBRERIA DEL PIC

__CONFIG _WDT_OFF&_PWRTE_ON&_XT_OSC&_LVP_OFF&_CP_OFF ; Configuración para el programador

ORG 0

N EQU 0x00

cont1 EQU 0x20

cont2 EQU 0x21

cont3 EQU 0X22

BCF STATUS,RP0 ;CONFIGURACION DEL BANCO 

BCF STATUS,RP1      

            movwf   PORTB

CLRF PORTB ; LIMPIAR BANCO B

BSF STATUS,RP0

            CLRF TRISB ;Puerto B como salida 

BCF STATUS,RP0 

programa

       BSF PORTB,4  ;ENCERDER PUERTO 4

BSF PORTB,3  ;ENCERDER PUERTO 

CALL Retardo  ;LLAMAR RETARDO

BCF PORTB,4  ;ENCERDER PUERTO 4

BCF PORTB,3  ;ENCERDER PUERTO 4

BSF PORTB,5

BSF PORTB,2 

CALL Retardo 

BCF PORTB,5

BCF PORTB,2

BSF PORTB,6

BSF PORTB,1 

CALL Retardo 

BCF PORTB,6

BCF PORTB,1 

  BSF PORTB,7

BSF PORTB,0 

CALL Retardo 

BCF PORTB,7

BCF PORTB,0

BSF PORTB,6

BSF PORTB,1 

CALL Retardo 

BCF PORTB,6

BCF PORTB,1

BSF PORTB,5

BSF PORTB,2 

CALL Retardo 

BCF PORTB,5

BCF PORTB,2

BSF PORTB,4

BSF PORTB,3 

CALL Retardo 

BCF PORTB,4

BCF PORTB,3

BSF PORTB,3

BSF PORTB, 4

CALL Retardo 

BCF PORTB,3

BCF PORTB,4 

        GOTO programa ;RETOTNA A PROGRAMA

Retardo                      ;CONFIGURACION DE RETARDO 

MOVLW N

MOVWF cont1

Rep1

MOVLW N

MOVWF cont2 

Rep2

DECFSZ cont2,1

GOTO Rep2 

DECFSZ cont1,1 

GOTO Rep1

RETURN 

END

ESPERO QUE LES SIRVA