.mmregs
	.global	_main
	.global	_Fir

Length		.set	80
FirOrder	.set	10

	.bss	Input, Length
	.bss	Output, Length
	.bss	Fir_Memory, FirOrder
	.bss	Fir_Coef, FirOrder

	.text
_main:
	stm	#Input,ar2
	stm	#Fir_Memory,ar3
	stm	#Fir_Coef,ar4

	st	#3405,*ar4+
	st	#571,*ar4+
	st	#-1029,*ar4+
	st	#267,*ar4+
	st	#38,*ar4+
	st	#130,*ar4+
	st	#-79,*ar4+
	st	#-539,*ar4+
	st	#1032,*ar4+
	st	#45,*ar4+

	st	#3892,*ar2
	stm	Length-1-1,brc
	rptb	L1-1
	mpy	*ar2+,#51,a
	add	#259,a
	stl	a,*ar2
L1:
	st	#9257,*ar3
	stm	FirOrder-1-1,brc
	rptb	L2-1
	mpy	*ar3+,#17,a
	add	#328,a
	stl	a,*ar3
L2:
	ld	#Length,a
	nop
	pshm	al
	ld	#FirOrder,a
	nop
	pshm	al
	ld	#Fir_Memory,a
	nop
	pshm	al
	ld	#Fir_Coef,a
	nop
	pshm	al
	ld	#Output,a
	nop
	pshm	al
	ld	#Input,a
        call	_Fir
	addm	#5,*(sp)
	nop
	nop
        ret