*COMDECK AREGS                                                           AREGS
          COMMON  AREGCOM;                                               AREGS
          BEGIN 
          ARRAY  MRST [0:23];  #MACHINE REGISTER STATUS                # AREGS
              ITEM                                                       AREGS
                  AREGW,                                                 AREGS
                  FIRSTLOCK U(0,42,18), #LINK TO LOCKLIST              #
                  HOLD      B(0, 1, 1), #MUST NOT BE MOVED             #
                  INPUT     B(0, 0, 1), #INPUT TO CURRENT INSTRUCTION  #
                  INUSE     B(0, 1,10), #OVERLAY HOLD, USECNT          #
                  LOCK      B(0,11, 1), #SPECIFIC REGISTER REQUIRED    #
                  OBJIN     B(0,12, 1), #OBJECT ROUTINE INPUT          #
                  OBJREGS   U(0,12, 2), #OVERLAY OBJIN, OBJSAVE        #
                  OBJSAVE   B(0,13, 1), #SAVED BY OBJECT ROUTINE       #
                  RESERVED  B(0,14, 1), #NEVER AVAILABLE               #
                  USECNT    U(0, 2, 9), #NUMBER OF REMAINING USES      #
                  VREGN     U(0,24,16); #VIRTUAL NUMBER ASSIGNED       #
          BASED ARRAY LOCKLIST[0:1];
              ITEM
                  LOCKLINK  U(0,42,18),  #LINK TO NEXT ENTRY           #
                  LOCKINST  U(0,24,18);  #LOCKING INSTRUCTION          #
          END 
