;**************************************************************************************************************************** ; MATRIZ 8x16 con scroll de mensaje para PIC 16F84A, reloj a 4Mhz, registro de desplazamiento 74HC164 ;**************************************************************************************************************************** __CONFIG _CP_OFF &_WDT_OFF &_PWRTE_ON &_XT_OSC LIST P=16F84A INCLUDE CBLOCK 0x0C count ;usado en rutinas de salto count1 ;used in delay routine counta ;used in delay routine countb ;used in delay routine tmp1 ;almacenamiento temporal tmp2 p_temp ;save register s_temp ;save register w_temp ;save register offsetL ;registros de la tabla offsetH ;registros de rutina transmisión bits a registro de desplazamiento EEPROM ALMACEN CONTADOR ;registros para matriz row_pos ;posicion en fila FILA1 ;almacenamiento 1 FILA2 ;almacenamiento 2 FILA3 ;almacenamiento 3 FILA4 ;almacenamiento 4 FILA5 ;almacenamiento 5 FILA6 ;almacenamiento 6 FILA7 ;almacenamiento 7 FILA8 ;almacenamiento 8 FILA9 FILA10 FILA11 FILA12 FILA13 FILA14 FILA15 FILA16 FILA19 ;almacenamiento 19 FILA22 ;almacenamiento 22 FILA33 ;almacenamiento 33 FILA44 ;almacenamiento 44 FILA55 ;almacenamiento 55 FILA66 ;almacenamiento 66 FILA77 ;almacenamiento 77 FILA88 ;almacenamiento 88 FILA90 FILA100 FILA110 FILA120 FILA130 FILA140 FILA150 FILA160 ENDC DO EQU 6 ;bit de control ORG 0x00 goto INICIO ;**************************************************************************************************************************** ; SERVICIO DE INTERRUPCION AL QUE SE ATIENDE CUANDO TMR0 SE DESBORDA ;**************************************************************************************************************************** ORG 0x04 ;vector de interupción INT movwf w_temp ;Salva registro W swapf STATUS,W ;Swap status con registro W movwf s_temp ;Salva registro STATUS movfw PCLATH movwf p_temp ;Salva PCLATH btfss row_pos,0 ;mira que fila ha sido la última goto Al_Dos btfss row_pos,1 ;mira que fila ha sido la última goto Al_Tres btfss row_pos,2 ;mira que fila ha sido la última goto Al_Cuatro btfss row_pos,3 ;mira que fila ha sido la última goto Al_Cinco btfss row_pos,4 ;mira que fila ha sido la última goto Al_Seis btfss row_pos,5 ;mira que fila ha sido la última goto Al_Siete btfss row_pos,6 ;mira que fila ha sido la última goto Al_Ocho btfss row_pos,7 ;mira que fila ha sido la última goto Al_Nueve btfss row_pos,8 ;mira que fila ha sido la última goto Al_Diez btfss row_pos,9 ;mira que fila ha sido la última goto Al_Once btfss row_pos,10 ;mira que fila ha sido la última goto Al_Doce btfss row_pos,11 ;mira que fila ha sido la última goto Al_Trece btfss row_pos,12 ;mira que fila ha sido la última goto Al_Catorce btfss row_pos,13 ;mira que fila ha sido la última goto Al_Quince btfss row_pos,14 ;mira que fila ha sido la última goto Al_Diezyseis btfss row_pos,15 ;mira que fila ha sido la última goto Al_Uno Al_Uno movlw 0xFF ;carga W con B'11111111' movwf PORTB ;apaga todas las filas poniendo 1 en todas las salidas del PORTB movwf row_pos ;carga registro con B'11111111' movf FILA1,w ;cargo dato extraido de tabla a W movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,0 ;borro bit 0 de registro previamente cargado con B'11111111' bcf PORTB,0 ;borro bit 0 de salida PORTB goto INTX ;salto incondicional a subrutina Al_Dos movlw 0xFF ;carga W con B'11111111' movwf PORTB ;apaga todas las filas poniendo 1 en todas las salidas del PORTB movwf row_pos ;carga registro con B'11111111' movf FILA2,w ;cargo dato extraido de tabla a W movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,1 ;borro bit 1 de registro previamente cargado con B'11111111' bcf PORTB,1 ;borro bit 1 de salida PORTB goto INTX ;salto incondicional a subrutina Al_Tres movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA3,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,2 ; bcf PORTB,2 ; goto INTX ; Al_Cuatro movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA4,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,3 ; bcf PORTB,3 ; goto INTX ; Al_Cinco movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA5,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,4 ; bcf PORTB,4 ; goto INTX ; Al_Seis movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA6,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,5 ; bcf PORTB,5 ; goto INTX ; Al_Siete movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA7,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,6 ; bcf PORTB,6 ; goto INTX ; Al_Ocho movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA8,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,7 ; bcf PORTB,7 ; goto INTX ; Al_Nueve movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA9,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,8 ; bcf PORTB,0 ; goto INTX ; Al_Diez movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA10,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,9 ; bcf PORTB,1 ; goto INTX ; Al_Once movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA11,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,10 ; bcf PORTB,2 ; goto INTX ; Al_Doce movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA12,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,11 ; bcf PORTB,3 ; goto INTX ; Al_Trece movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA13,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,12 ; bcf PORTB,4 ; goto INTX ; Al_Catorce movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA14,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,13 ; bcf PORTB,5 ; goto INTX ; Al_Quince movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA15,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,14 ; bcf PORTB,6 ; goto INTX ; Al_Diezyseis movlw 0xFF ;carga W con B'11111111' movwf PORTB ; movwf row_pos ; movf FILA16,w ; movwf ALMACEN ;registro donde se almacena el dato call TX ;llama a rutina para meter dato a registro desplazamiento bcf row_pos,15 ; bcf PORTB,7 ; goto INTX ; INTX movfw p_temp movwf PCLATH ;Restaura PCLATH swapf s_temp,W movwf STATUS ;Restaura registro STATUS swapf w_temp,F swapf w_temp,W ;Restaura registro W MOVLW D'240' ;cargo w con 240 MOVWF TMR0 ;y lo paso a TMR0 bcf INTCON,T0IF ;pone a 0 flag afectado antes de regresar de interrupción bsf INTCON,T0IE ;pone a 1 flag afectado antes de regresar de interrupción retfie ;retorno de la interrupción ;**************************************************************************************************************************** ; INICIALIZACIÓN DEL PROGRAMA Y RUTINA DE INTERRUPCIÓN POR DESBORDAMIENTO DEL TMR0 ;**************************************************************************************************************************** INICIO bsf STATUS,RP0 ;voy a banco 1 MOVLW B'00000110' ;cargo w con 00000110 MOVWF OPTION_REG ;el Divisor = 128 clrf TRISA ;puertas A todo salida clrf TRISB ;puertas B todo salida bcf STATUS,RP0 ;voy a banco 0 movlw 0xFF ;carga B'11111111' movwf PORTB ;y lo meto en PORTB clrf PORTA ;limpio registro puerta A movlw 0XFF ;meto 255 a los registros para evitar que la primera ;pantalla esté encendida movwf FILA1 movwf FILA2 movwf FILA3 movwf FILA4 movwf FILA5 movwf FILA6 movwf FILA7 movwf FILA8 movwf FILA9 movwf FILA10 movwf FILA11 movwf FILA12 movwf FILA13 movwf FILA14 movwf FILA15 movwf FILA16 movlw 0x01 ;cargo con 1 el registro movwf row_pos ;de las filas MOVLW D'240' ;cargo w con 240 MOVWF TMR0 ;para que el TMR0 se desborde cada 2 ms aprox ;T = (256 - 240) x 128 x 1 us = 2048 us = 2,048 ms movlw 0XA0 ;cargo w con 10100000 para movwf INTCON ;habilitar GIE y T0IE ;**************************************************************************************************************************** ;Aquí se controla que empiece en la dirección 00x0 de la tabla al empezar, y que vayan saliendo el nº de caracteres ;establecidos en la tabla para que una vez salgan todos volver a empezar desde 0x00. ;**************************************************************************************************************************** PRINCIPAL movlw 0x00 ;desplega todos los caracteres de nuevo movwf tmp1 SALTO movf tmp1,w ;cargo contenido del tmp1 a W call CARACTER call ScrollL16 ;scroll para buffer del display incf tmp1,f movf tmp1,w sublw D'24' ;controla el nº de caracteres del texto ;24 en este caso btfsc STATUS,C goto SALTO goto PRINCIPAL ;final del SALTO ;**************************************************************************************************************************** ;Cada caracter tiene 8 bytes de almacenamiento, nosotros multiplicaremos el index value por 8 ;**************************************************************************************************************************** CARACTER movwf offsetL clrf offsetH bcf STATUS,C ;borra carry rlf offsetL,f ;multiply index value by 16 (2x2x2x2=16) rlf offsetH,f bcf STATUS,C ;borra carry rlf offsetL,f rlf offsetH,f bcf STATUS,C ;borra carry rlf offsetL,f rlf offsetH,f bcf STATUS,C ;borra carry rlf offsetL,f rlf offsetH,f call Tabla1 movwf FILA19 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA22 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA33 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA44 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA55 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA66 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA77 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA88 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA90 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA100 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA110 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA120 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA130 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA140 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA150 incf offsetL,f ;incrementa 16 bit el puntero btfsc STATUS,Z incf offsetH,f call Tabla1 movwf FILA160 return Tabla1 ;reformada la lectura para tablas largas, mas de 255 bytes. movlw High(Tabla) addwf offsetH,W movwf PCLATH movlw Low(Tabla) addwf offsetL,w btfsc STATUS,C incf PCLATH,f MOVWF PCL ;**************************************************************************************************************************** ;Llamada a rutina y temporización de scroll a izquierdas, el texto pasa de derechas a izquierdas ;**************************************************************************************************************************** ScrollL16 call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay call ScrollL call ScrollDelay return ;**************************************************************************************************************************** ;Llamada a temporización de la velocidad a la que el texto irá pasando ;**************************************************************************************************************************** ScrollDelay call Delay20 ;cambiando aquí el dato podemos pasar mas rapido o mas lento el texto return ;**************************************************************************************************************************** ;Rutina de scroll a izquierdas, el texto pasa de derechas a izquierdas ;**************************************************************************************************************************** ScrollL bcf STATUS,C rlf FILA11,f rlf FILA1,f bcf STATUS,C rlf FILA22,f rlf FILA2,f bcf STATUS,C rlf FILA33,f rlf FILA3,f bcf STATUS,C rlf FILA44,f rlf FILA4,f bcf STATUS,C rlf FILA55,f rlf FILA5,f bcf STATUS,C rlf FILA66,f rlf FILA6,f bcf STATUS,C rlf FILA77,f rlf FILA7,f bcf STATUS,C rlf FILA88,f rlf FILA8,f bcf STATUS,C rlf FILA90,f rlf FILA9,f bcf STATUS,C rlf FILA100,f rlf FILA10,f bcf STATUS,C rlf FILA110,f rlf FILA11,f bcf STATUS,C rlf FILA120,f rlf FILA12,f bcf STATUS,C rlf FILA130,f rlf FILA13,f bcf STATUS,C rlf FILA140,f rlf FILA14,f bcf STATUS,C rlf FILA150,f rlf FILA15,f bcf STATUS,C rlf FILA160,f rlf FILA16,f return ;**************************************************************************************************************************** ;Rutina de tiempos ;**************************************************************************************************************************** Delay1Sec call Delay250 call Delay250 call Delay250 call Delay250 Return Delay255 movlw 0xff ;delay 255mS goto d0 Delay250 movlw d'250' ;delay 250mS goto d0 Delay100 movlw d'100' ;delay 100mS goto d0 Delay50 movlw d'50' ;delay 50mS goto d0 Delay20 movlw d'20' ;delay 20mS goto d0 Delay10 movlw d'10' ;delay 10mS goto d0 Delay1 movlw d'1' ;delay 1mS goto d0 Delay5 movlw 0x05 ;delay 5ms d0 movwf count1 d1 movlw 0xE7 movwf counta movlw 0x04 movwf countb Delay_0 decfsz counta,f goto $+2 decfsz countb,f goto Delay_0 decfsz count1,f goto d1 retlw 0x00 ;**************************************************************************************************************************** ;RUTINA TRANSMISIÓN BITS A REGISTRO 74HC164 ;**************************************************************************************************************************** TX movlw .16 ;pone 16 en W movwf CONTADOR ;carga contador con 16 TXLP bcf EEPROM,DO ;a 0 bit DO btfsc ALMACEN,0 ;mira el bit 7 de ALMACEN y salta si es 0 (ACA TENGO DUDAS!!!! *****###) bsf EEPROM,DO ;a 1 bit DO call BITOUT rrf ALMACEN,F ;rota a izquierda ALMACEN decfsz CONTADOR,F ;decrementa contador si es 0 salta goto TXLP return BITOUT bsf STATUS,RP0 ;pagina 1 movlw 0X00 movwf TRISA ;puerta A salida bcf STATUS,RP0 ;pagina 0 btfss EEPROM,DO ;mira el bit DO y salta si vale 1 goto BITLOW bsf PORTA,3 ;pone a 1 DATA goto CLOCK BITLOW bcf PORTA,3 ;pone a 0 DATA ;**************************************************************************************************************************** ;RUTINA DE TRANSMISIÓN SEÑAL DE RELOJ A REGISTRO 74HC164 ;**************************************************************************************************************************** CLOCK bcf PORTA,2 ;pone a 0 CLOCK nop ;espera 1 micros nop ;otro nop ;otro nop ;otro bsf PORTA,2 ;pone a 1 CLOCK nop ;1 micros return ;**************************************************************************************************************************** ; TABLA DE CARACTERES ;**************************************************************************************************************************** Tabla retlw D'255' retlw D'255' retlw D'255' retlw D'255' ;SPACE retlw D'255' retlw D'255' retlw D'255' retlw D'255' retlw D'51' retlw D'51' retlw D'51' retlw D'51' ;letra H retlw D'3' retlw D'51' retlw D'51' retlw D'51' retlw D'207' retlw D'51' retlw D'51' retlw D'51' ;letra O retlw D'51' retlw D'51' retlw D'51' retlw D'207' retlw D'63' retlw D'63' retlw D'63' retlw D'63' ;letra L retlw D'63' retlw D'63' retlw D'63' retlw D'3' retlw D'207' retlw D'135' retlw D'51' retlw D'51' ;letra A retlw D'3' retlw D'51' retlw D'51' retlw D'51' retlw D'255' retlw D'255' retlw D'255' retlw D'255' ;SPACE retlw D'255' retlw D'255' retlw D'255' retlw D'255' retlw D'147' retlw D'41' retlw D'41' retlw D'57' ;letra M retlw D'57' retlw D'57' retlw D'57' retlw D'57' retlw D'51' retlw D'51' retlw D'51' retlw D'51' ;letra U retlw D'51' retlw D'51' retlw D'51' retlw D'135' retlw D'59' retlw D'27' retlw D'43' retlw D'43' ;letra N retlw D'43' retlw D'51' retlw D'51' retlw D'59' retlw D'15' retlw D'55' retlw D'51' retlw D'51' ;letra D retlw D'51' retlw D'51' retlw D'55' retlw D'15' retlw D'207' retlw D'51' retlw D'51' retlw D'51' ;letra O retlw D'51' retlw D'51' retlw D'51' retlw D'207' retlw D'255' retlw D'255' retlw D'255' retlw D'255' ;SPACE retlw D'255' retlw D'255' retlw D'255' retlw D'255' END