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

a7out: I had the spa logic wrong. Now fixed.

Browse Source
This commit is contained in:
Warren Toomey
2016-02-26 21:45:55 +10:00
parent 0efc7cf96b
commit a132327a8b
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/a7out
+2 -1
View File
@@ -228,7 +228,8 @@ sub special {
} }
if ( $instruction == 0741100 ) { # spa: skip on positive AC if ( $instruction == 0741100 ) { # spa: skip on positive AC
printf( STDERR "PC %06o: spa AC %06o\n", $PC, $AC ) if ($debug); printf( STDERR "PC %06o: spa AC %06o\n", $PC, $AC ) if ($debug);
$PC += ( $AC >= 0 ) ? 2 : 1; # Because we are dealing with 18 bits, compare the range
$PC += ( ($AC >= 0) && ($AC < 0400000) ) ? 2 : 1;
return; return;
} }
if ( $instruction == 0741200 ) { # sna: skip on non-zero AC if ( $instruction == 0741200 ) { # sna: skip on non-zero AC