p >
end; _t0 = per_t0 +1;/* збільшуємо лічильник переповнень */
tf0 = 0;/* sbros flaga perepolneniya */
end timer_int; _INT: procedure interrupt 6;/* обробник переривання ADC */
adccon2 = chan; _H = ADCDATAH; _L = ADCDATAL; = 1; edac = 1;
end ADC_INT;: procedure;/* висновок поточної швидкості */
ind (0) = 43h; ind (1) = 4Bh; ind (3) = 2dh; ind (2) = 20h, (3) = (skor/100) +30 h; ind ( 5) = (skor mod 100)/10 +30 h; (6) = ((skor mod 100) mod 10) +30 h; ind (7) = 20h; skor; _tk: procedure; /* висновок температури */
ind (41) = 74h; ind (42) = 064h; ind (43) = 2d ;/ * висновок темп двигуна */
ind (44) = (td/100) +30 h; ind (45) = (td mod 100)/10 +30 h; (46) = ((td mod 100) mod 10) + 30h; ind (47) = 20h; (48) = 74h; ind (49) = 06bh; ind (50) = 2d ;/ * висновок темп коробки */
ind (51) = (tk/100) +30 h; ind (52) = (tk mod 100)/10 +30 h; (53) = ((tk mod 100) mod 10) + 30h; ind (54) = 20h; td_tk;
displ_Buf: procedure;/* вип заповнення дисплея в залежимо від режиму */
/* перший режим - скор, обороти, Тдвіг, Ткоробкі, Напруга */
if Fl_reg = 0 then do;
call skor; (8) = 4fh; ind (9) = 0b2h; ind (10) = 2d; /* висновок поточних оборотів */ = (obor mod 1000); ind (11) = (obor/1000) +30 h; (12) = (obor1)/100 +30 h; obor1 = (obor1 mod 100); (13 ) = obor1/10 +30 h; ind (14) = (obor1 mod 10) +30 h; td_tk;
/* висновок напруги в бортовій мережі */
ind (55) = (up/10) +30 h; ind (56) = (up mod 10) +30 h;
end;
if Fl_reg = 1 then do;
ind (1) = 4fh; ind (2) = 0b2h; ind (3) = 2d; /* висновок поточних оборотів */
ind (4) = (obor/1000) +30 h; obor1 = (obor mod 1000); (5) = (obor1)/100 +30 h; obor1 = (obor1 mod 100); ( 6) = obor1/10 +30 h; ind (7) = (obor1 mod 10) +30 h;
ind (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;
