From 78156495565a8c3ad2ab6254966d42b2c203edcc Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Tue, 8 Mar 2016 23:05:07 -0500
Subject: [PATCH 1/2] changes to init.s to assemble

---
 src/cmd/init.s | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmd/init.s b/src/cmd/init.s
index 99f125c..9e7af28 100644
--- a/src/cmd/init.s
+++ b/src/cmd/init.s
@@ -239,7 +239,7 @@ error:
    sys exit
 
 m1:
-   012; <lo>;<gi>;<n;<:;<
+   012; <lo>;<gi>;<n;<:;< 
 m1s = .-m1
 m2:
    <?; 012

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 2/2] 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");