github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-26 17:03:20 +00:00
Code Issues Releases Wiki Activity

Zork (616 point version + 100 point endgame) built with MDL 55.

Browse Source
This commit is contained in:
Eric Swenson
2023-02-20 17:20:25 -08:00
committed by Lars Brinkhoff
parent 0130a78a49
commit 2e93c506a5
6 changed files with 122 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
build/build.tcl
View File

@@ -177,6 +177,7 @@ if {$env(BASICS)!="yes"} {
source $build/scheme.tcl
source $build/dm.tcl
source $build/muddle.tcl
source $build/zork.tcl
source $build/sail.tcl
source $build/typeset.tcl
}

4
build/muddle.tcl
View File

@@ -74,7 +74,3 @@ expect ":KILL"
mkdir "mbprog"
respond "*" ":assem \"mprog2;lsrtns >\" \"mbprog;lsrtns nbin\"\r"
expect ":KILL"
# Zork startup
respond "*" ":midas sys2; ts zork_taa; zork\r"
expect ":KILL"

17
build/zork.tcl Normal file
View File

@@ -0,0 +1,17 @@
log_progress "ENTERING BUILD SCRIPT: ZORK"
# Zork startup
respond "*" ":midas sys2; ts zork_taa; zork\r"
expect ":KILL"
mkdir "cfs"
respond "*" ":xxfile lcf;comp log_lcf;comp xxfile\r"
expect -timeout 6000 "Job XXFILE interrupted: .VALUE;"
type "\033p"
expect ":KILL"
respond "*" ":xxfile lcf;zork log_lcf;zork xxfile\r"
expect "Job XXFILE interrupted: .VALUE;"
type "\033p"
expect ":KILL"

8
src/lcf/comp.preamb Normal file
View File

@@ -0,0 +1,8 @@
<SNAME "LCF">
<FLOAD "prim nbin">
<FLOAD "defs nbin">
<FLOAD "util nbin">
<FLOAD "tell nbin">
<FLOAD "makstr nbin">
<FLOAD "typhak nbin">
<OVERFLOW <>>

66
src/lcf/comp.xxfile Normal file
View File

@@ -0,0 +1,66 @@
R
:pcomp
<SNAME "LCF">
J
<FILE-COMPILE "prim >">
p
J
<FILE-COMPILE "defs >">
p
J
<FILE-COMPILE "util >">
p
J
<FILE-COMPILE "makstr >">
p
J
<FILE-COMPILE "typhak >">
p
J
<QUIT>
:assem "lcf;tell >" "lcf;tell nbin"
n
J
:pcomp
<FLOAD "lcf;comp preamb">
J
<FILE-COMPILE "rooms >">
p
J
<FILE-COMPILE "parser >">
p
J
<QUIT>
:pcomp
<FLOAD "lcf;comp preamb">
J
<FILE-COMPILE "act1 >">
p
J
<FILE-COMPILE "act2 >">
p
J
<QUIT>
:pcomp
<FLOAD "lcf;comp preamb">
J
<FILE-COMPILE "act3 >">
p
J
<FILE-COMPILE "act4 >">
p
J
<QUIT>
:pcomp
<FLOAD "lcf;comp preamb">
J
<FILE-COMPILE "melee >">
p
J
<FILE-COMPILE "sr >">
p
J
<QUIT>
Q

30
src/lcf/zork.xxfile Normal file
View File

@@ -0,0 +1,30 @@
R
:mudsav;mud55
<BLOAT 150000 1 3 2000 30 9>
<SNAME "LCF">
<FLOAD "prim nbin">
<FLOAD "defs nbin">
<FLOAD "util nbin">
<FLOAD "makstr nbin">
<FLOAD "typhak nbin">
<FLOAD "rooms nbin">
<FLOAD "parser nbin">
<FLOAD "act1 nbin">
<FLOAD "act2 nbin">
<FLOAD "act3 nbin">
<FLOAD "act4 nbin">
<FLOAD "tell nbin">
<FLOAD "melee nbin">
<FLOAD "sr nbin">
<FLOAD "dung">
<RSUBR-LINK <>>
%%<HANDLER <GET ERROR!-INTERRUPTS INTERRUPT> ,ERRH>
<SETG MUD-HAND <OFF <3 <GET ,INCHAN INTERRUPT>>>>
%%<SETG ZORK-HAND <OFF <HANDLER <GET ,INCHAN INTERRUPT> ,CTRL-S>>>
<SETG END-GAME-EXISTS? T>
<GC-MON T>
<PSETG WINNERS '["EJS", "TAA"]>
<SAVE-IT "cfs;madadv save" <>>
J
<QUIT>
Q