// Alarm Clock
//
//   Input a time with the keypad
//   Press * to start timer


  
// Global Variables

const unsigned char MSG0[21] = "AlarmClock.C        "; 
const unsigned char MSG1[21] = "                    "; 


// Subroutine Declarations
#include <pic18.h>

// Subroutines
#include        "lcd_portd.c"

char GetKey(void)
{
   int i;
   unsigned char RESULT;
   TRISC = 0xF8;
   RESULT = 0xFF;
   PORTC = 4;
   for (i=0; i<100; i++);
   if (RC6) RESULT = 1;
   if (RC5) RESULT = 4;
   if (RC4) RESULT = 7;
   if (RC3) RESULT = 10;
   PORTC = 2;
   for (i=0; i<100; i++);
   if (RC6) RESULT = 2;
   if (RC5) RESULT = 5;
   if (RC4) RESULT = 8;
   if (RC3) RESULT = 0;
   PORTC = 1;
   for (i=0; i<100; i++);
   if (RC6) RESULT = 3;
   if (RC5) RESULT = 6;
   if (RC4) RESULT = 9;
   if (RC3) RESULT = 11;
   if (RB0) RESULT = 12;
   if (RB1) RESULT = 13;
   if (RB2) RESULT = 14;
   if (RB3) RESULT = 15;
   if (RB4) RESULT = 16;
   PORTC = 0;
   return(RESULT);
}
      
char ReadKey(void)
{
   char X, Y;
   do {
      X = GetKey();
      }   while(X > 20);
   do {
      Y= GetKey();
      }   while(Y < 20);
   Wait_ms(100);  // debounce
   return(X);
   }
 

         
// Main Routine

void main(void)
{
   unsigned int i, j;
   int TIME, X, RUN, TEMP;
   
   TRISA = 0;
   TRISB = 0xFF;
   TRISC = 0xF8;
   TRISD = 0;
   TRISE = 0;
   TRISA = 0;
   ADCON1 = 15;

   PORTA = 0;

   LCD_Init();                  // initialize the LCD

   LCD_Move(0,0);  for (i=0; i<20; i++) LCD_Write(MSG0[i]);
   Wait_ms(2000);
   LCD_Inst(1);

   TIME = 0;
   X = 0;
   RUN = 0;

   LCD_Move(0,0);  LCD_Write('T');
   LCD_Move(1,0);  LCD_Write('X');


   while(1) {
      TEMP = ReadKey();

      if (TEMP < 10) X = (X*10) + TEMP;
        
      if (TEMP == 10) {
         TIME = X;
         X = 0;
         RUN = 1;
         }  
 
      if (TEMP == 11) {
         X = X / 10;
         }   
   
      if (RUN) {
         while(TIME) {
            TIME = TIME - 1;
            LCD_Move(0,5);  LCD_Out(TIME,5,1);
            Wait_ms(100);
            }
         PORTA = 0xFF;
         Wait_ms(1000);
         PORTA = 0;
         RUN = 0;
         }    

      LCD_Move(1,5);  LCD_Out(X, 5, 0);
      LCD_Move(0,5);  LCD_Out(TIME, 5, 1);

      Wait_ms(100);
      
      }      

   }