diff --git a/build/basics.tcl b/build/basics.tcl index 9b06eed3..853505d3 100644 --- a/build/basics.tcl +++ b/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 diff --git a/build/build.tcl b/build/build.tcl index 6b9662cc..c8ac2bbc 100644 --- a/build/build.tcl +++ b/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 diff --git a/build/deploy-ftp.sh b/build/deploy-ftp.sh index 8a868e5f..d81dcd15 100644 --- a/build/deploy-ftp.sh +++ b/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" <