#include <avr/io.h>
#include <avr/eeprom.h>
#include <avr/interrupt.h>
#include "LCDmikrocontroller.h"
#include <util/delay.h>
#include <stdlib.h>

#define STAT_SPEICHER_VOLL 0
#define STAT_UART_REC 1
#define STAT_MOTOR_AN 2
#define STAT_RICHTUNG 3
#define STAT_DELETE 4

#define LICHT PINC0
#define TASTER PINC1
#define SCHRITT PC2
#define RICHTUNG PC3

void uart_puts (char *s);
int uart_putc(unsigned char c);
void auswurf(uint8_t seite);
void werte_ausg(void);
void delete(void);

volatile uint16_t status = 0;
volatile uint8_t empfangen;
volatile int16_t weg;
volatile uint16_t zeit = 0;
char buffer_char[16];
uint8_t *eeprom_adr = 0;
uint8_t eeprom_wert = 3;
int main(void)
{
	TCCR0 |= (1<<CS01) | (1<<CS00);	//Timer0 mit prescaler 64
	TIMSK |= (1<<TOIE0);	//interrupt enable
	UBRRL = 12;	//baud rate 4800
	UCSRB |= (1<<TXEN);	//transmitter enable
	UCSRB |= (1<<RXCIE) | (1<<RXEN);	//receiver und interrupts enable
	DDRC |= (1<<SCHRITT) | (1<<RICHTUNG);
	sei();
	_delay_ms(100);
	lcd_init();
	lcd_clear();
	lcd_home();
	lcd_string("Geraet startet...");
	uart_puts("Geraet startet\n");
	_delay_ms(2000);
	if (PINC & (1<<LICHT))
	{
		uart_puts("Dummy wird ausgeworfen\n");
		lcd_string("Ein Dummy wird");
		lcd_setcursor(0,2);
		lcd_string("ausgeworfen...");
		status |= (1<<STAT_MOTOR_AN);
		while (PINC & (1<<LICHT))
		{
		}
		status &= ~(1<<STAT_MOTOR_AN);
		_delay_ms(3000);
	}
	while (eeprom_wert != 0)
	{
		eeprom_wert = eeprom_read_byte(eeprom_adr);
		if (eeprom_wert != 0)
		{
			eeprom_adr++;
		}
		if (eeprom_adr >(uint8_t*) 255)
		{
			status |= (1<<STAT_SPEICHER_VOLL);
			break;
		}
	}
	uart_puts("Eeprom check\n");
    while (1) 
    {
		if (status & (1<<STAT_UART_REC))
		{
			switch(empfangen)
			{
				case 1: status |= (1<<STAT_MOTOR_AN);
				uart_puts("Motor ist an\n");
				break;
				case 2: status &= ~(1<<STAT_MOTOR_AN);
				uart_puts("Motor ist aus\n");
				break;
				case 3: uart_puts("Ausgabe aller Werte\n");
				werte_ausg();
				break;
				case 4: delete();
				break;
			}
			empfangen = 0;
			status &= ~(1<<STAT_UART_REC);
		}
		if (!(status & (1<<STAT_SPEICHER_VOLL)))
		{
			lcd_clear();
			lcd_home();
			lcd_string("Naechste Nummer:");
			lcd_setcursor(0,2);	//Spalten-Zählung beginnt bei 0, Zeile bei 1 (?)
			itoa((eeprom_adr+1),buffer_char,10);
			lcd_string(buffer_char);
			if (PINC & (1<<TASTER))
			{
				while(PINC & (1<<TASTER));
				status &= ~(1<<STAT_RICHTUNG);
				if (TCNT0 & 1)
				{
					status |= (1<<STAT_RICHTUNG);
				}
				lcd_setcursor(6,2);
				lcd_string("Ausgabe");
				auswurf(status & 1<<RICHTUNG);
				lcd_clear();
				lcd_home();
				lcd_string("Naechste Nummer:");
				lcd_setcursor(0,2);	//Spalten-Zählung beginnt bei 0, Zeile bei 1 (?)
				itoa((eeprom_adr+1),buffer_char,10);
				lcd_string(buffer_char);
			}
		}
		else
		{
			lcd_clear();
			lcd_home();
			lcd_string("Speicher voll!");
		}
		while (!((status & (1<<STAT_UART_REC)) | (PINC & (1<<TASTER))))
		{
		}
    }
}
ISR(TIMER0_OVF_vect)
{
	if (status & (1<<STAT_MOTOR_AN))
	{
		PORTC ^= (1<<SCHRITT);
		weg++;
	}
	zeit++;
}
ISR(USART_RXC_vect)
{
	if (!(status & (1<<STAT_UART_REC)))
	{
		empfangen = UDR;
		status |= (1<<STAT_UART_REC);
	}
}

int uart_putc(unsigned char c)
{
	while (!(UCSRA & (1<<UDRE)))  /* warten bis Senden moeglich */
	{
	}

	UDR = c;                      /* sende Zeichen */
	return 0;
}
void uart_puts (char *s)
{
	while (*s)
	{   /* so lange *s != '\0' also ungleich dem "String-Endezeichen(Terminator)" */
		uart_putc(*s);
		s++;
	}
}
void auswurf(uint8_t seite)
{
	PORTC = (PORTC & ~(1<<RICHTUNG)) | seite;	//Drehrichtung
	weg = 0;
	status |= (1<<STAT_MOTOR_AN);
	while (weg < 200)
	{
	}
	PORTC ^= (1<<RICHTUNG);
	while (PINC & (1<<LICHT))
	{
	}
	weg = 0;
	while (weg<8)
	{
	}
	status &= ~(1<<STAT_MOTOR_AN);	//Motor wieder aus
	uint8_t zwischenspeicher = 1;
	if (status & (1<<RICHTUNG))
	{
		zwischenspeicher = 2;
	}
	eeprom_write_byte(eeprom_adr, zwischenspeicher);
	eeprom_adr++;
	if (eeprom_adr>(uint8_t*)255)
	{
		status |= (1<<STAT_SPEICHER_VOLL);
	}
	lcd_clear();
	lcd_home();
	lcd_string("Probe Nr. ");
	lcd_string(buffer_char);
	lcd_setcursor(0,2);
	lcd_string("wurde ausgew.");
	_delay_ms(3000);

}
void werte_ausg(void)
{
	uint8_t ausg_wert;
	for(uint8_t* i = 0; i < eeprom_adr; i++)
	{
		ausg_wert = eeprom_read_byte(i);
		itoa(i+1,buffer_char,10);
		uart_puts(buffer_char);
		uart_putc(',');
		itoa(ausg_wert,buffer_char,10);
		uart_puts(buffer_char);
		uart_puts("\n");
	}
}
void delete(void)
{
	lcd_clear();
	lcd_home();
	lcd_string("Wirklich alles");
	lcd_setcursor(0,2);
	lcd_string("loeschen?");
	zeit = 0;
	while (zeit<300)
	{
		if (PINC & (1<<TASTER))
		{
			uart_puts("Speicher wird geloescht...\n");
			for (uint8_t* i; i<(uint8_t*)256; i++)
			{
				eeprom_write_byte(i,0);
			}
			status &= ~(1<<STAT_SPEICHER_VOLL);
			eeprom_adr = 0;
			uart_puts("Speicher ist geloescht\n");
			lcd_clear();
			lcd_home();
			lcd_string("Speicher wurde");
			lcd_setcursor(0,2);
			lcd_string("geloescht.");
			_delay_ms(3000);
		}
	}
	status &= ~(1<<STAT_SPEICHER_VOLL);
}