*COMDECK QRTABDCLS
  
#**********************************************************************#
#                                                                      #
#     THE FOLLOWING BASED ARRAY DESCRIBES THE QRF TABLE.  THE TABLE IS #
#     ALLOCATED WHEN THE QRF IS INITIALIZED AND DEALLOCATED WHEN THE   #
#     QRF IS RETURNED.  IT INCLUDES A FET FOR I/O.                     #
#                                                                      #
#**********************************************************************#
  
      DEF DFQRFBUFL  #O"3004"#;  # LENGTH OF QRF BLOCK BUFFER          #
      DEF DFQFTLEN   #05#;   # LENGTH OF QRF TABLE                     #
  
      BASED ARRAY QFT;             # QRF TABLE                         #
        BEGIN 
        ITEM QFFLUSHF B(0,0,1);        #TRUE IF FLUSH TASK IN PROGRESS# 
        ITEM QFGBID U(0,1,23);         #GOOD BLOCK ID#
        ITEM QFBUFL   I(00,24,18);     # QRF DATA BUFFER LENGTH        #
        ITEM QFRCB (0,42,18);          #RCB OF OUTSTAND QRF TASK# 
        ITEM QFSIZE U(1,0,30);         #SIZE OF QRF#
        ITEM QFFREE   I(01,30,30);     # FREE WORDS IN QRF             #
        ITEM QFBEG    I(02,00,60);     # POINTER TO BEGINNING OF CHAIN #
        ITEM QFLAST   I(03,00,60);     # POINTER TO LAST CHAIN LINK    #
        ITEM QFEND    I(04,00,60);     # POINTER TO END OF THE CHAIN   #
        ITEM QFFET    I(05,00,60);     # QRF FET                       #
  
        ITEM QFFETEC  U(05,46,05);     # ERROR CODE                    #
        ITEM QFFETST  U(05,51,09);     # STATUS FIELD                  #
        ITEM QFFETIN  I(07,00,60);     # IN POINTER                    #
        ITEM QFFETOUT I(08,00,60);     # OUT POINTER                   #
  
                                       # RESERVE DFFETLEN WORDS FOR FET#
  
        ITEM QFBUFW1  I(14,00,60);     # FIRST WORD OF THE CHAIN BUFFER#
        END 
  
      BASED ARRAY FET;
*CALL FETDCLS 
  
