/= 0; do while str_ohibka (i) <> 20h; ind (j) = str_ochibka (i); = i +1; j = j +1; end; ind (j) = 20h; j = j +1; ohibka_ind; _ind: procedure;/* висновок Помилка */= 0; do while ЧАС */= 0; do while str_time (i) <> 20h; ind (j) = str_time (i); = i +1; j = j +1; end; ind (j) = 20h; j = 44; time; _ind: procedure;/* висновок часу */= 5; call time; (j) = (chas/10) +30 h; ind (j +1) = (chas mod 10) +30 h; ind (j +2) = 0d0h; (j +3) = (min/10) +30 h; ind (j +4) = (min mod 10) +30 h; ind (j +5) = 0d0h; (j +6) = (sek/10) +30 h; ind (j +7) = (sek mod 10) +30 h; j = j +7; out_ind; time_ind;
timep_ind: procedure ;/ * виводимо номер і час введеного пароля */
ind (j) = pl +30 h; ind (j +1) = 2dh; (j +2) = (reg (pl +1)/10) +30 h; ind (j +3 ) = (reg (pl +1) mod 10) +30 h; ind (j +4) = 0d0h; (j +5) = (min/10) +30 h; ind (j +6) = (min mod 10) +30 h; out_ind; timep_ind; _ind: procedure;/* висновок буфера на жки */time (20); rs, rw = 0; P0 = 1 ;/ * очищення РКІ */I = 0 to 55; = 0; rw = 1; e = 1b; P0 = 0ffhwhile (P0 and 80h) <> 0; end; = 1; rw = 0; call time (20); = Ind (i); e = 0; call time (20 ); end; I = 0 to 55; ind (i) = 20h; end ;/ * очищення буфера індикатора */
end out_ind;
/* Процедурa пошуку введенногo пароля */_pasv: procedure; _p = 0; Ip = 0 ;/ * прапор переходу в режим програмування */
do while (Ip <= 9) and (pasv_buf (ip) = master_pasvord (ip));
ip = ip +1; end; Ip = 9 then call progr ;/ * введений пароль програмування, виклик процедури */
/* програмування */= 0; jp = 0; np = 12; nr = 0; nr = 0 to 9 ;/ * перевіряємо весь масив паролейip = 0 to 9 ;/ * порівнюємо введений пароль з встановленими */
do while (Ip <= 9) and (pasv_buf (ip) = pasv (ip));
ip = ip +1; end; Ip = 9 then np = nr ;/ * введений пароль збігається з записаним за номером nr */
end;; poisk_pasv;
progr: procedure ;/ * програмування нового пароля */
call vvod_ind; ind (j) = 4eh; call out_ind ;/ * Виводимо рядок Ведіть № */
do while n_key <> 0; end ;/ * чекаємо відпускання клавіші */
do while n_key = 0; end;/* чекаємо натискання клавіші */
if (n_key = 12) then do ;/ * установка параметрів часу */
call vvod_ind; call time; j = 44; call out_ind;/* виводимо рядок введіть час */ip = 0 to 5; while n_key <> 0; end ;/ * чекаємо відпускання клавіші * /while n_key = 0; end; n_key = 10 then n_key = 0; _buf (ip) = n_key; ind (j + ip) = n_key +30 h; call out_ind ;/ * введення інф і вив на індикатор * /; = rol (pasv_buf (0), 4) + pasv_buf (1) ;/ * встановлюємо годинник */
min = rol (pasv_buf (2), 4) + pasv_buf (3) ;/ * встановлюємо хвилини секунди */= rol (pasv_buf (4), 4) + pasv_buf (5...
