
NUEVO BLOG YoReparo!
Nueva Base de Fallas - Videos!
Regístrate gratis para participar de los foros, o si ya estás registrado haz login.
| Jue Oct 06, 2005 4:54 pm | ||
|
|
||
| Vie Oct 07, 2005 4:48 am | ||
|
aca tenes unos circuitos para armar programadores de pic. un saludo http://www.yoreparo.com/foros/de_todo/soluciones/41295.html |
||
| Mar Oct 11, 2005 12:46 am | ||
|
;************************************** ; ; 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 saludos t_matriz_de_leds.jpg (14.99 KB) ![]() |
||
| Mie Oct 12, 2005 9:03 pm | ||
|
|
||
| Mie Oct 12, 2005 9:55 pm | ||
|
saludos |
||
| Sab Oct 15, 2005 5:46 am | ||
|
|
||