From 23386b2aa80f1c50e2ab41ab3b9b64b75fa344f9 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 9 Jan 2019 12:24:48 +0100
Subject: [PATCH] Move assemly of PWORD and PANDA from lisp.tcl to basics.tcl.

---
 build/basics.tcl | 25 +++++++++++++++++++++++++
 build/lisp.tcl   | 26 --------------------------
 2 files changed, 25 insertions(+), 26 deletions(-)

diff --git a/build/basics.tcl b/build/basics.tcl
index 07d8d281..7a854570 100644
--- a/build/basics.tcl
+++ b/build/basics.tcl
@@ -32,6 +32,8 @@ respond "*" ":print sys3;..new. (udir)\r"
 type ":vk\r"
 respond "*" ":print device;..new. (udir)\r"
 type ":vk\r"
+respond "*" ":print cstacy;..new. (udir)\r"
+type ":vk\r"
 
 # TCTYP
 respond "*" ":midas sys1; ts tctyp_syseng;tctyp\r"
@@ -258,6 +260,29 @@ expect ":KILL"
 respond "*" ":link syseng;ttytyp 999999,system;ttytyp >\r"
 respond "*" ":copy inquir;lsr1 empty,inquir;lsr1 >\r"
 
+# pword/panda
+respond "*" ":midas sysbin;pword bin_sysen1;pword\r"
+respond "Is this to be a PANDA?" "yes\r"
+expect ":KILL"
+respond "*" ":midas sysbin;panda bin_sysen1;pword\r"
+respond "Is this to be a PANDA?" "no\r"
+expect ":KILL"
+respond "*" ":midas sysbin;pwinit bin_sysen1;pwinit\r"
+expect ":KILL"
+respond "*" ":job pwinit\r"
+respond "*" ":load sysbin;pwinit\r"
+respond "*" "\033g"
+respond "*" ":copy cstacy;big dat,sysbin;\021 \021 \021 big \021 \021 0dat\r"
+respond "*" ":job panda\r"
+respond "*" ":load sysbin;panda bin\r"
+# set password to "panda"
+respond "*" "spword/107150326162\r"
+type "purify\033g"
+respond "*" ":pdump sysbin;panda bin\r"
+respond "*" ":kill\r"
+respond "*" ":link sys;atsign pword,sysbin;pword bin\r"
+respond "*" ":link sys;ts panda,sysbin;panda bin\r"
+
 respond "*" ":copy sysbin;name bin,sys;ts name\r"
 respond "*" "name\033j"
 respond "*" "\033l sys;ts name\r"
diff --git a/build/lisp.tcl b/build/lisp.tcl
index a4409077..b0d0394a 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -247,32 +247,6 @@ expect ":KILL"
 respond "*" ":midas sys3;ts lsrdmp_bawden; lsrdmp\r"
 expect ":KILL"
 
-respond "*" ":print cstacy;..new. (udir)\r"
-type ":vk\r"
-
-# pword/panda
-respond "*" ":midas sysbin;pword bin_sysen1;pword\r"
-respond "Is this to be a PANDA?" "yes\r"
-expect ":KILL"
-respond "*" ":midas sysbin;panda bin_sysen1;pword\r"
-respond "Is this to be a PANDA?" "no\r"
-expect ":KILL"
-respond "*" ":midas sysbin;pwinit bin_sysen1;pwinit\r"
-expect ":KILL"
-respond "*" ":job pwinit\r"
-respond "*" ":load sysbin;pwinit\r"
-respond "*" "\033g"
-respond "*" ":copy cstacy;big dat,sysbin;\021 \021 \021 big \021 \021 0dat\r"
-respond "*" ":job panda\r"
-respond "*" ":load sysbin;panda bin\r"
-# set password to "panda"
-respond "*" "spword/107150326162\r"
-type "purify\033g"
-respond "*" ":pdump sysbin;panda bin\r"
-respond "*" ":kill\r"
-respond "*" ":link sys;atsign pword,sysbin;pword bin\r"
-respond "*" ":link sys;ts panda,sysbin;panda bin\r"
-
 # more lisp packages
 respond "*" ":link lisp;tty fasl,liblsp;tty fasl\r"
 respond "*" "complr\013"