#include <stdio.h>
#include <avr/io.h>
#include <stdlib.h> //if(bit_is_clear(PINA, PA0) && (bit_is_clear(PINA, PA1)))
#include <avr/interrupt.h>

#define SET_BIT(PORT, BITNUM)    ((PORT) |=  (1<<(BITNUM)))
#define CLEAR_BIT(PORT, BITNUM)  ((PORT) &= ~(1<<(BITNUM)))
#define TOOGLE_BIT(PORT, BITNUM) ((PORT) ^=  (1<<(BITNUM)))

//BSp.: SET_BIT(PORTB, PINB6);	// setze PINB6 0,8V-5V

int data,i,check;



void wait(void);

void LCD_INIT (void);


void busy (void);

int main (void)
{
sei();	//setzt das globale Interruptflag = Interrupts werden zugelassen

OCR0=149;	// Vergleichswert für TMR0 ist 149 (bei match Einsprung in ISR(TIMER0_COMP_vect)
TIMSK|=(1<<OCIE0);	// und OCIE0=1 (zulassen von match Interrupts) 
TCCR0|=(1<<WGM01);  // setzte TCNTO(=Zählregister auf =0, wenn match (TCNT0=OCR0)

DDRA=0b11111111; 	// kompletten PortA als Ausgang setzten DB0 bis DB7
DDRD=0b11111111;	// kompletten PORTD als Ausgang setzten
//DDRB=0b11111111;	// kompletten PORTB als Ausgang setzten




LCD_INIT(); 

PORTB=0b11111110;	// ausgabe von LED0


//Zeichen schreiben z.B. 8 0b00111000;
busy();
PORTD|=(1<<PIND6);	//RS=1 Daten werden als Text interpretiert
PORTD&=~(1<<PIND5);	//RW=0, daten werden in das Modul geschrieben
PORTD|=(1<<PIND4);	//setzt E
PORTA=0b00111000;	// 8
PORTD&=~(1<<PIND4);	//übernahme der Daten E löschen

// nächstes Zeichen schreiben
busy();
PORTD|=(1<<PIND6);	//RS=1 Daten werden als Text interpretiert
PORTD&=~(1<<PIND5);	//RW=0, daten werden in das Modul geschrieben
PORTD|=(1<<PIND4);	//setzt E
PORTA=0b10111001;
PORTD&=~(1<<PIND4);	//übernahme der Daten E löschen

loop:

goto loop; 	
   
}



ISR(TIMER0_COMP_vect) // bei TMR0 match Einsptung in diese ISR
{
    data++; 				/* Interrupt Code */
}

//---------------------CALL-----------------------
void LCD_INIT (void)
{


//Function Set 1
PORTD&=~(1<<PIND5);	//RW=0, daten werden in das Modul geschrieben
PORTD&=~(1<<PIND6);	//RS=0 Daten werden als Befehle interpretiert
wait();
SET_BIT(PORTD, PIND4); //setzt E
wait();
PORTA=0b00111000;	// Function set, 8Bit Display,Dual Line,5x8Dots
wait();
PORTD&=~(1<<PIND4);;	//übernahme der Daten

//Function Set 2
PORTD&=~(1<<PIND5);	//RW=0, daten werden in das Modul geschrieben
PORTD&=~(1<<PIND6);	//RS=0 Daten werden als Befehle interpretiert
wait();
SET_BIT(PORTD, PIND4); //setzt E
wait();
PORTA=0b00111000;	// Function set, 8Bit Display,Dual Line,5x8Dots
wait();
PORTD&=~(1<<PIND4);;	//übernahme der Daten

//Function Set 3
PORTD&=~(1<<PIND5);	//RW=0, daten werden in das Modul geschrieben
PORTD&=~(1<<PIND6);	//RS=0 Daten werden als Befehle interpretiert
SET_BIT(PORTD, PIND4); //setzt E
wait();
PORTA=0b00111000;	// Function set, 8Bit Display,Dual Line,5x8Dots
wait();
PORTD&=~(1<<PIND4);;	//übernahme der Daten

//Function Set ab hier busy
busy();
PORTD&=~(1<<PIND5);	//RW=0, daten werden in das Modul geschrieben
PORTD&=~(1<<PIND6);	//RS=0 Daten werden als Befehle interpretiert
SET_BIT(PORTD, PIND4); //setzt E
PORTA=0b00111000;	// Function set, 8Bit Display,Dual Line,5x8Dots
PORTD&=~(1<<PIND4);;	//übernahme der Daten

//Display On/Off
busy();
PORTD&=~(1<<PIND5);	//RW=0, daten werden in das Modul geschrieben
PORTD&=~(1<<PIND6);	//RS=0 Daten werden als Befehle interpretiert
SET_BIT(PORTD, PIND4); //setzt E
PORTA=0b00001111;	// Display on/of,Display on,Shift Display,Cursor blink on
PORTD&=~(1<<PIND4);;	//übernahme der Daten

//Display Clear
busy();
PORTD&=~(1<<PIND5);	//RW=0, daten werden in das Modul geschrieben
PORTD&=~(1<<PIND6);	//RS=0 Daten werden als Befehle interpretiert
PORTD|=(1<<PIND4);	//setzt E
PORTA=0b00000001;	// Clear Display
PORTD&=~(1<<PIND4);;	//übernahme der Daten

//Entry Mode
busy();
PORTD&=~(1<<PIND5);	//RW=0, daten werden in das Modul geschrieben
PORTD&=~(1<<PIND6);	//RS=0 Daten werden als Befehle interpretiert
PORTD|=(1<<PIND4);	//setzt E
PORTA=0b00000110;	// Entry mode,Increment Cursor automaticly
PORTD&=~(1<<PIND4);;	//übernahme der Daten
}

void wait(void)
{
TCCR0|=(1<<CS00);	//startet den Timer0 ohne Vorteiler
TCCR0|=(1<<CS02);	//Vorteiler clk/1024

schleife:
if(data==10){
	data=0;
	TCCR0&=~(1<<CS00);	//stoppt den Timer0 ohne Vorteiler
    TCCR0&=~(1<<CS01);	// stoppt den Vorteiler clk/64
	TCNT0=0b00000000;	// das TMR0 Zählregister auf 0 setzten da es zwar 
						// zurückgesetzt wird aber vor TMR0 stoppen wieder anzählt
	}
else goto schleife;
	
}


void busy (void)
{
PORTD&=~(1<<PIND6);	//RS=0 Daten werden als Befehle interpretiert
PORTD|=(1<<PIND5);	//RW=1, Daten werden aus dem Modul gelesen
DDRA=0b00000000;	// PORTA als Eingang konfigureiren
PORTA=0b00000000;	// Internen Pull Ups für PINA7 aktivieren, da Busy PINA7 auf 0 zieht
wait();
PORTD|=(1<<PIND4);	//setzt E
wait();
PORTB=0b11111101;	// ausgabe von LED1
busyloop:

if(bit_is_clear(PINA,PA7))
	{
	PORTB=0b11011111;	//ausgabe von LED5
	PORTD&=~(1<<PIND4);	//übernahme der Daten lösche E
	DDRA=0b11111111;	//PORTA als Ausgang konfigureiren
	}
	else goto busyloop;
}