p sk_demod
LD RW_AD IN,A ;將A /D緩沖區的入口放到A中
SUB RW_ADOUT,A ;求A /D緩沖區的入口和出口之差
XC 2,ALT
ADD #RW_ADBL,A
SUB #8,A
BC rw_demod00, ALET;檢查A /D 緩沖區中是否有采樣值要
解調
LD RW - BUFOUT,A
SUB RW_BUF IN,A
XC 2,ALEQ
ADD #200H,A
SUB #24H,A
BC rw_demod00,ALT;檢查RW_BUFR和RW_BUFI是否有空間
LD #RW_BUFR,A
ADD RW_BUFIN,A ;計算RW_BUFR的入口地址
STLM A,AR1
LD #RW_BUF I,A
ADD RW_BUFIN,A ;計算RW_BUFI的入口地址
STLM A,AR2
LD RW_ADOUT,A
ADD #RW_ADB,A ;計算RW_ADB的入口地址
STLM A,AR3
STM #50,AR0;循環51次
STM #7,BRC
RPTBD rw_dem01 - 1;循環下界到rw_dem01之間
STM #RW_ADBL,BK
SSBX FRCT
STM #FILR,AR4
STM #FIL I,AR5
CALL sin_val ;計算正、余弦值
LD 3 AR3 + % , T
MPY DATA5,A
STH A, 3 AR4 + 0
MPY DATA6,A
STH A, 3 AR5 + 0
RSBX FRCT
RPTZ A, #50
MACD 3 AR4 - , scr_wave,A; R ( t)信號進行FIR濾波
STH A, 3 AR1 +
RPTZ A, #50
MACD 3 AR5 - , scr_wave,A ; I( t)信號進行FIR濾波
STH A, 3 AR2 +
Rw_dem01 (略)
sin_val(計算正余弦子程序略)