[Modificación] Hacer algo con la PS2 vieja. Instalación LCD visualización de disco insertado

Sigo investigando...

...no pararé ahsta conseguirlo. Debo saber porqué en el PIC16F84A si me funciona la EEPROM externa y no con le 16F886. Algo no hago bien y lo averiguaré.

;**************************** Librería "M24LC256.INC"
;
; Estas subrutinas permiten realizar las tareas de manejo de la memoria EEPROM serie
; 24LC256 que transmite y recibe la información vía serie a través de un bus I2C.
;
; Subrutina "M24LC256_InicializaEscritura" ----------------------------------------------
;
; Prepara la memoria para iniciar su escritura a partir de la posición de memoria fijada
; por los registros:
; - (M24LC256_AddressHigh), indica el número del bloque o página de memoria a escribir.
; - (M24LC256_AddressLow), indica posición a escribir dentro del bloque.

   CBLOCK
   M24LC256_AddressHigh         ; Guarda el valor de la dirección de memoria a
   M24LC256_AddressLow            ; escribir o leer.
   M24LC256_Dato
   ENDC
;
M24LC256_DIR_ESCRITURA    EQU   b'10100000'; Dirección de la memoria 24LC256 para
M24LC256_DIR_LECTURA    EQU   b'10100001'; escritura y lectura respectivamente.

M24LC256_InicializaEscritura
   call   I2C_EnviaStart            ; Envía condición de Start.
   movlw   M24LC256_DIR_ESCRITURA      ; Envía dirección de escritura del
   call   I2C_EnviaByte            ; esclavo.
   movf   M24LC256_AddressHigh,W      ; A partir de la dirección apuntada por los
   call   I2C_EnviaByte            ; registros M24LC256_AddressHigh y
   movf   M24LC256_AddressLow,W      ; M24LC256_AddressLow.
   call   I2C_EnviaByte
   return   

; Subrutina "M24LC256_InicializaLectura" ------------------------------------------------
;
; Prepara la memoria para iniciar su lectura a partir de la posición de memoria fijada
; por los registros:
; - (M24LC256_AddressHigh), indica el número del bloque o página de memoria a leer.
; - (M24LC256_AddressLow), indica posición a escribir dentro del bloque.

M24LC256_InicializaLectura
   bcf      I2C_UltimoByteLeer         ; Todavía no ha comenzado a leer ningún dato.
   call   I2C_EnviaStart            ; Envía condición de Start.
   movlw   M24LC256_DIR_ESCRITURA      ; Envía dirección de escritura del
   call   I2C_EnviaByte            ; esclavo.
   movf   M24LC256_AddressHigh,W      ; A partir de la dirección apuntada por los
   call   I2C_EnviaByte            ; registros M24LC256_AddressHigh y
   movf   M24LC256_AddressLow,W      ; M24LC256_AddressLow.
   call   I2C_EnviaByte
   call   I2C_EnviaStop
;
   call   I2C_EnviaStart            ; Envía condición de Start.
   movlw   M24LC256_DIR_LECTURA      ; Indica a la memoria 24LC256 que va a
   call   I2C_EnviaByte            ; proceder a la lectura.
   return

; Subrutina "M24LC256_Mensaje_a_LCD" ----------------------------------------------------
;
; Lee el mensaje grabado en la memoria 24LC256 y lo visualiza en la pantalla del módulo LCD.
; En el registro de trabajo W se introduce la página de la memoria a partir de cuya primera
; posición se va a leer. La lectura termina cuando encuentre el código 0x00. Así por ejemplo,
; si (W)=2Fh lee el mensaje que comienza en la posición 0 de la página 2Fh de la memoria,
; que es la posición 2F00h absoluta.
;
   CBLOCK
;   M24LC256_ValorCaracter            ; Valor ASCII del carácter leído.
   ENDC

;M24LC256_Mensaje_a_LCD
   movwf   M24LC256_AddressHigh      ; Apunta al inicio de la página correspondiente.
   clrf   M24LC256_AddressLow
   call   M24LC256_InicializaLectura
