Prepare to better default tank names

Atari/textproc.asm

@@ -1252,35 +1252,33 @@ NotRobot
 
     mva #sfx_next_player sfx_effect
 
-
-    ; check if all chars are empty (" ")
-    ldy #7
-    lda #0
-@     ora NameAdr,y
-      and #$7F  ; remove inverse (Cursor)
-      dey
-    bpl @-
-    tay
-    beq MakeDefaultName
-
     ldy #0
+    stx temp+1  ; remember start position in tanksnames
+    sty temp    ; 0 if name is empty
 @
       lda NameAdr,y
       and #$7f ; remove inverse (Cursor)
       sta tanksnames,x
+      ora temp
+      sta temp
       inx
       iny
       cpy #$08
     bne @-
+    lda temp    ; check if all chars are empty (" ")
+    beq MakeDefaultName    
     rts
 MakeDefaultName
-@
+    ldx temp+1
-      lda tanksnamesDefault,x
+    ldy #7
-      sta tanksnames,x
+@   lda tanksnamesDefault,y
-      inx
+    sta tanksnames,x
-      iny
+    inx
-      cpy #$08
+    dey
     bne @-
+    ldy tanknr
+    lda digits+1,y
+    sta tanksnames,x
     rts
 .endp
 ;--------------------------------------------------

C64/textproc.asm

@@ -169,35 +169,33 @@ NotRobot
 
     mva #sfx_next_player sfx_effect
 
-
-    ; check if all chars are empty (" ")
-    ldy #7
-    lda #0
-@     ora #0 ; NameAdr,y
-      and #$7F  ; remove inverse (Cursor)
-      dey
-    bpl @-
-    tay
-    beq MakeDefaultName
-
     ldy #0
-nextchar04
+    stx temp+1  ; remember start position in tanksnames
-    lda #0 ; NameAdr,y
+    sty temp    ; 0 if name is empty
-    and #$7f ; remove inverse (Cursor)
+@
-    sta tanksnames,x
+      lda #0 ; NameAdr,y
-    inx
+      and #$7f ; remove inverse (Cursor)
-    iny
+      sta tanksnames,x
-    cpy #$08
+      ora temp
-    bne nextchar04
+      sta temp
+      inx
+      iny
+      cpy #$08
+    bne @-
+    lda temp    ; check if all chars are empty (" ")
+    beq MakeDefaultName    
     rts
 MakeDefaultName
-nextchar05
+    ldx temp+1
-    lda tanksnamesDefault,x
+    ldy #7
+@   lda tanksnamesDefault,y
     sta tanksnames,x
     inx
-    iny
+    dey
-    cpy #$08
+    bne @-
-    bne nextchar05
+    ldy tanknr
+    lda digits+1,y
+    sta tanksnames,x
     rts
 .endp
 ;--------------------------------------------------

constants.asm

@@ -225,12 +225,7 @@ SlideLeftTable
 SlideLeftTableLen = *-SlideLeftTable
 ;-------------------------------------------------
 TanksNamesDefault
-    dta d"1st.Tank"
+    dta d"x.n knaT"
-    dta d"2nd.Tank"
-    dta d"3rd.Tank"
-.REPT MaxPlayers-3, #+4
-    dta d":1th.Tank"
-.ENDR
 ;-------------------------------------------------
 TankShapesTable         .BYTE char_tank1
                         .BYTE char_tank2