From bec30f4f8c642a535883046edf4ea9a1952c5351 Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Thu, 22 Dec 2022 22:37:46 -0500 Subject: [PATCH] CLG sorta working in SHR modes --- applecorn.po | Bin 819200 -> 819200 bytes auxmem.shr.s | 80 +++++++++++++++++++++++++++++++++++++++++++++++++-- 2 files changed, 78 insertions(+), 2 deletions(-) diff --git a/applecorn.po b/applecorn.po index e39a5b7468a42f65c4fc89d5995b261ffbb47c23..5955511c144f377c72affbb89511c4735d6d99a5 100644 GIT binary patch delta 10412 zcmaia4_p-0_W0}!f0j{X{lAjw^>3i0WNGBn1QlCy6%`~!p{sx{snvV0S7fhtdQbfM z%%QckQ3G5jF^1>RVwQi3*wkzn700wPO9e$>(S_lUXlU;D++9}9dY|9^yZ4@Z?z!ij zd+s^s-dTD#FbOWt>XxFbu*CAZ|fF00V*AW%O&1sOR+}|WF z_l`9LRSMk%b{Gu^(E{5C%6&5g_7RQdmhj>hcK1_9+ia7g|KjYeJc*9BMUS)n>g=gp z=SIntT{j|uLuGBlJ<$W8ThHt41b8cfbM{n&QJIjml})CHp5G^JWv6Orszq>bW5;M3 zg@GTk_P0(PQCQznRo?6I)= z)S}aTLu!7YJ;IbDekuHOJNs0h#?;bnblz1jG)L^0=VruI;qC2gU*W=bHspcsfB3p@ zZD$`ISD#w`!&x9F7t_2eRo+JPej?kvSb0s%!90zol+x(;8~Ys25yJ&;2ir%mY-a<7 z3@bad`;}Baa1-GsM@+o0uf)oB>rv}v2y1il1MK`|;joomps5oE?qCOKz96^{L#uEH zJ6f~({#MYVWa@>&$sKHTSe=(dOcd^t%a3(Pw4p(+Xq-5 zBG^A-2hhkRM18~}I;l~Z{Sn(wli~#nZ+*l*qAGI7pAPv#|GV|sj2^1Q@_p4*qF&r3*&_xyBe#=Q7= z&-F{m3CYHI&xBgf`HNKb zGY#;vR)=$l?bmf^d?WO%ty*)^lyECL1g)%|s4~VMFG?Q1orV_rd$mMivB^ps&wC_I z%*u8;AxQrMymAkLDHI*b5%UGBt!onn!6KuP*M<4J*pY)Y)*96FdJGD!(H9-bekAuu z(Kp#t?l(sr%IO^O8R2CK2FbhF@#ZBp!w*FV8LMiH^&aaGk&!6GUXn(GpR@KyL6=ak zOQ@=5_~qzsRu<|GyUubGTZf?6YOH$rfk6bL*QK%}hRDI_XpN)n2x}SzugEZH0n|B1 z8epR(gi1W7XVLx|LIjYYCQXD%dao-xQX*}=sn6C_>N?LFOFU@5@XE*Ru%|Sa)Zp^l zHGt!&)HNHI)XaNss&Tr8Ms`YMfWU<7>nfESSVG1o4=6(&hz`_}jXh5oRLl+%nm%TS zgn>fV-Rt?8^gI~?kO5XIN8C!ZFi7}kG23m(y4qspB=t+u>o2~tBxfS>+6kJJ`L|b} zrhr0@c)_PJ;;YP{<`~!nv|XkxZpu<3GZweTQk>7&BS3l2T^94Kmyzze7p0W4?ABQB zb#1a$D=U-|VkI^>5`=gv(^=N)3|0F%A}@*o=Wo|2!R4AufzDiKrLHBqw#b=a&k+-Z zG9qN2#10IGF`%Df0(o2yjY!a#(%rkC^Wzxb1}+qCOY8)5QllOn@`x1r#$)U2#VF8t zF&e64mB#f(cdZwgM|pwkF&On922B040ls?yL)~A6oxJ{fzp5z1OKt^&8yRliAnJu;p+5wV|;S_+BdIGpFe93 z_uJL@1@Y6kKzICt|HQizX3t1mAMY|I#!Y`a`0A{gzLAM@lHYmVHE;gxHSw-_@w4M* z#cv>$S&1p}Yu~z>6qgeJcF5Hv^PI#)BUgVddEuORZs%3%E;EVK0 zvB2|+YermBvS*ar5O18rz0o)`exavdi!ot#JojGn-1!N~9<^~^;w=7kSCTRDInPvg za@?Hw4X?YBQ!KB$JhKv$JfAeqNC1~7H5w9=l4m4&K5F!=tuwEw7a>ONsEdALZfoR4 zB?z@PI209(YmC|t>bhI-3_1l_5C*Rnquo)LOArk3 zEipx$GiZljeVGAgS9CQ3cho6#NBxdEVl~8q4Qc>HL~Qk-CmNlj)L+4-Tb=(@o19}+ z9Sk9k^lfWBI8uehfTDIvw9?H=i2=x^sBVcd0Fo)vjE)H%rEJvX5*Nq7nA~Q_$kf~x zG^SDQgGyYvDygxg)&eXlww*1z)S_n8?s>Tgqwid{-N5m8!txzM1~O*OOMEl&N#~z=QFkd*93}_oju#Fw?2&_dLxYj1mI^`y4+V@du-7k_BfMkY|*K@@G zkQfmTdm266sDyfhi%DG|nT@NjiYjV%DFG6tHky=pkttW{f_A##Cgj2GApU4AEcg?R z;%&f+P@n{HSi$tXmTYEQ8px>eRo3*y&um&EOA-Pxv3;IzJwM>2LSHKQsayNsPqBe(EL z89SKnbxBal*#3QcU1~Vmpt$vxe$ptPj1W>51Pr-X)^RnifZAtAFXYFUd zK6~iw;j^2C%b&8-^}IXx)`1P~+|HtAV(7L&D^;e(puNJBy=;GNRkP@cFh%VZ()Y46 zG%Z5WUUuk{Lo+t24tt=b1L75iJiAQYIyA!v2()92%+0odJ)M?7G_%Y$8q4{ha#w@RKE_wZJJ zSSz~GVqV>8!Z3uuhLKJgeuuUK1@AyF4ndKqYD(1s542tXX4n#vB2;qMaOu$2-NRbt z;jQXmZ(lhu4P9Pdw{{8Os2bkN{Q{g(@)}x=5IuQoXrC~E@F<8_skDe;K8Q~c0OYTs z@$fUz8f=h9*dujngh`~%uNQjmX9sKE5gyymJ~n7f+x=5EjcKbg(ct6K+H3<+Qmer2 zXQ%f7*~heX`tWp1gzxsV<2APh?E!X0H}5*y0?(n9ZNggz*l;?)Eo?i$4x2Qq9qnvi zy\WkdW2+($ak?T-O?H4}ZM(^00Px7xdYe^&^<9$<%u|2u=MoTI_sL%Bwjdv0}( zcz_%NGRYyJxA5#iHY_NO0J405za516)7pf*gY4YU3D?(q^9o2wr(GAW9b{+G;~Ry) ze8Em5CHDn8Z1moyml?^t-w}94kBiz3TT0+`4;!YVQ(N1vj)WO=AhqvBCV19+?9jmy zu5FLNnZJ5fA)ggmzhI|#*L8H77ObRcIAwh&C?ES0^8jKJv0{a_gLrgDhw;mf(D-@t z66Z}slvPvqn;Hau%%ODPGaY+6%HVygA*m^*iB_knAs3&%5O$&A{JQf~&L6&brsL1v z5FCtWIv}ewmbi@VE>efjgzLt~t{aoCLw!R3?>mf4hjHI2CIuN!IAI87DQ zFWIObWgTC3;10Clwn&vPdR7=!&JON*cBVK5V%i!8a`L=?GrP|Uspae-?Yx-)I*>F| z;L6z%qu<5lxeU37;Y2D1?qN(ehW|H{Q~Hh_KH_6USsieGjER~%OHj($&YqbwUz+*) z%-osp&D=3lp84g>W5Um0u{k5YGUk;V^DB%n|J!uIRHoq?M_bw}%cnBVvC2*PU7R~f zwg@>DEHcB*51A3&T55SR!lJ=2nNK9-CP^W z`wgAH#odwL$NVQaLTd|@N}&UVWZ0gBL}8L-$(;=4)6#pnQ{-}E?o|0JV`+sEHfdmZ zcqMlucUpv2Zwo|dDP$Kt4>wg9xi1KK^XzyYakcI{>Lh54VSS(R|2~pU8u@uMeCN-H{ryY{8e**88xpZ#=KQTFuQ9^-; zq~R$>isdy75VZv%F2%U=E_V+OHu^_*vGL1d!bxcw%2~?i&%PfRgFa8Qy^4y`Eg^FL zY`7!&D@VbUe8FtMb<*nNa=x(rYgTWbg;lnEHr@(G;ow>}#4&)53TN9UqwsXwV{*Z4 zK91o&MUOxKzXXCVX$DtAigfNADJbr=0ZJ2hoZPeUt(f0TG}DIp4>0<8sqI7|FrS1}Bp`Ubi+Wzae zBg3<72WEn6 z4$41_{_|nx1-u)BK)~*)YcSUYsGO{a%A+xI6Lz~W--P96>~6$-GnQ5CzKVGjLsw`s z4pp&AOP&Nc68L8sKxV1_BXb*mA~T#gi;d=aeue>1Rc|H`kydDtf-5`&csDI!r5#Nc7S>Hd;>|4e4Eg}0Wn~KZ|E(B z@;k5;<~7mMWN=D$G8l^i<#uLsbfxZQm)Ef;JCQBKsZq6~5(2a1jBh0sJ)yF)oym=s zzh-hDLoG{fdhp=LoMgD`$W2NhdOv)rq#;3q#D*vm8&>VbB_uwq`b-G@7E;WAB{_`> zEH;jjk27uu!xtsXCm6Sr;ddp=RgAlmQMB?&#(j)|XAV)AFa&;0qjs}A1e=bQ;*8^x z9~93vy423>{+c1%uA1=nGvV#2qurbC-$&gvX4gw_y z@r5{VJKkW$#)_pN1w>q!uGQx+!CAsCTs>dzz`UK|k1+BL%zw@B-!S=ynEazm{$VEn zTSjij&e%vs%O7W0ctzOg5N+sj2AcA1YeO!p`Zc))}t`IA?g5230L+#u$|%Q;gd8Zj@4kz`o33QfR^q#fbW6h^wq=TmTpvllLy(;7vPxtocks z@3-#V59~spaoo3Xe#F8D5MgE#3c)y(VQ?YlwW&$I=ybxrZDlXB>(Mjmwu`bS-RS`r z{Y<*0-B0s(lMC%m_7URg2ZN87#@O_$?G*TXE(MnD3RyO|bD=7Z*8cw!018aF>Au+i zxR1!awYLqCZ(?VdGD!XvgD;djF|V-@TcFJrVhM~zqP$Bn%Fn5eNPqc{&dLC4uxa%q zCkV21lVZ6DU(_D*J6p5$G8stlEnNz+-%{%h<(+=gze`1?L8c@nahLrXB;><^x+MTo zf$k)}1rrh-5I0F8@TW9{#mCr@Q_m2N{W&a9^;48<$&)Ii+l2aUk}r4F{d7i=LFc-} z6pkEYhm4;)3kJ(|sgVpkKna8qTp0KPZHyG`hC1UTXVh)-(?@@UbWVsp&i2uHhu#Ml zo<7d@>-8WMjqqas5gzeBsMwCPPrwsUq3$^QWZx_BU~Cf_y$MnrzcBf=!nhM`L{NPy zB*Jjnbb^h1;&+oaT}_1tBG;h1+?|>`t)YR`Cz1MOk=osuS~h9pRLAkFLiq`H^vpjW z>BIJo^ikoq`y~bPvTtr6E>S?zmFgq-cokf(0p|;<*r{>0MY4u*PE^KMGvK-QFOnH1 z#`RcP@f? zpdpKqJ`K%YjGkJohs&cFT)HYv?NwR6Dh)0ugDa~wN;}8otxCh*Co|QW7yM7Hu{?#2 z3@Zr_=U1gkWBC`;3SLTsh#OKqg)Vq8t&(fQrNsYOg*7MHe*IRZiPSY{v*j9Q>x*gL zgm+b%U^~eUd+gQ4mfm)a8gjrx!<;l1B+W+uTI_IeKV!I_41#M)$TjuYu)(@`H^n%P zTZI6HeeA`k+^JGp?liPxF_xm>h?C|$;!Ks82Vil4=ZBG_5QGHjepp-=jJgkR)gS1+ zKX=OD_jPopnQUd)SvY?{x`nA4ke;tk7pc6cv~!(kRXW+YD(@jZ`t);hcMKaspRU%z zX}}gH4@g%@6Qb~;bgsJ?WlclW^Ohc{I-MX@bi%1dk9}^it}_M#RcRDasjfT<7DEZD zgju-1FmRDVhG}8geFLt+%KZ`h_sBx^DYlP!Tl&^e3=7b>p*sXTQrBaDH3mE10F5uP z(2*D6{CTZAR(q9)Vz{>sbq-TQoKw`m2F|6&F?e?rtoqhR(;Pl57O+qd`( zo35eZxbfxp?33nukwT(uAtY9WN*V~$2C*j}XfOYYDQF_MfP8@6L}JpB7VJA>LH#fs zv{*Q85%|9#2z*E)S3Ws>6=2y?!HZblSiygU<@YN1omhUqf`WmxTYOuCiNSuVqaV@;_U?3maQa6`J>SaAjV=FwnYnSW0u=Sg zq`AvTNoBx`(&nTZzI-FYVehNZR%*-n*D_Qcv~7GWIwu? z2~Y4zH40_jYrtS2R9qGtscwwz#M+m`W6Iyi`0cd}9iz|gYo#FPD!~b!nC!kK7&?G- zVPa;)JthqiFF%aNXThCX={sic-OV8q!tUeL-|OwHdY}_7$9Pv(eq)x%pgvhPHZtsl zD@$RT8nY^OO--&WxiJd>Y5=+Pta3eog@zC;_}38CG&Do$)np!)p@cRK&w%7(LLlX+RCZW~PW zTxN7P^xHB^5PEVsl9yNN+_1w!vV5N{fY1Gic4l$k1p+4gbt1IzrOZ?-1*heomaPW+ zD_D_<&o#hnzaDhAzSGG>!%Zq&2b?mhjPa7mn6%PB>H#LB+hj7DR{AP}z7z{HNqwwXhOJgI=APJWKof|7<Z?Wp}4tktvM*nGGMSHQ8WVEf}}8ds*yi1nmLX z8d4Tp47$>qu$A>!ZGrgCie103O-UdbSu;YKH<&=WC!%|we<@Re5VuAD=1Z9;3?^HD zPJchh77RcO4XKpDRPYk8(z;BK;co&GSNKLop*cf1_A@*FgUW70&E@YtO4Uf&?~Z|A z>fNzajaUPJY&e+>i#JpZKyH(`6Q03)+Z-6Q+f8Sa4190ea{~2_7olV9p8P4w2}{90{%3X zT_U`9qT6tD?MkFs1!|FE#9&mrQtAUuIIOOe%zTd{a>1Zi_t49SED^E zP52z>Y|veum91Pqku5ne=tUsVaA43XC_3>LB5&zR*u45|4;%}{AfVidJsd@m(P8WL w*})}ShLRJb7hhzzckIGFH__1sp+F_dQqDO$r3>o}=0IL${Lu14zdDf&c&j delta 10455 zcma(%3s_S});IU^2p5s4NTc;JK5B`j7F!>w>jOk+(5on*RYVv9Xi#h2?TfPAP3#(% zpL%I*trsoWG{3l9>SaS;*0$96ECIFY+K0bY0R;r*aS=p|Tl1euK&KjL7j_ zOk4@y%>a^2nw<<9BFuP)eVlf32eaN`0~B<7jIenZJLk#8J;fAVt-2-6aA-{Cdi2Rn zw5J2T^&J}iExPKKcv|)q{ZYHSd^@drc>m8R@1{_@iybj6?`F84X=$@anST*Y=DXGa zG+zi5*a>T2{X__oi z4%H)ZCZy?_=#Cfx-D+OtAiz6uCg%{@A8CZd-E0zFap9o2o1L$qb7Y}y4?9IsDvWxU zolbvpK}dX;-9*Y`@3L9+M;C<2MIh+M7Y?o}Vh1VcPcIx?SIo{*C^Uj?FIy9wmRxd{ z$H_&$jxa-xZJO}fd+gJ}`sDIGbU}s(nqw;&hG_t=1tU-z^Xv@y0-!kzcn(KFMM zD}Oi#l%!IcPfwQi(0u>+p#&?rpq=@=K%pq76zb2okYhQvw+Q%IVat1Lh>&4r#}8SP z%=_*njO5t9zOS#$$_5Tj@$iC`IYmAWezkDS%C1zT3Zvdz*&~d@39+H~d&O-U29FT%gVRCFnQW+u4wXu6=A?kb4G)UvX-q-nL zos*JB>Ci7%Kvyi`G5$AV?e>5@V$mpF`1rqBG^VD-I>^I%#f{yEnLO3)K6RfNz!m)V zu@5Ucgtq@?M+Bkt2DKr#7oShgv3=zQITRLFyzAg(pF*IzX&)Ol;?I|yZWqI?yu>|! z$w|4?`8l?a3BhH;KliaCp2qkSiciO%D0n^o1XcrkRr{U?l(1t){Bp%Q#4Cnl_gD9c5iHd0gB7s6$NCz9b)9v{p>}$Q1LPz^L`6r( zBqq9tT!~)b9(y@jw;(Qol<`Yfxi8dv8w+9*lM>=rxnI1pAR%r=jCi>?u2xrabl;Kv z4lIY(`PxGqK6X{fl{uShSG`p0{Wf30^S|0I#@FRkwAVjS(sIdcF7<_#o>;=&$uCzaGWb zPrMQlXl0>Z*yUYcNN0o1uv9AT$L zgv#88g(!mHRsj;!#91)Ou)K=nW#aDJ>TE@|s`ngM=0*|1zyHBbnEPtI>|gm}J>XPT zt2(&xS>2f3_-bQbqJpFE`$5 zR5lH7n%p$6X>k*7y4?7uCUeuCrUOl1HMPOx@_e^7U54^t)dy^+!dTfnKPoXU+Wl=y zbX1ZVTFc|O1*V~`(O}YfH?Ku=@rg0+;Oh%wxR|7vZ8xtiSiX3v>80y2D`TQfe`$?b z`CpaIaZ6(3^DCRV_^1V2jMo+~@{WvOn)F6zbHef^TPvFrVwOZLj@eEsi{n?sZ0os} z7_}m1%a&`2#-;J`oGGm}Y1Psg)2QpzJ!aw;#N>50$3*Mm-3=|VE8VTlu~CUhZdpI-A{# z;}hMFUW<(bFEs9&E=kWrpTdC zSKWax@7u+Y_E`+L*F8N|F4lv0&KYI@4#h#%fWe<=mG3v134#tjWrncxI_1Rcn;CF3 zCD+4nPm_!8x%z$+*#%_#>13ZOur8|`9cXb*mVbr~dBgdd-0plrR>2VB!hW_kfeUl7 z7*OP1k#+@IDVq;!amj5WqXQ&^#)zVYzy6aAH;!*HF)+s50U3;J?nL`rFKoaed?4ewi~RTo617nj@HonupY zeDVWvQ~Yb(79E-T(-v2d$M+lLm76p^-6g(fF zedTO`hnm*&ebm+B8W{1b+T?rF96zV-c%uEyc58bDJRi1SYTw*d({=cqm|ZZ_x6OR#kWZVrx1@vYf4i@hs*trPynTJxWW#6pJebse*{LvCIwsaFWl(H~ z%^hY44;Pv~W@8oE!sDN?^;Uy?LHA)fAGiZKFH;p~YS( zn%;>iN_RdP;Amwh??GrLwLP6S6_nbxJ)L|}r|8zU6?O9OcB1Dyb9)UKMi9`uq)&qH zJ%q4lobeuxNYzoY%9ACi|MGWCa)fGAD=y#DdEnhnsi;#P>*=cmuA$4r>uw?e2vBvV zsMB--IHRPkv>ax07i^`y!gvv?U7faIFTg7Y0E)KKc;a^vLjGs$UG0@;5zrSH0g=#tlcGA=1mV%&siRrV9)-daYF$|2aEh_K7YusylaO4mn{4^dCDP z?LGgQ7T|SEL}PDNg^YT-`o4cv2wOg9Cyu`40i8$#$8?6RQp?tD)g18M0O-NK7su#0J_ML6~a8%;{( zm+XYc!rM19qVcmT-$peq>DCpN!RZ?;v8Pwr&@E4bxpN?y&nFYac~6z=zhr|IONHDo z*#$%LZuS~hZlq~AQ7t4WoQFLlFc)c?Y3)Jpx=~~gH?1cqCLtj{0Zx8aMa3`R=ODXv z^}|OnUvzA_^y$UFU&I%wiw7_Kp_c3U-KWLH0X(mp8{fihY$0`c zmv?hwH&@dQ^%)N>?&1D?lRNk=clIVn-{gkfFFJ&rN;W)G(=)B-+)cFd-!`i9 zY#cDt_Di$trsp;QmQ`cawoG*ffXlde$8?Qfy2v&U!sk{7()5DAF$b0|5-EqDWw1jj zv!cS`Z}AcRtrY({!8fK)t2xq9KCgPru$YMpZ9-FpI$Cj$5M z2}~|4`V{fquN0v=!iE?><@!4*(&-u)q%Df$(Ac|ne{^JBdmM)m-hlU%Z*jnTCEA&c z!c)*|DWqaZL6IpCT*niYOu%9kKatcPA=h3<$KihZ9@D8Gpzon&1Y%MY;|c;QqJpOw zF_Kp>K-KPtZZGE=?s50KqX{QoHj+G?Oj?8FbUtLs{Xi|6vc~>08l7qhkV2NgMZq6U z6wJsEUjn#JBP~DW1y4K>#T<%)b(a0aCw9+gs%%v2i8Pt5JedZq<|*1Lg-~ zG*)k42>Juy*gha4T0Alai~f8z7LV~8N!yW);rb>U+egDW@L+m@G9H~wx2yPIyj?~5 zs|H~^ZKAbU8iM(mxLg@uyh{&sJu?l4jED>hAcKtd%wLUKK}I}-%LB*=pj15rTl}1y ztTshSvoXIAOLH*4h|EzFi|vn_E~p``(n-(sZAKWkcb8t8+22%>rXdV#l{ym~5Ok*R zDXM=DX&gGV)0k|3$e?qYWCnQ_uM8H5HK>$gl+M7t8gFo#Tto6@U-W8%eI_}tps`8z zDPH~yJwng+vJa~46RuDE01%|S&?Ci-r2ggUBwPH#z!ntehr8@9zDa}1<63DgZcE4fS}d)@ zZF%iYB2`g#Xe9lt|Kdi;(;$`Cf4WJefZATwV2 z?TqNjgnp(@Jb(f>putYJJlN?c53>Y1m2xcRo=oIQ6VQ`MT%aDlQJ`K28_qJa%uu() z6>N)#JsBXKVl+x%G$|k5NYWX|dXB|LFx-9v#W2!I%frMVegqbSJ)3n>61XufA&6~0 zl@8{eh-%es;xb{cYm=PF9^h2S%E@uQ*->0iLdi6ll^l#YLOQ~jr=o1VT@79y-Ad5i zbM^+8FAx(IB#c1xFxtaO_;@ZHmyr{F15W=%%SnQ?(E^ zxZVUO=Yl$7!M7HXjoX$0W5yW8hFNRWTqb0IQfX$;p7U(b&j4nE{DG74tz2 z(Q1$uEX~evA16Xq3+4w4;>U;Lf`{;SHRfjOK{g24z{Gm5mj%BICVV4F+Jt!r!yjj) z=P`eT;ZHC{N139NOwlo>=xavWh@FudM#-OISa^lm>EHlm&?yGm(u-KPUV1?o;$){9 zK?~E!ih1oS4a2qtreWU#w-Q)THB(f>+*?vnQN9`11!Ys%xj8`#5Pcb_Tn~NPooOE2TeSUST22OeK%d1L&zd%MZ#3FAWzIuffV=^<6HGg;YCH=uT<15OE65Fpv~;r`T~%IXTD`rPO2%<5akOrPax%V6c3pR`hR!I^!M6 zsdo0$Lf4)Ztf$yeqi5iKP&8s^Kcl{ckNZOI{aBCuzp%poPb`KoqCL${Ba&=7&CVRY z27Vjci5}YtS<~u1d5cnn&rh>qerd^&USpy8G^?5RE56$^lHnJaOz5u6N;XF~H8X@7zFKq=004vX|f&XW*I; zIIlay&W{RPEh!l1EZ6ip1{_$#YKdXsm{cawP(&bZHTrAcn^=A_WE`0U{|VO`=rAn= zn-?;^VJ8~_YZ^f$SSr98>BSmGunwW!tC1xIom`D7R;%F-OpD7KQ{0BS-R$DdH1+Q%dpG6o}dZmGkK0rj%+^7cM6b z$r?_df|9le9HN-rZo0}OpP?9hpfLrKYUp4q70m9Y6i-s!m?CIh?1a$v)s|rng&c6m zO#>6O$xmE@dRGg7bg{#f>XZW%Q*}x$Y#<1A>I#*>VuK6(T~^o8+vaqn>Y4t6`g4$HV-CVxx*eT?N}p|CIs(Usir};eby9|lWG}^R;Ci9 z!@Y2RQe&@gZ0glQ%qrhU)T*l72MglztA<%jMh5P4$S@@gyKg`%tln?2e}k;WR*&jO zf$BlOEE<}++nfd~aBch6G?5~8HSVu!vGdP%KWDmy*3`nuwsmWoJk(fePJ@g3Am;=* zz&TI$Z8o*2u@)cL2OD8`NeVeG0U8Tf(DJP8zLa0}_8+DOdMS#?EJM_C%b}+612Jki ziH3%aw;4z%3n#XlVQ(_33t!34RmA5!G`bHR0R#E zg9SgZGgSj2N2Kfl(q`d}A6R6}#@+)Q#I9p-jAP*}N8;G)5HyC7s1`zwcEhn`In0m5 z(vHLY!&rLjFh2@QZy)AI6I91gAVHBoiFmFZ;EdLIfDQf0=imz8;*hB-b zw^Qd0{YXVWtPmW7XdhwqIf#-y8Rp1JcZNC2gZbXa&PyJAJ-jGoPO|RHF1X$u?xL+! z;l&QUtb%rNmmXcuFzkrT4O3%7ZkV<|AxZ8<%1q_G;N{IQ5?-=lX8Z8yHFcLlW<>0Qe9Vm%Pqt3UJ5TGw-;FaOY5ID^(?$iA0qGEA$G zdM%l3S*a%2^%8n=t^FCaC9_Z?yH=5MmP$1;&OMT(qdL)D{7r@_1inN?@!5>MKW6Ox zDP!-I43ar)$xQa37uRGMifc1+(K6%OYSkW?=$nj)K=jgDiy!*uTJ*@eYE>Ip*_KT2 zyAbeAKcZ1trhoYYCj4C^Xz$gGWGe+H@MUXrVJ{Y6$-w8E;q{psbeG@jWFp|Q7cL&+ zIGN#+4P4Cz9jW^mxGaN#tJ~o12*{qwwf5D+vbo6{FP+Vh$u04gwOR}_m7=%Sf?Y;x zj35aX@0cS+y?}mV)kbe$<&PQQg%t7#$agi^>QfPU@uv*=DY)~DM4{{M{*-~OzFyc^ zD?I@7^TLK&nR~Fi9yNh;gvm^c3pgIPF+xf5@c1A7uAGJ=(F(LPIL%SXX=%cw4_#jp5%4qG@lJe(x>4 zkXRi!eg6fvUC65r9B-Wd=HpbonEmDy_@>@`f~vRG!=Egk$%geCZ}UM}28cvTZ`%ZW zI?J%PCIfzMfuA@@4+TBsMjRM~ShTE8;qr&GGkBkDUFjjbo=7z-8*mKJ$}Sa=x0Ra= zzo~iPRwE^v`l^)ZxL31!Yo;ij#z*$C!abE$VKWgz8m9D+uZMbesSN=nm&{`$jMyS` zlS$#Q`jEov;f@&EJ6Y4I^U3$~lM5{mKa)Ldc>ade&l5Dxp^U5z>gOV}%P=L)c0}C4 zIuv#AUp0YG)4>b*tytX1n~B4Xd>soT&je01rffv7ZUnW6TAM#g*(ioU6OOnWL?b`= zxb!#7|DB*mZG#JpFXu#(|XJhW^OtUe67F%{`*K6{dFToWlP!+nmUjDxjj W0!80lA%4CGeQ(fr6#IV&Ec;)O@vIU6 diff --git a/auxmem.shr.s b/auxmem.shr.s index 573e14f..03afd14 100644 --- a/auxmem.shr.s +++ b/auxmem.shr.s @@ -8,10 +8,73 @@ SCB320 EQU $00 ; SCB for 320 mode SCB640 EQU $80 ; SCB for 640 mode +* Colours in the following order. +* For 16 colour modes ... +* BLACK, RED, GREEN, YELLOW, BLUE, MAGENTA, CYAN, WHITE, ... +* For 4 colour modes ... +* BLACK, RED, YELLOW, WHITE + +PALETTE320 DB $00, $00 ; BLACK + DB $00, $08 ; RED + DB $80, $00 ; GREEN + DB $80, $08 ; YELLOW + DB $08, $00 ; BLUE + DB $08, $08 ; MAGENTA + DB $88, $00 ; CYAN + DB $80, $08 ; YELLOW + DB $00, $00 ; BLACK + DB $00, $08 ; RED + DB $80, $00 ; GREEN + DB $80, $08 ; YELLOW + DB $08, $00 ; BLUE + DB $08, $08 ; MAGENTA + DB $88, $00 ; CYAN + DB $80, $08 ; YELLOW + DB $88, $08 ; WHITE + +PALETTE640 DB $00, $00 ; BLACK + DB $00, $08 ; RED + DB $80, $08 ; YELLOW + DB $88, $08 ; WHITE + DB $00, $00 ; BLACK + DB $00, $08 ; RED + DB $80, $08 ; YELLOW + DB $88, $08 ; WHITE + DB $00, $00 ; BLACK + DB $00, $08 ; RED + DB $80, $08 ; YELLOW + DB $88, $08 ; WHITE + DB $00, $00 ; BLACK + DB $00, $08 ; RED + DB $80, $08 ; YELLOW + DB $88, $08 ; WHITE + * Enable SHR mode -SHRVDU22 JSR VDU12 ; Clear text and HGR screen +SHRVDU22 JSR VDU12 ; Clear text and SHR screen LDA #$80 ; Most significant bit TSB NEWVIDEO ; Enable SHR mode + LDA #$E1 ; SHR memory bank + STA VDUBANK + LDA VDUPIXELS ; Pixels per byte + CMP #$02 ; 2 is 320-mode (MODE 1) + BNE :MODE0 + LDA SCB320 ; SCB for 320-mode + LDY #00 ; Palette offset + BRA :S1 +:MODE0 LDA SCB640 ; SCB for 640-mode + LDY #32 ; Palette offset +:S1 LDX #$00 +:L1 STAL $E19D00,X ; SCBs begin at $9D00 in $E1 + INX + CPX #200 ; 200 lines so 200 SCBs + BNE :L1 + LDX #$00 +:L2 LDA PALETTE320,Y ; Offset n Y computed above + STAL $E119E00,X ; Palettes begin at $9E00 in $E1 + INX + INY + CPX #16 ; 16 colours in palette + BNE :L2 RTS @@ -41,7 +104,20 @@ SHRCLREOL * VDU16 (CLG) clears the whole SHR screen right now -SHRCLEAR +SHRCLEAR CLC ; 816 native mode + XCE + REP #$10 ; 16 bit index + MX %10 ; Tell Merlin + LDX #$0000 + LDA #$00 +:L1 STAL $E12000,X ; SHR screen @ E1:2000 + INX + CPX #$7D00 + BNE :L1 + SEP #$10 ; Back to 8 bit index + MX %11 ; Tell Merlin + SEC ; Back to 6502 emu mode + XCE RTS