LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760032244. :SYSTEM-TYPE :LOGICAL :VERSION 4. :TYPE "LISP" :NAME "QDEFS" :DIRECTORY ("REL3-SOURCE" "UCODE") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-SOURCE\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758898212. :AUTHOR "REL3" :LENGTH-IN-BYTES 8827. :LENGTH-IN-BLOCKS 9. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ; -*- Mode:LISP; Base:8 -*-;;;                           RESTRICTED RIGHTS LEGEND;;;Use, duplication, or disclosure by the Government is subject to;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in;;;Technical Data and Computer Software clause at 52.227-7013.;;;                     TEXAS INSTRUMENTS INCORPORATED.;;;                              P.O. BOX 2909;;;                           AUSTIN, TEXAS 78769;;;                                 MS 2151;;; Copyright (C) 1985,1987 Texas Instruments Incorporated. All rights reserved.;** (c) Copyright 1980 Massachusetts Institute of Technology **;ELEMENTS IN Q-CORRESPONDING-VARIABLE-LIST ARE SYMBOLS WHOSE VALUES IN MACLISP ARE LISTS;  ALL OF WHOSE MEMBERS ARE SYSTEM CONTANTS.  THESE SYSTEM CONSTANTS HAVE MACLISP VALUES;  AND ARE MADE TO HAVE THE IDENTICAL VALUES IN LISP MACHINE LISP.(SETQ Q-CORRESPONDING-VARIABLE-LISTS '(   system-constants   Q-LISP-CONSTANTS   ;;;RTB-RTB-BITS RTB-RTS-BITS RTB-RTO-OPS    ;;;RTB-MISC RTM-OPS READTABLE-%%-BITS    MISC-Q-VARIABLES    SYSTEM-CONSTANT-LISTS SYSTEM-VARIABLE-LISTS   SCRATCH-PAD-VARIABLES FASL-GROUP-FIELDS FASL-OPS    FASL-TABLE-PARAMETERS FASL-CONSTANTS FASL-CONSTANT-LISTS   STACK-GROUP-HEAD-LEADER-QS))(setq system-constants nil);ELEMENTS IN SYSTEM-CONSTANT-LISTS ARE SYMBOLS WHOSE MACLISP AND LISP MACHINE;VALUES ARE LISTS OF SYMBOLS WHICH SHOULD GET SYSTEM-CONSTANT PROPERTY FOR THE COMPILER.;NORMALLY SHOULD BE VERY CLOSE TO Q-CORRESPONDING-VARIABLES-LISTS(SETQ SYSTEM-CONSTANT-LISTS '(   Q-LISP-CONSTANTS   ;RTB-RTB-BITS RTB-RTS-BITS RTB-RTO-OPS   ;RTB-MISC RTM-OPS READTABLE-%%-BITS   SYSTEM-CONSTANT-LISTS SYSTEM-VARIABLE-LISTS ;SOME THINGS LOOK AT SUBLISTS OF THESE   ;NOT SCRATCH-PAD-VARIABLES   ;NOT SCRATCH-PAD-POINTERS SCRATCH-PAD-PARAMETERS SCRATCH-PAD-TEMPS    FASL-GROUP-FIELDS FASL-OPS   FASL-TABLE-PARAMETERS FASL-CONSTANTS FASL-CONSTANT-LISTS));LIKE ABOVE BUT GET DECLARED SPECIAL RATHER THAN SYSTEM-CONSTANT(SETQ SYSTEM-VARIABLE-LISTS '(A-MEMORY-LOCATION-NAMES M-MEMORY-LOCATION-NAMES IO-STREAM-NAMES LISP-VARIABLES MISC-Q-VARIABLES))(SETQ IO-STREAM-NAMES '(STANDARD-INPUT STANDARD-OUTPUT ERROR-OUTPUT QUERY-IO TERMINAL-IO TRACE-OUTPUT));These get declared special, and get their Maclisp values shipped over(SETQ MISC-Q-VARIABLES '(SYSTEM-CONSTANT-LISTS SYSTEM-VARIABLE-LISTS PRIN1 FOR-CADR COLD-INITIALIZATION-LIST BEFORE-COLD-INITIALIZATION-LIST WARM-INITIALIZATION-LIST                         ONCE-ONLY-INITIALIZATION-LIST SYSTEM-INITIALIZATION-LIST));These get declared special, but don't get sent over.  They get initialized; some other way, e.g. from a load-time-setq in some compile list, or from special; code in COLD, or by LISP-REINITIALIZE when the machine is first started.(SETQ LISP-VARIABLES '(BASE IBASE PRINLENGTH PRINLEVEL *NOPOINT *RSET FASLOAD       EVALHOOK PACKAGE READTABLE + - *       USER-ID LISP-CRASH-LIST SCHEDULER-STACK-GROUP       RUBOUT-HANDLER LOCAL-DECLARATIONS STREAM-INPUT-OPERATIONS       STREAM-OUTPUT-OPERATIONS %INITIALLY-DISABLE-TRAPPING));These get declared SYSTEM-CONSTANT (which is similar to SPECIAL) and get their; Maclisp values shipped over.(SETQ Q-LISP-CONSTANTS '( PAGE-SIZE SIZE-OF-OB-TBL SIZE-OF-REGION-ARRAYS  SIZE-OF-AREA-ARRAYS LENGTH-OF-ATOM-HEAD   %ADDRESS-SPACE-MAP-BYTE-SIZE %ADDRESS-SPACE-QUANTUM-SIZE  ARRAY-ELEMENTS-PER-Q ARRAY-BITS-PER-ELEMENT %FEF-HEADER-LENGTH  LAMBDA-LIST-KEYWORDS A-MEMORY-COUNTER-BLOCK-NAMES                          A-Memory-Virtual-Address IO-Space-Virtual-Address))(SETQ LAMBDA-LIST-KEYWORDS '(&OPTIONAL &REST &KEY &AUX &QUOTE &ALLOW-OTHER-KEYS     &SPECIAL &LOCAL     &FUNCTIONAL     &EVAL     &LIST-OF &BODY &WHOLE;for DEFMACRO                             &EXTENSION     &ENVIRONMENT;added PMH 9/23     ));;; Data on how to set up the initial areas in the cold load.;Don't put FUNCTION around the symbols in here -- that means if you;redefine the function the microcode does not get the new definition,;which is not what you normally want.  Saying FUNCTION makes it a couple;microseconds faster to call it.  Not all of these data are actually;used; check the microcode if you want to know.(SETQ SUPPORT-VECTOR-CONTENTS '((QUOTE PRINT) (QUOTE NAMED-STRUCTURE-INVOKE)(QUOTE DEFSTRUCT-DESCRIPTION)(QUOTE APPLY-LAMBDA) (QUOTE EQUAL) (QUOTE PACKAGE)(QUOTE EXPT-HARD) (QUOTE NUMERIC-ONE-ARGUMENT)(QUOTE NUMERIC-TWO-ARGUMENTS) (QUOTE "unbound")(QUOTE INSTANCE-HASH-FAILURE)(QUOTE INSTANCE-INVOKE-VECTOR)(QUOTE EQUALP)(QUOTE EQUALP-ARRAY)(QUOTE LDB-HARD)(QUOTE DPB-HARD)(QUOTE CALL-STACK-GROUP)(QUOTE GLOBAL:AREF)(QUOTE MASK-FIELD-HARD)(QUOTE DEPOSIT-FIELD-HARD)));;(SETQ CONSTANTS-PAGE '(NIL T 0 1 2 3 4 5 6 7 8 9 10. -1 -2 -3 -4));CONTENTS OF CONSTANTS PAGE(SETQ SCRATCH-PAD-VARIABLES '(SCRATCH-PAD-POINTERS SCRATCH-PAD-PARAMETER-OFFSET   SCRATCH-PAD-PARAMETERS SCRATCH-PAD-TEMP-OFFSET SCRATCH-PAD-TEMPS))(SETQ SCRATCH-PAD-POINTERS '(INITIAL-TOP-LEVEL-FUNCTION ERROR-HANDLER-STACK-GROUP CURRENT-STACK-GROUP INITIAL-STACK-GROUPLAST-ARRAY-ELEMENT-ACCESSED))(SETQ SCRATCH-PAD-PARAMETER-OFFSET 20)(COND ((> (LENGTH SCRATCH-PAD-POINTERS) SCRATCH-PAD-PARAMETER-OFFSET) (BARF 'BARF 'SCRACH-PAD-PARAMETER-OFFSET 'BARF)))(SETQ SCRATCH-PAD-PARAMETERS '(ERROR-TRAP-IN-PROGRESS DEFAULT-CONS-AREA BIND-CONS-AREA LAST-ARRAY-ACCESSED-TYPE LAST-ARRAY-ACCESSED-INDEX INVOKE-MODE INVISIBLE-MODE CDR-ATOM-MODE CAR-ATOM-MODE ACTIVE-MICRO-CODE-ENTRIES))(SETQ SCRATCH-PAD-TEMP-OFFSET 20)(COND ((> (LENGTH SCRATCH-PAD-PARAMETERS) SCRATCH-PAD-TEMP-OFFSET)(BARF 'BARF 'SCRATCH-PAD-TEMP-OFFSET 'BARF)))(SETQ SCRATCH-PAD-TEMPS '(LAST-INSTRUCTION TEMP-TRAP-CODE LOCAL-BLOCK-OFFSET SCRATCH-/#-ARGS-LOADED TEMP-PC SPECIALS-IN-LAST-BLOCK-SLOW-ENTERED));; No initial initializations;; These variables must be initialized to NIL;; BEFORE the first fasl file is loaded.(SETQ COLD-INITIALIZATION-LIST NIL BEFORE-COLD-INITIALIZATION-LIST NIL      WARM-INITIALIZATION-LIST NIL      ONCE-ONLY-INITIALIZATION-LIST NIL SYSTEM-INITIALIZATION-LIST NIL);;; The documentation that used to be here has been moved to LMDOC;FASLD >(SPECIAL FASL-TABLE FASL-GROUP-LENGTH FASL-GROUP-FLAG FASL-RETURN-FLAG)(SETQ FASL-GROUP-FIELD-VALUES '(%FASL-GROUP-CHECK 100000    %FASL-GROUP-FLAG 40000 %FASL-GROUP-LENGTH 37700    FASL-GROUP-LENGTH-SHIFT -6 %FASL-GROUP-TYPE 77   %%FASL-GROUP-CHECK 2001 %%FASL-GROUP-FLAG 1701 %%FASL-GROUP-LENGTH 0610   %%FASL-GROUP-TYPE 0006))(SETQ FASL-GROUP-FIELDS (GET-ALTERNATE FASL-GROUP-FIELD-VALUES))(ASSIGN-ALTERNATE FASL-GROUP-FIELD-VALUES)(SETQ FASL-OPS '(FASL-OP-ERR FASL-OP-NOOP FASL-OP-INDEX FASL-OP-SYMBOL FASL-OP-LIST   FASL-OP-TEMP-LIST FASL-OP-FIXED FASL-OP-FLOAT   FASL-OP-ARRAY FASL-OP-EVAL FASL-OP-MOVE   FASL-OP-FRAME FASL-OP-LIST-COMPONENT FASL-OP-ARRAY-PUSH FASL-OP-STOREIN-SYMBOL-VALUE   FASL-OP-STOREIN-FUNCTION-CELL FASL-OP-STOREIN-PROPERTY-CELL   FASL-OP-FETCH-SYMBOL-VALUE FASL-OP-FETCH-FUNCTION-CELL   FASL-OP-FETCH-PROPERTY-CELL FASL-OP-APPLY FASL-OP-END-OF-WHACK   FASL-OP-END-OF-FILE FASL-OP-SOAK FASL-OP-FUNCTION-HEADER FASL-OP-FUNCTION-END   FASL-OP-NULL-ARRAY-ELEMENT FASL-OP-UNUSED9 FASL-OP-VM2-LIST  FASL-OP-VM2-TEMP-LIST FASL-OP-VM2-LIST-COMPONENT FASL-OP-QUOTE-POINTER FASL-OP-S-V-CELL   FASL-OP-FUNCELL FASL-OP-CONST-PAGE FASL-OP-SET-PARAMETER FASL-OP-INITIALIZE-ARRAY   FASL-OP-CHARACTER FASL-OP-CREATE-AND-STORE-CEF FASL-OP-PEF  FASL-OP-IEEE-FLOAT FASL-OP-KEYWORD-SYMBOL FASL-OP-LISP-SYMBOL; Replaced UNUSED3 with IEEE-FLOAT  FASL-OP-FEF FASL-OP-STRING FASL-OP-STOREIN-ARRAY-LEADER   FASL-OP-INITIALIZE-NUMERIC-ARRAY FASL-OP-REMOTE-VARIABLE FASL-OP-PACKAGE-SYMBOL  FASL-OP-EVAL1 FASL-OP-FILE-PROPERTY-LIST FASL-OP-REL-FILE FASL-OP-RATIONAL  FASL-OP-COMPLEX FASL-OP-LARGE-INDEX FASL-OP-STOREIN-SYMBOL-CELL))(ASSIGN-VALUES FASL-OPS 0)(SETQ FASL-TABLE-PARAMETERS '(FASL-NIL FASL-EVALED-VALUE FASL-TEM1 FASL-TEM2 FASL-TEM3     FASL-SYMBOL-HEAD-AREA     FASL-SYMBOL-STRING-AREA FASL-STRING-AREA FASL-ARRAY-AREA     FASL-FRAME-AREA FASL-LIST-AREA FASL-TEMP-LIST-AREA     FASL-UNUSED FASL-UNUSED2 FASL-UNUSED3     FASL-UNUSED6 FASL-UNUSED4 FASL-UNUSED5))(ASSIGN-VALUES FASL-TABLE-PARAMETERS 0)(SETQ FASL-CONSTANTS '(LENGTH-OF-FASL-TABLE FASL-TABLE-WORKING-OFFSET))(SETQ FASL-CONSTANT-LISTS '(FASL-GROUP-FIELDS FASL-OPS FASL-TABLE-PARAMETERS     FASL-CONSTANTS))(SETQ FASL-TABLE-WORKING-OFFSET 40)(COND ((> (LENGTH FASL-TABLE-PARAMETERS) FASL-TABLE-WORKING-OFFSET)(IOC V)(PRINT 'FASL-TABLE-PARAMETER-OVERFLOW)));PEOPLE CALL THIS YOU KNOW, DON'T GO RANDOMLY DELETING IT!(DEFUN FASL-ASSIGN-VARIABLE-VALUES NIL  ())  ;I GUESS WHAT THIS USED TO DO IS DONE AT TOP LEVEL IN THIS FILE-Information               | ;device queues;;;       +----------------------------------------------+;;;     2 |               %IO-RQ-Command                 | ;nupi command block proper starts here;;;       +----------------------------------------------+;;;     3 |                %IO-RQ-Status                 |;;;       +----------------------------------------------+;;;     4 |