OIGA LA RUTINA ES IGUAL.
VER SI TE SIRVE ESTO
LIST P=16F877A
RS EQU 0
E EQU 1
LCDINI MOVLW B'00111000' ;INTERFACE DE 8BITS 2 LINEAS
CALL INSTRUC
MOVLW B'00000110' ;DIRECCION A LA DERECHA
CALL INSTRUC
MOVLW B'00001101' ;PRENDE PANTALLA
CALL INSTRUC
MOVLW B'00000001' ;LIMPIA PANTALLA
CALL INSTRUC
GOTO CUR
DATOS
BSF PORTE,RS
BSF PORTE,E
MOVWF PORTD
CALL RETARDO
BCF PORTE,E
RETURN
INSTRUC
BCF PORTE,RS ;COLOCA EN CERO REO
BSF PORTE,E
MOVWF PORTD
CALL RETARD
BCF PORTA,E
RETURN
TABLA3 ADDWF PCL,1
RETLW "S"
RETLW "O"
RETLW "L"
RETLW "O"
RETLW " "
RETLW "E"
RETLW "M"
RETLW "E"
RETLW "R"
RETLW "G"
RETLW "E"
RETLW "N"
RETLW "C"
RETLW "I"
RETLW "A"