/p>
tmod = 00000001b;/* 1-й режим */
IT0 = 1;/* переповнення по фронту сигналу */
IT1 = 1;
th0 = 3ch;/* Частота переповнення 0-го таймера 20 Гц */
tl0 = 0afh; = 0h; = 0h;
0 = 1;/* Запуск T0 */
et0 = 1;/* Дозвіл переривання від T0 */
tr1 = 0; = 1;
n = 0 to 3;/* Піка 3 рази */= 1b; time (255); = 0b; time (255);; = 0f8h; 3 = 0ffh;
do n = 0 to 5;/* Виробляємо ініціалізацію РКІ */= 0; time (1); = 0; rw = 1; e = 1; while (P37); end; = 0 ; rs = 0; rw = 0; = GKIini (n); = 1; time (1);;
end inic;
outGKI: procedure;/* Процедура виведення інформації на РКІ */
e = 0;/* Очищення екрану РКІ */
rs = 0; rw = 1; e = 1;
do while (P37); end; = 0; rs = 0; rw = 0; = 1h; = 1; time (10);
i = 0 to 55;/* Вивід на РКІ */= 0; time (10); = 0; rw = 1; e = 1; while (P37); end; = 0; rs = 1; rw = 0; = sod (i); = 1; time (10);; outGKI;
: procedure (i) word;/* Функція зняття даних з датчика */i byte, rez word; 1 = 0; tl1 = 0;
if i = 0 then do;/* Перевірка датчика температури */
do while P00; end;/* Очікуємо початок нового імпульсу */
do while not (P00); end; while P00;/* Заміряємо його */= 1;; 1 = 0;
end;
if i = 1 then do;/* Перевірка датчика тиску 1-го бункера */
do while P01; end; while not (P01); end; while P01; = 1;; 1 = 0;
end;
if i = 2 then do;/* Перевірка датчика тиску 2-го бункера */
do while P02; end; while not (P02); end; while P02; = 1;; = 0;; = double (tl1)/* Перетворимо TH, TL в слово */= shl (t, 8);
t = (t + double (th1)) * 2;/* Число тиків за період */
rez = koef (i) * t/1000;/* Множимо на коефіцієнт */
return rez;
end datchik;
/*//////////////////////////////////////// ////////////////// *// * Основна програма */
call inic;/* Виробляємо ініціалізацію */
do while 1;
/* Нова? */i = 0 to 15; (i) = beg (i); (i +40) = 20h;; outGKI;
((key = 2) and (pkey <> 2)) then do;/* Якщо натиснули SET */= 0;
/* 1/Замішування 2/T = [thz]: tmz: tsz */i = 0 to 15; (i) = zames (i); (i +40) = time1 (i );, (2) = (thz/10) +30 h, (3) = (thz mod 10) +30 h; (6) = (tmz/10) +30 h; (7) = (tmz mod 10) +30 h ; (10) = (tsz/10) +30 h; (11) = (tsz mod 10) +30 h; outGKI; while not ((key = 5) and (pkey <> 5)...
