/*
 * herdsteuerung.cpp
 *
 * Created: 29.04.2012 15:08:17
 *  Author: Fabian
 */ 

#include <avr/io.h>
#include <math.h>
#include <stdbool.h>
#include <avr/interrupt.h>

#define loop_until_bit_is_not_set(reg_, flag_)	do { } while ( reg_ & _BV(flag_) )
#define bit_is_not_set(reg_, flag_)	!( reg_ & _BV(flag_) )

#ifndef F_CPU
#define F_CPU 11059200
#endif

#include <util/delay.h>

#define SCHUETZ    PB7
#define SUMMER    PB6

#define SEGMENT2    PB4
#define SEGMENT1    PB5

#define BCDD    PB3
#define BCDC	PB2
#define BCDB	PB1
#define BCDA	PB0

#define TASTER1		PD0
#define RAUCHMELDER	PD1

#define XTAL      11059200L   // nominal value

 
#define DEBOUNCE    256L        // debounce clock (256Hz = 4msec)

#define LAUFZEIT    70L        // in s
#define ALARMZEIT    60L    // Zeit in s vor Ablauf der LAUFZEIT
#define ALARMDAUER    3L        // in s

#define uchar unsigned char
#define uint unsigned int
#define ushort unsigned short

uchar prescaler;
ushort volatile second;          // count seconds
bool enable = false;


ISR(TIMER1_COMPA_vect)			       //Bei Compare-Match mit OCR1A (31250) wird Sekunden um eins erhöht.
{
  if( --prescaler == 0 ){
    prescaler = (uchar)DEBOUNCE;
		if ((enable==true) && (second>0))
		{
		second--;               // exact one second over
		}
#if XTAL % DEBOUNCE         // handle remainder
    OCR1A = XTAL / DEBOUNCE + XTAL % DEBOUNCE - 1; // compare once per second
#endif
  }
}
 
 

int main(void)
{
	uchar Segment1value,Segment2value;
	bool segmenttoogle;
	
// DataDirectionRegister		Eingang = bit low		Ausgang = bit high  
  DDRB |= ((1<<BCDA) | (1<<BCDB) | (1<<BCDC) | (1<<BCDD) | (1<<SEGMENT1) | (1<<SEGMENT2) | (1<<SUMMER));          // Port B Ausgang 
  DDRD &= ~((1<<TASTER1) | (1<<RAUCHMELDER)); // Port D Eingang
  
PORTB &= ~((1<<BCDA) | (1<<BCDB) | (1<<BCDC) | (1<<BCDD) | (1<<SEGMENT1) | (1<<SEGMENT2) | (1<<SUMMER)); // Port B Push-Pull-Ausgang auf LOW  
PORTD |= ((1<<TASTER1) | (1<<RAUCHMELDER)); // Port D  Internet Pullup aktivieren

  TCCR1B = (1<<WGM12) | (1<<CS10);      // divide by 1
  TCCR1B &= ~((1<<CS12) | (1<<CS11));
                    // clear on compare
  OCR1A = XTAL / DEBOUNCE - 1;          // Output Compare Register
  TCNT1 = 0;                            // Timmer startet mit 0
  second = 0;
  prescaler = (uchar)DEBOUNCE;          //software teiler
  segmenttoogle= false;
  TIMSK = 1<<OCIE1A;                    // beim Vergleichswertes Compare Match                    
                                        // Interrupt (SIG_OUTPUT_COMPARE1A)
  sei();

//Hauptschleife
    while(1)
    {
		PORTB &= ~(1<<SUMMER);	// low
		PORTB &= ~(1<<SEGMENT1);// Segment1 ausschalten
		PORTB &= ~(1<<SEGMENT2);// Segment2 ausschalten
		loop_until_bit_is_not_set(PIND, TASTER1);
		PORTB |= (1<<SCHUETZ);  // high
		second = (ushort)LAUFZEIT;
		enable = true;
	  //Subschleife
	      while(enable==true)
		{
			
			if (bit_is_not_set(PIND, TASTER1))
			{
				second = (ushort)LAUFZEIT;	
				PORTB &= ~(1<<SUMMER);	// low
			}

if (second<=60)
{
	Segment1value= (second / 10 ) % 6 ;// 10s
	Segment2value= second % 10;// 1s	
}else{
	Segment1value    = (((second / 60) - (second / 60) % 10) / 10) % 10;//10 min
	Segment2value     = ((second / 60) % 10);//1 min
}		


			if (segmenttoogle==false)
			{
				PORTB &= ~(1<<SEGMENT2);// Segment2 ausschalten
				_delay_us(5);	
				PORTB = (PORTB & ~((1<<BCDA) | (1<<BCDB) | (1<<BCDC) | (1<<BCDD))) | (Segment1value & ((1<<BCDA) | (1<<BCDB) | (1<<BCDC) | (1<<BCDD)));// BCD für Segment2 ausgeben
				PORTB |= (1<<SEGMENT1);// Segment1 einschalten
				segmenttoogle=true;
			}else if (segmenttoogle==true)
			{
				PORTB &= ~(1<<SEGMENT1);// Segment1 ausschalten
				_delay_us(5);	
				PORTB = (PORTB & ~((1<<BCDA) | (1<<BCDB) | (1<<BCDC) | (1<<BCDD))) | (Segment2value & ((1<<BCDA) | (1<<BCDB) | (1<<BCDC) | (1<<BCDD)));// BCD für Segment2 ausgeben
				PORTB |= (1<<SEGMENT2);// Segment2 einschalten
				segmenttoogle=false;
			}
				_delay_us(500);		

			if (second==ALARMZEIT)
			{
				PORTB |= (1<<SUMMER);  // high
			}	
			if (second==(ALARMZEIT-ALARMDAUER))
			{
				PORTB &= ~(1<<SUMMER);	// low
			}	
			if (second==0)
			{
				PORTB &= ~(1<<SUMMER);	// low
				enable = false;	
			}
		}
		PORTB &= ~(1<<SCHUETZ);	// low		
    }
}