From 3d07dad6bf27a10d8c30d89080c712f6c4accb79 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 9 Mar 1987 14:45:18 +0000 Subject: [PATCH] Add new microcode table: Identification_Vector. --- v7/src/microcode/fixobj.h | 3 ++- v7/src/microcode/utabmd.scm | 22 +++++++++++++++++++--- v8/src/microcode/fixobj.h | 3 ++- v8/src/microcode/utabmd.scm | 22 +++++++++++++++++++--- 4 files changed, 42 insertions(+), 8 deletions(-) diff --git a/v7/src/microcode/fixobj.h b/v7/src/microcode/fixobj.h index 6a22f6cb8..a7b7f889d 100644 --- 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 87f050880..463305c35 100644 --- 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 ;;; [] 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) #()) + +;;; [] 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 146e0d925..0af6f4d13 100644 --- 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 46b1d7418..7b1bc8044 100644 --- 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 ;;; [] 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) #()) + +;;; [] 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 $" -- 2.25.1