MicroPascal for PIC

program DEMO_CPU_1;
 
var
   Password: array [0..3] of word; {òóò ïðèäóìàíûé ïàðîëü}
   InCode: array [0..3] of word; {òóò ïðèíÿòûé ïàðîëü}
   key : byte; {íîìåð ïîçèöèè ââîäèìîãî ïàðîëÿ}
   i,r: byte;
   Error_input_Password: byte; {ôëàã =1 åñëè âõîäå ïðîâåðêè áûëî ðàçëè÷èå â ïàðîëè è ââåäåíîì ïàðîëå}
 
procedure ClearPassword;
begin
 for r := 0 to 3 do
  InCode[r] := 0;
end;
 
procedure key_test;
begin
 
 TRISA.3 := 0; //íà âûõîä
 PORTA.3 := 1; //âêëþ÷åí 1
end;
 
   
procedure interrupt;
begin   
 if PORTB.1 = 1 then
 begin
   key := key + 1;
 
 end;
 
 if key = 4 then
   key_test;
 
 
 
 
end;
 
begin
  key := 0;
  Error_input_Password :=0;
  {äëÿ íà÷àëà íàñòðîèì ïîðòû íà ïðèåì ñèãíàëà}
  TRISA.0 := 1; //íà âõîä
  PORTA.0 := 1; //âêëþ÷åí 1
  {íàñòðîåì äîïîëíèòåëüíûé}
  TRISA.3 := 0; //íà âûõîä
  PORTA.3 := 0; //íà âûõîä
  
  {èíèöèàëèçàöèÿ ïåðåìåííîé}
  InCode[0] := 0;
  InCode[1] := 0;
  InCode[2] := 0;
  InCode[3] := 0;
  
  {Çàïîëíÿåì ïàðîëü}
  Password[0] := 1;
  Password[1] := 1;
  Password[2] := 1;
  Password[3] := 1;    
  
  {ðàçðåøàåì îáðàáîòêó ïðåðûâàíèé}
  INTCON :=0;
  INTCON.RB7 := 1; {Ðàçðåøàåì íå ìàñêèðîâàíûå ïðåðûâàíèÿ}
  INTCON.RB4 := 1; {Ðàçðåøàåì ïðåðûâàíèÿ ïî âõîäó INT}
  
  OPTION_REG.6 := 0; {ïðåðûâàíèå ïî çàäíåìó ôðîíòó}
  
  while(true)do
  begin
  
 
 
  
  end;
end.