From 706ad3ff3d1548c303a76cb126baee4904a8de42 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Tue, 18 Oct 2016 13:15:11 -0400
Subject: [PATCH] open needs to return the refund...

---
 host.fst.aii | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/host.fst.aii b/host.fst.aii
index fa0307e..650106f 100644
--- a/host.fst.aii
+++ b/host.fst.aii
@@ -1049,6 +1049,12 @@ open		proc
 		ldy	#fcr.vcr_id
 		sta	[my_fcr],y
 
+		; store the refnum for output.
+		; conveniently, call_class is the offset.
+		lda	[my_fcr]
+		ldy	call_class
+		sta	[param_blk_ptr],y
+
 exit_ok
 		lda	#0
 		clc