Merge branch 'master' of https://github.com/DoctorWkt/pdp7-unix
This commit is contained in:
+1
-1
@@ -239,7 +239,7 @@ error:
|
|||||||
sys exit
|
sys exit
|
||||||
|
|
||||||
m1:
|
m1:
|
||||||
012; <lo>;<gi>;<n;<:;<
|
012; <lo>;<gi>;<n;<:;<
|
||||||
m1s = .-m1
|
m1s = .-m1
|
||||||
m2:
|
m2:
|
||||||
<?; 012
|
<?; 012
|
||||||
|
|||||||
@@ -227,11 +227,11 @@ elsif ($format eq 'ptr') { # dump absolute memory in PTR binary
|
|||||||
elsif ($format eq 'rim') { # PDP-7 Read In Mode
|
elsif ($format eq 'rim') { # PDP-7 Read In Mode
|
||||||
for my $loc ( 0 .. $#Mem ) {
|
for my $loc ( 0 .. $#Mem ) {
|
||||||
if (defined($Mem[$loc])) {
|
if (defined($Mem[$loc])) {
|
||||||
punch(0200000 | $loc ); # LAC addr
|
punch(0040000 | $loc ); # DAC addr
|
||||||
punch($Mem[$loc] || 0);
|
punch($Mem[$loc] || 0);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
punch($OUT, 0740040 ); # HLT
|
punch(0740040 ); # HLT
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
die("unknown format $format");
|
die("unknown format $format");
|
||||||
|
|||||||
Reference in New Issue
Block a user