diff --git a/tcl/drivers/ah2700.tcl b/tcl/drivers/ah2700.tcl index 8cdeccc..559ffbc 100644 --- a/tcl/drivers/ah2700.tcl +++ b/tcl/drivers/ah2700.tcl @@ -51,7 +51,7 @@ proc ah2700::start {} { proc ah2700::start1 {} { set prefix [lindex [sct result] 0] - if {$prefix eq "UN"} { # this was the echo + if {$prefix eq "UN" || $prefix eq ">UN"} { # this was the echo sct send "SERIAL ECHO OFF" return ah2700::start } @@ -76,7 +76,7 @@ proc ah2700::read {} { proc ah2700::update {} { # analyze result: _ is a placeholder for text words lassign [string map {"=" "= "} [sct result]] prefix f _ _ c _ _ l un _ v - if {$prefix eq "SI"} { + if {$prefix eq "SI" || $prefix eq ">SI"} { # this was the echo sct send "\r\nSERIAL ECHO OFF\r" return stdSct::complete }