fix lookup bugs...

get_dir_entry.aii

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

get_file_info.aii

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