*DECK P2TBL1                                                             P2TBL1 
          IDENT  P2TBL1                                                  P2TBL1 
          TITLE  P2TBL1 - TABLE OF LIST DIRECTIVES FOR ASM2 
  
          MACHINE  ANY,I
          COMMENT  TABLE OF LIST DIRECTIVES FOR ASM2
          SPACE  4
**        P2TBL1 -  TABLE OF LIST DIRECTIVES FOR ASM2 
* 
*         THIS DECK GENERATES THE COMMON BLOCK /P2TBL1/.
  
*CALL SYMCOMP 
          SPACE  4
*    DEFINE FORMATS FOR OPCODES VIA COMMON BLOCK
  
 CL=1     EQU    1
 CL=2     EQU    2
 CL=3     EQU    3
 CL=4     EQU    4
 CL=5     EQU    5
          SPACE  4
          MACRO  INST,OPCODE,CLASS
 OPCODE   EQU    CLASS
 INST     ENDM
          SPACE  4
          QUAL   CLASS
          LIST   -R 
*CALL     INSTBLK 
          LIST   *
          QUAL   *
LIST      EJECT 
**        LISTOP -  TABLE ENTRY FOR LISTING A PSEUDO OPERATION
* 
* NAME    LISTOP FORMAT,LISTSW,PICT,PARM1,PARM2,PARM3 
* 
*                FORMAT    CLASS OF THE PSEUDO INSTRUCTION
*                          (NOW IGNORED;  GOTTEN FROM COMDECK INSTBLK)
*                LISTSW    *NOLIST* IF PSEUDO INSTRUCTION TO BE UNLISTED
*                            *COMMENT* IF LINE IS TO BE LISTED AS ONE 
*                PICT      PICTURE THAT WILL BE MODIFIED
*                PARM_I    N MEANS INSERT 3 BITS IN COLUMN N
*                          (N,L) MEANS INSERT 3*L BITS IN COLS 18_(17+L)
*                          NOTE-  COL 11 IS FIRST COLUMN OF PICTURE 
* 
*         GIVEN- *NAME* DEFINED (VIA COMDECK *OPNAMES*) 
*                */CLASS/NAME* DEFINED VIA COMDECK INSTBLK
* 
*         DOES-  GENERATES  VFD  3//CLASS/NAME-1, 
                                  2/LISTSW, 
                                  25/,
*                                 5/N1,5/L1,
*                                 5/N2,5/L2,
*                                 5/N3,5/L3 
*                           DATA 20H_PICT 
* 
*         NOTE-  MACRO HAS BEEN DEFINED SO *LIST G* IS NOT NEEDED.
  
  
          MACRO  LISTOP,NAME,FORMAT,LISTSW,PICT,PARM1,PARM2,PARM3 
          IFNE   /CLASS/NAME,FORMAT,1 
          ERR -  WRONG CLASS OF PSEUDO-INSTRUCTION
          ORG    P2TBL1+4*NAME
 SW       SET    LISTSW 1 
 VAL      MICRO  1,, 3//CLASS/NAME-1,2/SW,25/ 
          LISTP  L1,PARM1 
          LISTP  L2,PARM2 
          LISTP  L3,PARM3 
+         VFD    "VAL"
          DATA   30H_PICT 
 LISTOP   ENDM
  
 NOLIST   EQU    0
 COMMENT  EQU    2
                                                                         P2TBL1 
          NOREF  L1,L2,L3,SW,P2TBL1 
  
 LISTP    MACRO  L,COL,LEN
 L        SET    LEN 1                                                   P2TBL1 
          IFC    EQ, COL  ,1                                             P2TBL1 
 L        SET    0                                                       P2TBL1 
 VAL      MICRO  1,, "VAL",5/COL,5/L
 LISTP    ENDM                                                           P2TBL1 
          EJECT                                                          P2TBL1 
*CALL OPMACS                                                             P2TBL1 
          SPACE  4                                                       P2TBL1 
