#include <mega8.h>
#include <stdio.h>
#include <delay.h>

#define CE PORTD.7
#define SCLK PORTB.1

#define PORT_IO PORTB.0
#define DDR_IO DDRB.0
#define PIN_IO PINB.0

#define DHT_PORT        PORTC.1
#define DHT_DDR         DDRC.1
#define DHT_PIN         PINC.1

#define LED PORTB.3
#define FAN PORTB.5
#define PIN_ATX PIND.5 //5 Volt

#define RX_BUFFER_SIZE 8
char rx_buffer[RX_BUFFER_SIZE];
unsigned char rx_index=0;

  short hm=0;
 short t=0;
 //unsigned long takt0,work;
 bit hum=0;
 bit work=0;
 eeprom char ld=2;
 unsigned char h,m,s,tmp;
// unsigned char ld=2;
 bit modefan=0;
 unsigned char data[5]={0,0,0,0,0};
 unsigned char pwmfan=255;
 const char min_temp=23;
 const char max_temp=35;
 unsigned char takt,bfan;

short map(short x, short in_min, short in_max, short out_min, short out_max)
{
 if (x<=in_min) return out_min;
 else if ((x+5)>=in_max) return out_max;
 else return (x - in_min) * (out_max - out_min) / (in_max - in_min) + out_min;
}



void send(unsigned char c)//   Отправка числа от 00 до 99
{
    c=c%100;
   putchar(c/10+'0');
   putchar(c%10+'0');         
}

void send3(unsigned char c)//   Отправка числа от 000 до 255
{
    c=c%1000;
   putchar(c/100+'0');
   c=c%100;
    putchar(c/10+'0');
    putchar(c%10+'0');         
}





int read_dht_hum()   //функция чтения данных датчика
{

unsigned char i,j;

DHT_DDR=1;
DHT_PORT=0;
delay_ms(20);
DHT_PORT=1;
DHT_DDR=0;
delay_us(50);
if (DHT_PIN==1)
    {
    return 0;
    }
delay_us(80);
if (DHT_PIN==0)
    {
    return 0;
    }

while (DHT_PIN==1);
for (j=0; j<5; j++)
    {
    data[j]=0;
    for(i=0; i<8; i++)
        {
        while (DHT_PIN==0);
        delay_us (30);
        if (DHT_PIN==1)
            data[j]|=1<<(7-i);
        while (DHT_PIN==1);
        }
    }

return 1;
//DHT22 data[0]-data[1]-humidity, data[2]-data[3]-temperature
}

void dht_read()
{
   hum=0;
   #asm("cli")
   hum = read_dht_hum();
   #asm("sei")
    if(hum==1)
    {
     hm = (short) data[0] * 256 + data[1];
     hm = hm/10;
     t = (short) data[2] * 256 + data[3];
     t = t/10; 
     }
}

char DS1302_BCD_To_Bin8(char data)
{
unsigned char result;      
   result = ((data>>4) & 0b00000111);
   data &= 0x0F;
   data = data + result*10;
   return data;
}


char DS1302_Bin8_To_BCD(char data)
{
   char nibh;
   char nibl;

   nibh=data/10;
   nibl=data-(nibh*10);

   return((nibh<<4)|nibl);
}


void write(unsigned char cmd)
{
unsigned char i=0;
   
   CE=1;//СE=1
   delay_us(5);
    DDR_IO=1;//устанавливаем на выход
   for(i=0; i<8; i++)//передаем биты
   {
      if((cmd&(1<<i)) == 1<<i)
      {
         PORT_IO=1;
      }
      else
      {
         PORT_IO=0;
      }
      SCLK=1;//устанавливаем синхроимпульс и по фронту бит записывается в часы
      delay_us(30);
      PORT_IO=0;//сбрасываем IO и SCLK
      SCLK=0;
   }
    delay_us(10);
}

void end_write_data()
{
   CE=0;//на CE устанавливаем "0"
}



//чтение данных
unsigned char read()
{
unsigned char i=0;
unsigned char readbyte=0;//сюда будем читать
 
   DDR_IO=0;//устанавливаем на вход
        //читаем побитно, если "1" записываем "1" в соответствующий бит, также с "0"
   for(i=0; i<8; i++)
   {
      SCLK=1;
      if(PIN_IO==0)
        {
         readbyte &= ~(1<<i);
      }
      else
      {
         readbyte |= 1<<i;
      }
      delay_us(30);
      SCLK=0;
      delay_us(15);
   }
   CE=0;
   delay_us(5);
   return readbyte;
}


