From b6d33e620b10420ea7ded60216e052f28e48a499 Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Fri, 4 Nov 2022 00:47:29 -0400 Subject: [PATCH] Minor tweak to *BUILD code. --- applecorn.po | Bin 819200 -> 819200 bytes auxmem.init.s | 8 +++++-- auxmem.misc.s | 64 ++++++++++++++++++++++++------------------------- auxmem.oscli.s | 24 +++++++------------ mame_applecorn | 2 +- 5 files changed, 48 insertions(+), 50 deletions(-) diff --git a/applecorn.po b/applecorn.po index c61cc0dbe47c245b4ddb3ad3f2a61bc245c9d9f3..42a3c56bb8389c9b44d675706dd461bab0635e73 100644 GIT binary patch delta 7665 zcma($3qVs>viIgf3`agut46fDr+xuH_*-QyR?*f5O+|EDAb7(?(MDUf?e2D!cAHym zTA%gOSamO2abpDKvRoSc6j?=L{gL=--2PlDiq+SGO1ymh6rW}1Bt+5ezW4IG=ggUz zGc#w-%$yURAItM&okK$C5gUhwBx#xFshp9cD2l&AVba+9r;s@H?DPyH)#ar=9!gWc zq5w0V8cbaYG*nbC<6~$i01aL_BS!?$Mo=n>+ISNURO$Nc?bW@Ars*}6;U83n)9_Wn zmw|5xd_&=@hHp3cYTz4IQ5lYe4|;yWmOZ2LVtI76kk4YO`nV{jZ$j^J%?q)6hO}HT zu+me)3#_!sLFw>ay|n59MCyc0vL;Fct&^om)@P)-)+rKYohD)H^aR}Fs5DAwVWgQt zE0bI#v@ud2K_T5{2EQaGZbl>No)t?sqak$IVBqmA@c2l~{|lNu$=6yysXW>{@&s2b zFBs0@r(5wgAFlff4?HJz!@dsuW5=$abQ&DlnzvpBGv1eY>(BNud_}|}da7?^>j*Wk zRbz%PQ9^gMd9+RD+7cXDkuIVPn*K@LlaEUANyRyN^waKM-igp0J=Xb?yNCA{A16~T z?T}<1?-AeGf^_tr3ULbpvmURQ{0Z8|(0jz%?dbi;!nC3fPtP<^iMS~-E zrFc- zkEn!ho8-?`f+j$|l92aCeq^~?CF~T(>_Bn!++PM?^Ml2MJJ3^+JN?td-gW0IeI48V z11iTc@;t6H<~1=6L!OUW`S(1UE~9AO0mBnV9gX5e2b!n;6&Za&%qj+z3_DRYJw<${ z2t|kEPp|0Ax$Ru7(Glr~h`V>9=f$aosBa?e9qX5IeG$8#5_YlsX<;|JAMC{Xt#FgD zoc;KOZk1QJ&OwPug)qr?;`~DNBArEgep711FA7l^{U({}J#{wWFqa6Wi@<|hB#JAe z>8_>+usc-V2T>QA^Z#V;8!s8{e|lxwb}Tdsg@(nRlW^lNd)ZZwMCN!nBBS%fN?{;vQrEGwF`p{?nowi5Z{wkBI! zu|(me-#d2LzsHd+WgoSb+S&q;-S+PdkuC4L-}6{cVY$O$^JC=HsNF+7Lr*zs>>8Zf z;@Cp4M0YWoL92=5{925c&{OoH3TQ82=!@dMQuGY%5?f2rzyZt+{d0yn@1n+8&t-I2 z8dG0P{#^&(IM0xh)-gaFBcsdo#)@8Ls25E~io-rd8$t)SaE?^5>Qm%|y|dhj(&2H^ ziQeVzT^C%}rRCNir0donr8(9H*!YdoJJxHCm+jZ_Cmj;y_`y!$<_?V%v1P^en)TJ! z9n_8L>q>alitDAW>-ejV2L5J@Q^lW!9W7A=bhaa>gPZopC9mc@gE!Kud16O7>N5#u zN>gzXr7@Piq*62zCA_2p)Z7?Fjeoih9Zs4G{bKJOgM3Be!zZ{%*hsm7Cx|I~Q11|b z%e)6ovE=wT-(q;@z}wXH_&fX`Ey_cfPr0dlt8DOn)x7oQD&IT4HSliyvh>SLKjm8g z@0Z@&-iH*w+`4_U`Ox%m6O*G%I z-m851hPA!uW?}O##Tja+%9RAXs%dFVocRD(i*I{(DQ?h{Dlr@f{^=cxd-&`j8x*dnz3`r6Zy>%b-G{$QMLJ2^;>~?1v1h%n;1v>-9j?4Q)reJ1I7^(o z9~tQjV*Y;gZ12dMCHbS(cFLx*_vh+q2j$e_<6`rE@T0=OT+yFF+a!+q482OXi=TXk zUO|Kls9B4biP{Q?wsm4`1se2QeKWQ<=aNVqMk28?xMTFN_Sypp0Ig?6|JYtruHaS8 zoxfclqO}4Ic_J-~s9n?GiuB&#^tHy?T!$bYu0S#Bv1H3<2jUQY0QCoPo;-l&hL3Mq zr=JP0*eIMNzI6Z{h+Eb48Y5W_)P(-Gjw@=@=R^8vh1Iy-uDRN#3x0Mv{u8~7Q>bngU4skh+F@T zMn-sAziwUJiqrqcK~?37U;Q2733v1k$m9j@F&=Gu-WsO#j$Wc%YFngBqacZPb+d&? z-RzXGnn5M`sJQZVJ)l;;A;uj`pk^>T8DR~xvg|__d>rw_Xsr;p z6GrqDa}T0>J=W;+^!fTieYxJHKdt{xe@%S<5L#)eOU}EHyzOE#2=%V2U>ehKgIC$w zJXO;ecf9wmY+$X4@(ZkWGT1NC9j^>1Pb`?uG}Pq(Bhl8Tv^3-;F;WsKR){G03zKbP zjE&}iS$#5CyXk%df2#`*sytD+lzjS9vZARePlRE9ek;zqkL&L7Kg)Ai;Z-(9;|!I` zU6;^*~>5gSZG z&a6)EeqaLrz0u-)6EDcLg~>UyAl<&sQ*sg`ESd$#Zj~}F03BSK#8f81N-1h7e#uq&m9Y+# zSH?P@gp}LMl$UP615Hk?@H=+>i)6eem4ytYO5o&|SmAB9%#v;>XfXj}|5WqX09A&c zD(4ZZmk7mrwk(4X04L8|tWE7UC^|k#ewP(KV&&DWU?X#!`jB;w}%G$d4<9Lg(`uyKxVB*O46GRZiCs)dwZ-?La{r= zInhBu7G9C+92F3?!7plJKvb|=ryiZEhJny!4StEI%?&Pv-$5@tbQsAp&3l;&x{ZU% z_jYqIRV^l^Pp#hX;U;G;?d{IL1&Q=CZ3E=hj8MedRh1ty zTXwN)wRb>K^J9BoHXu`p1~FpCeuJ zBV2_N7NiH+Πsa{@HJD1^qy1o>}l(=Jx{8!MNxO}km4l$B++2?|%4g`tR2HbNE; ze~t!lkFZ<+7sBhzX4de0N>B~}fIR@jvykQ0fhpUaF`AX~hc5UC zVJ>+WyP1-AvzuwTSe$ee4Sv)Vcy&rpd4VW@@uBi=N{MoJD3NZp(#zJ}tx;xhhShTn zcT@1{RKv?A_{A@q^w=$y9YxWWX>;{vsK^3)E4Z;ZK!PaHONtOotQ6&Uyf;&wYP^=v za*mKH7qfY^M|+n9EAZR3sc!5HbJL0@E;)2bl3~W2qVWonU1XV$z%t|GCZ`UfCVqa7 zJ{UYrW^X8dIoc%A9K>Z3jz^GiyzF(hgoNZ}Z;08)&;ZNKIc|d&4u@QVe41&hVT5I= z@)@Sd%?Qg=<+Dtahw*CUFPNrN3>->Fa6}-8V6@WR)*rT#N=h=c&v{%u=kPKYQ+k9U zo2j12_8pOpPVFk2CZOwFiFVHhHYuC{jzkeJRe_hv%fUX*NYYxC3c!f9tdg7n?WPY{ zBH{AXrnM|csFQ0L&U|b&$5P% zCeQ-198C9VAmTv`gv~TF*ca(Qr*KPh8B#<__0uo3YS=|k7WNAMZFP%g~0~JD0FFj$X(Si0( zwXM4}m5&J|(x)Dsqo-L<^5JR|q+{Dve{yaAPjXB1_$xv7gnKkFhmvpxA5QX3H%wUE zhEzsU^Dprb3v1A@p-p6sI!nQ>RftUPGd5xECfsL}Y!{nr;4I%$40oe}WBmbB-kBE5 zxM^>wY)|8(V6$oxq;5^nW&)H3?WPC9#fzL9^?lSJIQ~W4Z&OgN3q*?V9{SWn(iicN z{})!w|B0o-@#0-K`VFWt%7YSmJJPm+g2OjK9b)g)b=wZ{Ee{+~3e%vFED|LTiXHz* zdhivep^_>IhO0`_tkWABNIQ|VCp)Op-D%~C8>ZEqE*90N(C}HmOc}rqPzJd0e+{Y& z?B&4Rz#IOWp+O+H{S=x$by>PhGww;=-_$b@h5nc>GfYC`m=ak9kI{HT zIzHO@Av@j(2|S13$9q{A;Ai6N;-J%LxCM|_5j=vV1*GTzQZIs3i7%$(uQPD>417CX z2gmvZt}M=|^z>B48KIo)=BcN>Z9J0~XXJEC;Z;vB4c=U`@)T8UR7rHS5NDL)h2h46 z5k|*E4$~z#`)T)T!kXu86|&XR7e+6 zswI;TcQo2Fa8;%)5*K6=r0RA!Pw2QnIQ*eK0kTe6V+I&iTh*8W>#Fv^EWCyB@HYsV z2FSV)+<>+FckF*dPT=f*!w&$%gLx57%iQ9b5B9&d-aTKUNL$ARn+crzEvMR@ZBxZw zg5%r`_k5+Ns>&m-_yYB|G-kkQ<5~teZ2%lqdFDgUzmSa?Txpll;92D1C`Az^7068; zN*{jU!&KCpq@shFfox<8gVe!nJCv#8Ff*Ui=;ec%N?4%c-F9$fra6WyJCs?kfRFT% zLu|42?s{*CgXW=jtHq<{w>vcr^%34SM~5!&kT}|l#*G)|Yl;%RsuPn>B*xfuaK(@q z8zmsN*ac-?dEyqtuI1YjAfwx<4T(BX*xmukieB_9RA4DKEv-~_xZ}dMrulOIQ*7zSMx3k2x_i9!BY0(v~3K7SB z1xKE_9K^d!&N>;qkfQEshfE?*%9NFrMQK(V^@mcjYFxd&Dm#^5H!DlgLcbs-3qQ}9 zHzel9=s0t3Ou~cW#Mq8=IL(9Xw3%dq=7(88v$ASdR$WS#@?ajt%sS>KQx4E(% z3~uC{C^qU$b+(uBxw1W4pRYPwc4Y%V34!}7?rimASok&vSn$^s<-2Y2T6+5Kn7k3b zyC$erelh`*cGKD11>R*+sF1q=j(@{ACG_Gjj?chvEg+Mn7RN?;bMs>rZ#Lezz&Qt&>cy9YRZu>-T`xNjMJ)j!>=mo<#bHUSGt_3g5 z@o2ZgM8mn!-SO@PHZ{Jy0H-a4|95n+R88l+mjg2dehtmpI5(R=6AI|=4sZAE(;>{j z0eE2!Cou(6IIgw6m3&MsiiC|m=2P8b95Z#U?hHfO4jyy;{9*Y82X49e;%UowHz?`Kt~9e z+))UBRQUTmIO4*b?Zd#c?vTq_m|9<4$t)%U*5v?>8G4I~B^>DG8sTE!4+mcSgO>e4 z%hibo{#$G8$|rXubh|Jj|1t%6!Cy|gWmj@aI7&`*jlRd}@zo0DJkl~1_rF6-*?^Sg wi|`-*v;zOZ{Kle15sO#+@eRCq$(xHJe!pZTt~eL1iKq8^Yxb*l<#liQ7i++c#sB~S delta 7385 zcmZ`e4OkObwlf(B;VKeQF`{m7)hhUds9Q}f*1uMRW(Bks2}~G}_C=+w)@|$hR+;|9 z_O%R+tM+OaY?>8iC_{tRBJHxqs+FM9So^-UR4x8&i>rwPp|-^;@7zTE+rA_-bMLw5 zoO{l_=WlLAaiSC9ap?cqq4 z8NvW&A7%t|A>7a~{btQvco!C<{Q}U2GEBj^VFN>G1>=Sf)G&iLT}8t*vCN)+y((Ci zd9A+p8}+?exHNEaa7Dls36~bGD7bWRMc38$M$#K`@AEZ}X?$2o*)NsxnAv~$uVl$) z^t#Zw6d#`>KPP4I@`F+)FK>1+2K=i@{?l!Ud}=BeZ7o$eu5JlI*(`g5?B0s1@ln-1E#*;fKi?E+rc8AI z;_d7EQ5>x>9{odUBL0M|--ZnACv{{Sf@SsAP5Ub<6#R=e`RBEKEEag3obc-;D zBE_@cl1v$JpRYubWQG$B>$Ma3Zl?3O^n`Vxgh4iatZt1I;Yli%DnfG#p{}%pIGt!o z!mcdEqmi_ml>-_nYP0gWM$(1J|4hjTpb)aMUnA`z6Fxwr*{6OR90-BQXCI&k`|Ju$ zlk~H9t2)r-3Jqvnjr4igU@i4?E^}#sTk~lt%hoWgVV}AGL6@JLb)iMtVRZBlB(D-w zGXD)Fu(Qef3Y5?re{{iMTiYeHSX^--2-)>FG?&$pnLAK?D(jmVlCnhR_cBryzn7Ih zwqwln1Q%a`)yW~gUFZSw!7h}{?xOAKY&xY%W2G=LY%I#y(&^vS zS*5(&>EGO0DKmKadDjQd^Ej@fW>aVN=FTu=m-Dsx z1zno|M0R)arOd@?Pj-u!7Mattx-prcpmQv#>sN#Nv1}X}^%2?_nb;w?7L$gLkQ=<` zIX7AYk0WmMN^bXM>Ck2Q1^f5%W&00uhP@43|B}4k{%_X`=VkoYZkcg??__X$w@!}P zw)%2o$-&Dw>vE!7Bc25xmYM29mvM7?wn=K?g|T zZZy5v7AOoXhp!F31^)ZLy}!Dq-hp+fLG@d8OW;)d_N(gxuLjK~C-Xv-C87IC z-!}A{ipq^KPo;D70?A94g8`mY;Ql+aVmJK^VE;0@`-T|nl+{9iv4>1 ziYxZ6imN-?cdG74CsV5$@jCzV#L>2WLJPj;+o^h4o8#(;)(j567jSha+QzOUwLlE< zsB;e*@kp0-quS_+bX=1-Pa*_@kl)m*+q$e_D8!9KLBJUS-$*JA`9C}Ht$7`C&gW@+M1$uG7gP%u+Yl77`GmKue!!osybJ4Qmm?Rjdn5y!Bt7v zPf#LTKt_LpirAZke1cXW$_-R+!K+B`I*7aH$U}8#_#@_ayrX?Bjmgn8CaWX5Q$}^Q z>@xzil}q`dtFcza>)LPK?|zV1>d-^|bMk1UXl(QJ@mEtZzGu8ri=I+UoLOkF=e z9FcC+p}`=|pnYgzZ)3+>rg`v5ip5Wmm-nH4qu2RYa&qy$#>jsego;knR!Ag4*r97( zx{ICaNMO3=E!V@8+uSg>=ju@md!78b9%c243)-q|ONulaS0_1Jj}m*Gb_T&K@V|oQ zZ%E%y(ZJ&N;FrN>_?G-I)X({w1HG@Non3z>{Y>JS#?!^8x$oM8zx6f$=rgwmAuO05 zX*0jpM%(Z+c9^xx`kU^Wl+f$WH@<0Q^#ZY@t_V}dLF(uK# zLX2p*m1hQ%N*y@AhM7jG(0^3qB^QRj}7 zYhVDMv%051y^tz9pxR)dV)=`Gy3(3vpQW5jt2v+6%BYbE2~FZp_SuQLf$m6rlovTD zWCG{Y#Lp56XNUWDAc#>nV@pixufDT?r3%_|=G zEx~89@Qc~_a5in!X5;_Kh5)yM>RrUkGo@!~>p5DNeZHJ0tB#<4nIZby0gd=&i~A+~OpYU3vCW6vxJqP{nVht2KHz#a>LkTRuKoiVlKSu}YKY~x z&Enb`#rBe!9H8Un^WD?%w-)yVW!ZdbCMWK}ojD;XibGOBPo5*5qYtatLLZEH(gaVN zc#L5{kv+Wh6xHBkUdrNevDG~fbONC57H}EW?7)BVa+I{2mk&yNY2UM(ccIeVyn86* zzk$}$Tr(bNb?c=id`UJPZ(Pi~i#4LgC@2Bgiu!rN{Iy6xAjiU{3k zFas-0y!{%P=Rre?&t$m=+Du+i<#1>hs$iv&O|O$@nr!CdW}8>^^?gf?#K+U!Q(O!r z#MPPZC*yl}NW~H}bF{Kh7w~_J#XcRk-96o>^A8?Namh@2l?sHg&dxj*&QF1RE zs~d{-9xY~3EzaE0qQ|DC8eWpAC?^!Y(mfd(Usgh6oKg9R_gC@KN4(klGB{|y=D zU(@l1O!EpW-0=#l2_Gj_2T?-toP{PE6gOdy=y3-Dkia+l$uUv^FUN)qW^JZhi%Tf2 z;EHJQa9dKE^gq*}0rpms>Ba77FRSWCr$sKCX`Yu+@p~019?qVk9N_E|u-ED~K=i`% zGfX`}%xd#R;uQ&2nH3;F(zrO5#>Hn}6AA${Ckl{7^VABMna*Xpga?+|y z123aj>V3a3L+P{%AAEt9WQw}=@6&v5GYhS5hqrz({x_L$1odALGU@P+-?bY(hJBVA_IGzY7G|UQ1$Nvw zT%L1_EEN8a_c)polJ5%WV-?-v#1`6FmR);&H4D*JQ+hLdMVEJsP7xM$DYla+ej8|#~Nw- z6qyp@CNB~%^k_#JCICN21hDB%b3qg(x&}FhE?S6+jVI1VG-_l!UFuuK6Ake_JQVt> zzZvT{3V`3}c5W!(7Dod(;Q^N_cKy4zH<9byZfF;hLjpI0#;L6wRKoYKg*f-l@Ka zTR8|Ae_En&obl3xDn$d26ue~#K62|v-OmDHMO$7PLV53wg`sh@M&e2 z_ng%6%5+UqY*j*nlx&g5OXDr&DHcd$(GAlz<>M_)Vo<1|LBUD9$58x$WDC4wLmxG; z+_v$SP??uZI**|d6Q*Q4`gvG2y1rWjQ))!5ya3P6Zfq346}(g3T5pO2sx5b zO9q(b9)6_#EA(11bx80Qp{&K?;F?=3W#52WrT*-eE}Wc0-A|P~IWY2#rA0ZO3x4p8 zMZF01uRB(0v8c2QdGECxvA4_b%*F?D9DVQyITUGs7Zl$HAsnQ>?=nJasPSjRa_SrW z*|4M9CYVJm=97w0F81*(P2x2u7jWpDmBy7RYW4 zqanb8UTBN`+4qe0)cJQt8HVbtLdNJ;Wgr(B2-r`cw%msTi4bah(^eDSLO%1Mi)=D+o@&PI4AiRPgcn=Yv{VD|cT$+4%`dVV;6~}&QDX(nYFBS62 zU-nB+^U9|E(lazOd2)aSLr=v+@2XI?r-xV^BcVsr^P$JlH$smiE*|Xa&Zq9?S7;t< zd`f`8mM7S!g$BF(Cp{KIvF7FFF}gJt)87~6HF^g4G)`vgne;qW5B>5*d3Zh%zea{f zY=X|#lcKlLywQFqMeEiyr01Pkl&21@#PfyPRMX1X9!}-y@ zi-2!;02?SPYg3cdjj3INZe@b8VNu?V^gKOhST?}PKzUOoq;(sY4X6@epgcWq`zRst zc3ooWG9|7Yiu>fZtnCr)^ZP`*HCP-zE%@@jQ8-tT4(68~%6D#krSA> zok{L4A1{dg;U=@?lZ5S4gzb+C+h>C%m;luhLN6a9*vh91YwygpxSjs$dXx3AasxeznpRq>fZLFUS53qng9 zeD)b&`QGaCaw!_>|7Rx&Dm3sX1x5krD)Es5dMc7s46+Gw4#d(t`!sMfeMPEaS&Tik zVj3J~PkU3mA~Y0-(Ho`+5K&ll5Y&xHf|G@Fl=(}Y;BaRi71Xge9~A_rCJc)V!wex9 z7lvuWuwE2)Gqe^UG|Vrm?ct>nO202OteY;tdQ{?%3wwlYm@Sa}f5Lmv-lcAs6{3L2 z*}FD%Er$Le!5LkfN{_|&E)|@pr|FIqZo(>rHh^-Kf=fZMi7EZgz(PWr+GK-7*-v@GNpbQEwEuRZAoGdg5jEj@S?ThlZXOXUdq6x)^-xUYX=;*hx#Iz*8FZkoc@a*@6RRW`=dQz?nCj3L4 z{}j@5J5QsU!B5(jt;XY&KVL*four byte zero page locations * Y= number of digits to pad to, 0 for no padding * -PRINTDEC sty OSPAD ; Number of padding+digits - ldy #0 ; Digit counter -PRDECDIGIT lda #32 ; 32-bit divide - sta OSTEMP - lda #0 ; Remainder=0 - clv ; V=0 means div result = 0 -PRDECDIV10 cmp #10/2 ; Calculate OSNUM/10 - bcc PRDEC10 - sbc #10/2+$80 ; Remove digit & set V=1 to show div result > 0 - sec ; Shift 1 into div result -PRDEC10 rol 0,x ; Shift /10 result into OSNUM - rol 1,x - rol 2,x - rol 3,x - rol a ; Shift bits of input into acc (input mod 10) - dec OSTEMP - bne PRDECDIV10 ; Continue 32-bit divide - ora #48 - pha ; Push low digit 0-9 to print - iny - bvs PRDECDIGIT ; If V=1, result of /10 was > 0 & do next digit - lda #32 -PRDECLP1 cpy OSPAD - bcs PRDECLP2 ; Enough padding pushed - pha ; Push leading space characters - iny - bne PRDECLP1 -PRDECLP2 pla ; Pop character left to right - jsr OSWRCH ; Print it - dey - bne PRDECLP2 - rts +PRINTDEC STY OSPAD ; Number of padding+digits + LDY #0 ; Digit counter +PRDECDIGIT LDA #32 ; 32-bit divide + STA OSTEMP + LDA #0 ; Remainder=0 + CLV ; V=0 means div result = 0 +PRDECDIV10 CMP #10/2 ; Calculate OSNUM/10 + BCC PRDEC10 + SBC #10/2+$80 ; Remove digit & set V=1 to show div result > 0 + SEC ; Shift 1 into div result +PRDEC10 ROL 0,X ; Shift /10 result into OSNUM + ROL 1,X + ROL 2,X + ROL 3,X + ROL A ; Shift bits of input into acc (input mod 10) + DEC OSTEMP + BNE PRDECDIV10 ; Continue 32-bit divide + ORA #48 + PHA ; Push low digit 0-9 to print + INY + BVS PRDECDIGIT ; If V=1, result of /10 was > 0 & do next digit + LDA #32 +PRDECLP1 CPY OSPAD + BCS PRDECLP2 ; Enough padding pushed + PHA ; Push leading space characters + INY + BNE PRDECLP1 +PRDECLP2 PLA ; Pop character left to right + JSR OSWRCH ; Print it + DEY + BNE PRDECLP2 + RTS * GSINIT - Initialise for GSTRANS string parsing diff --git a/auxmem.oscli.s b/auxmem.oscli.s index 9e6fab5..df588e9 100644 --- a/auxmem.oscli.s +++ b/auxmem.oscli.s @@ -715,8 +715,15 @@ CMDBUILD LDA #$80 ; A=OPENOUT, for writing STA :LINEBUF+1,Y ; Force carriage return INY ; Include the carriage return STY :LINELEN ; Number of chars read - JSR :BUILDLN ; Write one line to disk - PLP + LDX #$00 +:L1 CPX :LINELEN + BEQ :S1 + LDA :LINEBUF+1,X + LDY :FILENUM ; Recover file number + JSR OSBPUT ; Write char to file + INX + BRA :L1 +:S1 PLP BCS :CLOSE ; Escape pressed BRA :RDLINE :CLOSE JSR OSNEWL @@ -725,19 +732,6 @@ CMDBUILD LDA #$80 ; A=OPENOUT, for writing JSR OSFIND ; Close build file STZ ESCFLAG RTS - -* Helper function for CMDBUILD -* Writes a single line from LINEBUF -> disk -:BUILDLN LDX #$00 -:L1 CPX :LINELEN - BEQ :DONELN - LDA :LINEBUF+1,X - LDY :FILENUM ; Recover file number - JSR OSBPUT ; Write char to file - INX - BRA :L1 -:DONELN RTS - :TEXT ASC 'Build> ' :LINEBUF DS 81 ; 80 char line plus CR :LINELEN DB $00 ; Line length excluding CR diff --git a/mame_applecorn b/mame_applecorn index a6e0421..2ed715e 100755 --- a/mame_applecorn +++ b/mame_applecorn @@ -1,2 +1,2 @@ #mame -w apple2ee -debug -sl5 mouse -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po -mame -w apple2gs -debug -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po -harddisk2 tests/JGHMusic1.po +mame -w apple2gs -debug -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po -harddisk2 tests/Shawty1.po