// ------- ( Direktivy ) ------- //
#include <avr/io.h>
#include <avr/delay.h>
#include <avr/interrupt.h>
#include <stdio.h>

// ------- ( Definice konstant ) ------- //
#define tempo 	60000
#define c 63628
#define d	63842
#define e	64028
#define f	64120
#define g	64276
#define a	64416
#define b 64540
#define x	64740 
#define F_OSC 4 // MHz !!! nutno zvolit hardwarove!!!

unsigned int m=0,i=64416, pom; 
unsigned int k, tem;

unsigned char p=255,count;

// ************( Zadavani doby (cislo) a noty (pismeno) ) *************//
//ovcaci ctveraci
char melodie[100] = "1m1c1e1g1m1c1e1g1m2e2e2d2e1f2d2m2e2e2d2e1f2d2m1e1d1c1m";


//**********************************************************************//
char nota;    //znak jedne noty
char *unota;  //ukazatel na notu


// ------- ( Hlavni funkce ) ------- //
int main(void)
{
TCCR1B |= (1<<CS10);  //bez preddelicky
TIMSK |= (1<<TOIE1);	//povoleni casovace
DDRB = 0xff;          //D je výstupní port
unota=&melodie[0];    //nastaveni ukazatele na pocatek
							
k=(F_OSC/4);	//konstanta pro přepočet frekvence krystalu !!funkcni pouze u k=1!	
							
TCNT1=i;
sei ();           //globalni povoleni preruseni

repeat:
unota=&melodie[0];
nota=*unota;

while (nota!='\0')
  {

	// ------- ( Vyber doby ) ------- //
	switch (nota)	
	 {
	 case '1': tem=(tempo)*k;
	 	break;
	 case '2': tem=(tempo/2)*k;
	 	break;
	 case '4': tem=(tempo/4)*k;
	 	break;
	 }
		unota++;
		nota=*unota;


	// ------- ( Vyber noty ) ------- //

	switch (nota)
	 {
	 case 'a': i=(a*k);sei ();
	 	break;
	 case 'b': i=(b*k);sei ();
	 	break;
	 case 'c': i=(c*k);sei ();
	 	break;
	 case 'd': i=(d*k);sei ();
	 	break;
	 case 'e': i=(e*k);sei ();
	 	break;
	 case 'f': i=(f*k);sei ();
	 	break;
	 case 'g': i=(g*k);sei ();
	 	break;
	 case 'x': i=(x*k);sei ();
	 	break;
	 case 'm': cli();
	 	break;
	 }

	unota++;
	nota=*unota;

	TCNT1=i;

	 for (pom=0; pom < tem ; pom++) //doba noty
	  {
	  }
  }

	cli();
	goto repeat;

while (1);
}


ISR( TIMER1_OVF_vect )		// obsluha externiho preruseni timer1 - generovani stridy
{	
  PORTB=~PORTB;
  TCNT1=i;
}