github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-13 15:27:39 +00:00
Code Issues Releases Wiki Activity

I made a change to the word2ascii routine and replicated it out to other programs.

Browse Source
This commit is contained in:
Warren Toomey 2016-03-10 14:14:57 +10:00
parent f468628159
commit 089c8b806f
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/3dump
View File

@ -17,9 +17,9 @@ while (1) {
my $word= (($b1 & 077) << 12) | (($b2 & 077) << 6) | ($b3 & 077);
my $c1= ($word >> 9) & 0777;
$c1= ($c1 < 0200) ? chr($c1) : " ";
$c1= (($c1 >= 32) && ($c1 <= 126)) ? chr($c1) : ' ';
my $c2= $word & 0777;
$c2= ($c2 < 0200) ? chr($c2) : " ";
$c2= (($c2 >= 32) && ($c2 <= 126)) ? chr($c2) : ' ';
printf("%06o %s%s\n", $word, $c1, $c2)
}
close($IN);

4
tools/a7out
View File

@ -1301,8 +1301,8 @@ sub word2ascii {
my $c1 = ( $word >> 9 ) & 0177;
my $c2 = $word & 0177;
my $result = "";
$result .= chr($c1) if ($c1);
$result .= chr($c2) if ($c2);
$result .= (($c1 >= 32) && ($c1 <= 126)) ? chr($c1) : ' ';
$result .= (($c2 >= 32) && ($c2 <= 126)) ? chr($c2) : ' ';
return ($result);
}