fix lookup bugs...

This commit is contained in:
Kelvin Sherlock 2015-08-16 21:18:56 -04:00
parent 7d456bf025
commit 6c9c38e477
2 changed files with 9 additions and 8 deletions

View File

@ -893,7 +893,7 @@ eod
endp endp
find_entry_by_name proc export find_entry_by_name procname export
; scan the directory and search by name... ; scan the directory and search by name...
@ -906,10 +906,10 @@ find_entry_by_name proc export
bmi fnf bmi fnf
ldx #0 ldx #0
block_loop zone_loop
; x = dirent_zone ; x = dirent_zone
stx dirent_zone stx dirent_zone
lda disk_inode,x lda disk_inode.zone,x
beq sparse beq sparse
jsr read_data_block jsr read_data_block
@ -954,7 +954,7 @@ next_zone
inx inx
inx inx
cpx #v1.NR_DZONES*2 cpx #v1.NR_DZONES*2
bcc block_loop bcc zone_loop
; all out of zones -> not found! ; all out of zones -> not found!

View File

@ -113,7 +113,7 @@ file_info_dcb_1
load_inode proc export load_inode procname export
; ;
; loads inode into disk_inode. ; loads inode into disk_inode.
; ;
@ -216,7 +216,7 @@ ok
; uses path1, dev1, span1. ; uses path1, dev1, span1.
; ;
path_to_inode proc export path_to_inode procname export
with dp,fst_parms with dp,fst_parms
@ -292,7 +292,7 @@ absolute
endp endp
find_file proc find_file procname
with dp with dp
with data with data
@ -324,6 +324,7 @@ dir_loop
ldx #0 ldx #0
ldy path_offset ldy path_offset
short m
path_loop path_loop
lda [path],y lda [path],y
beq eop beq eop
@ -331,13 +332,13 @@ path_loop
beq eop beq eop
sta target.text,x sta target.text,x
inx inx
iny
bra path_loop bra path_loop
eop eop
sta more sta more
long m long m
stx target.length stx target.length
sty path_offset sty path_offset
and #$00ff
; a = ':' or 0 ... worry about which later! ; a = ':' or 0 ... worry about which later!
; target is valid, inode is valid, is target in inode? ; target is valid, inode is valid, is target in inode?