github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-26 04:07:36 +00:00
Code Issues Releases Wiki Activity

Move DECUUO to basics.

Browse Source 
It's needed by ADVENT, FAIL, and SUDS.
This commit is contained in:
Lars Brinkhoff
2018-04-25 20:18:59 +02:00
parent 609485756e
commit d16ea1baa5
2 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
build/build.tcl
View File

@@ -451,6 +451,19 @@ expect ":KILL"
respond "*" ":link device;chaos telnet,sysbin;telser bin\r" respond "*" ":link device;chaos telnet,sysbin;telser bin\r"
respond "*" ":link device;chaos supdup,sysbin;telser bin\r" respond "*" ":link device;chaos supdup,sysbin;telser bin\r"
# decuuo
respond "*" ":midas decsys;_decuuo\r"
expect ":KILL"
respond "*" ":job decuuo\r"
respond "*" ":load decsys;decuuo bin\r"
respond "*" "purify\033g"
respond "TS DEC" "\r"
respond "*" ":kill\r"
respond "*" ":link sys;ts dec\021 *,must; be here\r"
respond "*" ":midas decsys;_decbot\r"
expect ":KILL"
if {$env(BASICS)!="yes"} { if {$env(BASICS)!="yes"} {
source $build/misc.tcl source $build/misc.tcl
source $build/lisp.tcl source $build/lisp.tcl

13
build/misc.tcl
View File

@@ -297,19 +297,6 @@ respond "*" ":link sys;ts mailt,sys2;ts emacs\r"
# rmtdev # rmtdev
respond "*" ":midas device;atsign rmtdev_gz;rmtdev\r" respond "*" ":midas device;atsign rmtdev_gz;rmtdev\r"
# decuuo
respond "*" ":midas decsys;_decuuo\r"
expect ":KILL"
respond "*" ":job decuuo\r"
respond "*" ":load decsys;decuuo bin\r"
respond "*" "purify\033g"
respond "TS DEC" "\r"
respond "*" ":kill\r"
respond "*" ":link sys;ts dec\021 *,must; be here\r"
respond "*" ":midas decsys;_decbot\r"
expect ":KILL"
# Compile ADVENT and dump it out with DECUUO. # Compile ADVENT and dump it out with DECUUO.
respond "*" ":cwd games\r" respond "*" ":cwd games\r"
respond "*" ":dec sys:f40\r" respond "*" ":dec sys:f40\r"