*COMDECK WORKTABS 
          CONTROL NOLIST;    #WORKTABS# 
 #        FOLLOWING ARE DEFINITIONS FOR THE WORK TABLES.
 *        THESE TABLES CAN BE USED BY ANY PHASE, BUT ONLY WITHIN
 *        THAT ONE PHASE. 
 *        SPACE FOR THEM WILL BE ALLOCATED WITHIN THE SPACE BETWEEN 
 *        THE LAST WORD OF THIS OVERLAY AND THE FIRST WORD OF THE 
 *        SPACE AFTER THE BIGGEST OVERLAY.
 *        ALL SPACE WILL BE RELEASED AT THE END OF THE PHASE. 
 #
          COMMON WORKCOMM;
              BEGIN 
              BASED ARRAY WORK1 [0:0] S(1); 
                  BEGIN 
                  ITEM WORK1WORD  U(0,0,60);
                  ITEM  WORK1LITPOOL C(0, 0,10);
                  ITEM WORK1SEGNO U(0,2,7);    # MUST = SEGPTRSEGNO#
                  ITEM WORK1GTEXT U(0,43,17);  # MUST = SEGPTRGTEXT#
 #      ITEMS USED BY D$FORMAT AND QSORT4  #
                  ITEM W1$SORT$KEY    I(0,00,45); 
                  ITEM W1$LINE$NO     I(0,00,17); 
                  ITEM W1$COLUMN$NO   U(0,17,08); 
                  ITEM W1$PHASE$NO    U(0,25,04); 
                  ITEM W1$LOCAL$NO    U(0,29,16); 
                  END 
              BASED ARRAY WORK2 [0:0] S(1); 
                  BEGIN 
                  ITEM WORK2WORD  U(0,0,60);
                  ITEM  WORK2LITPOOL C(0, 0,10);
 #     FIELDS FOR PROCTAB  #
                  ITEM WORK2RECOFF I(0, 0,18);   #RECORD OFFSET#
                  ITEM WORK2RECLAB I(0,18,18);   #LABEL NUMBER# 
              ITEM WORK2BLKNBR I(0,36,10);   # BLOCK NUMBER#
 #     ITEMS USED BY E$SUBS  #
                  ITEM WORK2$COL   I(0,00,08);   #SAVED COLUMN NUMBER#
                  ITEM WORK2$LINE  U(0,08,16);  #SAVED LINE NBR # 
                  ITEM WORK2$FNAT  U(0,42,18);  #SAVED FNAT POINTER#
 #     END OF E$SUBS DEFS  #
                  END 
              BASED ARRAY WORK3 [0:0] S(1); 
                  BEGIN 
                  ITEM WORK3WORD  U(0,0,60);
                  ITEM  WORK3$NRELS  I(0, 0,60);
                  ITEM  WORK3$DNAT   I(0, 0,18);
                  ITEM  WORK3$OFFSET I(0,42,18);
                  ITEM  WORK3$WORD   I(0, 0,60);
 #     FOLLOWING ITEMS USED IN ASM2 FOR BUILDING LINK TABLES #
                  ITEM  WORK3$LINK  U(0,30,30); 
                  ITEM  WORK3$TRL   U(0, 0,30); 
                  ITEM  WORK3$TBIT  U(0, 0, 1); 
                  ITEM  WORK3$P     U(0, 1, 2); 
                  ITEM  WORK3$R     U(0, 3, 9); 
                  ITEM  WORK3$A     U(0,12,18); 
                 ITEM W3$FIPSDIAG      U(00,00,10); 
                 ITEM W3$FIPSLINE      U(00,10,16); 
                 ITEM W3$FIPSCOL       U(00,26,07); 
                 ITEM W3$FIPSFNAT      U(00,33,15); 
                 ITEM W3$FIPSORG       U(00,48,05); 
                  END 
              BASED ARRAY WORK4 [0:0] S(1); 
                  BEGIN 
                  ITEM  WORK4$USED   I(0, 0,60);
                  ITEM  WORK4$INDEX  I(0, 0,60);
                  ITEM  WORK4$LEQU  (0, 6,18);
                  ITEM  WORK4$BLK   (0,24,18);
                  ITEM  WORK4$LOCN  (0,42,18);
                  END 
               BASED ARRAY WORK5 [0:0] S(4); #USED IN PP# 
                  BEGIN 
                  ITEM  WORK5$UNUSED U(0,0,60);  #CGEN - UNUSED DNAT# 
                  ITEM  WORK5$INDEX  I(0, 0,60);
                  END 
              END 
          CONTROL LIST;      #WORKTABS# 
