From 76dba56e5e88d3e7712428f6313ad9704fc57c5f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 Aug 2006 16:58:26 +0000
Subject: [PATCH] Re-fix previous change -- forgot to account for bucky bits.

---
 v7/src/microcode/bintopsb.c | 4 ++--
 v7/src/microcode/psbtobin.c | 5 +++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index b3c29684b..5725710ba 100644
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bintopsb.c,v 9.77 2006/08/27 15:49:30 cph Exp $
+$Id: bintopsb.c,v 9.78 2006/08/28 16:58:24 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1993,1994,1997,1998,2000 Massachusetts Institute of Technology
@@ -1558,7 +1558,7 @@ DEFUN (print_binary_objects, (from, count),
 	break;
 
       case TC_CHARACTER:
-	fprintf (portable_file, "%02x %06x\n",
+	fprintf (portable_file, "%02x %07x\n",
 		 TC_CHARACTER, ((*from) & MASK_MIT_ASCII));
 	from += 1;
 	break;
diff --git a/v7/src/microcode/psbtobin.c b/v7/src/microcode/psbtobin.c
index 735f8c8ee..c47b87f17 100644
--- a/v7/src/microcode/psbtobin.c
+++ b/v7/src/microcode/psbtobin.c
@@ -1,9 +1,10 @@
 /* -*-C-*-
 
-$Id: psbtobin.c,v 9.62 2006/08/27 15:49:37 cph Exp $
+$Id: psbtobin.c,v 9.63 2006/08/28 16:58:26 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1993,1994,2000,2001,2005 Massachusetts Institute of Technology
+Copyright 2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -660,7 +661,7 @@ DEFUN (print_external_objects, (area_name, Table, N),
       }
       case TC_CHARACTER:
         fprintf (stderr,
-		 "Table[%6d] = Character 0x%06x\n",
+		 "Table[%6d] = Character 0x%07x\n",
 		 (N - (Table_End - Table)),
 		 (OBJECT_DATUM (*Table)));
 	break;
-- 
2.25.1