LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760030323. :SYSTEM-TYPE :LOGICAL :VERSION 4. :TYPE "LISP" :NAME "DAINFO" :DIRECTORY ("REL3-SOURCE" "COMPILER") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-SOURCE\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758302299. :AUTHOR "REL3" :LENGTH-IN-BYTES 2853. :LENGTH-IN-BLOCKS 3. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ;;; -*- Mode: Common-Lisp; Package: Compiler2; Base: 10.; Cold-Load: T -*-;;;                           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) 1986,1987 Texas Instruments Incorporated. All rights reserved.;;;;   *-----------------------------------------------------------*;;;;   |           --  TI Explorer Lisp Compiler  --               |;;;;   |  This file is compiled and included in a cold band        |;;;;   |  to define certain symbol values and properties that are  |;;;;   |  needed by the disassembler and that originally came from |;;;;   |  the DEFOP or DEFOP-AUX file.   |;;;;   *-----------------------------------------------------------*;;;  4/2/86 - Original.;;;  4/4/86 - Add handling for NO-REG and DEST properties.;;;  4/5/86 - Add values for register names.;;; 6/25/86 - Dummy definition for MODULE-OP-NAME-ARRAY so not unbound.;;; 7/14/86 - Initialize MODULE-OP-NAME-ARRAY to array of NILs instead of NIL so;;;that DEF-MODULE still works.;;;11/11/86 - Change GLOBAL:COMPILE to LISP:COMPILE; include the module op table.#+Elroy(progn;;;    Tables of instruction names(set 'INSTRUCTION-DECODE-ARRAY '#.(INSTRUCTION-DECODE-TABLE))(set 'MISC-OP-NAME-ARRAY '#.(MISC-OP-NAME-TABLE))(set 'AUX-OP-NAME-ARRAY '#.(AUX-OP-NAME-TABLE))(set 'MODULE-OP-NAME-ARRAY '#.(MODULE-OP-NAME-TABLE));;;   Main-op instruction classes(eval-when ( lisp:compile )(defmacro set-disassembler-symbol-properties ()  (let (( table (INSTRUCTION-DECODE-TABLE) )( forms nil )( last-name nil ))    (dotimes ( i (length table) )      (let (( name (aref table i) ))(unless (or (null name)    (eq name last-name))  (let (( no-reg (get-for-target name 'NO-REG) )( dest (get-for-target name 'DEST) ))    (unless (null no-reg)      (push `(putprop ',name ',no-reg 'no-reg)    forms) )    (when (and dest       (or no-reg   (eq dest 'D-STORE)))      (push `(putprop ',name ',dest 'dest)    forms) )    )  (setq last-name name) )))    `(progn . ,forms) )))(set-disassembler-symbol-properties);;;   Names for register field values(defprop FEF#.(LAP-VALUE 'FEF)QLVAL)(defprop LOCBLOCK#.(LAP-VALUE 'LOCBLOCK)QLVAL)(defprop ARG#.(LAP-VALUE 'ARG)QLVAL)(defprop SELF-UNMAPPED#.(LAP-VALUE 'SELF-UNMAPPED) QLVAL)(defprop SELF-MAP#.(LAP-VALUE 'SELF-MAP)QLVAL)(defprop PDL-POP#.(LAP-VALUE 'PDL-POP)QLVAL)(defprop PDL-PUSH#.(LAP-VALUE 'PDL-PUSH)QLVAL))nitialization of SPECIAL and SYSTEM-CONSTANT;;                properties for system variables -- this is now done;;                by function INIT-SYSTEM-VAR-PROPERTIES in file QCDEFS.;; 09/23/85 DNG - Commented out