From 6c9c38e477a1fb69096fbee7971e6c67aa3752b7 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sun, 16 Aug 2015 21:18:56 -0400
Subject: [PATCH] fix lookup bugs...

---
 get_dir_entry.aii | 8 ++++----
 get_file_info.aii | 9 +++++----
 2 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/get_dir_entry.aii b/get_dir_entry.aii
index daa422e..f4ae632 100644
--- a/get_dir_entry.aii
+++ b/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!
 
 
diff --git a/get_file_info.aii b/get_file_info.aii
index 90f9357..ce5b20e 100644
--- a/get_file_info.aii
+++ b/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?