M24LC256_LeeOtroByte
   call   I2C_LeeByte               ; Lee la memoria 24LC256.
   movwf   M24LC256_ValorCaracter      ; Guarda el valor de carácter.
   movf   M24LC256_ValorCaracter,F   ; Lo único que hace es posicionar flag Z. En caso
   btfsc   STATUS,Z               ; que sea "0x00", que es código indicador final   
   goto   M24LC256_FinMensaje         ; del mensaje, sale de la subrutina.
   movf   M24LC256_ValorCaracter,W   ; Recupera el valor leído.
   call   LCD_Caracter            ; Lo visualiza en la pantalla del LCD.
   incf   M24LC256_AddressLow,F      ; Apunta a la siguiente posición.
   goto   M24LC256_LeeOtroByte
;M24LC256_FinMensaje
;   call   M24LC_256_FinalizaLectura
;   return

; Subrutina "M24LC256_FinalizaLectura" ------------------------------------------------
;
; Activa el bit I2C_UltimoByteLeer para que la subrutina I2C_LeeByte ponga en alta
; impedancia la línea SDA y pueda ejecutarse posteriormente la condición de Start o Stop
; que fija el protocolo del bus I2C.

M24LC256_FinalizaLectura
   bsf   I2C_UltimoByteLeer            ; Con estas dos instrucciones se pone en
   call   I2C_LeeByte                ; alta impedancia la línea SDA. No importa el
   call   I2C_EnviaStop            ; resultado de la lectura realizada.
   return

; Subrutina "M24LC256_Mensaje_a_LCD" ----------------------------------------------------
;
; Lee un mensaje grabado en la memoria 24LC256 y lo visualiza por el módulo LCD. En caso que
; sea más largo que la longitud de la pantalla se desplaza hacia la izquierda con sensación
; de movimiento. En el registro de trabajo W se introduce la página de la memoria a partir
; de cuya primera posición va a leer. La visualización termina cuando encuentre el código
; 0x00. Así por ejemplo si (W)= 2Fh lee el mensaje que comienza en la posición 0 de la
; página 2Fh de la memoria, que es la posición 2F00h absoluta.
;
   CBLOCK
   M24LC256_ValorCaracter            ; Valor ASCII del carácter leído.
   M24LC256_CursorPosicion
   ENDC

M24LC256_Mensaje_a_LCD
   bcf   I2C_UltimoByteLeer
   movwf   M24LC256_AddressHigh      ; Apunta al inicio de la página correspondiente.
   clrf   M24LC256_AddressLow
   call   M24LC256_InicializaLectura
M24LC256_PrimeraPosicion
   clrf   M24LC256_CursorPosicion      ; El cursor en la posición 0 de la línea.
   call   LCD_Borra               ; Se sitúa en la primera posición de la línea 1 y
M24LC256_VisualizaCaracter            ; borra la pantalla.
   movlw   LCD_CaracteresPorLinea      ; ¿Ha llegado a final de línea?
   subwf   M24LC256_CursorPosicion,W
   btfss   STATUS,C
   goto   M24LC256_NoEsFinalLinea
M24LC256_EsFinalLinea
   call   Retardo_200ms            ; Lo mantiene visualizado durante este tiempo.
   call   Retardo_200ms
   call   M24LC256_FinalizaLectura
   incf   M24LC256_AddressLow,F
   call   M24LC256_InicializaLectura
   goto   M24LC256_PrimeraPosicion
M24LC256_NoEsFinalLinea
   call   I2C_LeeByte               ; Obtiene el ASCII del carácter apuntado.
   movwf   M24LC256_ValorCaracter      ; Guarda el valor de carácter.
   movf   M24LC256_ValorCaracter,F   ; Lo único que hace es posicionar flag Z. En caso
   btfsc   STATUS,Z               ; que sea "0x00", que es código indicador final
   goto   M24LC256_FinMensaje         ; de mensaje, sale fuera.
M24LC256_NoUltimoCaracter
   call   LCD_Caracter            ; Visualiza el carácter ASCII leído.
   incf   M24LC256_CursorPosicion,F   ; Contabiliza el incremento de posición del
                              ; cursor en la pantalla.
   goto   M24LC256_VisualizaCaracter   ; Vuelve a visualizar el siguiente carácter
