Small memory optimisations

scorch.asm

@@ -272,6 +272,8 @@ skipzeroing
 	lda #0
     sta sizep0 ; P0-P1 widths
     sta sizep0+1
+	sta colpf2s	; status line "off"
+	sta colpf1s
 	
 	tax
 @	  sta singleRoundVars,x
@@ -322,9 +324,6 @@ SettingEnergies
 
     jsr SetMainScreen
     jsr ColorsOfSprites
-	lda #0
-	sta colpf2s	; status line "off"
-	sta colpf1s
 
 ;    lda #90 ; barrel fully erect
 ;    ldx #MaxPlayers-1
@@ -336,9 +335,8 @@ SettingEnergies
     jsr drawmountains ;draw them
     jsr drawtanks     ;finally draw tanks
 
-	lda #$00
+	mva #$00 TankSequencePointer
-    sta TankSequencePointer
+
-	sta TestFlightFlag
 ;---------round screen is ready---------
 	mva #TextForegroundColor colpf1s	; status line "on"
     rts

weapons.asm

@@ -1505,15 +1505,9 @@ NotStrongShoot
     sta Force+1
     mva #sfx_shoot sfx_effect
 AfterStrongShoot
-    lda #$0
-    sta Force+2
     lda AngleTable,x
     sta Angle
 
-    lda #0
-    sta xtraj
-    sta ytraj
-
     ; Shoots tank nr X !!! :)
     ; set the starting coordinates of bullet with correction
     ; to start where the tank's barrel ends
@@ -1522,26 +1516,15 @@ AfterStrongShoot
 	
 	mwa EndOfTheBarrelX xtraj+1
 	mva EndOfTheBarrely ytraj+1
-	mva #0 ytraj+2
+    lda #0
-	
+    sta Force+2
-	;ldy Angle
+	sta ytraj+2
-	;clc
+    sta xtraj
-    ;lda xtankstableL,x
+    sta ytraj
-	;adc EndOfTheBarrelX,y   ; correction of X
+	sta TestFlightFlag
-    ;sta xtraj+1
-    ;lda xtankstableH,x
-	;adc #$00
-    ;sta xtraj+2
-	;sec
-    ;lda ytankstable,x
-	;sbc EndOfTheBarrelY,y   ; correction of Y
-    ;sta ytraj+1
-    ;lda #$00
-	;sbc #$00
-    ;sta ytraj+2
 
 	; checking if the shot is underground (no Flight but Hit :) )
-	ldy #0
+	tay	; A=0 !
 	adw xtraj+1 #mountaintable temp
     lda ytraj+1
     cmp (temp),y	; check collision witch mountains