Va de nuez pana:
----------------------------------------------------------------------------------------------------------------
DEVICE=16F628
CONFIG INTRC_OSC_NOCLKOUT,WDT_OFF,PWRTE_ON,CP_OFF,BODEN_OFF,LVP_OFF,MCLRE_OFF
DECLARE LCD_DTPIN PORTA.0
DECLARE LCD_ENPIN PORTB.3
DECLARE LCD_RSPIN PORTA.4
DECLARE SDA_PIN PORTB.5
DECLARE SCL_PIN PORTB.1
ALL_DIGITAL=TRUE
PORTB_PULLUPS=ON
dim varx[3] as BYTE
dim vary[3] as byte
dim direccion as WORD
direccion=0
varx[0] ="a"
varx[1]="b"
varx[2]="c"
----------------------------------------------------------------------------------------------------------------
inicio:
cls
BUSOUT %10100000 , direccion , [ str varx3 ] "Solo direcciones consecutivas
delayms 10
BUSIN %10100001 , direccion, [ str vary3 ] "y lo mejor, solo una línea
print str vary
delayms 500
cls
goto inicio
---------------------------------------------------------------------------------------------------------------
Mas facil USA ARRAYS Y STRINGS PANA!!!!!!
Tu solo necesitas la de lectura:
BUSIN %10100001 , direccion, [ str vary3 ]
No uses for, eso te quita tiempo, solo usalo cuando leas de direcciones aleatorias seccionadas, en lugar de 3 pones 40 50 los strings quq quieras leer
En tu caso pon un margen de 25 en lugar de 3<---- me refiero a las strings
p.d.- esta es la ultima modificacion par que veas que realmente esta leyendo de la eeprom, en la anterior se podria uno engañar creyendo que al igualar(mov) las variables ya no lee de la eeprom
Salu2