Fixed DQXDEV (DQ) device to work in KA-10. Resolve #1669.

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"
+}

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"
+}

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"
+}

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"

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