Device = 16F74 Xtal = 4 Declare SCL_Pin = PORTC.3 Declare SDA_Pin = PORTC.4 Dim Loop As Word ' ------------Установка связи с ЕЕПРОМ типа 24LC32 по интерфейсу I2C-------------- BStart ' Послать условие START BusOut %10100000 ' Послать на EEPROM команду записи BusOut 0 ' Отправить старший байт адреса BusOut 0 ' Отправить младший байт адреса For Loop = 0 To 100 ' Создать цикл заполняющий 101 ячейку eeprom BusOut 255 ' Послать значения FF на EEPROM Next ' Закрыть цикл BStop ' Послать условие STOP DelayMS 10 ' Ждать пока данные будут записаны в EEPROM Stop