void I2C_Slave(void)
{
    RCC_APB1PeriphClockCmd(RCC_APB1Periph_I2C1, ENABLE); // Вкл. тактирование модуля I2C.
    RCC_AHBPeriphClockCmd(RCC_AHBPeriph_GPIOA, ENABLE);

    {
        GPIO_InitTypeDef gpio;
        // Настройка порта в/в.
        GPIO_StructInit(&gpio);
        gpio.GPIO_Pin = GPIO_Pin_9 | GPIO_Pin_10; // Настройки относятся к выводам 9 и 10.
        gpio.GPIO_Mode = GPIO_Mode_AF;   // Альтернативная функция порта
        gpio.GPIO_PuPd = GPIO_PuPd_UP;   // Включены подтягивающие резисторы к плюсу.
        gpio.GPIO_OType = GPIO_OType_OD; // Выход с открытым стоком.
        GPIO_Init(GPIOA, &gpio);         // Применение этих настроек к выбранным выводам GPIOA.

        // Альтернативная функция выводов 9 и 10 порта GPIOA - выводы модуля I2C.
        GPIO_PinAFConfig(GPIOA, GPIO_PinSource9, GPIO_AF_4);  // SCL.
        GPIO_PinAFConfig(GPIOA, GPIO_PinSource10, GPIO_AF_4); // SDA.

    }

    {
        I2C_InitTypeDef i2c;

        RCC_I2CCLKConfig(RCC_I2C1CLK_HSI); // Модуль I2C тактируется от HSI.

        I2C_StructInit(&i2c);
        i2c.I2C_OwnAddress1 = 0x20; // Адрес устройства.
        i2c.I2C_Ack = I2C_Ack_Enable;
        i2c.I2C_Timing = 0x00100346;
        i2c.I2C_AcknowledgedAddress = I2C_AcknowledgedAddress_7bit;

        I2C_Init(I2C1, &i2c);
    }

    {
        NVIC_InitTypeDef NVIC_I;

        // Настройка прерывания от I2C.
        NVIC_I.NVIC_IRQChannel = I2C1_IRQn;
        NVIC_I.NVIC_IRQChannelPriority = 0; // Приоритет прерывания (0 - 3. 0 - наивысший, 3 - наименьший).
        NVIC_I.NVIC_IRQChannelCmd = ENABLE; // Разрешаем прерывание.

        NVIC_Init(&NVIC_I); // Разрешение прерываний.

        // Разрешение прерываний при ошибке, обнаружении стоп-бита, совпадении адреса, при приеме и передаче.
        I2C_ITConfig(I2C1, (I2C_IT_ERRI|I2C_IT_STOPI|I2C_IT_ADDRI|I2C_IT_RXI |I2C_IT_TXI), ENABLE);
    }

    I2C_Cmd(I2C1, ENABLE); // Запуск модуля I2C.
}

