This commit is contained in:
Warren Toomey
2016-03-10 15:29:14 +10:00
2 changed files with 3 additions and 3 deletions
+1 -1
View File
@@ -239,7 +239,7 @@ error:
sys exit
m1:
012; <lo>;<gi>;<n;<:;<
012; <lo>;<gi>;<n;<:;<
m1s = .-m1
m2:
<?; 012
+2 -2
View File
@@ -227,11 +227,11 @@ elsif ($format eq 'ptr') { # dump absolute memory in PTR binary
elsif ($format eq 'rim') { # PDP-7 Read In Mode
for my $loc ( 0 .. $#Mem ) {
if (defined($Mem[$loc])) {
punch(0200000 | $loc ); # LAC addr
punch(0040000 | $loc ); # DAC addr
punch($Mem[$loc] || 0);
}
}
punch($OUT, 0740040 ); # HLT
punch(0740040 ); # HLT
}
else {
die("unknown format $format");