Подпрограмма формирователя сигналов гммс
.ENTRY gmsk_mod; {Точка входа в программный модуль}
gmsk_mod: cntr=N_bit; {запись в счетчик программ числа отсчетов на период}
do end_block until ce; {подпрограмма обработки отсчетов}
ay0=dm(i0,m1); {считывание бита}
ar=pass 0x7fff; {если бит =0 -> -1}
af=pass ay0; {если бит =1 -> 1
if eq ar=pass 0x8001 ; (преобразование уровней)}
modify(i3,m1);
m2=0;
dm(i3,m2)=ar; {Сохранение бита в линии задержки фильтра}
cntr=N_simpl_gmsk;
mx1=dm(i3,m1),my1=pm(i6,m4);
do teen until ce; {Подпрограмма фильтрации}
mr=mx1*my1(ss),mx1=dm(i3,m1),my1=pm(i6,m4); mr=mr+mx1*my1(ss),mx1=dm(i3,m1),my1=pm(i6,m5); mr=mr+mx1*my1(rnd),mx1=dm(i3,m1),my1=pm(i6,m4); m2=mr1; {адрес в таблице синуса}
modify(i2,m2);
ax0=dm(i2,m0); {выбор значения синуса из таблицы}
dm(i4,m6)=ax0; {запись отсчета сигнала GMSK в память}
ax0=dm(i2,m3); {выбор значения косинуса из таблицы}
teen: dm(i4,m6)=ax0; {запись отсчета сигнала GMSK в память}
end_block: modify(i6,m7);
rts;
.endmod;
Рис. 3. Отладочная платаEZ-Kit Lite процессора ADSP2181