'===============================================================================

  $map       ' Получаем карту распределения памяти компилятором Bascom
  $regfile = "m328pdef.dat"       'Документация Atmel - http://www.atmel.com/images/Atmel-8271- … mplete.pdf
  $crystal = 8000000
  $framesize = 32       ' Размер области используемой и необходимой для преобразований
  $hwstack = 40       ' Размер аппаратного стека
  $swstack = 16       ' Размер программного стека

  $baud = 4800 : Ucsr0a.1 = 1       ' Двойная скорость работы USART, скорость трансляции = $baud * 2

'===============================================================================
'                        Настраиваем шину I2c
'===============================================================================
Config Sda = Portc.4       ' Конфигурация порта для SDA
Config Scl = Portc.5       ' Конфигурация порта для SCL
Config I2cdelay = 1       ' Задержка I2c 10 - 100кгц , 5 - 200кгц , 2 - 500кгц , 1 - 1мгц " - для стабильной работы чем длиннее провода тем меньше частота"
I2cinit       ' Инициализация шины i2c

'===============================================================================
'                 Конфигурация внешней EEPROM 24LCxxx
'===============================================================================
  Const Lc24xxx_запись = &HA0       ' Адрес чтения EEPROM
  Const Lc24xxx_чтение = &HA1       ' Адрес записи EEPROM

  Dim Буфер_чтения_24lcxxx_low_byte As Byte
  Dim Буфер_чтения_24lcxxx_high_byte As Byte

  Dim Буфер_записи_24lcxxx_byte As Byte
  Dim Буфер_записи_24lcxxx_word As Word
  Dim Буфер_записи_24lcxxx_low_byte As Byte At Буфер_записи_24lcxxx_word Overlay
  Dim Буфер_записи_24lcxxx_high_byte As Byte At Буфер_записи_24lcxxx_word + 1 Overlay

  Dim Адрес_ячейки_24lcxxx_word As Word
  Dim Адрес_ячейки_24lcxxx_low As Byte At Адрес_ячейки_24lcxxx_word Overlay
  Dim Адрес_ячейки_24lcxxx_high As Byte At Адрес_ячейки_24lcxxx_word + 1 Overlay

'Используемые подпрограммы и функции
  Declare Function Read_lc24xxx_byte(byval Copy_adress_word As Word) As Byte
  Declare Function Read_lc24xxx_word(byval Copy_adress_word As Word) As Word
  Declare Sub Write_lc24xxx_byte(byval Copy_adress_word As Word , Byval Copy_data_byte As Byte)
  Declare Sub Write_lc24xxx_word(byval Copy_adress_word As Word , Byval Copy_data_word As Word)

'===============================================================================
'            И С П О Л Ь З У Е М Ы Е     П О Д П Р О Г Р А М М Ы
'===============================================================================

  Dim Адрес_word As Word

  Dim Переменная_byte As Byte
  Dim Переменная_word As Word

'--------------  Разрешаем работу необходимых прерываний  ----------------------

'------------  Разрешаем работу всех включенных прерываний  --------------------
'  Enable Interrupts
'===============================================================================
'                   Г Л А В Н Ы Й         Ц И К Л
  Главный_цикл:
'===============================================================================
      nop

      Переменная_byte = Read_lc24xxx_byte(адрес_word)

      Переменная_word = Read_lc24xxx_word(адрес_word)

      Write_lc24xxx_byte Адрес_word , Переменная_byte

      Write_lc24xxx_word Адрес_word , Переменная_word

'      Waitms 250

   'Power Adcnoise  -  нельзя использовать по причине неработы прерываний INT0 (смотреть документацию с.39 (Power Managementand Sleep Modes))
'    Idle
'===============================================================================
  Goto Главный_цикл
End
'                        П О Д П Р О Г Р А М М Ы
'===============================================================================

'===============================================================================
  Sub Write_lc24xxx_byte(byval Copy_adress_word As Word , Byval Copy_data_byte As Byte)
