glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

3dump: handle 0200 bit set on all "frames"

Browse Source
This commit is contained in:
Phil Budne
2016-03-07 17:29:23 -05:00
parent 38ff8aec09
commit 5f735f6ba4
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/3dump
+1 -1
View File
@@ -14,7 +14,7 @@ while (1) {
my $result= read($IN, my $three, 3); my $result= read($IN, my $three, 3);
last if ($result != 3); # Not enough bytes read last if ($result != 3); # Not enough bytes read
my ($b1, $b2, $b3)= unpack("CCC", $three); 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; my $c1= ($word >> 9) & 0777;
$c1= ($c1 < 0200) ? chr($c1) : " "; $c1= ($c1 < 0200) ? chr($c1) : " ";