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

Ported B compiler b.c to b.b.

Browse Source 
Ported B compiler b.c to b.b.  It is able to compile itself.  Hints are
in the comment block.
This commit is contained in:
rswier
2016-03-16 01:46:35 -04:00
parent 3c3f946794
commit b3b868ed50
4 changed files with 1065 additions and 258 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/a7out
+5 -3
View File
@@ -545,7 +545,8 @@ sub eae {
# Save the AC's sign into LINK
my $newlink = ( $AC << 1 ) & LINKMASK;
$AC = ( ( $LINK | $AC ) >> $step ) & MAXINT;
# $AC = ( ( $LINK | $AC ) >> $step ) & MAXINT;
$AC = ( ( ($newlink * -1) | $AC ) >> $step ) & MAXINT; # XXX Not sure if this is correct!?!?!
$LINK = $newlink;
$PC++;
return;
@@ -1301,8 +1302,8 @@ sub word2ascii {
my $c1 = ( $word >> 9 ) & 0177;
my $c2 = $word & 0177;
my $result = "";
$result .= (($c1 >= 32) && ($c1 <= 126)) ? chr($c1) : ' ';
$result .= (($c2 >= 32) && ($c2 <= 126)) ? chr($c2) : ' ';
if (($c1 >= 1) && ($c1 <= 126)) { $result .= chr($c1); }
if (($c2 >= 1) && ($c2 <= 126)) { $result .= chr($c2); }
return ($result);
}
@@ -1313,6 +1314,7 @@ sub mem2arg {
my $addr = shift;
my $result = "";
$addr &= MAXADDR;
foreach ( 1 .. 4 ) {
# Stop if the address leave the 8K word address space