READ & WRITE EEPROM PIC 16F877A

Carpeta con los archivos (Diagrama, codigo y hex): https://www.dropbox.com/s/dv8lauogsz24nhc/eeprom%2024LC6B.zip Los archivos que vienen dentro del RAR son: .asm-Ensamblador .list-Lista de instruciones .Bas-Este es el que se abre en Pic Simulator IDE Programa para descargar: http://www.oshonsoft.com/downloadspage.php CODIGO PARA PIC SIMULATOR IDE: //////////////////////////////////////////////////////////////////////////// Define CONF_WORD = 0x3f72 Define CLOCK_FREQUENCY = 12 AllDigital Define LCD_BITS = 8 Define LCD_DREG = PORTB Define LCD_DBIT = 0 Define LCD_RSREG = PORTD Define LCD_RSBIT = 5 Define LCD_RWREG = PORTD Define LCD_RWBIT = 6 Define LCD_EREG = PORTD Define LCD_EBIT = 7 Define LCD_READ_BUSY_FLAG = 1 Lcdinit Symbol scl = PORTC.3 Symbol sda = PORTC.4 Dim addr As Byte Dim data As Byte Lcdout "ING. MECATRONICA" Lcdcmdout LcdLine2Home Lcdout "24LC16B EEPROM" WaitMs 1000 inicio: For addr = 0 To 5 Lcdcmdout LcdClear data = 255 - addr I2CWrite sda, scl, 0xa0, addr, data Lcdout "WRITE TO EEPROM" Lcdcmdout LcdLine2Home Lcdout "(", #addr, ") =