1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00

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

This commit is contained in:
Mike Kostersitz (Oilcan Productions) 2024-05-07 13:43:40 -07:00 committed by GitHub
commit 57e91485bf
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
12 changed files with 20 additions and 15 deletions

View File

@ -375,4 +375,9 @@ expect ":KILL"
respond "*" ":palx gt40;_gt40;bootvt\r" respond "*" ":palx gt40;_gt40;bootvt\r"
expect ":KILL" 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 processor_basics

View File

@ -199,6 +199,12 @@ if [file exists $build/mchn/$mchn/custom.tcl] {
source $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)]} { if {![info exists env(NODUMP)]} {
# make output.tape # make output.tape
respond "*" $emulator_escape respond "*" $emulator_escape

View File

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

View File

@ -853,11 +853,6 @@ respond "*" "purify\033g"
respond "TS @" "\r" respond "TS @" "\r"
respond "*" ":kill\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" respond "*" ":midas;324 dsk0:.;@ pt_syseng;pt\r"
expect ":KILL" expect ":KILL"

@ -1 +1 @@
Subproject commit 54bb56ffc78547f93263e9f782abfac618ab4a5f Subproject commit 0fdd4c6e27dcf4511194a4acf12fcaa52c0302ea

@ -1 +1 @@
Subproject commit 527c02a4f41a8495e12ca32bcb4a0117575b8a8c Subproject commit b7d4943d55f0bd236e2ad78d8557c69d3c2d607d

@ -1 +1 @@
Subproject commit db7da631b6e6bf8612d1586e024786ba6ffede33 Subproject commit d35679d97ed403fe72bea1b5da205121a0f8ec23

@ -1 +1 @@
Subproject commit c92bb5f10426f24cdeadd27651c5d068ef7a4230 Subproject commit ee96db168302a53449bf6322739c642a7ff9a23d

@ -1 +1 @@
Subproject commit 56d22663af651f22c2810e5cb1d80a3911e316f1 Subproject commit 6bcd82d3508c00918a66de61798b85c044b33c6d

@ -1 +1 @@
Subproject commit 0ec49eedfbadc5f354a9043f60ddc45f8f55704d Subproject commit 92a55adf97010bd2960d1f394d9ba0197fd351e7

@ -1 +1 @@
Subproject commit cb5e561508237612e22b5b430bf966f40929adb3 Subproject commit 6be745239e7da1e2d2d98ecb1d6208b1d2915ead

@ -1 +1 @@
Subproject commit 3616646d8a343acc270577bd0711d0178c7b94f0 Subproject commit dd5fc856f01407bd83b17d6d027196d332b98fe9