From cf591b2d73c71baea8430a7a8cab0d54ec2cf9bd Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Mon, 17 Aug 2015 10:48:27 -0400
Subject: [PATCH] get_mark, get_eof

---
 Makefile     |  2 +-
 fst.macros   |  3 +-
 get_eof.aii  | 75 ++++++++++++++++++++++++++++++++++++++++++++++
 get_mark.aii | 85 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 records.equ  | 34 +++++++++++++++++++++
 stubs.aii    |  2 --
 tables.aii   |  4 +--
 7 files changed, 199 insertions(+), 6 deletions(-)
 create mode 100644 get_eof.aii
 create mode 100644 get_mark.aii

diff --git a/Makefile b/Makefile
index e39d84e..1beb7e4 100644
--- a/Makefile
+++ b/Makefile
@@ -1,7 +1,7 @@
 
 
 SOURCES = main.aii volume.aii get_file_info.aii \
-	open.aii get_dir_entry.aii close.aii \
+	open.aii get_dir_entry.aii get_mark.aii get_eof.aii close.aii \
 	id_disk.aii stubs.aii tables.aii device.aii params.aii data.aii
 
 OBJECTS=$(SOURCES:.aii=.o)
diff --git a/fst.macros b/fst.macros
index cf5c25c..7c10aa7 100644
--- a/fst.macros
+++ b/fst.macros
@@ -260,4 +260,5 @@
 
 	rts
 @ok
-	mend
\ No newline at end of file
+	mend
+
diff --git a/get_eof.aii b/get_eof.aii
new file mode 100644
index 0000000..86b2b8f
--- /dev/null
+++ b/get_eof.aii
@@ -0,0 +1,75 @@
+
+	string asis
+
+	include 'gsos.equ'
+	include 'minix.equ'
+	include 'fst.equ'
+
+	include 'fst.macros'
+
+	include 'M16.Debug'
+
+	include 'records.equ'
+
+
+	import do_eof
+	import do_ignore
+	import init_fcr
+
+get_eof	procname	export
+
+	with dp, fst_parms
+
+	jsr init_fcr
+
+	lda disk_inode.mode
+	and #S_IFMT
+	cmp #S_IFREG
+	beq ok
+	cmp #S_IFLNK ; ehh
+	beq ok
+
+	lda #bad_store_type
+	sec
+	rtl
+ok
+
+
+	lda <call_class
+	beq class0
+
+class1
+	lda [param_blk_ptr] ; pcount
+	dec a
+	asl a ; x 2
+	asl a ; x 4
+	tax
+	dispatch get_eof_dcb_1
+	lda tool_error
+	cmp #0
+	rtl
+
+class0
+	ldx #get_eof_dcb_0_size-4
+	dispatch get_eof_dcb_0
+	lda tool_error
+	cmp #0
+	rtl
+
+get_eof_dcb_0
+	with EOFRec
+	dc.w eofRefNum, do_ignore
+	dc.w eofPosition, do_eof
+get_eof_dcb_0_size equ *-get_eof_dcb_0
+	endwith
+
+get_eof_dcb_1
+	with EOFRecGS
+	;dc.w pCount, do_ignore
+	dc.w refNum, do_ignore
+	dc.w eof, do_eof
+	endwith
+
+	endp
+
+	end
diff --git a/get_mark.aii b/get_mark.aii
new file mode 100644
index 0000000..f7c1e2b
--- /dev/null
+++ b/get_mark.aii
@@ -0,0 +1,85 @@
+
+	string asis
+
+	include 'gsos.equ'
+	include 'minix.equ'
+	include 'fst.equ'
+
+	include 'fst.macros'
+
+	include 'M16.Debug'
+
+	include 'records.equ'
+
+
+	import do_eof
+	import do_ignore
+	import init_fcr
+
+get_mark	procname	export
+
+	with dp, fst_parms
+
+	jsr init_fcr
+
+	lda disk_inode.mode
+	and #S_IFMT
+	cmp #S_IFREG
+	beq ok
+	cmp #S_IFLNK ; ehh
+	beq ok
+
+	lda #bad_store_type
+	sec
+	rtl
+ok
+
+	; copy fcr.mark to disk_inode.size to re-use eof code.
+
+	ldy #fcr.mark
+	lda [my_fcr],y
+	sta disk_inode.size
+	iny
+	iny
+	lda [my_fcr],y
+	sta disk_inode.size+2
+
+	lda <call_class
+	beq class0
+
+class1
+	lda [param_blk_ptr] ; pcount
+	dec a
+	asl a ; x 2
+	asl a ; x 4
+	tax
+	dispatch get_mark_dcb_1
+	lda tool_error
+	cmp #0
+	rtl
+
+class0
+	ldx #get_mark_dcb_0_size-4
+	dispatch get_mark_dcb_0
+	lda tool_error
+	cmp #0
+	rtl
+
+get_mark_dcb_0
+	with MarkRec
+	dc.w markRefNum, do_ignore
+	dc.w position, do_eof
+get_mark_dcb_0_size equ *-get_mark_dcb_0
+	endwith
+
+get_mark_dcb_1
+	with PositionRecGS
+	;dc.w pCount, do_ignore
+	dc.w refNum, do_ignore
+	dc.w position, do_eof
+	endwith
+
+
+	endp
+
+	end
diff --git a/records.equ b/records.equ
index 9782c21..24afa69 100644
--- a/records.equ
+++ b/records.equ
@@ -168,3 +168,37 @@ freeBlocks	DS.B 4
 fileSysID	DS.B 2
 sizeof		equ *
 		end_struct
