From 743114fd0df7b9e6b015d64614652df8611357ac Mon Sep 17 00:00:00 2001 From: pkali Date: Sun, 5 Jun 2022 09:33:28 -0400 Subject: [PATCH] some code size optimizations --- scorch.asm | 6 ++--- scorch.xex | Bin 38228 -> 38082 bytes textproc.asm | 65 +++++++++++++++++++++------------------------------ 3 files changed, 30 insertions(+), 41 deletions(-) diff --git a/scorch.asm b/scorch.asm index 9cb7536..f114474 100644 --- a/scorch.asm +++ b/scorch.asm @@ -403,9 +403,9 @@ RoboTanks lda kbcode cmp #28 ; ESC bne @+ - jsr AreYouSure - lda escFlag - seq:rts + jsr AreYouSure + lda escFlag + seq:rts @ ; let's move the tank's barrel so it points the right diff --git a/scorch.xex b/scorch.xex index c3b664a302ed42edb176158abeb03ca7bbe5573a..32f22e1ae438cf776686196da218074411f5aa55 100644 GIT binary patch delta 12198 zcmb_?e_#_;wttfTu0X@@P@oJTLKSO~KFA^nX!#*8TSY~DC>nkgNwvWrC=_Lr{un5< zQ<6^Zl{T9tTba_qPHoXu>zen_U7)EHN0!x97etnpR%s1_i?~nte(oe~`T5pAz7acf z&pqedbI(2Z+;h&IBfAYB%7*&qGYlcmn`<*Z)+e5>RDa;470T&K@z+z*#-SOIb$khT z+k9CsG!SmYv$BpoPtM`|tLsuobKs0e^iP@Kz-x+`+X5yPj0=JNjcM{(% z?B(d)#Ko!c=sTK8Ttm!w`8hL!^z+>e$>P69)`1GI&BnKsaU>LFX`0>jDaC-gBl2J& znOKg^mUX**rz_i!k5hlFiUB?b!VsBcs_$+hukbA(zJSS&hzDicQX?{dJXr?8m{7b@i$X%c8q*Zn-^bd_3Mg$t<7p73F(`fjpz3o>P-=V z8r^LC(W-P-nl>&azNN&f3@0rikIM)FhZ8v&0&-tHW!aWlT^blg_>$d$1w@Uq%*cf1 z3TR+ep0M8lZG}d0lh$!(=W!3`a4$TqBpePpMyLr~%2UvJNN=??-OK%XKKJ#5;bzxx z!Zj@gZgt7A1%%uEu(F+m7GcECsPH$+eKCJ$2^yol-1phFWkijwF4^uYCQ=E%t9!kq zT|7f+Aj;opD2m(qoYu+KG<8v1iB!^(;vnidhSkfeDh9GclfpLQkC%0(9Q!uniZa;} zi`8@N9eP#p_eE&))3#Env?Yb8(Xf+Jc?h(i>1#0w#RQKpT_Z~3dfs#kp{UiFRH-mDtr6~;O6^gTl5OTLA)+1Me!E5wQCr%iBJ^Mt(yWm%r^fk9cG zCwyp7R^$nPGAJwa7!REgeFWQ850h#({#2#gitW>WJXZY?<6(n`ge*TKNG4S}f4!{Z zbUXZMRrBOn?(vh>`P=93e5>)9yjo}8H{X0C3{^`_YTH|@YgW&iFC-p;oF)}=iod(7 z-;!jK-Y>DHN(T-}J2ZY=)DB?oUTt~uBpY;;Ht2b4m5%8*4pv+LPXK!xo7_9ypN}G; z&SK+_?daJArAh9V6ft)CC`VuKK93rs^zrT!>)Vv1aH}6$uD?kloQ&jwlL@>`j;_Hz z47^B=+DLsLJkbRx`mEgKXJP&M#AI8-yOquCxz8QqTuB%6iF!g#=Zm?e&sxsTJC;w3 zf05I=n~)c>XNHBZ(gomsR*?47*mLLDR@+owrQ0M1R*<7BNocfd6z>kKWEhg$w~_?l ziQEB>U@~ZPV*B**DRAmTl=X(xq+n7gwx)3nuf{1w2K5uUPnD@GS-gG5&4VJl0Sl*X z6G&Z5#OxUh9m%BYZ&bcXI6}GkOD*TK1)B0aLSL zT2_snl1_!CRGCBt#}ibUOob<@l0gM4WfLD9ruujC!_s??Ps{|2AEy8=qcA^VI(wbL zUKgZ}avAQs#HObc?x4b*R9Q-ebgDc-g-O(*JV}MgRIySaqi6nD38sR+nylfqIiGdt zajO0vES6C=4>_WEY<8&Ze3n^qc8ukn^@jcVpzem6B&TgI?{pd3E{9%*YZmv+9Hvhe z56(=1C4i6S9{@9$PgsX+K|A{7e%L+bVt$?5wLU|%!9zQX|fzJM?4 z;C`^MS>udgvsOO9o-`yThGhfQ)>OSZ$Q<|(#|Fp)&7?yI4wfQ|$pN4(0)&%q*1X8( zbS^c{wDB;(2!St{^Z$Yb4wGP$D@Hy5m}RdeHI8?i0c&-KalnuX@+t-cM;ukn>|8vI za}f;q!maZm;p*MZ#uJA=AP_G-%CgwPwC+Is0Vft~vQ5ctBYd%xAJoIIJA>2ezqVXl zD-U4$iNBswukGnp>a{&FVV$x??GstBB5nDGIId`R@9S{qj7Z;e3*i>R?x7pO)(h&! z0%$lB_M&i-nL#VD#6PIH$r^Ti=Uv>$7a>@{`OUNQ`@+TF@S9{^heOA22KF#4tndZJ zdVfi=-hZc9@1s;I5{^-c7rvs>CgC`hHVa=<92GFx;-^7WK$R~j?^M2|e7^E`$`>d{ zDPO1@qkNI_73F#5IOR7fUsH_GO~lT{D~KGwgzEp#P?3?i2iHRO?Swn}IJUbZ6ysmX z{d$fSniVuqS5`pV%R(gF69In@`~oUFp}ForcQ({)vPEfX zHZeUz&E^gRQ!~FA23Y*`>fOqBL>;DdG0ye(?Q7f4Q@^f( z2!GTQarT0tVqWI($yfC71x1CS|7`gq2^n0OX5o*dL(dnKc56+Y#BF{-d5?$(GSlXs zVQ%7k<|fWEH*pTu$2<9a`9L^AWSD2LBbD#5BbBq*k;*yjNaiou*~Lx>zfN8*-ZdwA z+O5)_d&w|U@!;G$40!xJ zH)UDR8aH4aLIx%*B55sJ%~`9QM51-5l^i-rlvWbdAxb-m2NK8u4_e_$u8zsHXe=C= zg|jdOW|}pL^F|tw`R1nF%r8e&SI0Vy0-1|JI}NfD%>8n27R1d&}Z z9pLoCdL@~j^3`*NKVni&Ys|u`U^shiP)^x+1@XkHU727jh^ktqnz)>-DCz|$QgXG=9S|S7xbjh9L{-`*;kijohPmYAYisWiLh3G4CEkaRuF9{-;OZY z4DyZ$6tTySUp9<#ft51uT@;on7^U8-iTG~>bFgJOvNU`$_;q3XxJlJFmENp{(ZABd z=xLP2*Hg6kdMZoBhp{a-o(dDFkVh_0-9T?l1W1xvTY3?PYoSU4I9r}DUg798x?5afm}&r&opZ6Q(fX8~nG#BDeq9$cL%|)333YkE2 zQD=ZcQfV#<4XISQmFA+-07Xn;5z|x_G5v}~Ow(Azl+GfiNi1TT%p#@?L`;YldY026 zOucfQmr*rdDPU!&vn*v%?*xhFt|!xA&=rH0aSCJVWK8oJ(*nk{Pyt~S&ST4jN0o2b z+43zrl25ZExsx5qn_rNwckUrZ{P*X1?aee4R}71^(Eq|hB42`?-q2$e&~Q?QT?7?k zXF-41cUTk9W>DtFFaZRu=v5q(s7-TYmimExN^3(O4PZzX+&& zI<_Xh7>f1qC9=ivC9#$84PwjS8-^i#DX6*}GNH@1QZTYk3^15=s42X~njgX88lQanfBP6B>#mLKQVsfMkP<5$nEbSUgm9aD!qwTe^ zv~Da_e{~}Zb^PBZ3L^-lz!)q!kDCJjA{&#K9s)YLaS&5QAck%n#qrxpr z!HAfgcuVi2q`|CM>NN{Zu!EAfHY8zn>Y@*#>o@Mi5Kr5>OjMYI1ugz zs7S|RV2Iq77c31+dfUB*iD9+S5^7-fJk10oM5=C(Ayh5*>wx-+yMD~|Xu%a^n0~_& z{ENh%j_%-7>-6gwL!Je{j3v+F-|_~xnZ>k4h1`Spfx%Tlt44=PTMDg;X4;KG(K?-t zaortq#RdU0&avgXLGR_Ind_96QB{ULZzrf!v6}B(?2CQ*P<92`=d3rIZ1FXK*mQsy z{_J#($A;Ng;Nm)>_Z8G9YlIN)8x}i$>tK=dX%>!m6026@dc)dVo$adx$;~_Ub}0 zSR3~qYYqC|&g1t4-p}LTY}jK}MybKrP`|p7;wKbWKr=o&$k z5hNI=wxQfTf>0kLZTx)J19yC=}@G5+_(b`QgfQwIWw27uU< zyU@+Rec<#fpTJvfyQitCG=uGf5 z353+1_B4__;X6-lr>C(pPZ&vRyF86M@`R8_T=LM2xOPus;>LE5_`8Qj>qm%tA9~7x zJB?WG!}XT^Pjc#$;W>pb76{An#tD5hRyLSI^1exD?kz!Xb)#BjIC;@^!sDn{VJ2Wy|CEB6%v$BemU6%MQ@8CK{+4;>2Xf zFWXtth-;=aryARcOD4NheE;Eb_on3gquoU&smL~zua|h6j&BImIl-D!va8(;KD-BR zXYfFp6GLJs$vq!y3W#{~qFd%Z3aoNlKHuPvZK!t_HSHauoL8_=stL+|Dl}0` z)H3A&d)azCz5b@!{j{QtcI`)Z?EzZxHtjkcv6U9dZ0URbmXX-*hequn_y&B+tC5!`Gel$#pdd38>=JGjyn zEw6C9OM?_?F)ohWZp)=7dlolCT)KF05@wbz@56de=lQxOD&{XvGvLv%c%j_WG8o1cgIH%p!S*zj$JK6duSRa4F=@u%!@n54IhiKZz^wwaaE2bl{>ky*h&fS5w z>l3OR)>^Twb(s328dd79$7PDuudhO)+wag7 zOhY|PPehn%geo2H*Y{8w`wtj6Xz-AsreVptMx;LOM%)~h*L_nN*uPDDY02o!{o4`~ zP1$Z!xk+J^17nB279{(dM$rng~|&5dnuogx~z>7d; zkQbs3_A0}?!VoX_*($u4zyeq!7}kb=gB78>CFedEd+;_C4D~$R3{7C41S0U`Y=NE=!|)=RMjv zT+={OXSSo&bUa=?i{o@DJA+{cID&PNdEy987IgTsLWm|f$76_mo=N8EnRd^tVa=DB zA_io}IV0y#vKN8*FfZ!M5YJL(3-`#MTsuL_XRGAn*9BLXykATjQ}TrYv%@i%c2LWM zB5?wa_L6|37_I_xm;0k)-M5q%8!xbp{siyV&hc`8tUsy2T`_bvoD;6`*+kPXCr1K^ zU;rg6OnyP6V-e$f<+t*DwdD?R{Iaq7 zRpNgxOCAJ-Xdp;ZOm$36jEq>SF;~o6mgP{NF-f)Ab$qR)WWT{H;FKDz4wT@^q~F4g z{*D)=9lXc#(=z~x0C@m%160m1^{UY%iP;s{Y@X~&zR;4AYnCcnMYJnhJ;>;RV_-P$ z>{qcF%d@xh`IdWt^C~>GQ`+8I?%?w$4kO0It}c|Gx^VsQ&;wbh1N23@9);31OSkTl z3e%^CuS3*3!gXf1c1M83ODg!p?Mm*+D~OggA+sp$WE*}vvFywRmo_h|-@lc9yRQlg z^X~gST!j3L#3b5o;qxUXK7?nb?Q5&*I({4P!hHpNvX1w$7Z_EnU-I*>#rjRsYq(K) zP4eyY*Jp5x#QrNxj%oJ&JI#{6BcAt5ubEqY9nq$2AX}pB+#>sROX?;-v$x@(_#W94 zj*7D+8}3W^f#47Nt{;dM82@C|k_Xpne0N^K zciRp40)7?WFkLU-9=2lq$~7o?qNa!%WV7)cEVG0PrObs06rPCPSH{&G#8(&J;~-Z% zageL+CZ&XKJpT$XD=G*My;7=_(uy6V3nT(%A35v`f37jgv=O`+&cz)>t70ahRUdV1 z2SJ{hdJzqzH29Y3FIMehi{+l`uy7_i0C&C;K}C8C6Nab4CX`W*TJenlKAk8*QM0Y2 zx>~~=H6l0OpA_g#ATq~~2 z9uqrl1Fq9%iaWBW#IpJ5&Ov;tckhByq_rxi&63Mmi*7ex(BNi$?owP^=B(A~!w~_(!f1C=SBN2pb}4gE z1hhDG&ugqA*Ns{M!_00Y;_H7j*hg=-NA7D@R$FBPT6359enzp7|eLGg7r5r1|_2iqD%C(u#%RL$+HTg}7{=%jYauP!kzg z8#Xd%d_$2oqP3w&8;nJ=mrvjZq`*G)%FFg+E@P3G1Dp@$^%Kaaqn_2h(5oG(s!0mQ#BU&00b2Pt&ZG)cy?3%BJ>Qnzf4B?KJBtYF|UMR#W@4 zG|NWq&r!4ed1~K4?JrRK%hbM>+Fzme7pZ+CwZBB|zoGVZ)b616_0;a9_B?9OM|SmF zrGbQ!}!D`6?Zhx17#+o}%7>*Bm-y0~M2=9{kK`Z;0InkM=5@7Z*|n zypLk<3-~Qi*j6@MbB```RZ$IFCXVtNqi@A8AqfNE=a#Q> zv;QS`#p|Tl*k(=K-P|0Qxo&>o?sfC6zh0NSZqWMP|KM-wJYh4D9}xPm3X26WyIb~k&IrF|Xq z^X$$}tb1mtV>7XQypDO4Q6}5#Y@C(XjsqEX&cmNi=P8?sud5PQ3chodh$wwJZ*N7! z&lNYgL;qsm>{_`&>*PzkSY1+^LW=)f61uk$rPR9vuanPTC-o!EjjxlRUnltX@HPj& zcl9h-umGPL+2RGG*J4|52HFL!w_i`^eR1e3HoncAqYmHBCe;5>YxJ7(_N-?jPh=wN znQGo=sxd${5s|Mi-JbV8Y(D(OiEoT1E_*_{dDeVw1=RKP10S!SZ#}mD_Pn{5{b#Ld z>~e{Z>#;&r>D*uhu*ck zMBW=3Fn!UAf=&K6_QS_+>iLHh)D{pq;? delta 12404 zcmb_ieP9$-lAoD;$AkjlAsr{6>&A6l6oQ$Y35{|nd+NDh0`W{7B?z7h_j^5)4-`)SxDe9) z>Q&XNS5>cGy?XtwVme-9@~@v_DijZFm~zyZ_^d}e&&ZFd&w7OWrcN4%W!CO|!aIOBm2_Tp7aG zinh;YDTW&Fv!1h`kJBzz#sD7!VTcprG_NKqk9j{4y{AQQhp3$O#t|jTn@p5t-XBE8 z=rt0C%<~Q=&E{q*Jb8k-^aL~UDdE{^H?glisn3fmxBCpm_vy1bEryIu&E^XSO@2!R zphY*EFWObsV=4Gr^nNYcRaI;$6kTQrsEW!62*{j!-1gj@s`5a+$d%OuJ`uGj+w?im zT&fhfn8zP6L0h3Q%%M%pxp_?c8YX6~n(#r8yWjnnih+M|)?Xj1< zm!l}NiMmD#MKRZ}*E^|ACoF0&lgnECtf+NUtUgwiF_0aa>C-hsD)3cJOT(Py8488wupQiSXkHe=`|yBbjs)xg-4O|Cfqk z42`uahRz#_PSXjRn?TzM!g2I@Gi4w=bjMhBgXDcp@^(w!DLcIzc6wji*{qqA$INH! zilJKB$GH`etJvvwx4Sh{dxcyP^k~ttJNTOR-;l)TQKI?X9_2Fsh{W5d4pJrN^4*FF z&Z;Ew@0pY|zS~q8t(d)^5&Sucp}l8`a@l(t#_v%6!p8|0?zn~hHjh7OQqSe_@0ir? zJpNsidOnXoWKzG&qdW|J^l>a#BV4N4{6Ce3?N~l%KabTeVmvJH5TD_L1hrzN!RJ>D zjNxV9q{?|pEVJYbd-~4wJ+C!f%Bvle|K*oo^24-pi`M?y>gv@q)A_{Xkkg_;PT{3H z2V~ZYX#*0gD-Ga~^0Lm4iFz5BHLGpQzo3KG>w{jfR~o2(YH4EwUD@p&yqeaX`(_}kUp;g%0A*T=GeAR|AIAQMO?pBk|a z199ZjA4Go=p6CJ;eRigC9lU=qv1Dg*Zgn_)Ho8NME9KH)qMcIGxKifpb+&W!J{wHT zA1af2nvfT=&j|}(X$TYOzT>rX*EbcGL?0H2tR3$ZCM$ z^ko96M-U-v`k&ZZv1^T_T*t4HnDnK#3mHlb%tk>2`#{kV(C}Y^#`J-HM#x;q=!-vc z+0V9{>(?Vfujb0wjH4vCm8kzF@ht>)N67u=K^hVlC@GZn&gi6CV<$`Zf9C>3!QLW&*}tbh(|QA%}0J zuSe;tlsGc777esO4F4@6n5ZTG!Pvk=Wk3=rw|3vB*5ZU2<0ATMDfW0dL_O7J? zj5%+kv&J4lXRR*8nlvRQhGhfQ_6bHU)f#vJ+Xl!3OGt+S9Bjol3kzU&1c)HNMBh2K zrZE%ZECnkGMhL7WfUhNil_c2Yic#JJ%y!T=A&zrf0c&%IalnuYB4IFa#8$P0?u#q2 zFMZ;AuNQ$Lk~iBAE*Zl zppjJAOZ-Oa^P7k*et{k)tLgTg=X#baMzVnYo1^>p_b!$zQ4Afdf!hk~eIo3=R)W2A zB-lGwg1w)RCm*lPdQxdicxa^3vAWD_gwG!u0b0p5G=1N?l`h>(4 zsp}-JSbb9BICZ_mm8efi7@>!V?u%CtvA>1t|7WPkNX!=-Ap5O^`E&`EI~$7etz_=I z+m6LjNa(J;B)6-O;8!gqEvqEg*Oi7HsnXdUg(Tb)0e=hpR7r6_b3KXfEU4L%9i^+; zLiG$aTRTit&D>Tv;E1)WYg8xEhN}+B**{QSC0W@{2Z)S`iHX&aV!QU|a41j`sVVzJ zYA;06Q3MHOyc{VyQrIh?_7A)69hg%;`NL9bVJYp*p+71Ez>qG{Zcdb)**iJnGt`Ux zeMTb8nmJh> z6U8)4a5PMm!237{=TzPcXNVND2rE)8#)?!qtVp#4E0V@bx_8kX!e>yrg*)#aamQQ4 z9Iu`r2}b?|aw8;CV0s^sNpL6Dq!{cD4V6XApBxeEMaZTZ{K$rAzSS)}clXf8UeK|o zgqU_Iphy)L|v~Bs5GB~XDR0*r$m(w!xdAhdP z+B`i>8AA!>`8dOEsLdzs4vgq5)y^C#lnaBGLpOEh5&WuogwH1#`NRqxbmoWE(19Gf zb(N&;zM5X_7Bf%ye%O=8ZDptI96@faBaHBaKnDG^6X6=eeS6 z|5y-C^1^J<#JE3*I5HvqbG;8T+unsbB@S{(2!9ZRm$l^2jPM)9fZPyRpot(@13$20 zhfYZu11s%6X|E9jgM2VS4hizONQxNTgPEc`6UW;=G~|>(15!Ax3_cP@k|RjNbY7Q6 z5M*}2G`N=m=SI9Ur$P0R>$6%kQC;O_hjBUh~00hj|JB`rRKn%nZG$&GZA`_V$ z23tYi5rHE2nEcy@QOmHxY_k`IWeP@Vx9TGPieM}?%kib*oxx`a`^R;fv8nvedK&%j zdK&#cq4{-_o?izEj^g`hHrPP;Hwph&f(?%bWv-Ab8qi869VK-wWXHcr<{{SY9Wu_g znQiVG>P$59QZL3MP`-sfPSjSy^2dmJl<*%=xBHM(#^)X!?i^KNkA6?gm3F2{Ec$>nFt3Ffe({T;NT?CNIHRo{Qn5)JV=iKR`qSt zd4o>>H{_-uR}a$XL1Ip-Dr4!|j)mb&nHKdOeXj3NWz)IhL~)4ZK>S0*qBf8mlo_Cq zH%Sia3{c2lNe&7PeFsZ#h*hE)U= zVr4;pSa+}qXpayY#xMaSt>{(RLs)n~uwo|2TY-exz&b~WZzUY|9I+W5s*HwZygW6F zw}RTlD-qbk`yw@lcQ>_!w~Csfz>Hx>UN!0MUz)i}X&F^z`17pG|CLKt?`ypnkty9is(fLj&qw71k~I9a|?dXO=O}^g6xbA575(b=8S#ofwSM+EMPV z6K#{11qW!!t#zXLKj30vK&&>fu1@?cUkv1n=C?29>sWExU;xno5Q}mzx+!rIg8mE3 z@K&2IHZ_&|#o8?>t~LzL#|2A+)sl}(7G1erwa*np42`oHjK~b zogzvM4Y%d5JnFBU|4#v8{cPf@1v1ExSF`W*-kGLO(poh4GWT!!;wO<=yb%Q5S0)4_PHTM6f- zxE|u|67G%oM`QojN^)xX&i^6?P6)i!_tmSDKK-W6O$eP=$^6$Tr(YX zXt52rWHLB~w;mWb+wb&6yNfMyarQ9IFLT)ju0Al+3D%67RpqAek-cyOg$E8gFeHYO z-RZC?Ai_C5)d z)BM-fE|zvNQrBX1*FG%mN|(AGmIT)#COK1TSt|LX_@xraguo)J2_1n&BZWZ^-bfE0 z(;mEqT_S~&TQeo|D5wdH-+YudXmXP&seSZ-WBAaJt}ygrNlU{}rR6$B1c>qDAPNPl zOC?KoN=v5XPq2bZM+!s;v$)3yV`#~}redeqHm^_`sp0N|;q-BPkujf4sezGf(hB;L zE>)FPhi1|Xz3&Z9xEGA}{XqvDtij+Me$c^*bRoFuLa4CRyYpr`-R|H@SG4k&+g<*M zgkv!-j@)kB<>kG`ogyrKXh;fXmZmhq-gj|aU8W>BADU#sqyC{$rlpdgJv3(2QYjQ& z`5(TiI})apCr*JjD+S*SYsbK}gce{VEuK1F_cx}UUT21k_8zA^W5*33ys=2+m!m)e z6K5|TJ7>NaO4v1JrtXH{Dh|AsFOzx~Y2~<22bP3`>8QZelDcJ*W|}a=3w*_azn{m4 zj_+6|39XB7WS2=HW3vv$e*OEI-l;RuW1G0LYq_K@mx2lU&beG-Zp{L)RR_Yh@sK49 z0urh*Xa*Bp320b568iU9J7}Mo_E@s}daB9*@D_=_8HVk2QK?gAPGCbR4fNriFNUXO z54apXjc)y}&R!WGm`d$41NQMHe6?H>UVV5hYnLWHD%~1Pbj5TecG;z7t+OW3p0#U* zRBHY&b%oT@o~7NOev`$okkrTYRw`{hCaEj+RxE9;lzdSQDeiLPY>Xk)yXLk$# znK_2t>p+!iU>v?w??oa9;g5)QJfqWgdY8sz;75w zn6)I0{mqiU{2MrWlpe{iCivAvWPeR#M`Z2TkyntCMXi?iaE0=2&LLNFPP<}8i2|xt zsH$r`%A6}~pei01L9OxhT7jDL3R9@7r52~ihNfUcQDp3ABK9*iOL>vbQ-mF_%_B5H zarJ29+E^Iz4YAMi>#s@y{li7B5Y9wr;=C&MFOhYpx;pEhBcpx{&a}e3qt>I$=S0ky zuywT_dLdcXD=02&qrBThJrAg^7bna(i&oR;@!C0T=U>wt018J6P!UlXQh*VBg{VaF zL_{7TiORNL*I@5xtnwR#Z>{y<=&;Wdo`EfSO`n@xTm8rd-x@(0{7!z*tZ-VW=MGA0 zBy~Zyfn*V9RX5W03SU&L`{s&L^Y=9NggCdJT2%OAeJST7nXx?%Dbu2dUp?U41>iF{%0a!b;U z5JJ5PAymcZ1Fq%PyD-k0-f`flbl_#Z00gnVEG;gQrP0E(gYZrwMBC@j+kyjkdJ=FhRp zyV?Y_Uub(Cr3c`cD2_V|S4MJ0)=ti8I}RKPTZ%*8*;c`F&fE5h=EN=siWFVACt3K% z3=}MqQCEmUjh&tg@05$uriJfqwA;hAZ?}G#ffJ%!c+Bk@(R%0%+EA*wKn{%)_3>ku1bdek;M12>?ZWDZOs60^SBVfE@tpkRs9+rUS%D)wPw_ zfl*4!I$vzi`R=)b?{nAS3;56YhUxnF_OcZ=KK2A^vnYO|SlVpvhP#fE_|Y`hjFAwt z=*4PW_51id6N?W{!|B^7Kd0OqcV_!z2dw4{!fc1akuQ3|K-<6E9 z6o5CyxilFSY?ND5(DFxpHkqI?;Sw4+d*P$25AFI596cm!!^21BLAacrMo>B*Nrf3E z@fNAs{HYxuGvFJKGE`sN%c{!sFF)`J0X=}87U{0+HE6bsCutx^4ljSY_HCW(u=J}N zPULf?!0fFWiZr}XDrcj(-fLQf(yB~g8AHGDAd#<2oY9|pP^x9j5lv3#w@Z_sgd`gpYoWWu1 zyHV({;FVTA(8y*{^w8VC=l0U}3tTn0qe4R~`q$AFMiE^)mPdj0BS_8*dsjA`UQqL+_*gYWroFaLDP`C6)- zoEeI59VuyLwz*G5~AkE3M^y975WY=looz=IpL+~lVTyD+$`PGqu^$^DUJoF}eLCW}^PR-B#~0N8gH{gcJ;jPZN{yNuif2#rq?%2&dMJfE};&Cb`@r{31<{O;bivAqZ@+5GpfWh zs=^Z*hgVB>Oj>L()5V&UDv((NC7zBLTr~$OJRS7b*_OYV?hEuX5{Xg;u43p_q|ZNq z29z*?)T4L-QaMB z=Aqh!(gf;V6{v)90;*uN6wz1#jS7up+^+FfS->}6Z{su3whC0o`bKV;=@dxL=#lI5 zj)+>9U5V##$xmlu#7xHc&ok@ugrhl+T({x1?kO8ylO$>9&I7;C9Xo`5q-6U}x%Ozc zVc@8nCQi>-nX|)FbNrL8q>;B+AA0;ruKMkxrwwE7Sg_GuclhLYhO}7=^GYk<)VeQT ziW_Vh$=v*}*-vcTQoi@qH(EYF(-nWq)b#AlFH~05)E)S!0Fwi$|sK{Eo=abM)uH9mNx4qPB@O L2Uc&(yzYMi3V*C5 diff --git a/textproc.asm b/textproc.asm index 75a2cd4..6721f5a 100644 --- a/textproc.asm +++ b/textproc.asm @@ -1395,10 +1395,9 @@ EndOfTypeLine4x4 adb ResultY #4 ;next line ;bottom frame - mwa #LineBottom LineAddress4x4 - mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering mva ResultY LineYdraw - jsr TypeLine4x4 + jsr TL4x4_bottom ; just go + jsr GetKey cmp #$2b ; "Y" @@ -1461,10 +1460,8 @@ seppuku_loop adb ResultY #4 ;next line ;bottom frame - mwa #LineBottom LineAddress4x4 - mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering mva ResultY LineYdraw - jsr TypeLine4x4 + jsr TL4x4_bottom ; just go ;clean seppuku @@ -1496,17 +1493,16 @@ quit_seppuku ;using 4x4 font mva #sfx_smoke_cloud sfx_effect - + mva #1 plot4x4color + ;centering the result screen - mwa #((ScreenWidth/2)-(8*4)) ResultX mva #((ScreenHeight/2)-(8*4)) ResultY ;upper frame mwa #LineTop LineAddress4x4 - mwa ResultX LineXdraw + mwa #((ScreenWidth/2)-(8*4)) LineXdraw mva ResultY LineYdraw - mva #1 plot4x4color jsr TypeLine4x4 adb ResultY #4 ;next line @@ -1522,17 +1518,15 @@ quit_seppuku jsr displaybyte ;decimal (byte), displayposition (word) mwa #LineHeader1 LineAddress4x4 - mwa ResultX LineXdraw + mwa #((ScreenWidth/2)-(8*4)) LineXdraw mva ResultY LineYdraw - mva #1 plot4x4color jsr TypeLine4x4 beq @+ ;unconditional jump, because TypeLine4x4 ends with beq GameOver4x4 mwa #LineGameOver LineAddress4x4 - mwa ResultX LineXdraw + mwa #((ScreenWidth/2)-(8*4)) LineXdraw mva ResultY LineYdraw - mva #1 plot4x4color jsr TypeLine4x4 mva #1 GameIsOver @@ -1540,30 +1534,23 @@ GameOver4x4 adb ResultY #4 ;next line ;Empty line - mwa #LineEmpty LineAddress4x4 - mwa ResultX LineXdraw mva ResultY LineYdraw - mva #1 plot4x4color - jsr TypeLine4x4 + jsr TL4x4_empty adb ResultY #2 ;next line ;Header2 mwa #LineHeader2 LineAddress4x4 - mwa ResultX LineXdraw + mwa #((ScreenWidth/2)-(8*4)) LineXdraw mva ResultY LineYdraw - mva #1 plot4x4color jsr TypeLine4x4 adb ResultY #4 ;next line ;Empty line - mwa #LineEmpty LineAddress4x4 - mwa ResultX LineXdraw mva ResultY LineYdraw - mva #1 plot4x4color - jsr TypeLine4x4 + jsr TL4x4_empty sbb ResultY #2 ;next line (was empty) @@ -1628,24 +1615,17 @@ TankNameCopyLoop ;result line display mwa #ResultLineBuffer LineAddress4x4 - mwa ResultX LineXdraw + mwa #((ScreenWidth/2)-(8*4)) LineXdraw mva ResultY LineYdraw - mva #1 plot4x4color jsr TypeLine4x4 adb ResultY #4 ;next line ;Empty line - mwa #LineEmpty LineAddress4x4 - mwa ResultX LineXdraw mva ResultY LineYdraw - mva #1 plot4x4color - jsr TypeLine4x4 - - + jsr TL4x4_empty dec ResultOfTankNr - bmi FinishResultDisplay sbb ResultY #2 ;distance between lines is smaller @@ -1653,16 +1633,25 @@ TankNameCopyLoop jmp ResultOfTheNextPlayer FinishResultDisplay + mva ResultY LineYdraw + ;jmp TL4x4_bottom ; just go +.endp +.proc TL4x4_bottom ;bottom of the frame mwa #LineBottom LineAddress4x4 - mwa ResultX LineXdraw - mva ResultY LineYdraw - mva #1 plot4x4color - jsr TypeLine4x4 - rts + mwa #((ScreenWidth/2)-(8*4)) LineXdraw + jmp TypeLine4x4 ; jsr:rts .endp +.proc TL4x4_empty + ;empty frame + mwa #LineEmpty LineAddress4x4 + mwa #((ScreenWidth/2)-(8*4)) LineXdraw + jmp TypeLine4x4 ; jsr:rts +.endp + + ;------------------------------------------------- .proc DisplayStatus ;-------------------------------------------------