Multiplexado

C:\16f628a\ledmultiplex\ledmultiplex.asm ;************************************************* ;Programa que muestra los números del 9 al 0 ;de manera descendente en una matriz de 5x7 ;leds mediantemultiplexación. Los ánodos (filas) ;están conectados al puerto B (RB0/RB6) mientras ;que los cátodos (columnas) al puerto A (RA0/RA4). ;La multiplexación se realiza recorriendo un cero ;por el puerto A ymostrando por el puerto B el ;valor de la columna deseada. ; ;Fecha: 05.01.08 Autor: Jorge A. Bojórquez ;http://micropic.wordpress.com ;************************************************* list include__config cblock w_temp s_temp p_temp num1 num2 num3 num4 num5 NUMERO d1 d2 d3 endc org goto org ISR movwf swapf movwf movfw movwf btfss goto bcf CHECKCOL 1 w_temp STATUS,W s_temp PCLATH p_temp ; ; ; ;; Guarda W Swap STATUS en W Guarda STATUS Mueve PCLATH a W Guarda PCLATH 0x20 p=16f628a p16f628a.inc 0x3f18

0x00 INICIO 0x04

PIR1,TMR2IF ; Checa si TMR2 interrumpio SAL_ISR ; No, sale de la ISRPIR1,TMR2IF ; Si, borra bandera de interrupcion

C:\16f628a\ledmultiplex\ledmultiplex.asm btfss goto btfss goto btfss goto btfss goto btfss goto UNO1 movlw movwf movf movwf movlw movwf goto UNO2movlw movwf movf movwf movlw movwf goto UNO3 movlw movwf movf movwf movlw movwf goto UNO4 movlw movwf movf movwf movlw movwf goto UNO5 movlw 0xFF ; 2 0xFF PORTA num4,w PORTB b'11110111' PORTA SAL_ISR ;; Apaga matriz ;load columns ; Enciende columna 4 0xFF PORTA num3,w PORTB b'11111011' PORTA SAL_ISR ; ; Apaga matriz ;load columns ; Enciende columna 3 0xFF PORTA num2,w PORTB b'11111101' PORTASAL_ISR ; ; Apaga matriz ;load columns ; Enciende columna 2 0xFF PORTA num1,w PORTB b'11111110' PORTA SAL_ISR ; ; Apaga matriz ;load columns ; Enciende columna 1 PORTA,4 UNO1 PORTA,0 UNO2 PORTA,1 UNO3PORTA,2 UNO4 PORTA,3 UNO5

C:\16f628a\ledmultiplex\ledmultiplex.asm movwf movf movwf movlw movwf goto SAL_ISR movfw movwf swapf movwf swapf swapf retfie INICIO movlw movwf bsf clrf clrf bcf clrf clrf...