iir.asm

本程序是IIR滤波的汇编小程序

		.title "IIR.ASM"
		.mmregs
		.def	_c_int00
X		.usect	"X", 5
Y		.usect	"Y", 5
B		.usect	"B", 5
A		.usect	"A", 5
PA0		.set	0
PA1		.set	1
		.data
table:	.word	0
		.word	0
		.word	0
		.word	0
		.word	0
		.word	0
		.word	0
		.word	0
		.word	3116
		.word	-10286
		.word	14615
		.word	-10286
		.word	3116
		.word	-22082
		.word	31149
		.word	-30484
		.word	28383
		.text
_c_int00:
		SSBX	FRCT
		STM		#X, AR1
		RPT		#3
		MVPD	#table, *AR1+
		STM		#Y, AR1
		RPT		#3
		MVPD	#table+4, *AR1+
		STM		#B, AR1
		RPT 	#4
		MVPD	#table+8, *AR1+
		STM		#A, AR1
		RPT		#3
		MVPD	#table+13, *AR1+
		STM		#X+4, AR2
		STM		#A+3, AR3
		STM		#Y+3, AR4
		STM		#B+4, AR5
		STM		#5, BK
		STM		#-1, AR0
		STM		#1000H, AR6
		STM		#0200H-1, AR7
loop:
		PORTR	PA1, *AR2
		LD		*AR2, A
		STL		A, -1, *AR2
		MPY		*AR2+0%, *AR5+0%, A
		MAC		*AR2+0%, *AR5+0%, A
		MAC		*AR2+0%, *AR5+0%, A
		MAC		*AR2+0%, *AR5+0%, A
		MAC		*AR2, *AR5+0%, A
		MAC		*AR4, *AR3, A
		MAC		*AR4, *AR3, A
		MAC		*AR4, *AR3, A
		MAC		*AR4+0%, *AR3+0%, A
		MAC		*AR4, *AR3, A
		MAC		*AR4, *AR3, A
		MAC		*AR4, *AR3, A
		MAC		*AR4, *AR3, A
		MAC		*AR4+0%, *AR3+0%, A
		MAC		*AR4, *AR3, A
		MAC		*AR4, *AR3, A
		MAC		*AR4+0%, *AR3+0%, A
		MAC		*AR4+0%, *AR3+0%, A
		MAR		*AR3+0%
		STH		A, *AR4
		PORTW	*AR4, PA0
		STH		A, *AR6+
		BANZ	loop, *AR7-
end:	B		end
		.end