open needs to return the refund...

2016-10-18 13:15:11 -04:00 · 2016-10-18 13:15:11 -04:00 · 706ad3ff3d
parent 837e992254
commit 706ad3ff3d
1 changed files with 6 additions and 0 deletions
--- 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