*DECK TABLES                                                             TABLES 
          IDENT  TABLES                                                  TABLES 
          TITLE  TABLES -  OBJECT INSTRUCTIONS, ROUTINES
  
          MACHINE  ANY,I
          SST 
          COMMENT  OBJECT INSTRUCTIONS, ROUTINES
          SPACE  4
**        TABLES -  OBJECT INSTRUCTIONS, ROUTINES 
* 
*         CONTAINS: 
*                OBJTAB    - NAMES OF OBJECT-TIME ROUTINES
*                OBJDESC   - DESCRIPTION OF OBJECT-TIME ROUTINES
*                              (INPUT, OUTPUT, SAVED REGISTERS, SQ PARM)
*                /ASMINST/   TYPES OF REGISTERS USED BY MACHINE INSTRUCTIONS
  
  
*CALL SYMCOMP 
  
*CALL OPMACS                                                             TABLES 
  
          SPACE  4
 .Y       EQU    1                                                       TABLES 
 .N       EQU    0                                                       TABLES 
 .NO      EQU    .N                                                      TABLES 
 .        EQU    0                                                       TABLES 
 .I       EQU    4                                                       TABLES 
 .J       EQU    2                                                       TABLES 
 .K       EQU    1                                                       TABLES 
 INSF      SET    0                                                      TABLES 
 REGF     MACRO  P,Q                                                     TABLES 
 Q        SET    0                                                       TABLES 
          IRP    P                                                       TABLES 
          IFC    NE,*P**,1                                               TABLES 
 Q        SET    Q+._P                                                   TABLES 
          IRP                                                            TABLES 
          ENDM                                                           TABLES 
          MACROE INST,NAME,CL,DEF,USE,L,TYPE,CM,OP,UP,NU,SEQ,COPY,INUSE,
,REF,SP 
*         NAME               OPCODE MNEMONIC                             TABLES 
*         CL                 CLASS - DETERMINES INSTRUCTION FORMAT       TABLES 
*         DEF                REGISTERS ASSIGNED VALUES                   TABLES 
*         USE                REGISTERS USED                              TABLES 
*         REF                REGISTER REFERENCED
*         L                  MACHINE INSTRUCTION LENGTH                  TABLES 
*         TYPE               LOAD, STORE, CONDJ, CMU, DATA               TABLES 
*         COPY               INSTRUCTION PASSED TO SECOND ASSEMBLY PHASE TABLES 
*                            (DEFAULT YES)                               TABLES 
*         INUSE              INSTRUCTION LEGAL OUTSIDE CODE BLOCK        TABLES 
*                            (DEFAULT NO)                                TABLES 
*         UP                 INSTRUCTION SHOULD BE FORCED UPPER          TABLES 
*                            (DEFAULT NO)                                TABLES 
*         NU                 NEXT INSTRUCTION SHOULD BE FORCED UPPER     TABLES 
*                            (DEFAULT NO)                                TABLES 
*         SP                 SPECIAL PROCESSING IN READSEQ
*         SEQ    NO LONGER USED 
          IFEQ   INSF,0,2                                                TABLES 
 INSTTAB  BSS    ENDOP+1                                                 TABLES 
 INSF     SET    1                                                       TABLES 
          ECHO   1,P=(.STORE,.DATA,.LOAD) 
 P        SET    0                                                       TABLES 
          ORG    INSTTAB+NAME                                            TABLES 
          IFC    EQ,*L**                                                 TABLES 
 LEN      SET    0                                                       TABLES 
          ELSE                                                           TABLES 
 LEN      SET    L                                                       TABLES 
          ENDIF                                                          TABLES 
          REGF   (DEF),DC                                                TABLES 
          REGF   (REF),RC 
          REGF   (USE),UC                                                TABLES 
          ECHO   ,P=(CONDJ,CMU,DATA,LOAD,STORE)                          TABLES 
          IFC    EQ,*P*TYPE*,1                                           TABLES 
 ._P      SET    1                                                       TABLES 
          ENDD                                                           TABLES 
          IFC    EQ,*COPY**                                              TABLES 
 C        MICRO  1,1,*Y*                                                 TABLES 
          ELSE                                                           TABLES 
 C        MICRO  1,,*COPY*                                               TABLES 
          ENDIF                                                          TABLES 
          IFC    EQ,*OP** 
 OPT      MICRO  1,1,*N*
          ELSE
 OPT      MICRO  1,,*OP*
          ENDIF 
          IFC    EQ,*SP** 
 .SPEC    SET    SPNONE 
          ELSE
 .SPEC    SET    SP 
          ENDIF 
          VFD    3/CL-1                                                  TABLES 
          VFD    1/.STORE                                                TABLES 
          VFD    2/0
          VFD    6/LEN                                                   TABLES 
          VFD    1/._NU                                                  TABLES 
          VFD    2/DC/2                                                  TABLES 
          VFD    3/UC                                                    TABLES 
          VFD    1/RC/4 
          VFD    1/._INUSE                                               TABLES 
          VFD    1/._UP                                                  TABLES 
          VFD    1/.DATA                                                 TABLES 
          VFD    1/0
          VFD    1/.LOAD                                                 TABLES 
          VFD    3/0
          VFD    1/1-."C" 
          VFD    4/.SPEC
          ENDM                                                           TABLES 
                                                                         TABLES 
          MACRO  REGS,NAME,TYPEI,TYPEJ,TYPEK                             TABLES 
          ORG    IJK+NAME                                                TABLES 
          ECHO   3,P=(I,J,K)                                             TABLES 
 P        SET    0                                                       TABLES 
          IFC    NE,*TYPEI**,1                                           TABLES 
 I        SET    TYPEI                                                   TABLES 
          IFC    NE,*TYPEJ**,1                                           TABLES 
 J        SET    TYPEJ                                                   TABLES 
          IFC    NE,*TYPEK**,1                                           TABLES 
 K        SET    TYPEK                                                   TABLES 
          VFD   6/0,18/I,18/J,18/K                                       TABLES 
          ENDM                                                           TABLES 
                                                                         TABLES 
          USE    /ASMINST/                                               TABLES 
