;;; 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