mirror of
https://github.com/ksherlock/hfs-boot.git
synced 2024-09-27 13:57:28 +00:00
fixes...
This commit is contained in:
parent
c485c299a5
commit
7d38d2dd17
45
loader.aii
45
loader.aii
@ -86,9 +86,9 @@ auxtype dc.w 0
|
|||||||
|
|
||||||
data record
|
data record
|
||||||
; store catalog info
|
; store catalog info
|
||||||
slot dc.w 0
|
;slot dc.w 0
|
||||||
unit dc.w 0
|
;unit dc.w 0
|
||||||
vector dc.w 0
|
;vector dc.w 0
|
||||||
|
|
||||||
block_offset dc.w 0
|
block_offset dc.w 0
|
||||||
|
|
||||||
@ -449,6 +449,7 @@ read_block_abs
|
|||||||
sta pro.block
|
sta pro.block
|
||||||
endif
|
endif
|
||||||
|
|
||||||
|
clc
|
||||||
php
|
php
|
||||||
sec
|
sec
|
||||||
xce
|
xce
|
||||||
@ -572,14 +573,14 @@ eloop
|
|||||||
lda buffer,x ; entry offset
|
lda buffer,x ; entry offset
|
||||||
xba
|
xba
|
||||||
tay
|
tay
|
||||||
lda data+HFSCatalogKey.parentID,y
|
lda buffer+HFSCatalogKey.parentID,y
|
||||||
xba
|
xba
|
||||||
cmp target_parent+2
|
cmp target_parent+2
|
||||||
beq @p2
|
beq @p2
|
||||||
blt @lt
|
blt @lt
|
||||||
bge @gt
|
bge @gt
|
||||||
|
|
||||||
@p2 lda data+HFSCatalogKey.parentID+2,y
|
@p2 lda buffer+HFSCatalogKey.parentID+2,y
|
||||||
xba
|
xba
|
||||||
cmp target_parent
|
cmp target_parent
|
||||||
beq @nm
|
beq @nm
|
||||||
@ -612,7 +613,7 @@ eloop
|
|||||||
; descend....
|
; descend....
|
||||||
lda buffer+BTNodeDescriptor.kind-1
|
lda buffer+BTNodeDescriptor.kind-1
|
||||||
bmi @leaf
|
bmi @leaf
|
||||||
lda data+38+2,y
|
lda buffer+38+2,y
|
||||||
xba
|
xba
|
||||||
sta bnum
|
sta bnum
|
||||||
bra ix
|
bra ix
|
||||||
@ -622,7 +623,7 @@ eloop
|
|||||||
|
|
||||||
|
|
||||||
; if this is an index node, keep it for later
|
; if this is an index node, keep it for later
|
||||||
@lt lda data+38+2,y
|
@lt lda buffer+38+2,y
|
||||||
xba
|
xba
|
||||||
sta prev
|
sta prev
|
||||||
|
|
||||||
@ -633,7 +634,7 @@ eloop
|
|||||||
bne eloop
|
bne eloop
|
||||||
|
|
||||||
advance
|
advance
|
||||||
lda data+BTNodeDescriptor.fLink
|
lda buffer+BTNodeDescriptor.fLink
|
||||||
beq nope
|
beq nope
|
||||||
xba
|
xba
|
||||||
sta bnum
|
sta bnum
|
||||||
@ -666,10 +667,10 @@ name_check
|
|||||||
ldx #0
|
ldx #0
|
||||||
short m
|
short m
|
||||||
|
|
||||||
lda data+HFSCatalogKey.nodeName,y
|
lda buffer+HFSCatalogKey.nodeName,y
|
||||||
sta cat_str_len
|
sta cat_str_len
|
||||||
@loop
|
@loop
|
||||||
lda data+HFSCatalogKey.nodeName+1,y
|
lda buffer+HFSCatalogKey.nodeName+1,y
|
||||||
sta cat_str,x
|
sta cat_str,x
|
||||||
iny
|
iny
|
||||||
inx
|
inx
|
||||||
@ -770,10 +771,10 @@ folder
|
|||||||
bpl @eloop
|
bpl @eloop
|
||||||
|
|
||||||
|
|
||||||
lda data+folderID+2,y
|
lda buffer+folderID+2,y
|
||||||
xba
|
xba
|
||||||
sta file_id
|
sta file_id
|
||||||
lda data+folderID,y
|
lda buffer+folderID,y
|
||||||
xba
|
xba
|
||||||
sta file_id+2
|
sta file_id+2
|
||||||
|
|
||||||
@ -828,10 +829,10 @@ file
|
|||||||
xba
|
xba
|
||||||
stz file_extents+10
|
stz file_extents+10
|
||||||
|
|
||||||
lda data+fileID+2,y
|
lda buffer+fileID+2,y
|
||||||
xba
|
xba
|
||||||
sta file_id
|
sta file_id
|
||||||
lda data+fileID,y
|
lda buffer+fileID,y
|
||||||
xba
|
xba
|
||||||
sta file_id+2
|
sta file_id+2
|
||||||
|
|
||||||
@ -842,14 +843,14 @@ file
|
|||||||
|
|
||||||
stz ft
|
stz ft
|
||||||
stz at
|
stz at
|
||||||
lda data+userInfo+4,y
|
lda buffer+userInfo+4,y
|
||||||
cmp #'dp'
|
cmp #'dp'
|
||||||
bne noft
|
bne noft
|
||||||
lda data+userInfo+4+2,y
|
lda buffer+userInfo+4+2,y
|
||||||
cmp #'so'
|
cmp #'so'
|
||||||
bne noft
|
bne noft
|
||||||
pdos
|
pdos
|
||||||
lda data+userInfo,y
|
lda buffer+userInfo,y
|
||||||
tax
|
tax
|
||||||
and #$ff
|
and #$ff
|
||||||
cmp #'p'
|
cmp #'p'
|
||||||
@ -858,7 +859,7 @@ pdos
|
|||||||
xba
|
xba
|
||||||
and #$ff
|
and #$ff
|
||||||
sta ft
|
sta ft
|
||||||
lda data+userInfo+2,y
|
lda buffer+userInfo+2,y
|
||||||
xba
|
xba
|
||||||
sta at
|
sta at
|
||||||
noft
|
noft
|
||||||
@ -900,9 +901,11 @@ startup proc
|
|||||||
|
|
||||||
; assume 16-bit, etc.
|
; assume 16-bit, etc.
|
||||||
|
|
||||||
stx slot
|
; unit still active from before, for now....
|
||||||
|
|
||||||
|
; stx slot
|
||||||
sty vector
|
sty vector
|
||||||
sta unit
|
; sta unit
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
tcd
|
tcd
|
||||||
@ -942,7 +945,7 @@ startup proc
|
|||||||
jsr read_block
|
jsr read_block
|
||||||
|
|
||||||
with BTHeaderRec
|
with BTHeaderRec
|
||||||
lda data+BTNodeDescriptor.sizeof+rootNode+2
|
lda buffer+BTNodeDescriptor.sizeof+rootNode+2
|
||||||
xba
|
xba
|
||||||
sta cat_root
|
sta cat_root
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user