.data
_init.64:
	.byte 0
.lcomm _m.65,4
.text
LC0:
	.ascii "filter\0"
	.even
.globl _filter_subband
_filter_subband:
	link a5,#-512
	moveml #0x2030,sp@-
	movel a5@(8),a3
	tstb _init.64
	jne L100
	pea LC0
	pea 16384:w
	jbsr _mem_alloc
	movel d0,_m.65
	movel d0,sp@-
	jbsr _create_ana_filter
	moveb #1,_init.64
L100:
	moveq #0,d1        |replaces clrl d1
	movel a5,a2
L104:
	moveq #0,d0        |clrl d0
	clrl a2@(-512)
	clrl a2@(-508)
	movel a2,a1
	movel d1,a0
L108:
	fmoved a1@(-512),fp1
	faddd a3@(a0:l:8),fp1
	fmoved fp1,a1@(-512)
	addw #64,a0        | ***
	addql #1,d0
	moveq #7,d2
	cmpl d0,d2
	jge L108
	addqw #8,a2
	addql #1,d1
	moveq #63,d2
	cmpl d1,d2
	jge L104
	movel a5@(12),a1
	movel _m.65,d1
	lea a1@(248),a3
L114:
	moveq #0,d0        |clrl d0
	clrl a1@
	clrl a1@(4)
	movel d1,a0
	movel a5,a2
L118:
	fmoved a0@+,fp0
	fmuld a2@(-512),fp0
	faddd a1@,fp0
	fmoved fp0,a1@
	addqw #8,a2
	addql #1,d0
	moveq #63,d2
	cmpl d0,d2
	jge L118
	addqw #8,a1
	addl #512,d1
	cmpl a1,a3
	jge L114
	moveml a5@(-524),#0xc04
	unlk a5
	rts