/* fuses: 
efuse=0xFF (def) self prg disable
hfuse=0xDF (def) RSTDISBL:DWEN:SPIEN:WDTON:EESAVE:BODLEVEL[2..0]
lfuse=0x62 (def) Internal RC on 8.0 MHz, clock is 1MHz
 */

#include <avr/io.h>
#include <util/atomic.h>
#include <avr/pgmspace.h>
#include <avr/eeprom.h>
#include <avr/sfr_defs.h>
#include <util/delay.h>

#define dir PB1
#define inv PB0
#define cycl PB4
#define lrn PB3
#define myPORT PORTB
#define myDDR DDRB
#define myPIN PINB

volatile unsigned int seconds=0;
unsigned int time1 EEMEM = 0, time2 EEMEM = 0;
unsigned int eetmpr EEMEM =0;
unsigned int pulse, pause;
unsigned int tmpr;

void init (void) {
// function configure I/O pins and CLK source
	cli();
	myDDR |=  1<<dir | 1<<inv ; // INV and DIR as output
	myPORT |=  1<<cycl | 1<<lrn ; // pull-up on
	
	// clock source should be as shipped

	// next - configure timer
	GTCCR |= 1<<TSM | 1<<PSR0; // write configs immediatly
	// TCCR0A - no changes

		// doc2586, page 83, Table 11-6
		// 0x00 -N.C., [0x01..0x05] eq 1/8/64/256/1024
		// CLK => T0presc => TCNT0 => T0ovfl => variable
	TCCR0B |= 1<<CS00|1<<CS01; // Div=64 
		// OCR0A and OCR0B are not used
	TIMSK |= 1<<TOIE0; // enable overflow interupt
		// TIFR - it is a flag register!
	GTCCR &= ~(1<<TSM);  
	GTCCR &= ~(1<<PSR0);
	// Init ADC for measure temperature
	ADMUX |= 1<<REFS1; 		//select Vref as 
	ADMUX &= ~(1<<REFS0);
	ADMUX &= ~(1<<REFS2); 	// 1.1v internal

	ADMUX |= 1<<MUX3|1<<MUX2|1<<MUX1|1<<MUX0; // select temperature sensor
	ADCSRA &= ~(1<<ADIE); 	// ADC interrupt not enable
	ADCSRA |= 1<<ADPS2; 	// select ADC prescaled
	ADCSRA &= ~(1<<ADPS1);
	ADCSRA &= ~(1<<ADPS0); 	// done
	ADCSRA |= 1<<ADEN; 	// enable ADC (should be last init)
	ADCSRA |= 1<<ADSC; 	// start conversion first time
	
	// ADCSRA.ADSC - start conversion
	// ADCSRA.ADIF - bit set if finished conversion
	// read: ADCL then ADCH
	sei();
}

ISR(TIM0_OVF_vect)
{
static volatile unsigned int ticks =0;
    // user code here
TCNT0 = 256-125; 
ticks++;
  	if (ticks==125) {
    	seconds++;
		ticks=0;
		/* do {} 
		while  ( (ADCSRA & (1<<ADSC)) != 0x00); // conversion complete
		tmpr = ADCL|(ADCH<<8);
			// ADCSRA |= 1<<ADSC; // start next conversion
			// Alternatively, ADIF is cleared by writing a logical one to the flag. 
			ADCSRA |= 1<<ADIF; // clear flag  */

		if ( (ADCSRA & (1<<ADIF)) != 0x00) { // conversion complete
			tmpr = ADCL|(ADCH<<8);
			ADCSRA |= 1<<ADSC; // start next conversion
			// Alternatively, ADIF is cleared by writing a logical one to the flag. 
			ADCSRA |= 1<<ADIF; // clear flag 
		}
  	}
}

volatile int main (void) {
init();
	// if LRN pressed - store times
	if  ((myPIN & (1<<lrn)) == 0x00 ) { // test 'LRN' jumper/button
		// pressed
			myPORT |= 1<<dir;
			myPORT &= ~(1<<inv);
		do {} // wait relese 'LRN'
		while ((myPIN & (1<<lrn)) == 0x00 ); 
		pulse=seconds;
		// pulse value stored in RAM
		// LRN release now
		_delay_ms(10);
			myPORT &= ~(1<<dir);
			myPORT |= 1<<inv;
		do {} // wait press 'LRN' again
		while ((myPIN & (1<<lrn)) != 0x00 ); 
		pause=seconds;
		// store valuse in EEPROM
		eeprom_busy_wait();
		eeprom_update_word(&time1, pulse); // the same as eeprom_write_word
		eeprom_busy_wait();
		eeprom_update_word(&time2, pause); // the same as eeprom_write_word
		eeprom_busy_wait();
			myPORT |= 1<<dir;
			myPORT &= ~(1<<inv);
		eeprom_update_word(&eetmpr, tmpr); // write EEPROM last temperature
		eeprom_busy_wait();
		while (0==0); // loop forewer
		
	} 
	else {	
		// not pressed, just work
			myPORT |= 1<<dir;
			myPORT &= ~(1<<inv);
		eeprom_busy_wait();
		pulse=eeprom_read_word(&time1);
		eeprom_busy_wait();
		pause=eeprom_read_word(&time2);
		// values from EEPROM readed, continue
		do { // begin of 'cycle' part code
				myPORT |= 1<<dir;
				myPORT &= ~(1<<inv);
			do {} // wait 'pulse' value
			while (seconds != pulse);
				myPORT &= ~(1<<dir);
				myPORT |= 1<<inv;
			do {}
			while (seconds != pause); // Warning! 'pause' is not a pause, it is value pulse+pause!
			if ((myPIN & (1<<cycl)) == 0x00 ) {
				seconds=0;
				}
			else {
				while (0==0); // stop if it is not a cycle mode
			}
			}
			while ((myPIN & (1<<cycl)) == 0x00 );
		while (0==0); // loop forever				
	}
	while (0==0); // loop forever
}