M24LC256_FinMensaje                  ; de la línea.
   call   M24LC256_FinalizaLectura
   return


;**************************** Librería "BUS_I2C.INC"
;
; Estas subrutinas permiten realizar las tareas básicas de control del bus serie I2C,
; por parte de un solo microcontrolador maestro.
;
; ZONA DE DATOS *****************************
;
   CBLOCK
   I2C_ContadorBits            ; Cuenta los bits a transmitir o a recibir.
   I2C_Dato                  ; Dato a transmitir o recibido.
   I2C_Flags                  ; Guarda la información del estado del bus I2C.
   ENDC

#DEFINE I2C_UltimoByteLeer   I2C_Flags,0
;    -  (I2C_UltimoByteLeer)=0, NO es el último byte a leer por el maestro.
;    -  (I2C_UltimoByteLeer)=1, SÍ es el último byte a leer por el maestro.

; La definición de las líneas SCL y SDA del bus I2C se puede cambiar según las
; necesidades del hardware.

#DEFINE SCL   PORTA,3               ; Línea SCL del bus I2C.
#DEFINE SDA   PORTA,4               ; Línea SDA del bus I2C.
;
; Subrutina "SDA_Bajo" ------------------------------------------------------------------
;
SDA_Bajo
   bcf      STATUS,RP1
   bsf      STATUS,RP0            ; Configura la línea SDA como salida.
   bcf      SDA
   bcf      STATUS,RP1
   bcf      STATUS,RP0
   bcf      SDA                  ; SDA en bajo.
   return
;
; Subrutina "SDA_AltaImpedancia" --------------------------------------------------------
;
SDA_AltaImpedancia
   bcf      STATUS,RP1
   bsf      STATUS,RP0            ; Configura la línea SDA entrada.
   bsf      SDA                  ; Lo pone en alta impedancia y, gracias a la
   bcf      STATUS,RP1
   bcf      STATUS,RP0            ; Rp de esta línea, se mantiene a nivel alto.
   return
;
; Subrutina "SCL_Bajo" ------------------------------------------------------------------
;
SCL_Bajo
   bcf      STATUS,RP1
   bsf      STATUS,RP0
   bcf      SCL                  ; Configura la línea SCL como salida.
   bcf      STATUS,RP1
   bcf      STATUS,RP0
   bcf      SCL                  ; La línea de reloj SCL en bajo.
   return
;
; Subrutina "SCL_AltaImpedancia" --------------------------------------------------------
;
SCL_AltaImpedancia
   bcf      STATUS,RP1
   bsf      STATUS,RP0            ; Configura la línea SCL entrada.
   bsf      SCL                  ; Lo pone en alta impedancia y, gracias a la Rp
   bcf      STATUS,RP1
   bcf      STATUS,RP0            ; de esta línea, se mantiene a nivel alto.
SCL_EsperaNivelAlto
   btfss   SCL                  ; Si algún esclavo mantiene esta línea en bajo
   goto   SCL_EsperaNivelAlto      ; hay que esperar.
   return
;
; Subrutina "I2C_EnviaStart" ------------------------------------------------------------
;
; Esta subrutina envía una condición de Start o inicio.
;
I2C_EnviaStart
   call   SDA_AltaImpedancia      ; Línea SDA en alto.
   call   SCL_AltaImpedancia      ; Línea SCL en alto.
   call   Retardo_4micros         ; Tiempo tBUF del protocolo.
   call   SDA_Bajo            ; Flanco de bajada de SDA mientras SCL está alto.
   call   Retardo_4micros         ; Tiempo tHD;STA del protocolo.
   call   SCL_Bajo            ; Flanco de bajada del reloj SCL.
   call   Retardo_4micros   
   return
;
; Subrutina "I2C_EnviaStop" -------------------------------------------------------------
;
; Esta subrutina envía un condición de Stop o parada.
;
I2C_EnviaStop
   call   SDA_Bajo
   call   SCL_AltaImpedancia      ; Flanco de subida de SCL.
   call   Retardo_4micros         ; Tiempo tSU;STO del protocolo.
   call   SDA_AltaImpedancia      ; Flanco de subida de SDA.
   call   Retardo_4micros         ; Tiempo tBUF del protocolo.
   return
