fir.asm

下面是本人自己编写的TI公司开发界面CCS下的FIR滤波器程序。

           .title "fir.asm"
           .mmregs
           .def _c_int00
           .bss    count, 1
size1 .set  360
size2 .set  14
x_new	 .usect	 "NewData",	size2
x_old	 .usect	 "OldData",	size2
x_input  .usect  "InputData", size1
x_output .usect  "OutputData", size1+size2+size2

Hn:      .word   0x0126       
         .word   0x0119
         .word   0xFB65
         .word   0x02AC
         .word   0x02AC
         .word   0xFF18
         .word   0xFB75
	 .word   0x0016
	 .word   0x06A7
         .word   0x01F5
	 .word   0xf585
	 .word   0xf8a8
	 .word   0x163b
	 .word   0x35ed
       
          .text
_c_int00:       ssbx 	frct		
	        stm	#size2,	bk
	        stm	#-1,	ar0
	        stm	#x_new,	ar2
	        stm	#x_old+(size2-1),ar3
	        stm #x_input,ar4
	        stm #x_output,ar1
                nop
                nop
                mvdd *ar4+,*ar2

FIR:	       add	 *ar2+0%,  *ar3+0%,  a
	       rptz B,#(size2-1)
	       firs *ar2+0%,  *ar3+0%,  Hn
               ld   #0   ,A	
	       sth  B,*ar1+ 
	
	        mar	*+ar2(2)%
	        nop
	        mar	*ar3+%
	        mvdd	*ar2,	*ar3+0%
	
	        addm #1,	*(count)
	        cmpm *(count),100
	        bc done,	tc
	        bd	FIR
	        mvdd *ar4+,*ar2
	        nop
done:	    b	done
	     .sect	"VECTORS"
reset:      b	_c_int00
	     .end