;;; A simple delay routine

	include "emu_constants.asm"	

	name   "delay"

level		control   0.5, #0 , #1	

feedback	control   #0.3, #0 , #1

delay		control   &0.2, &0, &0.5

io     IO

dly	delay	&0.5		; 0.5 sec delay block

write	twrite	dly,0		; write at 0 sec

read	tread	dly,&.2		; read at 0.2 sec

	acc3  read.a,delay,write.a,C_0

	macs  io,io,level,read

	macs  write,io,read,feedback

	end