From d15f7e3af420f160fdc324fee9c59c8ef4600cac Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Fri, 21 Aug 2015 17:32:42 -0400
Subject: [PATCH] set_mark fixes

---
 set_mark.aii | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/set_mark.aii b/set_mark.aii
index 84736d7..ec25cf7 100644
--- a/set_mark.aii
+++ b/set_mark.aii
@@ -15,6 +15,10 @@
 	import disk_inode:v1_inode
 	import disk_super:v1_super
 
+	import init_vcr
+	import init_fcr
+
+
 my_dp	record dp.__end
 
 displacement 	ds.w 1
@@ -26,12 +30,12 @@ mark		ds.l 1
 		ENDIF
 		endr
 
-		import init_fcr
 
 set_mark	procname export
 
 	with dp, my_dp, fst_parms
 
+	jsr init_vcr
 	jsr init_fcr
 
 
@@ -75,6 +79,7 @@ class1
 	cmp #3+1
 	bcs pre
 	asl a ; x 2
+	tax
 	jmp (table,x)
 	
 table