Библиотека Компэла. FSK модуляция и демодуляция с использованием микроконтроллера

Глава 10.

FSK модуляция и демодуляция с использованием микроконтроллера...

; Выборка входного сигнала *****************************************************

NORMAL_DEMOD: bit

#INTERRUPT_TOGGLE,global_status

• i i i i i
,...................

doADC

filters

#INTERRUPT_TOGGLE,global_status

SLP A D:

bic

mov.b #(TPCTL_TPSSEL1+TPCTL_TPSSELO),

&TPCTL; использование MCLK в качестве входного сигнала, останавли­вающего счет bis.b #TPE_2+TPE_1,&TPD; сброс RAMP

только ТРЕ_2, используемый для тестирования схемы, может прервать. mov.b &TPCNT1,currenty; обнуление MSByte mov.b &TPCNT2,currentx /обнуление MSByte swpb currentx

bis currenty,currentx /объединение для

; формирования 16-бит-; ного результата эха; выборки на выходе clr.b &TPCNT1

clr.b &TPCNT2; активизация счетчика mov.b #TPCTL_ENA+TPCTL_ENB+TPCTL_TPSSEL1+

ODB:

TPCTL_TPSSELO,&TPCTL bic.b #TPE 2+TPE 1,&TPD; перезапуск RAMP

rla	currentx
rla	currentx
rla	currentx

Проверка того, что входное напряжение < VCC/4 ****************************************************

*****************************************************

Результаты анти-смещения

ответ = входной сигнал + (0.875 * lasty) - lastx;

Библиотека Компэла

Ь IV. Примеры конкретных применений

; lasty = ответ;

; lastx = входной сигнал;

*****************************************************

mov currentx,currenty sub lastx,currenty mov currentx,lastx

Здесь коэффициент усиления настроен на оптимальное

значение размаха 1 В

при более высоком значении может потребоваться его

уменьшение при помощи внешнего резистивного делителя ****************************************************

rra currenty

rra currenty

rra currenty

mov &last_sample,IROP2L

mov currenty,&last_sample

and #0ffh,currenty

and #0ffh,IROP2L

; подпрограмма перемножения восьмибитных чисел со

; знаком

*****************************************************

clr IRACL

tst.b currenty

jge L$101

swpb IROP2L

sub IROP2L,IRACL

swpb IROP2L
L$101

tst.b IROP2L

jge MACU8

swpb currenty

sub currenty,IRACL

swpb currenty
MACU8

mov #1,IRBT

L$002 bit IRBT,currenty

jz L$01

add IROP2L,IRACL

L$01 rla IROP2L