*DECK P2TBL2                                                             P2TBL2 
          IDENT  P2TBL2 
          TITLE  P2TBL2 - TABLE OF OBJECT DIRECTIVES FOR ASM2 
  
          MACHINE  ANY,I
          COMMENT  TABLE OF OBJECT DIRECTIVES FOR ASM2
          SPACE  4
**        P2TBL2 -  TABLE OF OBJECT DIRECTIVES FOR ASM2 
* 
*         DEFINES COMMON BLOCK /P2TBL2/ CONTAINING ENTRIES
*         DIRECTING GENERATION OF OBJECT CODE FOR EACH
*         PSEUDO-INSTRUCTION. 
*         THE FORMAT OF AN ENTRY IS DEFINED BY THE *OBJECT* MACRO BELOW.
  
  
*CALL SYMCOMP 
  
*CALL OPMACS
* OPCODE  OBJECT CODE,<PICTURE>,<LENGTH>,<P1>,<P2>,<P3> 
*                <PICTURE>   OCTAL PICTURE;  WILL BE L.J.Z.F. 
*                <LENGTH>    LENGTH OF PICTURE
*                <PN>        ACTION NUMBER FOR PARAMTER <N> 
*                            I, J, K, JK, Q 
* 
* DATA    OBJECT DATA 
* 
* USE$    OBJECT USE
  
  
          MACRO  OBJECT,NAME,ACTION,OP,LENGTH,PARM1,PARM2,PARM3          P2TBL2 
          ORG    P2TBL2+NAME                                             P2TBL2 
 P1       MICRO  1,5, OP_00000                                           P2TBL2 
 P2       MICRO  6,5, OP_0000000000                                      P2TBL2 
+         VFD    6//OBJACT/ACTION,9/,6/LENGTH,3/PARM1,3/PARM2,3/PARM3,15
,/"P1"B,15/"P2"B
 OBJECT   ENDM                                                           P2TBL2 
                                                                         P2TBL2 
                                                                         P2TBL2 
 I        EQU    1           ADD PARM TO BITS 6-8                        P2TBL2 
 J        EQU    2           ADD PARM TO BITS 9-11                       P2TBL2 
 K        EQU    3           ADD PARM TO BITS 12-14                      P2TBL2 
 JK       EQU    4           ADD PARM TO BITS 9-14                       P2TBL2 
 Q        EQU    5           ADD PARM TO BITS 12-29                      P2TBL2 
                                                                         P2TBL2 
* 
*    OBJECT ACTIONS TO PERFORM
* 
          QUAL   OBJACT 
*CALL OBJACT
          QUAL   *
          EJECT                                                          P2TBL2 
*CALL OPMACS                                                             P2TBL2 
                                                                         P2TBL2 
          SPACE  4                                                       P2TBL2 
