// переменные в неинициализируемой области ОЗУ, чтобы start-up не обнулил
volatile __attribute__((section(".noinit"))) uint8_t mem;
volatile __attribute__((section(".noinit"))) uint8_t mcucsr;

// функция выполняется сразу после сброса еще до start-up кода Си
__attribute__((section(".init0"), naked)) void get_r10(void){
    register uint8_t r2 asm("r2");
    register uint8_t r3 asm("r3");
    register uint8_t r4 asm("r4");
    register uint8_t r5 asm("r5");
    register uint8_t r6 asm("r6");
    register uint8_t r7 asm("r7");
    mcucsr = MCUCSR;
    MCUCSR = 0;
    mem = r2 + r3 + r4 + r5 + r6 + r7;
}

int main(void){
    uint8_t mode = eeprom_read_byte((void*)12);
    // отладочный вывод
    printf_P(PSTR("\nSUM=%u EEPROM=%u"),mem, mode);
    if(mode == 0xFF){
        // первый старт после прошивки
        if(mcucsr & _BV(PORF)){
            // если холодный сброс - запоминание суммы в качестве критерия короткого отключения
            printf_P(PSTR("\nFirst run - INIT."));
            eeprom_write_byte((void*)12, mem);
        } else {
            // при теплом сбросе ничего не надо делать
            printf_P(PSTR("\nWarm reset - nothing to do"));
        }
    } else {
        // при любом последующем включении питания
        if(mem > mode){
            // с течением времени регистры заполняются единицами, поэтому сумма растет
            printf_P(PSTR("\nOld mode - long power off"));
        } else {
            // если сумма меньше, чем была - запомним ее в качестве критерия
            eeprom_write_byte((void*)12, mem);
            printf_P(PSTR("\nNew mode - short power off"));
        }
    }
    // очищаем регистры
    asm volatile(
            "clr r0 \n"
            "clr r1 \n"
            "clr r2 \n"
            "clr r3 \n"
            "clr r4 \n"
            "clr r5 \n"
            "clr r6 \n"
            "clr r7 \n"
            );
    // ждем отключения
    while(1);
}

#include <ioavr.h>
#include <intrinsics.h>

volatile __regvar __no_init unsigned char mode @ 15;
volatile __regvar __no_init unsigned char power_low_counter @ 14;
volatile __regvar __no_init unsigned int adc_c @ 12;

__no_init __eeprom unsigned char ee_mode;

#ifdef __cplusplus
extern "C" {
#endif
char __low_level_init()
{
  CLKPR|=(1<<CLKPCE);
  CLKPR=3; //Снизим тактовую частоту до 9.6/8 МГц
  
  DDRB=(0<<DDB5)|(0<<DDB4)|(0<<DDB3)|(0<<DDB2)|(1<<DDB1)|(1<<DDB0);
  PORTB=(0<<PORTB5)|(0<<PORTB4)|(0<<PORTB3)|(0<<PORTB1)|(0<<PORTB0);
  
  ACSR=(1<<ACD); //Analog Comparator Disable
  DIDR0=(1<<ADC0D)|(0<<ADC1D)|(1<<ADC2D)|(1<<ADC3D)|(1<<AIN1D)|(1<<AIN0D);
  PRR=(1<<PRTIM0)|(0<<PRADC);
  
  ADMUX=(1<<REFS0)| 1; // Vref=1.1V , ADC1
  ADCSRA=(1<<ADEN)|(0<<ADSC)|(1<<ADATE)|(0<<ADIF)|(1<<ADIE)|(0<<ADPS2)|(1<<ADPS1)|(1<<ADPS0);
  ADCSRB=0;      
  
  return 1;
}
#ifdef __cplusplus
}
#endif

#pragma vector=ADC_vect
__interrupt void ADC_Interrupt(void)
{  
  switch(mode)
  {
    case 0: // Яркость 100%
      if(ADC<600) power_low_counter++; else power_low_counter=0;
      if(power_low_counter>100) { ee_mode=0; mode=2; power_low_counter=0; }
      PORTB|=(1<<PORTB1);
      PORTB|=(1<<PORTB0);      
      break;
    case 1: // Яркость 40%
      if(ADC<600) power_low_counter++; else power_low_counter=0;
      if(power_low_counter>100) { ee_mode=1; mode=2; power_low_counter=0; }
      PORTB|=(1<<PORTB0);
      PORTB&=~(1<<PORTB1);
      break;
    case 2: // Яркость 4%
      if(ADC<558) power_low_counter++; else power_low_counter=0;
      if(power_low_counter>100) { ee_mode=2; mode++; }
      PORTB&=~(1<<PORTB1);
      PORTB|=(1<<PORTB0);
      __delay_cycles(10);      
      PORTB&=~(1<<PORTB0);
      break;
    default: // Защитное выключение
      PORTB&=~(1<<PORTB1);
      PORTB&=~(1<<PORTB0);
      MCUCR=(1<<SE)|(2<<SM0); //Power Down
      __sleep();
      break;
  }
};

int main( void )
{  
  __delay_cycles(100000);
  adc_c=0;  
  mode=ee_mode;
  switch(mode)
  {
    case 0:
    case 1:
      ee_mode++;
      break;
    default:
      mode=2;      
      ee_mode=0;
      break;
  }  
  power_low_counter=0;

  ADCSRA|=(1<<ADSC);  
  __enable_interrupt();
  for(;;)  
  {  
    MCUCR=(1<<SE)|(1<<SM0); //Sleep
    __sleep();
    if(adc_c<16000) adc_c++;
    else
    {
      if(adc_c==16000)
      {
        __disable_interrupt();
        PORTB&=~(1<<PORTB1);
        PORTB&=~(1<<PORTB0);
        adc_c++;        
        ee_mode=mode;
        __delay_cycles(75000);
        __enable_interrupt();
      }
    }  
  }
}