Apple-2gs-SW/hfs-boot
1
0
Fork 0
mirror of https://github.com/ksherlock/hfs-boot.git synced 2025-01-02 18:29:59 +00:00
Code Issues Projects Releases Wiki Activity

boot string needs a colon....

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
loader.aii
View File

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