Blob Blame Raw
;;; low pass filter with cut off at 0.004pi (96Hz)
	name "trebass"
	
	include "emu_constants.asm"
	
coef con 0.038684406  0.058115275  0.113007075  0.194116501  0.287525429  0.377072924  0.447195555  0.485671998  0.485783252 0.447503000  0.377505237  0.287987288  0.194517783  0.113292922  0.058289230  0.038818213



n equ 15	; filter order
	
in	io
out equ in	
bass	control	0,0,#1
delay	sta 0,0,0,0,0 ,0,0,0,0,0 ,0,0,0,0,0 ,0	
tmp  dyn

	macints  delay,in,C_0,C_0
	
;;;our filter for the left channel

	macs  C_0,C_0,C_0,C_0	
	for i = n : 1
		macmv   delay+i,delay+i-1,delay+i,coef+i
	endfor
	
	macs tmp,ACCUM,delay,coef

	macs1 out,in,tmp,bass	
	
	end