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

fix "rim" format

Browse Source
This commit is contained in:
Phil Budne
2016-03-10 00:11:20 -05:00
parent 7815649556
commit d7d7d592d7
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/as7
+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 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");