fir6.asm

这里面有很多dsp应用程序源码

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;系数对称的FIR滤波器设计;;;;;;;;;;;;;;		
		.title	"fir6.asm"
		.mmregs
		.def	start
		.bss	y,1
x_new	.usect	"DATA1",4
x_old	.usect	"DATA2",4
filterdata		.usect "filter_vars",256
size	.set	4
		.data
inputdata:
	.WORD	18295,-6420,19759,-29306,6924,-10388,12834,12498
	.WORD   -7547,0,-18295,6420,6084,10388,0,-8530
	.WORD   -12834,6420,622,18918,-7547,-6420,-6084,-10388
	.WORD   25843,-10388,19759,-25338,-622,0,622,25338
	.WORD   -19759,10388,-25843,10388,6084,6420,7547,-18918
	.WORD   -622,-6420,12834,8530,0,-10388,-6084,-6420
	.WORD   18295,0,7547,-12498,-12834,10388,-6924,29306
	.WORD   -19759,6420,-18295,0,18295,-6420,19759,-29306
	.WORD   6924,-10388,12834,12498,-7547,0,-18295,6420
	.WORD   6084,10388,0,-8530,-12834,6420,622,18918
	.WORD   -7547,-6420,-6084,-10388,25843,-10388,19759,-25338
	.WORD   -622,0,622,25338,-19759,10388,-25843,10388
	.WORD   6084,6420,7547,-18918,-622,-6420,12834,8530
	.WORD   0,-10388,-6084,-6420,18295,0,7547,-12498
	.WORD   -12834,10388,-6924,29306,-19759,6420,-18295,0
	.WORD   18295,-6420,19759,-29306,6924,-10388,12834,12498
	.WORD   -7547,0,-18295,6420,6084,10388,0,-8530
	.WORD   -12834,6420,622,18918,-7547,-6420,-6084,-10388
	.WORD   25843,-10388,19759,-25338,-622,0,622,25338
	.WORD   -19759,10388,-25843,10388,6084,6420,7547,-18918
	.WORD   -622,-6420,12834,8530,0,-10388,-6084,-6420
	.WORD   18295,0,7547,-12498,-12834,10388,-6924,29306
	.WORD   -19759,6420,-18295,0,18295,-6420,19759,-29306
	.WORD   6924,-10388,12834,12498,-7547,0,-18295,6420
	.WORD   6084,10388,0,-8530,-12834,6420,622,18918
	.WORD   -7547,-6420,-6084,-10388,25843,-10388,19759,-25338
	.WORD   -622,0,622,25338,-19759,10388,-25843,10388
	.WORD   6084,6420,7547,-18918,-622,-6420,12834,8530
	.WORD   0,-10388,-6084,-6420,18295,0,7547,-12498
	.WORD   -12834,10388,-6924,29306,-19759,6420,-18295,0
	.WORD   18295,-6420,19759,-29306,6924,-10388,12834,12498
	.WORD   -7547,0,-18295,6420,6084,10388,0,-8530
		
COEF	.word	1*32768/10,2*32768/10
	.word	3*32768/10,4*32768/10
	.text
start:	LD	#x_new,DP
	SSBX	FRCT
	STM	#x_new,AR2
	STM	#x_old+(size-1),AR3
	STM	#size,BK
	STM	#-1,AR0
	STM	#inputdata,AR5
	STM	#filterdata,AR6
	MVDD	*AR5+,*AR2
	STM	#255,BRC
	RPTB	end-1
FIR:	ADD	*AR2+0%,*AR3+0%,A
	RPTZ	B,#(size-1)
	FIRS	*AR2+0%,*AR3+0%,COEF
	STH	B,*AR6+
	MAR	*+AR2(2)%
	MAR	*AR3+%
	MVDD	*AR2,*AR3+0%		
	MVDD	*AR5+,*AR2
HHend:	B	end		
	.end