*CALL OPNAMES                                                            P2TBL2 
          EJECT                                                          P2TBL2 
          USE    /P2TBL2/                                                P2TBL2 
 P2TBL2   BSSZ   150
 BSS$     OBJECT BSS
 CC$      OBJECT BDP,466
 COMPL    OBJECT CODE,14,15,I,,K       BX1    -X3                        DF74109
 CU$      OBJECT BDP,467
 DADD     OBJECT CODE,32,15,I,J,K      DX1    X2+X3                      P2TBL2 
 DATA$    OBJECT DATA                                                    DF74140
 DF$      OBJECT CODE,036,30,J,,Q      DF     X1,333333B
 DMUL     OBJECT CODE,42,15,I,J,K      DX1    X2*X3                      P2TBL2 
 DM$      OBJECT BDP,465
 DSUB     OBJECT CODE,33,15,I,J,K      DX1    X2-X3                      P2TBL2 
 END$     OBJECT END$ 
 EQ$      OBJECT CODE,04,30,I,J,Q      EQ     B1,B2,333333               P2TBL2 
 FADD     OBJECT CODE,30,15,I,J,K      FX1    X2+X3                      P2TBL2 
 FDIV     OBJECT CODE,44,15,I,J,K      FX1    X2/X3                      P2TBL2 
 FMUL     OBJECT CODE,40,15,I,J,K      FX1    X2*X3                      P2TBL2 
 FSUB     OBJECT CODE,31,15,I,J,K      FX1    X2-X3                      P2TBL2 
 GE$      OBJECT CODE,06,30,I,J,Q      GE     B1,B2,333333               P2TBL2 
 IADD     OBJECT CODE,36,15,I,J,K      IX1    X2+X3                      P2TBL2 
 IDENT$   OBJECT IDENT
 ID$      OBJECT CODE,037,30,J,,Q      ID     X1,333333B
 IM$      OBJECT IM 
 IMUL     OBJECT CODE,42,15,I,J,K      IX1    X2*X3                      P2TBL2 
 IR$      OBJECT CODE,034,30,J,,Q      IR     X1,333333B
 ISUB     OBJECT CODE,37,15,I,J,K      IX1    X2-X3                      P2TBL2 
 LABEL$   OBJECT LABEL
 JP$      OBJECT CODE,02,30,I,,Q       JP     B1+333333B
 LAND     OBJECT CODE,11,15,I,J,K      BX1    X2*X3                      P2TBL2 
 LEQV     OBJECT CODE,17,15,I,J,K      BX1    -X3-X2                     P2TBL2 
 LIMP     OBJECT CODE,15,15,I,J,K      BX1    -X3*X2                     P2TBL2 
 LINE     OBJECT LINE 
 LOR      OBJECT CODE,12,15,I,J,K      BX1    X2+X3                      P2TBL2 
 LT$      OBJECT CODE,07,30,I,J,Q      LT     B1,B2,333333               P2TBL2 
 LXOR     OBJECT CODE,13,15,I,J,K      BX1    X2-X3                      P2TBL2 
 MASK     OBJECT CODE,43,15,I,,JK      MX1    33                         DF74141
 MD$      OBJECT BDP,0000 
 NE$      OBJECT CODE,05,30,I,J,Q      NE     B1,B2,333333               P2TBL2 
 NG$      OBJECT CODE,033,30,J,,Q      NG     X1,333333B
 NO$      OBJECT CODE,46,15,,,JK       NO     33B                        DF74109
 NORM     OBJECT CODE,24,15,I,J,K      NX1    B2,X3                      P2TBL2 
 NOTED    OBJECT NOTE                                      XXX
 NZ$      OBJECT CODE,031,30,J,,Q      NZ     X1,333333B
 OR$      OBJECT CODE,035,30,J,,Q      OR     X1,333333B
 OVCAP    OBJECT OVCAP
 OVLY     OBJECT OVLY 
 PACK     OBJECT CODE,27,15,I,J,K      PX1    B2,X3                      P2TBL2 
 PL$      OBJECT CODE,032,30,J,,Q      PL     X1,333333B
 PS$      OBJECT CODE,0000,30,,,Q      PS     333333
 RADD     OBJECT CODE,34,15,I,J,K      RX1    X2+X3                      P2TBL2 
 RDIV     OBJECT CODE,45,15,I,J,K      RX1    X2/X3                      P2TBL2 
 REPL     OBJECT REPL                  REPL TABLE 
 RJ$      OBJECT CODE,01,30,,,Q        RJ     333333B 
 RMUL     OBJECT CODE,41,15,I,J,K      RX1    X2*X3                      P2TBL2 
 RNRM     OBJECT CODE,25,15,I,J,K      ZX1    B2,X3                      P2TBL2 
 RSUB     OBJECT CODE,35,15,I,J,K      RX1    X2-X3                      P2TBL2 
 SAAMB    OBJECT CODE,55,15,,J,K       SA0    A2-B3                      P2TBL2 
 SAAPB    OBJECT CODE,54,15,,J,K       SA0    A2+B3                      P2TBL2 
 SAAPK    OBJECT CODE,50,30,,J,Q       SA0    A2+333333                  P2TBL2 
 SABMB    OBJECT CODE,57,15,,J,K       SA0    B2-B3                      P2TBL2 
 SABPB    OBJECT CODE,56,15,,J,K       SA0    B2-B3                      P2TBL2 
 SABPK    OBJECT CODE,51,30,,J,Q       SA0    B2+333333                  P2TBL2 
 SAXPB    OBJECT CODE,53,15,I,J,K      SA0    X2+B3                      P2TBL2 
 SAXPK    OBJECT CODE,52,30,,J,Q       SA0    X2+333333                  P2TBL2 
 SBAMB    OBJECT CODE,65,15,I,J,K      SB1    A2-B3                      P2TBL2 
 SBAPB    OBJECT CODE,64,15,I,J,K      SB1    A2+B3                      P2TBL2 
 SBAPK    OBJECT CODE,60,30,I,J,Q      SB1    A2+333333                  P2TBL2 
 SBBMB    OBJECT CODE,67,15,I,J,K      SB1    B2-B3                      P2TBL2 
 SBBPB    OBJECT CODE,66,15,I,J,K      SB1    B2+B3                      P2TBL2 
 SBBPK    OBJECT CODE,61,30,I,J,Q      SB1    B2+333333                  P2TBL2 
 SBXPB    OBJECT CODE,63,15,I,J,K      SB1    X2+B3                      P2TBL2 
 SBXPK    OBJECT CODE,62,30,I,J,Q      SB1    X2+333333                  P2TBL2 
 SHL      OBJECT CODE,20,15,I,,JK      LX1    33                         DF74141
 SHLB     OBJECT CODE,22,15,I,J,K      LX1    B2,X3                      P2TBL2 
 SHR      OBJECT CODE,21,15,I,,JK      AX1    33
 SHRB     OBJECT CODE,23,15,I,J,K      AX1    B2,X3                      P2TBL2 
 SLRAMB   OBJECT CODE,55,15,I,J,K      SA1    A2-B3                      P2TBL2 
 SLRAPB   OBJECT CODE,54,15,I,J,K      SA1    A2+B3                      P2TBL2 
 SLRAPK   OBJECT CODE,50,30,I,J,Q      SA1    A2+333333                  P2TBL2 
 SLRBMB   OBJECT CODE,57,15,I,J,K      SA1    B2-B3                      P2TBL2 
 SLRBPB   OBJECT CODE,56,15,I,J,K      SA1    B2+B3                      P2TBL2 
 SLRBPK   OBJECT CODE,51,30,I,J,Q      SA1    B2+333333                  P2TBL2 
 SLRXPB   OBJECT CODE,53,15,I,J,K      SA1    X2+B3                      P2TBL2 
 SLRXPK   OBJECT CODE,52,30,I,J,Q      SA1    X2+333333                  P2TBL2 
 SSRAMB   OBJECT CODE,55,15,I,J,K      SA1    A2-B3                      P2TBL2 
 SSRAPB   OBJECT CODE,54,15,I,J,K      SA1    A2+B3                      P2TBL2 
 SSRAPK   OBJECT CODE,50,30,I,J,Q      SA1    A2+333333                  P2TBL2 
 SSRBMB   OBJECT CODE,57,15,I,J,K      SA1    B2-B3                      P2TBL2 
 SSRBPB   OBJECT CODE,56,15,I,J,K      SA1    B2+B3                      P2TBL2 
 SSRBPK   OBJECT CODE,51,30,I,J,Q      SA1    B2+333333                  P2TBL2 
 SSRXPB   OBJECT CODE,53,15,I,J,K      SA1    X2+B3                      P2TBL2 
 SSRXPK   OBJECT CODE,52,30,I,J,Q      SA1    X2+333333                  P2TBL2 
 STRK     OBJECT CODE,16,15,I,J,K      BX1    -X3+X2                     P2TBL2 
 SUM1     OBJECT CODE,47,15,I,,K       CX1    X3                         P2TBL2 
 SXAPB    OBJECT CODE,74,15,I,J,K      SX1    A2+B3                      P2TBL2 
 SXAMB    OBJECT CODE,75,15,I,J,K      SX1    A2-B3                      P2TBL2 
 SXAPK    OBJECT CODE,70,30,I,J,Q      SX1    X2+333333                  P2TBL2 
 SXBPB    OBJECT CODE,76,15,I,J,K      SX1    B2+B3                      P2TBL2 
 SXBMB    OBJECT CODE,77,15,I,J,K      SX1    B2-B3                      P2TBL2 
 SXBPK    OBJECT CODE,71,30,I,J,Q      SX1    B2+333333                  P2TBL2 
 SXXPB    OBJECT CODE,73,15,I,J,K      SX1    X2+B3                      P2TBL2 
 SXXPK    OBJECT CODE,72,30,I,J,Q      SX1    X2+333333                  P2TBL2 
 UNP      OBJECT CODE,26,15,I,J,K      UX1    B2,X3                      P2TBL2 
 USE$     OBJECT USE
 VFD$     OBJECT VFD
 XMIT     OBJECT CODE,10,15,I,J        BX1    X2                         P2TBL2 
 ZR$      OBJECT CODE,030,30,J,,Q      ZR     X1,333333B
          SPACE  4,1                                                     P2TBL2 
          END                                                            P2TBL2 
