set mark should only work for regular or soft link files

2015-09-14 12:19:56 -04:00 · 2015-09-14 12:19:56 -04:00 · 9b18dd8aa4
parent 86be98ef7f
commit 9b18dd8aa4
1 changed files with 15 additions and 0 deletions
--- 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