Re-fix previous change -- forgot to account for bucky bits.

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index b3c29684b1c5f3658430f8340769c503a13bd894..5725710ba376cb30c7c637b786353fd20c8d44ca 100644 (file)
--- 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 735f8c8ee970802e3a684e1cb11071c4786ff7b7..c47b87f17cbcc8341bafd4083a165d97780375ec 100644 (file)
--- 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;