interrupt [USART_RXC] void usart_rx_isr(void)
{
    char status,data;
    status=UCSRA;
    data=UDR;
    if ((status & ((1<<FE)| (1<<UPE) | (1<<DOR)))==0)
    {
     if (data=='#') // CR
      {
         work=1;
      }
      else rx_buffer[rx_index]=data;
      //  printf("%d",rx_buffer[rx_index]);
      if (++rx_index == RX_BUFFER_SIZE) rx_index=0;
    }
   
     if (work)
    {
      work=0;
      //printf("%d",rx_buffer[0]);
      switch (rx_buffer[0])
      {
        case 1 : {modefan=rx_buffer[1]; pwmfan=rx_buffer[2]; printf("SET PWM=%d Mode=%d",pwmfan,modefan); break;}
        case 2 :
        { 
            tmp = (DS1302_Bin8_To_BCD(rx_buffer[1]) | 0 | 0);
            write(0x84);
            write(tmp);
            end_write_data();
            printf("SET HOUR=%d;",rx_buffer[1]);
            write(0x82);
            write(DS1302_Bin8_To_BCD(rx_buffer[2]));
            end_write_data();
            printf("SET MINUTE=%d;",rx_buffer[2]);
            write(0x80);
            write(DS1302_Bin8_To_BCD(rx_buffer[3]));
            end_write_data();
            printf("SET SECOND=%d;",rx_buffer[3]);
            break;
        }
        case 3 : {ld=rx_buffer[1]; printf("SET LD=%d",ld); break;}
      }
    }         
 

}




interrupt [TIM1_OVF] void timer1_ovf_isr(void)
{
TCNT1H=0xFCE0 >> 8;
TCNT1L=0xFCE0 & 0xff;
takt++;
if (takt==0)
    {
     bfan=pwmfan;
     FAN=1;
    }
if (bfan==takt) FAN=0;
//pwmfan=0;
if (modefan==0) {if (PIN_ATX==1) pwmfan=map(t,min_temp,max_temp,1,255); else pwmfan=0;}
if((h>=0)&&(h<ld)) LED=0; else LED=1;
}



void main(void)
{
DDRB=(0<<DDB7) | (0<<DDB6) | (1<<DDB5) | (0<<DDB4) | (1<<DDB3) | (0<<DDB2) | (1<<DDB1) | (1<<DDB0);
PORTB=(0<<PORTB5)| (1<<PORTB3);;

DDRC=(0<<DDC6) | (0<<DDC5) | (0<<DDC4) | (1<<DDC3) | (1<<DDC2) | (0<<DDC1) | (1<<DDC0);
PORTC=(1<<PORTC0)| (1<<PORTC2)|(1<<PORTC3);

DDRD=(1<<DDD7) | (0<<DDD6) | (0<<DDD5) | (0<<DDD4) | (0<<DDD3) | (0<<DDD2) | (0<<DDD1) | (0<<DDD0);
PORTD=(0<<PORTD5);


// USART initialization
// USART Baud Rate: 300
UCSRA=(0<<RXC) | (0<<TXC) | (0<<UDRE) | (0<<FE) | (0<<DOR) | (0<<UPE) | (0<<U2X) | (0<<MPCM);
UCSRB=(1<<RXCIE) | (0<<TXCIE) | (0<<UDRIE) | (1<<RXEN) | (1<<TXEN) | (0<<UCSZ2) | (0<<RXB8) | (0<<TXB8);
UCSRC=(1<<URSEL) | (0<<UMSEL) | (0<<UPM1) | (0<<UPM0) | (0<<USBS) | (1<<UCSZ1) | (1<<UCSZ0) | (0<<UCPOL);
UBRRH=0x06;
UBRRL=0x82;

TCCR1A=(0<<COM1A1) | (0<<COM1A0) | (0<<COM1B1) | (0<<COM1B0) | (0<<WGM11) | (0<<WGM10);
TCCR1B=(0<<ICNC1) | (0<<ICES1) | (0<<WGM13) | (0<<WGM12) | (0<<CS12) | (0<<CS11) | (1<<CS10);
TCNT1H=0xFC;
TCNT1L=0xE0;

TIMSK= (1<<TOIE1);
/*
Запись времени в часы
//tmp=0x1;
   write(0x84);
   write(tmp);
   end_write_data();
   
   
write(0x82);
write(DS1302_Bin8_To_BCD(57));
end_write_data();

write(0x80);
write(DS1302_Bin8_To_BCD(1));
end_write_data();
*/
#asm("sei")

while (1)
 {
 delay_ms(10000);
    dht_read();
   
    write(0x85);
    h = read();
    h = h & 0b00111111;
   h = DS1302_BCD_To_Bin8(h);
   
    write(0x83);
    m=DS1302_BCD_To_Bin8(read());
   
    write(0x81);
    s=DS1302_BCD_To_Bin8(read());
     
   send(h);
   send(m);
   send(s);
   send(t);
   send(hm);
   send3(pwmfan);
   
 
 // send_data();       
 }
 }