*COMDECK  ASMINST                                                        ASMINST
*CALL OPNAMES                                                            ASMINST
          STATUS  CLSTAT CLASS1, CLASS2, CLASS3, CLASS4, CLASS5;         ASMINST
*CALL REGTYPE                                                            ASMINST
*CALL ASMSPPRC
          COMMON  ASMINST;                                               ASMINST
          BEGIN                                                          ASMINST
          ARRAY  INSTTAB[OPNAMES"NULL":OPNAMES"ENDOP"];                  ASMINST
          ITEM                                                           ASMINST
                    CLASS      S:CLSTAT ( 0, 0, 3),                      ASMINST
                    DATAINST   B( 0,21, 1),                              ASMINST
                    DEFI       B( 0,13, 1),                              ASMINST
                    DEFJ       B( 0,14, 1),                              ASMINST
                    INSTSIZ    U( 0, 6, 6),                              ASMINST
                    LOADI      B( 0,23, 1),                              ASMINST
                    NOCOPY     B( 0,27, 1), 
                    NXTUP      B( 0,12, 1),                              ASMINST
                    REFI       B( 0,18, 1), 
                    REGINST    U( 0,13, 6), #OVERLAY REGISTER FIELDS   #
                    REGUSEDEF  U( 0,13, 5), #OVERLAY USE AND DEF       #
                    SPPROC      S:SPTYPE(0,28,4), 
                    STORE      B( 0, 3, 1),                              ASMINST
                    UP         B( 0,20, 1),                              ASMINST
                    USEI       B( 0,15, 1),                              ASMINST
                    USEJ       B( 0,16, 1),                              ASMINST
                    USEK       B( 0,17, 1),                              ASMINST
                    USEOK      B( 0,19, 1);                              ASMINST
                                                                         ASMINST
          ARRAY  IJK[OPNAMES"NULL":OPNAMES"ENDOP"];                      ASMINST
              ITEM                                                       ASMINST
                    TYPEI   S:REGTYPE(0, 6,18),                          ASMINST
                    TYPEJ   S:REGTYPE(0,24,18),                          ASMINST
                    TYPEK   S:REGTYPE(0,42,18);                          ASMINST
          END 
          DEF  OFFSETA  #16#; 
          DEF  OFFSETB  #0#;
          DEF  OFFSETX  #8#;
          COMMON  ASMMISC;
          BEGIN 
          ARRAY  [0:4];      #INDEXED BY REGTYPE                       # ASMINST
              ITEM  REGOFF = [ , OFFSETB, OFFSETX,, OFFSETA]; 
          ARRAY  [CLSTAT"CLASS1":CLSTAT"CLASS5"];                        ASMINST
              ITEM  CLSIZE = [1,1,2,1,3];                                ASMINST
          END                                                            ASMINST
                                                                         ASMINST
