From da74a7a94194d0d9cf8230b101d225be9a1fad4c Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 11 Apr 2019 07:48:34 +0200
Subject: [PATCH] Binary patch PDP-6 LISP to work on a PDP-10.

Also move in-core symbol table to SBLK format, and remove the in-core
DDT.
---
 build/ka10/include.tcl | 20 ++++++++++++++++++++
 build/ks10/include.tcl |  3 +++
 build/lisp.tcl         |  4 ++++
 3 files changed, 27 insertions(+)

diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl
index aa15f342..693db5e6 100644
--- a/build/ka10/include.tcl
+++ b/build/ka10/include.tcl
@@ -163,3 +163,23 @@ proc update_microcode {} {
 proc clib_switches {} {
     respond "with ^C" "\003"
 }
+
+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"
+}
diff --git a/build/ks10/include.tcl b/build/ks10/include.tcl
index 8e1513e5..217c5588 100644
--- a/build/ks10/include.tcl
+++ b/build/ks10/include.tcl
@@ -189,3 +189,6 @@ proc update_microcode {} {
 proc clib_switches {} {
     respond "with ^C" "KS10==1\r\003"
 }
+
+proc patch_lisp {} {
+}
diff --git a/build/lisp.tcl b/build/lisp.tcl
index 4d57c5b8..e4643e4d 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -1,5 +1,9 @@
 log_progress "ENTERING BUILD SCRIPT: LISP"
 
+
+# PDP-6 LISP.
+patch_lisp
+
 # lisp
 respond "*" ":link l;fasdfs 1,lisp;.fasl defs\r"
 respond "*" ":link lisp;grind fasl,lisp;gfile fasl\r"