From d16ea1baa586e5a6afa17741995955daa538c469 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 25 Apr 2018 20:18:59 +0200
Subject: [PATCH] Move DECUUO to basics.

It's needed by ADVENT, FAIL, and SUDS.
---
 build/build.tcl | 13 +++++++++++++
 build/misc.tcl  | 13 -------------
 2 files changed, 13 insertions(+), 13 deletions(-)

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"