'-------------------------------------------------------------------------------
    Адрес_ячейки_24lcxxx_word = Copy_adress_word
    Буфер_записи_24lcxxx_byte = Copy_data_byte

    I2cstart       ' Стартуем
    I2cwbyte Lc24xxx_запись       ' Адресное обращение к микросхеме
    I2cwbyte Адрес_ячейки_24lcxxx_high       ' Отправляем старший байт адреса ячейки памяти
    I2cwbyte Адрес_ячейки_24lcxxx_low       ' Отправляем младший байт адреса ячейки памяти
    I2cwbyte Буфер_записи_24lcxxx_byte       ' Записываемый в EEPROM байт
    I2cstop       ' Освобождаем шину I2c

    Gosub Подтвержение_записи_lc24xxx
'-------------------------------------------------------------------------------
  End Sub
'===============================================================================

'===============================================================================
  Sub Write_lc24xxx_word(byval Copy_adress_word As Word , Byval Copy_data_word As Word)
'-------------------------------------------------------------------------------
    Адрес_ячейки_24lcxxx_word = Copy_adress_word
    Буфер_записи_24lcxxx_word = Copy_data_word

    I2cstart       ' Стартуем
    I2cwbyte Lc24xxx_запись       ' Адресное обращение к микросхеме
    I2cwbyte Адрес_ячейки_24lcxxx_high       ' Отправляем старший байт адреса ячейки памяти
    I2cwbyte Адрес_ячейки_24lcxxx_low       ' Отправляем младший байт адреса ячейки памяти
    I2cwbyte Буфер_записи_24lcxxx_high_byte       ' Записываемый в EEPROM байт
    I2cwbyte Буфер_записи_24lcxxx_low_byte       ' Записываемый в EEPROM байт
    I2cstop       ' Освобождаем шину I2c

    Gosub Подтвержение_записи_lc24xxx
'-------------------------------------------------------------------------------
  End Sub
'===============================================================================

'===============================================================================
  Function Read_lc24xxx_byte(byval Copy_adress_word As Word) As Byte
'-------------------------------------------------------------------------------
    Адрес_ячейки_24lcxxx_word = Copy_adress_word

    I2cstart       ' Стартуем
    I2cwbyte Lc24xxx_запись       ' Адресное обращение к микросхеме
    I2cwbyte Адрес_ячейки_24lcxxx_high
    I2cwbyte Адрес_ячейки_24lcxxx_low
    I2crepstart       ' Аналог команды "I2cstop-I2cstart", можно просто "I2cstart", но так надежнее
    I2cwbyte Lc24xxx_чтение       ' Адресное обращение к микросхеме
    I2crbyte Буфер_чтения_24lcxxx_low_byte , Nack       ' Считанный из EEPROM байт
    I2cstop       ' Освобождаем шину I2c

    Read_lc24xxx_byte = Буфер_чтения_24lcxxx_low_byte
'-------------------------------------------------------------------------------
  End Function
'===============================================================================

'===============================================================================
  Function Read_lc24xxx_word(byval Copy_adress_word As Word) As Word
'-------------------------------------------------------------------------------
    Адрес_ячейки_24lcxxx_word = Copy_adress_word

    I2cstart       ' Стартуем
    I2cwbyte Lc24xxx_запись       ' Адресное обращение к микросхеме
    I2cwbyte Адрес_ячейки_24lcxxx_high
    I2cwbyte Адрес_ячейки_24lcxxx_low
    I2crepstart       ' Аналог команды "I2cstop-I2cstart", можно просто "I2cstart", но так надежнее
    I2cwbyte Lc24xxx_чтение       ' Адресное обращение к микросхеме
    I2crbyte Буфер_чтения_24lcxxx_high_byte , Ack       ' Считанный из EEPROM байт
    I2crbyte Буфер_чтения_24lcxxx_low_byte , Nack       ' Считанный из EEPROM байт
    I2cstop       ' Освобождаем шину I2c

    Read_lc24xxx_word = Makeint(буфер_чтения_24lcxxx_low_byte , Буфер_чтения_24lcxxx_high_byte)
'-------------------------------------------------------------------------------
  End Function
'===============================================================================

'===============================================================================
  Подтвержение_записи_lc24xxx:       ' Подпрограмма для подтверждения записи данных в EEPROM
'-------------------------------------------------------------------------------
    I2cstart       ' Стартуем
    I2cwbyte Lc24xxx_запись       ' Адресное обращение к микросхеме
    If Err = 1 Then
        Goto Подтвержение_записи_lc24xxx       ' Ждем подтверждения окончания записи EEPROM
    End If
'-------------------------------------------------------------------------------
  Return
'===============================================================================