Pitch envelope fixes.

2022-10-15 23:04:43 -04:00 · 2022-10-15 23:04:43 -04:00 · fc05237d37
parent 55cca2ea25
commit fc05237d37
2 changed files with 3 additions and 1 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/mainmem.audio.s
+++ b/mainmem.audio.s
@ -516,9 +516,11 @@ PITCHENV    LDA   CHANENV,X                 ; Set envelope number
 * Update pitch value. Called by PITCHENV.
 * On entry: A - Change of pitch/step, X is audio channel #
 * X is preserved
-UPDPITCH    CLC
+UPDPITCH    STX   OSCNUM
+            CLC
            ADC   CURRPITCH,X               ; Add change to current
            STA   CURRPITCH,X               ; Update
+            TAY
            JSR   ENSQFREQ                  ; Update Ensoniq regs
            RTS