set x [expr "0x$x & 0x077f"]
set ping [format %04x [expr {0x8800 ^ $x}]]
set pong [format %04x [expr {0x885a ^ $x}]]
- puts "<! picioh out await-off $pong (await $pong)"
+ #puts "<! picioh out await-off $pong (await $pong)"
puts -nonewline $serchan [binary format H* $ping]
set after [after 700 realtime-retry-now-off]
set realtime_retry [list $serchan $after $pong {}]
manyset $realtime_retry serchan after pong buf
set x [read $serchan]
binary scan $x H* x
- puts "<! picioh in await-off $x"
+ #puts "<! picioh in await-off $x"
if {![string length $x] && [eof $serchan]} { error "eof on serial port" }
append buf $x
while {[regexp {^((?:[89a-f].)*[0-7].)(.*)$} $buf dummy msg buf]} {