From d7d7d592d7b82479a5e69e3d95b61b673fe5d559 Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Thu, 10 Mar 2016 00:11:04 -0500
Subject: [PATCH] fix "rim" format

---
 tools/as7 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/as7 b/tools/as7
index a64abef..69d7652 100755
--- a/tools/as7
+++ b/tools/as7
@@ -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");