COMXHLR 
COMMON
  
#     COMXHLR - HIGH LEVEL REQUEST QUEUE.                             # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMXHLR #
  
# 
***   COMXHLR - HIGH LEVEL REQUEST QUEUE. 
* 
*     COMXHLR DEFINES THE STRUCTURE OF A HIGH LEVEL REQUEST 
*     QUEUE (HLRQ) ENTRY.  THE *HLRQ* IS USED TO CONTROL THE
*     PROCESSING OF STAGE AND DESTAGE REQUESTS. 
# 
  
  
      DEF HLRQLEN    #37#;           # *HLRQ* ENTRY LENGTH #
  
  
      BASED 
      ARRAY HLRQ [0:0] S(HLRQLEN);   # *HLRQ* ENTRY # 
        BEGIN 
        ITEM HLR$W0     I(00,00,60);  # WORD 0 #
        ITEM HLR$RESP   U(00,00,12);  # INDICATES ANY ABNORMALITIES 
                                        IN LLRQ PROCESSOR # 
        ITEM HLR$M8FET  U(00,12,18);  # M860 FET ADDRESS #
        ITEM HLR$FCTX   U(00,30,12);  # *FCT* INDEX OF CURRENT
                                        CARTRIDGE # 
        ITEM HLR$LNK1   U(00,42,18);  # LINK 1 #
  
        ITEM HLR$W1     I(01,00,60);  # WORD 1 #
        ITEM HLR$HPN    U(01,00,06);  # PROCESS NAME CODE # 
        ITEM HLR$HPS    U(01,06,06);  # PROCESS STATE CODE #
        ITEM HLR$1STVOL U(01,12,12);  # FIRST VOLUME ON CARTRIDGE # 
        ITEM HLR$DRDRA  U(01,24,18);  # UDT - DRD - RESERVE ADDRESS # 
        ITEM HLR$LNK2   U(01,42,18);  # LINK 2 #
  
        ITEM HLR$W2     I(02,00,60);  # WORD 2 #
        ITEM HLR$FLGS   U(02,00,12);  # FLAGS # 
        ITEM HLR$EOI    B(02,00,01);  # END OF INFORMATION #
        ITEM HLR$FFILE  B(02,01,01);  # FIRST FILE OF SEQUENCE #
        ITEM HLR$FVOL   B(02,02,01);  # FIRST VOLUME OF FILE #
        ITEM HLR$LOAD   B(02,03,01);  # LOAD CARTRIDGE #
        ITEM HLR$UNLD   B(02,04,01);  # UNLOAD CARTRIDGE #
        ITEM HLR$SH     B(02,05,01);  # SHORT FILE #
        ITEM HLR$JOF    B(02,06,01);  # JUST OVERFLOWED # 
        ITEM HLR$FFF    B(02,07,01);  # FREE FILE FLAG #
        ITEM HLR$DOSTG  B(02,08,01);  # DO STAGE AFTER DESTAGE #
        ITEM HLR$RETRY  B(02,09,01);  # RETRY READ ON OTHER *DRD* # 
        ITEM FREE2      U(02,10,14);  # UNUSED #
        ITEM HLR$LRQADR U(02,24,18);  # LLRQ ADDRESS #
        ITEM HLR$FCTQ   U(02,42,18);  # *FCTQ* ENTRY ADDRESS #
  
        ITEM HLR$W3     I(03,00,60);  # WORD 3 #
        ITEM HLR$CSNTCU C(03,00,10);  # TOTAL CURRENT CSN # 
        ITEM HLR$CCOD   C(03,00,02);  # CARTRIDGE MAKER IDENT # 
        ITEM HLR$CSND   C(03,12,08);  # CURRENT CARTRIDGE VSN # 
  
        ITEM HLR$W4     I(04,00,60);  # WORD 4 #
        ITEM HLR$CSNTPS C(04,00,10);  # TOTAL PREVIOUS CSN #
        ITEM HLR$CCODP  C(04,00,02);  # PREVIOUS MAKER IDENT #
        ITEM HLR$CSNDP  C(04,12,08);  # PREVIOUS CARTRIDGE VSN #
  
        ITEM HLR$W5     I(05,00,60);  # WORD 5 #
        ITEM HLR$FETMT  U(05,02,58);  # MATCHING VOLUME LABEL # 
        ITEM HLR$PEF    U(05,00,04);  # PERM ERROR FLAG VALUE # 
        ITEM HLR$VOLLNP U(05,04,08);  # LENGTH OF PREV VOL #
        ITEM HLR$VOLAUP U(05,12,12);  # 1ST AU OF PREV VOL #
        ITEM HLR$VOLAU  U(05,24,12);  # 1ST AU OF CURR VOL #
        ITEM HLR$RSIF   U(05,36,24);  # RELATIVE STRIPE NO. # 
  
        ITEM HLR$W6     U(06,00,60);  # WORD 6 #
        ITEM HLR$FLNM   C(06,00,07);  # FILE NAME # 
        ITEM HLR$SM     U(06,42,07);  # SM UDT ORDINAL #
        ITEM HLR$Y      U(06,49,05);  # VERTICAL COORDINATE # 
        ITEM HLR$Z      U(06,54,04);  # HORIZONTAL COORDINATE # 
        ITEM HLR$ADRD   U(06,58,01);  # ASSIGNED DRD #
  
        ITEM HLR$W7     I(07,00,60);  # WORD 7 #
        ITEM HLR$VOLLN  U(07,00,08);  # LENGTH OF CURR VOL #
        ITEM HLR$ERRC   U(07,08,04);  # ERROR CODE #
        ITEM HLR$FCTXP  U(07,12,12);  # INDEX OF PREV *FCT* # 
        ITEM HLR$FCTXN  U(07,12,12);  # INDEX OF NEXT *FCT* # 
        ITEM HLR$NEWASA U(07,24,36);  # NEW ASA VALUE # 
  
        ITEM HLR$W8     I(08,00,60);  # WORD 8 #
        ITEM HLR$RTIME  U(08,00,24);  # WAKE UP TIME #
        ITEM HLR$AUUD   U(08,24,12);  # LAST AU USED IN VOLUME #
        ITEM HLR$PRU    U(08,36,24);  # PRU NUMBER #
  
        ITEM HLR$W9     I(09,00,60);  # WORD 9 #
        ITEM HLR$HLRQW  U(09,00,18);  # *HLRQ* WAITTING *DRD* UNIT #
        ITEM HLR$AUSF   U(09,18,12);  # SPACE LEFT FOR SHORT FILES #
        ITEM HLR$AULF   U(09,30,12);  # SPACE LEFT FOR LONG FILES # 
        ITEM HLR$SCROS1 U(09,42,18); # SCRATCH 1 FILE OFFSET #
  
        ITEM HLR$KREQ   C(10,00,20);  # K-DISPLAY REQUEST WORDS (2) # 
  
        ITEM HLR$W12    I(12,00,60);  # WORD 12 # 
        ITEM HLR$USE1   U(12,00,60);  # USAGE INFO - WORD 1 # 
        ITEM HLR$STRD   U(12,00,30);  # STRIPES READ #
        ITEM HLR$STWR   U(12,30,30);  # STRIPES WRITTEN # 
  
        ITEM HLR$W13    I(13,00,60);  # WORD 13 # 
        ITEM HLR$USE2   U(13,00,60);  # USAGE INFO - WORD 2 # 
        ITEM HLR$SRDE   U(13,00,30);  # SOFT READ ERRORS #
        ITEM HLR$SWRE   U(13,30,30);  # SOFT WRITE ERRORS # 
  
        ITEM HLR$W14    I(14,00,60);  # WORD 14 # 
        ITEM HLR$USE3   U(14,00,60);  # USAGE INFO - WORD 3 # 
        ITEM HLR$HRDE   U(14,00,15);  # HARD WRITE ERRORS # 
        ITEM HLR$STDM   U(14,15,15);  # STRIPES DEMARKED ON MOUNT # 
        ITEM HLR$CRLD   U(14,30,15);  # CARTRIDGE LOADS ON MOUNT #
        ITEM HLR$LDER   U(14,45,15);  # LOAD ERRORS ON MOUNT #
  
        ITEM HLR$W15    I(15,00,60);  # WORD 15 # 
        ITEM HLR$TDAM   C(15,00,60);  # SIX WORD COPY OF TDAM # 
        ITEM HLR$ASAFCT U(16,3,12);   # FCT INDEX # 
        ITEM HLR$TDAMUI U(17,42,18);  # USER INDEX #
        ITEM HLR$SBF    U(17,57,03);  # SUBFAMILY NUMBER #
        ITEM HLR$FAM    C(19,00,07);  # FAMILY NAME # 
        ITEM HLR$TDAMFL U(20,01,23);  # FILE LENGTH # 
        ITEM HLR$TDAMCD U(20,24,36);  # FILE CREATION / DATE #
  
        ITEM HLR$PFC    C(21,0,160);  # 16 WORD COPY OF *PFC* # 
        ITEM HLR$PFC$FN C(21,00,07);  # FILE NAME # 
        ITEM HLR$PFC$UI U(21,42,18);  # USER INDEX #
        ITEM HLR$PFC$LN U(22,01,23);  # FILE LENGTH # 
        ITEM HLR$PFC$DT U(23,24,36);  # CREATION DATE AND TIME #
        END 
  
      END  # COMXHLR #
  
                                               CONTROL LIST;
