*COMDECK PAT1 
          CONTROL NOLIST;    #PAT1# 
     COMMON PATCOMM;
     BASED ARRAY PAT[0:0] S(1); 
     BEGIN ITEM 
        P$ZERO        I(0), 
         P$LENGTH   U(0,0,17),
         P$PTLOC   I(0,17,7), 
        P$NUMLEN      U(0,24,7),
        P$CKPROTECT   U(0,31,1),
       P$REPLCNT    U(0,17,15), 
        P$TYPE        U(0,32,5),
        P$NEBITS      U(0,37,8),
        P$COEFFSGN    U(0,37,1),
        P$EXPSIGN     U(0,38,1),
        P$DECPT       U(0,39,1),
        P$FLAGS       U(0,37,8),
        P$FLAG0       U(0,37,1),
        P$SGNPIC       U(0,37,1), 
        P$FLAG1       U(0,38,1),
        P$FLAG2       U(0,39,1),
        P$FLAG3       U(0,40,1),
        P$FLAG4       U(0,41,1),
        P$FLAG5       U(0,42,1),
        P$FLAG6       U(0,43,1),
        P$FLAG7       U(0,44,1),
        P$FXDSGNLFT   U(0,37,1),
        P$BWZ         U(0,38,1),
        P$FXDINSRT    U(0,39,2),
        P$FLTINSRT    U(0,41,3),
        P$ASTRSKFIL   U(0,44,1),
        P$PATTOFF     U(0,45,15), 
        P$EXPLEN      U(0,52,8);
        END 
          CONTROL LIST;      #PAT1# 
