#include <at898252.h>  //Headerdatei Controller einbinden
#include <stdio.h>
#include <string.h>

unsigned char Wandlung_Einer =  0x00;

unsigned char xdata Komando_schreiben _at_ 0x8000;   // Anweisung an das Display
unsigned char xdata Komando_lesen _at_ 0x8001;       // Busyflak abfragen ob bereit
unsigned char xdata Daten_schreiben _at_ 0x8002; 	 // Ausgabe an das Display weitergeben
unsigned char xdata Daten_lesen _at_ 0x8003; 		 // Display einlesen 

enum BAUDRATE { _300,_600,_1200,_2400,_4800,_9600,_19200,_57600};

//------------------------------------------------------------------------------------------

void warten (unsigned short zeit)
{
 	while (zeit > 0) zeit--;
}

//------------------------------------------------------------------------------------------

void LCD_ini()	// Funktion zur initialisierung eines LCD-Displays
{	
	warten(800);				// 15ms warten
	
	Komando_schreiben = 0x3C;	// Set Funktion (8bit interface, 2 line display, 5x10dots)
	warten(800);// 4.1ms
	
	Komando_schreiben = 0x3C;	// Set Funktion (8bit interface, 2 line display, 5x10dots)
	warten(800);// 4.1ms
	
	Komando_schreiben = 0x3C;	// Set Funktion (8bit interface, 2 line display, 5x10dots)
	warten(800);// 4.1ms
	
	Komando_schreiben = 0x08;	// Display OFF (Display off, Cursor off, Blinking off)
	warten(800);// 4.1ms
	
	Komando_schreiben = 0x01;	// Display Clear (Display clear)
	warten(800);				// 4.1ms
	
	Komando_schreiben = 0x06;	// Display Entry Mode Set (Increase, Display is not shifted)
	warten(800);				// 4.1ms

	Komando_schreiben = 0x0F;	// Display an (Display on, Cursor on, Blinking on)
	warten(800);			    // 4.1ms
}

//-------------------------------------------------------------------------------------------

LCD_kursor(unsigned char line)	    // Funktion zum Löschen des Diplays
{
	warten(800);	// 2.0ms
	if(line == 1){Komando_schreiben = 0x0F;}  	// Display: on  , Cursor: on  Blinking: on	
	if(line == 2){Komando_schreiben = 0x0C;}  	// Display: on  , Cursor: off Blinking: off	
	if(line == 3){Komando_schreiben = 0x0E;}  	// Display: on  , Cursor: on  Blinking: off	
	if(line == 4){Komando_schreiben = 0x0D;}  	// Display: on  , Cursor: off Blinking: on	
	if(line == 5){Komando_schreiben = 0x08;}  	// Display: off  		
}
//-------------------------------------------------------------------------------------------

LCD_loeschen()	// Funktion zum Löschen des Diplays
{
	warten(800);				// 2.0ms
	Komando_schreiben = 0x01;		// Display an (Display on, Cursor on, Blinking on)	
}
//-------------------------------------------------------------------------------------------

void LCD_text(char *s,unsigned char line)	// Funktion um einen Text auf dem LCD anzuzeigen
{
	unsigned int i;

	if(line == 1){Komando_schreiben = 0x80;}    // schreibt in Zeile 1
	if(line == 2){Komando_schreiben = 0xC0;}	// schreibt in Zeile 2
	if(line == 3){Komando_schreiben = 0x90;}	// schreibt in Zeile 3
	if(line == 4){Komando_schreiben = 0xD0;}	// schreibt in Zeile 4
	
	warten(500);	// 4.1ms

	for(i=0;i<strlen(s);i++)
	{
		Daten_schreiben = s[i];
		warten(500);	// 4.1ms
	}
}

//-------------------------------------------------------------------------------------------

void LCD_variable(char punkt,char variable)	// Funktion Variable on Ort x
{
	warten(500);	    	
	Komando_schreiben = punkt;	
	warten(500);	    
	Daten_schreiben = variable;
	warten(500);	    
}

//--------------------------------------------------------------------------------

void v_Timer_Init()      //Initialisierung der Timer
{
	TMOD = TCON | 0x21;  //0010|0001 -> 8-bit-Zeitgeber/Zähler, automatisch nachladen
	TR0 = 0;             //Timer0 stoppen TCON
	TR1 = 0;             //Timer1 stoppen TCON

	TF0 = 0;             //Timer0 Überlauf Falg TCON Beispiel:65536-61436=4100  61436->EFFC HEX TL0=0xFC TH0=0xEF ->4.1ms
	TF1 = 0;             //Timer1 Überlauf Falg TCON
}

//--------------------------------------------------------------------------------

void v_Timer1_RS232(enum BAUDRATE enBaudrate)
{
		
	SCON = SCON | 0x50;     //0101|0000 -> 8-Bit-UART,Baudrate über Timer1	
	PCON = PCON & 0x7F;	    //0111|1111 -> SMOD = 0 hoheBaudrate	
	
	switch (enBaudrate)
	{
		case _300:
			TH1 = 256 - 28800/300; break;
		case _600:
			TH1 = 256 - 28800/600; break;
		case _1200:
			TH1 = 256 - 28800/1200; break;
		case _2400:
			TH1 = 256 - 28800/2400; break;
		case _4800:
			TH1 = 256 - 28800/4800; break;
		case _9600:
			TH1 = 256 - 28800/9600; break; //TH1 = 253 -> 0xFD
		case _19200:
			TH1 = 256 - 57600u/19299;
			PCON = PCON | 0x80; //SMOD=1 
			break;
		case _57600:
			TH1 = 256 - 57600u/57600;
			PCON = PCON | 0x80; //SMOD=1
			break;		
	}

	TL1 = TH1;
	TR1 = 1; //Timer1 starten	
}

//---------------------------------------------------------------------------------------

void wait(unsigned char Multiplikator)	// Funktion Warteschleife mit Faktor mal 10ms
{
	unsigned char a;
	unsigned int lauf1;
	for (a=0;a<Multiplikator;a++)
	{
		for(lauf1=0;lauf1<20000;lauf1++);
	}
}

//----------------------------------------------------------------------------------------

void main (void)

{

	v_Timer_Init(); // Initialisierung der Timer
	v_Timer1_RS232(_9600); // Initialisierung der Seriellen Schnittstelle

	REN =1; //Freigabe der Empfangsleitung
	ES = 1; //Freigabe des seriellen Interrupts
	EA = 1; //allgemeine Interruptssperre aufheben

	Wandlung_Einer=0x31;
	
	LCD_ini();	// Funktion LCD-Display initialisieren
	LCD_kursor(2);
	LCD_text("Besucherzaehler",1);
	

	P1_0 = 0; //LED ON
	P1_1 = 1; //LED ON


	while(1) //Edlosschleife
	{

		P1_0 = ~P1_0;
		P1_1 = ~P1_1;
		wait(4);

		Wandlung_Einer++;
		LCD_variable(0xc0,Wandlung_Einer);
		LCD_kursor(2);

	}

}

//---Interrupt Funktion wenn ein Zeichen empfangen wird--------------------------------------

	void v_SerInt(void) interrupt 4 using 1
	{
		unsigned char lauf;

		if(lauf == 1)   // Per Teminal Programm LED ON/OFF
		{		
			P1_2 = 1; //LED OFF
			lauf=0;

		}else
		{
			P1_2 = 0; //LED ON
			lauf=1;
		}
		

		RI=0;  // 1 nach empfangen eines Zeichens
	}