/* F_CPU = 4e6 Hz
 *
 * 36kHz => T = 27.777us = 111.11 tick
 * Ton = 25~33% => 30 tick (27%)
 *
 *
 */


#include <avr/io.h>			// knihovna obsahujici definice regstrů procesoru
#define F_CPU 4000000UL		// info o frekvenci mcu pro prekladac (1MHz)
#include <util/delay.h>		// knihovna obsahujici funkce pro zpozdeni

#define SETBIT(ADDRESS,BIT) ((ADDRESS) |= (1<<(BIT)))	// nastaví bit
#define CLRBIT(ADDRESS,BIT) ((ADDRESS) &= ~(1<<(BIT)))	// nuluje bit
#define NEGBIT(ADDRESS,BIT) ((ADDRESS) ^= (1<<(BIT)))	// neguje bit
#define TSTBIT(ADDRESS,BIT) ((ADDRESS) & (1<<(BIT)))	// testuje bit

#define FALSE 0
#define TRUE  1

#define LED_ON  CLRBIT(PORTB, PB0)
#define LED_OFF SETBIT(PORTB, PB0)
#define DELKA_PULBITU 20		// pocet period frekvence 36kHz na polovinu bitu

void writeByte(unsigned char data, unsigned char wrStart)
{
	// MSB first
	// ("wrStart" == true) ==> burst s delkou 16 * DELKA_PULBITU
	unsigned char i, j;

	if(wrStart)
	{
		// vyslat start pulz
		for(j=0; j<2; j++)
		{	// 16*DELKA_PULBITU by se neveslo do promenne, proto 2x za sebou
			for(i=8*DELKA_PULBITU; i>0; i--)
			{
				while(!(TIFR & 1<<TOV0));
				LED_ON;
				TIFR |= 1<<TOV0;	// clear ovf flag
				while(TCNT0 < 29);	// wait to 27%
				LED_OFF;
			}
		}
	}
	else
	{
		// vyslat byte
		for(j = 8; j>0; j--)
		{
			// "1" = burst + pauza
			// "0" = 2 x pauza
			if(data & 1<<7)
			{
				// "1" => burst
				for(i=DELKA_PULBITU; i>0; i--)
				{
					while(!(TIFR & 1<<TOV0));
					LED_ON;
					TIFR |= 1<<TOV0;	// clear ovf flag
					while(TCNT0 < 29);	// wait to 27%
					LED_OFF;
				}
			}
			else
			{
				// "0" => pauza
				for(i=DELKA_PULBITU; i>0; i--)
				{
					while(!(TIFR & 1<<TOV0));
					TIFR |= 1<<TOV0;	// clear ovf flag
				}
			}
			data <<= 1;		// vysunout nejvyssi (pouzity) bit

			// pauza za burtem nebo predchozi pauzou
			for(i=DELKA_PULBITU; i>0; i--)
			{
				while(!(TIFR & 1<<TOV0));
				TIFR |= 1<<TOV0;	// clear ovf flag
			}
		}
	}
}

void main(void) 
{
	//unsigned int div = 13000;
	unsigned char i, irData[] = {0x0f, 0xfa, 0xaa, 0xae, 0xbe, 0xba};

	SETBIT(DDRD, PD6);
	SETBIT(DDRB, PB0);

	
	TCCR0A |= 1<<WGM01 | 1<<WGM00;
	TCCR0B |= 1<<WGM02 | 1<<CS00;
	//OCR0A = 110;
	OCR0A = 112;	// můj omšelej krystal buď nemá přesně 4MHz,
	// blbě jsem to změřil (při určování bitovýho intervalu), spočítal nebo není DO moc stabilní (sencor...). Na tom nefičí.

	writeByte(0, TRUE);

	for(i=0; i<6; i++)
	{
		writeByte(irData[i], FALSE);
	}



	for(;;)
	{
		_delay_ms(500);
		NEGBIT(PORTD, PD6);

	}
}