From 3325769e5fe30689844bc500a57d245712aafd87 Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Thu, 19 Jan 2023 20:32:45 -0500
Subject: [PATCH] Fixed SHRPALCUSTOM return to aux mem

---
 applecorn.po  | Bin 819200 -> 819200 bytes
 mainmem.shr.s |   5 ++---
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/applecorn.po b/applecorn.po
index a9c5bf15d619d4eb88fcd0c174b4f9c9bb07bdad..989f617616aa73081575b4562052928073f96841 100644
GIT binary patch
delta 728
zcmYk0T}V@57{|}+nR7iyo7oW4sYf$&;OCao#TwH}x>$D+CK9y|+fmDl{0J&|O;%=L
z7lAK1#5p~a22(GJLxD0f!L6yoi~K6k4N8)16=JoEI%`D1`{V!opZ~-2ycnx7R!_D_
z7*;{yFvV(0Sw(lJ<X)!)i6n^7A~ByRA{9vzk%{aZ>y*GF(3D)MR993~YK{qA1l$M>
z3B`|L8lh_h+d)Bo4L}+4#_N-I(4uIp)}R9N)DEXnyYSNvJ{lb%uZEx&JtT|+bkc#o
zPqedzTz&}$iO~UATJT>Z>VOVuS*&4=PxKB$3%V)n4a1;B+7S!P@xbGPG;y=n1<|-D
zgy0yYCZH;^`2<#^+yAx-OKzwu&NrAceK`1?O*h{df8Z6LvoJQZ(YHe%FaCDUpqL?N
zm!S}aN!v1L3PL6?6*-W>>#v4PHa%a>QMT$HyzQW#dyQ<^H0PBCcS*`RWXP%UY2!vh
zFp(`aW12lrzAnRrB+JsLB>W2GrYS8Et)L&wws@2lqTiYeWRW*3kdvac1e2$-|F+O7
z_|pzIj_S;<PKtVe{aO23sGMyR-mL<SPy^XqgQB<`B^B#1f%3@aI^-hO^%i!L@~m4M
zvfu~OwZLSOd_QwP^M}<lV^l?al=!cY9G3g^!Lp2~xH5;#`k5g$=5R{wiAL?HwpT^F
zr|xiPJWEDZ61c6m?s5^iw>+8d=Um)4H_Od)Auh~?NdIf*c6v<{t7<aTH1Tz_x>VXQ
z^2d%4Re-sGa!7Z8F^jSlU|y8$HnY*@(bgWmUWMFKpJNUm;u~Vu_Wnhp`yx8BIL~0Y
lteMx^>Uo{*l2bylGU4I^a|)p%GP1}NCgA;of03!0{0)8iDH{L)

delta 764
zcmZ9GUr1AN6vyvx_ipOB#!RJ__~&9eU1*Li%7-;3mh`Zohai)LwLiA2h7Y3a!Qh$<
z#Xy9pA2q}|b`=LxABszXveLq>slylZ&%<g`f@Q0yM1{I@h0%}ShjYH?e1GS6I8MWH
znu%tLmSz!Lj9|1UrCD7Ls@p*!5s3&XlF(8SnMjIAsz}<1gMxdYDZf!!X*s1fYlTh>
zK7`yt*+ZB@s0DK_$i}}OK?QoA%&T3XLwku_i;D4M7o11!!j21qBvRs;L8w9fn0A9+
z=IZ-IdYbX|7m$U`Zs26a{}guJ&@NLa3ihO<cL<tMhwyU<1}K>$(Xb{P{$a=zCkKXM
zHyN^p$OvRe&>8%86yC@_9!wP$eNbC={Guf%$VIl9qt;tvcLU<}C=;G&-xgU}_U*DU
zd)kDJOQ1ySxOEA%MKMc&h#yw)hMO^q)4*4;gtMxL+jJ9817>F3G8;&Ze8=glppX+|
zQ|727B4sM99LZe4UzT9plxyqDv+)K6YubNIIjh`+hp?AkqBg|SuNDk*dA7JtFbw3|
z{CPHP*q9CH+9IF-F4y+oa{K;B`egne>w{$oWfnDf_0|>-LA-B$(zfzW&9n(?%RnMj
zkE1J4nhYgay$a)~5Jy*`V0aC-BupVjA$l}t$L^mttKvaI+<lYf<UvEELa{53DZn!!
zdQj8Ja))ZpHt4*%UKQz^>|!tY7tN{^@Yy@M*|<EQPA4%t!j7}A*m*X_uCp<G|22L4
zNOdD~qS090$k)EqXOKqkzVzbKFntvj;5%X3DuxeX`dRspCT6e6+tS0=sgQ3no>1H|
z{#xR<?Sq!6zKROZ&(WMbt%=t;>v+A><e>;AO{kxz&mmNTJqxrFnS{^+eR|?ISn@qe

diff --git a/mainmem.shr.s b/mainmem.shr.s
index 28ca0d9..3d0060c 100644
--- a/mainmem.shr.s
+++ b/mainmem.shr.s
@@ -92,7 +92,6 @@ SHRXPLDFONT   >>>   ENTMAIN
               BNE   :L1
               JSR   SHRCLR24               ; Clear row 24
               >>>   XF2AUX,SHRV22RET
-              RTS
 
 
 * Explode one character to location pointed to by A3L
@@ -1600,7 +1599,7 @@ SHRPALCUSTOM  >>>   ENTMAIN
               STAL  $E19E00+9,X
               STAL  $E19E00+17,X
               STAL  $E19E00+25,X
-              RTS
+              BRA   :DONE
 :MODE320      TXA
               AND   #%00011110             ; Has already been shifted
               TAX
@@ -1608,7 +1607,7 @@ SHRPALCUSTOM  >>>   ENTMAIN
               STAL  $E19E00,X              ; Store in logical slot
               TYA                          ; R component
               STAL  $E19E00+1,X            ; Store in logical slot
-              >>>   XF2AUX,VDUXXRET 
+:DONE         >>>   XF2AUX,VDUXXRET 
               
 
 * Table of addresses of SHR rows (in reverse order)