*COMDECK VREGCOM                                                         VREGCOM
                                                                         VREGCOM
 #***  WARNING - CHANGES TO FORMAT OF VREGTAB (LOCATION OF VREGF AND   #
 #***  ENTRY SIZE) MUST BE REFLECTED IN COMPASS ROUTINE LOOKUP IN DECK #
 #***  TABLES.                                                         #
          DEF  VREGSIZE  #2000#;
          COMMON  VREGCOM;                                               VREGCOM
          BEGIN 
          ARRAY  VREGTAB[0:VREGSIZE] (2); 
              ITEM                                                       VREGCOM
                  AREG    U(0, 6, 3),  #ACTUAL REGISTER                # VREGCOM
                  ASIGNDA B(0,31,1),  #ACTUAL A REGISTER ASSIGNED      # VREGCOM
                  ASSIGND B(0,33, 1),  #ACTUAL REGISTER ASSIGNED       # VREGCOM
                  DEFINED B(0,32, 1),  #REGISTER DEFINED BY INSTRUCTION#
                  HOLDA   B(0,34, 1),  #DON"T RELEASE ACTUAL REGISTER  # VREGCOM
                  HOLDB   B(0,36, 1),  #DON"T RELEASE ACTUAL REGISTER  # VREGCOM
                  HOLDX   B(0,35, 1),  #DON"T RELEASE ACTUAL REGISTER  # VREGCOM
                  LASTUSE U(1, 6,18),  #LAST REFERENCING INSTRUCTION   #
                  LOADED  B(1, 0, 1),  #REGISTER IS LOADED             #
                  LOCKA   B(0, 3, 1),  #SPECIFIC A REG REQUIRED        # VREGCOM
                  LOCKB   B(0, 5, 1),  #SPECIFIC B REG REQUIRED        # VREGCOM
                  LOCKED  B(0, 3, 3), #REGISTER LOCKED                 #
                  LOCKREG U(0, 3, 6),  #LOCKED REGISTER                # VREGCOM
                  LOCKX   B(0, 4, 1),  #SPECIFIC X REG REQUIRED        # VREGCOM
                  REDEF   B(0, 1, 1),  #REGISTER REDEFINED             # VREGCOM
                  REDEFA  B(0, 2, 1),  #A REGISTER REDEFINED           # VREGCOM
                  RHOLD   B(0, 0, 1),  #DON"T RELEASE ACTUAL REGISTER  #
                  RPREF   B(1, 3, 1),  #REGISTER PREFERENCE            #
                  STORED  B(1, 4, 1), #REGISTER IS STORED              #
                  TEMPAF  B(1, 1, 1),  #REG MUST BE RESTORED FROM TEMP #
                  TEMPF   B(1, 2, 1),  #A REG MUST BE RESTORED         #
                  TEMPFLG B(1, 1, 2),  #OVERLAY TEMPF AND TEMPAF       #
                  TEMPNO  U(1,42,18),  #REGISTER HELD IN TEMPNO        # VREGCOM
                  TEMPANO U(1,24,18),  #A REGISTER HELD IN TEMPANO     # VREGCOM
                  UNOPT   B(0, 0, 6),  #REGISTER CANNOT BE SUBSTITUTED #
                                       #OVERLAYS LOCKED, REDEF, REDEFA,#
                                       #RHOLD                          #
                  USES    U(0,37, 9),  #USE COUNT                      #
                  USESA   U(0,46, 9),  # A REGISTER USE COUNT          #
                  VREGF   U(1, 0,60), #VIRTUAL REGISTER                #
                  VREG1    (0, 0,60),                                    VREGCOM
                  VREG2    (1, 0,60);                                    VREGCOM
          ITEM  NREGS;
          END 
                                                                         VREGCOM
