y">
if Fl_reg = 2 then do call skor; (8) = 0a8h; ind (9) = 0a8h; ind (10) = 2d; /* висновок пройдемо шляху */ (11) = (put/1000) +30 h; put1 = (put mod 1000); (12) = (put1)/100 +30 h; put1 = (put1 mod 100); (13 ) = put1/10 +30 h; ind (14) = (put1 mod 10) +30 h; td_tk;
/* висновок напруги в бортовій мережі */
ind (55) = (up/10) +30 h; ind (56) = (up mod 10) +30 h;
end;
if Fl_reg = 3 then do
ind (1) = 074h; ind (2) = 031h; ind (3) = 2d; /* висновок температури 1 */
ind (4) = (t1/100) +30 h; tp = (t1 mod 100); (5) = (tp)/10 +30 h; tp = (tp mod 100); ( 6) = tp/10 +30 h; ind (7) = (tp mod 10) +30 h; ind (8) = 20h; (9) = 074h; ind (10) = 032h; ind (11) = 2d; < b align = "justify">/* висновок температури 2 */
ind (12) = (t2/100) +30 h; tp = (t2 mod 100); (13) = (tp)/10 +30 h; ind (14) = (tp mod 100 ) +30 h; td_tk;
/* висновок напруги в бортовій мережі */
ind (55) = (up/10) +30 h; ind (56) = (up mod 10) +30 h;
end;
call writeLCD; Displ_Buf;: procedure;/* висновок буфера на жки */
do I = 0 to 55; = 0; rw = 1; p0.7 = 1b; while (p0 and 80h) <> 0; end; = 1; rw = 0; = Ind (i);; writeLCD;
/* - пpоцедуpа ініціалізації-* /: procedure;
tmod = 00010001b ;/ * Пеpвое pежим таймеpа для 0 і 1 */= 1 ;/ * переривання по фpонту сигналу пеpеполненія * /, tl0 = 0; tr0 = 1 ;/ * Обнуляємо лічильники та pазpешать pаботу 0 го таймеpа */
er0 = 1 ;/ * запускаємо таймеp 0 */= 1 ;/ * pазpешать переривання Т0 */
ea = 1 ;/ * pазpешать всі переривання */
/* Ініціалізація АЦП */
ADCCON1 = 60h ;/ * налаштовуємо режим AЦП */
ADCCON2 = 0h ;/ * налаштовуємо режим AЦП */
/* ініціалізація портів на ст вив */
P2 = 0f0h;/* лінії порту 2 c 0 по 3 на введення з 4 По7 на виведення */
n_key = 0; k_old = 0; fl_s = 0; fl_p = 0;
/* ініціалізація РКІ */
do I = 0 to 3;
rs = 0; rw = 1b; e = 1b; call time (10); while (p0 and 80h) <> 0; end; = 0; rs = 0; rw = 0 ; call time (10); = LCD_Ini (i);; _max = 96; tk_max = 60; t2_max = 60; t1_max = 50; pMasl_min = 1; ub_max = 15; ub_min = 11; _reg = 3; call Displ_Buf; init;
/* ___________ Tело основної програми ______________ */
call init; ...
