#include <avr/io.h>
#include <avr/interrupt.h>
#include <stdint.h>

#define F_CPU 8000000UL     /* Interner Takt mit 8.0000 Mhz */
#ifndef F_CPU
/* Definiere F_CPU, wenn F_CPU nicht bereits vorher definiert 
   (z.B. durch Übergabe als Parameter zum Compiler innerhalb 
   des Makefiles). Zusätzlich Ausgabe einer Warnung, die auf die
   "nachträgliche" Definition hinweist */
#warning "F_CPU war noch nicht definiert, wird nun mit 3686400 definiert"
#endif

#include <util/delay.h>

#include <avr/eeprom.h>
#ifndef EEMEM
// alle Textstellen EEMEM im Quellcode durch __attribute__ ... ersetzen
#define EEMEM  __attribute__ ((section (".eeprom")))
#endif


volatile uint8_t merker;
volatile uint8_t zaehler;
uint8_t eeFooByte EEMEM = 123;
volatile uint16_t result;
volatile uint8_t i;

ISR (TIM0_OVF_vect)
{
	zaehler +=1;
	if (zaehler == 122)	//Ursprungswert 122
		{
		TCCR0B &= ~((1<<CS00)|(1<<CS01)|(1<<CS02));	//Timer ausschalten
		PORTA &= ~(1<<PA4);	//Fensterladen 1 anhalten
		PORTA &= ~(1<<PA5);	//Fensterladen 1 anhalten
		PORTA &= ~(1<<PA6);	//Fensterladen 2 anhalten
		PORTA &= ~(1<<PA7); //Fensterladen 2 anhalten
		}
}

void messung (volatile uint8_t kanal)
{
	ADMUX |= kanal;				//Kanal wählen
	ADMUX &= kanal;			//Kanal wählen
	ADMUX |= (1<<REFS1);				//Interne Referenzspannung Wählen

	for( i=0, result=0; i<4; i++ )
		{
			ADCSRA |= (1<<ADEN);
			ADCSRA |= (1<<ADSC);            // eine Wandlung "single conversion"
			while ( ADCSRA & (1<<ADSC) )
			{
			;   // auf Abschluss der Konvertierung warten
			}
			result += ADCH;		    // Wandlungsergebnisse aufaddieren
		}
		ADCSRA &= ~(1<<ADEN);             // ADC deaktivieren (2)
 
		result /= 4;                     // Summe durch vier teilen = arithm. Mittelwert

}


void auf (void)
{
	PORTA |= (1<<PA4);		//Fensterladen 1 auf
	_delay_ms(1500);		//Zwangsanlauf

	zaehler=0x00;
	TCCR0B |= (1<<CS00)|(1<<CS02);	//Timer Starten

	messung (2);	//Eingangsspannung 12V wird auf größer 10V über Spannungsteiler geprüft 
	if (result <= 0xD3)
		{
		PORTA &= ~(1<<PA4);	//Fensterladen 1 anhalten
		}

	while ((PORTA & (1 << PA4)) == (1 << PA4))
	{
	messung (0);
	if (result >= 0x35)		//Einstelung für Fenster Bad Straße 35h
		{
		PORTA &= ~(1<<PA4);	//Fensterladen 1 anhalten
		}
	}

	TCCR0B &= ~((1<<CS00)|(1<<CS01)|(1<<CS02));

	_delay_ms(500);
	PORTA |= (1<<PA6);		//Fensterladen 2 auf
	_delay_ms(1500);

	zaehler=0x00;
	TCCR0B |= (1<<CS00)|(1<<CS02);	//Timer Starten

	messung (2);	//Eingangsspannung 12V wird auf größer 3V über Spannungsteiler geprüft 
	if (result <= 0xD3)
		{
		PORTA &= ~(1<<PA6);	//Fensterladen 1 anhalten
		}

	while ((PORTA & (1 << PA6)) == (1 << PA6))
	{
	messung (1);
	if (result >= 0x35)		//Einstelung für Fenster Bad Straße 35h
		{
		PORTA &= ~(1<<PA6);	//Fensterladen 1 anhalten
		}
	}

	TCCR0B &= ~((1<<CS00)|(1<<CS01)|(1<<CS02));

	merker |= (1<<0);
	eeprom_write_byte(&eeFooByte, merker);
	return;
}

