#include<avr/io.h>
#include "ht1632c.h"
#include<util/delay.h>


const unsigned char balken[] = {0x00, 0x08, 0x0C, 0x0E, 0x0F, 0x8F, 0xCF, 0xEF, 0xFF}; //16 LED Balken

void ht1632_wait(void)
{
asm volatile ("nop"); // kann evtl. für schnelle uC angepasst werden! ist aber bis 16MHz getestet und stabil
}

void init_command(unsigned int command_data)
{
   unsigned int i,j;

   command_data=command_data&0xfff;
   command_data=command_data<<4;
   led_port |= (1<<CS); // CS=1;
   ht1632_wait();
   led_port &= ~(1<<CS);// CS=0;

     for(i=0;i<12;i++)
   {
	  led_port &= ~(1<<CLK);// CLK=0;
      ht1632_wait();
	  j=command_data&0x8000;
      command_data=command_data<<1;
      j=j>>15;
      if (j==1) led_port |= (1<<DATA);
	  else led_port &= ~(1<<DATA);// DAT=j;
      ht1632_wait();	  
	  led_port |= (1<<CLK); // CLK=1;
   ht1632_wait();
   }
  led_port |= (1<<CS); // CS=1;
}

void ht1632_init(void)
{
 // CS, CLK, DATA as Output
 led_ddr |= (1<<CS)|(1<<CLK)|(1<<DATA);
   //sys en
   init_command(0b100000000010);
   //led on
   init_command(0b100000000110);
   //master mode
   init_command(0b100000110000);
   //commons option
   init_command(0b100001001000); //Meine Einstellung 24x16 N-MOS 
   //pwm duty
   init_command(0b100101011110); //Helligkeit

}

void ht1632_address(unsigned char address)
{
   unsigned char i,temp;
     
   temp = 0x40;                     //address has 7 bits
   
   for(i=0;i<7;i++)
   {
      led_port &= ~(1<<CLK);// CLK= 0;             
         ht1632_wait();
		 if((temp & address) == 0)   
        led_port &= ~(1<<DATA); // DAT= 0;
      else           
        led_port |= (1<<DATA); // DAT= 1;
     ht1632_wait();
	 led_port |= (1<<CLK); // CLK= 1;            
     //  ht1632_wait();
	  temp >>= 1;
   }
}

void ht1632_data(unsigned char data)
{
   unsigned char i,temp;
     
   temp = 0x08;                     //data has 4 bits
   
   for(i=0;i<4;i++)
   {
      led_port &= ~(1<<CLK);// CLK= 0;             
         ht1632_wait();
		 if((temp & data) == 0)   
        led_port &= ~(1<<DATA); // DAT= 0;
      else           
        led_port |= (1<<DATA); // DAT= 1;
     ht1632_wait();
	 led_port |= (1<<CLK); // CLK= 1;            
     //  ht1632_wait();
	  temp >>= 1;
   }
}
void ht1632_send(unsigned char address, unsigned char data)
{
     led_port |= (1<<CS); // CS=1; // Send 101
     ht1632_wait();
     led_port &= ~(1<<CS); // CS=0;
     ht1632_wait();
     led_port &= ~(1<<CLK); // CLK=0;
     ht1632_wait();
	 led_port |= (1<<DATA); // DAT=1;
     ht1632_wait();
	 led_port |= (1<<CLK); // CLK=1;
     ht1632_wait();
     led_port &= ~(1<<CLK); // CLK=0;
     ht1632_wait();
	 led_port &= ~(1<<DATA);// DAT=0;
     ht1632_wait();
	 led_port |= (1<<CLK); //CLK=1;
     ht1632_wait();
     led_port &= ~(1<<CLK); // CLK=0;
     ht1632_wait();
	 led_port |= (1<<DATA); // DAT=1;
     ht1632_wait();
	 led_port |= (1<<CLK); // CLK=1;
     
     ht1632_address(address);
     ht1632_data(data);
     led_port |= (1<<CS); // CS=1;
}

void ht1632_clean(void)
{
for (unsigned char i=0; i<96; i++)
{
ht1632_send(i, 0x00);
}
} 

void send_balken(unsigned char number, unsigned char pos)
{
unsigned int temp;
pos = (pos-1) * 4;
temp = balken[number];
if (number<=8)
{
ht1632_send(pos, temp&0x0F);
temp >>= 4;
ht1632_send(pos+1, temp&0x0F);
ht1632_send(pos+2, 0x00);
ht1632_send(pos+3, 0x00);
}
else 
{
ht1632_send(pos, 0x0F);
ht1632_send(pos+1, 0x0F);
temp = balken[number-8];
ht1632_send(pos+2, temp&0x0F);
temp >>= 4;
ht1632_send(pos+3, temp&0x0F);
}
}