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