// IR_BT   Bluetooth - Infrarot Interface
// UART Signale per Infrarot senden und Funksteckdosen steuern
// UART Baud: 19200 

// ATmega8, 8MHz
// AVR Studio, Optimierungsgrad: O2
// erstellt am 7.04.2011
// www.alex-handfest.de


#include <avr\io.h>
#include <avr\interrupt.h>
#include <string.h>

#include "uart.h"

//UART empfangen
extern volatile char uart_cr;
extern volatile char uart_recv_buf[20];
unsigned char i			= 0;


//IR senden
unsigned int  puls_a		= 0;
unsigned int  puls_b		= 0;
unsigned int  pause_0bit	= 0;
unsigned int  pause_1bit	= 0;
unsigned int  pause_start	= 0;
unsigned int  pause_ende	= 0;
unsigned int  pause_sync	= 0;

unsigned char senden		= 0;

unsigned char b			= 0;
unsigned int  send_count	= 0;
	 char send_buf[50]	= {'\0'};


//Funkstecksdosen
//unsigned char funk		= 0;
unsigned char timer2_count	= 0;



int main(void)
{

	// IR Senden
	// Timer0 init
	//TCCR0 = (0<<CS02) | (0<<CS01) | (1<<CS00);   //Setzen des Prescaler auf 1
	TIMSK |= (1<<TOIE0);
	// Interrupt Aktion alle ( 8000000/1) / 256 = 31.250 Hz -> 0,000032s = 32us


	// 38kHz Träger Frequenz
	// Timer1 init
	TCCR1A = (1<<COM1A1) | (1<<COM1A0) | (1<<WGM11);
	TCCR1B = (1<<WGM12) | (1<<WGM13) | (1<<CS10);	
	// Timer Mode 14: Fast PWM, TOP = ICR1
	// Prescaler: 1
	OCR1A = 105;
	ICR1 = 210;
	// Takt an OC1A (PB1) = Clock / Prescaler / ICR1


	// Timer2 init
	//TCCR2 = (1<<CS02) | (0<<CS01) | (1<<CS00);   //Setzen des Prescaler auf 1024
	TIMSK |= (1<<TOIE2);
	// Interrupt Aktion alle ( 8000000/1024) / 256 = 30,52 Hz -> 0,032768s = 33ms


	// Ausgänge für Funksteckdosen
	DDRC   = 0xff;    				// PortC: 6 Ausgänge
	PORTC  = 0xff;					// alle Pins auf high
	DDRD  |= (1 << DDD2) | (1 << DDD3);		// PortD: 2 Ausgänge
	PORTD |= (1 << PD2)  | (1 << PD3);		// Pin 2 & 3 auf high



	// Initialisierung des UART
	uart_init();

	// Globale Interrupts einschalten
	sei();

	uart_print("an");


  	while(1){

		//UART empfangen und auswerten:		
		if (uart_cr == 1){

			//test
			//if (uart_recv_buf[0] == 'x'){
			//	uart_print("da");
			//}

			//Denon AVR Receiver
			if (uart_recv_buf[0] == '1' && uart_recv_buf[1] == '9'){

				uart_print("Denon");

				puls_a		=   10;		//Puls 310us / 32µs = 9,7
				puls_b		=   10;		//Puls 310us / 32µs = 9,7
				pause_0bit	=   33;		//Pause ( 745+310) / 32µs =   32,9
 				pause_1bit	=   65;		//Pause (1780+310) / 32µs =   65,3
 				pause_sync	= 2000;		//Pause (65ms+310) / 32µs = 2040,9
				pause_ende	= 2000;		//Pause (65ms+310) / 32µs = 2040,9

				send_buf[0]  = '0';
				send_buf[1]  = '1';
				send_buf[2]  = '0';
				send_buf[3]  = '0';
				send_buf[4]  = '0';
				send_buf[5]  = uart_recv_buf[2];
				send_buf[6]  = uart_recv_buf[3];
				send_buf[7]  = uart_recv_buf[4];
				send_buf[8]  = uart_recv_buf[5];
				send_buf[9]  = uart_recv_buf[6];
				send_buf[10] = uart_recv_buf[7];
				send_buf[11] = uart_recv_buf[8];
				send_buf[12] = uart_recv_buf[9];
				send_buf[13] = '0';
				send_buf[14] = '0';
				send_buf[15] = 'p';
				send_buf[16] = '0';
				send_buf[17] = '1';
				send_buf[18] = '0';
				send_buf[19] = '0';
				send_buf[20] = '0';
				send_buf[21] = uart_recv_buf[10];
				send_buf[22] = uart_recv_buf[11];
				send_buf[23] = uart_recv_buf[12];
				send_buf[24] = uart_recv_buf[13];
				send_buf[25] = uart_recv_buf[14];
				send_buf[26] = uart_recv_buf[15];
				send_buf[27] = uart_recv_buf[16];
				send_buf[28] = uart_recv_buf[17];
				send_buf[29] = '1';
				send_buf[30] = '1';
				send_buf[31] = 'p';
				send_buf[32] = '0';
				send_buf[33] = '1';
				send_buf[34] = '0';
				send_buf[35] = '0';
				send_buf[36] = '0';
				send_buf[37] = uart_recv_buf[2];
				send_buf[38] = uart_recv_buf[3];
				send_buf[39] = uart_recv_buf[4];
				send_buf[40] = uart_recv_buf[5];
				send_buf[41] = uart_recv_buf[6];
				send_buf[42] = uart_recv_buf[7];
				send_buf[43] = uart_recv_buf[8];
				send_buf[44] = uart_recv_buf[9];
				send_buf[45] = '0';
				send_buf[46] = '0';
				send_buf[47] = 'e';
				send_buf[48] = '\0';

				for(i = 0; i<=20; i++) uart_recv_buf[i]='\0';
				uart_cr = 0;
				senden = 1;
				TCCR0 = (1<<CS00);		// Timer1 an
			}


			//Samsung LCD TV
			else if (uart_recv_buf[0] == '3' && uart_recv_buf[1] == '2'){

				uart_print("TV");

				puls_a		=  141;		//Puls 4500us / 32µs = 140,6
				puls_b		=   17;		//Puls  550us / 32µs =  17,2
				pause_start	=  281;		//Pause (4500+4500) / 32µs =  281,2
				pause_0bit	=   31;		//Pause ( 450+ 550) / 32µs =   31,2
 				pause_1bit	=   62;		//Pause (1450+ 550) / 32µs =   62,5
 				pause_sync	=  158;		//Pause (4500+ 550) / 32µs =  157,8
				pause_ende	= 1400;		//Pause (45ms+ 550) / 32µs = 1423,4

				send_buf[0]  = 's';
				send_buf[1]  = '1';
				send_buf[2]  = '1';
				send_buf[3]  = '1';
				send_buf[4]  = '0';
				send_buf[5]  = '0';
				send_buf[6]  = '0';
				send_buf[7]  = '0';
				send_buf[8]  = '0';
				send_buf[9]  = '1';
				send_buf[10] = '1';
				send_buf[11] = '1';
				send_buf[12] = '0';
				send_buf[13] = '0';
				send_buf[14] = '0';
				send_buf[15] = '0';
				send_buf[16] = '0';
				send_buf[17] = uart_recv_buf[2];
				send_buf[18] = uart_recv_buf[3];
				send_buf[19] = uart_recv_buf[4];
				send_buf[20] = uart_recv_buf[5];
				send_buf[21] = uart_recv_buf[6];
				send_buf[22] = uart_recv_buf[7];
				send_buf[23] = uart_recv_buf[8];
				send_buf[24] = uart_recv_buf[9];
				send_buf[25] = uart_recv_buf[10];
				send_buf[26] = uart_recv_buf[11];
				send_buf[27] = uart_recv_buf[12];
				send_buf[28] = uart_recv_buf[13];
				send_buf[29] = uart_recv_buf[14];
				send_buf[30] = uart_recv_buf[15];
				send_buf[31] = uart_recv_buf[16];
				send_buf[32] = uart_recv_buf[17];
				send_buf[33] = 'e';
				send_buf[34] = '\0';

				for(i = 0; i<=20; i++) uart_recv_buf[i]='\0';
				uart_cr = 0;
				senden = 2;
				TCCR0 = (1<<CS00);		// Timer1 an
			}


			//Samsung Blu-Ray Player
			else if (uart_recv_buf[0] == '8' && uart_recv_buf[1] == '8'){

				uart_print("BluRay");

				puls_a		=  141;		//Puls 4500us / 32µs = 140,6
				puls_b		=   17;		//Puls  550us / 32µs =  17,2
				pause_start	=  281;		//Pause (4500+4500) / 32µs =  281,2
				pause_0bit	=   31;		//Pause ( 450+ 550) / 32µs =   31,2
 				pause_1bit	=   62;		//Pause (1450+ 550) / 32µs =   62,5
 				pause_sync	=  158;		//Pause (4500+ 550) / 32µs =  157,8
				pause_ende	= 1400;		//Pause (45ms+ 550) / 32µs = 1423,4

				send_buf[0]  = 's';
				send_buf[1]  = '0';
				send_buf[2]  = '0';
				send_buf[3]  = '0';
				send_buf[4]  = '0';
				send_buf[5]  = '0';
				send_buf[6]  = '1';
				send_buf[7]  = '0';
				send_buf[8]  = '0';
				send_buf[9]  = '0';
				send_buf[10] = '0';
				send_buf[11] = '0';
				send_buf[12] = '0';
				send_buf[13] = '0';
				send_buf[14] = '0';
				send_buf[15] = '0';
				send_buf[16] = '0';
				send_buf[17] = 'p';
				send_buf[18] = '1';
				send_buf[19] = '1';
				send_buf[20] = '1';
				send_buf[21] = '0';
				send_buf[22] = uart_recv_buf[2];
				send_buf[23] = uart_recv_buf[3];
				send_buf[24] = uart_recv_buf[4];
				send_buf[25] = uart_recv_buf[5];
				send_buf[26] = uart_recv_buf[6];
				send_buf[27] = uart_recv_buf[7];
				send_buf[28] = uart_recv_buf[8];
				send_buf[29] = uart_recv_buf[9];
				send_buf[30] = uart_recv_buf[10];
				send_buf[31] = uart_recv_buf[11];
				send_buf[32] = uart_recv_buf[12];
				send_buf[33] = uart_recv_buf[13];
				send_buf[34] = uart_recv_buf[14];
				send_buf[35] = uart_recv_buf[15];
				send_buf[36] = uart_recv_buf[16];
				send_buf[37] = uart_recv_buf[17];
				send_buf[38] = 'e';
				send_buf[39] = '\0';

				for(i = 0; i<=20; i++) uart_recv_buf[i]='\0';
				uart_cr = 0;
				senden = 2;
				TCCR0 = (1<<CS00);		// Timer1 an
			}


			//Funksteckdosen
			else if (uart_recv_buf[0] == 'F' && uart_recv_buf[1] == 'S'){

				uart_print("Funk");

				if (uart_recv_buf[2] == '1' && uart_recv_buf[3] == '1') {
					if (uart_recv_buf[4] == '1' && uart_recv_buf[5] == '1') PORTD &= ~(1<<PD2);
					if (uart_recv_buf[4] == '0' && uart_recv_buf[5] == '0') PORTC &= ~(1<<PC5);
				}
				else if (uart_recv_buf[2] == '2' && uart_recv_buf[3] == '2') {
					if (uart_recv_buf[4] == '1' && uart_recv_buf[5] == '1') PORTD &= ~(1<<PD3);
					if (uart_recv_buf[4] == '0' && uart_recv_buf[5] == '0') PORTC &= ~(1<<PC4);
				}
				else if (uart_recv_buf[2] == '3' && uart_recv_buf[3] == '3') {
					if (uart_recv_buf[4] == '1' && uart_recv_buf[5] == '1') PORTC &= ~(1<<PC1);
					if (uart_recv_buf[4] == '0' && uart_recv_buf[5] == '0') PORTC &= ~(1<<PC3);
				}
				else if (uart_recv_buf[2] == '4' && uart_recv_buf[3] == '4') {
					if (uart_recv_buf[4] == '1' && uart_recv_buf[5] == '1') PORTC &= ~(1<<PC0);
					if (uart_recv_buf[4] == '0' && uart_recv_buf[5] == '0') PORTC &= ~(1<<PC2);
				}
				else {
					PORTC  = 0xff;
					PORTD |= (1 << PD2) | (1 << PD3);
				}

				for(i = 0; i<=20; i++) uart_recv_buf[i]='\0';
				uart_cr = 0;
				TCCR2 = (1<<CS02) | (0<<CS01) | (1<<CS00);		// Timer2 an
			}

			else {
				for(i = 0; i<=20; i++) uart_recv_buf[i]='\0';
				uart_cr = 0;
				senden = 0;
			}

			//uart_print(send_buf);
		}
		
	}
 	return 0;
}



