github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-04 07:09:12 +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"