ішування */(*) byte constant (20h, 20h, 0a4h, 61h, 0bch, 65h, 0c1h, 0b8h, 0b3h, 61h, 0bdh, 0b8h, 65h, 20h, 20h),
/* :: */(*) byte constant (20h, 20h, 20h, 20h, 20h, 3ah, 20h, 20h, 3ah, 20h, 20h, 20h, 20h, 20h, 20h) ,
/* [] :: */(*) byte constant (20h, 5bh, 20h, 20h, 5dh, 3ah, 20h, 20h, 3ah, 20h, 20h, 20h, 20h, 20h, 20h),
/*: []: */(*) byte constant (20h, 20h, 20h, 20h, 3ah, 5bh, 20h, 20h, 5dh, 3ah, 20h, 20h, 20h, 20h, 20h),
/* :: [] */(*) byte constant (20h, 20h, 20h, 20h, 20h, 3ah, 20h, 20h, 3ah, 5bh, 20h, 20h, 5dh, 20h, 20h),
(56) byte,/* Вміст РКІ */
(pkey, key) byte,/* Попередня і поточна натиснуті клавіші */
tmr0 byte,/* Число переповнень таймера/лічильника T0 */
stad byte,/* Поточна стадія роботи грубки */
nset byte,/* Число натискань клавіші SET */
(i, j, n) byte,
(h, m, s) byte,/* Час до закінчення поточної стадії */
(thz, tmz, tsz, thb, tmb, tsb, thc, tmc, tsc) byte,/* Тривалість стадій */
(temt, temb, temc) word,/* Температури стадій */
fpp bit,/* Прапор початку відліку таймера (початок роботи режиму) */
t byte;
rs literally 'P16', literally 'P15', literally 'P17';
_int: procedure interrupt 1;/* Обробник переривання від 0-го таймера */= 3ch; 0 = 0afh;
pkey = key;/* Контроль клавіш */
if not (P03) then key = 1;/* ^ */not (P04) then key = 2;/* SET */not (P05) then key = 3;/* + * /not (P06) then key = 4;/* - */not (P07) then key = 5;/* OK */
fpp = 1b then do;/* Таймер */(tmr0> 20) then do;/* ( Частота 20 переповнень в секунду) */
if s <0 then do; m = m-1; s = 59; end; m <0 then do; h = h-1; m = 59; end; = s-1; (s <0) and (m = 0) and (h = 0) then fpp = 0b; = 0;; = tmr0 +1;;
timer_int;
: procedure;/* Процедура ініціалізації */= 0;/* Встановлення основних змінних на поч-е значення */
thz = 0;/* Годинники замішування */
tmz = 20;/* Хвилини замішування */
tsz = 0;/* Секунди замішування */
thb = 4;/* Годинники бродіння */
tmb = 30;/* Хвилини бродіння */
tsb = 0;/* Секунди бродіння */
thc = 0;/* Годинники випічки */
tmc = 40;/* Хвилини випічки */
tsc = 0;/* Секунди випічки */
temb = 40;/* Температура бродіння */
temc = 400;/* Температура випічки */<...
