boot string needs a colon....

This commit is contained in:
Kelvin Sherlock 2021-07-18 14:36:05 -04:00
parent ccf2443ba5
commit 760209d790
1 changed files with 7 additions and 2 deletions

View File

@ -116,6 +116,7 @@ cat_str dcb.b 32, 0
getbootname proc
; getbootname(GSString *)
; return string needs a leading colon.
with dp
@ -140,14 +141,18 @@ getbootname proc
with HFSMasterDirectoryBlock
lda buffer+drVN
and #$ff
inc a ; + 1 for :
sta [ptr]
inc a
inc a ; round up and divide
lsr a
tax ; count
dex
ldy #2
@loop lda buffer+drVN-1,y
lda #':'
sta [ptr],y
iny
@loop lda buffer+drVN-2,y
sta [ptr],y
iny
iny