;
; Subrutina "I2C_EnviaByte" -------------------------------------------------------------
;
; El microcontrolador maestro transmite un byte por el bus I2C, comenzando por el bit
; MSB. El byte a transmitir debe estar cargado previamente en el registro de trabajo W.
; De la subrutina ejecutada anteriormente I2C_EnviaStart o esta misma I2C_EnviaByte,
; la línea SCL se debe encontrar a nivel bajo al menos durante 5 µs.
;
I2C_EnviaByte
   movwf   I2C_Dato            ; Almacena el byte a transmitir.
   movlw   0x08               ; A transmitir 8 bits.
   movwf   I2C_ContadorBits
I2C_EnviaBit
   rlf      I2C_Dato,F            ; Chequea el bit, llevándolo previamente al Carry.
   btfsc   STATUS,C
   goto   I2C_EnviaUno
I2C_EnviaCero
   call   SDA_Bajo            ; Si es "0" envía un nivel bajo.
   goto   I2C_FlancoSCL
I2C_EnviaUno
   call   SDA_AltaImpedancia      ; Si es "1" lo activará a alto.
I2C_FlancoSCL
   call   SCL_AltaImpedancia      ; Flanco de subida del SCL.
   call   Retardo_4micros         ; Tiempo tHIGH del protocolo.
   call   SCL_Bajo            ; Termina el semiperiodo positivo del reloj.
   call   Retardo_4micros         ; Tiempo tHD;DAT del protocolo.
   decfsz   I2C_ContadorBits,F      ; Lazo para los ocho bits.
   goto   I2C_EnviaBit
;
   call   SDA_AltaImpedancia      ; Libera la línea de datos.
   call   SCL_AltaImpedancia      ; Pulso en alto de reloj para que el esclavo
   call   Retardo_4micros         ; pueda enviar el bit ACK.
   call   SCL_Bajo
   call   Retardo_4micros
   return
;
; Subrutina "I2C_LeeByte" ---------------------------------------------------------------
;
; El microcontrolador maestro lee un byte desde el esclavo conectado al bus I2C. El dato
; recibido se carga en el registro I2C_Dato y lo envía a la subrutina superior a través
; del registro W. Se empieza a leer por el bit de mayor peso MSB.
; De alguna de las subrutinas ejecutadas anteriormente I2C_EnviaStart, I2C_EnviaByte
; o esta misma I2C_LeeByte, la línea SCL lleva en bajo al menos 5 µs.

I2C_LeeByte
   movlw   0x08               ; A recibir 8 bits.
   movwf   I2C_ContadorBits
   call   SDA_AltaImpedancia      ; Deja libre la línea de datos.
I2C_LeeBit
   call   SCL_AltaImpedancia      ; Flanco de subida del reloj.
   bcf      STATUS,C            ; En principio supone que es "0".
   btfsc   SDA                  ; Lee el bit
   bsf      STATUS,C            ; Si es "1" carga 1 en el Carry.
   rlf      I2C_Dato,F            ; Lo introduce en el registro.
   call   SCL_Bajo            ; Termina el semiperiodo positivo del reloj.
   call   Retardo_4micros         ; Tiempo tHD;DAT del protocolo.
   decfsz   I2C_ContadorBits,F      ; Lazo para los 8 bits.
   goto   I2C_LeeBit
;
; Chequea si este es el último byte a leer para enviar o no el bit de reconocimiento
; ACK en consecuencia.
;
   btfss    I2C_UltimoByteLeer      ; Si es el último, no debe enviar
                           ; el bit de reconocimiento ACK.
   call   SDA_Bajo            ; Envía el bit de reconocimiento ACK
                           ; porque todavía no es el último byte a leer.
   call   SCL_AltaImpedancia      ; Pulso en alto del SCL para transmitir el
   call   Retardo_4micros         ; bit ACK de reconocimiento. Este es tHIGH.
   call   SCL_Bajo            ; Pulso de bajada del SCL.
   call   Retardo_4micros
   movf   I2C_Dato,W            ; El resultado se manda en el registro de
   return   


