From bd6418ce889ae6d334c61d2efc29a8f2c5e1449b Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Thu, 26 Oct 2023 19:51:27 +0200
Subject: [PATCH] Opty - thanks @Irgendwer

---
 Atari/gr_basics.asm |   9 +++++----
 C64/gr_basics.asm   |   9 +++++----
 grafproc.asm        |   6 ++++--
 scorch.xex          | Bin 56520 -> 56520 bytes
 scorchC64.prg       | Bin 39839 -> 39804 bytes
 5 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/Atari/gr_basics.asm b/Atari/gr_basics.asm
index 6c8691f..5a75e8e 100644
--- a/Atari/gr_basics.asm
+++ b/Atari/gr_basics.asm
@@ -463,20 +463,21 @@ Fast    ; Put char without coordinates check!
 
     ; and 8 bytes to the table
     ldy #7
+    ldx #$ff ; otimization - thanks @Irgendwer
 CopyChar
+    txa ; $ff
+    sta char2,y
     lda (fontind),y
     eor #$ff
     sta char1,y
-    lda #$ff
-    sta char2,y
     dey
     bpl CopyChar
     ; and 8 subsequent bytes as a mask
     adw fontind #8
     ldy #7
 CopyMask
-    lda (fontind),y
-    eor #$ff
+    txa ; $ff
+    eor (fontind),y
     sta mask1,y
     lda #$00
     sta mask2,y
diff --git a/C64/gr_basics.asm b/C64/gr_basics.asm
index 860ae9d..831d814 100644
--- a/C64/gr_basics.asm
+++ b/C64/gr_basics.asm
@@ -344,20 +344,21 @@ Fast    ; Put char without coordinates check!
 
     ; and 8 bytes to the table
     ldy #7
+    ldx #$ff ; otimization - thanks @Irgendwer
 CopyChar
+    txa ; $ff
+    sta char2,y
     lda (fontind),y
     eor #$ff
     sta char1,y
-    lda #$ff
-    sta char2,y
     dey
     bpl CopyChar
     ; and 8 subsequent bytes as a mask
     adw fontind #8
     ldy #7
 CopyMask
-    lda (fontind),y
-    eor #$ff
+    txa ; $ff
+    eor (fontind),y
     sta mask1,y
     lda #$00
     sta mask2,y
diff --git a/grafproc.asm b/grafproc.asm
index 4d13726..9e9ff81 100644
--- a/grafproc.asm
+++ b/grafproc.asm
@@ -584,11 +584,14 @@ UnequalTanks
 ;-------------------------------------------------
 .proc ClearTanks
     jsr PMoutofScreen
-    mva #1 Erase    ; erase tanks flag
+    lda #1     ; erase tanks flag
+    bne drawtanks.era
 .endp
 ;-------------------------------------------------
 .proc drawtanks
 ;-------------------------------------------------
+    lda #0    ; no erase tanks flag
+era sta Erase
     lda TankNr
     pha
     ldx #$00
@@ -604,7 +607,6 @@ DrawNextTank
     pla
     sta TankNr
 
-    mva #0 Erase    ; no erase tanks flag
     rts
 .endp
 ;---------
