Spaces in tank names #120

2026-05-21 06:39:40 +02:00 · 2022-08-18 13:48:36 +02:00
parent 316cf9569f
commit 39463ed0bb
3 changed files with 10 additions and 4 deletions
@@ -1096,14 +1096,20 @@ NoArrowDown
    
    ldy #0
@     lda TanksNames,x
-      beq endOfTankName
+;      beq endOfTankName
      sta NameAdr,y
      inx
      iny
      cpy #8
    bne @-
 endOfTankName
-    
+
+@	lda NameAdr,y
+	bne LastNameChar
+	dey
+	bpl @-
+LastNameChar
+	iny

    lda #$80 ; place cursor on the end
    sta NameAdr,y