DEFINE I2C_SCLOUT 1 ;para que no necesite resistencia pull-up en SCL
DEFINE LCD_DREG PORTB ; define pines del LCD B4 a B7
DEFINE LCD_DBIT 0 ; empezando desde el Puerto B4 hasta el B7
DEFINE LCD_RSREG PORTB ;define el puerto B para conectar el bit RS
DEFINE LCD_RSBIT 5 ;este es el puerto B3
DEFINE LCD_EREG PORTB ;define el puerto B para conectar el bit Enable
DEFINE LCD_EBIT 4 ;este es el puerto B2
escribir CON %10100000 ;escribir en eeprom 24c32a
lectura con %10100000 ;leer desde eeprom 24c32a
PinSCL VAR Portb.7 ;pin señal de reloj I2C
PinSDA VAR Portb.6 ;pin de datos I2C
dato VAR byte ;variable para almacenar dato leído
Inicio:
LCDOUT $fe,1," Grabando..." ;limpiar y sacar el texto en LCD
PAUSE 1000
I2CWRITE PinSDA,PinSCL,escribir,0,["1"] ;guarda la H en posición 0
PAUSE 100 ;pause para la grabación
I2CWRITE PinSDA,PinSCL,escribir,1,[2] ;guarda la O en posición 1
PAUSE 100 ;pause para la grabación
I2CWRITE PinSDA,PinSCL,escribir,2,[$3] ;guarda la L en posición 2
PAUSE 100 ;pause para la grabación
I2CWRITE PinSDA,PinSCL,escribir,3,["a"] ;guarda la A en posición 3
PAUSE 100 ;pause para la grabación
LCDOUT $fe,1,"Leer memoria" ;limpiar y sacar el texto en LCD
PAUSE 1000
LCDOUT $FE,1 ;limpiar pantalla del LCD
leer: ;programa para leer la memoria serial.
I2CREAD PinSDA,PinSCL,lectura,0,[dato] ;leer la mem. 0 y guardar en dato
LCDOUT, dato ;mostrar dato en el LCD
PAUSE 1000 ;esperar 1 seg.
I2CREAD PinSDA,PinSCL,lectura,1,[dato] ;leer la mem. 1 y guardar en dato
LCDOUT, dato ;mostrar dato en el LCD
PAUSE 1000 ;esperar 1 seg.
I2CREAD PinSDA,PinSCL,lectura,2,[dato] ;leer la mem. 2 y guardar en dato
LCDOUT, dato ;mostrar dato en el LCD
PAUSE 1000 ;esperar 1 seg.
I2CREAD PinSDA,PinSCL,lectura,3,[dato] ;leer la mem. 3 y guardar en dato
LCDOUT, dato ;mostrar dato en el LCD
PAUSE 1000
;*************estas lineas son unicamente para la simulacion**************
LCDOUT $fe,1,"fin de lectura" ;limpiar y sacar el texto en LCD
PAUSE 1000
LCDOUT $FE,1 ;limpiar pantalla del LCD
goto inicio
;*************estas lineas son unicamente para la simulacion**************
END