mirror/sointu
1
0
Fork 0
mirror of https://github.com/vsariola/sointu.git synced 2025-06-04 01:28:45 -04:00
Code Issues Packages Projects Releases Wiki Activity

fix(templates): stereo oscillators were messing up WRK

Browse Source
This commit is contained in:
vsariola 2021-03-24 00:18:12 +02:00
parent c5972bc023
commit 0c2b1a3856
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
templates/amd64-386/sources.asm
View File

@ -114,10 +114,9 @@ su_op_noise_mono:
{{- end}} {{- end}}
{{- if .Stereo "oscillator"}} {{- if .Stereo "oscillator"}}
fld st0 ; d d fld st0 ; d d
add {{.WRK}}, 4 ; move wrk...
call su_op_oscillat_mono ; r d call su_op_oscillat_mono ; r d
;; WARNING: this is a bug. WRK should be nonvolatile, but we are changing it. It does not cause immediate problems but modulations will be off. sub {{.WRK}}, 4 ; ...restore wrk
;; Figure out how to do this; maybe $WRK should be volatile (pushed by the virtual machine)
add {{.WRK}}, 4 ; state vars: r1 l1 r2 l2 r3 l3 r4 l4, for the unison osc phases-
fxch ; d r fxch ; d r
fchs ; -d r, negate the detune for second round fchs ; -d r, negate the detune for second round
su_op_oscillat_mono: su_op_oscillat_mono:
@ -132,9 +131,7 @@ su_op_oscillat_unison_loop:
faddp st1, st0 ; a+=s faddp st1, st0 ; a+=s
test al, 3 test al, 3
je su_op_oscillat_unison_out je su_op_oscillat_unison_out
;; WARNING: this is a bug. WRK should be nonvolatile, but we are changing it. It does not cause immediate problems but modulations will be off. add {{.WRK}}, 8 ; this is ok after all, as there's a pop in the end of unison loop
;; Figure out how to do this; maybe $WRK should be volatile (pushed by the virtual machine)
add {{.WRK}}, 8
fld dword [{{.Input "oscillator" "phase"}}] ; p s fld dword [{{.Input "oscillator" "phase"}}] ; p s
{{.Int 0x3DAAAAAA | .Prepare}} {{.Int 0x3DAAAAAA | .Prepare}}
fadd dword [{{.Int 0x3DAAAAAA | .Use}}] ; 1/12 p s, add some little phase offset to unison oscillators so they don't start in sync fadd dword [{{.Int 0x3DAAAAAA | .Use}}] ; 1/12 p s, add some little phase offset to unison oscillators so they don't start in sync