void Calibration(void)
{
  unsigned char calibrate = 0;
  int temp;
  unsigned char tempL;
  CLKPR = _BV(CLKPCE); /* Устанавливаем разряд разрешения
                                        изменения кооэффициента масштабирования
                                        частоты генератора в регистре CLKPR
                                        микроконтр. Это специальные регистры ATmega169 */
  CLKPR = _BV(CLKPS1) | _BV(CLKPS0);  // Коэффициент деления 8
                                      // Внутрений RC 8Mгц / 8 = 1Мгц

  TIMSK2 = 0;       //сбрасываем разряды OCIE2A и TOIE2
  ASSR = _BV(AS2);  // Использование внешнегом кварца 32768 кГц для T/C2
  OCR2A = 200;      //Использование регистра сравнения А T/C2
  TIMSK0 = 0;       // Удаляем все источники прерывания
  TCCR1B = _BV(CS10); // Запускаем T/C1 без предделителя
  TCCR2A = _BV(CS20);  // Запускаем T/C2 без предделителя
  while((ASSR & 0x01) | (ASSR & 0x04)); // Ожидание сброса  рязрядов TCN2UB и TCR2UB
  for(int i = 0; i < 10; i++)
    _delay_loop_2(30000);   // Ожидание стабилизации внешнего генератора
  while(!calibrate)
  {
//////////////////////// этот блок написан как рекомндует ATMEL///////////
    cli();                                                              //
    TIFR1 = 0xFF;    // Удаление флагов                                 //
    TIFR2 = 0xFF;                                                       //
    TCNT1H = 0;   // Обнуляем счетный регистр
    TCNT1L = 0;
    TCNT2 = 0;    // Обнуляем счетный регистр
    while ( !(TIFR2 && (1<<OCF2A)) ); //
    TCCR1B = 0;                                                           //
    sei();                                                                //
////////////////////////////////////////////////////////////////////////////
    if ( (TIFR1 && (1<<TOV1)) ) // Если переполнение счетчика
    {
      temp = 0xFFFF;
    }
    else   // Если переполнения нет то считываем
    {
      tempL = TCNT1L;
      temp = TCNT1H;
      temp = (temp << 8);
      temp += tempL;
    }
    if (temp > 6250) //если внутренний генератор "спешит" ...
    {
      OSCCAL--;  //уменьшаем значение регистра калибровки
    }
    else if (temp < 6120) // если отстает
    {
      OSCCAL++;  //увеличиваем
    }
    else
      calibrate = 1; // частота коректна
    TCCR1B = _BV(CS10);
  }
}

int ms_cnt = 0;

ISR32768_1s()
{
    if (ms_cnt > 1000)
       OSCCAL -= 1;
    else if (ms_cnt < 1000)
       OSCCAL += 1;
    ms_cnt = 0;
}


ISR_1ms()
{
     ms_cnt++;
}