Chip type           : ATmega48
Clock frequency     : 1,000000 MHz
Memory model        : Small
External SRAM size  : 0
Data Stack size     : 128
*****************************************************/
#include <mega48.h>
// Alphanumeric LCD Module functions
#asm
   .equ __lcd_port=0x05 ;PORTB
#endasm
#include <lcd.h> 
#include <stdlib.h>
#include <string.h>
#include <math.h>
// Declare your global variables here

#define MAX_SMPL     60                   //чтоб не ждать до скончания времен если сигнал пропал....
#define SAMPLES      64                  //количество замеров - считаем SAMPLES раз, потом делим на SAMPLES - усредняем

#define E_STRING	82.405						
#define A_STRING	110.00
#define D_STRING	146.83            //Это пока не юзаю
#define G_STRING	195.995
#define B_STRING	246.94				
#define EH_STRING	329.63	
                          
#define C1_NOTE             32.70       //нота ДО первой октавы, относительно нее считаем октаву и ноту...

#define BASE_FREQUENCY 125000           //Частота таймера
#define LN_2	0.6931471

unsigned long int Cnt_Hi=0;         
float Freq=0;                   

char *NoteSign[12]={"C","C#","D","D#","E","F","F#","G","G#","A","A#","B"};

interrupt [TIM0_OVF] void timer0_ovf_isr(void)
{
    Cnt_Hi++;     
}

unsigned int Round(float F)
{
  int t=F;
  if(F-t>0.5f)
        return t+1;
  return t;
}

void main(void)
{
   unsigned long int Cnt=0;
   int i=0;            
   char Str[40]="Amon Guitar Tuner\nNo input signal!";  
   char szOct[3], szNote[3], szFreq[7], szErr[5];
   float Tmp=0;
// Crystal Oscillator division factor: 8
#pragma optsize-
CLKPR=0x80;
CLKPR=0x03;
#ifdef _OPTIMIZE_SIZE_
#pragma optsize+
#endif

// Input/Output Ports initialization
// Port B initialization
// Func7=In Func6=In Func5=In Func4=In Func3=In Func2=In Func1=In Func0=In 
// State7=T State6=T State5=T State4=T State3=T State2=T State1=T State0=T 
PORTB=0x00;
DDRB=0x00;

// Port C initialization
// Func6=In Func5=In Func4=In Func3=In Func2=In Func1=In Func0=In 
// State6=T State5=T State4=T State3=T State2=T State1=T State0=T 
PORTC=0x00;
DDRC=0x00;

// Port D initialization
// Func7=In Func6=In Func5=In Func4=In Func3=In Func2=Out Func1=In Func0=In 
// State7=T State6=T State5=T State4=T State3=T State2=0 State1=T State0=T 
PORTD=0x00;
DDRD=0x04;

// Timer/Counter 0 initialization
// Clock source: System Clock
// Clock value: 125,000 kHz
// Mode: Normal top=FFh
// OC0A output: Disconnected
// OC0B output: Disconnected
TCCR0A=0x00;
TCCR0B=0x02;
TCNT0=0x00;
OCR0A=0x00;
OCR0B=0x00;

// Timer/Counter 1 initialization
// Clock source: System Clock
// Clock value: Timer 2 Stopped
// Mode: Normal top=FFFFh
// OC1A output: Discon.
// OC1B output: Discon.
// Noise Canceler: Off
// Input Capture on Falling Edge
// Timer 1 Overflow Interrupt: Off
// Input Capture Interrupt: Off
// Compare A Match Interrupt: Off
// Compare B Match Interrupt: Off
TCCR1A=0x00;
TCCR1B=0x00;
TCNT1H=0x00;
TCNT1L=0x00;
ICR1H=0x00;
ICR1L=0x00;
OCR1AH=0x00;
OCR1AL=0x00;
OCR1BH=0x00;
OCR1BL=0x00;

// Timer/Counter 2 initialization
// Clock source: System Clock
// Clock value: Timer 2 Stopped
// Mode: Normal top=FFh
// OC2A output: Disconnected
// OC2B output: Disconnected
ASSR=0x00;
TCCR2A=0x00;
TCCR2B=0x00;
TCNT2=0x00;
OCR2A=0x00;
OCR2B=0x00;

// External Interrupt(s) initialization
// INT0: Off
// INT1: Off
// Interrupt on any change on pins PCINT0-7: Off
// Interrupt on any change on pins PCINT8-14: Off
// Interrupt on any change on pins PCINT16-23: Off
EICRA=0x00;
EIMSK=0x00;
PCICR=0x00;

// Timer/Counter 0 Interrupt(s) initialization
TIMSK0=0x01;
// Timer/Counter 1 Interrupt(s) initialization
TIMSK1=0x00;
// Timer/Counter 2 Interrupt(s) initialization
TIMSK2=0x00;

// Analog Comparator initialization
// Analog Comparator: Off
// Analog Comparator Input Capture by Timer/Counter 1: Off
ACSR=0x80;
ADCSRB=0x00;

// LCD module initialization
lcd_init(20);
#asm("sei")
while (1)
      {         
        lcd_clear();
          
        if(szFreq[0]!=0)
        {
                strcpyf(Str,"Frequency:");
                strcat(Str,szFreq);
                strcatf(Str," Hz - ");
                strcat(Str,szNote);
                strcat(Str,szOct);  
                strcatf(Str,"+");
                strcat(Str,szErr);
        }
                lcd_puts(Str);


        while(PINC.3!=1);      //Ждем появления сигнала на ноге, лог1
        
        TCNT0=0;
        Cnt_Hi=0;              //обнуляем все каунтеры 
        Cnt=0;
        for(i=0;i<SAMPLES;i++)    //рассчеты повторяем SAMPLES раз, для усреднения
        {
                
		while(PINC.3!=0) //ждем перепада на с 1 на 0
                        if(Cnt_Hi>MAX_SMPL) //это чтоб не ждать вечно =)
                                break;
                while(PINC.3!=1) //теперь ждем с 0 до 1
                        if(Cnt_Hi>MAX_SMPL)
                                break;     

                Cnt+=(Cnt_Hi<<8);
                Cnt+=TCNT0;      //тут считаем   Cnt+=(Cnt_Hi<<8)+TCNT0 - значение таймера с учетом счетчика переполнений   

                if(Cnt_Hi>MAX_SMPL) 
                                break;  
                TCNT0=0;
                Cnt_Hi=0;            
        }  
        if(Cnt_Hi<=MAX_SMPL)
        {   
                 Freq=BASE_FREQUENCY*SAMPLES/(float)Cnt;   //и, собственно частоту....
                 if(Freq<C1_NOTE)
                 {
                         szFreq[0]='\0';
                         szNote[0]='\0';
                         szOct[0]='\0';
                         szErr[0]='\0';
                 }
                 else  //это уже код для определения нот и т.п....
                {
                        ftoa(Freq,2,szFreq);  //Current frequency               
                        Tmp=Freq/C1_NOTE;
                        Tmp=log(Tmp)/LN_2;
                        i=Tmp;             //int-part is Octave-1
                          i++;
                         itoa(i,szOct);   
                          
                        i--;
                         Tmp-=i;
                         Tmp*=12;          //Tones  
                        
                         i=Round(Tmp);       
                         
                         strcpy(szNote,NoteSign[i]);
                         
                         Tmp-=i;           //Delta Err
                         Tmp*=10;
                         itoa(i,szErr);
                         
                }         
        }

 };
}