> dofl_p = 1 then do td_max = td_max-1; if td_max <85 then td = 85; (44) = td_max/10; ind (45) = td_max mod 10; end; fl_p = 2 then do tk_max = tk_max-1; if tk_max <40 then tk_max = 40; (44) = tk_max/10; ind (45) = tk_max mod 10; end; fl_p = 3 then do t1_max = t1_max -1; if t1 < ; 35 then t1_max = 35; (44) = t1_max/10; ind (45) = t1_max mod 10; end; fl_p = 4 then do t2_max = t2_max-1; if t2_max <25 then t2 = 25; (44) = t2_max/10; ind (45) = t2_max mod 10; end; fl_p = 5 then do ub_max = ub-1; if ub_max <13 then ub_max = 13; (44) = ub_max/10; ind (45) = ub_max mod 10; end; fl_p = 6 then do ub_min = ub_min-1; if ub_min <7 then ub_min = 7; (44) = ub_min/10; ind (45) = ub_min mod 10; end; fl_p = 7 then do pMasl_min = pMasl_min-1; if pMasl_min <1 then pMasl_min = 1; (44) = pMasl_min; end;
call writeLCD; ; = 0; flag = 0; sconv = 1; do while flag = 0; end;
/* зап преобр td */ = adc_h * 255 + adc_l; call time (10); = 0; flag = 0; sconv = 1; do while flag = 0; end;
/* зап преобр tk */ = adc_h * 255 + adc_l; call time (10); = 1; flag = 0; sconv = 1; do while flag = 0; end;
/* зап преобр t1 */ = adc_h * 255 + adc_l; call time (10); = 2; flag = 0; sconv = 1; do while flag = 0; end;
/* зап преобр t2 */ = adc_h * 255 + adc_l; call time (10) ; = 3; flag = 0; sconv = 1; do while flag = 0; end;
/* зап преобр измер напр */ = adc_h * 255 + adc_l; call time (10);
/* перераховуємо отримані значення з АЦП в реальні величини */
td = 150 * td/4096; tk = 100 * tk/4096; t1 = 120 * t1/4096, t2 = 120 * t2/4096; = ub * 20/4096; pMasl = pMasl * 5/4096; _s = 0; td_max <= td then fl_s = 1; /* перевіряємо перевищення діапазонів */ tk_max <= tk then fl_s = 1; t1_max <= t1 then fl_s = 1; t2_max <= t2 then fl_s = 1; ub_max <= ub then fl_s = 1; fl_s = 1 then do fl_reg = 3; fl_p = 0; end;
if pMasl_max <= pMasl then do fl_reg = 1; fl_s = 1; fl_p = 0; end;
if fl_p = 0 then call Displ_Buf ;/ * якщо не реж прогр виводимо текущ інф */
end; start;
