/*
* Langzeittimer mit Watchdog-Interrupt
*
* Monoflop, wie Treppenlichautomat mit Langzeittimer, nachtriggerbar
* Autor: HildeK
*/
// Hinweis: WDTON unprogrammiert!

#define F_CPU 1e6

#include <avr/io.h>
#include <avr/interrupt.h> 
#include <avr/sleep.h>
#include <util/delay.h>
#include <avr/wdt.h>

#define WD_PRESCALE 	  8   // Prescaler-Einstellung (Einheit) von 0 (16ms) bis 9 (8s) [6: ca 1s]
#define TIME_MULTIPLY   2		// Faktor für Zeiteinheit

// Setup Funktion
#define RETRIGGERABLE	

volatile uint32_t l_wcount = 0; // einfach ungleich Null setzen, dann sleep nach Reset 

ISR(WDT_vect)
{
  l_wcount--;
}

ISR (INT0_vect)     // Interrupt zum Neustart und Setzen der Zeit   
  { 
  	l_wcount = TIME_MULTIPLY;  // Zeit festlegen
    GIMSK=0;
  }  

int main()
{
  uint8_t wd_timer_prescale;
  uint8_t wdt_flags;
  
 // Ports definieren
 /*
 PB1 (Pin 6) Output, MISO, Schaltsignal
 PB2 (Pin 7) Input,  Starttaste, SCK, INT0
 PB5 (Pin 1) Reset

 INT0 und Taste sind LOW-aktiv
 */

// Ports definieren
  PORTB  = 0x00;
  DDRB  = (1<<PB1);
  PORTB |= (1<<PB2) ;  //Pullup
 
// Power Save:  
  PRR = 0x0F; // PRTIM1, PRTIM0, PRUSI, PRADC == 1

// Power-Down Sleep Mode einstellen
  set_sleep_mode(SLEEP_MODE_PWR_DOWN);	// stromsparend, aufwecken über WD oder INT0
  sleep_enable(); 						// Schlafmodus vorbereiten

 sei();
// Externen Pin Level IRQ auf Low Level aktivieren
 MCUCR &= ~((1 << ISC00) | (1 << ISC01)); 
  
// Watchdog IRQ vorbereiten (Einstellung umrechnen)
 wd_timer_prescale = WD_PRESCALE;
 if (wd_timer_prescale > 9 ) wd_timer_prescale=9;
 wdt_flags=wd_timer_prescale & 7;
 if (wd_timer_prescale > 7) wdt_flags|= (1<<5);  // wdt_flags enthält den Prescalerwert (0 .. 9)
 wdt_flags |= (1<<WDCE);
 
// Hauptschleife
 while (1)
  { 
    if(l_wcount==0)
    {
      // WD-Timer ist 'l_wcount'-mal abgelaufen
      // Watchdog ausschalten, dann Dauerschlaf bis INT0
      PORTB &= ~(1 << PB1);
      MCUSR = 0;
      wdt_disable();   // Sequenz abgelaufen, WD deaktivieren
      // falls  bis zum Ende der Sequenz INT0 gedrückt wird
      GIMSK |= (1 << INT0);
      sleep_mode(); 				// hier schlafen bis zum nächsten INT0-IRQ (=Tastendruck), auch nach Reset
      while((PINB & (1<<PINB2)) ==0 ) {_delay_ms(50);} // einfache Entprellung
    }
	PORTB |=  (1 << PB1);
  // Watchdog wieder aktivieren
  WDTCR |= (1<<WDCE); 
  // set watchdog timeout value, start WD-IRQ
  WDTCR = wdt_flags | (1<<WDIE);
  #ifdef RETRIGGERABLE
  GIMSK |= (1 << INT0);
  #endif
	sleep_mode();  // sleep für WD-Timer
  }

}