From 8603308693c9a7a798bfb0f307fb2338d221d5c0 Mon Sep 17 00:00:00 2001 From: pkali Date: Sun, 13 Nov 2022 23:57:09 -0500 Subject: [PATCH] no r+ opty, no bad seppuku frame --- grafproc.asm | 3 +-- scorch.asm | 4 ++-- scorch.bin | Bin 32768 -> 32768 bytes scorch.xex | Bin 49108 -> 49071 bytes textproc.asm | 44 +++++++++++++++++++++----------------------- 5 files changed, 24 insertions(+), 27 deletions(-) diff --git a/grafproc.asm b/grafproc.asm index f885e05..a084c0e 100644 --- a/grafproc.asm +++ b/grafproc.asm @@ -1894,7 +1894,7 @@ EndPutChar rts .endp -; ------------------------------------------ +;-------------------------------------------------- .proc PutChar4x4 ; puts 4x4 pixels char on the graphics screen ; in: dx, dy (LOWER left corner of the char) @@ -1903,7 +1903,6 @@ EndPutChar ; all pixels are being drawn ; (empty and not empty) ;-------------------------------------------------- -; rts cpw dy #(screenheight-1) jcs TypeChar.EndPutChar ;nearest RTS cpw dy #(4) diff --git a/scorch.asm b/scorch.asm index 4b29d37..c7effa3 100644 --- a/scorch.asm +++ b/scorch.asm @@ -6,12 +6,12 @@ ;Miami & Warsaw 2022 ;--------------------------------------------------- -.def TARGET = 800; 5200 ; or 800 +.def TARGET = 800 ;5200 ; or 800 ;atari800 -5200 -cart ${outputFilePath} -cart-type 4 ;atari800 -run ${outputFilePath} ;--------------------------------------------------- - OPT r+ ; saves 12 bytes :O + ;OPT r+ ; saves 12 bytes :O ;--------------------------------------------------- .macro build diff --git a/scorch.bin b/scorch.bin index dd2947d3207ab3506f47041f247e50a4bf6faaf8..8315229bce176b3268d32dd91f5f82ded60d9be2 100644 GIT binary patch delta 6490 zcmaht30PCd*4z;G$c+*)Aj_~l2_WDKXkAcL)C-EJbvK0oQjNb56;au_2v`&u1!NIK zFXe(1DE_~tZA5KBL#r>-m#`XsHoKYM#cttk*{!?@ zo5IuVHgqu>X?CK0Y3R;Y5aE zS#=|z^rnnUB>#f_4oykmDYl_rt+iXs+MG#XXz5=Nj2kpcXBX`Q=4mZ3uiYn`v&0U7qe6sSx1)|c=m)q82rE7C6I zeG?j;ECtEe{Askc@Tgi4AxYp)8eC9k8VXI})NBT7tjM-b!M=d>d7=}T+k!^jkm}CwoxM`3C9-5K+2X}HPUFfEvy>G#%XYcZ3uN1 ze{EY}Ubd5`&{-Ty8?2hrc(-eTN@9dr@2QNS8&j zQ*nGY8_&zwggTQwCDJ`uigIz53(BaC$?Zhn#UKifpVR_mU136_b!M>7)7R?6hBVz% zJ*Cu%3^JXiVUo@S;8E}B%!NjOw)ucmI;6W(>T(QA^K(0y(Q9E~b*!X+z;$-@wu;zZ z=KVEF(>AD|f+`{`x8A6ru%j_k{j zX$2~bS=T_|qX)y!92|fL=q>pdMIFG4!`#EEx$Q;n<0zktvBF;VsyTI6v;Jo#I61gU zl!U!?C$EXm0uOc*lt-obXAf`bGnH}kV4I$TU3l#7IWEpl)q9J(rL)qD!J@ZNX&hsx z>IR5Z%v-)3bGPJ)rYsN@TX466`>bBUgZlt31*kl6019%dI7hvNtI|0X{~L_}iTGnr zCG`xC^h%*dv}3P#DNogo`w=oO_k4s*e?j>{q)dzIi{{I;xW0&y-GPSPtVP&u)CejF zhm7)tZ`>&FAk_{z_idt>{kB-td-eV{8Izo#jwNz!azM864Mnyegm)fkNO>!htX3oD>w8fnp2)LTK+BLKAsYwuI2Z ze+@)WG966tpu13iLW$0+N$BIl26V$U-i~rAo>u{}1j6iVTHvp|ou?;4m@KlQ`xO$@ z>lBtGf;r9^XMdgTrSe8v?5~(gox*Cxq>O=O^-H<1Ll$VwwFUQqD8>$ivfuEHuS;ZL z`pQ3pI{pMAk=b}}w5>TC~u;5p{+xNNE(J``g*&pSP#J!ZVkOD%HG@~?Le!d^&f&3hv7~{ z94_!ZO`XQ`{YKKn;bHYDaPbMgzQr#})V=|4_jAL2es&~iJoobxt4ypfrE6AAAZQ868S^dPlcYJ8*^nSgH}9_xBL}uo3^uUqN|er+@|2T)ZK` zi%P~N@I8P(3UH@B!v6?xl-q4u7|#7TWSA6gr|YTQNqrC(7dQ?z;vs=!9qcv%tT$UP z>doPDx(f7SF1st=Kn$`hka7HYQ*V--%T2UobGbr;B+xqec5a`TEo6@1lYt||8#bYj z@zubw0oPN5x#PEYvnuYt`%Kt45E;yUcsq%W;o4yw3*+WHG^=XvqXi_MGzRtaB)!42 z`#ac%4a}8inDQv2VE~Yd&>dtc{ZCR1yUqQbWu(KquZ9q*s>(xqr z*lW%V^Md50#x1V?b@M}M1FL3w94S?_U)8Pr@T{B+EHsS@d$Mg*`P7fm^*eC*qf^uRb zHkecO*{~|mGmbYm>IAxU$9BhnHV>4LCJ>wGq{Y^PS!#(X!5VS^CW=@UtUL~18ZQ%F zPsM%X5ov5DxRAzof{X9VnTceMpG%FlzN>(=Z9pTK;toh40K9p^q)}nX-1`a&j%W5} zV$$YcXuTg;xppVaCQqbbI!jQ|3tyh#0oV4E3DY3I2${Hk3E|V3>dk=<5+1^4%52!8 zt)W4f9iLfC`Q4=hO&j2_l;)NJMmRNuLqhUD551X?=e;&JoTeueXNn%D;;BJnC=a|T z$j8=eyTPW`gj4Oy*r#FM!wo@+&R*N~&LFJ;Jx;APY16Q(HVr7cPXnh0Sp9=5#f=!aB%dXh6f7^0vKWlcs)DTIgu+PYDDDJ@)kF)ds>~mIRsj@a^+YCTMrjeO)&RG zpBeiFoT)F7#cs%ur$W}>f)u5M2R;A)>23KT1N6-E9HpQccdlrHl+zVWloI*)?o_F@ zqSPo2d0?|?;gEPnPVfZ0IgW+;6CNYeSfz%*&Fg?CJ&D-}Subfi>jS6VuxH!mB#hgla4(^OWa0HFv3Yo=#Xv+-}!J*jBy5V|(Rf`#&`g@J|`8yeUNpl0sn z^3DT28AvfHx=r&#icZmR&3DpF8*U37KB6rP5|6<+3nT8Ip-vNWvdNOb_sNo)Pk~p7 ztgQu+A9T`%kgCXnwWsMmarJ3htE2l&s&zDETK+SFs0BEF#<*cQ+3Om6q(5FbMFTV3 zm%UlIX@={F+1nvJ*6@~Zs&iw;@C;Drb)1=?P8OULVNqvtdHaE$>p*Xcv9~%87GJ~n z!cwM^WgjYO!th& z18_dfYE|gBNTqQL8o_@oa2kJ$)Q+e1BZY{h4kx!*vJi}*bPG$aSFdB$Jz(a5TvBfSN8&X zhw^oggoblgbdrDy^)}QGU-Hx0D@v%pEsf((l{yQ(74k?%pRZ;V`A``I!T^#xQah5& z38sS=0Vq~|lKnbpsc8mUR3bbqfHki`ddO7n(q+R$PxE#8&`c`OvCy~`DyBhoxI||O z1KR?f7#hAnC=izx2<2jIp-@deE6@!A+>AnAnrK6oQcne z0>hMvEd;fyM2rsK4fpe`+@(#UtCMJL3SGUP1}%iVOrB^BqvG?=lW690KAt?+C!=x~ z$f>DU2SeJ{Ctyv1`dShl_`SfzRYCCsMU2j&6~PvgZRC+kb1h0na+MbbLd_qqj*eL#{6DTb0rChRXZuvf{5|dzrDr*i+vBwn2u^-x z#7KGN90` zTa3FF?1YuhSm@;}Pi0o_)&5GeG1|v88_RtGiSd_g9O!-$QuW-0V}as>p@ePaUib&_ z7&ewa3%L~NRSMNDN zlf3?y6STpdybC&`iV~#3dlz~8RFuG>>7bQ^p8u5S{x+RUvA9p77xBZ2?$MAd*6`-| z#-b5Wht`w#x)cb}=kL+Qah@x1O&MvOqsR&q1XsqU{oGkEp{4Z zz8|WC8h#jfG6~fXM028_kymyEu#r!=fdA zvan?4;Qk)z0a&xG@x;T~p0Q-+-(YfM%Kp5GCYlI&I1_z9(A9{6h=AXTcBMk`7fW)% z0TwPjXxUR*R7oq*Rs3M-G^?p);T==T;PDEFyshwzEz2w$TK@O)$K|sR?mx(sk+>l) zexkE&eW-Ze&>;}xytkK%elNq<-d<|sU#&!`<>+uZGR4!D`BRB_<1**r0DU)kdv;+- zMcpt*ci*v-X3RqcxOUl63!uGP&dBi}%iM0nYWt3 zZCn64{sm3O@&Nz8pivFTsTHHZYVHVJ72Hv{Lr_@z_sc0tJi8LA6oRJKR1eq@=kCSiSQUQz4U*B|^LwsH0ki`clM@c5?}etBvs51JDdmw%|`v+FM$ z$1Y9UbF|~ib*Y5VlQqGLH28I@CLG(a!yKr@OA*6Qk-^zeD&;ygNGl=CAJcA2v&Hr?_@S w!Z#vZoapu8yC0ZR3f!XJZ|T6Z|Kc7yIO6#m9V|xk)rTBAX0)&0cwp%N0cM2y$^ZZW delta 6144 zcmaht3se+WveUz$FbwpF0~tO87sM3=0TmQQK?4%R=I;+bapWTc4l4{wL@Cx^S4pb;#$fgEVpa<35@AVp1pm~dQ zyCv;cJ{FMZUM)zz<4vNo6>qC}5#m&)$KZq>9Y&eCjEXLR9UN6@13B|^_YFy(G#4CI zT{=tZXEdwoH09*fswPv|jV6#ptyZ58VvPQ4T@11bATRH#YK?4wlx8`a=5 zR?CR*@n=@$Gd?`T66kxJL>kP853??n4t?lC*EZ?@5q4M&%q;k&0jaYQ=ptwq6~`lt zv#cEmbyubJW^Rp3SdVoszL7bJI&Zy%^`slv^O}<+1+bT1#(L2Wb>S%R6mma<$`W_C zaQFq&@&7nIh4;~$u@jZuuoj28h7*}xZ@Dfe=IfLA!y8pGs{S_p10}>XoJg#M9=U(? zB6|b^)`d47oxqRgxJ!RdHXaF~)cpdE`4e_?Tbwd0d31ys(V6Q-;L;IvB88fjJOCJ} zh&6i-Gb8de6B?MRW-=oIW9BdL0b_ud0#=?jg#|hFjJ;mM)a&f3end7P5npvv5*U;YVny}A$B{Codqnj?IWwFlqKB)5qn|&1Lq_dQRk9+wlj)>yqrayy zopK;{vOhpBTMxOckRAr>KIf^asgqP58o~qfJnVm;VW39;7i{S+FL)tv^gjzsV@>E9 z&K6+Z@b7ek=r0E<^jL|;Ra|alLtnPNtzLRVDKY$kzR2Q2cQg4!3Y!cPB`-_FjqVCr zDrDA5b8`B|4ETTD738lsYry|<4M2irxgZ=L|`^(YAQ~6|mww zJeTMe-t754@lR~;=%B1)%MxWrn`7E*v-3z$U zBE4|5m?`cr*Nd2<{xSpSka@n8{lmSZS#qW%&5SN#Dhv`|alqFlV zMGtX{?;;<|ya48%uaD8m%)4U(It4@qFjv0Lq7#`efRg}jyHC=|ZDS-)#O4dp^KSdtE9!iR^D zI*(ytE1|e@QD?y?Y6`2-Cu+1RXL3Sw6V{1Nhtm!iGozDXK_dZ6h_aFvG<>L8rDUz? z3dYfcfaFKe6*LQS8?ze;)D{m%KMjHq9aaV~iID9QJA?yC>`YqC`8ruI97q{R9#HES zeFxz_9XFZ?K2HM5!%5~T#FI%*{M}+3p=BO6^K&kEA@)>8 z`^h*{uKFQvxZ~%<4dcea$=`PNa|1x)eOS-}Cg9inm(NpYGk@|R;NrFCa2{)WMC!f3 zi8l^`a5+4n$?%A%Q5?i0 zj4fzxUZbE>O(%D%!Gvlx95zTG0(>Bj76z;pF384*0+tZtxGNw49`i>5JB5-w9K9@z z_!!qN8zf%u+Oa%@AbPqk1X>VQA0E;clk_pTd~`EJ!_^fBi32!br90=K#FeiXd{zq~ zT~3NywSxR`?Zn}5WpI8({)T*Ien$Rq{_Xq|1<{2&3xo25^0SW|I8u1Tzc{40^houQ zvqw6QTsv~T=&PcqMV7^{6uT717JC*43BJl zm=;PW!ZV#TogcRZyU(0li*E-jrslr{FSL)X1zqh_P9bX!TekwE0Yh*Y9JZ>EP~&T> z+@PR+v}#9+9}PWCI|T#h78t;1z)jiHtYT^=11W;auSwRjvX6v^vX`Xp9D&kyI@aWO zu`_ur?pW}5{K}zR~K7% z6zy&ulHUEek8JBB;T@V?g!5l@E>Pz|=4oKfeq+q9vCob9HP&>}M2T@@-P$}0F4%cVkR2~cW<&I*RS3hKvF#?FJ(kp_zv&>-r5CxOCcP@i)v zz^r;9oO(~Vm)l^e_Asf*BDJ}sCW8bk_)^hv_@EYLcvHDJ|jC;Q)3>+`}4z#E|?-U(~0T4#O zBC7f|%gf?c@bbou^4>AZBYsaFl>VH&jt*X)kp=&<*3o>t*6>&^|_93PK#H`{$&H`l-cJ&}IIO8g|!$7(Xr zG=3x(YuGo+!L`2@ay=JeTs_5AQ^r{2Sgz4SJew-YiwMMLqL#w%r%^@lN^gi>Ew(zP zl|Vg7$*OT<^dZ=SB4(~)%>kkxpW-8A}Yb249YugWe?`oY1T@fVn2CW~d zlj)rvun~CYdfNhC9rE7C=PJV=bWaVgkfnlOWTksboyefl%`nX2b4AGsstr%3g_$i} zO1O^sl)w`}xZZ>+IRS;RZ}c>GYZ+2U=uNc^q|UFyV!Q#k#u<|GJTVt4+6LAdqK!+V zkl>2rsS*rg3?b8G;Cbs^?9?ZC-lms$`F(JkJhs@Ug(UUHNuH%0=Wm!tWa8!xC2*lVH=Z{8wzl#t30*e+ zXk)N>(y8$7#8dF?1jXKtU7-17;ow3neom| z8->nwxO>w^i+GI^ovT9wb;uptZ}ujR>C>OyQv{2P1!nXG?;Q_wVo| zPswQ%p$!`50_1AuZAjuMt?Ru6f)Hh#MPJ~nTfE3G&IB+w$4u#)@HFNE?&+3!Li@8A zZFLi!Im7cf;ayv;$c(dc=4RS-J|}U9`RL7oT!WNq#uvBxxOg3d?m^r-G^Dkz57*AB z4_Bi4GxhJ+KY)JY($27!Y@ zlmJC;%C$s6U3cR)LU&hcXlrl#S8KbieTY>0ubTSU)_?ccf6h(BN89hGHTRyGIWu$S z%$b=p_p=9*V-F;q-@ZnjI`Q3Wm!;G)+_T)5dJliT{AFq^evS#!@$ULlXLvjNfPcU? z^DgMkn3kVgSMeU`jecIDr#?g1BY6ox(XI7pSmpM8{h{DvCmfqEW^w)V_gt z(OYN-{6nOUM4K37XMntWm6Tb+@Gh(dy%vqqGxg^r{4m1rtrRpX#)OYEk<>3(vf`B& z=K_^6nKo{s`@*EmTg%N}wA~9hqUW|S3zpw#l*2p!EZdCE?P4}9=iLbt3C>^fitq6# zW0ay#-Uk?D%0MU=y`O=K@h2<%hquO{_jaNyyU?s$l#72^5uuAtVIm_<=00mEZTGb9 zr|nX7xVBGjN4c4%ZB{AGYK{O(kTQWQ!6aXz;>|q8wwpB8D>3?B36gF@8C$JUGJ7CW z*PApjK*OTVUZ2`V2~zaKX6~Y$QZY>{kOVCDrZ|GN6E47EA8i|>vny=K?robQ_@U*s zAOs=tSAt>n`{;2OIQaOwZ&_2Cr_cELgog}Th-$VoBlqY7d6>S zQpgAEw@c7DyglmqK(E*z$)8>+aPj)*gryQTK4n1!ILC8>*$bbD;;0O~F1qiro@CKjQrEa@oRE!0`5&NPm@QXgNKQ_ZtXUYI^T7EH`#mm`j9Jw$WJ8LG+=k&Zh@HW^TqV*fGp9l&6LVU z3nOk&w3(u9UcwK&Ct#VKZ`gc<;pZt@eo-W6cH*853LStwgpo%n`u-Z3b&bsCCbVB( zBO}x@@YMb{;H_hg?A*ChbH`d)tBb`u)+nbfbga>vzSeIRZg#AbSroDCHyy9bEPk>2 zM!I9Y%n}ruFWE@O$8PU)q=^gz=YZGFQ?s< z{ZClPfek%g!W|{2P4#BA)slg%78fq(>oqcT0P8kJjC{F~`52-Cdj)xI6qk!G;V(Ci zr2_E%js8pFT;ABg@76E%;T8I2KCssPa{ht7PTum>6NUz>@^i@c_>k=hhV9`4#$Az1 z_&_-R-2kYJNAX<`wMbR+p+;c@>tUCVX@g(w$By?M8PJ92WNgZ7wpB7+VO~ z?Db7Hcl$0dAMAq(h{)W5ZDG_t09i7|C?}Kd?@v2{I~dd zR8wuj0?H3BObDM69j_X9B`iB+zdX#dt=p0yXNu$Dxm#}1w1->e^gUY~c&XK!zGuK~ z3Da~$DJxM**=5MT7guAjB~`ofi8Th%Z0Q>bqv0YWlLi7D?4-yIVl(XANPZOC+z`Ph z8X;!#ktyv=b%HHaknvL>t-WR3Pm^(opx{FY8Oo_gi3d?zf`je_0uOwM81o1*RqzC_ zw7_JXkvJvj)pf?1v~@_&E<^YrRbv1}_WlWko;aNtK)v>)|AOio2p>nB+2f}~@hA*v zIL%qJFsK6e1}Bb^vHjP|-rM7KGyj|@} zoyKMA*A=JN8TJP61(nt&w|ZI^#YVVbfv;tWYRBJSZ|y3jN%$R*erms+Hg*LeYt|o=CZCc z3N{CFRw>$nt5c>>JMgV4%szpAhu46E$RKCE zs^*h`w+v$PlZx1bd3RD>@o(d()R94Es9p44v{OA%3D+%TB!Oi$5E6Pwc?TAkZ+VGw z#qV$VgYGHJmh(FlVcuL<_#jMX)`BhB&-nt!3Lk30fWWk0gDQRnBIS{zQu|LDvZs+; zu!uzYWhBZ!VBdm7jEmAdeI_^WKn`TTHkqZ8UWSpGgb!D%+A0(Lx=u z{($?_rs^OMxUji!qSnz6_+n_bgM_D%5X7=lAxuIPbmEfG8D)7E4hsF@I8 z2Xn21t+hkC4P$d4t!CNQ3$C2jb_;LRFpFhddAq*AhY!>5@KKpG?^e*37gy^IKGq6a z4BY%7a1$TVO~4ctG_ZR*VkhGpnsDFyTYnQZZyTas#T&Lwf!~U4(Gy=)gA0Q9U4EQx z8nIvoSdjnJ33kQO?F&ak64IzZWsSGD_YrHb%uwZX?Oczia7Wc4Tq(Vp+ay>`eZ5_7p6y22k`my@l-dylRjSZ{dOFX5lp$^`5FF7Rr;z3?)%{* z&C1Mon6ax zX^~xv;pBLPS{p{1Y2nyEli>yMpA4gQ4vI) z$!wv}t{9@%qY;F(3#xD~0g_2Vr=&NL_h7YT=aK|TZ*p(a%wDbV6GX$uVFL-UgNcCn zZzu5(;I@Mj7iIfWp}0O9=^k-%5Q&?WFgV;H3`P#{0EinPJ1MH->cEC`NrS`KB+x1u z>UL2BkldTtn?RIO@eB&&pANCd+ez;a8J08h-WS zuQ}(r5f6m}w`)M$4!&|RXYTVgncUlxDDYo_6wliRp3H_-j>IV~QRc>Gqb`dPx>CKcR) zJ=~)RcPVokkIM6dygVx}$kQPe?oe;!EplH{(50Rqjk&xRBYHfji z7@Xat8eNT+`7#&F@>51>3xq(}>2|cFpv9$2%O-VcLERcHIK>iNogYT!;`j2GQp@qM zg4xt)yr>|YI*fM~#8WTe%LT9aEQ^Dp^JadRT0cV$B13l+coC3FRG@3em{H5(RNNLe z4Q#U2J#E6)3C@2?E-lq?;^vM;l*c_bjoX^qj_2(9fGWmrg<~g1$Ed(+j=iup(`>}k$qTVL(QpA5fhI%2(v+X|njn(&8(6Jg`- z7Ebf~I!50kF<*|+zb7$&6QlpD#QbfH{%;cVclc$Uzs?8l`4C1SoJ}r_uudwBP^A`T z73vBr3-=dFbd>IlF286`QA%M-VPo;(;v>bIN;D;1#eXS2Tl|mWpNjA99##@uGP`79 z$?}pNC2=Jwg?md>yc<-d!`Nd?bgB6IjN{c6pni{DgTzBJ{WXkKLB6;5GCw^{=iE-%^pML2gn>0_y5!T@WY4bnYdDws2O)o|Dv3;>1W9a zf4rth?p=Ps!40M3jG_oC0iP}!m$>HuNE{}r2WtWK&d-z!dtoQPH(w`hi3bN%5KxXm z5!H;=77_JRi%3iuS8tl>bAtk>G8tii5||mIK4P<=)JCZn*W{yAnO>@ zRK$CM;e0>^fKUX2zbP)F>ac3}IO+&ycdydjUfCxY~3&^TYK$G!#A&E}4%*rN0UFa6pfC(_Dh_J(^3zu_e#=eYu+~ z5~2`Uq`3!9y~Nv_NW+CC0n`?Juw*u6!k?DRc;?I9DM$L`-=FWHfefmU`PjD<>FNp~ z05?OQ;Axefgg#X1NvNAsQJG_Tek|`h^fr3vZNB5}WEmKwnRmj?j**`e3Bv$D-q&9t zM(L*+gwK~U)M^~SE`wh+JLWYn;uvl%Nf5bIjy*X70i-N_;K;xc?#S6=)wdz9wO=bc zBEm$-T@qvXBK-p&(wl?iCS`o^$1DPlc6M6i?UjrVI~4p@T4&Ni0L&mMvWz51u_S{Q zQcb2w14)u}5X(v(`|S1DxFi9STOAj(#u5oO>*&18>y*?cZB^%<5# zynOu`nslb3aZlM~PqH#$3QEGa$|96W`P^}m>)Ax^B&h+|WO5dmXdL}!Yv{XW{76x9 zJD0#7=MvcyToQYdOJ@HF+METBZD&alK-oP?dm%-PDUYK@;Jk8U;F1FK6I&OFVY8IkUt#Nj;m*oQFGDkB4K%i-OlpPA9UiWg zVn3y;LhP=bsT7+pYbtHy0cWhVy#$ZWN(Pmi^CXjK=)w$Z2N^3YrR$jPa&qOAGG{75 zu}1K+^_3xGZ@p>VMH@3{Yc6d}qd^Y{&1rCwykS)R(ftgX3ByM!r|53I32d58nsC4l zibyFCU(TSzz7i*Kjc^-=TdmEn6TyBE58y9M)@4YG1P5ke@0a&Mx zfkgUW`ZZpww}p(9he@IPHlu0`6@gb*O@pGoylQe_Qa%&Em+OJ!@*bOL9w3GE4^T*t zYXIsb{BaeclCZrhK>4pK5c2)F2Dy|mRKZyz5Au%3?wjb@RAn1)Cxe)MGbt@D-#2x+ z^XNlg=F#bYD2Aj;l?9gJCXi$VsZQMICt?Pf_&(c5CSyr;2(+iCR?mjt&DFapAN*tW zLa&H=s|@ZP%rZQ)W*4mUc+L1gbv|=ypY=AWJbr=7gZluE|A%n=UDz{lDY;WK9Vm`I zLuQ@Y2mb>+flcJ!cT_A$jThC9eIdILD4xcUSv+Nw$y;5CRI%Yhm|&qQC>U@^{i~QW z)aXb1@Taxc;Et)`BxxXw~B%PgH1LzAdQQbxU=hYDg)22C3?d^mxHk3o%hd zc#DyhZJz{4W;T3TaghCv4EXAG41ZiVX6im@9YE4+hU{Wf2thyctW&AH-%tugVzl4) zH8H+^uYzXscAJNNyd%ohG5z>qK=WuP!Ax4`3}ysHvKPd)IS-|G#dC)Mi@(JJUn*uCKD;wH9CRpf)3qmPPrHcawrs*kW3>!B@+ zk2Z{+0SGN=1ZS!KR{w2%M#EIYT7$`O$IwwvqLpj)J)2MG-AVV`EzW5wbiCG}go}=! zA)I<0M;jK5IUR*=L~$34>lKgyjPVL+RTwo2RAp45FB%YKK#BOIA#}8@fxW_eyZUSeeEZ2!z)b=;RAK7iNXcLW_C2_g7JI+q>^TM|uK_PR=IjHjUlxEp>Xa3 zTp2DvrIHJ=*{o&Dma*CfXmnVX#kFbYOkHhH zVD>it8Zl|LeQ8^k1wL13Ee8CtanhV27qHxmQ)XywiPaML5}<{ELtG#jTwr|XU6j)Z zcZGZcp#VY?2%grY@XKlJ&4;`F5GF{Z?adc(O_Q&PmEVBx4&F~uV11MSwHYBC(s%kTz|HqGtQK8KGl)U=4 zyUt#_Pmf)&si5}MCpTREW-UlBt~hq)lHGlB=*;;`S4ORVBd?k3==$r|SFcNb1IN9z zacg1oQQ^{8-}Vm&pG$pbI(2Z zoO91Rc3=9*eQDQ~m#8m}fA!LU6BUVjR(MmV@ud|DsX#oA@z?79c8a&L_xby53ok)z zoZ(Ju4DX6w8|0-r>J#)`G%p1xvaLmtag#5G-$GqU_SPUOibYMU(AF5#wvLzR%(NZ; zAxe%$>lk#40rJx^PRvqBsfqit@M1GLQvovrIv+K@5ZxW(c`v+52&2~LdPO3>8js4$JE*mk4Z@>QI! zPm1PjL9LmVSh;N?+S6cELkGF9GPz%{P7s{X)imy+jZ!hqQAiSp0xHBF$U?XPhkdj) zNNe-5BAbUbMDRu1>R=M|g7}<$rqKqs#_8oEp7nT17S4!sj5vavS8A?Ni~S(SMR@63_~KJ=&kTfn8%V+`S8V3auz& zZs3BL9vRp|FJ2J)wEN5=K2Wz+itga7*lCn2Zi@AT=R2_+wH2>j)j#)&23Yc-!xq$& zjlNeyi$^hW$PVW|y&UUhQ`ETJi}hl>Rt<wWyE;E8~|r?~GG1C-D0Cxia7vbG#uw%T0SJ3#QZXOTiYDU<(Lr;V#%hplA#H zkS<)xFVoGE@(Xk`r3hq~l1)_>@%_49DVX+Isi7WDMbBP|w3?FY6rXUWNYmVSU83Cd z=XhO`oOfYO#P%K-9@rJ^19F(<&q!;`-o%=K5k;f<>(Gf+u%VR7N(-ZJQM8Got?t4% zyc=Mdg4e7H!Sg&tD=&)V1mGe(b(Eq9*2pbu@)N-&kTZ!> zHq48br1B+fD(}UnwMwe%l+{>?4sHOl0Mh}bFc!!vX@lh7iAtONY)^pjlR*MU=5L8* zr;#nuzC*4c>_tWrXAK3VzKm~f7&j+vBPia9N!uu#0WM07HzPzk9m5IW$Hu^-w#OKotj(A<<4ZgTN;~K)m!2F;j5k??e1z_Tt>65dS3!`Z=^^M9%J}h+(R> z2?W`Df=1_$pGxwhUV7XhL3A}Zi4I3JxS1r{_mG-X_nL%Z71%47TdbTNyk35U-{o*T zi&D`=j8dl0nwRpxBeYJvT$f;T?pOX2KGyPX!qIxAesAFQD{cbSUtOn&> zPc!kUa<19xTXP4+6P89bH>i&VCtKy=;nBf+vn>WV7ruLONU9%|hF?kz@tK#>S+8uJ zYTg?dthJ&V7ptmE>i+!YcX3tft6uLWH0=%C3&O{zw7OXq#p9Jp6_5nQ-iWX z`L#g;4yr+UMIw0i$ZYN(4dUf#Q#~EnK~sYgAcbjP{N>A?x1zkbvX7#?g!8JSE4?h7 zQMba&;`64C@wyH#HU}WACW6!4T;av$ayd5{FLpb`uQHT}_iqZJ@^H_l>Dn)M`f#76 z%h=DrN&Wj)z8CXWnu?dP-CQ?&2?b?v-9CWq=05u7oKFIMI&7L>V(f#;GU{X0YWeZ94NNx4AqFmbVSGtTey3isf; zBZh$$Q<+YneE#Dc89t3qe-gC&2@pxh>%M8+}TU31dGQG)LSL&hy12Pt`Rh}y&gE*$5!$+_%Tr9OdT@5;^ni<-A=iR* zQ*c7R<@77fXj+``76|eN$*}`7u{kr;bzQu^g|;N&8<|u6Zh^WIVB2jFmBZQX5Ycn2 zYXupnvD)wqHM8`&Ox~s|Q1IcpoeGsveX^1^&wg3gq=3LGMil;#J&coJLZU6Oldw4k zCl}4soC@V#qLL(RQAc>sRR1Ar)D}c7!l7G2;Q7jyRnr%xf_Z{v4m`?sGtpocXb?`D zm^45Zcwx(;05YcvL{<~GWeJowRV%Ka?Qs)+RJEBZ%metDt&P-Od~WMA(&=0A{jEU| z=7P38O&M|2wrJ`M)^D3a+3*M3rbx$Z!{2TTr2d5ES>t_bx5Y$qUwe*LLawm3fIB5T z%cX?RMqzkC)-%4f+WsV#y7Ihn2`SD$3f?(-19H z{OHFVBg?}?H?s{C+8IZrde{Spc1ab%B|<<;?2`5+@vf|f>`k&D?MvxP?$az2Zi9b( z6gHFydz93t5x#Q}j{tsfP!7T9p_CEuO*VV{1B#mw z-9u8`+c-9FqRZ{=23PY2oRgP2maw-v2`<1MZeWDF6Y~xJKF^o>2D|6`yV+-j+t^gwL5(SyHl6le=c&hipyX(gK{!mHc!o*>iF-&ZB9RR{QaFv zC|7@WGnbjpV|n2@N{c@$oJ7Uo|10!Wco$kqX?73TGiyZ8;Yme{N8gNR|IQh$YipeO zwXqNViI9-p_^q)B0ds5ToINkeF(?Fc=1F7lDINcek z3c`e&pmP^=9)fO^z^~TH1r?eNRRM5;;EL81MOt1iid5AXy;0OzbfW0}qM6z-?RQ#Z z@w>$biVhT6cL}>L?b=&6X&`()LnqN$G(ibE%4V zhNO2CdyLVRiOr|%O&LIaA2$6TBS6|RC=|TdmikwdUdb9EthYpP=Z2lxb8vP(M7#Gu zHDLkNNRA;>Jzq+l_*K?P3X7$iY0h%F|f))$kL9ppIKkHUSp#Pp?XB4lw%|BXI^ zONODzu&@*^#VQeS_%3j7uf=M!T!KtCX3}K zjK^l>PhfC48_X@zfwm`w*ck`mMv6(RM z<2Yw=-V(4BQTi8IxC1vYTKl)2kxU?k$@-xUYl+?n>{mt~l;k#I-Bn zm^?i2=j{0C+be;=h_hU2nL`VHFb4^c|cNf#8Wda{jb2$7^zdA!WN>mIN?igk!A zMi6uYFDVb4Nmf9l6+~%OXkj^6QVZF{K6VF}l>QV;Jme1DDVo&4VlXa$+KuQ!2tl>D zw>*-n#fshD;JK#kZl#9t+1>thOk7*9$>RdV1=q4Z2o!gAucj8_6%~3)gNG~ps5RKR za*7t}kWiY03L7}~0HHnD*%sCqEVC_W43>hTUavCI7p(W8HM!FIv-pCVW$1SiaI2XgbAUt3X3pihni`v z(g|It6Dzf#dU8Kv0xGQ4FjHxzbsxOmue5f;>y4`5g;s@a4OGOOnEFbncsVgMs>D*u zKqXxJotUdtVio4~D(e*Jy^QgL!yBujZqBSv0c_7gmL611f+|i%}f`*kKXr z1jGYbbohV7L0mK3u;Hd`_3iS9-EIL>xT1jyCCQ2I+XyZHwjK(WWP%YqAR~rl0Jh3% z9w+%dyXQoHQ1>MK-nR3j{)ivkQwhJWE|H&u1ZVE?^H|ql`^v6rT)Ssn40NyAyZrqq zAGyv4%9W&aE^Y>ZeC0Y{xuXXfWSfyJjw2NSCx)v~fsI-J)OA<4(hEw*r1H(+U-l%y zd3|kfrebgpXyRG~|EfJsF4Xzq+k2y^n|Psa3l)ct>ejgL-V!=S8SaEWz>4Z1N{we# z&!YYZCsjW!tKGqrBht zYU>mm>4fc@Lp9>0eKQq~0|^xyawf51pI^}A28c)GBtCv-3CS6@UnIM{FO;gs9yQOx zb8$@xH5>QVEOJ*jSmcn|Gg~oTTL|*&YNt%ZJD4x_S$?3|M9VKUo5Y=iB>O`)1%x~W zY5zZKp8<-aPmxhy?1O&*Ph^w$Gmw;#+#O^8x=Ep}ML_X;3>n2!dbzSyMrIX@KEMR4 z>n2ec*Vg&Sm^5?}o9c8gey<^m5q%HIe4+LQmp}a?8omsWsYSKft#NP6%cqz^n%F%Arv+<;E!sVuwYP=|@}WOKST%kI}|ROmzlQZ%9UxCeW? zj>k~=2l~r+O2~Nl00EUTm7}sHe&%Zl z4CJ;YkJ27G5a@fsPTTrBT2W$ea2@Cf{{FxO>UAuyUrP1h*!obfo@{2~fqvxySR=#* z$Go-mOQynH_VoMS5t>Xars&M210sndF_*+))BXVJBp%;T28P_y&=jz;L3fB&!6n@0 z4mrQGSie+}uT}P*(=8AOk8D!`kJ@;3L3tSrn3}nTjhm7L_<6*5Sxv)%gP&}+SU1DGC@S&x$ zbBEAEJgYgBUU(>i`xLV2Pa(<816XGBG`QdFZw_+35zG8~P^9w5Uo$ZjQ8MHAkw7n}2N%)Gvp>Lik&*SGBV_ z%a<=_HI2bw&5^6yH1lS>Y)fRio1a8Xd)c8?BIP;=i7;TDtt2rv+UPZJ;xJUnK?2ntI3%k85c62u%H_W~hMlCe(` zl!z#RLvhAFR06ya@U~-A21HC1Eb@5g;bAxJ)f={Zqejn7NZDReS<`yldf^8NJ#SH5 zRda=>`>ldHdt4T+9RNZg{?zH^uUAN~Kj_>I(K z^z`|QmnD_f{`DUp-}#Mlc2_*J^p)3}x<2^i%5Spi(fReJcP>%B(_UPjlwHZ`;dj{a z!`|%^@T~TUIHsM(s`gQyZEbCw<7YG;&uKsJOdZ8bj_!9m%(MT?{o>n#zdY*e`WCN0 OJl=ff`2C|@%Krz|X!Uad diff --git a/textproc.asm b/textproc.asm index 0b5d017..6a06c05 100644 --- a/textproc.asm +++ b/textproc.asm @@ -1798,13 +1798,9 @@ EndOfTypeLine4x4 jsr TL4x4_top adb ResultY #4 ;next line - ;seppuku + ;sure? mwa #areYouSureText LineAddress4x4 - mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering - mva ResultY LineYdraw - jsr TypeLine4x4 - adb ResultY #4 ;next line - + jsr _sep_opty ;bottom frame mva ResultY LineYdraw jsr TL4x4_bottom @@ -1825,17 +1821,22 @@ skip01 @ mva #$ff plot4x4color mwa #lineClear LineAddress4x4 - mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering - mva ResultY LineYdraw - jsr TypeLine4x4 - adb ResultY #4 ;next line - + jsr _sep_opty dec di bne @- quit_areyousure rts .endp + +.proc _sep_opty + mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering + mva ResultY LineYdraw + jsr TypeLine4x4 + adb ResultY #4 ;next line + rts +.endp + ;-------------------------------- .proc DisplaySeppuku ;using 4x4 font @@ -1856,11 +1857,8 @@ seppuku_loop ;seppuku mwa #seppukuText LineAddress4x4 - mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering - mva ResultY LineYdraw - jsr TypeLine4x4 - adb ResultY #4 ;next line - + jsr _sep_opty + ;bottom frame mva ResultY LineYdraw jsr TL4x4_bottom ; just go @@ -1868,22 +1866,22 @@ seppuku_loop ;clean seppuku mva #3 di - mva #4 ResultY -@ + ;mva #4 ResultY + lda #4 + sta ResultY +loplop ;@ mwa #lineClear LineAddress4x4 - mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering - mva ResultY LineYdraw - jsr TypeLine4x4 - adb ResultY #4 ;next line + jsr _sep_opty dec di - bne @- + bne loplop ;@- dec fs jne seppuku_loop quit_seppuku rts + .endp ;-------------------------------- .proc DisplayResults ;