From fa43529e920c842fe4a2bae583e810e98450fab4 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Thu, 26 Oct 2023 19:18:15 +0200
Subject: [PATCH] More memory - opty

---
 scorch.xex  | Bin 56547 -> 56520 bytes
 weapons.asm |  34 +++++++++++++++++-----------------
 2 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/scorch.xex b/scorch.xex
index ed7cd73e05b2e643ec55ae8d573b56612beb7eb6..db5b702b32e3c973099fb7309cb20ea6e8a05cfb 100644
GIT binary patch
delta 1661
zcmZ8g4NOy46z0+vq55j^hqVZJap(jQ{KGM`xn#;jeEvp7rjDAxHeg|9ie@?nGd_b9
zQ9RUA+CmXqd={kepsu)@I49c^37vyU79|@R9LAZK={6UC*rAxrnVXz*-}imzocqqb
z=axtIy+`KSoJGoo^sM3_QVspNZxRJe&080~3+TEN?3y(+wvrF9nwXeAb-V6<7(+Xt
zC{H_iSkI4e@dy%~-7UT5lhG1z=J|+I`26ELYBE{KDm)!X`UIv}2u63Y<VzWG2+PWD
z1e0um8j2KTy<n?OA>;>P$ZQ}Qi;>kAc&$n<*ZaYEF0Unb<w!-YjyeIXjT7q2u!f3P
zaSe11tg4wq=D^;X)ubLS*Tj$nxLXrRED&5<gZqZsduS_dyU+&LInXxO%|&~&?iG?C
z{8?uqD#r=Trm$tv=(ReUAk@}RBY3p)r}h$5EOf|;_L-jE-H3nY$ZneMI~^;RLaSl}
zeKK|rtZP_MBtgs;wT#vSA4KPG;sdxo_Nrd2@G<s`l_OjRAH^9Eu#tmxv2TkiX{9(3
zL(i9rLFks~#c}AKm5R~me$tB*##}tQJ$i8_x;DMI6y3La@hx8v)nsBWzL*2{>|r~o
z<$M4<ZCF-xuypK$15xXW8Yp1A1&lc2V+Qs!>R`OD{fxDM!J`@2;=`jZ8Tnx)V#j2N
zplaUF>R(<+p`}wk9mt&I&76c;6nvXCa}rPd(MTYgJS;~@l)Hxg+*04*OTo{^g4>QM
zu=-2EnjC+y>)5cLlLjGz*OES1%tuY_GfKC78h&JTlJZEB(%(_`D&+7syj|s)N+O5a
zGry5SC~;;6-aQV(&aA*E<*>FfVf@W<`yf8Mjr&*!lr(PAu04i7Iv8_QEn^=YwY#x}
zkH+@!SL3XZr$@z^(kKKon--FO$Y|PtZ>F(n1#!c}rnzWmoIOCCU_YCNV<4R^Bws*&
z^Xza%g*RBmz2{|A+*bP)ZkxS}+m3bI)B&#MC2~attAP8>nK(3STn{L%qFYVuag!sv
zyqh^0a47rGmV4cdG{d``ks|3GfE_Jyi|>H<M*5M?K=yGiAI}-+#41O2O!_<}y--cV
zaM+|^`iXy6%pJv2>AJFRhW5b4mKkI>+-_MiJ{3irji&CRyCJqUF4SpsWb@NGgEx&4
zr{J3@g{;<B$v05a8cRZ<wKXYXg@KoG2L2@843&1$S$XvGM!M|;+fs>QnNUHBz#yz5
z6n+)L<W3{q29Jfv@B|}IxifqN=j5}v>sYfN-}Zjr6n-fzXtQCner$u_PU8_fqoaM0
z-yS(TscLi8^{NijCDXX-Rn>7-5!P~Rv-KLT5nR`-%F~|P##GNO5ZY78e0b9SI=Kjo
z+^NdM8k%CFMJ9Ry4!LKOS<vjBMiQaR9Zj~v@9uZWaaeRNVH#@6Ozc3_sJP6;2VkQ{
zo5PrCA{3rWoSNcK^8(XjLFVGQ#2922`(v`6$Mjfiayq}pZpNXoTX1056k*C&lZZUR
zLM;&InHPG%oNVtMR&c$Yy}W|UM>Nkfhg<@qCpKicnOZC{ee-TWq9+oDJgTq=i^krY
zgX*E@>QUMZJ3W!pTp>ffo%xcQ-EK*?n=zx=71(L%>}5yH@J>g<xcV|jwvIBew<9TD
zYi{gj>~6KJMBS~!c0I&)Jus%~PIGx_X=z-pCqR2D_l@Wb>3uc@`a3?{vCzuPxt&eQ
zYof~aPY$6At(`l4l5P|TK_J=>@Ihmeh!-VZ%A}3K{|VI+qRRh?!FE1O8--cNIOTJe
zVyXZdCG?!Xp&~n=@k-_F^*r~7{gHM9Z~a^2{Z1oAi^Lc1t<`7>do-G_yELC=^VV98
MXP@v<*Z$Cd0qpYMZ2$lO

delta 1666
zcmZ8ge@s(X6z=U0z+$mf87(MY94aU<oH9^1&9cd8eK6*5jAR)vTXCV4&CMW-VCa^;
z#PLIDPD@+*1DLk(CWS(QuDX)(hs~bOt#gpf4B6B~1$FCOmS{|5w?#9yG&$dW-~H})
zZqK>rTfgACU*LH|jaYAmS{H-H;AhSA2t$&#Eae1XZ6{S)ieEOcJiA4bF)baVe}77X
zr=dx!SSf5}7np29BHB3~-WU?#lW<xaLP2li!JAT)>s24?=cBM!qVvWPm^}W808M&d
zYMqHgIxjXhiO@lBPuCuV?s#uljY#e@Q7v@=yO_}g4#YFsVU2P@uc2`ez&@~iqLt)G
zU=x@=Tm*X^n^6(eJ4(<5oO5I#CCoe4ARokaJIK1P`woeQp2H-@^}0wL>dhhXN^de!
zdjIaVp@hj!;wI`*<MdZ)tn_xDOhx2sXHV55qS)#ZB88$A&zF;b=BjqD4fSUU!-?iB
zen>#+p{(!Org%ffn^FOu05%41+0XKrY3gPRrw>V-mC6OCl1*cbgvi>>C4`mS3UbWX
z%*7BWYT;rDJZ$FD3H;f@EnkFe0{RwiJ%JxuxLpK(ZQ))B#b9|A@nLlgP=lX4K`JDv
zfKz~|e|MIy`Cr15MmCJIb&^1xgj)znW*a2ZIMTBQiM>t&wf%~wSxUFWfanopWP0(c
zk7lc6fhrld5Ec*xJ8G|zMexZk*(#h95|R^kEEW7G^%L=<MXOOyRLNUvl}a)ZFL_PW
z%kv)vAXb6Gkjkbdg-zk>AvwEHk}qz{7e|Xr-GoxMhcx;R)_~T+XJ6hzW~e<~#TNm5
ze_G8?Zij6Hx$*Z;IIocxSbmh6gxZ1q3QY&8$hC}iseoG9;T#V|Ai9QM1~x2{cW~>&
z5emfat>`b<<=#i0kKX+X`VlU>b4ZLG{1gSDc~C_rVtVixvcT&@nPe^+hvaAyj6*ww
zSWjX2X{d^i^>F)C8tn5-#qKoYBNoaHIm5|(z5$AcH$BHU1ZFDQf_&<shRtS-c$3*x
zol%h|#+SSB7BW}iINTgv>6mtM<qEp>q6E)_Yj_=M2X1&r{JTWN^x)#dxE&HkHYEm4
zu4;BIV+^Py+$!=!oS+<e8eM_fkt~!Arjh*B?-*GDV`RS|4Zz_;c!L(7E64Sn)OQ9V
zzBQspU2xR9H+5$xX>%{mJ52n0v8LQ<;bdU}4w`U1{N`OFRGQeGfJT#0B_xmbkZOE2
z3ME%fZB7Y|Nu!p1!wZWF=a9aG?sruON-LO-KzRkDAMT*b%paQXnWrtYmUUeRy7rh0
z?5zE~{Vw^XI8q#U?c#p_f~na52+U)}h=QwQ1!x8o<Hcf?1Jf4VWx<z0JD$1bMGG^<
zX15)cv8b&<#(v$_C}a6;$7J|+8KnZxcse=)m&S{b8x+3WbaJxKLOn1?Ecz@gkJL3%
z%S<a)ISQTDIW-LUQZm%U#A&PHJ+`5v8JEcCZCC{^-!mCx=e4Mj`mxcxtw)F{hto=C
z%4s9BMbX{|J{b}g*su>)`12C&)<WmhoQRnUPO&29eZrRcH=|i-^k)gHtmKm=q5_-T
zIaNbMH=c;*{hMVU+agyKF;)*hXbVnJDK^-6CO3AX)m2U7OnB=|e)cx&z(t93Tq-y&
zy-1T1t}qw-6U@bQKciKtRE);YQ=HOlPp=HWP0<iI^WNT4J1b-kxy6^b1kZySgiGzg
zL!mGoA(jy$JxZ`Ki;~q#B>^l^Ez*yL@WI)nyvTWJnEwCf_9#tQu~@u#2oo<J-tHYe
kJClGKL4V#5caUZ7IqxfKA?Jc3R>#`A<$j~L<U&K@KLwuJFaQ7m

diff --git a/weapons.asm b/weapons.asm
index 87ed9c9..4268678 100644
--- a/weapons.asm
+++ b/weapons.asm
@@ -1297,6 +1297,7 @@ jumpFromStick
       jmp ReleaseAndLoop
 NoVdebugSwitch
 
+    mvy #1 Erase    ; optimization
     and #$3f ;CTRL and SHIFT ellimination
     cmp #@kbcode._up  ; $e
     jeq pressedUp
@@ -1376,8 +1377,6 @@ pressedDown
     cmp #25  ; 1/2s
     bcs CTRLPressedDown
 
-    mva #sfx_set_power_1 sfx_effect
-
     ;ldx TankNr        ; optimized
     dec ForceTableL,x
     lda ForceTableL,x
@@ -1390,6 +1389,7 @@ ForceGoesZero
       sta ForceTableH,x
       sta ForceTableL,x
 @
+    mva #sfx_set_power_1 sfx_effect
     jmp BeforeFire
 
 CTRLPressedDown
@@ -1403,7 +1403,7 @@ CTRLPressedDown
     jcs BeforeFire
     dec ForceTableH,x
     bmi ForceGoesZero
-    jmp BeforeFire
+    bpl @-
 
 pressedRight
     ;ldx TankNr        ; optimized
@@ -1412,30 +1412,30 @@ pressedRight
     cmp #25  ; 1/2s
     bcs CTRLPressedRight
 
-    mva #sfx_set_power_2 sfx_effect
-    mva #1 Erase
+;    mva #1 Erase
     jsr DrawTankNr.BarrelChange
     dec:lda AngleTable,x
     cmp #255  ; -1
-    jne BeforeFire
+    bne @+
     lda #180
     sta AngleTable,x
+@
+    mva #sfx_set_power_2 sfx_effect
     jmp BeforeFire
 
 CTRLPressedRight
     ;ldx TankNr        ; optimized
-    mva #sfx_set_power_2 sfx_effect
-    mva #1 Erase
+;    mva #1 Erase
     jsr DrawTankNr.BarrelChange
     lda AngleTable,x
     sec
     sbc #4
     sta AngleTable,x
     cmp #4  ; smallest angle for speed rotating
-    jcs BeforeFire
+    bcs @-
     lda #180
     sta AngleTable,x
-    jmp BeforeFire
+    bne @-
 
 
 pressedLeft
@@ -1445,31 +1445,31 @@ pressedLeft
     cmp #25  ; 1/2s
     bcs CTRLPressedLeft
 
-    mva #sfx_set_power_2 sfx_effect
-    mva #1 Erase
+;    mva #1 Erase
     jsr DrawTankNr.BarrelChange
     INC AngleTable,x
     lda AngleTable,x
     cmp #180
-    jcc BeforeFire
+    bcc @+
     lda #0
     sta AngleTable,x
+@
+    mva #sfx_set_power_2 sfx_effect
     jmp BeforeFire
 
 CTRLPressedLeft
     ;ldx TankNr        ; optimized
-    mva #sfx_set_power_2 sfx_effect
-    mva #1 Erase
+;    mva #1 Erase
     jsr DrawTankNr.BarrelChange
     lda AngleTable,x
     clc
     adc #4
     sta AngleTable,x
     cmp #180-4
-    jcc BeforeFire
+    bcc @-
     lda #0
     sta AngleTable,x
-    jmp BeforeFire
+    beq @-
 
 pressedTAB
     mva #sfx_purchase sfx_effect