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

local changes.

Browse Source
This commit is contained in:
Warren Toomey 2016-03-02 17:59:34 +10:00
parent a3d6090fe7
commit bcb2cb0f15
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tools/as7
View File

@ -50,7 +50,7 @@ usage() if ( @ARGV < 1 );
# start with the location counter at zero
# predefine syscall and opcodes as variables
%Var = (
'.' => 0,
'.' => 020,
'..' => 4096, # output base addr?
# as.s does not have an initial symbol table
@ -183,7 +183,7 @@ foreach my $file (@ARGV) {
}
# Now do it all again, pass two
$Var{'.'} = 0;
$Var{'.'} = 020;
$stage = 2;
print("PASS 2\n") if ($debug);
foreach my $file (@ARGV) {
@ -464,7 +464,7 @@ sub find_relative_label {
}
else {
# Search backwards for first location smaller than the current one
foreach my $reflocation ( sort( { $b <=> $b } @{$locarray} ) ) {
foreach my $reflocation ( sort( { $b <=> $a } @{$locarray} ) ) {
printf("backward %#o %#o\n", $reflocation, $curlocation) if ($debug);
return ($reflocation) if ( $reflocation < $curlocation );
}