Programacion lcd

;INSTITUTO TECNOLÓGICO DE LA LAGUNA
;ING.DAVID GARCÍA MORA
;OMAR ALEJANDRO ROCHA IBARRA 06130415
;BETZABEE GPE SANCHEZ MEZA 07130431

LIST P=16F877A
#INCLUDE "P16F877A.INC"
;
ADDRHEQU H'110'
ADDRL EQU H'111'
ADDRH2 EQU H'112'
ADDRL2 EQU H'113'
ADDRH3 EQU H'114'
ADDRL3 EQU H'115'
CONTADORD EQU H'116'
CONTADORI EQU H'117'
;
ORG H'0'
GOTOMAIN
ORG H'5'
;
MAIN: BCF STATUS,RP0
BCF STATUS,RP1 ; BANCO 0
CALL PUERTOS ; CONFIGURAR PUERTOS
CALL LCD_CONFIG ; CONFIGURAR EL LCD
CALL DESP_MSG1 ; DESPLGAR MENSAJE 1CALL DESP_MSG2 ; DESPLEGAR MENSAJE 2
LOOP: CALL DESP_MSG3 ; DESPLEGAR MENSAJE 3
CALL DERECHA
CALL IZQUIERDA
GOTO LOOP;********************************************************
PUERTOS: BCF STATUS, RP0
BCF STATUS, RP1 ; BANCO 0
CLRF PORTB ;INICIAR A CERO EL BUFFER DEL PUERTO B
CLRF PORTE ;INICIAR A CERO EL BUFFER DEL PUERTOE
BSF STATUS,RP0 ;BANCO 1
CLRF TRISB ;LINEAS DEL PUERTO B COMO SALIDAS
MOVLW H'06'
MOVWF ADCON1 ; PUERTO E SERA DIGITAL
CLRF TRISE ; LINEAS DEL PUERTO E COMOSALIDAS
BCF STATUS,RP0 ;BANCO 0
RETURN
;***********************************************************
DESP_MSG1: BCF STATUS, RP0
BSF STATUS, RP1 ;BANCO 2
MOVLW H'00'
MOVWFADDRL
MOVLW H'01'
MOVWF ADDRH
LEER_OTRO: CALL FMEM_RD
IORLW H'0'
BTFSS STATUS, Z
GOTO SACA_MSG1
RETURN
SACA_MSG1: BCF STATUS, RP0
BCF STATUS, RP1 ;BANCO 0
MOVWFPORTB
CALL SEC_DATO
CALL RETARDO1MS
BCF STATUS, RP0
BSF STATUS, RP1 ;BANCO 2
MOVLW H'01'
ADDWF ADDRL, F
BTFSC STATUS, C
INCF ADDRH, F
GOTO LEER_OTRO;**********************
DESP_MSG2: BSF STATUS, RP0
BSF STATUS, RP1 ;BANCO 2
MOVLW H'80'
MOVWF ADDRL2
MOVLW H'01'
MOVWF ADDRH2
LEER_OTRO2: CALL FMEM_RD2
IORLW H'0'
BTFSS STATUS,...