void rtc_get_time(rtc_type *rtc_var)
{
    i2c_start();
    i2c_write_addr(DS1307_ADDR | WR);
    i2c_write(0x00);
    i2c_start();
    i2c_write_addr(DS1307_ADDR | RD);

    rtc_var->seconds = bcd2dec(i2c_read(ACK) & 0x7F);
    rtc_var->minutes = bcd2dec(i2c_read(ACK));
    rtc_var->hours = bcd2dec(i2c_read(ACK) & 0x3F);

    rtc_var->weekday = i2c_read(ACK) & 0x07;

    rtc_var->day = bcd2dec(i2c_read(ACK));
    rtc_var->month = bcd2dec(i2c_read(ACK));
    rtc_var->year = bcd2dec(i2c_read(NOT_ACK)) + 2002;

    i2c_stop();
    return;
}

void i2c_delay(void)
{
    if (i2c_error)
        return;
    for (unsigned char i = 0; i < 100; i++) {
        if (TWCR & (1 << TWINT))
            return;
    _delay_loop_1(0.000001 * F_CLK);
    }
    i2c_error = 1;
}

void i2c_init(void)
{
    TWSR = 0;
    TWDR = 0;
    TWAR = 0;
    TWBR = TWI_TWBR; //установить скорость шины i2c
    TWCR = ((1 << TWEN) | (1 << TWINT)); //включить модуль i2c
    i2c_error = 0; //первоначально ошибок нет
    return;
}

unsigned char i2c_error;
void i2c_start(void)
{
    if (i2c_error)
        return;
    TWCR = ((1 << TWEN) | (1 << TWINT) | (1 << TWSTA));
    i2c_delay();
    if ((TWSR != START) && (TWSR != REP_START))
        i2c_error = 1;
    return;
}
void i2c_delay(void)
{
    if (i2c_error)
        return;
    for (unsigned char i = 0; i < 100; i++) {
        if (TWCR & (1 << TWINT))
            return;
        _delay_loop_1(0.000001 * F_CLK);
    }
    i2c_error = 1;
    return;
}

  ldi      temp, (1<<TWINT)|(1<<TWSTA)|(1<<TWEN); формирование сигнала START
          sts      TWCR, temp

;*************************************************
;*                                               *
;*       Подпрограмма Init TWI_START             *
;*     Формирование START и проверка ответа.     *
;*                                               *
;*                                               *
;*************************************************

TWI_START:
        
           ldi      temp, (1<<TWINT)|(1<<TWSTA)|(1<<TWEN); формирование сигнала START
       sts      TWCR, temp
        
waitST:
        lds      temp,TWCR   ; Проверка бита TWINT
        sbrs     temp,TWINT
        rjmp     waitST                                    ; Не получен -цикл
        lds    temp,TWSR; Проверка кода ответа
        andi    temp,$F8    ;
        cpi    temp,START                            ;code=08
        breq    RETURN     ; Правильный код -выход из подпрограммы
        brne    TWI_START                             ; Нет - повтор.
RETURN:    ret