Some more changes for a fully working KL ITS build.

.circleci/config.yml

@@ -65,5 +65,6 @@ workflows:
   build:
     jobs:
       - build_ka10
+      - build_kl10
       - build_klh10
       - build_simh

build/kl10/include.tcl

@@ -163,27 +163,29 @@ proc clib_switches {} {
 }
 
 proc patch_lisp {} {
-    respond "*" ":job lisp\r"
-    respond "*" ":load .; @ lisp\r"
-    respond "*" "33777//\031"
-    respond "*" "\033q\033,777777\033\033z"
-    respond "*" "pitele+13/"
-    respond "FSC" "push p,b\n"
-    respond "FSC" "jrst patch\r"
-    respond "\n" "patch/"
-    respond "0" "move b,echocc\n"
-    respond "0" "add b,ticc\n"
-    respond "0" "dpb b,.+3\n"
-    respond "0" "pop p,b\n"
-    respond "0" "jrst pitele+15\n"
-    respond "0" "331000,,a\r"
-    respond "\n" "\033y"
-    respond " " "dsk0:.;@ lisp\r"
-    respond "*" ":kill\r"
 }
 
 proc translate_diagnostics {} {
+    respond "*" "\033\024"
+    respond " " "dsk: maint; part f, part f.old\r"
+    respond "*" "\033\024"
+    respond " " "dsk: maint; part g, part g.old\r"
+    respond "*" "\033\024"
+    respond " " "dsk: maint; part k, part k.old\r"
 }
 
 proc patch_clib_16 {} {
+    respond "*" ":job clib\r"
+    respond "*" "\033\060l"
+    respond " " "c; \[clib\] 16\r"
+    respond "*" "23237/"
+    respond "FIX" "ufa 1,775763\n"
+    respond "JRST" "tlo 2,777000\r"
+    respond "\n" "23244/"
+    respond "FIX" "ufa 1,775763\n"
+    respond "MOVN" "tlo 2,777000\n"
+    respond "JRST" "movn 2,2\r"
+    respond "\n" "\033\060y"
+    respond " " "c; \[clib\] 16\r"
+    respond "*" ":kill\r"
 }

build/pdp10-kl/start

@@ -1,7 +1,5 @@
 #!/bin/sh
 
-TVCON=${TVCON:--2}
-
 EXIT=:
 trap "" QUIT INT TERM
 
@@ -24,20 +22,10 @@ gt40() {
     started GT40 "$!"
 }
 
-tv11() {
-    (sleep 3; tools/tv11/tv11 -p 10011 localhost >tv11.log 2>&1) &
-    started TV-11 "$!"
-}
-
-tvcon() {
-    (sleep 4; tools/tv11/tvcon/tvcon $TVCON localhost >tvcon.log 2>&1) &
-    started "TV-console" "$!"
-}
-
 while test -n "$1"; do
     "$1"
     shift
 done
 
-tools/sims/BIN/pdp10-ka build/pdp10-ka/run
+tools/sims/BIN/pdp10-ka build/pdp10-kl/run
 exit 0

src/l/*lisp.154

@@ -15489,7 +15489,7 @@ IFN ITS,[
 	 .VALUE
 	SETZ A,			;CONVERT TO ATOMIC SYMBOL
 	HLRZS TT
-    IRP X,,[AI,ML,MC,MD,MX,DB,KA]
+    IRP X,,[AI,ML,MC,MD,MX,DB,KA,KL]
 	CAIN TT,(SIXBIT \X\)
 	 MOVEI A,Q!X
     TERMIN 

src/l/struct.658

@@ -715,7 +715,7 @@ PG$		MRA PAGING
 		MRA PPN
 20$ 		MRA PS
 IFN ITS,[
-		MRA [ITS,AI,ML,MC,MD,MX,DB,KA]
+		MRA [ITS,AI,ML,MC,MD,MX,DB,KA,KL]
 		MRA EXPERIMENTAL
 		MRA .LISP.
 ]	;END OF IFN ITS