*CALL OPNAMES                                                            TABLES 
          LIST   X
*CALL ASMSPPRC
*CALL INSTBLK                                                            TABLES 
          ORG    INSTTAB+ENDOP+1                                         TABLES 
 IJK      BSSZ   ENDOP-NULL+1                                            TABLES 
*CALL REGTYPE                                                            TABLES 
                                                                         TABLES 
 XMIT     REGS   TYPEX,TYPEX                                             TABLES 
 CXMIT    REGS   TYPEX,TYPEX
 DXMIT    REGS   TYPEX,TYPEX
 LAND     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 LOR      REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 LXOR     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 COMPL    REGS   TYPEX,,TYPEX 
 LIMP     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 STRK     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 LEQV     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 SHLB     REGS   TYPEX,TYPEB,TYPEX                                       TABLES 
 SHRB     REGS   TYPEX,TYPEB,TYPEX                                       TABLES 
 NORM     REGS   TYPEX,TYPEB,TYPEX                                       TABLES 
 RNRM     REGS   TYPEX,TYPEB,TYPEX                                       TABLES 
 UNP      REGS   TYPEX,TYPEB,TYPEX                                       TABLES 
 PACK     REGS   TYPEX,TYPEB,TYPEX                                       TABLES 
 FADD     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 FSUB     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 DADD     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 DSUB     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 RADD     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 RSUB     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 IADD     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 ISUB     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 FMUL     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 RMUL     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 DMUL     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 IMUL     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 FDIV     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 RDIV     REGS   TYPEX,TYPEX,TYPEX                                       TABLES 
 SUM1     REGS   TYPEX,TYPEX                                             TABLES 
 SAXPB    REGS   TYPEA,TYPEX,TYPEB                                       TABLES 
 SAAPB    REGS   TYPEA,TYPEA,TYPEB                                       TABLES 
 SAAMB    REGS   TYPEA,TYPEA,TYPEB                                       TABLES 
 SABPB    REGS   TYPEA,TYPEB,TYPEB                                       TABLES 
 SABMB    REGS   TYPEA,TYPEB,TYPEB                                       TABLES 
 SBXPB    REGS   TYPEB,TYPEX,TYPEB                                       TABLES 
 SBAPB    REGS   TYPEB,TYPEA,TYPEB
 SBAMB    REGS   TYPEB,TYPEA,TYPEB                                       TABLES 
 SBBPB    REGS   TYPEB,TYPEB,TYPEB                                       TABLES 
 CSBBPB   REGS   TYPEB,TYPEB,TYPEB
 DSBBPB   REGS   TYPEB,TYPEB,TYPEB
 SBBMB    REGS   TYPEB,TYPEB,TYPEB                                       TABLES 
 SXXPB    REGS   TYPEX,TYPEX,TYPEB                                       TABLES 
 SXAPB    REGS   TYPEX,TYPEA,TYPEB                                       TABLES 
 SXAMB    REGS   TYPEX,TYPEA,TYPEB                                       TABLES 
 SXBPB    REGS   TYPEX,TYPEB,TYPEB                                       TABLES 
 SXBMB    REGS   TYPEX,TYPEB,TYPEB                                       TABLES 
 SLRXPB   REGS   TYPEA,TYPEX,TYPEB                                       TABLES 
 SLRAPB   REGS   TYPEA,TYPEA,TYPEB                                       TABLES 
 SLRAMB    REGS  TYPEA,TYPEA,TYPEB                                       TABLES 
 SLRBPB    REGS  TYPEA,TYPEB,TYPEB                                       TABLES 
 SLRBMB    REGS  TYPEA,TYPEB,TYPEB                                       TABLES 
 SSRXPB    REGS  TYPEA,TYPEX,TYPEB                                       TABLES 
 SSRAPB    REGS  TYPEA,TYPEA,TYPEB                                       TABLES 
 SSRAMB    REGS  TYPEA,TYPEA,TYPEB                                       TABLES 
 SSRBPB    REGS  TYPEA,TYPEB,TYPEB                                       TABLES 
 SSRBMB    REGS  TYPEA,TYPEB,TYPEB                                       TABLES 
 SHL       REGS  TYPEX,TYPEX                                             TABLES 
 SHR       REGS  TYPEX,TYPEX                                             TABLES 
 MASK      REGS  TYPEX                                                   TABLES 
 JP$       REGS  TYPEB                                                   TABLES 
 ZR$       REGS  TYPEX                                                   TABLES 
 NZ$       REGS  TYPEX                                                   TABLES 
 PL$       REGS  TYPEX                                                   TABLES 
 NG$       REGS  TYPEX                                                   TABLES 
 IR$       REGS  TYPEX                                                   TABLES 
 OR$       REGS  TYPEX                                                   TABLES 
 DF$       REGS  TYPEX                                                   TABLES 
 ID$       REGS  TYPEX                                                   TABLES 
 EQ$       REGS  TYPEB,TYPEB                                             TABLES 
 NE$      REGS   TYPEB,TYPEB                                             TABLES 
 GE$      REGS   TYPEB,TYPEB                                             TABLES 
 LT$      REGS   TYPEB,TYPEB                                             TABLES 
 SAAPK    REGS   TYPEA,TYPEA                                             TABLES 
 SABPK    REGS   TYPEA,TYPEB                                             TABLES 
 SAXPK    REGS   TYPEA,TYPEX                                             TABLES 
 SBAPK    REGS   TYPEB,TYPEA                                             TABLES 
 SBBPK    REGS   TYPEB,TYPEB                                             TABLES 
 SBXPK    REGS   TYPEB,TYPEX                                             TABLES 
 SXAPK    REGS   TYPEX,TYPEA                                             TABLES 
 SXBPK    REGS   TYPEX,TYPEB                                             TABLES 
 SXXPK    REGS   TYPEX,TYPEX                                             TABLES 
 SLRAPK   REGS   TYPEA,TYPEA                                             TABLES 
 SLRBPK   REGS   TYPEA,TYPEB                                             TABLES 
 SLRXPK   REGS   TYPEA,TYPEX                                             TABLES 
 SSRAPK   REGS   TYPEA,TYPEA                                             TABLES 
 SSRBPK   REGS   TYPEA,TYPEB                                             TABLES 
 SSRXPK   REGS   TYPEA,TYPEX                                             TABLES 
 IM$      REGS   TYPEX,TYPEB
 CC$      REGS   TYPEX,TYPEA
 CU$      REGS   TYPEX
 DM$      REGS   TYPEX
                                                                         TABLES 
          ENTRY  OBJTAB                                                  TABLES 
          ENTRY  OBJDESC                                                 TABLES 
          USE    OBJTAB                                                  TABLES 
 OBJTAB   BSS    0                                                       TABLES 
          USE    OBJDESC                                                 TABLES 
 OBJDESC  BSS    0                                                       TABLES 
 Y        EQU    1                                                       TABLES 
 N        EQU    0                                                       TABLES 
 PTR      SET    0                                                       TABLES 
 B        EQU    8*TYPEB                                                 TABLES 
 X        EQU    8*TYPEX                                                 TABLES 
 A        EQU    8*TYPEA                                                 TABLES 
 OBJNUM   SET    0                                                       TABLES 
          MACROE OBJ,NAME,I,O,S,SQ,BREG                                  TABLES 
