Start a CADR Lisp machine.

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
 

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
 

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
 

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
 

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