From 23f0a64b1cb0d7cc59c11c940692d3b8a3eddabf Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Thu, 22 Jul 2021 13:56:22 +0200 Subject: [PATCH] Make it possible to build PEEK with 340 display enabled. This makes a small change in how the expect script interacts with PEEK when it's built. Instead of triggering on text written by PEEK, it waits for the $G that comes from the purify valret. The reason is that if ITS considers the 340 online and available, PEEK running on the console will send its output to the 340 rather than the teletype, so expect has nothing to trigger on. --- build/basics.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/build/basics.tcl b/build/basics.tcl index 3a82ff95..546cbc53 100644 --- a/build/basics.tcl +++ b/build/basics.tcl @@ -99,7 +99,7 @@ expect ":KILL" respond "*" ":job peek\r" respond "*" ":load sysbin;peek bin\r" respond "*" "purify\033g" -respond "Idle" "q" +respond {$G} "q" expect ":KILL" respond "*" ":link sys; ts p,sys; ts peek\r"