diff --git a/build/build.tcl b/build/build.tcl index ac5b6bfe..0917eec2 100644 --- a/build/build.tcl +++ b/build/build.tcl @@ -451,6 +451,19 @@ expect ":KILL" respond "*" ":link device;chaos telnet,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"} { source $build/misc.tcl source $build/lisp.tcl diff --git a/build/misc.tcl b/build/misc.tcl index 183dd44b..ffa36234 100644 --- a/build/misc.tcl +++ b/build/misc.tcl @@ -297,19 +297,6 @@ respond "*" ":link sys;ts mailt,sys2;ts emacs\r" # rmtdev 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. respond "*" ":cwd games\r" respond "*" ":dec sys:f40\r"