//PIC16F84A
#include <pic.h>
//#include <16F84A.h>

__CONFIG( WDTDIS & PWRTEN );


#define BUTTON_DELAY 25



int    kb_hit();
void    delay(int delay);
void    beep(int duration, int frequency);    ///  beep
void    correct_beep();
void   error_beep();
void    reset_beep();
void    brava_opeen();
void    button_beep();

char read_kb();


int pass_caunter = 1;


char      temp_pass1;
char      temp_pass2;
char      temp_pass3;
char      temp_pass4;
int      reset = 0;

int Pass_count = 0;

int i, j, d;    // loops varable

main(){ // Main

///----------- CONFING
OPTION = 0b00000100;
TRISB = 0b00000000;

TRISA2 = 0;
TRISA3 = 0;

TRISB0 = 0;
TRISB1 = 0;
TRISB2 = 0;
TRISB3 = 0;
TRISB4 = 1;
TRISB5 = 1;
TRISB6 = 1;
TRISB7 = 1;
while(1==1){   // main loop

   reset++;

      if(pass_caunter < 5)
         {
           if(pass_caunter == 1){
            if(kb_hit()){
               temp_pass1 = read_kb();
                  pass_caunter++;
                     reset = 0;
                     }
               }



         if(pass_caunter == 2){
            if(kb_hit()){
               temp_pass2 = read_kb();
                  pass_caunter++;
                     reset = 0;
                     }
               }

         if(pass_caunter == 3){
            if(kb_hit()){
               temp_pass3 = read_kb();
                  pass_caunter++;
                     reset = 0;
                     }
               }


         if(pass_caunter == 4){
            if(kb_hit()){
               temp_pass4 = read_kb();
               pass_caunter++;
                     reset = 0;
                     }
               }
         }


   if(pass_caunter == 5)
            {
               /// cheek pass
               if((temp_pass1 == '3') && (temp_pass2 == '5') && (temp_pass3 == '4') && (temp_pass4 == '9'))
                  {
                     correct_beep();
                        brava_opeen();
                           pass_caunter = 1;
                  }
               else{
                     error_beep();
                        pass_caunter = 1;
                  }
            }






if(pass_caunter > 1)
      {
   if(reset == 10000)
       {
      // reset
         reset_beep();

         pass_caunter = 1;
         temp_pass1 = ' ';
         temp_pass2 = ' ';
         temp_pass3 = ' ';
         temp_pass4 = ' ';
         reset = 0;
       }
      }













           } // end main loop
} // end main




//------------------------------------------------------------------------
//     PROGRAMS
//
//
//----------------------------------------------------------------------


void delay(int delay){
      for (i = 0; i < 255; i++)  //  Simple Delay Loop
            for (j = 0; j < delay; j++);

}




void beep(int duration, int frequency){
      for(d = 0; d < duration; d++)
            {
               RA3 = 1;
                  for (i = 0; i < 10; i++)  //  Simple Delay Loop
                        for (j = 0; j < frequency; j++);
               RA3 = 0;
                     for (i = 0; i < 10; i++)  //  Simple Delay Loop
                        for (j = 0; j < frequency; j++);
            }
}


int kb_hit(){
            RB0 = 0;
            RB1 = 0;
            RB2 = 0;
                  if(RB4 == 0)
                     {
                     RB0 = 1;
                     RB1 = 1;
                     RB2 = 1;
                        return 1;
                     }
                  if(RB5 == 0)
                     {
                     RB0 = 1;
                     RB1 = 1;
                     RB2 = 1;
                        return 1;
                     }
                  if(RB6 == 0)
                     {
                     RB0 = 1;
                     RB1 = 1;
                     RB2 = 1;
                        return 1;
                     }
                  if(RB7 == 0)
                     {
                     RB0 = 1;
                     RB1 = 1;
                     RB2 = 1;
                        return 1;
                     }

            RB0 = 1;
            RB1 = 1;
            RB2 = 1;

return 0;
         }


void button_beep(){
      beep(50, 5);
   }

//------SUB RUTINE correct_beep()
void correct_beep(){
   beep(30,8);
   delay(20);
   beep(20,3);
   delay(20);
   beep(22,9);
}

void   error_beep(){
   beep(22,9);
   delay(20);
   beep(22,9);
}


void   brava_opeen(){
   RA2 = 1;    ///  oppen
      delay(1000);
         RA2 = 0;    // close
}

void reset_beep(){
   beep(100,3);
}




char read_kb(){
char rezult;

RB0 = 0; ///  ckan row 123
   if(RB4 == 0)
      {
         button_beep();
            rezult = '1';
            while(RB4 == 0)
                     {
                     }
               delay(BUTTON_DELAY);
      }


   if(RB5 == 0)
      {
         button_beep();
            rezult = '4';
            while(RB5 == 0)
                     {
                     }
               delay(BUTTON_DELAY);
      }

   if(RB6 == 0)
      {
         button_beep();
            rezult = '7';
            while(RB6 == 0)
                     {
                     }
               delay(BUTTON_DELAY);
      }

   if(RB7 == 0)
      {
         button_beep();
            rezult = '*';
            while(RB7 == 0)
                     {
                     }
               delay(BUTTON_DELAY);
      }

RB0 = 1; // end roll skan




RB1 = 0; ///  ckan row 123
   if(RB4 == 0)
      {
         button_beep();
            rezult = '2';
            while(RB4 == 0)
                     {
                     }
               delay(BUTTON_DELAY);
      }


   if(RB5 == 0)
      {
         button_beep();
            rezult = '5';
            while(RB5 == 0)
                     {
                     }
               delay(BUTTON_DELAY);
      }

   if(RB6 == 0)
      {
         button_beep();
            rezult = '8';
            while(RB6 == 0)
                     {
                     }
               delay(BUTTON_DELAY);
      }

   if(RB7 == 0)
      {
         button_beep();
            rezult = '0';
            while(RB7 == 0)
                     {
                     }
               delay(BUTTON_DELAY);
      }

RB1 = 1; // end roll skan




RB2 = 0; ///  ckan row 123
   if(RB4 == 0)
      {
         button_beep();
            rezult = '3';
            while(RB4 == 0)
                     {
                     }
               delay(BUTTON_DELAY);
      }


   if(RB5 == 0)
      {
         button_beep();
            rezult = '6';
            while(RB5 == 0)
                     {
                     }
               delay(BUTTON_DELAY);
      }

   if(RB6 == 0)
      {
         button_beep();
            rezult = '9';
            while(RB6 == 0)
                     {
                     }
               delay(BUTTON_DELAY);
      }

   if(RB7 == 0)
      {
         button_beep();
            rezult = '*';
            while(RB7 == 0)
                     {
                     }
               delay(BUTTON_DELAY);
      }

RB2 = 1; // end roll skan



return rezult;
}