Estoy atascado en la EEPROM y el LCD. No quería participar al foro diciendo que tengo problemas en la programación. Me estoy buscando la vida y me cuesta resolver la situación. El problema es que al leer los datos de la EEPROM externa, en el LCD se repite el mismo mensaje por toda la pantalla. Estoy averiguando a toda costa que llevo días así y no logro una solución buena.

; ZONA DE DATOS **********************************************************************

TITLE "LCD Sensor PS2"
SUBTITLE "Revisión 1.00"
LIST P=16F886
INCLUDE <P16F886.INC>
__CONFIG    _CONFIG1, _LVP_OFF & _FCMEN_ON & _IESO_OFF & _BOR_OFF & _CPD_OFF & _CP_OFF & _MCLRE_ON & _PWRTE_ON & _WDT_OFF & _XT_OSC
__CONFIG    _CONFIG2, _WRT_OFF & _BOR21V

CBLOCK 0x20
Contador
Apuntador
ENDC

PAGINA_00 EQU 0x00 ;
PAGINA_01 EQU 0x01 ;
PAGINA_02 EQU 0x02 ;
PAGINA_03 EQU 0x03 ;
PAGINA_04 EQU 0x04 ;
PAGINA_05 EQU 0x05 ;
PAGINA_06 EQU 0x06 ;
PAGINA_07 EQU 0x07 ;
PAGINA_09 EQU 0x09 ; "                    " Línea .
PAGINA_0A EQU 0x0A ; "                    " Línea .
PAGINA_0B EQU 0x0B ; "                    " Línea .
PAGINA_0C EQU 0x0C ; "                    " Línea .
PAGINA_0D EQU 0x0D ; "                    " Línea .
PAGINA_0E EQU 0x0E ; "                    " Línea .
PAGINA_0D EQU 0x0D ; "                    " Línea .
PAGINA_0F EQU 0x0F ; "                    "

#DEFINE RESET_RC0 PORTC,0
#DEFINE EJECT_RC1 PORTC,1
#DEFINE OPEN_RC2 PORTC,2
#DEFINE CLOSE_RC3 PORTC,3
#DEFINE GREEN_RC4 PORTC,4
#DEFINE RED_RC5 PORTC,5
#DEFINE Auxiliar_6 PORTC,6
#DEFINE Auxiliar_7 PORTC,7

; ZONA DE CÓDIGOS ********************************************************************

ORG 0 ; El programa comienza en la dirección 0.

Inicio
call LCD_Inicializa
BANKSEL TRISC ; Banco 1.
bsf RESET_RC0 ; Se configura como entradas.
bsf EJECT_RC1
bsf OPEN_RC2
bsf CLOSE_RC3
bsf GREEN_RC4
bsf RED_RC5
bsf Auxiliar_6
bsf Auxiliar_7
BANKSEL PORTC ; Banco 0.
clrw
clrf Apuntador ; Inicializa el contador
Principal
movlw PAGINA_01
call M24LC256_Mensaje_a_LCD
call Retardo_2s
goto Principal

