Minor optimizations

Atari/textproc.asm

@@ -16,9 +16,9 @@
 ; - money each player has on the beginning of the game (moneyL i moneyH)
 ; - and I am sure maxwind, gravity, no_of_rounds in a game, speed of shell flight
 
-;    mwa #(display+40*140) temp  ; we only need to clear last 60 lines (faster)
-;    jsr clearscreen.Go   ;let the screen be clean    
-    jsr clearscreen   ;let the screen be clean
+    mwa #(display+40*140) temp  ; we only need to clear last 60 lines (faster)
+    jsr clearscreen.Go   ;let the screen be clean    
+;    jsr clearscreen   ;let the screen be clean
 
     mwa #DisplayCopyRom temp
     mwa #display temp2
@@ -29,9 +29,8 @@
 
     lda #%00111110  ; normal screen width, DL on, P/M on
     sta dmactls
-    jsr SetPMWidth
+    jsr SetPMWidthAndColors
     mva #TextBackgroundColor COLOR2
-    jsr ColorsOfSprites
     mva #$ca COLOR1
     mva #$00 COLBAKS    ; set color of background
 
@@ -1538,8 +1537,7 @@ displayloop1
     sta dmactls
     lda #%00100100  ; playfield before P/M
     sta GPRIOR
-    jsr SetPMWidth
-    jsr ColorsOfSprites
+    jsr SetPMWidthAndColors
     mva #0 COLOR1
     sta COLBAKS    ; set color of background
     sta CreditsVScrol

game.asm

@@ -186,7 +186,7 @@ eskipzeroing
 
     RmtSong song_ingame
 
-    jsr SetPMWidth    ; A=0
+    jsr SetPMWidthAndColors    ; A=0
     lda #0
     sta AfterBFGflag    ; reset BFG flag
     sta COLOR2    ; status line "off"
@@ -243,7 +243,6 @@ SettingEnergies
     jsr CopyFromROM
 
     jsr SetMainScreen
-    jsr ColorsOfSprites
 
     jsr drawmountains ;draw them
     jsr drawtanks     ;finally draw tanks
@@ -857,7 +856,7 @@ SetunPlots
     sta pmbase
     lda #$03    ; P/M on
     sta GRACTL
-    jsr SetPMWidth
+    jsr SetPMWidthAndColors
     lda #%00100001 ; P/M priorities (multicolor players on) - prior=1
     sta GPRIOR
     jsr PMoutofScreen

grafproc.asm

@@ -2078,26 +2078,19 @@ ybarrel
     rts
 .endp
 ;--------------------------------------------------
-.proc ColorsOfSprites
+.proc SetPMWidthAndColors
+    lda #%01010101
+    sta sizem ; all missiles, double width
     ldy #3
-@   lda TankColoursTable,y ; colours of sprites under tanks
-    sta PCOLR0,y
+@   lda #$00
+    sta sizep0,y ; P0-P3 widths
+    lda TankColoursTable,y ; colours of sprites under tanks
+    sta PCOLR0,y    
     dey
     bpl @-
     LDA TankColoursTable+4
     STA COLOR3     ; joined missiles (5th tank)
     rts
 .endp
-;--------------------------------------------------
-.proc SetPMWidth
-    lda #%01010101
-    sta sizem ; all missiles, double width
-    lda #$00
-    sta sizep0 ; P0-P3 widths
-    sta sizep0+1
-    sta sizep0+2
-    sta sizep0+3
-    rts
-.endp
 
 .endif