*         NAME   OBJECT ROUTINE ENTRY POINT NAME                         TABLES 
*         I      LIST OF INPUT REGISTERS                                 TABLES 
*         O      LIST OF OUTPUT REGISTERS                                TABLES 
*         S      LIST OF SAVED REGISTERS                                 TABLES 
*         SQ     Y IF ROUTINE BREAKS SEQUENCE                            TABLES 
*                N IF ROUTINE DOES NOT BREAK SEQUENCE                    TABLES 
*         BREG   B REGISTER NUMBER IF ROUTINE IS ENTERED BY B REGISTER   TABLES 
*                LINKAGE                                                 TABLES 
          LOCAL  W                                                       TABLES 
          LOCAL  WW                                                      TABLES 
 OBJNUM   SET    OBJNUM+1                                                TABLES 
 NAME     EQU    OBJNUM                                                  TABLES 
          USE    OBJTAB                                                  TABLES 
          VFD    42/0L_NAME,18/PTR                                       TABLES 
          USE    OBJDESC                                                 TABLES 
 IN       SET    0                                                       TABLES 
 W        BSS    1                                                       TABLES 
          IRP    I                                                       TABLES 
 IN       SET    IN+1                                                    TABLES 
 R        MICRO  2,,/I/                                                  TABLES 
 C        MICRO  1,1,/I/                                                 TABLES 
          VFD    6/"R"+"C"                                               TABLES 
          IFC    EQ,/"C"/A/,1 
          ERRNZ  "R"         A REG ILLEGAL AS INPUT 
          IRP                                                            TABLES 
 OUT      SET    0                                                       TABLES 
          BSS    0                                                       TABLES 
          IRP    O                                                       TABLES 
 OUT      SET    OUT+1                                                   TABLES 
 R        MICRO  2,,/O/                                                  TABLES 
 C        MICRO  1,1,/O/                                                 TABLES 
          VFD    6/"R"+"C"                                               TABLES 
          IFC    EQ,/"C"/A/,1 
          ERRNZ  "R"         A REG ILLEGAL AS OUTPUT
          IRP                                                            TABLES 
 SAVE     SET    0                                                       TABLES 
          BSS    0                                                       TABLES 
          IRP    S                                                       TABLES 
 SAVE     SET    SAVE+1                                                  TABLES 
 R        MICRO  2,,/S/                                                  TABLES 
 C        MICRO  1,1,/S/                                                 TABLES 
          VFD    6/"R"+"C"                                               TABLES 
          IRP                                                            TABLES 
 WW       BSS    0                                                       TABLES 
 PTR      SET    *-OBJDESC                                               TABLES 
          ORG    W                                                       TABLES 
          VFD    5/IN,4/OUT,5/SAVE,1/SQ,3/BREG                           TABLES 
          ORG    WW                                                      TABLES 
          ENDM                                                           TABLES 
*CALL OBJDEFS                                                            TABLES 
          ENTRY  OBJLTB 
          ENTRY  NOBJRTN
 OBJLTB   BSS    OBJNUM 
 NOBJ     DECMIC OBJNUM 
 NOBJRTN  DATA    "NOBJ"
          END                                                            TABLES 
