Added OPS4 and HAUNT

Makefile

@@ -55,7 +55,7 @@ SRC = syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       decus bsg muds54 hello rrs 2500 minsky danny survey librm3 librm4 \
       klotz atlogo clusys cprog r eb cpm mini nova sits nlogo bee gld mprog2 \
       cfs libmud librm1 librm2 mprog mprog1 mudbug mudsav _batch combat \
-      mits_b minits spacy _xgpr_
+      mits_b minits spacy _xgpr_ haunt
 DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       chprog sail draw wl pc tj6 share _glpr_ _xgpr_ inquir mudman system \
       xfont maxout ucode moon acount alan channa fonts games graphs humor \

build/build.tcl

@@ -171,6 +171,7 @@ if {$env(BASICS)!="yes"} {
     source $build/misc.tcl
     source $build/$cpu/processor.tcl
     source $build/lisp.tcl
+    source $build/haunt.tcl
     if {$env(MACSYMA)=="yes"} {
 	source $build/macsyma.tcl
     }

build/haunt.tcl

@@ -0,0 +1,37 @@
+log_progress "ENTERING BUILD SCRIPT: HAUNT"
+
+respond "*" ":cwd haunt\r"
+
+# build ops4
+respond "*" "complr\013"
+respond "_" "haunt;_haunt;ops4 lsp\r"
+respond "_" "\032"
+type ":kill\r"
+
+# dump ops4
+respond "*" "lisp\013"
+respond "Alloc?" "n\r"
+respond "*" "(load '((haunt) ops4 load))"
+respond "T" "(dump-it)"
+respond ":\$Job Suspended\$" ":pdump haunt;ts ops4\r"
+type ":kill\r"
+
+# build compile haunt lisp code
+respond "*" "complr\013"
+respond "_" "haunt;_haunt;comman lsp\r"
+respond "_" "haunt;_haunt;haunt lsp\r"
+respond "_" "haunt;_haunt;slurp lsp\r"
+respond "_" "haunt;_haunt;tlist lsp\r"
+respond "_" "haunt;_haunt;user lsp\r"
+respond "_" "\032"
+type ":kill\r"
+
+# dump haunt
+respond "*" ":haunt;ops4\r"
+respond "(CREATED" "(load '((haunt) haunt load))"
+respond ":\$Job Suspended\$" ":sl sys;purqio >\r"
+respond "*" ":pdump haunt;ts haunt\r"
+
+# make available in SYS:
+respond "*" ":link sys3;ts haunt,haunt;ts haunt\r"
+respond "*" ":link sys3;ts ops4,haunt;ts ops4\r"

build/timestamps.txt

@@ -766,6 +766,18 @@ gt40/bootvt.s09 197202050000.00
 gt40/vt07.bin29 197508142300.00
 gz/macn80.mid 198305031813.01
 gz/mmodem.181 198511261237.46
+haunt/comman.lsp 198207011415.01
+haunt/haunt.load 202410171505.00
+haunt/haunt.lsp 198207011415.01
+haunt/hauntb.mps 198207011415.01
+haunt/haunth.mps 198207011415.01
+haunt/haunto.mps 198207011415.01
+haunt/hauntp.mps 198207011415.01
+haunt/ops4.load 202410180740.00
+haunt/ops4.lsp 198207011415.01
+haunt/slurp.lsp 198207011415.01
+haunt/tlist.lsp 198207011415.01 
+haunt/user.lsp 198207011415.01
 humor/alices.pdp10 198505161952.01
 humor/dover.poem 198106262242.08
 humor/jargon.68 198308102314.15

doc/programs.md

@@ -141,6 +141,7 @@
 - GUNNER, gun down jobs.
 - GMSGS, copy system messages to mail file.
 - H3MAKE, a job that requests DRAGON to build host table.
+- HAUNT, a text-based adventure game written by John Laird in OPS4.
 - HEXIFY, convert COM file into Intel HEX format.
 - HOST, display information about a network host.
 - HOSTAB, display HOSTS2 format host table.
@@ -262,6 +263,7 @@
 - OCTPUS, print character representations.
 - OINIT, init program reporting last login, email.
 - OS, realtime TTY spy.
+- OPS4, a production system that supports HAUNT.
 - OTHELLO, the original Othello game -- simpler than Go.
 - OTJ6, an old version of TJ6.
 - PALX, PDP-11 cross assembler.

src/haunt/comman.lsp

@@ -0,0 +1,9 @@
+(SWITCHES		TRACE NIL
+			KEEP-LHS OFF)
+
+(SLURP  USER LSP)
+
+(PREDICATE <LT> <GT>)
+
+(RHS-FUNCTION <WRONG> <RAN> <SAV> <EXIT> 
+	      <TIME-INCR> <SENTENCE> <CAPTOSM>)

src/haunt/haunt.load

@@ -0,0 +1,20 @@
+(alloc ''(list (70000 76000 nil) fixnum (15000 22000 .1)))
+(linel t 79)
+(defun gco (x) nil)
+(setq gc-overflow 'gco)
+(load '((lisp) format fasl))
+(load '((haunt) slurp fasl))
+(load '((haunt) comman fasl))
+(load '((haunt) tlist fasl))
+(load '((haunt) haunt fasl))
+;(lslurp comman lsp)
+;(lslurp tlist lsp)
+;(lslurp haunt lsp)
+(lslurp hauntp mps)
+(lslurp haunth mps)
+(lslurp haunto mps)
+(lslurp hauntb mps)
+(alloc ''(list (40000)))
+(sstatus flush nil)
+(begin)
+