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

3
tools/a7out
View File

@@ -228,7 +228,8 @@ sub special {
}
if ( $instruction == 0741100 ) { # spa: skip on positive AC
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;
}
if ( $instruction == 0741200 ) { # sna: skip on non-zero AC