__CONFIG   _CP_OFF & _PWRTE_ON & _HS_OSC
	LIST	   P=16F877A
	INCLUDE  <P16F877A.INC>

	CBLOCK 0x30
	ENDC
#DEFINE	LCD_PinEnable	PORTD,3
dato	EQU	0X20


      ORG   0      ;Vector de Reset
      goto   Inicio1

      org   0x04      ;Vector de interrupción
      goto   Inter

;********************************************************************************************
;Tx_Dato: Transmite vía serie el dato presente en el reg. W

Tx_Dato      bcf   PIR1,TXIF   ;Restaura el flag del transmisor
      movwf   TXREG      ;Almacena el byte a transmitir
      bsf   STATUS,RP0
Tx_Dato_Wait   btfss   TXSTA,TRMT   ;Byte transmitido ??
      goto   Tx_Dato_Wait   ;No, esperar
      bcf   STATUS,RP0
      return         ;Si

;******************************************************************************************
;Tratamiento de la interrupción

Inter      btfss   PIR1,RCIF   ;Ha sido interrupción en la recepción ??
      retfie        ;No, falsa interrupción
	  bcf		PIR1,RCIF
      movf   RCREG,W      ;Lee el dato recibido
      movwf  dato      ;Lo saca por la puerta B
      call   Tx_Dato      ;Lo retransmite a modo de eco
      return

;*******************************************************************************************
;Programa principal

Inicio1           clrwdt
      clrf   PORTC      
      clrf   PORTB
      bsf   STATUS,RP0   ;Selecciona banco 1
      clrf   PORTB      ;Puerta B salida
      movlw   b'10111111'
      movwf   TRISC      ;RC7/Rx entrada, RC6/Tx salida
      movlw   b'11001111'
      movwf   OPTION_REG   ;Preescaler de 128 asociado al WDT

      movlw   b'00100100'   
      movwf   TXSTA      ;TX en On, modo asíncrono con 8 bits y alta velocidad
      movlw   h'0C'
      movwf   SPBRG      ;2400 baudios
      bsf   PIE1,RCIE   ;Habilita interrupción en la recepción
      bcf   STATUS,RP0   ;Selecciona banco 0
      
      movlw   b'10010000'
      movwf   RCSTA      ;USART en On, recepción contínua
      bsf   INTCON,PEIE   ;Activa interrupción de periféricos
      bsf   INTCON,GIE   ;Activa interrupciones
	  goto	Loop

Loop  
	call	Retardo_100ms    
;	movfw	dato
	movlw   0x4E
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Loop1
LoopF
;	movfw	dato
	movlw   0x46
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Loop9
	goto	Loop	
Loop1
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x31
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds
Loop2
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x32
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds1
Loop3
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x33
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds2	
Loop4
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x34
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds3
Loop5
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x35
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds4
Loop6
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x36
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds5
Loop7
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x37
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds6
Loop8
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x38
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds7
	goto	Loop1
Loop9
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x31
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds8
Loop10
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x32
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds9
Loop11
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x33
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds10	
Loop12
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x34
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds11
Loop13
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x35
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds12
Loop14
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x36
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds13
Loop15
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x37
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds14
Loop16
	call	Retardo_100ms
 ;   movfw   dato  
	movlw   0x38
	subwf	dato,W
	btfsc	STATUS,Z
	goto	Leds15
	goto	Loop
Leds
	goto	Encendido
	goto	Loop
Leds1
	goto	Encendido1
	goto	Loop
Leds2
	goto	Encendido2
	goto	Loop
Leds3
	goto	Encendido3
	goto	Loop
Leds4
	goto	Encendido4
	goto	Loop
Leds5
	goto	Encendido5
	goto	Loop
Leds6
	goto	Encendido6
	goto	Loop
Leds7
	goto	Encendido7
	goto	Loop
Leds8
	goto	Apagado
	goto	Loop
Leds9
	goto	Apagado1
	goto	Loop
Leds10
	goto	Apagado2
	goto	Loop
Leds11
	goto	Apagado3
	goto	Loop
Leds12
	goto	Apagado4
	goto	Loop
Leds13
	goto	Apagado5
	goto	Loop
Leds14
	goto	Apagado6
	goto	Loop
Leds15
	goto	Apagado7
	goto	Loop

;Lo recibido te lo guarda automáticamente en el registro RCREG y te lo muestra por puerto B
Encendido
	BSF		PORTB,0
	goto 	Inicio
Encendido1
	BSF		PORTB,1
	goto	Inicio
Encendido2
	BSF		PORTB,2
	goto	Inicio
Encendido3
	BSF		PORTB,3
	goto	Inicio
Encendido4
	BSF		PORTB,4
	goto	Inicio
Encendido5
	BSF		PORTB,5
	goto	Inicio
Encendido6
	BSF		PORTB,6
	goto	Inicio
Encendido7
	BSF		PORTB,7
	goto	Inicio
	goto 	Loop
Apagado
	BCF		PORTB,0
	goto	Inicio
