From dc2a198ff183b628ddc829650b67e2b8c4df64b1 Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Fri, 23 Sep 2022 22:55:17 -0400 Subject: [PATCH] Added ZipChip support to *SLOW and *FAST. --- applecorn.po | Bin 819200 -> 819200 bytes auxmem.oscli.s | 24 +++++++++++++++++++++++- 2 files changed, 23 insertions(+), 1 deletion(-) diff --git a/applecorn.po b/applecorn.po index aee429c8fa12d2447030fc5359b68c9f90f29363..7e0a08b585868542ac830a1860d3a78405106aa8 100644 GIT binary patch delta 3946 zcmZu!4_Fgdwx5|`fQ!_yT0vC2w1`A$1=ppZg8Yk3bTAZ9q3_#ntnPlJGi?%aRp z{O-AT&b@cexo0?T8OJTFE)9@l-uha8i78!4;N0J=>Mj<=vi=b_jl3l0XGD9{F*WD#( zHce*}+d>phX3R%=I=ilXKKhWRU$0A9faEl7AzLs?kj9A9bd&cnN~9;rb&R&sb4fxu z+Cx7eXQI(l^z(J?(MTzwPZ7Kj#nA?$T8K6PcWfa_n|i_eS!rXYs6zefF;irrK7GtI zw@{xkM$%(Zq%=&N{vOf9!kBDwHWp<bCpE|pKyrSVzhaw1w=T<$HWm`2${Q<7QE=`)*g z+bDk3gKOGwL^B_VJwEL8RgOml;ZH_O-)4A9_dU<)CJn*(KfQauhd#)0Jk3&ERmFYf zfy!}^ilv%b=#o-ho#+NY1GSeENmzhQI zv5K>V34zc--d>I{eT|rwqlE$14t$N=twtAN#0CC^Jd1k>vPTeO=f+8SwG#(&bS4te3FEe^iFa=32h86 z`esTzmTWnVqJy*l$;yfTG>VF;Z#6QtE$`lHl#OeZxW1K}Db_#3B5^&r{2aQtD*QI9 zyv=@k+bHF!@_IP>37*5lr_!)ms=Az%Lk!xmv<@lcqB$fwqzF z&wzz|Ny1Xl67oVViligSwpz3-@SP4$f?w$%`%}<-Su-O@@Uxw;-6}3Yf>TIKEqaq4 zAl)g5kioMkl9aAMzY6}W>&WRY{<8iIX|v*+44U*V^7=}Y75Z71UV6xMx=SB;$aIFtR-w7%-bxhxuXxh`gYs9Q z7XUI{Vf3fFOjjAuqh=M-qs|wV@VQ9({# zKylM2yDdJ@rK_9ub`$#rw1AvQLpz~&-f9#@E6B>#D6zQ0p)`b@_b>;|C9+4_-4mKD zWwt7hd*^OeHdIq&cAjdZf@{3HCQqT@9^B2y%2MR#b0zl*R0XVpd)kq$$S=rK7jc94 zvedan+`7A2tU6!8#W;LDHm2uSJuy&r_t^Z;Za?+C-4a?oTX%I|hO{lY0+<>Dumr5@((5eD!YZ-XVedb|V^ z7xe7AvG=A{^*A9IZ|_+lNZ8vp-lxCM0Eb`e;VF&LV_?{BA5SN5yU(bk5r2S3cNO+> z@*=|V@S-aMNS&hT4+_B{UE{}eU-F^41_M=d&0;SL;wKC};3$%@)J}wSw60ibkGYy4 zWozx=I}FiA2~XisJHG_nlOY_t?ReadYwaUD1HUJgv|N}`UQQAe4T-w z{-w(<1YUC30d8oNjj&34-lj}8n`W??GD=`fvry7#eW>9v3(iyF5a!|6$zT706v41; z=#9jJa2joq(0Dxo7;V;T}FI zoJt!zxq560*<-lJo)q?3_BQISW0TLg%`dUFL28L@jJ z%2rE_*AgnsZjkpF1G*h{Yv3gpF=wH*@cxi&loG9USVMTqK;hIoM>a7U>Q4R}+yAn8 z*9z?a(kNU@xNH;^#yfWD1I(qAL_f`3ct8X2rvTGDxsi?Lg?Bp2DH`q+t#U0q_@+Z2 zL~HR)LMzbHLb_LZiRx7brRVl0_P^ZwYVRIs4?;QCYwEq!+th38^+1{I4e6WR7u&b8 zkL@e!+upaQ?_l4@z@P22^x67^KBhkr(ky?S*dN=USa+8R6z)In zRIOj5J^+YfeMXMr?c+{XossQZJ&>QVQQ=D+$X2k50>!?Xft+<c~kIM zmI^YE7yUr0p&$H!6=^_3nBW;}Fdu-wwF)D=L@7=wFUGSyRf3(G%-p;cZ~5b^uWsJH zl_E__6qzyI1@}O$OE&`Xf}k74WiDYBp6=2KB85b16x6j=e>_?#RE*&Jz8w{!{&=~o zng{KdyT~FHS}b4gDtkiSW63D%vpioNFp$&`p~0E1>SYkIz}-bN~h zNVy6IlH}!CJwcAlTzz zAWFo29`nN`)|3_l$+lXP@l_xG(pT*e73&#*^XYt1Q~_*0X7>c24(1HE z+42)Og#4`@&7@PwyY(o(IQ0${rr5b<^N!zAKOgejpN714;>g3nBaa4gNO!eDX?i#) z546rT0Z$JB12ycB!)FZSaryXQqjkdbaL_98JQ~yj3%xFXw>`)z!FZ^`m#~aG3j}zu z)H~o?NO}W`1M){Ds2`sx&+){N7C%8s8qhP$_#mlkKvCI0TiKH*H!;FA|74&r2NUVR zW$m62;UGUOy0D)wOg6PJGRJ~4igDnu{y)q-rT?`V&mPwB+`J_7k<4b1o$9gv(DS1H zMe~nY!&d;Ud8*mzcDM&1IU!B^m&COEQTPdcMc5{+7iM|>EX*1C&P{uy9;woEsg-NB z`3Hu0MA2631M5#i{ylZMW61rqyV(7Ae=2c*?uHxEf-;lm59=PEpEso$Mcpaz_y}0q`UXd zzB{RRzO-@Pf0w}7u$&j}YIeGd-RKf&$jt)VB(NR<=%jKldvuf?YGzwUS+sDJO&Vo$ iJnUO!lNCKPZKwC3ccN~;6@t#n?*i~XFRJv0l>RTZ@NAd> delta 4793 zcmaht4OkRMmeV~j45jFBil9*}5>yaS;${v0%g>lW8zF#7a=AE4lACNc(f#hs8aLn3 zXT%uRCU|GQQX}p-7d)CTLxvZ{;zwFROohU%9{Xk5+h0-L(S* z&7r8Bq;C-lCo>lyj@nsUx&VDhQN^{Z7NS^+xr_r)bx^*7(J;9_rn54JE@f< zu@t>SX-HxeXt)xErct|VJED+IN!bWqgkq@kBz+Ou2H2k#q4oZuw$4tNFh}Nb%O=e8 z^0?&_=Ew55#0j!-F`B1}mz3Wi`o+*^C#hMCQs6bY7_Ct4kv$<#EA~WWuf5R})b>6;fBYmQN{M$0ro7=TphWC(-7Dqux>l-K4o= zUTKYGxs+ync^tps!JoC^h-N+rdwh7rcWyF5jZcjiAEkLk;XR%$yl)J~FMAK&10Fmv zJjE#3in3d}qH~iV7q4P9Dy(EH#K3d6nlx@hR|Qa~iu8P}u^FEhnGv6;G$Fm>PV!!I zq!P7Ln7sH2(y#04G`5^?x!Cei%eO6uMMc}fwk>VXw`tn{&}MGA-12nC%N=ib7&}&X zeBM&sR^K_lGpX}zM@Gv?#}l3JwjC!weS)5*4w7G4P|{MWjmJW~&aAL%7NxT|MvV3) z&b7@FA~=mzBL0-l+Cs%3V34CvAspY(S`^);2~qFo0<5Hk3$(_tAtiw_dQ3(Q@eQ;l zn(67p4W!?K{%hskcJm3EE2r^}cD=nGJ0c`XMcZnak;GCul)~Bfozj zOPZ_D?x>`(*qI{D+Y8%x3OBXzJGn1t?n|0Ca$nJSO$RoSEh|w>@Q!wAP$fP{-d>63 z7bJCXSypa`mCLnq)2&QsJ8o$8oT8)K61DLQt(vIHa=K`9Id8NC9BW~xJ!HG{<|#UH zke$UFA0jqh1>)GBPto!i%)#q=Ny$@wC6-zI02t?&|4TfQLuG>>rpbz%+4FzH@GECc z<_~Ed)_?DJV+DEPGZYoPGmXWPz>KL|3UVQ% z`f{>WJ?vve<&R*>mW_bh2EDAUz^X}>)IBCS zT-foTM{NsvppKm@x%WtxJkllh)1q=o&(ULCKazJ{T9~S6whM! zb(7)=czdp!1v)lJ$9+r7Gy`X&86aM!ZB~ntaTDw3D3S7z@y{VIHIvX)D2`~W(L8D~ z(N{x;In&81@$borYV^dk1?7B$B>3<^mdr5Rko|Fg`1XL*2+!KmO@0tRVXrC zWl&0sXV=2$1Cgs0?kwY=mf(U$0Z9)d&!0`V3_5pC@{{TnJKel3pllGgx)V5 zxZClBnwJ2E_hO%~qP5e%wEb9PWQyi`IqMy3LnpuBqExM{`$5)mp@%uIF`N_k36*f;Pz^gakvM3Kor2G*lFk(97PR&aEBUbTV?$*ZQg8F|$-H#1LG zMV&`^Pt`jNyaKEM10r6fY{-&v*m~&Fr`8H1Rb?&5dWSL8Z-n*a*Z*V0)(xm52{ z=$9V)m=$a@fQnRIT6#8X9!O1t#t)`tr*GG?Lj#+#wOTgxMsjMZHYbPuj~lt^xr~-w z??}_;bY*oPT{>sgi*xLOmf6+-i>A!6F0B8#dHw#D%-M+IUaxmRP)%;{=Tl*LmwTZfnMcpv_)AakKh_7a1Q_Z(07LPpAv)dd;P0LC3CBf_i?vq zz;H=Fuh5%3Mw;pM@l?`pZ_(+hh~L1kunxjiR%iM~+VUClyRT4K0){ayB6N_~2>)bZ zJwH+S4Ifh2XjD|y+w3K3KFnx`jWP*G*@?IjZ7ImNN7p5)7{LyEr!mT;i*OJi_>y!gx z(1rVUkZEkvj4}E4>>Vjg8bxEP!lVQRR`E!aa7WK$22K)shd3V}cZlJp^HMm{$i);i zk35qCy8?tHU*?kErJ!UgpL~`AyLmowrJ%Ure22*`b;yw8w;ke_WL`euPMD}LCr-GR zO_W18cHJoYNTFZwlzWZx@0tCdIzmn^yIwt#y{`czZ%O^RRJ?60@wLW3jB@F5+*N|Qc7OHPWwjTha#rYArp%g zGOX0lGm%veKlMRI@8Pxla5jae3?52-Ddbj zG7VXVE(6{^!!>i zplG)yXK0T$j4+wWX}%XnbCS1feJ_lrX&G&<_OLLTu?14W5n(jd|Jszt-X6)!%KhWi z$g|thb6M@EPRnHZx|}J=Iq9kF@aPupbL`NlHdU9&PLAe2m!)OZKcsET$YS64p&%zK zGm~N8bZPUnscgAxQ*ur&JMPM1GIy}|T)vFV99A`|%go8$l*1}UeTRn+jhNueogGeG z{;W5)Ur^zFBaMOxUwoMu3b5uUX#9_+Qx9UIOl%a8EYfRBwp_<~Bd~fQDV!bF6#%=? z1`E3em2(pR(&EoWJMw*LS_~l7d{- zp?S%1PB;RzISa?&fG!q}<4>I8Y#iq-6eS2r&^VYYSUws*Czg%jTfV(zlKnWxY2m^8 z94A?lj+Rn6$T;|rK;qbB%X#IPA* zRkhRfGr+~0QFuX(Qw%lT!uuc?l7JJkw{wJN&v`$ZNN4@&UdrCM*H;0%W}QR-%SEP1 zbDQ~YglQF$U`b00+5xsP_ebHAbUiPb04XE-z!bj`k^yYyPnF~7UQ38gng*1A6B*fAFTSvo4S(^ za*OWUP%gF}Y`rG;oRZsC;YZ<@9)AmkOQb8EUG7l#>+XGWdDG3izaw-LN_l$P&BC9) zL^lhk%EqJ>VF`qd7k1kj?%%{LHGHA(!aoYpx&8H=`ODY4pP^2He9XOKTYXX+X9 zbrXtFeeD(&<9Eo-CX_JiYqz>ej1l}7#($fVPf~GLP{!OPMvpy64B!)u9#|T%@~k4i zN`lF;D`@TCWqV3rlP=#TYjH6hKf{gNN&giTKJ#E}q1z01!Huo>P7B=s_Gh42vg|4f zqBF-xMFyPzcV9&jVXUX(M54;5D4~sy>FtzBVF|-YXVh~V5;BGJL9j!ejpjW7W T*U+Koeh$Egz37~GTJe7aC)xgO diff --git a/auxmem.oscli.s b/auxmem.oscli.s index 2ba87b0..9f8afe5 100644 --- a/auxmem.oscli.s +++ b/auxmem.oscli.s @@ -760,6 +760,11 @@ FAST LDA #$80 ; Apple IIgs TSB $C036 STA GSSPEED STA $C05C ; Ultrawarp fast + JSR UNLOCKZIP ; ZipChip + STA $C05B ; Enable + LDA #$00 ; Full speed + STA $C05D + JSR LOCKZIP RTS * @@ -769,6 +774,24 @@ SLOW LDA #$80 ; Apple IIgs TRB $C036 STZ GSSPEED STA $C05D ; Ultrawarp slow + JSR UNLOCKZIP ; ZipChip + STA $C05B ; Enable + LDA #$D0 ; 1.0667MHz + STA $C05D + JSR LOCKZIP + RTS + +* Unlock ZipChip registers +UNLOCKZIP LDA #$5A + STA $C05A + STA $C05A + STA $C05A + STA $C05A + RTS + +* Lock ZipChip registers +LOCKZIP LDA #$A5 + STA $C05A RTS @@ -777,4 +800,3 @@ SLOW LDA #$80 ; Apple IIgs -