Merge branch 'master' into deploy-ftp-script-updates

build/basics.tcl

@@ -375,4 +375,9 @@ expect ":KILL"
 respond "*" ":palx gt40;_gt40;bootvt\r"
 expect ":KILL"
 
+# PLAN/CREATE
+respond "*" ":midas sys3;ts create_syseng;create\r"
+expect ":KILL"
+respond "*" ":link sys1;ts plan,sys3;ts create\r"
+
 processor_basics

build/build.tcl

@@ -199,6 +199,12 @@ if [file exists $build/mchn/$mchn/custom.tcl] {
     source $build/mchn/$mchn/custom.tcl
 }
 
+# Set timestamp for current uptime record.
+respond "*" ":create sys;record time\r"
+respond "for help" "\003"
+expect ":KILL"
+respond "*" ":sfdate sys;record time, 0/0/00\r"
+
 if {![info exists env(NODUMP)]} {
     # make output.tape
     respond "*" $emulator_escape

build/deploy-ftp.sh

@@ -35,12 +35,11 @@ pack_archive() {
     tar czf "$out_dir/$tar_file" "$out_dir/$EMULATOR"
 }
 
-
-
 upload_file(){
     # (cd out; rm -r $EMULATOR.tgz; tar czf $EMULATOR.tgz $EMULATOR)
     pack_archive
 
+
     echo "Deploying as $USER at $HOST"
 
     ftp "$HOST" <<EOF

build/misc.tcl

@@ -853,11 +853,6 @@ respond "*" "purify\033g"
 respond "TS @" "\r"
 respond "*" ":kill\r"
 
-# PLAN/CREATE
-respond "*" ":midas sys3;ts create_syseng;create\r"
-expect ":KILL"
-respond "*" ":link sys1;ts plan,sys3;ts create\r"
-
 respond "*" ":midas;324 dsk0:.;@ pt_syseng;pt\r"
 expect ":KILL"