introdiccion

OEA
Secuencia de LED con microcontrolador PIC 16F84A


ALISSON PINZÓN SEGURA - DANIELA JIMENEZ QUINTERO.
13/09/2013

LUIS ENRIQUE HERNANDEZ.





**** Encabezado ****
list p=16F84A#include P16F84A.inc
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC

;**** Definicion de variables ****
Contador1 equ 0x0C ; Seleccionamos posicionoria RAM (GPR) para guardar
Contador2 equ 0x0D; Registro utilizado en demora.-
Led equ 0 ; Definimos Led como el bit cero de un registro,caso PORTB.-
Pulsador equ 0 ; Definimos Pulsador como el bit 0, en so sera para PORTA

;****Configuracion de puertos ***
Reset org 0x00 ; Aqui comienza el micro.-
goto Inicio ; Salto a inicio de mi programa.-
org 0x05 ; Origen del codigo de programa.-
Inicio bsf STATUS,RP0 ; Pasamos de Banco 0 aBanco 1.-
movlw b'11111' ; Muevo 11111 a W.-
movwf TRISA ; Cargo en TRISA.-
movlw b'00000000'
movwf TRISB
bcf STATUS,RP0 ; Paso del Banco 1 al Banco 0
bcf PORTB,Led ; Comienza apagado.-

;****Secuencia de Led ****
Bucle btfsc PORTA,Pulsador ; Preguntamos si esta en 0 logico.-
bcf PORTB,Led ; Apagamos Led

movlw b'00000001'
movwf PORTB
call Demora_150ms ; Mantenemos prendido 150milisegundos
movlw b'00000011'
movwf PORTB
call Demora_150ms ; Mantenemos prendido 150 milisegundos
movlw b'00000111'
movwf PORTB
call Demora_150ms ; Mantenemos prendido 150 milisegundos
movlwb'00001111'
movwf PORTB
call Demora_150ms ; Mantenemos prendido 150 milisegundos
movlw b'00011111'
movwf PORTB
call Demora_150ms ; Mantenemos prendido 150 milisegundos
movlw b'00111111'
movwfPORTB
call Demora_150ms ; Mantenemos prendido 150 milisegundos
movlw b'01111111'
movwf PORTB
call Demora_150ms ; Mantenemos prendido 150 milisegundos
movlw b'11111111'
movwf PORTB
callDemora_150ms ; Mantenemos prendido 150 milisegundos

; *********aqui puede copiar y pegar la secuencia de Led que quiera programar
;********* con el mismo formato del codigo de las lineas anteriores...