From 911424173b481ac7bf79113535373fd188c02e7d Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Tue, 25 Oct 2022 14:36:02 -0400
Subject: [PATCH] Bugfix for ADSR with change/step = 0

---
 applecorn.po    | Bin 819200 -> 819200 bytes
 mainmem.audio.s |   3 ++-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/applecorn.po b/applecorn.po
index dcd9d451b9ced019a010ddf0ccabf7cc205a00c4..c093ca853098dbaa847e7115e9b62b6f3beb4204 100644
GIT binary patch
delta 507
zcmZo@FluNp+Mvq9C^1=$#ZiFOl_64BiI1V-F@pk#vALYZidjX*!_mjb$ki`Q&&e^E
zfq{WdkAab)fDx$FoKc10F#{ivF`e-rr}iceRu*=~|Nra%|Nk(Vktuj{JkLUZU0w!O
zU4=&qhB}5i21rob$UsLIjCFKPbqtNnbqoy*6edN@7MHrBU<6cLkXe$Pp_`bJRa#u4
zW1^t2d3BT`V^dsP9AjG?Q(GK!TO3PU9BW$~TU#7^TO3DQ9Ot$;t~+LopSRzg!j)vt
zm^$6z3RfJEntz4sFwfH@iQ3t5b7#k`P}n>@?<$wO)zhTjPl*Q@J{TDY-(4Jcfyp9a
zhD7b+xU-)UH;6Wfp$Sc3YG7XbDRJ&%p#DqK-(KYksehBSfMKP=A{K?zq(w^>a43NJ
z4U3q8{CVwhrv$zyc-)HWdz$32Vkc|Lij@os_mhBXGJw3~6)P1WysD^`4iFa5tOhu1
z0i1OJs_s`t!mTJ|bE<TKTqJ{j0p($4RsBkk$bFi$DuH3G%>jeo2_6d1w!gi`CCI$&
O4~s<GC$43mxcdO!$-<xj

delta 947
zcmZ9IOK1~87{_NHX=AJs8*OrP4l1o!s8%G1Xe~aX4Mb2-Qk-s6(Na`;5g{O1e5_tZ
zDhiRdF?Cx@r?_FGVih+-(1UL9vG{1Uno~qY(5^~RDj26mOK~pq|Id8i?|aDdDp_8o
zFBLiO`DNlpx3C%Psa?4c$OQnW#r31&T45<@3^g`x12d;=6A-|A0j#d|c$a_zU}B*+
z&c(&$*PITqTqqV}#iD(l<9A+fskj`9RjOcMiB(SWr|QWWDP4Wg4}y00m3lL83Bf%*
z+Io7fS_4_P(>!5`E8JP>O8tthv~I6S?J{_vSAQzOK(GE#(q2*ALJ5aoQIdn5RIkul
zC^M-sngP7@hg16aroE<imG96P9nKVETuscJXF0Xqw8m|5IfAb?P@lx;lckgpUSN<X
z)4(Iz13J&7RxROih{8u{y-gdX+dDcshP6r~5jHfBk!Utxb(*Lc@B}9S?~}9;wb$2q
zRPdOIcQ87ry5Wtay2Bbbi`L@Du@EJIwTZ_|ZNuH^0Hfmjw7u)KE)a*GZG#kXmGQ4u
zCT!qJBhzePkD-~gh8t#m`9D_~pDGRgN6wyv8?SY_P2Ltwhjo`#RYCAsFMK)>oa~*w
zR91EiO~t%M#%m;sT+aHQ@)`t7+OIo!l(HFLQZg~UO~87?V^o6sljcdw3x6bW6UCb-
z-b@)mb;4*e*qKyCcEiqOu=y4XOf^w9y@~DlpPQ)VAZ|8AY6F!%<m|Z+bi-4F`X`9H
zRdG5icpNE+QxLBpK|!K|911E^P`QGf3Yv2hx!$bdzKrBAxFQ?4ws^yH7h+fPx$9m<
zA>upMgAzSx2&UtQU%0mV3lVI$W<i}N-;XTbFJ1H<>qn35R(+9N_1{w$FAJL8n&@ZQ
zR(#@xYgg=Jqz@3tMrn(v1AR{T$IGg~{H4<<=l(7Q#=~a|k-*SxVc!q|Fdtzt?aZ|e
z5m<83Fli_$#*$}L-;B!sjhkwh#>2BY(OPC_fu`91KUQ=~@*OHfh9#h_%hvsr0`Tp~
W#Hee5F!JlC$orJ9uEDQ!&;AA;bGYFE

diff --git a/mainmem.audio.s b/mainmem.audio.s
index bf0addb..9107874 100644
--- a/mainmem.audio.s
+++ b/mainmem.audio.s
@@ -598,6 +598,7 @@ ADSRENV     LDA   CHANENV,X                 ; Get envelope number
 ADSRPHASE   STX   OSCNUM
             STA   :TARGET                   ; Stash target level for later
             CPY   #$00                      ; Check sign of change/step
+            BEQ   :DONE                     ; If change/step is zero
             BMI   :DESCEND                  ; Descending amplitude
 :ASCEND     CMP   CURRAMP,X                 ; Compare tgt with current level
             BNE   :S1                       ; Not equal to target, keep going
@@ -623,7 +624,7 @@ ADSRPHASE   STX   OSCNUM
 :UPDATE     STA   CURRAMP,X                 ; Store updated amplitude
             TAY                             ; Tell the Ensoniq
             JSR   ENSQAMP
-            CLC                             ; CC to indicate phase continues
+:DONE       CLC                             ; CC to indicate phase continues
             RTS
 :TARGET     DB    $00