) ;/ * встановлюємо годинник */
end; progr; (n_key = 11) then do ;/ * перегляд логу введених паролів */
do while n_key <> 12 ;/ * поки не натиснутий ОК можемо переглядати лог */
call vvod_int; ind (j) = 4eh; j = 41; call out_ind;/* виводимо рядок введіть N */
do while n_key <> 0; end ;/ * чекаємо відпускання клавіші */
do while n_key = 0; end; n_key = 10 then do; pl = n_key; call timep; end;; progr;
n_key <11 then do ;/ * введення пароля */= 0; vvod_ind; call parol_ind; out_ind ;/ * виводимо рядок введіть пароль */while (ip <10) and (n_key <> 12) ;/ * цикл введення пароля */
do while n_key <> 0; end ;/ * чекаємо відпускання клавіші */while n_key = 0; end ;/ * чекаємо натискання наступної клавіші */
if n_key = 10 then n_key = 0; _buf (ip) = n_key; ind (j + ip) = n_key +30 h; call out_ind ;/ * введення інф і вив на індикатор * /;; progr;: procedure;/* пpоцедуpа ініціалізації */
tmod = 00010001b ;/ * Пеpвое pежим для 0 і 1 го таймеpа */= 1 ;/ * переривання по фpонту сигналу пеpеполненія * /, tl0 = 0; tr0 = 1;/* Обнуляємо лічильники та pазpешать pаботу 0 таймеpa */= 0 ;/ * запускаємо таймеp 0 і 1 */= 1 ;/ * pазpешать переривання Т0 T1 */= 1 ;/ * pазpешать всі переривання */= 00111111b; st = 0 ;/ * скан 1 стовпця */
n_key = 0; k_old = 0; fl_ind = 1; fl_p = 1; = 0; fl_r1 = 0; fl_r2 = 0; fl_r3 = 0; fl_r4 = 0; flN = 0;
/* ініціалізація РКІ */
do I = 0 to 3;
rs = 0; rw = 1b; e = 1b; call time (10); while (M and 80h) <> 0; end; = 0; rs = 0; rw = 0 ; call time (10); = LCD_Ini (i);;
/* устаналіваем значення за замовчуванням */
chas = 0; min = 0; sek = 0;
out_ind; init;
/* Tело основної програми */init; while 1; = 0; while flag = 0; end ;/ * чекаємо поки не пройде секунда */time_ind;/* Рядок Час 12:19:33 */n_key = 11 then do; ip = 0; vvod_ind; call parol_ind; out_ind ;/ * виводимо рядок введіть пароль */while (ip <10) and (n_key <> 12) ;/ * цикл введення пароля */
do while n_key <> 0; end ;/ * чекаємо відпускання клавіші */while n_key = 0; end ;/ * чекаємо натискання наступної клавіші */
if n_key = 10 then n_key = 0; _buf (ip) = n_key; ind (j + ip) = 23h ;/ * введення інф і вив на індикатор # # # # # * /; out_ind ; poisk_pasv ;/ * перевіряємо пароль */
if np <11 then p3.3 = 1/* відкриваємо замок */
else do; j = 0; call ohibka; call povtor; call out_ind; end ;/ * повідомляємо про помилку */
I = 1 to 12; call time (255); end ;/ * утримання паузи 3 сек */.3 = 0 ;/ * закриття замка (n) = np; reg (n +1 ) = chas; reg (n +2) = min ;/ *...
