Add new microcode table: Identification_Vector.

diff --git a/v7/src/microcode/fixobj.h b/v7/src/microcode/fixobj.h
index 6a22f6cb8f528e70be2567615ee262c720c8958b..a7b7f889da63f88890239b3ba93396b7d4ebfdd2 100644 (file)
--- a/v7/src/microcode/fixobj.h
+++ b/v7/src/microcode/fixobj.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fixobj.h,v 9.22 1987/02/02 15:16:55 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fixobj.h,v 9.23 1987/03/09 14:44:49 cph Exp $
  *
  * Declarations of user offsets into the Fixed Objects Vector.
  * This should correspond to the file UTABMD.SCM
@@ -44,6 +44,7 @@ MIT in each case. */
 #define Returns_Vector         0x05    /* Return code -> Name map */
 #define Primitives_Vector      0x06    /* Primitive code -> Name map */
 #define Errors_Vector          0x07    /* Error code -> Name map */
+#define Identification_Vector  0x08    /* ID Vector index -> name map */
 #define GC_Daemon              0x0B    /* Procedure to run after GC */
 #define Trap_Handler           0x0C    /* Continue after disaster */
 #define Stepper_State          0x0E    /* NOT IMPLEMENTED YET */

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 87f050880d97c0b77a245f1e2a79bbe2feac33af..463305c3506535684b2b3ae195ff15acc264d264 100644 (file)
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.21 1987/02/02 15:16:36 jinx Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.22 1987/03/09 14:45:18 cph Exp $
 
 (declare (usual-integrations))
 
@@ -50,6 +50,7 @@
 ;;; [] Primitives
 ;;; [] External
 ;;; [] Errors
+;;; [] Identification
 \f
 ;;; [] Fixed
 
@@ -63,7 +64,7 @@
               MICROCODE-RETURNS-VECTOR                 ;05
               MICROCODE-PRIMITIVES-VECTOR              ;06
               MICROCODE-ERRORS-VECTOR                  ;07
-              #F                                       ;08
+              MICROCODE-IDENTIFICATION-VECTOR          ;08
               #F                                       ;09
               #F                                       ;0A
               GC-DAEMON                                ;0B
@@ -829,7 +830,22 @@
 (vector-set! (get-fixed-objects-vector)
             23 ;(fixed-objects-vector-slot 'MICROCODE-TERMINATION-PROCEDURES)
             #())
+\f
+;;; [] Identification
+
+(vector-set! (get-fixed-objects-vector)
+            8 ;(fixed-objects-vector-slot 'MICROCODE-IDENTIFICATION-VECTOR)
+            #(SYSTEM-RELEASE-STRING            ;00
+              MICROCODE-VERSION                ;01
+              MICROCODE-MODIFICATION           ;02
+              CONSOLE-WIDTH                    ;03
+              CONSOLE-HEIGHT                   ;04
+              NEWLINE-CHAR                     ;05
+              FLONUM-MANTISSA-LENGTH           ;06
+              FLONUM-EXPONENT-LENGTH           ;07
+              OS-NAME-STRING                   ;08
+              OS-VARIANT-STRING                ;09
+              ))
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.21 1987/02/02 15:16:36 jinx Exp $"

diff --git a/v8/src/microcode/fixobj.h b/v8/src/microcode/fixobj.h
index 146e0d92595fa2d784a2349e2a58a1701ee1c39c..0af6f4d1352b2e56fea5b60c429e26c9e6d14cdb 100644 (file)
--- a/v8/src/microcode/fixobj.h
+++ b/v8/src/microcode/fixobj.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/fixobj.h,v 9.22 1987/02/02 15:16:55 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/fixobj.h,v 9.23 1987/03/09 14:44:49 cph Exp $
  *
  * Declarations of user offsets into the Fixed Objects Vector.
  * This should correspond to the file UTABMD.SCM
@@ -44,6 +44,7 @@ MIT in each case. */
 #define Returns_Vector         0x05    /* Return code -> Name map */
 #define Primitives_Vector      0x06    /* Primitive code -> Name map */
 #define Errors_Vector          0x07    /* Error code -> Name map */
+#define Identification_Vector  0x08    /* ID Vector index -> name map */
 #define GC_Daemon              0x0B    /* Procedure to run after GC */
 #define Trap_Handler           0x0C    /* Continue after disaster */
 #define Stepper_State          0x0E    /* NOT IMPLEMENTED YET */

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 46b1d741861809f596ef5abccda6cf2f25d6e421..7b1bc80447b4c26fcde3a292d1e16aab8defce15 100644 (file)
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.21 1987/02/02 15:16:36 jinx Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.22 1987/03/09 14:45:18 cph Exp $
 
 (declare (usual-integrations))
 
@@ -50,6 +50,7 @@
 ;;; [] Primitives
 ;;; [] External
 ;;; [] Errors
+;;; [] Identification
 \f
 ;;; [] Fixed
 
@@ -63,7 +64,7 @@
               MICROCODE-RETURNS-VECTOR                 ;05
               MICROCODE-PRIMITIVES-VECTOR              ;06
               MICROCODE-ERRORS-VECTOR                  ;07
-              #F                                       ;08
+              MICROCODE-IDENTIFICATION-VECTOR          ;08
               #F                                       ;09
               #F                                       ;0A
               GC-DAEMON                                ;0B
@@ -829,7 +830,22 @@
 (vector-set! (get-fixed-objects-vector)
             23 ;(fixed-objects-vector-slot 'MICROCODE-TERMINATION-PROCEDURES)
             #())
+\f
+;;; [] Identification
+
+(vector-set! (get-fixed-objects-vector)
+            8 ;(fixed-objects-vector-slot 'MICROCODE-IDENTIFICATION-VECTOR)
+            #(SYSTEM-RELEASE-STRING            ;00
+              MICROCODE-VERSION                ;01
+              MICROCODE-MODIFICATION           ;02
+              CONSOLE-WIDTH                    ;03
+              CONSOLE-HEIGHT                   ;04
+              NEWLINE-CHAR                     ;05
+              FLONUM-MANTISSA-LENGTH           ;06
+              FLONUM-EXPONENT-LENGTH           ;07
+              OS-NAME-STRING                   ;08
+              OS-VARIANT-STRING                ;09
+              ))
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.21 1987/02/02 15:16:36 jinx Exp $"