Minor optimizations

Atari/textproc.asm

@@ -1693,9 +1693,7 @@ AllTanksFloatingDown
     lda Ytankstable,x
 	cmp #(72-7)		; tank under screen - no erase
 	bcs NoEraseTank
-	mva #1 Erase
+    jsr ClearTankNr
-    jsr DrawTankNr
-	mva #0 Erase
 	sta ATRACT	; reset atract mode
 NoEraseTank
 	ldx TankNr
@@ -1714,7 +1712,7 @@ NotFastTank
 TankUnderScreen
     jsr RandomizeTankPos
 TankOnScreen
-    jsr DrawTankNr
+    jsr PutTankNr
 DrawOnlyParachute
 	lda ActiveDefenceWeapon,x
 	bne FastTank

weapons.asm

@@ -2685,7 +2685,6 @@ pressedLeft
 	jsr DecreaseShieldEnergyX
 	; first erase old tank position
     jsr ClearTankNr
-	mva #0 Erase
 	lda XtankstableH,x
 	cmp #0
 	bne @+
@@ -2703,7 +2702,7 @@ NoLEdge
 	mva #162 AngleTable,x
 	; then draw tank on new position
 DrawFloatingTank
-    jsr DrawTankNr
+    jsr PutTankNr
 	jsr DisplayStatus
 	jsr WaitOneFrame
 	jsr CalculateSoildown
@@ -2782,7 +2781,6 @@ TankBelow
 	ldx TankNr
 	; first erase old tank position
     jsr ClearTankNr
-	mva #0 Erase
 	bit OverTankDir
 	bmi PassLeft
 PassRight
@@ -2798,7 +2796,7 @@ PassLeft
 	mva #162 AngleTable,x
 Bypassing
 	; then draw tank on new position
-    jsr DrawTankNr
+    jsr PutTankNr
 	jmp CheckForTanksBelow
 RightFromTheTank
 LeftFromTheTank