#include <mega8.h>
#include <delay.h>                       
              
//общий катод        0          1          2          3          4          5          6          7          8          9          .
char kDigitalLED[]={0b00111111,0b00000110,0b01011011,0b01001111,0b01100110,0b01101101,0b01111101,0b00000111,0b01111111,0b01101111,0b10000000};//общий на минус
char aDigitalLED[]={0b11000000,0b11111001,0b10100100,0b10110000,0b10011001,0b10010010,0b10000010,0b11111000,0b10000000,0b10010000,0b01111111};//общий на плюс 
char speed=0;  //скорость
char step=0;   //шаг-полушаг
char driver=1; //шаг
char stop=0; //шаг
char i=1; //шаг

void __init_mk(void){
// Input/Output Ports initialization
// Port B initialization
// Func7=Out Func6=Out Func5=Out Func4=Out Func3=Out Func2=Out Func1=Out Func0=Out 
// State7=0 State6=0 State5=0 State4=0 State3=0 State2=0 State1=0 State0=0 
PORTB=0x00;
DDRB=0xFF;
// 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=P State1=P State0=P 
PORTC=0x07;
DDRC=0x00;

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

// Timer/Counter 0 initialization
// Clock source: System Clock
// Clock value: Timer 0 Stopped
TCCR0=0x00;
TCNT0=0x00;

// Timer/Counter 1 initialization
// Clock source: System Clock
// Clock value: 8000,000 kHz
// Mode: CTC top=OCR1A
// 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: On
// Compare B Match Interrupt: Off
TCCR1A=0x00;
TCCR1B=0x09;
TCNT1H=0x00;
TCNT1L=0x00;
ICR1H=0x00;
ICR1L=0x00;
OCR1AH=0x01;
OCR1AL=0x04;
OCR1BH=0x00;
OCR1BL=0x00;

// Timer/Counter 2 initialization
// Clock source: System Clock
// Clock value: Timer 2 Stopped
// Mode: Normal top=FFh
// OC2 output: Disconnected
ASSR=0x00;
TCCR2=0x00;
TCNT2=0x00;
OCR2=0x00;

// External Interrupt(s) initialization
// INT0: Off
// INT1: Off
MCUCR=0x00;

// Timer(s)/Counter(s) Interrupt(s) initialization
TIMSK=0x10;

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

interrupt [TIM1_COMPA] void timer1_compa_isr(void){
  if(speed>=6)speed=1;
  
  PORTB=aDigitalLED[speed];//выводим скорость
  if((step==0)&&(stop==1))PORTB=PORTB&aDigitalLED[10];//если шагово, то ставим точку, для анода 


  if((speed==0)&&(step==0)){
    PORTD=0b00000000;
    return;
  }
  if((step==0)&&(stop==1)){
    PORTD=0b00000000;
    return;
  }
  
  switch(speed){
    case 1:{//30Hz 
      OCR1AH=0x03;
      OCR1AL=0x0d;
      break;}
    case 2:{//50Hz 
      OCR1AH=0x04;
      OCR1AL=0x93;
      break;}
    case 3:{//100Hz 
      OCR1AH=0x06;
      OCR1AL=0x1a;
      break;}
    case 4:{//150Hz 
      OCR1AH=0x03;
      OCR1AL=0x0d;
      break;}
    case 5:{//200Hz 
      OCR1AH=0x00;
      OCR1AL=0x4e;
      break;}
  }

  switch(driver){  
    case 1:{PORTD=0b00000001; break;};
    case 2:{PORTD=0b00000011; break;};
    case 3:{PORTD=0b00000010; break;};
    case 4:{PORTD=0b00000110; break;};
    case 5:{PORTD=0b00000100; break;};
    case 6:{PORTD=0b00001100; break;};
    case 7:{PORTD=0b00001000; break;};
    case 8:{PORTD=0b00001001; break;};  
  }
  driver = driver + 1 + step;
  
  switch(driver){  
    case 9:  driver=1; return;
    case 10: driver=2; return;
  }

  if(step==1)i++;                     
  if(i==200){step=0;}  
}

void main(void){
  __init_mk();
  speed=0;
  step=0;
  stop=1;
  PORTB=aDigitalLED[10];
  #asm("sei");
  
  while (1){
    if((PINC.0)==0){//добавим скорости
      delay_ms(20);
      if((PINC.0)==0){    
	    speed++;
        delay_ms(150);
      }
    }
    if(PINC.1==0){//стоп
      delay_ms(20);
      if(PINC.1==0){    
	    stop=~stop;
	    step=0;
        delay_ms(150);
      }
    }
    if(PINC.2==0){//сделаем один оборот
      delay_ms(20);
      if(PINC.2==0){    
	    stop=1;
	    step=1;
        delay_ms(150);
      }
    }
  }
}