*COMDECK AAMBLOK
                             BASED ARRAY                                 GBKCOM 
 BLOK$AA    ADEF (0,0,1,P,BASED) ;#NON-DATA PORTION OF BLOCK #BEGIN ITEM GBKCOM 
 BLWRD0     IDEF (I,000,00,60) ;#                        #          ITEM GBKCOM 
 BLLIVES    IDEF (U,000,00,04) ;#NUM TIMES CAP AT END KO #          ITEM GBKCOM 
 BLWIP      IDEF (U,000,00,01) ;#WRITE IN PROGRESS FLG   #          ITEM GBKCOM 
 BLRIP      IDEF (U,000,01,01) ;#READ IN PROGRESS FLG    #          ITEM GBKCOM 
 BLMIPBLK   IDEF (U,000,02,01) ;#THIS IS A MIP BLOCK FLG #          ITEM GBKCOM 
 BLALTFLG   IDEF (U,000,03,01) ;#THIS BLK HAS BEEN ALTERE#          ITEM GBKCOM 
 BLUBSFLG   IDEF (U,000,04,01) ;#THIS BLK IN USER BUF SPC#          ITEM GBKCOM 
 BLCIP      IDEF (U,000,05,01) ;#CHNG IN PROGRESS FLG    #          ITEM GBKCOM 
 BLFSTTADR  IDEF (I,000,06,18) ;#FSTT ADDRESS            #          ITEM GBKCOM 
 BLBKOPTR   IDEF (I,000,24,18) ;#KICK OUT CHAIN BACK PTR #          ITEM GBKCOM 
 BLFKOPTR   IDEF (I,000,42,18) ;#KICK OUT CHAIN FORWARD  #          ITEM GBKCOM 
 BLWRD1     IDEF (I,001,00,60) ;#                        #          ITEM GBKCOM 
 BLOCKID    IDEF (U,001,00,24) ;#PRU NUM OF BLK          #          ITEM GBKCOM 
 BLKBPTR    IDEF (I,001,24,18) ;#BACK PTR FOR BLKS THIS F#          ITEM GBKCOM 
 BLKFPTR    IDEF (I,001,42,18) ;#FORWARD PTR BLKS THIS FI#          ITEM GBKCOM 
 BLWRD2     IDEF (I,002,00,60) ;#                        #          ITEM GBKCOM 
 BLNORU     IDEF (U,002,10,01) ;#RETURN TO CMM,DONT REUSE#          ITEM AFB1128
 BLNFTRD    IDEF (U,002,11,01) ;#SEBL HAS BEEN DONE      #          ITEM RPN0626
 BLWTN      IDEF (U,002,12,01) ;#BLOCK WRITE-BEHIND DONE #          ITEM GBKCOM 
 BLXTEND    IDEF (U,002,13,01) ;#BLOK AT LOGICAL EOI     #          ITEM GBKCOM 
 BLPRUFAKE  IDEF (U,002,14,01) ;#BLOCK MOVED, BAD WRT    #          ITEM GBKCOM 
 BLCODSTAT  IDEF (U,002,15,14) ;#CODE AND STATUS ON BLK #           ITEM GBKCOM 
 BLKLNG     IDEF (U,002,29,13) ;#LENGTH OF BLK ON DISK   #          ITEM GBKCOM 
 BLPTRADR   IDEF (I,002,42,18) ;#PTREE POINTING HERE-MAYB#          ITEM GBKCOM 
 BLKHDR     IDEF (U,003,00,60) ;#USED TO ACCESS WHOLE HEA#          ITEM GBKCOM 
 BLCHKSUM   IDEF (U,003,00,30) ;#CHECKSUM FOR BLOCK      #          ITEM GBKCOM 
 BLPARENT   IDEF (U,003,30,24) ;#PRU NUM OF PROB INDEX BL#          ITEM GBKCOM 
 BLPRFXLN   IDEF (U,003,54,06) ;#LNG OF BLK PREFIX-2 NORM#          ITEM GBKCOM 
 BLWRD4     IDEF (I,004,00,60) ;#                        #          ITEM GBKCOM 
 BLKUR      IDEF (U,004,00,01) ;#UNIFORM REC BLOCK       #          ITEM GBKCOM 
 BLANYDED   IDEF (U,004,01,01) ;#ANY DEAD REC FLG        #          ITEM GBKCOM 
 BLINDXFLG  IDEF (U,004,02,01) ;#INDEX BLOCK FLG         #          ITEM GBKCOM 
 BLRECNT    IDEF (U,004,09,13) ;#NUM REC IN BLK (DEAD TOO#          ITEM GBKCOM 
 BLECNT     IDEF (U,004,22,14) ;#EMPTY HALF-WRD CNT      #          ITEM GBKCOM 
 BLOCFWD    IDEF (U,004,36,24) ;#PRU NUM NXT BLK IN FILE #          ITEM GBKCOM 
 BLFRESLTS  IDEF (U,004,48,12) ;#NUM FREE SLOTS-AK BLK   #          END  GBKCOM 
  
  
