;@ map d DLY500
;@ map d CLA000
;@ map d CLA000
;@ map d CLA000
;@ map d BUT002
;@ map d BUT002

;@ ins a
;@ outs a
opcode DelayA, 0, kkkkkkkk
	kTime, kFB, kFilter, kDW, kOn, kClk, kIn, kOut xin
	
	ain zar kIn 
	kTime /= 1000

	abuf delayr 2.7 ;max time for #176
	atap deltapi kTime
	delayw ain+atap*kFB
	
	;no filter 
	zaw atap*kDW+ain*(1-kDW), kOut
endop
