github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-04 21:27:24 +00:00
Code Issues Releases Wiki Activity

Exit F40 and MACRO10 more robustly.

Browse Source 
Previously, some invocations would exit after seeing the "core used"
message.  This resulted in an error on some machines.  It's safer to
wait for the message, and then exit when seeing the "*" prompt.
This commit is contained in:
Lars Brinkhoff
2023-04-10 12:43:06 +02:00
parent 22056ee716
commit 16f47858b2
1 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
build/misc.tcl
View File

@@ -462,7 +462,8 @@ expect ":KILL"
respond "*" ":cwd games\r"
respond "*" ":dec sys:f40\r"
respond "*" "advent=advent\r"
respond "CORE USED" "\032"
expect "CORE USED"
respond "*" "\032"
type ":kill\r"
respond "*" ":dec sys:loader\r"
respond "*" "advent/g\r"
@@ -478,7 +479,8 @@ respond "*" ":cwd games\r"
respond "*" ":dec sys:f40\r"
respond "*" "adv3sr=adv3sr\r"
respond "*" "adv3sb=adv3sb\r"
respond "CORE USED" "\032"
expect "CORE USED"
respond "*" "\032"
type ":kill\r"
respond "*" ":dec sys:loader\r"
respond "*" "adv3sb\r"
@@ -497,7 +499,8 @@ respond "*" ":cwd games\r"
respond "*" ":dec sys:f40\r"
respond "*" "adv4ma=adv4ma\r"
respond "*" "adv4su=adv4su\r"
respond "CORE USED" "\032"
expect "CORE USED"
respond "*" "\032"
type ":kill\r"
respond "*" ":dec sys:loader\r"
respond "*" "adv4ma\r"
@@ -515,7 +518,8 @@ respond "*" ":kill\r"
respond "*" ":cwd games\r"
respond "*" ":dec sys:f40\r"
respond "*" "trek=trek\r"
respond "CORE USED" "\032"
expect "CORE USED"
respond "*" "\032"
type ":kill\r"
respond "*" ":dec sys:loader\r"
respond "*" "trek\r"
@@ -608,7 +612,7 @@ respond "*" ":dec sys:macro\r"
respond "*" "macro=macro\r"
expect "CORE USED"
respond "*" "\003"
type ":kill\r"
respond "*" ":kill\r"
respond "*" ":dec sys:link\r"
respond "*" "macro/go\r"
# Strange error here. Workaround is to retry.
@@ -624,7 +628,7 @@ respond "*" ":macro\r"
respond "*" "macro=macro\r"
expect "CORE USED"
respond "*" "\003"
type ":kill\r"
respond "*" ":kill\r"
respond "*" ":dec sys:link\r"
respond "*" "macro/go\r"
expect "%LNKNED"
@@ -1698,8 +1702,9 @@ expect ":KILL"
respond "*" ":cwd bbn\r"
respond "*" ":macro\r"
respond "*" "logo=logo\r"
respond "CORE USED" "\032"
type ":kill\r"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
respond "*" ":dec sys:loader\r"
respond "*" "logo/g\r"
respond "EXIT" ":start 45\r"