do while 1; /* нескінченний цикл АДВОКАТУРИ */ (n_key = 1) & (kl_old <> ; 1) then /* Перебираємо режими відображення */
do_reg = fl_reg +1; if fl_reg = 4 then fl_reg = 0; _old = 1;; (n_key = 4) & (kl_old <> 4) then /* Включаємо режим програмування */ _p = fl_p +1; do I = 1 to 55; ind (i) = 20h;
/* Виводимо повідомлення В«Установіте_В» */
ind (1) = 0a9h; ind (2) = 043h; ind (3) = 054h; ind (4) = 041h; ind (5) = 048h;
ind (6) = 04fh; ind (7) = 042h; ind (8) = 0a5h; ind (9) = 054h; ind (10) = 045h; (11) = 020h; fl_p = 1 then do ind (41) = 074h; ind (42) = 064h; ind (43) = 02dh; (44) = 039h; ind (45) = 036h; end; fl_p = 2 then do ind (41) = 074h; ind (42) = 06bh; ind (43) = 02dh; (44) = 036h; ind (45) = 030h; end; fl_p = 3 then do ind (41) = 074h ; ind (42) = 031h; ind (43) = 02dh; (44) = 035h; ind (45) = 030h; end; fl_p = 4 then do ind (41) = 074h; ind (42) = 032h; ind (43) = 02dh; (44) = 039h; ind (45) = 036h; end; fl_p = 5 then do ind (41) = 055h; ind (42) = 062h; ind (43) = 02dh; (44) = 061h; ind (45) = 036h; ind (46) = 02dh; (47) = 031h; ind (48) = 039h; end; fl_p = 6 then do ind (41) = 055h; ind (42) = 062h ; ind (43) = 04dh; (44) = 0b8h; ind (45) = 0bdh; ind (46) = 02dh; (47) = 031h; ind (43) = 035h; end; fl_p = 7 then do ind ( 41) = 050h; ind (42) = 04dh; ind (43) = 0631h; (44) = 0bbh; ind (45) = 061h; ind (46) = 02dh; (47) = 030h; ind (48) = 031h; end; fl_p = 8 then do fl_p = 0;/* якщо устано всі знач завер програм */
call writeLCD; ;
if ((n_key = 1) and (kl_old <> 1)) and (fl_p> 0) then/* +1 до поточного значення */
dofl_p = 1 then do td_max = td_max +1; if td_max> 98 then td = 97; (44) = td_max/10; ind (45) = td_max mod 10; end; fl_p = 2 then do tk_max = tk_max +1; if tk_max> 80 then tk_max = 80; (44) = tk_max/10; ind (45) = tk_max mod 10; end; fl_p = 3 then do t1_max = t1_max +1; if t1> ; 99 then t1_max = 99; (44) = t1_max/10; ind (45) = t1_max mod 10; end; fl_p = 4 then do t2_max = t2_max +1; if t2_max> 98 then t2 = 97; (44) = t2_max/10; ind (45) = t2_max mod 10; end; fl_p = 5 then do ub_max = ub +1; if ub_max> 15 then ub_max = 15; (44) = ub_max/10; ind (45) = ub_max mod 10; end; fl_p = 6 then do ub_min = ub_min +1; if ub_min> 98 then ub_min = 97; (44) = ub_min/10; ind (45) = ub_min mod 10; end; fl_p = 7 then do pMasl_min = pMasl_min +1; if pMasl_min> 5 then pMasl_min = 5; (44) = pMasl_min; end; call writeLCD; ;
if ((n_key = 2) and (kl_old <> 2)) and (fl_p> 0) then/* - 1 до поточного значення */
