Minor otimizations (32b saved)

scorch.asm

@@ -171,8 +171,7 @@ WeaponFont
 ; Game Code
 ;--------------------------------------------------
 FirstSTART
-	mva #0 dmactls		; dark screen
+	jsr MakeDarkScreen
-	jsr WaitOneFrame
 
 	; one time zero variables in RAM (non zero page)
 	lda #0
@@ -227,14 +226,12 @@ START
     
 
     jsr Options  ;startup screen
-	mva #0 dmactls		; dark screen
+	jsr MakeDarkScreen
-	jsr WaitOneFrame
     bit escFlag
     bmi START
 
     jsr EnterPlayerNames
-	mva #0 dmactls		; dark screen
+	jsr MakeDarkScreen
-	jsr WaitOneFrame
     bit escFlag
     bmi START
 
@@ -255,8 +252,7 @@ SettingBarrel
 	jsr CallPurchaseForEveryTank
 
     ; issue #72 (glitches when switches)
-	mva #0 dmactls		; dark screen
+	jsr MakeDarkScreen
-	jsr WaitOneFrame
 
     bit escFlag
     bmi START
@@ -386,14 +382,12 @@ eskipzeroing
     lda GameIsOver
 	beq NoGameOverYet
 GoGameOver
-	mva #0 dmactls		; dark screen
+	jsr MakeDarkScreen
-	jsr WaitOneFrame
 	jsr GameOverScreen
     jmp START
 NoGameOverYet
     inc CurrentRoundNr
-    lda #$0
+    jsr MakeDarkScreen   ; issue #72
-    sta dmactls  ; issue #72
     jsr RmtSongSelect
     mva #sfx_silencer sfx_effect
     jsr PMoutofscreen
@@ -1629,6 +1623,9 @@ peopleAreHere
 noKey
 	rts
 .endp
+MakeDarkScreen
+	mva #0 dmactls		; dark screen
+	; and wait one frame :)
 .proc WaitOneFrame
 	lda CONSOL
 	and #%00000101	; Start + Option

textproc.asm

@@ -2161,8 +2161,7 @@ FastTank
     bpl AllTanksFloatingDown
 	jsr IsKeyPressed
     bne MainTanksFloatingLoop   ; neverending loop
-	mva #0 dmactls		; dark screen
+	jsr MakeDarkScreen
-	jsr WaitOneFrame
 	jsr GameOverResultsClear
     rts
 RandomizeTankPos

weapons.asm

@@ -1230,8 +1230,7 @@ callInventory
     mva #$ff isInventory
     jsr Purchase
 afterInventory
-	mva #0 dmactls		; dark screen
+	jsr MakeDarkScreen	
-	jsr WaitOneFrame	
     lda #song_ingame
     jsr RmtSongSelect
     mva #0 escFlag