From 40bc0b984056f678073d30e1e20c9890257efffa Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Fri, 2 Aug 2019 20:41:31 +0000
Subject: [PATCH] Fixed DQXDEV (DQ) device to work in KA-10.  Resolve #1669.

---
 build/ka10/include.tcl              |  4 ++++
 build/kl10/include.tcl              |  4 ++++
 build/ks10/include.tcl              |  4 ++++
 build/misc.tcl                      |  1 +
 src/sysnet/{dqxdev.41 => dqxdev.42} | 28 +++++++++++++++++++++++++++-
 5 files changed, 40 insertions(+), 1 deletion(-)
 rename src/sysnet/{dqxdev.41 => dqxdev.42} (97%)

diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl
index e06a71a9..9679d4c5 100644
--- a/build/ka10/include.tcl
+++ b/build/ka10/include.tcl
@@ -221,3 +221,7 @@ proc copy_to_klfe {file} {
 proc comsat_switches {} {
     respond "Limit to KA-10 instructions" "y\r"
 }
+
+proc dqxdev_switches {} {
+    respond "Limit to KA-10 instructions" "y\r"
+}
diff --git a/build/kl10/include.tcl b/build/kl10/include.tcl
index 47da79f3..e086c181 100644
--- a/build/kl10/include.tcl
+++ b/build/kl10/include.tcl
@@ -196,3 +196,7 @@ proc copy_to_klfe {file} {
 proc comsat_switches {} {
     respond "Limit to KA-10 instructions" "y\r"
 }
+
+proc dqxdev_switches {} {
+    respond "Limit to KA-10 instructions" "y\r"
+}
diff --git a/build/ks10/include.tcl b/build/ks10/include.tcl
index 4cafb3f5..19a56fbb 100644
--- a/build/ks10/include.tcl
+++ b/build/ks10/include.tcl
@@ -210,3 +210,7 @@ proc copy_to_klfe {file} {
 proc comsat_switches {} {
     respond "Limit to KA-10 instructions" "n\r"
 }
+
+proc dqxdev_switches {} {
+    respond "Limit to KA-10 instructions" "n\r"
+}
diff --git a/build/misc.tcl b/build/misc.tcl
index 50cbfdc9..67edf956 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -194,6 +194,7 @@ comsat_switches
 expect ":KILL"
 
 respond "*" ":midas device;jobdev dq_sysnet;dqxdev\r"
+dqxdev_switches
 expect ":KILL"
 
 respond "*" "comsat\033j"
diff --git a/src/sysnet/dqxdev.41 b/src/sysnet/dqxdev.42
similarity index 97%
rename from src/sysnet/dqxdev.41
rename to src/sysnet/dqxdev.42
index 1cd3d2ea..b5709b8d 100644
--- a/src/sysnet/dqxdev.41
+++ b/src/sysnet/dqxdev.42
@@ -92,6 +92,24 @@ $barf:	.call joberr
 	 quit
 	quit
 
+IF1,[
+
+DEFINE IFCE A,B
+IFE SIXBIT/A/-SIXBIT/B/,TERMIN	;SUBSTITUTE FOR IFSE THAT IGNORES CASE
+
+PRINTX /Limit to KA-10 instructions? /
+.TTYMAC KAONLY
+  IRPS Z,,[YES Y]
+  IFCE Z,KAONLY,{
+	$$KA10==1
+	.ISTOP
+	}
+  TERMIN
+TERMIN
+
+IFNDEF $$KA10, $$KA10==0
+]
+
 $$arpa==1
 $$chaos==1
 $$hostnm==1
@@ -373,7 +391,15 @@ qt.ptr:	move a,qclass		; which type of foo-ADDR are we lookinf for?
 	call strlen
 	sub a,t			; get difference
 	ifg. a			; better be something left!
-	  adjbp a,[440700,,qname]	; point at where trailer should be
+IFN $$KA10,[
+          move t,[440700,,qname]
+          ibp t
+          sojg a, .-1
+          move a,t
+]
+IFE $$KA10,[
+	 adjbp a,[440700,,qname]	; point at where trailer should be
+]
 	  call strcmp		; strings match?
 	anskp.			; yup
 	  setz t,		; tie off string