opcode DelayA, 0, KKKK
	kTime, kFB, kFilter, kDW xin
	
	ain zar 2 ; CHANGE 
	
	abuf delayr 2.7
	atap deltapi kTime
	delayw ain+atap*kFB
	
	aout tone atap, kFilter ; check filter type etc
	zaw aout*kDW+ain*(1-kDW), 1 ; CHANGE 
endop