From 5f735f6ba4c15531fafb15d73160475d485e8907 Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Mon, 7 Mar 2016 17:29:23 -0500
Subject: [PATCH] 3dump: handle 0200 bit set on all "frames"

---
 tools/3dump | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/3dump b/tools/3dump
index 60bfe89..dfbf321 100755
--- a/tools/3dump
+++ b/tools/3dump
@@ -14,7 +14,7 @@ while (1) {
   my $result= read($IN, my $three, 3);
   last if ($result != 3);       # Not enough bytes read
   my ($b1, $b2, $b3)= unpack("CCC", $three);
-  my $word= (($b1 & 077) << 12) | ($b2 << 6) | $b3;
+  my $word= (($b1 & 077) << 12) | (($b2 & 077) << 6) | ($b3 & 077);
 
   my $c1= ($word >> 9) & 0777;
   $c1= ($c1 < 0200) ? chr($c1) : " ";