From a9086a33551b0c0764b2d86d152ff1f1f9775eae Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Sun, 5 Sep 2021 15:15:45 -0400 Subject: [PATCH] Finished *FREE. --- applecorn.po | Bin 819200 -> 819200 bytes auxmem.hostfs.s | 22 ++++++++++++++++++++-- mainmem.s | 4 ++++ 3 files changed, 24 insertions(+), 2 deletions(-) diff --git a/applecorn.po b/applecorn.po index 11cae02a466b089b21a90f72098f832c6287c426..70805a14f23f506c1ee37508608070f5784700a6 100644 GIT binary patch delta 4654 zcmaJ@3tUr2*1wMoua-xx57f2})+k^YkhU(})<+cFP~!{Kb-Vj@^KEsPs@-pE{cWq= zmDm+lg^O6KQ(JK_sZy_UF@TCMN_c64K|(-$lt3U5QWXhG>)Y(y1gq`t*WAmUIcNUo zoSAd}GlNzeuhquu^JGj&Xx&re>AQYlKdoARfg5AwqDrhw<3`jQ$+bw>H*Wkfzs z0qP4sB8P_NrGw|E>Od%*W^C42I8if2Gm4< zpF9X6{&10=O1<#TV>j~2!$KGe%~K}NM=1;D%}bguIg&LofcnfA-5c%s$x|qXic&6I zs7{)_AZ0!YMSgy*%t&fLnslf)B~U(jWN6t3eojD-!yAXOD=|Nvg=Jw(I9(btzKj06 zjAm?f=?x|-y}7Q2Ixy8!yQvY3!jOVa$%gmubfDi~K$R;tNPY?$U(`^wT4Bd-oN7wO=@Jut+REq%SEgJACA5 zIT^l67tW!hWyemOJVm7Ybm1C0U_?cwp{ly3w(j&9qpAL^x#3)+rOArvy{w1$zgGA+ zI_}xliUZ|NWOa!O(u;Z@6H=K1*Z2z&HNEMd}* zuw~_!KL+Q<6z&0x%wlbBk*0gJ0F3gVbVZRnQb$!ZLU#b{d*IT3r}c+951{RyM*KVC zb|ImdsNroqeLt8ojA%*_98d^<%y?ah&6p~2*N=BT&@Y4*s zzP&;MUOjpc9HyUl=Jc_;-kj^~hY5;h9`*2=fYlG#;w%GsbsTOg0;7i=L&eh>3l!rj zxg!Wtm34>l{UT62GRwuu3NvHC1BP8$*dT%r{ULV<4zQUxhy1va+{GraTyXm6A3lkKhf?jX!lkm=2mjqNZek@aY+26 zlFLD2UM05;L5D&g;PWCdIPNeA#~u+pJ;@yd6-WvYj-X6(`Kjb`2NIOrPN|2b$yDdz zZ;QceGf7~-M}fI@zS!J)UwC4=MY8|7Dd6RYK-}n!DEngxnJzidO8$)-kUmuW2Nn;3 zmt|6IaL*wS?_VH|)${lTJ%|qxkU(=qlAVa42fw8U@|ZJ-tClcLr;+|8(l%Bh{bbRI z68dTo*Evx%p}tzgbxjoOQC}U_>%mO_G6~;Mif*otmOtboFABtH9@^XO&u?Fp+#9Fk27VB_!33xljo0;_pUQy`Z z^YIVfR^V6#_+Aw=iQ`xIn$T2W3nb7QXv0lrclBWl5y5WO-&OEe!~^Df9`V z1#t#eY{JS?@T&h1aq-4dFd^g#Sg>ftWu+j3&cf$QLCl*!V$p6@G)dggRZcXpq;z5x z`?IxE=+*EF{#_Y}3L*0#)u5zmFr0|<%D^j2i;(z6G${>P-Yl}b+2Qb+8fonUDV9PX zp#|4f(b`Q3Vsdm}5#o}g3A#^2+#Atar|_0a8zEtRyYhcj+Gih0_=UqDZt*(gOUioW z%S$e+4xa2w4OdIDgE%txI(Bz8yZbb|yN2C;h852t)66I~fHSi}kwDZ?mo*tnv6oAi>(+OA&Iu(Nk;&D zaj4MRVCWYk$fX?-OSXel_g5sNU5FexD~|yA50%?_1Sr$xG4R(zuSl`(WD}FSP^4K? ztRx!F>oe=TVujC z2~Qp#`bbi&N{LnmLT|S6^w;<|M?qBlk{`1Tsh%KpGvcybVhiH3T~ekwmz3rly#FXr zq@P6^vJ(uOyp8cgZ)4VboBGeZ&Ds6l=FCZ?DVE2&ht*feW647N>+Q5RI` z$aRw6=dSJ{LP996rI59SVQmmbF2Ug5r@+ZdDYj0|b$(l#-j2WkvgW<2r zV|COuq6w;?*>SQ?Z2tbuk19``ULI-~Uy=EJWsPs{__ zVu~o%Xl}!&%E6TMZbDj=F&o-qG(tDopNQNF5|P;26c zWxT#=nz+$G-qP2HE(n=)dAOdqJn-scAd!~il4IaOpyW4!_{hTL$HDv;BV73uQy+E< zF71Y^nxN4l_`~ZS*y{;bcRGYiyaj4-X8znZmh7NRb{slo#lU}Sk+1t^ln*HnUA!C9{Dxkke<%lB#PVK@G(0eqp* zIMX!h#EWo?U6;yVfYt48H{4*)xz1$wGelW(!)S`o-`NaT+2IB}tqQzNd=*rI>66wv z(_r^E0;MUY>CcxH=92{%?jZ{nx4EM1Cc7m-aPSw&#Qmzl9C{m`R}J=!*yP+?Z@Hxr zpqec2({IRW7zrz}e+~G(ztIKR~B+<CXbJK{Y$m1t5)AGjbRbMAaH_~?##QpU ztJ-%}wN(}5W(lj(G~YWd%=f(oPK}pZreL?sNcg~e;7YqG+I@#8ZkXc#=Dtq0au_j? zSgGdQ2`eo@8iH}(6&OpPAcGGb?tXz)Nj{^}VLQ$;0)^7vp=F6hMnBn`?u-Gr-0mI@ z?Hw6zsTU;m2FT~%?tT4m(DRpl(rjUXT`!Qy2H5d!BZ!U)u;+$Eb(oa7J*Hpj zW#3LUhHKzRyFQ-mQGv>*nS6%HXBncxb4_48osa))0xACL_PEg%>UMm_1jdbC>lFR8 zalvE<3xT{AYMi9EUIFUf*9Z9GiPp=2#rmVE< z?h_%>GE7H>SKMa)exJ#|&$zZmu@-3o?q_s^WY`_#HF2}*e4JAcBGUJFu1|o~o`5vC z$qDN`dT4^VL8f%QA300Z`c9SbI_XG*!gQa;i&Xb|td@h0uN)$I4wA>%_0#7}bA9t; zU901QqtVgkkUNL<7#wwudh(314mQo!c}*{SznzW;|HaW`CsMDW`H-Wl>ov!0?~~}* z=-7+jI|~wDYVXXrcih&Qad%(8R4P5-sSDGB7 z(-a-pbr#HEMmTVk8BBUE&tZv!iyXXcyIZsG?%sRFeQaia@pU$Hk8UwuZ6=p{9?mg? zmGoVF#|*}gj^VrQ{%)BtmG36CBGe!`nj!V^%MBoIn7TWEm2^Do3^_TBqN58|;J-G2 z-!Vx&xTOKWr##*3H-C0FL8Bu7vw9l9_$lkV4}2Eq$5XisKUQO>b(B6_7cEd%e|hza zJ47(>_uvwTPO;z3=nzj4cAdg0=fL~qG{18~ z^$&mN7o>KYcjCwansdXMebXsGZotV0=sXGH4dbfF~q-)n>n zzE`cm+brPYlyKf9G5U5dAvJl`BV56CR%@g61W(Caz;&zlR_{w4A9ww!YgYH#Zo0L- zWk*X&%j_0w^FJ@Z2$%YUUbWJy-q5Rl=v0UHs%Lep*W$OEKn%FmJHquv`Hm(K#$>jF Y%vQh5R{zY_fXvpw%+{d7)~62q8wZBUdjJ3c delta 4125 zcmaJ^3s_Xg**=#Y7ElD#7*>rLjHtjeOYjm(P(i>h$qEXZ5@XX%oBlts(I&Njqvpbz zilNa%h*YOG&}UtR<|H0mP(f6}A_BWW;IMchg@uKcT~co+Xia1E-_F^^#^&jhotZN; z-@M;tzVDlvXAOn~gCW6Os$iZDDc!G#lDo5ts5MWA%%fZs6&3q<07Gd~*XOOySdFyV zx$9QtqFlu`>IrH=8d?1}Og)*Q;wE63S()olE=4ImqLkEQ!9G~&lVJ8F6E%Yxj`q*< z$ov!qsE-2t^8zqCp@C9S)6sWg=f*~cGL(8k>~rbsWvP_n5;dKAI?B)XIT2&00X1Lg zpWgbrCRg96B89XX%a)B)v1|TC?|XM>WnN|kV0et^(Vh}-(DY!eUf6R=+rf9 zbQx*cIax#%`2}2LW>5!Yqp2w}3`WH!h8%w*zzygXc;{4h6E-eq;qfpgg07h|cjP$D z4AM2@OmuMP`95RQ#lCZ$9r*4ndU<$zuie<%ZEtSr>g0^}3%y)j>ukCrqH-zCDE?el z{+G&RK$nIw_bQX<$;_d{m|jIsBhs$Ym0CJRQCENZ44K`dD}PG|GG{--^jq`{tT2Il zgy&l2J9PZCih_4GG~+G(^_)2bBUYMeSZQRL-6CBpGPGDn zn^-Ta=;^(1k-+X%{*?`4F7;vB%q}AHjsuS}N*qwlB0Sln=%}n=gAYs%SW&lPC1|2| zpJgl0Dt6bVgMpN~#f6}ACQ*=AX#|X-yT{%ui>o~h9#t+FRF}*!Q4QTt3WV41j~V`9 zP{QK-(DAKacpY&Z;;RT5Uc<{j0Z&dPlnMk#)%=FSWL{IajNgEFegfK*n^D8TNNx+x z{uER*7cOD?D40f6T&)$r3HmWye4RCUif^#n64iNL-Spf+T0oBx_ zsA@SQLLt79;}N79TRz73szB9@Z!FHupCUrmSfjrH$P05xlH62l}P(434h_5!ibSOkQv$4nia=n2g{*zuO zpUS;2kM_vMoO=&{X$DWH5XAux6my&Xy16ZW^@R0p*`yyb0l!=g;#L2L_Wn*rZj}Z6 zR+ex54KjxcZ(yMsELO6y&juuK#KCOGXC>Q{59cM)gpmm zxjH1UEO!bC3YM#vm%C2-mJ@u-Hi~2sQE?I(0{kkfXx6-Jo3O`1Di>rC>d<~lIED7p zLOtGl9Q-23=b0@C4yw(s`!fz+Q#6wK-8Zk2nh}wBXbe;77`dRK+__fO%6Mf`tgJ`1lDBNhjlrCqUeW z|Hz^;Z47bT4@FL}uq1Rs6Z?a)Q=4^g5N|vQqNfl$NHi!p8Vq*`m!1Smo--ohnHUlp zvb~jLdub6cyjk9RISH299BBYIv@wQVi9%+~btB?3V+i{CA;disV{r2?Y7LPx)_)Fv zsx?e|FvD|dLHxSS#0j!fwjjS>N?2V;tlu@>OLx%9b^=Wo@i*4%t$o z*+8z74JN;ZW+o^wq?096p&e;A2{vr11y3fB2rZR$`LpOGBC+JGED0uOV}*LewX;q%eJYCg_K^<{)4_;6Q;1d&pHiW>tYF;Iu2n{h(j{6dsi9_U)*;EIj{vEjkbs)7s z6$hW4r~<`GnKq_mjX<+DjhIOm3_l{m z`WeGy#&-BWad0t$@5Dvu6Cb`j%nM1dj>{fALDHLTY^}l1p90bIGygN&=4u~G>NdnB zj|o=9EyE{H0d+wm(v$4BZ1Z*2SAAXQ5ntE7*VlEF`MS1aNMEJWNK@MzR2pKuvfW9G zw+(EuN~4e1M1D?s(}N2U2`iZB&`)O0zGv=UriaqFMtOluzV)aK=8WVMmECe^u?7^9uF{|OLy+n(V?)0JO5HzfeE171Y zrJ#B*LyTbz0elv$iL+V_{d!xHIlvZQ!X)Y=^xC~*+);|Pc8YO6>_LhxGK}Yw?gr6B z8S!8}m{rh6avK$x6j3YVH9CFUVIje&T1N+=Z#m{ril?;m_?v0Vc%vNY~hj;HjU!N4d4WG zZ?x|34d5p-JAx?_!?OP;>d1ilVQ9{aGwYMCnD$=?C@<9E-2kJRDre7!Ec z4<!2h-jkEX$v-c)Lh}Gj(Tcr7$A~@R#H8`^w{DR05n!$1q<<2KEq-HRE zO3GNY)8-Tdd6%(|m^$@5SVgDc=g)(RN0zvY+QqN+Jk*g5W%QG4av^*TPip}`Q||BQ zDLu@<+gk`+i!CkS1=W5T5lnTheCcKQ@+-fg^ws0GBvA>qcyTM(@c8$atCGi#E*pb6 zZW!g(!z6sK6)d2W@Vqv#D59gkoT7^AAGGvyL3BRp@UPo|Ci7Omwqd+q8<>(X zkTQ@n@Y2B6f!~u>I$#|5bl?mr;(%jdd_d_4b68EM*V!`fl*Zuc&ai84}$-0_;V1>?~}VgT$Pw2BgO8Ir=uIP6>U@z=0E zJ;6ynqE!s`K^(SJ^B3^5K{*Puorm07vRZhReC}#1u4>=c21_i-gna!Sx5(V_9FiSO z(!mxYDXb)-MlYP@w8co@5W=`E;VtO~Iig{NLC&Q6MhD3xF<4J9(p{brgLnlz=8|sm ztX7s8T>wA8?slL~{cy;@5{|-~4-mXT^O-ysCkGBSL}GPW_{&ZZS@8VujzoCQ8<-E5xM7Re3~jI^*j8W;AQtFe8rJg3 zWFRl{%l#A|Qs?p7#f`2!*NdcVBxU=^_e)!Ed+&F&_gqCTgNt)r8g0Jvy6bnYH%Xak zzul9T>to&H`|fj9{TD&s36V#i_v&4xBiBZ5`^rB?5?t$X=jR}O(FenY-_{oo7v8P7 zDaXtVj8wIh2unsbEsV)OrT-hOa#cz;I=|#5Y;>8t3-i?_IIRn;U|L7;t}d`3Al)U# zLk3rOfk()#(AGs>>~#EP7uZC9ir006xvD{<%c+zUyvOJw!5~RNoFd6%{6RN}pL*X_ z{ww)1HCc*_8Fk4B+=6?$!A9oJ6|4~foMgVTqv%g}6ZKkX#v4SE46*oa5k!UtxJ>Gg zCB}q|6iJ@VSP;Qha-ZV4Jzy)n86W5YYk#@K{fX~3i4KJ;-TBd>w%`(F#4Asci0EI5 zCpTR2VfWr6ZXR+bw=vMHesC|%%W%Gd^>qCW@Et)=BY|XUSs)!Q&unha(3b`;?7xt6A?<>__r1%| z?$Isu=u+)EjYoIPt+Tjww_Lg?{8=xE10Q=@J-Rxn7lbk7@7fE;3;(z+{=IFA0MeAC T1(Fs-S}b5B+7rpr}>+&yl diff --git a/auxmem.hostfs.s b/auxmem.hostfs.s index a8eab17..7e074fd 100644 --- a/auxmem.hostfs.s +++ b/auxmem.hostfs.s @@ -637,12 +637,30 @@ FREERET DB $CE ; Bad directory ASC 'Bad dir' BRK -:NOERR LDX AUXBLK ; Blocks used +:NOERR SEC + LDA AUXBLK+2 ; LSB of total blks + SBC AUXBLK ; LSB of blocks used + TAX + LDA AUXBLK+3 ; MSB of total blks + SBC AUXBLK+1 ; MSB of blocks used + TAY + JSR PRDECXY ; Print in decimal + LDX #<:FREEM + LDY #>:FREEM + JSR OUTSTR + JSR FORCENL + LDX AUXBLK+0 ; Blocks used LDY AUXBLK+1 JSR PRDECXY ; Print in decimal + LDX #<:USEDM + LDY #>:USEDM + JSR OUTSTR JSR FORCENL RTS - +:FREEM ASC ' 512-byte Blocks Free' + DB $00 +:USEDM ASC ' 512-byte Blocks Used' + DB $00 * Parse filename pointed to by XY * Write filename to MOSFILE in main memory diff --git a/mainmem.s b/mainmem.s index aa958f6..062303e 100644 --- a/mainmem.s +++ b/mainmem.s @@ -1033,6 +1033,10 @@ DRVINFO >>> ENTMAIN STA AUXBLK LDA GINFOPL+9 ; Blks used MSB STA AUXBLK+1 + LDA GINFOPL+5 ; Tot blks LSB + STA AUXBLK+2 + LDA GINFOPL+6 ; Tot blks MSB + STA AUXBLK+3 >>> MAINZP ; ALt ZP off, ROM back in PLA :EXIT >>> XF2AUX,FREERET