RoboTank indicator on status line

scorch.asm

@@ -737,7 +737,7 @@ CheckNextTankAD
     lda TankStatusColoursTable,x
     sta COLOR2  ; set color of status line
     jsr PutTankNameOnScreen
-    jsr DisplayStatus
+;    jsr DisplayStatus	; There is no need anymore, it is always after PutTankNameOnScreen
 
     lda SkillTable,x
     beq ManualShooting

textproc.asm

@@ -2030,6 +2030,34 @@ EndOfCredits
 	rts
 .endp
 ;-------------------------------------------------
+.proc PutTankNameOnScreen
+;-------------------------------------------------
+; puts name of the tank on the screen
+    ldy #$00
+;    lda TankNr
+	txa		; TankNr in X !
+    asl
+    asl
+    asl ; 8 chars per name
+    tax
+NextChar02
+    lda tanksnames,x
+    sta statusBuffer+7,y
+    inx
+    iny
+    cpy #$08
+    bne NextChar02
+	; memory !!!!
+	ldx TankNr
+	ldy #$5e	; Computer symbol
+	lda SkillTable,x
+	bne ThisIsAI
+	ldy #$0a	; Joystick symbol
+ThisIsAI
+	sty statusBuffer+16
+;    rts
+.endp
+;-------------------------------------------------
 .proc DisplayStatus
 ;-------------------------------------------------
 
@@ -2242,32 +2270,6 @@ AngleDisplay
     rts
 .endp
 ;-------------------------------------------------
-.proc PutTankNameOnScreen
-; puts name of the tank on the screen
-    ldy #$00
-    lda TankNr
-    asl
-    asl
-    asl ; 8 chars per name
-    tax
-NextChar02
-    lda tanksnames,x
-    sta statusBuffer+7,y
-    inx
-    iny
-    cpy #$08
-    bne NextChar02
-	; memory !!!!
-;	ldx TankNr
-;	ldy #$5e	; Computer symbol
-;	lda SkillTable,x
-;	bne ThisIsAI
-;	ldy #$0a	; Joystick symbol
-;ThisIsAI
-;	sty statusBuffer+16
-    rts
-.endp
-;-------------------------------------------------
 .proc RoundOverSprites
     ; fill sprites with bytes
     ldy numberOfPlayers

weapons.asm

@@ -1082,8 +1082,8 @@ ContinueToCheckMaxForce2
       sta ForceTableL,x
 @
 	mva #0 Erase
-    jsr DisplayStatus ;all digital values like force, angle, wind, etc.
     jsr PutTankNameOnScreen
+;    jsr DisplayStatus	; There is no need anymore, it is always after PutTankNameOnScreen
 
     jsr DrawTankNr
 
@@ -2534,7 +2534,7 @@ SpyHardEnd
     lda TankStatusColoursTable,x
     sta COLOR2  ; set color of status line
     jsr PutTankNameOnScreen
-    jsr DisplayStatus
+;    jsr DisplayStatus	; There is no need anymore, it is always after PutTankNameOnScreen
 	rts
 .endp
 ; -------------------------------------------------