Pecus/scorch_src
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Better numers in default tank names

Browse Source
This commit is contained in:
Pecusx
2023-05-25 08:47:58 +02:00
parent 10ecbeac26
commit 1edf0d5a1e
5 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Atari/textproc.asm
+2
View File
@@ -1279,10 +1279,12 @@ MakeDefaultName
@ lda (temp2),y @ lda (temp2),y
and #$7f ; remove inverse and #$7f ; remove inverse
sta tanksnames,x sta tanksnames,x
beq MakeNumber ; first space found :)
inx inx
iny iny
cpy #8 cpy #8
bne @- bne @-
MakeNumber
ldy tanknr ldy tanknr
lda digits+1,y lda digits+1,y
sta tanksnames,x sta tanksnames,x
C64/textproc.asm
+2
View File
@@ -201,10 +201,12 @@ MakeDefaultName
@ lda (temp2),y @ lda (temp2),y
and #$7f ; remove inverse and #$7f ; remove inverse
sta tanksnames,x sta tanksnames,x
beq MakeNumber ; first space found :)
inx inx
iny iny
cpy #8 cpy #8
bne @- bne @-
MakeNumber
ldy tanknr ldy tanknr
lda digits+1,y lda digits+1,y
sta tanksnames,x sta tanksnames,x
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.
scorchC64.prg
BIN
View File
Binary file not shown.