mirror of
https://github.com/alsa-project/alsa-tools.git
synced 2025-11-03 09:01:51 -05:00
31 lines
491 B
NASM
31 lines
491 B
NASM
;;; written by: Daniel Bertrand <d.bertrand@ieee.ca>
|
|
|
|
include "emu_constants.asm"
|
|
name "Vibro Effect"
|
|
|
|
in io
|
|
out equ in
|
|
|
|
|
|
|
|
;;; sinewave generator:
|
|
delta control 1.5e-3,0,1e-2 ; controls frequency (2*pi*freq/48000)
|
|
cosx sta #0.5
|
|
sinx sta 0
|
|
depth control #1,0,#1
|
|
sin2 dyn 1
|
|
|
|
|
|
macs sinx,sinx,delta,cosx
|
|
macs1 cosx,cosx,delta,sinx
|
|
;; depth control (and add 0.5 DC offset):
|
|
macs sin2,C_2^30,sinx,depth
|
|
|
|
;;; multiply signals by sinewave
|
|
macs out,C_0,in,sin2
|
|
end
|
|
|
|
|
|
|
|
|
|
|