INSTRUCCIONES PARA EL LCD
LCDINI
MOVLW B'00111000' ;INTERFACE DE 8BITS 2 LINEAS
CALL INSTRUC
MOVLW B'00000110' ;DIRECCION A LA DERECHA
CALL INSTRUC
MOVLW B'00001100' ;PRENDE PANTALLA
CALL INSTRUC
MOVLW B'00000001' ;LIMPIA PANTALLA
CALL INSTRUC
INSTRUC ;RUTINA PARA MANDARLE AL LCD UN DATO NO ESCRIBIBLE O SEA UN DATO DE CONTROL.
;COLOCA EN CERO RA1.;CUANDO EL DATO NO ES
BCF PORTA,RS ;ESCRIBIBLE RS DEBE ESTAR EN 0.
MOVWF PORTB
BSF PORTA,E
MOVWF PORTB
CALL RETAR
BCF PORTA,E
RETURN
DATOS ;RUTINA PARA MANDARLE AL LCD UN DATO ESCRIBIBLE O SEA UN
;DATO DE LETRAS O NUMEROS.
BSF PORTA,RS ;CUANDO EL DATO ES ESCRIBIBLE RS DEBE ESTAR EN 1.
BSF PORTA,E
MOVWF PORTB
CALL RETAR
BCF PORTA,E
RETURN
MENSA MOVLW B'10000000' ; CODIGO DE INSTRUCCION, EL
;PUNTERO SE UBICA EN LA PRIMERA LINEA.
CALL INSTRUC
CLRF MENS
RE MOVF MENS,0
CALL TABLA
CALL DATOS
INCF MENS,1
MOVF MENS,0
XORLW .5
BTFSS STATUS,2
GOTO RE
Siga programa
TABLA ADDWF PCL,1
RETLW "T"
RETLW "E"
RETLW "M"
RETLW "P"
RETLW ":"