hace 20 años
que tal javier_repara:a ver si te sirve
;**************************************
;
; Matriz de LEDs
;
;**************************************
STATUS EQU 0X03
PORTA EQU 0X05
TRISA EQU 0X85
PORTB EQU 0X06
TRISB EQU 0X86
PC EQU 2
RA0 EQU 0
RA1 EQU 1
RP0 EQU 5
ORG 0CH
CONTCOL RES 1
CONT RES 1
CONTADOR1 RES 1 ;Direccion del contador1 p/retardo
CONTADOR2 RES 1 ;Direccion del contador2 p/retardo
CONTADOR3 RES 1 ;Direccion del contador3 p/retardo
INCRE RES 1
COLUMNA RES 1
TEMP RES 1
CONTAD RES 1
CONTAD1 RES 1
LETRA RES 1
ORG 0
;**************************************
;RUTINA DE CONFIGURACION DE PUERTOS
;**************************************
BSF STATUS,5
MOVLW B'00001'
MOVWF TRISA
MOVLW B'00000000'
MOVWF TRISB
BCF STATUS,5
CLRF PORTA
CLRF PORTB
INICIO
MOVLW "M"
CALL SLETRA
MOVLW "U"
CALL SLETRA
MOVLW "N"
CALL SLETRA
MOVLW "D"
CALL SLETRA
MOVLW "O"
CALL SLETRA
MOVLW "P"
CALL SLETRA
MOVLW "I"
CALL SLETRA
MOVLW "C"
CALL SLETRA
GOTO INICIO
SLETRA MOVWF LETRA
MOVLW .65
SUBWF LETRA,1
BCF STATUS,0
RLF LETRA,1
RLF LETRA,1
RLF LETRA,1
MOVLW .20
MOVWF CONTAD
MOVLW 0
MOVWF CONTAD1
CICLOL CALL SLETRA2
DECFSZ CONTAD1,1
GOTO CICLOL
DECFSZ CONTAD,1
GOTO CICLOL
RETURN
SLETRA2 MOVF LETRA,0
MOVWF CONTCOL
MOVLW 10H
MOVWF COLUMNA
MOVLW 5
MOVWF CONT
;*************************
CICLOLE
MOVF COLUMNA,0
MOVWF PORTB
;*************************
MOVLW 02H
MOVWF PORTA ; HABILITA EL LATCH DE LAS COLUMNAS
CLRF PORTA
;*************************
MOVF CONTCOL,0
CALL TABLA
INCF CONTCOL,1
MOVWF PORTB
MOVLW 08H
MOVWF PORTA ; HABILITA EL LATCH DE LAS COLUMNAS
CLRF PORTA
CALL RETARDO
MOVLW 7FH ; BORRA EL DATO
MOVWF PORTB ;
MOVLW 08H
MOVWF PORTA ; HABILITA EL LATCH DE LAS FILAS
CLRF PORTA
BCF STATUS,0
RRF COLUMNA,1
DECFSZ CONT,1
GOTO CICLOLE
;*************************
RETURN
TABLA ADDWF PC,1
RETLW 40H ;A
RETLW 37H
RETLW 37H
RETLW 37H
RETLW 40H ;
NOP
NOP
NOP
RETLW 00H ;B
RETLW 36H
RETLW 36H
RETLW 36H
RETLW 49H ;
NOP
NOP
NOP
RETLW 41H ;C
RETLW 3EH
RETLW 3EH
RETLW 3EH
RETLW 5DH ;
NOP
NOP
NOP
RETLW 00H ;D
RETLW 3EH
RETLW 3EH
RETLW 3EH
RETLW 41H ;
NOP
NOP
NOP
RETLW 00H ;E
RETLW 36H
RETLW 36H
RETLW 36H
RETLW 3EH ;
NOP
NOP
NOP
RETLW 00H ;F
RETLW 76H
RETLW 76H
RETLW 76H
RETLW 7EH ;
NOP
NOP
NOP
RETLW 41H ;G
RETLW 3EH
RETLW 36H
RETLW 36H
RETLW 4DH ;
NOP
NOP
NOP
RETLW 00H ;H
RETLW 77H
RETLW 77H
RETLW 77H
RETLW 00H ;
NOP
NOP
NOP
RETLW 7FH ;I
RETLW 3EH
RETLW 00H
RETLW 3EH
RETLW 7FH ;
NOP
NOP
NOP
RETLW 5FH ;J
RETLW 3EH
RETLW 40H
RETLW 7EH
RETLW 7FH ;
NOP
NOP
NOP
RETLW 00H ;K
RETLW 7FH
RETLW 6BH
RETLW 5DH
RETLW 3EH ;
NOP
NOP
NOP
RETLW 00H ;L
RETLW 3FH
RETLW 3FH
RETLW 3FH
RETLW 3FH ;
NOP
NOP
NOP
RETLW 00H ;M
RETLW 7DH
RETLW 7EH
RETLW 7DH
RETLW 00H ;
NOP
NOP
NOP
RETLW 00H ;N
RETLW 79H
RETLW 77H
RETLW 4FH
RETLW 00H ;
NOP
NOP
NOP
RETLW 41H ;O
RETLW 3EH
RETLW 3EH
RETLW 3EH
RETLW 41H ;
NOP
NOP
NOP
RETLW 40H ;P
RETLW 3BH
RETLW 3BH
RETLW 3BH
RETLW 47H ;
NOP
NOP
NOP
RETLW 41H ;Q
RETLW 3EH
RETLW 2EH
RETLW 1EH
RETLW 41H ;
NOP
NOP
NOP
RETLW 00H ;R
RETLW 37H
RETLW 33H
RETLW 35H
RETLW 4EH ;
NOP
NOP
NOP
RETLW 4DH ;S
RETLW 36H
RETLW 36H
RETLW 36H
RETLW 59H ;
NOP
NOP
NOP
RETLW 7EH ;T
RETLW 7EH
RETLW 00H
RETLW 7EH
RETLW 7EH ;
NOP
NOP
NOP
RETLW 01H ;U
RETLW 7EH
RETLW 7EH
RETLW 7EH
RETLW 01H ;
NOP
NOP
NOP
RETLW 60H ;V
RETLW 5FH
RETLW 3FH
RETLW 5FH
RETLW 60H ;
NOP
NOP
NOP
RETLW 00H ;W
RETLW 5FH
RETLW 6FH
RETLW 5FH
RETLW 00H ;
NOP
NOP
NOP
RETLW 1CH ;X
RETLW 6BH
RETLW 77H
RETLW 6BH
RETLW 1CH ;
NOP
NOP
NOP
RETLW 7CH ;Y
RETLW 7BH
RETLW 07H
RETLW 7BH
RETLW 7CH ;
NOP
NOP
NOP
RETLW 1EH ;Z
RETLW 2EH
RETLW 36H
RETLW 3AH
RETLW 3CH ;
NOP
NOP
NOP
CIEN MOVLW .100
MOVWF CONTAD
CLRF CONTAD1
UNSEG3 NOP
DECFSZ CONTAD1,1
GOTO UNSEG3
DECFSZ CONTAD,1
GOTO UNSEG3
RETURN
RETARDO MOVLW .1 ;Carga w con 05 para retardo
MOVWF CONTADOR1 ;El contador1 secarga con 05
LOOP3 MOVWF CONTADOR2 ;El contador2 secarga con 05
LOOP2 MOVWF CONTADOR3 ;El contador3 secarga con 05
LOOP1 DECFSZ CONTADOR3,f ;Decrementa el contador3
GOTO LOOP1 ;Salta hacia contador3
DECFSZ CONTADOR2,f ;Decrementa contador2
GOTO LOOP2 ;Repite el decremento de contador3
DECFSZ CONTADOR1,f ;Decrementa contador1
GOTO LOOP3 ;Repite decrementi de contador2y3
RETURN ;Regresa al programa principal
END
¿Realmente quieres cerrar esta reparación?
Sí
No
¿Realmente quieres reabrir esta reparación?
Sí
No
¿Realmente quieres borrar este post?
Sí
No