mirror of
https://github.com/PDP-10/its.git
synced 2026-02-26 17:03:20 +00:00
Move DECUUO to basics.
It's needed by ADVENT, FAIL, and SUDS.
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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"
|
||||
|
||||
Reference in New Issue
Block a user