void I2C1_IRQHandler(void) // Обработчик прерываний от I2C1.
{
    static uint8_t Cmd=0;          // Текущая команда.
    static uint8_t InFlag = RESET; // Разрешение приема данных.
    static uint8_t Temp;



    if (I2C_GetITStatus(I2C1, I2C_IT_STOPF)) // Обнаружен стоп флаг.
    {
        I2C_ClearITPendingBit (I2C1,I2C_IT_STOPF);

        InFlag = RESET;

        if ((InPack.Pos == 4) && (Cmd == Cmd_SetCounter))
        {
            TIM_SetCounter(TIM2, InPack.Counter);
        }

        InPack.Pos = 0;


       I2C_SoftwareResetCmd(I2C1);
    }


    if (I2C_GetITStatus(I2C1, I2C_IT_RXNE))  // Приняты данные.
    {
        Temp = I2C_ReceiveData(I2C1);

        if (InPack.Pos==-1)
        {
           Cmd = Temp;
           InPack.Pos=0;
        }
        else if ((InPack.Pos>=0) && (InPack.Pos < 4))
        {
           if (InFlag == SET)
           {
               InPack.Byte[InPack.Pos] = Temp;
               InPack.Pos++;
           }
        }
        else InFlag = RESET;

        OutPack.Pos=-1;

    }


    if (I2C_GetITStatus(I2C1, I2C_IT_TXIS)) // Нужно отправить данные.
    {
        I2C_ClearITPendingBit(I2C1, I2C_IT_TXIS);

        if ((Cmd==Cmd_GetCounter) && (OutPack.Pos>=0) && (OutPack.Pos<4))
        {
           I2C_SendData(I2C1, OutPack.Byte[OutPack.Pos]);
           OutPack.Pos++;
        }
        else
        {
            I2C_SendData(I2C1, 0); // Что-то пошло не так.
        }

    }


    if (I2C_GetITStatus(I2C1, I2C_IT_ADDR))  // Совпал адрес.
    {
        I2C_ClearITPendingBit(I2C1, I2C_IT_ADDR);

        uint16_t Received = I2C_GetTransferDirection(I2C1);

        if (Received == I2C_Direction_Transmitter) // Данные передаются мастером в I2C Slave.
        {
            InFlag = SET; // Прием данных разрешен.
            OutPack.Pos = -1;
            InPack.Pos = -1;
        }
        else  // Данные принимаются мастером от I2C Slave.
        {
            OutPack.Pos = 0;
            if ((Cmd != 0) && (InPack.Pos==0))
            {
                switch (Cmd)
                {
                case Cmd_GetCounter:
                    OutPack.Counter = TIM_GetCounter(TIM2); // Текущее значение счетчика таймера.
                    OutPack.Pos = 0;
                    break;
                case Cmd_SetCounter:
                    InPack.Counter = 0;
                    InPack.Pos = 0;
                    break;
                default:
                    OutPack.Pos = -1;
                    break;
                }
            }
        }

    }


    if ((I2C_GetITStatus(I2C1,I2C_IT_BERR)) || (I2C_GetITStatus(I2C1, I2C_IT_ARLO))) // Ошибка на шине I2C.
    {
        I2C_ClearITPendingBit(I2C1, I2C_IT_BERR);
        I2C_ClearITPendingBit(I2C1, I2C_IT_ARLO);

        InFlag = RESET;
        InPack.Pos = 0;
        OutPack.Pos=-1;
    }

}

$regfile = "m328pdef.dat"                         ' ATmega328P.
$crystal = 16000000                               ' 16 МГц.
$hwstack = 128
$swstack = 128
$framesize = 128

$baud = 9600

Const Read_data = &H21
Const Write_data = &H20

Const Cmd_setcounter = 1                          ' Установка счетчика таймера. Нужно передать I2C Slave 4 байта.
Const Cmd_getcounter = 2                          ' Считывание счетчика таймера. Нужно прочитать из I2C Slave 4 байта.

Config Base = 0                                   ' Индексация массивов начинается с 0.
Config Submode = New
Config Clockdiv = 1

Config Int0 = Rising
On Int0 Int_0
Enable Int0

$lib "i2c_twi.lbx"

Config Sda = Portc.4                              ' we need to provide the SDA pin name
Config Scl = Portc.5                              ' we need to provide the SCL pin name
I2cinit
Config Twi = 400000                               ' wanted clock frequency when using $lib

Dim Count As Long
Dim Count_arr(4) As Byte At Count Overlay
Dim Data_flag As Byte

Count = 100
Data_flag = 0

Enable Interrupts

Sub I2c_write()
  Local I As Byte

  I2cstart

  I2cwbyte Write_data
  I2cwbyte Cmd_setcounter

  For I = 0 To 3
    I2cwbyte Count_arr(i)
  Next

  I2cstop

End Sub


Sub I2c_read()
  Local I As Byte

  Count = 0

  I2cstart

  I2cwbyte Write_data
  I2cwbyte Cmd_getcounter

  I2crepstart

  I2cwbyte Read_data

  I2crbyte Count_arr(0) , Ack
  I2crbyte Count_arr(1) , Ack
  I2crbyte Count_arr(2) , Ack
  I2crbyte Count_arr(3) , Nack

  I2cstop

End Sub


I2c_write

Do

  If Data_flag = 1 Then
    Data_flag = 0
    I2c_read
    Print Count
  End If

  Waitms 10

Loop
End

Int_0:
  Data_flag = 1
Return