diff --git a/scorch.xex b/scorch.xex
index db5b702b32e3c973099fb7309cb20ea6e8a05cfb..f5a66ff75bcf6000319836cf2a429f559386720b 100644
GIT binary patch
delta 91
zcmV-h0HpuOxdX_#1F%_+8_)u&0EMBYWk{j`hGii1aOP#EW#pyM^=O4<vviI&3@f7l
xikW2&v13X9nOzQu5b_wMV`&J5V~_&oWS|F%QDd1+4ygc{RSt*{^0U>N^FhxnDyskh

delta 72
zcmX@HlljC><_(d3lVkhDSynQ%F5FzwXU3zwG1>F~%vipa|7WK1bqIWvSel&4(V9Gg
Z=~>DGcCef;-%5s=p&+@<S7&{81OS%LAeR6D

diff --git a/scorchC64.prg b/scorchC64.prg
index 3c650152fbf438b9460a24ba960b2115b3441f4f..917f471c0604c8ffe3d59d863da6713d34baedd5 100644
GIT binary patch
delta 1830
zcmZ8h4NO#57UsSgkb=@t3gxH3#n4iM;@C(_yIMPaQ=O8b_*-imhH262IMofv$flP6
zxg!j``QgA=u&<7ckMdfq*k^yHX0XX_*`3;-Nfn}IL%OmtlDO>Hv|CM^rDwowy3I@O
zx%d0NbMAfTo^y|X%>D8aH@drmG$^lDJkOCN2vz=p)We<1%8k?A^t{`6?gjd$AjgS6
z@dcBb56!dnJT3Cl)IC#!eCQS*&W%10&WUD7+q4|pN_R4Oj%`IDF-v37!ib9AX5ilR
z4arifH)~a8<pI&o2P*?&6My5Mry~Cz(dmNQ0_?kyr**-d0YR-F;dMb%KrrY=^t#~w
zfN+Q(c}5qkQ~tV5;<(aM<-iV00%?WIRolsVrNk8BNSZQdPUludI602VlGQL6=djWz
ztk<nWR@~voz07Ks36mr07(ZkUo#rF?p={9C=t#EWs9BRhE-L3NqWaPE%p&cx_}M=H
zqQN<5|DW||EYHsMpVN0}zR!>>mPBUpaMzJ^ZnpHlr<ddUl^6xC1GmX~<;WlZMo2Pj
zsx2W|&|LdGNrTDS?Tb?#n1&QNg`K7Y@K{|j8GxF)3X%$E>I(8i50c4pJQL+)6m&F?
zk4D^h%4z9DR7I2Fhq||k2ypNwjxF^Ear~iv2*+c#m6@W)*w-pAMb|ubI+8d)TZchJ
z<sY`UNJ?5Pbi98Tb?r1G*42<rFj4RPseuqt$$MQ*G7m7?W5R11vP#@=kvh8c%_1(M
zGS1jx?cvo+tAzrSMnzKvIROteX<Q3UhqL*$%unoc(fV*obba_<RF~Mp3208)!;8?=
z+Qa#1Hn8yG1+xOpj6M7ynnD(S63rU8e0X#7PwmoxCUzeK;mpz8sf&E*A|IZMESb8(
zYZ9^4uJGbT9%<3|pSGAOLw+U+F^>unRB5kjzWYsxOuFf{sgNNQGGLT=`K%Z+;FZU`
zkwCO;MvYKdJvuYbJsG+7JLmr{IG^>z<L<w6&aliok9ub2x#%@m(wIr~P}rEeOz(|O
zN7CfEia4DRr;`&fPdgg@c)hn9d$EaxrW@S9I-#N2L|%l+=H28qSlhBHxuQdw#?ClY
zZ%l_nE!#8Bcj8Y@7x*+P<K9kb4AZo?Gd73mmcqpSo#6+gvBk31HN*fLTeo1D4YY0~
z55cw8l{jkJ+OXuHtsHxIs;!Zm?SiWI!YrFJ^s1hjLsmU|S-QYpk-lU#xXl<%gSXqC
zP}`hF8~nY!nzK2<(~=7>*)Qd}z4VJ7BY`2St5_dvBZui`u|B#yG{{GD=ni;}6_@T1
zLc6OOXH4BAuV5l=@(x)Gs<cUTWiMs;N<<Us6vSpN%!j*GnY)YibRE3UmUGi?_?A7s
z_+wPDVaoPX1nzefEz80XSj1vzm=E6<NuYP!u*I>QtOlE-h_t|QM`_MSE?I?@K8ROC
zAGPA!L+efSg4;-4G4(Bnhnsal`;l_uhOdvLtFyfH0^B%~lO=j&7yCf=GezFTF5|ve
z<XqMkxlbN}ybeER?XwO@EcFU1y_xFarOup(PkKN1Zs;k3N8k{A3jJQE?-yUr(Wmg+
zkKa>AlZJy^y@ucx@OK)>ahU0RjA$X>X-E=}(z88uwui2SgU*LZAH3zv##a5rnNPle
ztIiFCKz>(AHfnzEF;?`%#6S1QahR=GhTiC<BJAs0m8Q&x`3<wqhs^t3s|t{j=6!bE
z^;zfhtLgEhQULoxI*C1FRDg7kEv^X&mkqlQ3RexmU2vh>pzi9!x8#07yYyCXnKUsI
z&nCtv@X@g$`hrkQ9s#>hq*i)yc}CEtclBjR6BZO*zbo<;Olprom5`G)de8NVaa&Yl
z{Iai13SgkXC^vp`e8PADN?aw2QXNB9GkpVUT%{{IdPj=&(wIioq4~;;Nvpx6z2Y^P
zhgn^Dc{!^MnkrA$KK`ybYQj_h#kFV637@QH4X3g%g;PfFSO`7g8*hk2%`xB}1oGzr
zIblKaz=8y--RT=*LQOQ(#3%h9H;<YTE?<Bbf^`2+oOD-CF;pDwR?fLsCv!IkVRk^f
Vq%^Q1`;wNEwlMBgDHI>8{}l$XEZ_hD

delta 1954
zcmZ`(eNa<Z7SDZ&fd#~*)fS7w#YxAqQA}qPqg%Aum))k!bEGPj{loAqS~jLwL6okF
ze8>$D%omq0?Pf*eV|iN?G~MlH*vDq9#lC5`W=5gfX_;0#j?QR(PHlHP(~+JRb!t1^
zc{BIidw#!j?tSO$`+qP;-eE?zu0e;RudaESL5r!h_BW`Pez$h*3wj^E65vM5@TgDJ
zg#XK$CJle*zp7<17s8KMP90;VJFJ|e%#-IUS;7VjL)PPcM4Tq;frxlvOj(%F;%pBM
zl$=LJ(ejrpT5DA#+``6cBH{h)^)F8(ZV%aPvAPKPeCW5f*uIEQXCGp1v8IU6VH>jB
zV!?=SH#_t@TdX^JZiB!uWo6Or8(n&IoL<^gimpTpoCyY5qtpBo%n~9BZpSf=$BkFI
zuek@@;QgCF61S)!A}=B$CUoj{z%324i9Bf)wO82Cs;H-8sUCeB9d(6ug;$76*yidd
z+xk;Zxn7(;G-?;854~$|Gu+7%T&`5&3NqIoVsF_+&7r7@QUCV;p;w}<ufLB_0WGO6
zKt;5n`ekILlhvgeg&qh)rkF{Fu|${Gn2|&)YSy4adaA~h8xI1QF3uofF&zkP4dWw;
z0KD?5a8%La0(!URFDOpw&YQ3{*6xJ$ZtVc9Z|+(=Hy-4=n?xg+=91w=YI0WuPU6uo
zcKsP;T2<FG`nO>JA9&Dp)MX<G)L-AILnt22-J?TuLj-p^Ax#5rff>x#DaO8hCZXjr
z2z_qvv&Lqh$!XByLZ7II2TgM2bpPJ$)#W6AwVbJ}mS+L;*DbOhgw!IZfY{z5=Yen$
zIpe-q1R{gTPlG5X@+uG;>8E>NYWVtqaM+;c;;=k-BnM=8>H;fWVCCt=%&E()Ar(sP
zG8?|Ya^E(qs1>jqX>bl|K?4lS6v#(>V90J*%`h%`ZAx-Tl0%+WRId1TSaPWHM_iH`
z9M&5;(961{zlWUv<L};me{YW@{b_!|pCikabT{%-%9A9lHb-tE1%Brat7z}tQM(0K
zT0+Xz#8UAAt^qt3@Pu~i0j|Px#OXB}n@?jC^$_@__5DyU6ZKutmD~1TXAEAtp}~pj
zX|!Q03edTYOVW3=30I-jcGq$%==#RetSjvhxvQoggO=-P7se8*Q1>+6xG*)?E<dfP
zhue)yk(-*D)<NCYHNAjdr2lSO4C}3?W~kvE&BZVbMw{yy<3YOez{02cywa<7!b@&D
z*(`iOUJ*Vd6>!ZMw$i-^R_gk^Tpx`cC};Y-w5l<OT3asWo(|z#ot%jdxcz3k+M6Ed
zO|xBDARS|s`FIaC6Z5h?K51(?VYtUD#YH5HkA?=^rcIVKT+)RHVeBZW7$tX&qz7)>
z#2+-<F;6?l0!AOC!(>IqC%__um{eg<+$H&s6@d%rim)`u%Ci%CJTFL>cov`ybe$(3
zMd&`yviX<&q85tg7$g)Ix?z~%S||Q0z_EUn{gEfg7z31VEnaszkgTk#D!4<$o1DT?
z`7!9tq7bn0d#?|;p?|WZ6uV0Yk(p_CX~<?#M~1n0P&`FWi~S@jZXuVz__CNoniI3d
z^Yr`Heh6>4ji#1`d|Eq?E2*`8{xj!7*F&yOj+W9x^fUUe(21Vh-sgKO;0wZ6(VI3H
z+Z}SmcG3EF2RcK?+n1yD^j^CoE#8Yi?!-olOK6Gr8T3#3CvP?kiEeKmx<%jd{vMg=
zJ#RrCaB?WOqf;g4P*DS6RYQ5C3&(q{LgdC48tQn8R(8yqGnsVw2#4>%aoW+b#01Fu
zN$V{StofdP9X``5M4&%~<IuO<B%SIQ%kV^emmFJn`aW^QTIt|HhwfyzI?oPTjI+C~
z!o-akWMX^*2H!5wF7ugDDc$VL*G+c8(eJYuPj+Vs6D}ZKdq_I(GaGM%X#`9oBh2{m
z@d++O)BOc0g&s%(K0=@OFI)6h*O1vRj2X0ThX3#oFb@QbgdF@JsVOclCe<<L+T+zL
z{>Cd#c;``nWy9GX$X4Bn?2B^d$agM;&-RShB@|v&{0bC#NrkAtPnq{9McU66-&g-g
zG$^1=`#IU5@INOH!!;_IwgwDnINBF@Hl3Ljp&uN!%q)v6%D!k}gmr{DQAShWto;Ff
Cg>nA?