From 69b63680ebad259207a7855be12b348472f1c5da Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 11 Jan 2021 14:16:21 +0100
Subject: [PATCH] Preserve DISINI argument across subroutine calls.

---
 src/l/slave.10 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/l/slave.10 b/src/l/slave.10
index 86fdbee1..22a924b0 100644
--- a/src/l/slave.10
+++ b/src/l/slave.10
@@ -19,6 +19,7 @@ VERPRT SLAVE
 
 SIXOPD:	0
 SIXPG:	0
+GTTY:	0
 
 DEFINE FOODEF NAM,PT
 DEFINE NAM
@@ -296,6 +297,7 @@ OPNTEN:	.CALL [	SETZ
 	PUSHJ P,SIXCOR
 	.CALL SIXMAP
 	 .VALUE
+	MOVE F,GTTY
 	MOVEM F,XARG			;0 => 340 SLAVE, "TNM" => GT40 SLAVE
 	MOVE T,@SIXCHN
 	LSH T,27
@@ -363,7 +365,7 @@ DISINI:	AOJG T,DCLR1
 	JUMPN T,DCLR5
 	POP P,A
 	PUSHJ P,SIXMAK
-	HLRZ F,TT
+	HLRZM TT,GTTY
 	PUSHJ P,CLSSIX
 	LOCKI
 	PUSHJ P,GTSIXF