From 9b18dd8aa4d38bf0ef15d6e021f07cc7888976c9 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Mon, 14 Sep 2015 12:19:56 -0400
Subject: [PATCH] set mark should only work for regular or soft link files

---
 set_mark.aii | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/set_mark.aii b/set_mark.aii
index 4ff181a..b6a3a60 100644
--- a/set_mark.aii
+++ b/set_mark.aii
@@ -39,6 +39,21 @@ set_mark	procname export
 	jsr init_fcr
 
 
+	; can only read from regular files or links.
+	lda disk_inode.mode
+	and #S_IFMT
+	cmp #S_IFREG
+	beq @ok
+	cmp #S_IFLNK
+	beq @ok
+
+	lda #bad_store_type
+	sec
+	rtl
+
+@ok
+
+
 	ldy #fcr.mark
 	lda [my_fcr],y
 	sta mark