better handling of very fast

diff --git a/hostside/measure-speeds b/hostside/measure-speeds
index c4d0e013445d3bbe79d2efb324403d03abbaa9f5..682e888049014c1850a95291097019d05ae9a6bc 100755 (executable)
--- a/hostside/measure-speeds
+++ b/hostside/measure-speeds
@@ -52,7 +52,7 @@ proc proc-msg {msg} {
     switch -glob $msg {
        90?? {
            if {[lsearch $settle_detend $msg]<0} { debug_r "o $msg"; return }
-           debug "= $msg"
+           debug_r "= $msg"
            settle-cancel-after
            set settle_after [after $settle_time { set until 1}]
            return
@@ -61,7 +61,7 @@ proc proc-msg {msg} {
        28 return
        98?? {
            if {[lsearch $detend $msg]<0} { debug_r "I $msg"; return }
-           debug "* $msg"
+           debug_r "* $msg"
            if {$settle_time>0} {
                settle-cancel-after
            } else {
@@ -177,7 +177,7 @@ proc goto-slow-start-position {speed} {
        set last_fast_speed -1
     }
     run-until -40 9802
-    run-until-not -40 9804 100
+    run-until-not -40 9804 600
     instruct-speed-for -40 [expr {$speed*$speed}]
     instruct-stop-for 1000
 }
@@ -217,7 +217,7 @@ proc fast-speed-test {speed} {
        incr ms [timing-finish]
        incr mm 231
        debug "+ $mm / $ms"
-       run-until-not $speed 980a 100
+       run-until-not $speed 980a 600
     }
     record-mm-per-s $speed $mm $ms
 }