10-2.txt

QPSK的DSP实现

**************************************
*程序名：qpsk.asm
*Data_I2:输入数据缓冲区
*Data_I3:脉冲成行后数据缓冲区
*fqpsk:qpsk调后数据缓冲区
*coeff:脉冲成形滤波器系数区
*start:运行程序开始
*FIR:平方根余弦成形滤波程序
*QPSK:QPSK调制程序
**************************************
　　　　.mmregs

Data_I2b  .usect "Data_I2b",128
Data_I2   .usect "Data_I2",128
Data_I3   .usect "Data_I3",128
fqpsk     .usect "fqpsk",128
noise     .usect "noise",128


          .def start
SIN18K    .set 10H
TONERL    .set 11H
TEMP      .set 12H
K_SINSTP  .set 32
K_DP      .set 500H/128
          .text

start:

         LD  #K_DP,DP
         SSBX  FRCT
         STM  #120,BK
         STM  #Data_I2b,AR3
         STM  #Data_I2,AR2
         MVDD *AR2+,*AR3
         STM  #Data_I3,AR5
         STM  #Data_I2b+63,AR1
         STM  #fqpsk,AR4
         STM  #noise,AR6
         STM  #fqpsk,AR7

FIR:
   RPTZ A,#63
   MACD *AR1-,coeff,A
   STH  A,-2,*AR5+%
   STM  #Data_I2b,AR3 
   MVDD *AR2,*AR3
   MAR  *AR2+%
   STM #Data_I2b+63,AR1

QPSK
   STH A,-2,TEMP
   CALL Carrier
   LD  #7FFFH,15,A
   LD  #TEMP,16,A
   RPT  #10
   NOP
   MPYA TONERL
   RPT  #10
   NOP
   ADD *AR6+%,13,B,A
   STH A,*AR4+%

   B   FIR


Carrier:
   LD  SIN18K,A
   ADD #K_SINSTP,A
   AND #7FH,A
   STL A,SIN18K
   ADD #SIN_TABLE,A
   READA TONERL
   LD TONERL,A
   STL A,-1,TONERL
   RET
   .data


coeff:
   .word   100,    19,    -82,   -156,  -163,  -94,    27,     143
   .word   189,    128,   -31,   -221,  -340,  -296,   -51,    343
   .word   738,    937,   764,   152,   -800,  -1808,  -2464,  -2341
   .word   -1133,  1223,  4484,  8130,  11469, 13813,  14656,  13813
   .word   11469,  8130,  4484,  1223,  -1133, -2341,  -2464,  -1808
   .word   -800,   152,   764,   937,   738,   343,    -51,    -296
   .word   -340,   -221,  -31,   128,   189,   143,    27,     -94
   .word   -163,   -156,  -82,   19,    100,   0,      0,      0


SIN_TABLE
   .word  07FFFH,07FD8H,07F61H,07E9CH,07D89H,07C29H,07A7CH,07884H
   .word  07641H,073B5H,070E2H,06DC9H,06A6DH,066CFH,062F1H,05ED7H
   .word  05A82H,055F5H,05133H,04C3FH,0471CH,041CEH,03C56H,036BAH
   .word  030FBH,02B1FH,02528H,01F1AH,018F9H,012C8H,00C8CH,00648H
   .word  00000H,0F9B8H,0F374H,0ED38H,0E707H,0E0E6H,0DAD8H,0D4E1H
   .word  0CF05H,0C946H,0C3AAH,0BE32H,0B8E4H,0B3C1H,0AECDH,0AA0BH
   .word  0A57EH,0A129H,09D0FH,09931H,09593H,09237H,08F1EH,08C4BH
   .word  089BFH,0877CH,08584H,083D7H,08277H,08164H,0809FH,08028H
   .word  08001H,08028H,0809FH,08164H,08277H,083D7H,08584H,0877CH
   .word  089FBH,08C4BH,08F1EH,09237H,09593H,09931H,09D0FH,0A129H
   .word  0A57EH,0AA0BH,0AECDH,0B3C1H,0B8E4H,0BE32H,0C3AAH,0C946H
   .word  0CF05H,0D4E1H,0DAD8H,0E0E6H,0E707H,0ED38H,0F374H,0F9B8H
   .word  00000H,00648H,00C8CH,012C8H,018F9H,01F1AH,02528H,02B1FH
   .word  030FBH,036BAH,03C56H,041CEH,0471CH,04C3FH,05133H,055F5H
   .word  05A82H,05ED7H,062F1H,066CFH,06A6DH,06DC9H,070E2H,073B5H
   .word  07641H,07884H,07A7CH,07C29H,07D89H,07E9CH,07F61H,07FD8H
   .word  07FFFH
 

   .end