#include <reg52.h>
#include "io.h"
#include "eeprom.h"

unsigned char serialActivity;
unsigned char messageType;
unsigned char receiveCount;

// Delay function 
void timeDelay(int num)
{
	int i,j;
	for(i=0; i<num; i++)
	{
		for(j=0; j<10; j++)
			;
	}

}

//************************************************
//Interrup code modified from code by 
//Greg Stitt & Ann Gordon-Ross
//************************************************
// interrupt code
void StartOver() interrupt 4 using 2
{
	serialActivity = 1;
	switch(SBUF)
	{	
		case 'P':
			receiveCount = 4;
			messageType = 0;
			break;

		case 'M':
			receiveCount = 45;
			messageType = 1;
			break;

		case 'R':
			messageType = 2;
			break;

		default:
			messageType = 3;
			break;
	}
	
	// reset serial flags
	RI = TI = 0;
}

//************************************************
//InitUart function by 
//Greg Stitt & Ann Gordon-Ross
//************************************************
void InitUart(void) 
{
    
	 /*
	 *              12.00
     * baud rate = ---------- * 1e6
     *               32 * divisor
     *
     * divisor = 2^16 - X
     *
     * 65523 = 28800 @ 12 MHz
     */

	//1200, 65223
	// 300, 64286	
	RCAP2H = (unsigned char)(65223 >> 8);  // 65000
    RCAP2L = (unsigned char)(65223);		//65000
    T2CON = 0x34;
    SCON = 0x40;
    P3 |= 0x03;
    REN = 1;
}

unsigned char receiveData() 
{
    RI = 0;

    while( 1 ) 
    {
		if( RI == 1 ) 
		{   return SBUF;   }
	}
}

void sendChar(unsigned char c) 
{

    TMOD = 0x20; /* configure timer for the correct baud rate */
    TH1  = 0xe6; /* 1200 bps for 12 MHz clock */
    TCON = 0x00; /* Set timer to not running */
    SCON = 0x40; /* "0100_0000" indicates sending data*/
    TR1  = 1;    /* start timer */
    SBUF = c;    /* write character to SBUF */

    while( (SCON & 0x02) == 0 )
    { }     

    return;

}

// Routine to scan the key pressed
unsigned char key_scan()
{       
	unsigned char i, j;
	
    while( 1 )
    {
		if(serialActivity == 1)
			return 1;

		for(i=0; i<4; i++) 
		{
      		// Set each row to 0 
			P1 = 0xff & ~(1<<i);
			// Scan each column to see which key was pressed 
			for (j=4; j<8; j++) 
			{
				//Determine the position of the key which was pressed 
				if(P1 == 0xee)
					return 0;

				else if(P1 == 0xde)
					return 1;
			
				else if(P1 == 0xbe)
					return 2;
				
				else if(P1 == 0x7e)
					return 3;
			 
				else if(P1 == 0xed)
					return 4;
			
				else if(P1 == 0xdd)
					return 5;
			
				else if(P1 == 0xbd)
					return 6;
				
				else if(P1 == 0x7d)
					return 7;
			 
				else if(P1 == 0xeb)
					return 8;
				
				else if(P1 == 0xdb)
					return 9;

				else if(P1 == 0xbb)
					return 10;
			
				else if(P1 == 0x7b)
					return 11;
				
				else if(P1 == 0xe7)
					return 12;
			 
				else if(P1 == 0xd7)
					return 13;

				else if(P1 == 0xb7)
					return 14;
			
				else if(P1 == 0x77)
					return 15;			     	
			}

		}                        
	}
}


void main() 
{
	unsigned char conv_table[] = 
	{                 
	   49, 50, 51, 100 /* start button */,
       52, 53, 54, 101 /* up button */,
       55, 56, 57, 102 /* over button*/,
       -1, 48, -1, 103 /* enter button */        
	};        
	
	unsigned char password[3];
	unsigned char mydata[45] = {'\0'};
	unsigned char keyPressed;
	unsigned char messageCount;
	unsigned char wait = 1;
	unsigned char messageIndex;
	unsigned char address;
	unsigned char i;
	unsigned int messTotal = getTotals(0);
	unsigned int passTotal = getTotals(1);
	
	InitIO();

	while(1) 
	{
		serialActivity = 0;
		messageType = 3;
		ClearScreen();
		InitUart();
		PrintString("RIP V2.0");	
		IE = 0x90;//enable interrupt

		
		//waits here for a interrupt or user
        do 
		{          
		   keyPressed = conv_table[key_scan()];
        }
		while( keyPressed != 100 && serialActivity == 0 );		
				
		IE = 0x00;//turn off serial interrupt

		//This means that a user is present
		if(serialActivity == 0)
		{			
			timeDelay(10000);
			ClearScreen();
			//checks to see there is any messages
			if(messTotal != 0 && passTotal !=0)
			{
				//getting password from user
				for(i=0; i<4; i++)
				{
					do 
					{
						password[i] = conv_table[key_scan()];
					}
					while( password[i] < 48 || password[i] > 57 );
 					PutChar('*');
					timeDelay(5000);
				}
				ClearScreen();
				//checks user password
				if( checkPassword(password,passTotal) == 0 )
				{
					messageCount = 1;
					messageIndex = 0;
					getMessage(mydata, messageCount);
					displayMessage(mydata,messageIndex);
					//wait here till a message is selected
					while(wait)
					{
						do 
						{
							keyPressed = conv_table[key_scan()];
						}
						while(keyPressed != 101 && keyPressed != 102 && keyPressed != 103);

						timeDelay(5000);

						//view next message
						if( keyPressed == 101 )
						{
							if(messageCount == messTotal)
							{   messageCount = 1;   }
							else
							{   messageCount++;   }
							messageIndex = 0;
							getMessage(mydata,messageCount);
							displayMessage(mydata,messageIndex);
						}
						//scroll message on screen
						else if( keyPressed == 102 )
						{
							messageIndex++;
							displayMessage(mydata,messageIndex);
						}					
						//send message
						else
						{
							wait = 0;
							ClearScreen();
							displayMessage("Sending.....  ",0);
							sendChar(messageCount);
							timeDelay(1000);
							sendChar(messageCount);
							timeDelay(10000);
							timeDelay(10000);
							timeDelay(10000);
							
						}
					}
				}
				//if user enters a invalid password
				else
				{  
					PrintString("Invalid");
					timeDelay(10000);
					timeDelay(10000);
				}
				
			}
			//if no message in storage
			else
			{
				displayMessage("No Messages",0);
				timeDelay(10000);
			}
			
			wait = 1;
		

		}
		//This means a serial interrupt occurred.
		else
		{
			//checks to see if interrupt is junk
			if(messageType != 3)
			{
				//getting the message number				
				if(messageType == 1)
				{
					address = receiveData();
				}
				//receiving data
				for(i=0; i<receiveCount; i++)
				{
					mydata[i] = receiveData();

				}							
				//gets the end of message bit
				if( receiveData() == 'E' )
				{   
					//sendChar('A');					
					//if email message
					if( messageType == 1 )
					{	
						newMessage(mydata,address);
						if(address > messTotal)
						{
							messTotal++;
							updateTotals(messTotal,0);
						}
					}
					//if password 
					else
					{						
						newPassword(mydata,passTotal);
						passTotal++;
						updateTotals(passTotal,1);


					}

				}			
			}
		}
		
	}
}