;***********FUNCIONA OK, Ya LO PROBÉ************** ; Es para un LCD winstar WH1602A PROCESSOR 16F877A LIST P=PIC16F877A RADIX HEX #INCLUDE errorlevel -302 ;**************** Oscilador (Reloj) utilizado **************** ; ; cristal 20Mhz con 200 nseg por instrucción, _hs_OSC ; ; ; Definicion o Declaracion de equs (igualdades) RA EQU H'05' RB EQU H'06' RC equ 07h portd equ 08h porte equ 09h STATUS equ 03h R_ContA equ 24h R_ContB equ 25h R_ContC equ 26h cursor equ 27h poeslcd equ 01h curdisp equ 0Bh ; Direccion del registro INTCON conta equ 28h ;DEFINIMOS LOS BANCOS #define bank1 bsf STATUS,5 ;Macro para abreviar el BANCO 1 #define bank0 bcf STATUS,5 ;Macro para abreviar el BANCO 0 Org 0x00 ;Posicion 0 de la Memoria de Programa (apuntador) goto INICIO ;Va a la etiqueta reset ; ;-------------------- AQUI EMPIEZA EL PROGRAMA ------------------------------ INICIO bank1 ;Ir a pagina 1 para ajustar los puertos movlw 0x06 movwf ADCON1 ; Configura el puerto A como E/S digitales. MOVLW 0x00 ;Cargar '00000000' en W MOVWF 05h ;define como entrada ra5, ra4, ra3, ra2. ra0 y ra1 son salidas. MOVLW 0x00 ;Cargar '00000000' en W MOVWF 06h ;define como entrada el puerto B, MOVLW 0x00 ;Cargar '00000000' en W MOVWF 07h ;define como entrada el puerto c, MOVLW 0x00 ;Cargar '00000000' en W MOVWF 08h ;define como entrada el puerto B, MOVLW 0x00 ;Cargar '00000000' en W MOVWF 09h ;define como entrada el puerto c, bank0 ; Ir a pagina0 para seguir elprograma BCF RA,0 ;Desactiva RS del modulo LCD BCF RA,2 ;Desactiva E del modulo LCD goto main main call LCD_INI call B_DISPLAY movlw 0x84 ;HOLA! movwf poeslcd call PO_ES_LCD movlw b'01001000' call LCD_DATO movlw b'01001111' call LCD_DATO movlw b'01001100' call LCD_DATO movlw b'01000001' call LCD_DATO movlw b'00100001' call LCD_DATO movlw 0xc0 ;Lucas movwf poeslcd call PO_ES_LCD movlw 0x4c call LCD_DATO movlw 0x75 call LCD_DATO movlw 0x43 call LCD_DATO movlw 0x61 call LCD_DATO movlw 0x73 call LCD_DATO movlw 0x20 call LCD_DATO Bsf RA,3 ;Led intermitente call demora1s ;lo puse para saber si esta corriendo el programa bcf RA,3 call B_DISPLAY call demora1s goto main DELAY_5MS Retardo_20ms movlw d'25' goto Retardos_ms Retardos_ms movwf R_ContB R1ms_BucleExterno movlw d'249' movwf R_ContA R1ms_BucleInterno nop decfsz R_ContA,F goto R1ms_BucleInterno decfsz R_ContB,F goto R1ms_BucleExterno return demora1s ; La llamada "call" aporta 2 ciclos máquina. movlw d'50' ; Aporta 1 ciclo máquina. Este es el valor de "N". goto Retardo_1Decima ; Aporta 2 ciclos máquina. Retardo_1Decima movwf R_ContC ; Aporta 1 ciclo máquina. R1Decima_BucleExterno2 movlw d'100' ; Aporta Nx1 ciclos máquina. Este es el valor de "M". movwf R_ContB ; Aporta Nx1 ciclos máquina. R1Decima_BucleExterno movlw d'249' ; Aporta MxNx1 ciclos máquina. Este es el valor de "K". movwf R_ContA ; Aporta MxNx1 ciclos máquina. R1Decima_BucleInterno nop ; Aporta KxMxNx1 ciclos máquina. decfsz R_ContA,F ; (K-1)xMxNx1 cm (si no salta) + MxNx2 cm (al saltar). goto R1Decima_BucleInterno ; Aporta (K-1)xMxNx2 ciclos máquina. decfsz R_ContB,F ; (M-1)xNx1 cm (cuando no salta) + Nx2 cm (al saltar). goto R1Decima_BucleExterno ; Aporta (M-1)xNx2 ciclos máquina. decfsz R_ContC,F ; (N-1)x1 cm (cuando no salta) + 2 cm (al saltar). goto R1Decima_BucleExterno2 ; Aporta (N-1)x2 ciclos máquina. return ; El salto del retorno aporta 2 ciclos máquina. ;Rutina para un LCD de 16x2 para LCD Hitachi HD44780 ;Esta rutina es para el 16F87x. ;Comunicación 8 Bit, RS, RW y E. ; ;Configuración del hardware: ;RB0 a DB0; RB1 a DB1;... RB7 a DB7 ;RA0 a RS; RA1 a R/W; RA2 a E ; ;************* ;SE NECESITA: ;************* ; ;* Rutina de temporización de 5ms llamada DELAY_5MS. Lo debe definir el usuario para no modificar constantemente la rutina ; así se puede usar con 8Mhz, 4Mhz, etc. ;* RAM: cursor (ver MOV_DESP) ;* curdisp (ver CUR_DISP) ;* poeslcd (ver PO_ES_LCD) ; ;*************** ;LO QUE CONSUME ;*************** ;- 3 pociciones de la RAM ;- 2 pociciones de la pila más uno desde el programa principal, Total 3 Stack. ; ;********* ;RUTINAS: ;********* ; ;LCD_PORT, para configurar los puerto de comunicación con el LCD. Ver encabezado de la rutina. ; ;LCD_INI, inicializa el LCD para bus de 8 bits, las 2 líneas de LCD y resolución 5x7. Se ejecuta automáticamente, pero se dispone de ella ; por si el usuario lo necesita. ; ;B_DISPLAY, Borra el display y la memoria del LCD. ; ;MOV_DESP, configura al cursor, tanto el movimiento y desplazamiento. B'000001MS': M 1 Incremento 0 decremento del cursor. ; S 1 Desplaza la visualización (útil para cuando se exede los 16 caracteres por línea) 0 modo normal. ; antes de llamar a esta rutina, cargar en la pocición CURSOR la configuración deseada. Predeterminado B'00000110' ; ;CUR_DISP, Se configura si se prende o apaga al cursor y al display, y si el cursor parpadea o no. ; B'00001DCB' D 1 Display encendido 0 Display apagado. C 1 cursor encendido 0 cursor apagado. B 1 Cursor parpadea 0 cursor no parpadea. ; antes de llamar a esta rutina, cargar en la pocición CURDISP la configuración deseada. Predeterminado B'00001100' ; ;PO_ES_LCD, Pocición para escribir en LCD. La primer Línea comienza desde H'80' hasta H'8F' ; y la segunda línea desde H'0C' hasta H'CF' Útil para subir o bajar el cursor y elegir desde dónde se empieza a escribir. ; antes de llamar a esta rutina, carga en la pocición POESLCD la configuración deseada. Predeterminado B'10000000' (H'80') y B'00001100' (H'0C') ; ;LCD_DATO, Envía los datos a mostrar en la pantalla del LCD. ; ;PRE_LCD, configura al LCD en forma predeterminada con los valores B'00000110' B'00001100' B'10000000'; También borra el Display. Al utilizar esta rutina ; se ahorran muchos pasos. ; ;*********************************************************** ;MODO DE USO ;*********************************************************** ; ;Alternativa 1 ;************* ;Primero: ejecutar la rutina LCD_PORT ;Segundo: solo si se necesita, ejecutar la rutina B_DISPLAY es recomendable. (ver en rutinas) ;Tercero: cargar en la variable CURSOR la configuración deseada (ver en RUTINAS) y luego ejecutar la rutina MOV_DESP ;Cuarto: cargar en la variable CURDISP la configuración deseada (ver en RUTINAS) y luego ejecutar la rutina CUR_DIP ;Quinto: cargar en la variable POESLCD la configuración deseada (ver en RUTINAS) y luego ejecutar la rutina PO_ES_LCD ;Sexto: el LCD ya está configurado. Se debe cargar en el registro W el código ASCII a mostrar en el LCD y luego ejecutar la rutina LCD_DATO. ;Séptimo: Cuando se cargaron las 16 pociciones de memoria y/o se quiere bajar o subir de línea repetir el quinto paso y luego el sexto. ; ;Alternativa 2. ;************** ;Primero: ejecutar PRE_LCD ;segundo: el LCD ya está configurado. Se debe cargar en el registro W el código ASCII a mostrar en el LCD y luego ejecutar la rutina LCD_DATO. ;tercero: Cuando se cargaron las 16 pociciones de memoria y/o se quiere bajar o subir de línea repetir el quinto paso y luego el sexto ; de la alternativa 1. ; ;*********************************************************** ;NOTA: ;*********************************************************** ; ;Importante: Todas las rutinas se deben ejecutar con la instrucción CALL y las variables se deben escribir en minúscula como está en ; el apartado senecesita. ; También es recomendable desactivar las interrupciones antes de ejecutar cualquier rutina. ; ;Esta rutina se puede utilizar tranquilamente en un PIC 16F84, para ello, se deben anular las líneas MOVLW H'06' y MOVWF ADCON1 ;BCF STATUS,RP1 que se encuentra en la rutina LCD_PORT ; ;***************************************************************************** ;Configura los puertos A y B para la comunicación con el LCD ;Pone al PORTB como salida y a los BITs o, 1, 2, 5 del puerto A como salidas y ;a los BITs 3 y 4 como entradas. ;***************************************************************************** ; ;***************************************************************************** ;RENOMBRAMOS PUERTOS ;***************************************************************************** ; ; ; LCD_PORT BSF STATUS,RP0 ;Cambio de banco a 1 BCF STATUS,RP1 ;Idem anterior. CLRF TRISB ;RB se programa como salida MOVLW b'00011000' ;RA<4:3> se programan como entradas MOVWF TRISA ;RA<2:0> se programan como salidas MOVLW H'06' ;Cargo el valor 6 al W y lo paso MOVWF ADCON1 ;al registro para hacer a porta salidas digitales. BCF STATUS,RP0 ;Selecciona el banco 0 de datos BCF RA,0 ;Desactiva RS del modulo LCD BCF RA,2 ;Desactiva E del modulo LCD ; ; *************************ESTA ES LA PARTE QUE CAMBIE PARA QUE FUNCIONE CON EL LCD WINSTAR********************************* LCD_INI MOVLW b'00111100' CALL LCD_REG ;Codigo de instruccion CALL DELAY_5MS ;Temporiza 5 mS. MOVLW b'00001100' CALL LCD_REG ;Codigo de instruccion CALL DELAY_5MS ;Temporiza 5 mS. MOVLW b'00000001' CALL LCD_REG ;Codigo de instruccion CALL DELAY_5MS ;Temporiza 5 mS. MOVLW b'00000110' CALL LCD_REG ;Codigo de instruccion RETURN ;****************************************************************************************************************************** ; LCD_REG BCF RA,0 ;Desactiva RS (Modo instruccion) MOVWF RB ;Saca el codigo de instruccion CALL LCD_BUSY ;Espera a que se libere el LCD ; LCD_E BSF RA,2 ;Activa señal E NOP nop nop nop nop ;Espera 1uS BCF RA,2 ;Desactiva señal E RETURN ; LCD_BUSY BSF RA,1 ;Pone el LCD en modo lectura bank1 ;Selecciona el Banco 1 MOVLW 0xFF MOVWF TRISB ;Puerta B act£a de entrada bank0 ;Selecciona el Banco 0 BSF RA,2 ;Activa el LCD (Señal E) NOP nop nop nop L_BUSY BTFSC RB,7 ;Chequea el bit BUSY GOTO L_BUSY ;Est a "1" (Ocupado) BCF RA,2 ;Desactiva el LCD (Se¤al E) bank1 ;Selecciona el Banco 1 CLRF TRISB ;Puerta B actua como salida bank0 ;Selecciona el Banco 0 BCF RA,1 ;Pone el LCD en modo escritura RETURN ; B_DISPLAY MOVLW B'00000001' CALL LCD_REG RETURN ; MOV_DESP MOVFW cursor CALL LCD_REG RETURN ; CUR_DISP MOVFW curdisp CALL LCD_REG RETURN ; PO_ES_LCD MOVFW poeslcd CALL LCD_REG RETURN ; LCD_DATO BCF RA,0 ;Desactiva RS (Modo instrucci¢n) MOVWF RB ;Valor ASCII a sacar por RB CALL LCD_BUSY ;Espera a que se libere el LCD BSF RA,0 ;Activa RS (Modo dato) GOTO LCD_E ;Genera pulso en señal E ; PRE_LCD CALL LCD_PORT CALL B_DISPLAY MOVLW B'00000110' MOVWF cursor CALL MOV_DESP MOVLW B'00001100' MOVWF curdisp CALL CUR_DISP MOVLW B'10000000' MOVWF poeslcd CALL PO_ES_LCD RETURN end ; ;**************** ;NOTA AL MARGEN: ;**************** ;Si se tiene limitada la memoria de programa, se puede eliminar la rutina PRE_LCD ;También se puede eliminar las variables y trabajar directamente desde W ;para ello, se debe eliminar la primer línea (no la etiqueta) de las rutinas ;MOV_DESP, CUR_DISP, PO_ES_LCD y antes de ejecutar estas rutinas, se debe cargar en W ;la configuración deseada. Recuerden que, si se hace esta modificación, la rutina PRE_LCD, no funcionará. ;La razón de utilizar las variables, es para que el usuario pueda guardar la configuración ;al principio del programa, hacer otras tareas y luego inicializar el LCD.