*CALL OPNAMES                                                            P2TBL1 
          EJECT                                                          P2TBL1 
          USE    /P2TBL1/                                                P2TBL1 
 P2TBL1   BSS    0
  
          DUP    150,2
          VFD    3/0,1/1,26/,5/14,5/6,5/21,5/4,5/30,5/6 
          DATA   30HP1=******,P2=****,P3=**** 
  
 BSS$     LISTOP   2,,(BSS    33333B),,,(18,5)                             P2TBL
 CC$      LISTOP   5,,(CC     *****B,#ADDR1,*,#ADDR2,)
 COMPL    LISTOP   1,,(BX1    -X3),13,,20                                  P2TBL
 CU$      LISTOP   5,,(CU     *****B,#ADDR1,*,#ADDR2,)
 DADD     LISTOP   1,,(DX1    X2+X3),13,19,22                              P2TBL
 DATA$    LISTOP   2,,(DATA)                                               P2TBL
 DF$      LISTOP   3,,(DF     X1,333333B),19,,(21,6)
 DM$      LISTOP   5,,(DM     *****B,#ADDR1,*,#ADDR2,)
 DMUL     LISTOP   1,,(DX1    X2*X3),13,19,22                              P2TBL
 DSUB     LISTOP   1,,(DX1    X2-X3),13,19,22                              P2TBL
 ENDL     LISTOP   2,COMMENT,(ENDL) 
 ENDPL    LISTOP   2,COMMENT,(ENDPL)
 END$     LISTOP   4,,(END)                                                P2TBL
 EPRC     LISTOP   4,COMMENT,(EPRC) 
 EQ$      LISTOP   3,,(EQ     B1,B2,333333),19,22,(24,6)                   P2TBL
 FADD     LISTOP   1,,(FX1    X2+X3),13,19,22                              P2TBL
 FDIV     LISTOP   1,,(FX1    X2/X3),13,19,22                              P2TBL
 FMUL     LISTOP   1,,(FX1    X2*X3),13,19,22                              P2TBL
 FSUB     LISTOP   1,,(FX1    X2-X3),13,19,22                              P2TBL
 GE$      LISTOP   3,,(GE     B1,B2,333333),19,22,(24,6)                   P2TBL
 IADD     LISTOP   1,,(IX1    X2+X3),13,19,22                              P2TBL
 IDENT$   LISTOP   2,,(IDENT  KLUDGE) 
 ID$      LISTOP   3,,(ID     X1,333333B),19,,(21,6)
 IM$      LISTOP   3,,(IM     B*+******B),19,,(21,6)
 IMUL     LISTOP   1,,(IX1    X2*X3),13,19,22                              P2TBL
 IR$      LISTOP   3,,(IR     X1,333333B),19,,(21,6)
 ISUB     LISTOP   1,,(IX1    X2-X3),13,19,22                              P2TBL
 JP$      LISTOP   3,,(JP     B1+333333B),19,,(21,6)
 LABEL$   LISTOP   4,,(BSS    0)
 LAND     LISTOP   1,,(BX1    X2*X3),13,19,22                              P2TBL
 LEQV     LISTOP   1,,(BX1    -X3-X2),13,23,20                             P2TBL
 LIMP     LISTOP   1,,(BX1    -X3*X2),13,23,20                             P2TBL
 LINE     LISTOP   2,NOLIST 
 LOOP     LISTOP   2,COMMENT,(LOOP) 
 LOR      LISTOP   1,,(BX1    X2+X3),13,19,22                              P2TBL
 LT$      LISTOP   3,,(LT     B1,B2,333333),19,22,(24,6)                   P2TBL
 LXOR     LISTOP   1,,(BX1    X2-X3),13,19,22                              P2TBL
 MASK     LISTOP   2,,(MX1    33B),13,,(18,2)                              P2TBL
 MD$      LISTOP   5,,(MD     *****B,#ADDR1,*,#ADDR2,)
 MINUS    LISTOP   2,,(-)                                                  P2TBL
 NE$      LISTOP   3,,(NE     B1,B2,333333),19,22,(24,6)                   P2TBL
 NG$      LISTOP   3,,(NG     X1,333333B),19,,(21,6)
 NO$      LISTOP   2,,(NO     33B),,,(18,2) 
 NORM     LISTOP   1,,(NX1    B2,X3),13,19,22                              P2TBL
 NOTED    LISTOP    2 
 NZ$      LISTOP   3,,(NZ     X1,333333B),19,,(21,6)
 OBJ      LISTOP   2,COMMENT,(OBJ)
 OR$      LISTOP   3,,(OR     X1,333333B),19,,(21,6)
 OVCAP    LISTOP 2,,(OVCAP) 
 PACK     LISTOP   1,,(PX1    B2,X3),13,19,22                              P2TBL
 PL$      LISTOP   3,,(PL     X1,333333B),19,,(21,6)
 PLIST    LISTOP   2,COMMENT,(PLIST)
 PLUS     LISTOP   2,,(+)                                                  P2TBL
 PS$      LISTOP   2,,(PS     333333B),,,(18,6)                            P2TBL
 RADD     LISTOP   1,,(RX1    X2+X3),13,19,22                              P2TBL
 RDIV     LISTOP   1,,(RX1    X2/X3),13,19,22                              P2TBL
 REPL     LISTOP   2,,(REPL)                                               P2TBL
 RJ$      LISTOP   4,,(RJ     333333B),,,(18,6) 
 RMUL     LISTOP   1,,(RX1    X2*X3),13,19,22                              P2TBL
 RNRM     LISTOP   1,,(ZX1    B2,X3),13,19,22                              P2TBL
 RSUB     LISTOP   1,,(RX1    X2-X3),13,19,22                              P2TBL
 SAAMB    LISTOP   1,,(SA0    A2-B3),,19,22                                P2TBL
 SAAPB    LISTOP   1,,(SA0    A2+B3),,19,22                                P2TBL
 SAAPK    LISTOP   3,,(SA0    A2+333333B),,19,(21,6)                       P2TBL
 SABMB    LISTOP   1,,(SA0    B2-B3),,19,22                                P2TBL
 SABPB    LISTOP   1,,(SA0    B2+B3),,19,22                                P2TBL
 SABPK    LISTOP   3,,(SA0    B2+333333B),,19,(21,6)                       P2TBL
 SAXPB    LISTOP   1,,(SA0    X2+B3),,19,22                                P2TBL
 SAXPK    LISTOP   3,,(SA0    X2+333333B),,19,(21,6)                       P2TBL
 SBAMB    LISTOP   1,,(SB1    A2-B3),13,19,22                              P2TBL
 SBAPB    LISTOP   1,,(SB1    A2+B3),13,19,22                              P2TBL
 SBAPK    LISTOP   3,,(SB1    A2+333333B),13,19,(21,6)                     P2TBL
 SBBMB    LISTOP   1,,(SB1    B2-B3),13,19,22                              P2TBL
 SBBPB    LISTOP   1,,(SB1    B2+B3),13,19,22                              P2TBL
 SBBPK    LISTOP   3,,(SB1    B2+333333B),13,19,(21,6)                     P2TBL
 SBXPB    LISTOP   1,,(SB1    X2+B3),13,19,22                              P2TBL
 SBXPK    LISTOP   3,,(SB1    X2+333333B),13,19,(21,6)                     P2TBL
 SHL      LISTOP   2,,(LX1    33B),13,,(18,2)                              P2TBL
 SHLB     LISTOP   1,,(LX1    B2,X3),13,19,22                              P2TBL
 SHR      LISTOP   2,,(AX1    33B),13,,(18,2)                              P2TBL
 SHRB     LISTOP   1,,(AX1    B2,X3),13,19,22                              P2TBL
 SLRAMB   LISTOP   1,,(SA1    A2-B3),13,19,22                              P2TBL
 SLRAPB   LISTOP   1,,(SA1    A2+B3),13,19,22                              P2TBL
 SLRAPK   LISTOP   3,,(SA1    A2+333333B),13,19,(21,6)                     P2TBL
 SLRBMB   LISTOP   1,,(SA1    B2-B3),13,19,22                              P2TBL
 SLRBPB   LISTOP   1,,(SA1    B2+B3),13,19,22                              P2TBL
 SLRBPK   LISTOP   3,,(SA1    B2+333333B),13,19,(21,6)                     P2TBL
 SLRXPB   LISTOP   1,,(SA1    X2+B3),13,19,22                              P2TBL
 SLRXPK   LISTOP   3,,(SA1    X2+333333B),13,19,(21,6)                     P2TBL
 SSRAMB   LISTOP   1,,(SA1    A2-B3),13,19,22                              P2TBL
 SSRAPB   LISTOP   1,,(SA1    A2+B3),13,19,22                              P2TBL
 SSRAPK   LISTOP   3,,(SA1    A2+333333B),13,19,(21,6)                     P2TBL
 SSRBMB   LISTOP   1,,(SA1    B2-B3),13,19,22                              P2TBL
 SSRBPB   LISTOP   1,,(SA1    B2+B3),13,19,22                              P2TBL
 SSRBPK   LISTOP   3,,(SA1    B2+333333B),13,19,(21,6)                     P2TBL
 SSRXPB   LISTOP   1,,(SA1    X2+B3),13,19,22                              P2TBL
 SSRXPK   LISTOP   3,,(SA1    X2+333333B),13,19,(21,6)                     P2TBL
 STRK     LISTOP   1,,(BX1    -X3+X2),13,23,20                             P2TBL
 SUM1     LISTOP   1,,(CX1    X3),13,,19                                   P2TBL
 SXAMB    LISTOP   1,,(SX1    A2-B3),13,19,22                              P2TBL
 SXAPB    LISTOP   1,,(SX1    A2+B3),13,19,22                              P2TBL
 SXAPK    LISTOP   3,,(SX1    A2+333333B),13,19,(21,6)                     P2TBL
 SXBMB    LISTOP   1,,(SX1    B2-B3),13,19,22                              P2TBL
 SXBPB    LISTOP   1,,(SX1    B2+B3),13,19,22                              P2TBL
 SXBPK    LISTOP   3,,(SX1    B2+333333B),13,19,(21,6)                     P2TBL
 SXXPB    LISTOP   1,,(SX1    X2+B3),13,19,22                              P2TBL
 SXXPK    LISTOP   3,,(SX1    X2+333333B),13,19,(21,6)                     P2TBL
 UNP      LISTOP   1,,(UX1    B2,X3),13,19,22                              P2TBL
 USE$     LISTOP   4,,(USE)                                                P2TBL
 VFD$     LISTOP   2,,(VFD)                                                P2TBL
 XMIT     LISTOP   1,,(BX1    X2),13,19                                    P2TBL
 ZR$      LISTOP   3,,(ZR     X1,333333B),19,,(21,6)
          SPACE  4                                                       P2TBL1 
          END                                                            P2TBL1 
