From: ian <ian>
Date: Sat, 17 Dec 2005 00:57:53 +0000 (+0000)
Subject: get slave addrs right; unbuffer stdout
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=d0000790bec2c63e3940d15d0c9dea7c477d63ab;p=trains.git

get slave addrs right; unbuffer stdout
---

diff --git a/detpic/crashread b/detpic/crashread
index 8756b1a..7dec867 100755
--- 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 }