home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / asms.arc / BEL202.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-09-06  |  4.6 KB  |  274 lines
  1. ;**********************************************************************
  2. ;
  3. ;              FINITE IMPULSE RESPONSE (FIR)
  4. ;            LINEAR PHASE DIGITAL FILTER DESIGN
  5. ;                REMEZ EXCHANGE ALGORITHM
  6. ;
  7. ;                      BEL-202 IC-271 EQ FILTER
  8. ;
  9. ;                   FILTER LENGTH =  41
  10. ;
  11. ;              ***** IMPULSE RESPONSE *****
  12. ;         H( 1) =   -1481.923 = H( 41)
  13. ;         H( 2) =   -2793.154 = H( 40)
  14. ;         H( 3) =    1526.122 = H( 39)
  15. ;         H( 4) =    -522.255 = H( 38)
  16. ;         H( 5) =    -411.561 = H( 37)
  17. ;         H( 6) =     442.016 = H( 36)
  18. ;         H( 7) =     677.701 = H( 35)
  19. ;         H( 8) =    -900.867 = H( 34)
  20. ;         H( 9) =    -508.719 = H( 33)
  21. ;         H(10) =     938.531 = H( 32)
  22. ;         H(11) =      70.969 = H( 31)
  23. ;         H(12) =    -586.158 = H( 30)
  24. ;         H(13) =     827.322 = H( 29)
  25. ;         H(14) =     -87.252 = H( 28)
  26. ;         H(15) =   -2145.014 = H( 27)
  27. ;         H(16) =     888.400 = H( 26)
  28. ;         H(17) =    3609.433 = H( 25)
  29. ;         H(18) =   -1846.721 = H( 24)
  30. ;         H(19) =   -4772.972 = H( 23)
  31. ;         H(20) =    5294.121 = H( 22)
  32. ;         H(21) =   13409.030 = H( 21)
  33.  
  34. ;                       BAND  1       BAND  2       BAND  3
  35. ; LOWER BAND EDGE      .0000000      .1800000      .3000000
  36. ; UPPER BAND EDGE      .1700000      .2900000      .5000000
  37. ; DESIRED VALUE        .5000000     1.0000000      .0000000
  38. ; WEIGHTING           1.0000000     1.0000000     1.0000000
  39. ; DEVIATION            .1995433      .1995433      .1995433
  40. ; DEVIATION IN DB    -3.1037080     1.5803180   -13.9992600
  41.  
  42. ; EXTREMAL FREQUENCIES--MAXIMA OF THE ERROR CURVE
  43. ;     .0000000    .0252976    .0505953    .0766369    .1019344
  44. ;     .1272320    .1525295    .1700000    .2008333    .2276189
  45. ;     .2529164    .2767258    .2900000    .3000000    .3133928
  46. ;     .3372023    .3624998    .3892854    .4160710    .4436007
  47. ;     .4718744    .5000000
  48.  
  49. ;***********************************************************
  50. ;
  51. ;
  52. XN:    EQU 0
  53. XNM1:    EQU 1
  54. XNM2:    EQU 2
  55. XNM3:    EQU 3
  56. XNM4:    EQU 4
  57. XNM5:    EQU 5
  58. XNM6:    EQU 6
  59. XNM7:    EQU 7
  60. XNM8:    EQU 8
  61. XNM9:    EQU 9
  62. XNM10:    EQU 10
  63. XNM11:    EQU 11
  64. XNM12:    EQU 12
  65. XNM13:    EQU 13
  66. XNM14:    EQU 14
  67. XNM15:    EQU 15
  68. XNM16:    EQU 16
  69. XNM17:    EQU 17
  70. XNM18:    EQU 18
  71. XNM19:    EQU 19
  72. XNM20:    EQU 20
  73. XNM21:    EQU 21
  74. XNM22:    EQU 22
  75. XNM23:    EQU 23
  76. XNM24:    EQU 24
  77. XNM25:    EQU 25
  78. XNM26:    EQU 26
  79. XNM27:    EQU 27
  80. XNM28:    EQU 28
  81. XNM29:    EQU 29
  82. XNM30:    EQU 30
  83. XNM31:    EQU 31
  84. XNM32:    EQU 32
  85. XNM33:    EQU 33
  86. XNM34:    EQU 34
  87. XNM35:    EQU 35
  88. XNM36:    EQU 36
  89. XNM37:    EQU 37
  90. XNM38:    EQU 38
  91. XNM39:    EQU 39
  92. XNM40:    EQU 40
  93. ;
  94. H18:    EQU 50
  95. H19:    EQU 51
  96. H20:    EQU 52
  97. MASK1:    EQU 53
  98. YN:    EQU 54
  99. ONE:    EQU 55
  100. ;
  101.     ORG 0
  102. ;
  103.     B START
  104. ;
  105. ; DUE TO THE SYMMETRY OF THE IMPULSE RESPONSE ;
  106. ; ONLY HALF OF THE SAMPLES OF THE IMPULSE     ;
  107. ; RESPONSE ARE STORED.    THIS MEANS THAT       ;
  108. ; h(N-1-n) = h(n).                  ;
  109. ;
  110.     dw    -4773
  111.     dw    5294
  112.     dw    13409
  113. ENDC:    dw    0800H
  114. ;
  115.  
  116. START:    LDPK 0
  117. ;
  118.     LACK 1
  119.     SACL ONE    ; CONTENT OF ONE IS 1 ;
  120.     LARK AR0,MASK1    ; THIS SECTION OF CODE LOADS  ;
  121.     LARK AR1,4    ; THE FILTER COEFFICIENTS AND ;
  122.     LACK ENDC    ; OTHER VALUES FROM PROGRAM   ;
  123. LOAD:    LARP AR0    ; MEMORY TO DATA MEMORY       ;
  124.     TBLR *-,AR1
  125.     SUB ONE
  126.     BANZ LOAD
  127. ;
  128. WAIT:    BIOZ NXTPT    ; BIO PIN GOES LOW WHEN A ;
  129.     B WAIT        ; NEW SAMPLE IS AVAILABLE ;
  130. ;
  131. NXTPT:    IN XN,PA3    ; BRING IN THE NEW SAMPLE XN ;
  132.     LAC XN,4
  133.     SUB ONE,15
  134.     SACL XN,0
  135. ;
  136.     ZAC
  137. ;
  138.     LT XNM40;
  139.     MPYK -1482
  140. ;
  141.     LTD XNM39
  142.     MPYK -2793
  143. ;
  144.     LTD XNM38
  145.     MPYK 1526
  146. ;
  147.     LTD XNM37
  148.     MPYK -522
  149. ;
  150.     LTD XNM36
  151.     MPYK -412
  152. ;
  153.     LTD XNM35
  154.     MPYK 442
  155. ;
  156.     LTD XNM34
  157.     MPYK 678
  158. ;
  159.     LTD XNM33
  160.     MPYK -901
  161. ;
  162.     LTD XNM32
  163.     MPYK -509
  164. ;
  165.     LTD XNM31
  166.     MPYK 939
  167. ;
  168.     LTD XNM30
  169.     MPYK 71
  170. ;
  171.     LTD XNM29
  172.     MPYK -586
  173. ;
  174.     LTD XNM28
  175.     MPYK 827
  176. ;
  177.     LTD XNM27
  178.     MPYK -87
  179. ;
  180.     LTD XNM26
  181.     MPYK -2145
  182. ;
  183.     LTD XNM25
  184.     MPYK 888
  185. ;
  186.     LTD XNM24
  187.     MPYK 3609
  188. ;
  189.     LTD XNM23
  190.     MPYK -1847
  191. ;
  192.     LTD XNM22
  193.     MPY H18
  194. ;
  195.     LTD XNM21
  196.     MPY H19
  197. ;
  198.     LTD XNM20
  199.     MPY H20
  200. ;
  201.     LTD XNM19
  202.     MPY H19
  203. ;
  204.     LTD XNM18
  205.     MPY H18
  206. ;
  207.     LTD XNM17
  208.     MPYK -1847
  209. ;
  210.     LTD XNM16
  211.     MPYK 3609
  212. ;
  213.     LTD XNM15
  214.     MPYK 888
  215. ;
  216.     LTD XNM14
  217.     MPYK -2145
  218. ;
  219.     LTD XNM13
  220.     MPYK -87
  221. ;
  222.     LTD XNM12
  223.     MPYK 827
  224. ;
  225.     LTD XNM11
  226.     MPYK -586
  227. ;
  228.     LTD XNM10
  229.     MPYK 71
  230. ;
  231.     LTD XNM9
  232.     MPYK 939
  233. ;
  234.     LTD XNM8
  235.     MPYK -509
  236. ;
  237.     LTD XNM7
  238.     MPYK -901
  239. ;
  240.     LTD XNM6
  241.     MPYK 678
  242. ;
  243.     LTD XNM5
  244.     MPYK 442
  245. ;
  246.     LTD XNM4
  247.     MPYK -412
  248. ;
  249.     LTD XNM3
  250.     MPYK -522
  251. ;
  252.     LTD XNM2
  253.     MPYK 1526
  254. ;
  255.     LTD XNM1
  256.     MPYK -2793
  257. ;
  258.     LTD XN
  259.     MPYK -1482
  260. ;
  261.     APAC
  262. ;
  263.     sach yn
  264.     LAC YN,12
  265.     ADDH MASK1
  266.     SACH YN,0
  267. ;
  268.     
  269.     OUT YN,PA4    ; OUTPUT THE FILTER RESPONSE y(n) ;
  270. ;
  271.     B WAIT        ; GO GET THE NEXT POINT ;
  272. ;
  273.     END
  274.