movf PORTC,W ; Lee los sensores.
andlw b'00111111' ; Máscara para quedarse con el valor de los sensores.
addwf PCL,F ; Salta a la configuración adecuada.
goto Configuracion0 ; 0 0 0 0 0 0
goto Configuracion1 ; 0 0 0 0 0 1
goto Configuracion2 ; 0 0 0 0 1 0
goto Configuracion3 ; 0 0 0 0 1 1
goto Configuracion4 ; 0 0 0 1 0 0
goto Configuracion5 ; 0 0 0 1 0 1
goto Configuracion6 ; 0 0 0 1 1 0
goto Configuracion7 ; 0 0 0 1 1 1
goto Configuracion8 ; 0 0 1 0 0 0
goto Configuracion9 ; 0 0 1 0 0 1
goto Configuracion10 ; 0 0 1 0 1 0
goto Configuracion11 ; 0 0 1 0 1 1
goto Configuracion12 ; 0 0 1 1 0 0
goto Configuracion13 ; 0 0 1 1 0 1
goto Configuracion14 ; 0 0 1 1 1 0
goto Configuracion15 ; 0 0 1 1 1 1
goto Configuracion16 ; 0 1 0 0 0 0
goto Configuracion17 ; 0 1 0 0 0 1
goto Configuracion18 ; 0 1 0 0 1 0
goto Configuracion19 ; 0 1 0 0 1 1
goto Configuracion20 ; 0 1 0 1 0 0
goto Configuracion21 ; 0 1 0 1 0 1
goto Configuracion22 ; 0 1 0 1 1 0
goto Configuracion23 ; 0 1 0 1 1 1
goto Configuracion24 ; 0 1 1 0 0 0
goto Configuracion25 ; 0 1 1 0 0 1
goto Configuracion26 ; 0 1 1 0 1 0
goto Configuracion27 ; 0 1 1 0 1 1
goto Configuracion28 ; 0 1 1 1 0 0
goto Configuracion29 ; 0 1 1 1 0 1
goto Configuracion30 ; 0 1 1 1 1 0
goto Configuracion31 ; 0 1 1 1 1 1
goto Configuracion32 ; 1 0 0 0 0 0
goto Configuracion33 ; 1 0 0 0 0 1
goto Configuracion34 ; 1 0 0 0 1 0
goto Configuracion35 ; 1 0 0 0 1 1
goto Configuracion36 ; 1 0 0 1 0 0
goto Configuracion37 ; 1 0 0 1 0 1
goto Configuracion38 ; 1 0 0 1 1 0
goto Configuracion39 ; 1 0 0 1 1 1
goto Configuracion40 ; 1 0 1 0 0 0
goto Configuracion41 ; 1 0 1 0 0 1
goto Configuracion42 ; 1 0 1 0 1 0
goto Configuracion43 ; 1 0 1 0 1 1
goto Configuracion44 ; 1 0 1 1 0 0
goto Configuracion45 ; 1 0 1 1 0 1
goto Configuracion46 ; 1 0 1 1 1 0
goto Configuracion47 ; 1 0 1 1 1 1
goto Configuracion48 ; 1 1 0 0 0 0
goto Configuracion49 ; 1 1 0 0 0 1
goto Configuracion50 ; 1 1 0 0 1 0
goto Configuracion51 ; 1 1 0 0 1 1
goto Configuracion52 ; 1 1 0 1 0 0
goto Configuracion53 ; 1 1 0 1 0 1
goto Configuracion54 ; 1 1 0 1 1 0
goto Configuracion55 ; 1 1 0 1 1 1
goto Configuracion56 ; 1 1 1 0 0 0
goto Configuracion57 ; 1 1 1 0 0 1
goto Configuracion58 ; 1 1 1 0 1 0
goto Configuracion59 ; 1 1 1 0 1 1
goto Configuracion60 ; 1 1 1 1 0 0
goto Configuracion61 ; 1 1 1 1 0 1
goto Configuracion62 ; 1 1 1 1 1 0
goto Configuracion63 ; 1 1 1 1 1 1
Configuracion0
movlw PAGINA_00 ; Lee a partir de la dirección 00 de esta página
call M24LC256_Mensaje_a_LCD ; de la memoria.
goto ActivaSalida
Configuracion1
goto ActivaSalida
Configuracion2
goto ActivaSalida
Configuracion3
goto ActivaSalida
Configuracion4
goto ActivaSalida
Configuracion5
goto ActivaSalida
Configuracion6
goto ActivaSalida
Configuracion7
goto ActivaSalida
Configuracion8
goto ActivaSalida
Configuracion9
goto ActivaSalida
Configuracion10
goto ActivaSalida
Configuracion11
goto ActivaSalida
Configuracion12
goto ActivaSalida
Configuracion13
goto ActivaSalida
Configuracion14
goto ActivaSalida
Configuracion15
goto ActivaSalida
Configuracion16
goto ActivaSalida
Configuracion17
goto ActivaSalida
Configuracion18
goto ActivaSalida
Configuracion19
goto ActivaSalida
Configuracion20
goto ActivaSalida
Configuracion21
goto ActivaSalida
Configuracion22
goto ActivaSalida
Configuracion23
goto ActivaSalida
Configuracion24
goto ActivaSalida
Configuracion25
goto ActivaSalida
Configuracion26
goto ActivaSalida
Configuracion27
goto ActivaSalida
Configuracion28
goto ActivaSalida
Configuracion29
goto ActivaSalida
Configuracion30
goto ActivaSalida
Configuracion31
goto ActivaSalida
Configuracion32
goto ActivaSalida
Configuracion33
goto ActivaSalida
Configuracion34
goto ActivaSalida
Configuracion35
goto ActivaSalida
Configuracion36
goto ActivaSalida
Configuracion37
goto ActivaSalida
Configuracion38
goto ActivaSalida
Configuracion39
goto ActivaSalida
Configuracion40
goto ActivaSalida
Configuracion41
goto ActivaSalida
Configuracion42
goto ActivaSalida
Configuracion43
goto ActivaSalida
Configuracion44
goto ActivaSalida
Configuracion45
goto ActivaSalida
Configuracion46
goto ActivaSalida
Configuracion47
goto ActivaSalida
Configuracion48
goto ActivaSalida
Configuracion49
goto ActivaSalida
Configuracion50
goto ActivaSalida
Configuracion51
goto ActivaSalida
Configuracion52
goto ActivaSalida
Configuracion53
goto ActivaSalida
Configuracion54
goto ActivaSalida
Configuracion55
goto ActivaSalida
Configuracion56
goto ActivaSalida
Configuracion57
goto ActivaSalida
Configuracion58
goto ActivaSalida
Configuracion59
goto ActivaSalida
Configuracion60
goto ActivaSalida
Configuracion61
goto ActivaSalida
Configuracion62
goto ActivaSalida
Configuracion63
goto ActivaSalida
ActivaSalida
; movwf PORTB
goto Principal

