From 56bd0e185932429620e00148cbca177325ed5123 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 27 Apr 2023 07:49:02 +0200
Subject: [PATCH] Start a CADR Lisp machine.

---
 README.md            | 1 +
 build/klh10/start    | 1 +
 build/pdp10-ka/start | 6 ++++++
 build/pdp10-kl/start | 1 +
 build/pdp10-ks/start | 1 +
 5 files changed, 10 insertions(+)

diff --git a/README.md b/README.md
index e6d02cfe..188f9f8f 100644
--- a/README.md
+++ b/README.md
@@ -121,6 +121,7 @@ with all PDP-10 emulators by default.
 | vt52    | VT52              | text   | no    | yes      | yes      | yes      | yes
 | tek     | Tektronix 4010    | vector | no    | yes      | yes      | no       | no
 | chaosnet | CHAOS network    | network | yes  | yes      | yes      | yes      | no
+| cadr    | CADR Lisp machine | cpu    | yes  | yes       | yes      | yes      | no
 
 ### Documentation
 
diff --git a/build/klh10/start b/build/klh10/start
index 68f8a2a4..30f87c3f 100755
--- a/build/klh10/start
+++ b/build/klh10/start
@@ -27,6 +27,7 @@ This start script takes several command line arguments:
 
 help - Display this help text.
 chaosnet - Set up a local Chaosnet.
+cadr - Start a CADR Lisp machine emulator.
 
 EOF
 
diff --git a/build/pdp10-ka/start b/build/pdp10-ka/start
index 4ec63b42..b03c4afb 100755
--- a/build/pdp10-ka/start
+++ b/build/pdp10-ka/start
@@ -78,6 +78,11 @@ chaosnet() {
     started "Chaosnet" "$!"
 }
 
+cadr() {
+    (sleep 3; tools/usim/usim >usim.log 2>&1) &
+    started "CADR" "$!"
+}
+
 help() {
     cat <<EOF
 This start script takes several command line arguments:
@@ -94,6 +99,7 @@ vt52 - Start a VT52 emulator.
 tek - Start a Tektronix 4010 emulator.
 cscope - Enable the color scope.
 chaosnet - Set up a local Chaosnet.
+cadr - Start a CADR Lisp machine emulator.
 
 EOF
 
diff --git a/build/pdp10-kl/start b/build/pdp10-kl/start
index 1af2702a..1042797b 100755
--- a/build/pdp10-kl/start
+++ b/build/pdp10-kl/start
@@ -39,6 +39,7 @@ help - Display this help text.
 vt52 - Start a VT52 emulator.
 tek - Start a Tektronix 4010 emulator.
 chaosnet - Set up a local Chaosnet.
+cadr - Start a CADR Lisp machine emulator.
 
 EOF
 
diff --git a/build/pdp10-ks/start b/build/pdp10-ks/start
index cea5b4e4..4a35ffe6 100755
--- a/build/pdp10-ks/start
+++ b/build/pdp10-ks/start
@@ -38,6 +38,7 @@ help - Display this help text.
 gt40 - Start a GT40 emulator.
 vt52 - Start a VT52 emulator.
 chaosnet - Set up a local Chaosnet.
+cadr - Start a CADR Lisp machine emulator.
 
 EOF