/******************************************************************************************************
* Demoprogramm für die Verwendung von WD-Timer und WD-Reset gleichzeitig
* Plattform: Tiny25/45/85 
*
* LED-Anzeigen zur Programmverfolgung
* alle LED-Anzeigen im STK500: Low-Aktiv
*
* Funktion: 
* - zunächst für 1s Anzeige der Resetursachen
* - dann 4Hz-Blinken PB1 für 12.5s 
* - dann 20Hz-Blinken für 6s
* - Anzeige durch PB4: nächste 2s für den nächsten WDI und dann noch 2s bis zum WD Reset (Summe 10s)
* - Neustart des Programms durch WD
* - WD abschalten und Stop 
* - Anzeige WD-Reset WDRF in MCUSR
* - ENDE
*
* Nur WD-Timer: WDE nicht setzen!
* Nur WD-Reset: WDIE nicht setzen, keine WDT-ISR! WD muss zyklisch mit wdt_reset() bedient werden.
*
* 2.12.17 - HildeK
*******************************************************************************************************/

#define F_CPU 1E6

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

volatile uint8_t wd_flag = 0;

/*****************************/

ISR(WDT_vect)
{
	wd_flag = 1;
}

/*****************************/

int main()
{

	uint8_t i;

	cli(); // falls WD-Reset erfolgt ist: alle Interrupts ausschalten - weil in dem Programm (Demo!) nach WD-Reset angehalten werden soll.
	PORTB = 0xFF;	// Pulls und STK500-LEDs an PB0/1/2/3/4 => off
	DDRB = 31; 		// PB0/1/2/3/4 für LEDs

	if ((MCUSR & (1<<WDRF)) ) // Abfrage nach Resetgrund: war Watchdog-Reset-Event? Nach Power-Up oder ext. Reset: nein.
		{	
			// WD-Reset ist aufgetreten
			wd_flag=0;    	// falls nicht angehalten werden soll ...
			PORTB=~MCUSR; 	// MCUSR anzeigen: Resetgründe

			// alle Resetgründe zurücksetzen
			MCUSR=0;		// wegen korrekter MCUSR-Anzeige nach weiterem Start (MCUSR-Status überlebt externen Reset)	

			// WD abschalten, sonst gibt es laufend WD-Resets im folgenden Statement "while(1);"
			WDTCR |= (1<<WDCE) | (1<<WDE);  // timed Sequence
			WDTCR &= ~(1<<WDE);  			// oder auch WDTCR = 0; 
			// Alternativ: WD abschalten mit
			// wdt_disable();

			while(1); 	// hier ist Ende des Demoablaufs nach erstem WD-Reset
		}

	PORTB=~MCUSR;  // MCUSR anzeigen: Resetgründe
	_delay_ms(1000); // eine Sekunde Pause zur Anzeige
	MCUSR = 0;		// alle Resetgründe löschen
	PORTB = 0xFF;	// LEDs off

	sei();
		
	WDTCR |= (1<<WDP1) | (1<<WDP2) | (1<<WDP0); // WD-Timer auf 2 Sekunden einstellen
	WDTCR |= (1<<WDIE) | (1<<WDE);  // WD interrupt enable, Watchdog enable 

		for (i=0; i<100; i++)
		{
			_delay_ms(125);
			PORTB ^= (1<<PB1);  // 4Hz-Blinken für 12.5s
			// wdt_reset(); 	// würde den Aufruf der IRQ unterbinden --> keine Reaktion der LED an PB2
			if(wd_flag)   		// alle 2 Sekunden kommt WD-IRQ und setzt wd_flag --> langsames Blinken PB2
			{
				wd_flag = 0;  		// Flag zurücksetzen
				PORTB ^= (1<<PB2);  // anzeigen von WD-IRQ-Durchlauf
				WDTCR |= (1<<WDIE); // WD Interrupt Enable neu aktivieren - muss gemacht werden, solange Programm richtig läuft
									// nicht erforderlich für reine WD-Timer-Anwendungen mit WD-IRQ ohne WD-Reset (ohne WDE)
			}
		}

// Start einer Endlosschleife, zunächst mit WD-Retrigger, dann ohne.
	i=0;
	while(1)
	{
		PORTB ^= (1<<PB2);  // PB2 toggle 
		_delay_ms(25);		// schnelles Blinken ~20Hz PB2 bis WD-Reset erfolgt
		if (i<240) 
		{
			PORTB |= (1<<PB4);
			wdt_reset();  	// noch für 6s (240*25ms) den WD-Reset zurücksetzen, nach 2s gibt es dann einen WD IRQ und dann nach 2s den WD-Reset
			i++;
		}
		else 
		{
			// WD wird nicht mehr bedient
			// nach 1. WD-Timeout (2s) wird WD-IRQ ausgeführt, aber danach weder WDIE gesetzt noch wdt_reset()
			// nach 2. WD-Timeout (2s) erfolgt dann Watchdog-Reset
			PORTB &= ~(1<<PB4); // Anzeige PB4: --> WD-Reset erfolgt
		}
	}

}