github.com/livingcomputermuseum.pdp7-unix
1
0
Fork 0
mirror of https://github.com/livingcomputermuseum/pdp7-unix.git synced 2026-04-27 04:37:05 +00:00
Code Issues 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

2
tools/3dump
View File

@@ -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) : " ";