LENGUAJE ASEMBLER SECUENCIADOR DE LUCES

;**************************************************************
;Programa jluzpic2.asm Fecha: 22 Diciembre 2005
;Secuenciador de 8 Canales y 16 efectos.
;
;Revisión: 0.0 Programa para PIC16F84A
;Velocidad de reloj: .........4 MHz Instrucción: ................................ 1Mz=1 us
;Perro Guardián: deshabilitado Tipo de Reloj: RC
;Basado en:
;cqpic.asm De Rueda Luis de:;http://perso.wanadoo.es/luis_ju/proyect/cqpic.html
;que a su vez viene de otro proyecto de Jaime Bosch, publicado
;en la edición nº 21 de la revista "Electrónica Práctica actual"
;en septiembre del 2000
;**************************************************************
LIST P=PIC16F84A ; Pic a usar

#INCLUDE ; Lista de etiquetas de microchip

; Fuses, configuran opciones externas dehardware para la programacion

__CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _RC_OSC

;=================== Mapa de Memoria ======================

;STATUS equ 0x03 ; Haciendo asignaciones
;TRISA equ 0x05
;TRISB equ 0x06
;PORTA equ 0x05
;PORTB equ 0x06



llaves equ 0x0C ; almacenara el STATUS de las llaves
PDel0 equ 0x0D ; variable para Demora
PDel1 equ 0x0E ; variable para Demora;============== Configuración de puertos ==================

ORG 0x0000
GOTO inicio
ORG 0x0005

inicio BSF STATUS,5 ; cambio al banco 1 del pic
MOVLW 0x1f
MOVWF TRISA ; Asigna al puerto A como entrada
MOVLW 0x00
MOVWF TRISB ; y Al puerto B como salida
BCF STATUS,5 ; Regresa al banco 0
CLRF PORTA ;limpia el puerto A
CLRF PORTB ; limpia el puerto B


swich MOVF PORTA,0 ; carga w con el puerto A
ANDLW 0x0F ; retiene los 4 bits de interes (las llaves)
MOVWF llaves ; y los guarda en llaves
XORLW 0x00 ; verifica si es el primer efecto
BTFSC STATUS,2 ; si es así
CALL efect1 ; lo llama y lo ejecuta
MOVF llaves,0 ; sino, cargallaves en w
XORLW 0x01 ; y verifica si es el segundo efecto
BTFSC STATUS,2 ; si es así
CALL efect2 ; lo llama y lo ejecuta
MOVF llaves,0 ; y así con los demás
XORLW 0x02 ; ya me aburrí
BTFSC STATUS,2 ; como verás el resto es lo mismo
CALL efect3
MOVF llaves,0
XORLW 0x03
BTFSC STATUS,2CALL efect4
MOVF llaves,0
XORLW 0x04
BTFSC STATUS,2
CALL efect5
MOVF llaves,0
XORLW 0x05
BTFSC STATUS,2
CALL efect6
MOVF llaves,0
XORLW 0x06
BTFSC STATUS,2
CALL efect7
MOVF llaves,0
XORLW 0x07
BTFSC STATUS,2
CALLefect8
MOVF llaves,0
XORLW 0x08
BTFSC STATUS,2
CALL efect9
MOVF llaves,0
XORLW 0x09
BTFSC STATUS,2
CALL efect10
MOVF llaves,0
XORLW 0x0A
BTFSC STATUS,2
CALL efect11
MOVF llaves,0
XORLW 0x0B
BTFSC STATUS,2
CALL efect12
MOVFllaves,0
XORLW 0x0C
BTFSC STATUS,2
CALL efect13
MOVF llaves,0
XORLW 0x0D
BTFSC STATUS,2
CALL efect14
MOVF llaves,0
XORLW 0x0E
BTFSC STATUS,2
CALL efect15
MOVF llaves,0
XORLW 0x0F
BTFSC STATUS,2
CALL efect16
GOTO swich ;Comienza a revisar de nuevo

;======================== Efectos =========================

efect1 CLRF PORTB ; limpia el puerto B
BSF PORTB,7 ; (10000000)
CALL Demora
BSF PORTB,6 ; (11000000)
CALL Demora
BSF PORTB,5 ; (11100000)
CALL Demora
BSF PORTB,4 ; (11110000)
CALL Demora
BSF...

Leer documento completo

Regístrate para leer el documento completo.