Merge pull request #42 from philbudne/master

fix init assembly; fix as7 "rim" format
2016-03-10 00:13:12 -05:00
parent 089c8b806f d7d7d592d7
commit a4ab8823bf
2 changed files with 3 additions and 3 deletions
@@ -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");