+
+
+JudgeNameRecGS	begin_struct
+pCount		ds.w	1
+fileSysID	ds.w	1
+nameType	ds.w	1
+syntax		ds.l	1
+maxLen		ds.w	1
+name		ds.l	1
+nameFlags	ds.w	1
+		end_struct
+
+PositionRecGS	begin_struct
+pCount		DS.W	1
+refNum		DS.W	1
+position	DS.L	1
+		end_struct
+
+MarkRec		begin_struct
+markRefNum	DS.B 2
+position	DS.B 4
+		end_struct
+
+EOFRecGS	begin_struct
+pCount		DS.W	1
+refNum		DS.W	1
+eof		DS.L	1
+		end_struct
+
+
+EOFRec		begin_struct
+eofRefNum	DS.B 2
+eofPosition	DS.B 4
+		end_struct
\ No newline at end of file
diff --git a/stubs.aii b/stubs.aii
index 98c87a3..d6dc2c4 100644
--- a/stubs.aii
+++ b/stubs.aii
@@ -11,8 +11,6 @@ stubs	proc
 	export flush
 	export format
 	export get_dev_num
-	export get_eof
-	export get_mark
 	export judge_name
 	export read
 	export set_eof
diff --git a/tables.aii b/tables.aii
index e62a01e..7661edb 100644
--- a/tables.aii
+++ b/tables.aii
@@ -14,7 +14,7 @@ max_pcount
 		dc.w	4				; ($04) Change Path
 		dc.w	13				; ($05) Set File Info
 		dc.w	13				; ($06) Get File Info
-		dc.w	0				; ($07)
+		dc.w	6				; ($07) Judge Name
 		dc.w	7				; ($08) Volume
 		dc.w	0				; ($09) Set Prefix
 		dc.w	0				; ($0A) Get Prefix
@@ -68,7 +68,7 @@ min_pcount
 		dc.w	2				; ($04) Change Path
 		dc.w	2				; ($05) Set File Info
 		dc.w	2				; ($06) Get File Info
-		dc.w	0				; ($07)
+		dc.w	3				; ($07) Judge Name
 		dc.w	2				; ($08) Volume
 		dc.w	0				; ($09) Set Prefix
 		dc.w	0				; ($0A) Get Prefix