From 2e2458098184e461ca4b160d8dbb3cc31320580a Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Thu, 22 Jul 2021 21:29:05 -0400
Subject: [PATCH] Added routine to disconnect /RAM

---
 applecorn.po | Bin 143360 -> 143360 bytes
 applecorn.s  |  39 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 39 insertions(+)

diff --git a/applecorn.po b/applecorn.po
index a2220bef824534842c200000ca774fc24e2184ee..fd9a0ad7d944711c24967d66028af4e7abf7ebf9 100644
GIT binary patch
delta 2098
zcmZ8ie{2&~9RI%SHm;MoflOrrdFx);3Ujmtl>l?LV+({a=B9}fOfWL_53^33afwLl
zkK)ukoSb@yf(;`h2OM@gw6a96bRDewd9L^?E)m4RH0(!Us4*IRcU?C_+w{HrzR!>M
zdEb|u?*i|;zz3}<%XvtHyU}u2RaHe<>6Yrsq8ebIlww!|OX^`_S#~yoO8|c?Ta+zS
zrQDSj&YCG=qxe$FA?xB<dd2!`fPXFmf?>p1IXWHje=JL%udGS^B@LA*i|5``hb}0H
zJBQkLtuW0E^u&h((OA55a9}_w@;c{uqrY9hG%-Fta%l>GHgu++9>ejeiK`>y`0}-h
zF&r7Wc;)H{j$E6#j=TPvx^@xw(rJ32FM1|$By#rjmo#u@AR1^nq6BH6vtOH@MFzS8
z9q~4r#I=8sSY?zp223osduP`}v+Il%>H5Z?cf{M7!jHO>(ndS_+LC%o`-vZu&S#aR
zbA-(jR5porF+@b`3osg+^v9+Zm01n1E)qY_k_44tJJZ+Qj9iK`v&5_ovxM*|8i)<(
z!g|0y#)+Rwa`cQzF_v*!shuTDR%g#cKZN-Ce8WrUO@rGQ!T?9k>bz)Irx9JL*)!o<
z^+_BbhOgF>$uvCn@2Kwv-uo{;k8x@)HHUY6O8Ky~o4!RPLf<C1fHdF9z_o&-=Z*|Y
z=*L7l$yoS)B0Su)usDt{z+`GpPLJ<Tf9YyGuX8+(eKDB<j}yFtNb~*cB&)xejSouq
z`Aa15yCs}JO522^J@<NtF$NWa<Rq9hEZbEo6ISRtL1bjIWgZ*d3npm=MW%satbMy(
z-mlv1F}t=|UaIzIsTwcmtNruT$>I|Z^|Vv9U5_b~sZCi^_CoeVIn(Kt>PJp>($uZp
zU<?W-hG$}OmP(hZ@;sHM=Bon^RY1M9IdLq7|Cc-XkRIb>qDS@hF3jMpez$D0o-`sK
z?&I=rjUATI2H!l1+u$=vuwmv5g#O+<uc7@eNys<rCo6T*_lT56_YpbWN(Ca{W~J{F
z3DFOT+^o_MiTs{QMI!H0>3$*$D*cGyT)iJb*J}B8>lh=|<;j`WF~;-cF%ADZ|AS1#
zU+gcr%)S!PRw8lqC}BGmoxh;@UQb?(3+Bc^n<LldX`F8>(_x%UtG|R57+m(`F}%^F
zDu3zStetv_7J`dO5c^W~-oCw>LC0E&Ztlq&J4%?j@3Mq^i)I2#oG)|s0h&2>B=S39
zS@@=R!481&DHDAp%z9jVnruG_=z#ocnEhDcoI<oxwr_U#suFiExJnl?deEE}tC(Em
z%fXGgy4X8mDM-gm()V=Sw7T%In-vR;y&AVpXdHB)FN9-*xr_Ib?M%44$r$>M8AHzj
zW9U6Bj1InN3X>E8agQlqYE4`!`1eUxv27GBL1#p56fHtw;nn!6j1t|-!mNDh(&tJf
z{;TQm4{r#lDLb^h6TOUtp;(cqMUgdR-G&y=7h1pH`e8j<hU&%T^-Ss&@uBC@67ku3
zv;zGu?ypC$XNCz)4R??F#(HQ<c&~1<fRk>78189KJP=1mLYM1M4iX=4Kv`l|19Bei
z`3|MDAdX9m;DPUkqGE0%$__ozh+2@?G>ou_cOgsbZsZQRccHJ5kj1&ZbNF-+A%o9^
zLy*refDVhRzW%w|r#w6BaE0f|9kn|xYdYXwejyx$b^H?8Q|a1VMhYBu8*JhWU{CqR
zis{F#yb~%P-K-aCG&^|sb?{~aoUGd54c-NBCMb!bx2(nnEqpo1w?H*ZS><|5)M2;7
zIers#BsIDnYc1Ha_7*h!%va5t&tl;UzZH((Z-)tf2Yl@!0OmT7M+#iTHfWDJ?RGDu
zn;W6yO2Gp*xWoJ!9M=tP=5DAYTEfEs#~d~&F%LmG(Gt6#sXk>M*6FKkYc17fI)iPl
zoUFAJx?MFJON*+vY_`B|^WRB~yZX^eJo8$$z_x?tg1pzU#qBP|2E$TlF-B*C8Z$ff
zWtZNM7d%fl;BwE-hG(&($i9*x%ePcNvcX|rnZW*J&dg_6{oD$Te|Bf{TcfBj<ZfW?
W7N5}&4&g~;;o7gFq7WNzX8Z>V0F2Q9

delta 1097
zcmZWoe`p(Z6#u@vG|8NEaU^Z6ZTYtM>M(_-!??9w)2=B(Wu0an_#<{$MB+bVR8Xd%
z_QVCm@h#B<zt{~2byUB?w`PkoL$nEYTYqe9H>%=~Sx2KKh^cX+AUftZsoNah9ry0N
z`}}zC9%o*1o0r_lCP%Z2I7u}$_e3K7_w_zF@IcEhq7Fxhw3DH|<QKosha^YHAO5u)
ztcat^6Z2dz(sFU1<LxGLgZ}Wqc0!y*vWA?#ja>F`tSZszZ+?$A)lsqJgsZ8#TkqVP
z0&NzKy%5k-og<rEsrpx!diee#RHds1;a!LvvgtVa^e3a}q=hSa^LILWg<ha+P4>yd
z%$*g;0;q1SNY5FGN`+jDMfWPwbd|8*{WT=-LDqv}QkCgN9$AD<m8!B6=@*7L5$_Zj
z52@HCf}AfxN3)n=UsFml<RP3Sx=m$khV4RCI5mJ0^t;!;pC2W<2r$t3-;2;_J$I(B
z-KHY;pH`CFR!!+eBjKFuFK#u1f+(wqvLecAAl@zC!+2N<{>1lim-|{j*2Z&&r>u4F
zzmsi7Hhxyy(~4r6Z9(B=Z77q-+EE@w)`0@pR+Nbh>qPl_hJ{eRkzrjZtqki%I%BBM
zlI&@dA7Vj~yoNlE1;z6jN+aGG?@}W1P`rCtor17_6dK!sJg@}55uY)qB^&05?UG)@
z*3769QH0~DTK5_XD}9Cnt8v0=tlnyR`*dmM`;q31BsD8mY-+yNrl5uXva`=9>?k>#
z%L2^W5_EL~nz{Z)LK2$L`s9JEw4&$fmd9~ulE9dJIjb(Uftg3q?p2Mdokv!8o($gn
zp=-?=T5laae~0IqK}qaDRvhMoIjHf7oAgc(S`NFRK8Qm~e72<=&PK{%ep@-5=|lcj
z4)$0d*ls<B4hytL_~vEUp4xpOq`?H2d1!>ExSfYuh*{q*1lRq@3c6@uE4q1$cq~=>
z`49S=!w?<+YCpG6LQ^`o8|pUju?0AiKJpCI0FMrXpH`Mgh9Xs;==V;`g3b;u$Q7L(
zTKISrKp1@NX{hI)4MPAD{PHlo(iB5hk)6$(g?Z-4j+V3k(GI2+Ev8u>Ey|~!h44p3
zn1b}wJ_u{+`ES(oJD_QN>P7V?tFnogAk670s7twK{?xAjh0jBJ;v__yt(~7#^AQ`|
W>BV26Q7L?>ILCg5mbA*QuKNdcEUfDQ

diff --git a/applecorn.s b/applecorn.s
index 564713b..ce91ecb 100644
--- a/applecorn.s
+++ b/applecorn.s
@@ -70,6 +70,7 @@ START       STZ   BLOCKS
             BRA   :L1
 :S1         JSR   CROUT
             JSR   SETPRFX
+            JSR   DISCONN
 
             STA   $C009                      ; Alt ZP on
             STZ   $9F                        ; WARMSTRT - set cold!
@@ -196,6 +197,44 @@ SETPRFX     LDA   #GPFXCMD
             BNE   :L1
 :S1         RTS
 
+* Disconnect /RAM
+* Stolen from Beagle Bros Extra K
+DISCONN     LDA   $BF98
+            AND   #$30
+            CMP   #$30
+            BNE   :S1
+            LDA   $BF26
+            CMP   $BF10
+            BNE   :S2
+            LDA   $BF27
+            CMP   $BF11
+            BEQ   :S1
+:S2         LDY   $BF31
+:L1         LDA   $BF32,Y
+            AND   #$F3
+            CMP   #$B3
+            BEQ   :S3
+            DEY
+            BPL   :L1
+            BMI   :S1
+:S3         LDA   $BF32,Y
+            STA   $0302
+:L2         LDA   $BF33,Y
+            STA   $BF32,Y
+            BEQ   :S4
+            INY
+            BNE   :L2
+:S4         LDA   $BF26
+            STA   $0300
+            LDA   $BF27
+            STA   $0301
+            LDA   $BF10
+            STA   $BF26
+            LDA   $BF11
+            STA   $BF27
+            DEC   $BF31
+:S1         RTS
+
 * Reset handler
 * XFER to AUXMOS ($C000) in aux, AuxZP on, LC on
 RESET       TSX