From f5a8a65e969a7d7d618338ec9be8e8eb0b952c4a Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Sun, 5 Sep 2021 14:00:31 -0400
Subject: [PATCH] Added support for *FREE (prints blks used atm)

---
 applecorn.po    | Bin 819200 -> 819200 bytes
 auxmem.hostfs.s |  31 ++++++++++++++++++++-
 auxmem.misc.s   |  71 +++++++++++++++++++++++++++++-------------------
 mainmem.s       |  57 ++++++++++++++++++++------------------
 4 files changed, 104 insertions(+), 55 deletions(-)

diff --git a/applecorn.po b/applecorn.po
index 051b2b5701c902e0625fe9a989073da127ad8fc9..11cae02a466b089b21a90f72098f832c6287c426 100644
GIT binary patch
delta 6191
zcma)A3tUvyy5A2LFD3DnfMyF5<hd~{<Crf*Y^VwGb$)cR?s!gisiWL7Z)u)ldlE8p
z6GonW>q2K7mE7v!U@3y4!+SRJ*a8Iz$YWpze)1R<&3wfD*6_4*Z@)Wx&t7YN>-)a-
zt^fB}dxqyjc|O#z(;-#s;Ke-emU_X#hcxD)#ud$;{}eSZg7OJ`-fb>rrl1ovk)eXa
zH^jai`7#$39krfYM^O&{O*v6dxZ2rLW6`W>I_hz%&40Yu0=Lw?Xcp0(f$U3EAfMMq
zl|JdnP=4yw;VUE85`FfMLp6;kU#Br8vjZ1SVJM2B94P;n!=s{!1;fk^b@W22ByNn?
zCvd`q)ELKEp~Fi&5%@F+`iIBFs3Rj*uZ<pB!tqDuaq1t$PU<nTJ?s-0=Jx#uj>o&{
zufM06YxL=xf1ZJ~Wfh7x`*jyO#NETx*4NR~iI1057Z+o5e{V001sI46Jm?ITbecWr
zP`9G$pXADtDuGNDi?cjw4pmkaS67SCp7er$vv;-SMfKYJAL|RsFKf@^f}Vc!^;`J%
zt<DYsW*UZPPGkw%vYKkGQe9MBSl<AQ%FXV+0o>h(J37tXy=^^1^CeZ)g~gTSg0{N0
zM#%omlm5UX)t%uoLTSd~o3!+AGZrHn2oEwA(i7=J*~|+1S2}wzg5K<q{j{1s#Uvab
zR-APfw|5WVJ8eC;JIN~b4dd53j@vss+kfu9-ksUoVY!vr*Ew*i@^)`~=gpS>+XJ@S
z11;TsEoaXdPPg>7nY+6CI$O;B9i766^)<Ei+T6+?D^3^$ZB1>%P#<<!UX+lpJ^UU1
zj*#=Uxk`SKkZTvpI%@~x@Dal~*n3I$ole}*ZS5YoCFGVXS#}5yA1NsTx#B`XIt?UH
zFtSELp*FX+xU%Mi;bg<G?%}CXHdwx<pfF*WFY6ILn3F5(1#LlLjg}}UmX2x9FZzFJ
zA7lF$<+b(spuDnJo10K1m&&!n`pNc($V#<b3Dkn(E3l{H`dT5^&NsC0?+kXl08+a^
zRW-p7Xn-6@*~6x)rmnisB-mxOMa6)D{ZXKlll{Q<NVpL3722W#?Gb|kSbwb07S)kH
z84>Wv5Ln3*{AO=P+p&%zyCs@VnVm{APbS6FN%73tcy^guG`@zO%>GL*yO<V_Om%!S
z=>nT^!67Nzbp?8g5w}MopX_f}A)lEuN{eer!hn;Z*HR*v7q^gc_P{3O#r~hOi#8+c
z#93pqg>5}OzfrJu8|s@JQq?}t2GQKzXX(fNeYkxr+fEJi5480RQ-tBX6>q$NJjLCg
zpeMzDY(l~F##VU5y5Yzut|zWjO!?x)*U+2<5+kL=c%}RViQ0mmk<7;BH3dUqIF$E8
z{vP4YvGWcW0bKDYD=7pQFJ9DE<ja*;72wP-AHY`?+;6d*#MM<5xV_DM9rh<^J(co&
zA(z->7pN~e4U3($*CCfZ=(*XYoxcoVOE(lTf`%}%HBx0N%4N}eGn&alSY$8WgTg$a
z2ri<}ev4+f&bt<r^0<!5tHL&C-21SLzs)=0<cGNVzDEBpCkULB31r+OE<J{xo&uDk
z9PSK~{*<^_3Q1fd{Yl(?43#=<<?_Dv7UHv4OK3Bz5|evboi(|S-4PZPJE)#k=)C1u
zHuG~M+`6T|os&w1?m3vcM4jX^mof_0&%Y!{91x0+i4RVqwAK30jc^MtMlF>?#R$mw
z_2MqU!Dt+`u_nHk5ZBm=-D5<-*{I)5?pVz?nY)c}$Ksqo{89kU_Y<|5$a~tzNQIx7
zn}Y6Pw?I`Kneq5{i4qbyi4~HF4f%Vxf7Ku}ww02bkibckguijXzmxEP$Vr95E-vjO
zF70DZpK?jyIsJi4!fsCg<t5?ooIdrE@Ck?Of(*`fJH+%%G&cdv=m^G`Bi2pi@ZDh0
zwwGx8jFZBJeWdp}v7_KqZWzA@1iyxH*p6&aMRe%=WJY1txju0!nO9zb%}F#d)N#a6
zVe62sLOd~-+eOU(h&+DRW{JWNe3EO$_*2O5ssH5mzfUCIBbv4o>rC4?!zBF&TxP9L
z>!8gk{jQjE3I!~&M~a?eK^DkJqSEjBs4w`CBU(o_-}SLMb+tMucXWfJ5CgMtkZ3IX
zO2h^f`dB&#_G`&%hd6vo)EJOY!g)?OOL(s2a)t%aR-NGtf%*$vSZ_8bwE61uxZZP|
z(C(|h$o1xMg4tK!=BqrWZ}(MP^k!ehK^o*4i5iA;0fDoA9Gqa>2%^NA@5o9O86)WT
zB=?HnWueE!m@G8W>nx{dSRtF!v#fBA(>t(24q>l6!-?rx$ivPQYG;xu$SyGX497bT
znVd<ph9x^jV_Toi9i;T<xP!DlM@-H_Ye;B-H)$KI-r|>b$PXZ}yDpx?*Mbc14&^59
z2}*I4)wV7CW{HA~j7ePLAyHeu<Pw)kF<Vo)#AW&-7S^5#(njL0d=4u?hA@2*Cm30M
zF(>4+dLx^-LMUSO`D|i@P|Ri?@@u7RDA>!ZjQ=??A`DM1>^tPge<7_>@sp+3R6Hxu
zDzd!Yy+b)QlsZ$WN0)Kamx$+2BX4GLmw4?o@*3U}qc|Q7SE>C2fcue5OH&2>ZnW;=
zz*dM>u=MxC)u1LAy%44^XM0Vo5EY=WV0&dYL3lAhZ(<V{Coa{?Y~qr{Wfr)|Rv^qM
z5@rm9S*9ug_U~p{0vAk|@i+Ka^)Cj<jKN!`6eoRDfWq(_K{aTpU;*K%01yQZkOe2K
z04GFv0BA#c@vR_(H;?*M0sNj7VZhs~<%mHq2J{}{z#iTry{_WDNAV;8PaPelpb@~w
z<1EJffE=IQ3N9orjRz+ZucokSx4<FC5^vgl3+_xSVAD$2v_dwml+_oA$v+@Z$1+a!
zwq6$XKcJ^W0jPy!y`hvk!$BYlCKe)5kXb#XPZ^tbnH@DqqBBcG_cO>l;mTNHggmi%
z4Obr;@@o~p4&WS)R^AQY3z9s^Fa&HRj(L`-6S$G!eS)8f#ixezG5NRoIJ)#O!}cKt
z(QpQZCU^$pmxga*M3l^=#OP^O4pE|Dg8u_7O@^G!Res&(E{E8Hc^^nwnN#Kt3(~<v
z&>aM43<<gu!7}`2Fn)%^9|wDA!bYnTY|%jS@OuLL50L2zmr72LREDF(uB+n;iL{*W
z7^x&gG72Qe<=`CExa2S8gvDKY6DKU`8auk;hIi~iG&lZ6GZc}cO9`9?TH_9TW7=YG
z%8%Havi<hva+<v<J;iA<Jwt3$%JMuz00yVBR$3Y0*<{ZUjmO*YX{FyDIdnPwGRA+>
zaW5~yGXz}b6_P$P1QNm}ZyA&B6;j6E(qsZ+)3r=FCH{IAP2J!bqN93%<eEpbUwegg
znfM#~L9doB2O?vbodYL8MsUhhBW-iZ8DwC2hIf>r@#$cbiEq@%iwutP{1hfk<DpUQ
zSAtJctf^cP-^@l&zfuqB#3e@HE5RD69_kwhZyY4Wpi<dsq~<{)OX1^a;ls4?e4aof
zZ!4oT(Uy&-JDwrPTEz+H&}zmrMBI1|J#f1Ttj_@}6bUIz+?<16oLg;8r<gMLpRrR1
z{_7QNQY0tbH;Ao+9_la6QiE2(lPzLR4(jmA@0>e0-&3BdcnI!BJ!N#iAH~a)ZB95}
zypoH~&=0adJ&$7PNs*0lnZ0aMdS)M+^sSB&`!1kB`bW_#4}~(ID>@H()8XPfc_^Ho
zKpG#hE)T`i(c-F$=y}>*{QE@|0;AIx(OkNNFiaPFfW$;LicefZ%V?|k+9ibPTJdAj
z42o@+(Bl)v7K{{)g#Htuhq^89I*?*APEqc}eTWZ=*oc-SF!d2DjZFQ@sI}y|HtLU&
z{PDU~Ya=6heO-7&MC7`4yrFJ=)OvL!w1aTK?1F=82fP<8l3Ck4*})bnBik(5#pWTq
z+NQ}9Z5z~Uuc}L~swB0x4$z9zs8`nGMXkDZFnsTt&4xo-llz$c{R|MZZmu%P-iBZH
z;#sXgPpaHgB@GG#jIK}1;O0SmuTG*g5*@Z>fKeZ5P*1+9*#U2U$#7UBW9&FsKOn%&
zed4%Ag#m9cWT`8B5>Jm~@fS7u$T!Nz5{C~qg4Rr${w6jf9l|2xTSz$l@-F{Yxm9tN
z%-VV|J4~Wf&bYtcFNFo~$9c(a9!lRhb*G5B>C;xewQciXw*SYror^H#d|X<d_?6Tp
z-pxnRzG8zE2%)2$fm0jsKO3}E)>r;ESy3iPD@jBpHK?ud6t@(hVBcpgd&`ucH4;|C
zOk^W~?1$eWjrX_}&k|2g7i$a9ADrzw08VjwA@ZY_hzAPMbeF7~@*>3vs~W|Ph3J_f
zs!!lSqQ{l0T(Rj5{Ki|`D9tDv_-`)Nv~Fko_Dwq$VQ{$^Ux?<=?-Ol40Mes!nTxwl
zF6qK+E!fAR0oRFTg~*qI_GTdpopHG_ouVOc;#4of2OAp&7dj3b#pjFAeATT+Ro=};
zmGkn@rsYj*n>IDQ*YpW|Q=7C+Cz{T~r8G4+-E4Adp42?2`Fzte%`Y@>Y>sc{o4;&M
zZ$1Uj{N}pm_U69q?~9N^Cj_;u-4MMes3kJ?v!Ir!=vAxt0VOgz{N>2~K`rDDs6kWf
zy6`_n4wkg8j8sRik4#$B_VP;*;CmOfMGQ5oV)<8FR>!RWT+^~<L)3cyXsaqx9m6kg
zT@k)6DuQ3#_EO|4@QjR5t>)LX4JKLkSap<^I%Jt2vL@lCe~aRX8?TuZ8(_)VCPUx-
zK0JnQ_j(QR+3ZA<;%aAUmctDV_~JE)JBai{78T4UUWdm$)zRy!eJWQQ3*jH9xnoh7
zJJv&XfI-mB=3s)j&<^66t#W|v7a-h}L;q&$gTm?#0wk>-YMUXg6ju%K*zQS;;vzZV
zQ)XMg#Hxr+{{;Mn_<bn~T7IB~XF(#dA8Mm5@dlpWYMX`+v?SU{&z1CUfN_f9$c+r!
z(SAHI_|8#cEzW5%NMLM^_@oI1`sK8wJm%jbho^MPFBlxU7n(dYxU|I(3Uw3S`e`Pe
zVbWO!mx|j=@c%$`izu4V8pnst^F8w(ihU-8eSIu?M}EE=q?P2N<ssLg_o3vXK4l&k
z?X&FpH4Cy3OvXN~ikrPK#Mxq{1od-mI>1-lEF&B`vsL#1H@5gGQ*@L^-d*OS2Tb|{
zrfZ)+tB~#3ChG=Z+U80mTHp;EEXoGCgjd==48sM3&T;rz3oafsU>T>l$_WNX$WHa9
zHkGs(I%HB>Iz+K^Lef?%8_lui*Wua-*Ut9eUZpi<HDk0-&3nzfSup?9S=jNe`F-;)
zxV)+duB=>V7yaD+{L-BHzbG10LV6W78gpuUPy2xVy4@aX-e4BLDMJwpzGzFlpOf5{
zc<*RGah(A{t+9pSl=ip%0^-hTuHsB{hE1m9Qu^^Fvu@BYE+|EGzYIr5i5PPk`FXE2
zEAug9);b)pX^!4Ia(|o`RLO8^a^lyQ;cwrSW-<FRdTYrE>z;?;F}VFCT21l$bd!P{
zd3Q(5^2coq{K7jfUDKLdooo)0Rci+KLM#D_HhW)utsI3+eP~YqD>-F##^husD5V|8
zcZ&ZkN3YU%#QWvQdxD|k!@d7?FAS==L7Z2C<}iUB;!70>yE~e7LC0VbPD?@9ZS53y
zRiJJ31F^3HZD(NkMkR`Id)9K?UWNQ8;T0A!zY<OTbMj%!{v#F%3p$I|SvMG_KWzEs
zs6{wz(I2t=l3@{!Sh@_?fw*&oxYJJD2fqPy7R3dkXMVEI;xZp1Veek|iyHXlNK>xV
z8&ntTKJU#Ah%>RF5=Ai3&aOgFd8M?!!%7L~OsLaCqniZ&xTBF4YOQKG@L#P$yVuED
zD~Wr_Is~M;#OenBELT<MYN<2Uv({s9bzED}?$LhB?9)O2bglMa?b_Oi+UlB5>u|MI
z?PpboSF1y;>QffA(W1U(R{L~_Aqom|JZ3Gis;$|Z6!bQeREv^o9g}LEl4_lkYF(0Q
KT{CJYocteXaSzo1

delta 5510
zcmaJ_3s@9amaYf4c_@fVLW@x^D%iXVB#Dw)l@LH1(*XoCqnjApJZ8`sqe*rqqq`rS
z8DZUMDOr=$n1yVojZBK9NCO&BgSIpz6hUp3PvqG^+l@wr5=o3CliqW?c_n^3RYl#p
z=bp!Z&OPT;(FQ}J!H{VFv(LdC)dSon4HXd+=DUz`P&guHo-aeiq-1C7(o?f?GPzs|
z4xePokFo~>+brLM@A*V9Fns9~kv+>J1mt-thKf&ldfij$PjT9;+_funxm=$&srl5?
zDIOuBn_3vNXa+;Yjk0BAW~?RJeLkRksW|~&-HXvfAs<np)ax-5V)J9drybmc9wJ8b
zk;ir^ig@l9wkd}4p)|Uzl(h65FJyxHB8{j>-w91~W0nAbsHajgG6_(RYrxh@FQNXp
zd4i3&b1+Kv(3DXVb7B@#Rew^IT^FW=q3;d`Gv8JYJs(>AvOgUYT)lBN{kppJ5t>mQ
z`k&&G5C6A{W=81JBzh`iG*#1S^w0DcE9n<~)MdEdd9(K(?p2hb!5?tN=M`o%zT<Qp
zyigXF&zF_qhJj({5bhnu^$pEu+VI`$!`HC&5*{AJ!_GUy_=fXd-(c_1)nBk$8_u=J
zgynkwz~GQ`G813sUBsTl+HCbcjNMP-`oV#}4|{cIPbl{q_j1`9uZ*#K$CJ3qagQ&X
zOtdw&O`c-x;SsVz=m!>5n8%h*;!4Lo&je^?Ugynsz!ibcpcBCT6U`N4ytuiZm_7XQ
z(V9`xgfyY`U;o~D2lw_3em6X!=tOhnxO|<J_<EwbYK-EM{~VxC_W4F1gwo3)tY=kI
z^FOwlVMjd2NqqFze%76pVd+HkF)s)4bIc_Oo-*XTbLTVc{NegAcJ>b4gdk0_4?B8a
zAVGM{yjNpF-MI#jg>gqbk^G!kkxt?2%Cb)?Kdt=qDEw7^S|v&q!loKJeC`+=T#GBr
z)yD~|x!i27FdzG6c#n=V);HX@WA}j>!!o`p<5-Ae<1xUt=KFNr7dcyK^L^fXm=3;r
zVh%cqzi`~E-n5#oWU6zr=mT?w`Jb}y6mFvnw=rLAW0Q5&$um@E=)y1A(l31qOG8x8
ze(@m+4Op}%w&+0<ReK&Qe)!fut{J{F_~QNlz+FG;rP&<6loQK=jNcble1aCw07@2z
z55$T-1<S<vg5{!*@YW~jYu`|=_E0#luFewCORTnL|1H+!+CRX)nH0OutqZaGZT*=o
z-)n)(wDH$#;@AB3`ItIQ{gx|V!Pu~raGKBMfY6X5{PY<rj($_xYk`aRw-~A8R5p(+
zhc@){J{F5xVH*v%2yu;vcuhDXp^%yD^dFSJWr1rQu8+aF(OA|92}hAya7)O4<`_wf
zmn<woBUl}y72=PgSzAPkkLN^|Paw9>aNPY`WJXC71NkUUoW@6Tz`ua-FXTikAHfwb
z;)*q#RCJn;=A?H{^D&(C->3OlPC9s+kK^!Lv1UIn7Ll1ilMiV2$Kj?pg7k|xY>ES|
ziA3weoS4EtLY^Kac<L5&qw%{(;@37Qwqwp}iH^T(WX8tozKqDz$_Cpi@KK}*VAU94
zKGchuR}<J=1aV^#x&2e@B87jB*ne5r`Z>}pn8)qIL}CunG?$=je26nolft?3%Mm?p
z#kXWcsQw&9&+}x8M6n<XWF%50BN4h&5#%*!qPj-jH=|JBWFp_RLYQkti9xG4K)agg
zev-o_!gFR6k@*tG>j}?=7di98FrMGYnPa5ib4j;0al9i^`U7|Cd5*stDdlmuUf_6V
zq~wUS1xZ&UZT^xo(&i(&4U9;Q1}{OlU`F$N*ARtgvxU20V3wYf7?$6}Ni54h&q+Qk
z{{mS)x6!kl=vkI2C=S4|ku#{g7|LnZynG@vrA^#>l=M9J9xc5f?5jX){@~pVT48lN
zG{vPF@W~T-HHY`an&0r27JfgrNG0o(R}Fb01qGE|uv{%tuPoyVR*2cJEawW6rFs@@
z&jsl%B-$?%Wc8albCR@;<1MW8s*qBN9#~we>7f)97S?3ATacQBr&|X~HHLlSO08kK
zxIt@RMOsTNdN#z9g#vdJ%?`OwZJ@MWsH#Na`A}ef7U?Z=t-IDU!)DL>MLBrVOm!qh
zt6LlmN`6r{#o5vSH0L5X$-+X;NoUyqH|gejD@I3RwJJ$!W^XmJ{F-R#EPG34`5a+K
z6$;4*hah1nk}wP;OnG)R1R>D19L{7{a+Be<;Tb6>T4v1QGG+6X)<oMF!?U2PU<K%b
z(5{IFQQ!bsi2f50{ZuuCjs$8Iq+hH#+<*qMqYb;0fc4gDjsVDszV#%>=R_M^V)S!b
zL-=@9NtkDj&x+7k*vF%de;3MmH&M-v?_&|GQ^$C>lCOu|<ah{516y3j7JtPSTiN2T
zS!pXLKOV*U@y%=i92zs@?-$t2!c=;L({7Po7feUd;zS745@Oz4D;qgTNWPJUjO1lj
zg1Ts8i@#yV@riW#b^#rOjovlU=b%!Ru+b($L*cA6<U({uv(^xZKaPct0aFfo2icfM
ziMplSSQ5`M%*Mik(L&oxy400PU25F)D8mjfgK*>+O3b&$;_pT;0wP0Zin1k|mE&z0
zuwZx$Op__61jx@R!E(G3XNZ8Jl{wqOQNd4RiC{1YhI$2qiC_~Bj>Fw?SQDq#CrwUZ
zGpWZ7q@tdKipoFz)w5&m)kJW$PXaDJZnz3XXPM9GVQ75NGc;#<hNdN+;hUA7;p_FB
zzTC<wGn#6x9Dwv~>Y;7J26n%d)2p|@(L-+;d$Vy;G7~keEG&$-a^m!OzMd;-;2?ed
zYm=FhdQMnXjqqbu&P3e=w*qQu_E0@{t<i9MALugD%|K+#bB{x7&5kRYX`vPW<8B5_
zG6t2HiJujW)hNVoXWVBL+t|EQ__7);&i@N!I9HI0cg5+&zd*0y;N?xSo*ku;{=)(-
zWfCoAls1{qdcSPJvfazQy`pm2==NSFVVwL0AZ)EcX^fQ<Dr?YBfipqLQZTjw8r@Ri
z<Z-lm;T=~A#WV%q#RU%h@&(*z6MgZ38~3}_x?qRcX0+i0P9f?9x=JStK_`(KhD9gQ
zF?wfp*GaUFo@Q;&E5F4SmXr^$g&&%HgzdHH0bzYDdXR1<&xwHtoLRZ6p2&WJquT#f
zE8K<^RVqOlDfHS<h>&eTQ-p78(HvFauc@)8(5rN|P<#sg3q3=)atg)6%<nW>NV|l%
z)5NWI;q}ufSv5!`HNtEQ!t^3C%%*AKK{8wA8B|vY!-8>xvjR8tzf;s`nPK}rZzrB9
z{LzAz2fABR(=6`Rw2U0M3l<A{Fkfn2o3U1xZjf5t@HTi;rj>t#Z;_=kt1Og#lz15_
zvt)ne0XaaKE>Bf*bXo0MQD<z0h~?>ZDOYff-INQ{+g*x+CHwvXX5SzK#EPLtIoy12
z5B|Uo<ic~i&x>w;m@y3)8QkT@cUwhDFVaa{eTNy{M{T+wVdEL3R{i-`;hA5i*J6l1
zSYJUpR6%9=#6CPim}ABro|=FUJM-|&4$xdq(;uuWEdhqo524<qP5n_la*xeV>@i*e
z<Vhl>^}{!XpgJ^*J|Sr8&_cAS;9ap_SW|~GBj0TkV<10_p}43G7q=Oyig%+F*=Cy}
zrjfMyYn!eg?m|Nyii@mr?rE~!)r(jME7o=hp#~3-A$$_j8bNJEnSLH<z$9$5BF#K4
zfgek{!HNAeT~5*J8u*&67?OWu^Tl7a3&*VJ5n3y3s7DbYGdn<I0Cnz(O)ugXH@`;d
zA;N;G9z`-RHr1oV(2R}}iiQ-=)2@aCujt_Y={&qbnAw05v^zSqwc9(ievg|wPIcHi
z>>al|=+4_6(>v#OMs+?0XJ+R!o!dJLI{8i`%qlw@I@>#McK+NM+%>x^t}D1Jx$EgJ
zeb?6Ny$#4l=a+ToJe|3_tUG<(f0cD-WUkD58z||SDNm*EE9)lz-Md%z<fi;K-JRBx
zmaa=*n_gJc^VE}&bbD%gQoX~<b%wU?tn9UWySvvsow3%iphugo%Ql>{KarA~k!m>G
z^JMyZxTmLTvkd2Z+=Z^){U*vtedJ1rUz0x+Ww)vD`tC-X0^#D6>F^x<Biy`K@D)Aq
zDIQ{@Ex^OlC8wC%@Um{m4amrkTv}KyxB<5j?U5VWx3vKZ3u&6C|K4R|zVH9YMFI?h
zfr?Kf?5@#`5835t<sJ}*<ivkh2B04Xg8<3?UB)iRep`SZc$5*5vH6QWIL@IAimaCC
zjLOG>!rn#{`}j1wfdz?zL1>Oj!EJodu7u!e_5y`G1(2uP0M2Iq_;#ss1b$F(Z$CoN
z;-z-82w;~AcN<ZRW~sd>D9SFU6glNpW}oXz8r6E7ZZ{`Fi-WIVnkiwJ5|+W~!fF{U
zV4AyyS7o$DwW}*(R_!j~D;eR)!%j(MNC<@fC;A%=P!I65Q}oxxIVR=oB4KJ1nx(F>
z<HL4apr?5Alyzdh?pTirVk<0fLOAh|-SiV)Z`asnm?(Aa56pl3#FYHRTzfl;wGmg8
z>84>=Rsx8G9X?k9%>j_hZ|&KcgzMaXdAQ1n8{B3r<DvjL->icA(%E~o;xc$3i{c6|
z#ls0@chT0~ce$?<&UQHO_Wt_(`cl)S2^w;!96$F>ajbQwTpjEi?z;zP*u~)sX%{@A
z{tm(#?1=S@6Jqy2oxRlEH@$C5-)o-p^*(dor9R=cZ&2#PfxQJk9-rD<Fmhy&Y?~QD
zw@{LBP~R3!bY6|V9mhIK6`9T}8pO*TCbuRpHb}Vk4N9id1Why2gxB@i60o7q=<|-E
zKQi+1kCS#_h%|^eVMjCks8-h}9B4+HnP!(T(u~5xo;5mpd=($@C8GoO50V8!waxP^
zJbD(z&)nrGd6~TNOqTuonb@E{eDkXCr?co8`VHaISrk5nySj7F-$s(4yK;j2ESjGv
zI?Dc*pfXZLjB&QUhc;1WwFy4IZ~W%Qw@Q#`G5&~m_nBfpQ5X|vq#)yNTorQ9q1Wi0
z!dK_e8w^aBok!UbRn9U`1B#l4EzZ2CX>vf3uX^)R*hKy21Za`JzY1v~1ldq317ofY
zEeH$h+s=ylHI2xr)|;k5_`cVRzcadY@JcSSp|^6sHM&TOHn|{6;nMZH0vj$~Jb&?o
zk-F?^b;)o(-(AuBe(w&)VF!J=yXC!>oR-v<i<kbh72k2`GF-Zpi@I!=&gRthI(0i7
zy2B3P#S17_CA<1vuehq;zks$dRl&@obYTlBY*7`q_!hSK6}I>nwgi;6O!@5p0B4ha
Aq5uE@

diff --git a/auxmem.hostfs.s b/auxmem.hostfs.s
index 0a625b1..a8eab17 100644
--- a/auxmem.hostfs.s
+++ b/auxmem.hostfs.s
@@ -344,7 +344,7 @@ FSCHND
 
 FSCDRIVE    JMP   DRIVE
 
-FSCFREE
+FSCFREE     JMP   FREE
 
 FSCACCESS
 
@@ -615,6 +615,35 @@ CHDIRRET
             BRK
 :EXIT       RTS
 
+* Handle *FREE command
+FREE        LDA   (OSLPTR),Y          ; First char
+            CMP   #$3A                ; Colon
+            BNE   :ERR
+            JSR   PARSLPTR            ; Copy arg->MOSFILE
+            CMP   #$03                ; Check 3 char arg
+            BEQ   :HASPARM
+:ERR        BRK
+            DB    $DC
+            ASC   'Syntax: FREE :sd  (eg: DRIVE :61)'
+            BRK
+:HASPARM    >>>   XF2MAIN,DRVINFO
+
+FREERET
+            >>>   ENTAUX
+            JSR   CHKERROR
+            CMP   #$00
+            BEQ   :NOERR
+            BRK
+            DB    $CE                 ; Bad directory
+            ASC   'Bad dir'
+            BRK
+:NOERR      LDX   AUXBLK              ; Blocks used
+            LDY   AUXBLK+1
+            JSR   PRDECXY             ; Print in decimal
+            JSR   FORCENL
+            RTS
+
+
 * Parse filename pointed to by XY
 * Write filename to MOSFILE in main memory
 * Returns length in A
diff --git a/auxmem.misc.s b/auxmem.misc.s
index a9c4839..c8ce140 100644
--- a/auxmem.misc.s
+++ b/auxmem.misc.s
@@ -74,30 +74,6 @@ BEEP        PHA
             PLA
             RTS
 
-** Delay approx 1/100 sec
-*************************
-** Enter at DELAY with CS to test keyboard
-** Enter at CENTI to ignore keyboard
-**
-*CENTI       CLC              ; Don't test keyboard
-*DELAY       PHX              ; 3cy
-*            PHY              ; 3cy
-*            LDY   #10        ; 2cy     10 * 1/1000s
-**------------------------------------------------
-*:L1         LDX   #$48       ; 2cy     $48 gives about 1/1000s
-*:L2         BCC   :L3        ; 2cy/3cy Don't test kbd
-*            LDA   $C000      ; 4cy
-*            BMI   :L5        ; 2cy     keypress, exit early
-*:L3         DEX              ; 2cy
-*            BNE   :L2        ; 3cy/2cy -> 72*(2+2+4+2+2+3)-1
-**                            ;          = 1079 -> 0.00105s
-**------------------------------------------------
-*:L4         DEY              ; 2cy
-*            BNE   :L1        ; 3cy/2cy
-*:L5         PLY              ; 4cy
-*            PLX              ; 4cy
-*            RTS              ; 6cy
-
 * Print string pointed to by X,Y to the screen
 OUTSTR      TXA
 
@@ -146,6 +122,49 @@ PRNIB       CMP   #$0A
 :S1         ADC   #'0'           ; < $0A
             JMP   OSWRCH
 
+* Print 16 bit value in XY in decimal
+* beebwiki.mdfs.net/Number_output_in_6502_machine_code
+PRDECXY     STX   :NUM+0
+            STY   :NUM+1
+            LDA   #' '
+            STA   :PAD
+:PRDEC16    LDY   #$08           ; Five digits
+:LP1        LDX   #$FF
+            SEC
+:LP2        LDA   :NUM+0
+            SBC   :TENS+0,Y
+            STA   :NUM+0
+            LDA   :NUM+1
+            SBC   :TENS+1,Y
+            STA   :NUM+1
+            INX
+            BCS   :LP2
+            LDA   :NUM+0
+            ADC   :TENS+0,Y
+            STA   :NUM+0
+            LDA   :NUM+1
+            ADC   :TENS+1,Y
+            STA   :NUM+1
+            TXA
+            BNE   :DIGIT
+            LDA   :PAD
+            BNE   :PRINT
+            BEQ   :NEXT
+:DIGIT      LDX   #'0'
+            STX   :PAD
+            ORA   #'0'
+:PRINT      JSR   OSWRCH
+:NEXT       DEY
+            DEY
+            BPL   :LP1
+            RTS
+:PAD        DB    $00
+:NUM        DW    $0000
+:TENS       DW    1
+            DW    10
+            DW    100
+            DW    1000
+            DW    10000
 
 * GSINIT - Initialise for GSTRANS string parsing
 ************************************************
@@ -445,7 +464,3 @@ MOSVEND
 AUXBLK      ASC   '**ENDOFCODE**'
             DS    $200-13
 
-
-
-
-
diff --git a/mainmem.s b/mainmem.s
index 5d4fc8f..aa958f6 100644
--- a/mainmem.s
+++ b/mainmem.s
@@ -143,7 +143,6 @@ RESET        TSX
 
 * Copy 512 bytes from BLKBUF to AUXBLK in aux LC
 COPYAUXBLK
-             SEI
              >>>   ALTZP              ; Alt ZP & Alt LC on
 
              LDY   #$00
@@ -167,7 +166,6 @@ COPYAUXBLK
              BRA   :L2
 
 :S2          >>>   MAINZP             ; Alt ZP off, ROM back in
-             CLI
              RTS
 
 * TO DO: All OSFILE calls combined and dispatch in here
@@ -194,21 +192,8 @@ DELFILE      >>>   ENTMAIN
              BCC   :DELETED
              PLX                      ; Drop object
              JSR   CHKNOTFND
-*            CMP   #$44               ; Path not found
-*            BEQ   :NOTFND
-*            CMP   #$45               ; Volume dir not found
-*            BEQ   :NOTFND
-*            CMP   #$46               ; File not found
-*            BNE   :EXIT
-*:NOTFND     LDA   #$00               ; 'Not found'
-*            BRA   :EXIT
              PHA
 :DELETED     PLA                      ; Get object back
-*            LDA   #$02               ; Prepare A=2, it was a dir
-*            LDX   GINFOPL+7          ; Storage type
-*            CPX   #$0D
-*            BEQ   :EXIT              ; It was a directory
-*            LDA   #$01               ; A=1, it was a file
 :EXIT        >>>   XF2AUX,OSFILERET
 
 DESTROY      LDA   #<MOSFILE          ; Attempt to destroy file
@@ -565,9 +550,7 @@ LOADFILE     >>>   ENTMAIN
              STA   GINFOPL+1
              LDA   #>MOSFILE
              STA   GINFOPL+2
-             JSR   MLI                ; Call GET_FILE_INFO
-             DB    GINFOCMD
-             DW    GINFOPL
+             JSR   GETINFO            ; GET_FILE_INFO
              BCS   :READERR
              LDA   GINFOPL+5          ; Aux type LSB
              STA   FBLOAD+0
@@ -614,9 +597,7 @@ EXISTS       LDA   #<MOSFILE
              STA   GINFOPL+1
              LDA   #>MOSFILE
              STA   GINFOPL+2
-             JSR   MLI                ; GET_FILE_INFO
-             DB    GINFOCMD
-             DW    GINFOPL
+             JSR   GETINFO            ; GET_FILE_INFO
              BCS   :NOEXIST
              LDA   GINFOPL+7          ; Storage type
              CMP   #$0D
@@ -808,9 +789,7 @@ UPDFB        LDA   #<MOSFILE
              LDA   #>MOSFILE
              STA   OPENPL+2
              STA   GINFOPL+2
-             JSR   MLI                ; Call GET_FILE_INFO
-             DB    GINFOCMD
-             DW    GINFOPL
+             JSR   GETINFO            ; Call GET_FILE_INFO
              BCC   :UPDFB1
              JMP   CHKNOTFND
 
@@ -1038,6 +1017,34 @@ SETPFX       >>>   ENTMAIN
 :ERR         LDA   #$40               ; Invalid pathname syn
              BRA   :EXIT
 
+* Obtain info on blocks used/total blocks
+DRVINFO      >>>   ENTMAIN
+             JSR   PREPATH
+             BCS   :ERR
+             LDA   #<MOSFILE
+             STA   GINFOPL+1
+             LDA   #>MOSFILE
+             STA   GINFOPL+2
+             JSR   GETINFO            ; GET_FILE_INFO
+             BCS   :EXIT
+             PHA
+             >>>   ALTZP              ; Alt ZP & Alt LC on
+             LDA   GINFOPL+8          ; Blcks used LSB
+             STA   AUXBLK
+             LDA   GINFOPL+9          ; Blks used MSB
+             STA   AUXBLK+1
+             >>>   MAINZP             ; ALt ZP off, ROM back in
+             PLA
+:EXIT        >>>   XF2AUX,FREERET
+:ERR         LDA   #$40               ; Invalid pathname syn
+             BRA   :EXIT
+
+* Geyt file info
+GETINFO      JSR   MLI
+             DB    GINFOCMD
+             DW    GINFOPL
+             RTS
+
 * Create disk file
 CRTFILE      JSR   MLI
              DB    CREATCMD
@@ -1381,5 +1388,3 @@ QUITPL       HEX   04                 ; Number of parameters
 MFTEMP       DS    65                 ; Temp copy of MOSFILE
 PREFIX       DS    65                 ; Buffer for ProDOS prefix
 
-
-