;
; "Mensajes" ----------------------------------------------------------------------------
;
Mensajes
addwf PCL,F
Mensaje1
DT "aaaaaaaaaaaaaaaaaaaa", 0x00
Mensaje2
DT "bbbbbbbbbbbbbbbbbbbb", 0x00
Mensaje3
DT "cccccccccccccccccccc", 0x00
Mensaje4
DT "dddddddddddddddddddd", 0x00
Mensaje5
DT "e", 0x00
Mensaje6
DT "M", 0x00
Mensaje7
DT "S", 0x00
Mensaje8
DT "M", 0x00
;

FinTabla
;MensajeAnuncio
; DT " fgfd ", 0x00

IF (FinTabla > 0xFF)
ERROR "¡CUIDADO!: La tabla ha superado el tamaño de la página de los"
MESSG "primeros 256 bytes de memoria ROM. NO funcionará correctamente."
ENDIF

INCLUDE <BIN_BCD.INC>
INCLUDE  <BUS_I2C.INC> ; Subrutinas de control del bus I2C.
INCLUDE  <M24LC256.INC> ; Subrutinas de control de la memoria 24LC256.
INCLUDE  <LCD_4BIT.INC>
INCLUDE  <LCD_MENS.INC>
INCLUDE  <RETARDOS.INC>
END


He logrado que cada vez que se muestre un mensaje nuevo, borra el anterior aunque esté en otra línea del LCD. Debo hacer que se muestre todos los mensajes que salga en cada líneas al mismo tiempo y sin fallos raros. Llevo así días y horas buscando solución. No te preocupes que no lo tengo avandonado y no lo haré. Desde que me funcione ya empezaré a comprarme el LCD 20x4 en este local bajo pedido. También el 16x2 azul para hacer lo del SwapChip. (La gente está muy en el PSJailBreak, deja que Sony sea capaz de quitarles la bobería volverán al proyecto del Swap que estábamos haciendo en otro sitio).

Espero que me quede este paso de la EEPROM que debo corregir antes de empezar ya a la programación de los sensores. Cuando acabe, les pasaré el archivo de simulación para que lo prueben. Cuando todo esté confirmado, haré los pedidos y lo empezaré a montar. Haré un buen manual en PDF de principio a fin.

Un abrazo.