// --------- Time Overflow alle 32us --------
// Interrupt-Routine zum senden des IR-Signals

ISR(TIMER0_OVF_vect){

	if (senden >= 1){
			
		send_count++;

		if (send_buf[b] == 's'){
			if (send_count <= puls_a) DDRB  |= (1 << PB1);
			if (send_count >  puls_a) DDRB &= ~(1 << PB1);
			if (send_count == pause_start){
				send_count = 0;
				b++;
			}
		}		
		else if (send_count <= puls_b){
			DDRB  |= (1 << PB1);				//Einschalten der 38 kHz - Frequenz
		}
		else if (send_count >  puls_b){

			DDRB &= ~(1 << PB1);				//Ausschalten der 38 kHz - Frequenz
		
			if (send_buf[b] == '0'){
				if (send_count == pause_0bit){
					send_count = 0;
					b++;
				}
			}
			if (send_buf[b] == '1'){
				if (send_count == pause_1bit){
					send_count = 0;
					b++;
				}
			}
			if (send_buf[b] == 'p'){
				if (send_count == pause_sync){
					send_count = 0;
					b++;
				}
			}
			if (send_buf[b] == 'e'){			//e = Ende				
				if (send_count == pause_ende){
					send_count = 0;
					b = 0;
					//uart_cr = 0;
					senden--;
				}
			}
		}

		else if (send_count == 10000){
			send_count = 0;
			b++;
		}
	}
	if (senden == 0){
		DDRB &= ~(1<<PB1);
		//uart_cr = 0;
		TCCR0 = 0x00;			// Timer0 aus
	}
}



// --------- Time Overflow alle 33ms --------
// Interrupt-Routine zur Steuerung der Funksteckdosen

ISR(TIMER2_OVF_vect){

	timer2_count ++;

	// Funk
	if (timer2_count == 50){				// 50 * 33ms = 1,65s

		timer2_count = 0;
		uart_cr = 0;
		PORTC = 0xff;					// PortC highS
		PORTD |= (1 << PD2) | (1 << PD3);
		TCCR2 = 0x00;					// Timer2 aus
	}
}