void zu (void)
{
	PORTA |= (1<<PA7);	//Fensterladen 2 zu
	_delay_ms(1500);

	zaehler=0x00;
	TCCR0B |= (1<<CS00)|(1<<CS02);	//Timer starten

	messung (2);	//Eingangsspannung 12V wird auf größer 3V über Spannungsteiler geprüft 
	if (result <= 0xD3)
		{
		PORTA &= ~(1<<PA7);	//Fensterladen 2 anhalten
		}

	while ((PORTA & (1 << PA7)) == (1 << PA7))
	{
	messung (1);
	if (result >= 0x35)		//Einstelung für Fenster Bad Straße 35h
		{
		PORTA &= ~(1<<PA7);	//Fensterladen 2 anhalten
		}
	}

	TCCR0B &= ~((1<<CS00)|(1<<CS01)|(1<<CS02));	//Timer anhalten

	_delay_ms(500);
	PORTA |= (1<<PA5);	//Fensterladen 1 zu
	_delay_ms(1500);

	zaehler=0x00;
	TCCR0B |= (1<<CS00)|(1<<CS02);	//Timer starten

	messung (2);	//Eingangsspannung 12V wird auf größer 3V über Spannungsteiler geprüft 
	if (result <= 0xD3)
		{
		PORTA &= ~(1<<PA5);	//Fensterladen 1 anhalten
		}

	while ((PORTA & (1 << PA5)) == (1 << PA5))
	{
	messung (0);
	if (result >= 0x35)		//Einstelung für Fenster Bad Straße 35h
		{
		PORTA &= ~(1<<PA5);	//Fensterladen 1 anhalten
		}
	}
	
	TCCR0B &= ~((1<<CS00)|(1<<CS01)|(1<<CS02));	//Timer anhalten

	merker &= ~(1<<0);
	eeprom_write_byte(&eeFooByte, merker);
	return;
}

int main (void)
{
	cli(); //Interrupts global deaktiviert

	DDRA=0xF0;	//Port A Pin 0-3 auf Eingabe Pin 4-7 auf Ausgabe
	DDRB=0x00;	//Port B auf Eingabe

	merker=0x00;


	merker = eeprom_read_byte(&eeFooByte);

	ADCSRA |= ((1<<ADEN) | (1<<ADPS2) | (1<<ADPS0) );	//ADC Aktivieren, Taktvorteiler einstellen
	ADCSRB |= (1<<ADLAR);				//Ergebnis links ausgerichtet, 
	ADMUX |= (1<<REFS1);				//Interne Referenzspannung Wählen
	DIDR0 |= ((1<<ADC0D) | (1<<ADC1D) | (1<<ADC2D));	//Pins als Eingang deaktiviern
	ADCSRA |= (1<<ADSC);				//Einezelmessung aktivieren

	while ( ADCSRA & (1<<ADSC) )		//Abwarten bis einzelmessung beendet ist
		{
		}
	result = ADCH;						//Messung auslesen damit neue Messung beginnen kann

	TIMSK0 |= (1<<TOIE0);				//Timer Overflow 0 Interrupt aktivieren

	sei(); //Interrupts global aktiviert

	while (1)
	{

		if ( (PINB & (1<<PINB0)) && !(PINB & (1<<PINB1)) && !(merker & (1<<0)) && !(PINA & (1<<PINA4)) && !(PINA & (1<<PINA5)) && !(PINA & (1<<PINA6)) && !(PINA & (1<<PINA7)) )
		{
			auf();
		}
		if ( (PINB & (1<<PINB1)) && !(PINA & (1<<PINB0)) && (merker & (1<<0)) && !(PINA & (1<<PINA4)) && !(PINA & (1<<PINA5)) && !(PINA & (1<<PINA6)) && !(PINA & (1<<PINA7)) )
		{
			zu();
		}

	}
	return 0;
}