fix rim comments

This commit is contained in:
Phil Budne
2016-03-25 00:42:08 -04:00
parent efb135bc10
commit 15a61c0512
+2 -1
View File
@@ -230,7 +230,8 @@ elsif ($format eq 'ptr') { # dump absolute memory in PTR binary
punch($Mem[$loc] || 0);
}
}
elsif ($format eq 'rim') { # PDP-7 (secondary) Read In Mode
elsif ($format eq 'rim') { # "Hardware Read In" tape
# only handles continguous memory, but no overhead
my $base = $Var{'..'};
for my $loc ( $base .. $#Mem ) {
punch($Mem[$loc] || 0);