Pitch envelope working (!)

2024-06-05 01:29:31 +00:00 · 2022-10-15 23:20:23 -04:00 · 2022-10-15 23:20:23 -04:00 · 9442600894
commit 9442600894
parent fc05237d37
2 changed files with 2 additions and 1 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/mainmem.audio.s
+++ b/mainmem.audio.s
@ -384,7 +384,8 @@ ENSQISR     INC   COUNTER+0                 ; Increment centisecond timer
            STA   CHANENV,X
            BRA   :S2
 :HASENV     STA   CHANENV,X                 ; Store envelope number
-            STZ   CHANCTR,X                 ; Reset envelope step counter
+            LDA   #$01
+            STA   CHANCTR,X                 ; Set envelope step counter to 1
            STZ   PITCHSECT,X               ; Start on pitch section 0
            STZ   PITCHSTEP,X               ; Start on step 0
            LDA   #$00                      ; Initial amplitude is zero