get slave addrs right; unbuffer stdout

diff --git a/detpic/crashread b/detpic/crashread
index 8756b1ad6b0c5a7d31ab9b723f7532e1746cb9d5..7dec8674d15bd2fcded3d292bf76f60834b92316 100755 (executable)
--- a/detpic/crashread
+++ b/detpic/crashread
@@ -130,6 +130,8 @@ exec stty -F $port min 1 time 0 -istrip -ocrnl -onlcr -onocr -opost \
 fconfigure $p -blocking yes -buffering none \
        -translation binary -encoding binary
 
+fconfigure stdout -buffering none
+
 set ms [expr {
     $slave < 0 ? "t" :
     $slave ? "s" :
@@ -173,7 +175,7 @@ proc setup_t {} { }
 
 proc selectaddr_ms {xmit a} {
     $xmit "($a >> 6) | 0x40"
-    $xmit "($a & 0x3c) | 0x40"
+    $xmit "($a & 0x3f) | 0x40"
 }
 proc selectaddr_m {a} { selectaddr_ms xmit $a }
 proc selectaddr_s {a} { selectaddr_ms xmit_s $a }