mirror of
https://github.com/alsa-project/alsa-tools.git
synced 2025-11-03 09:01:51 -05:00
29 lines
411 B
NASM
29 lines
411 B
NASM
;;; 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
|
|
|
|
|
|
|
|
|