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

fix subtraction with relative values (relative-relative)=absolute!

Browse Source
This commit is contained in:
Phil Budne
2016-03-02 15:40:52 -05:00
parent 6791efe25c
commit f06f075517
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/as7
+15 -1
View File
@@ -465,15 +465,29 @@ sub parse_expression {
if ($op eq '+') { if ($op eq '+') {
$word += $syllable; $word += $syllable;
$flags |= $sylflags;
} }
elsif ($op eq '-') { elsif ($op eq '-') {
$word -= $syllable; $word -= $syllable;
if ($flags & $RELATIVE) {
# relative-relative => absolute!
if ($sylflags & $RELATIVE) {
$flags &= ~$RELATIVE;
}
# else: relative-abs => relative (no change)
}
else { # word is absolute
if ($sylflags & $RELATIVE) {
err('A', 'absolute value minus relative??');
}
# else: absolute-absolute => absolute (no change)
}
} }
else { else {
$word |= $syllable; $word |= $syllable;
$flags |= $sylflags;
} }
$word &= 0777777; $word &= 0777777;
$flags |= $sylflags;
printf("\tsyllable: %#o word: %#o\n", $syllable, $word) if ($debug); printf("\tsyllable: %#o word: %#o\n", $syllable, $word) if ($debug);
} }
} }