Apagado1
	BCF		PORTB,1
	goto	Inicio
Apagado2
	BCF		PORTB,2
	goto	Inicio
Apagado3
	BCF		PORTB,3
	goto	Inicio
Apagado4
	BCF		PORTB,4
	goto	Inicio
Apagado5
	BCF		PORTB,5	
	goto	Inicio
Apagado6
	BCF		PORTB,6
	goto	Inicio
Apagado7
	BCF		PORTB,7
	goto	Inicio
	goto	Loop
	

;_________VERIFICACIONES__________
Inicio
B1	
;	bsf	LCD_PinEnable		; Permite funcionamiento del LCD mediante un pequeño
;	bcf	LCD_PinEnable		; pulso y termina impidiendo el funcionamiento del LCD.
	btfss 	PORTB,0
	goto	LCD_OFF1
	goto	LCD_ON1
B2	
	btfss	PORTB,1
	goto	LCD_OFF2
	goto	LCD_ON2
B3	
	btfss	PORTB,2
	goto	LCD_OFF3
	goto	LCD_ON3
B4	
	btfss	PORTB,3
	goto	LCD_OFF4
	goto	LCD_ON4		
B5	
;	bsf		PORTD,1
;	bcf		LCD_PinEnable
	btfss	PORTB,4
	goto	LCD_OFF5
	goto	LCD_ON5
B6	
	btfss	PORTB,5
	goto	LCD_OFF6
	goto	LCD_ON6
B7	
	btfss	PORTB,6
	goto	LCD_OFF7
	goto	LCD_ON7
B8	
	btfss	PORTB,7
	goto	LCD_OFF8
	goto	LCD_ON8
	goto	Loop
;__________ENCENDIDO___________
LCD_ON1
	call	LCD_Inicializa
	call	LCD_Mensaje1.1			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B2
LCD_ON2
	movlw	0x08
	call	LCD_PosicionLinea1
	call	LCD_Mensaje1.2			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B3
LCD_ON3
	call	LCD_Linea2
	call	LCD_Mensaje1.3			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B4
LCD_ON4
	movlw	0x08
	call	LCD_PosicionLinea2
	call	LCD_Mensaje1.4			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B5
; pin enable revisar eso
LCD_ON5
	call	LCD_Linea1
	call	LCD_Mensaje1.5			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B6	
LCD_ON6
	movlw	0x08
	call	LCD_PosicionLinea1
	call	LCD_Mensaje1.6			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B7	
LCD_ON7
	call	LCD_Inicializa
	call	LCD_Linea2
	call	LCD_Mensaje1.7			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B8
LCD_ON8
	movlw	0x08
	call	LCD_PosicionLinea2
	call	LCD_Mensaje1.8			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	Loop
;__________APAGADOS____________
LCD_OFF1
	call	LCD_Linea1
	call	LCD_Mensaje1			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B2
LCD_OFF2
	movlw	0x08
	call	LCD_PosicionLinea1
	call	LCD_Mensaje2			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B3	
LCD_OFF3
	call	LCD_Linea2
	call	LCD_Mensaje3			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B4
LCD_OFF4
	movlw	0x08
	call	LCD_PosicionLinea2
	call	LCD_Mensaje4			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B5
LCD_OFF5
	call	LCD_Linea1
	call	LCD_Mensaje5			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B6
LCD_OFF6
	movlw	0x08
	call	LCD_PosicionLinea1
	call	LCD_Mensaje6			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B7	
LCD_OFF7
	call	LCD_Linea2
	call	LCD_Mensaje7			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	B8
LCD_OFF8
	movlw	0x08
	call	LCD_PosicionLinea2
	call	LCD_Mensaje8			; Apunta dónde se encuentra el mensaje.
	call	Retardo_100ms
	goto	Loop

LCD_Mensaje1				; Posición inicial del mensaje 0.
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'1'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje2				; Posición inicial del mensaje 1.
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'2'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje3			; Posición inicial del mensaje 2.
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'3'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return 
LCD_Mensaje4
		movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'4'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje5
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'5'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje6
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'6'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje7
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'7'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje8
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'8'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje1.1				; Posición inicial del mensaje 0.
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'1'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'N'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje1.2				; Posición inicial del mensaje 1.
		movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'2'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje1.3			; Posición inicial del mensaje 2.
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'3'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'N'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje1.4
		movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'4'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje1.5
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'5'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'N'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje1.6
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'6'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje1.7
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'7'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'N'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return
LCD_Mensaje1.8
	movlw	'L'
	call	LCD_Caracter
	movlw	'E'
	call	LCD_Caracter
	movlw	'D'
	call	LCD_Caracter
	movlw	'8'
	call	LCD_Caracter
	movlw	'='
	call	LCD_Caracter	
	movlw	'O'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	'F'
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter	
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	movlw	' '
	call	LCD_Caracter
	return

	INCLUDE <LCD_EASY.INC>
	INCLUDE	<LCD_MENS.INC>
	INCLUDE <RETARDOS.INC>

	END