y"> if p20 = 0 then
if s <> 0 then s = s +1;/* зміна прапора періоду запиту */
if p21 = 0 then s <6 then s = s-1;
if p22 = 0 then k <> 0 then k = k-1; /* зміна прапора дільника амплітуди */
if p23 = 0 then k <4 then k = k +1;
if p24 = 0 then key = 1;
if p25 = 0 then key = 2;
if p26 = 0 then sinh = sinh-01h;/* зміна синхронізації */
if p27 = 0 then sinh = sinh +01 h;
/* Якщо кнопка була натиснута - фіксуємо новий рівень */
Do case k;
Am = 4; /**/
Am = 8; /**/
Am = 16; /**/
Am = 32; /**/
End;
Do case s;
Shag = 1; /**/
Shag = 5; /**/
Shag = 6; /**/
Shag = 20; /**/
Shag = 50; /**/
Shag = 100; /**/
End;
I = 0;
if key = 2 then do;/* Виводимо записаний сигнал */while i = 32;
p0 = mem (i)/* по вісь у */= i;/* по осі х */
i = i +1;
end;
key = 0;
end;
else do;
do while i <32; /* Виводимо амплітуди сигнал */= amp (i); /* по осі у */= i; /* по осі х */= i +1;
end;
end;
/* Очікування перетворення */
ADCON = 01000b; /* Початок перетворення */
/* Очікування закінчення перетворення */
do while (ADCON AND 010000b) = 0; end;
/* Виділяємо старші три біти результату */
/* k-коефец увеліцені зменшення апмлітуди сигналу */
res (t) = ADCH/am;
В
if flag = 1 then while i <32;
amp (i) = res (i);
i = i +1;
end;
if key = 1 then res (t) = lvl;
flag = 0;
В
/* Чекаємо 1 мс. Якщо прист...
