*        %GOTO DQEBSL;       /* BILINGUAL MAPPING           /*      /*  04000021
         MACRO                                                          08000021
         IHADQE   &TYPE                                                 12000021
*                                                                       12010021
*        RELEASE 1 AOS, 11/3/71, LEVEL=1                                12020021
*                                                                       12030021
         AIF   ('&TYPE' EQ 'INTERNAL').EQU                              12050021
DQESECT  DSECT      DESCRIPTOR QUEUE ELEMENT                            16000021
DQFQEPTR DS    A    PTR TO FIRST FREE AREA                              20000021
DQEPTR   DS    A    PTR TO NEXT DQE OR ZERO                             24000021
DQEHRID  DS    0C   HIERARCHY IDENTIFIER                                28000021
DQEBLKAD DS    A    ADDR FIRST 2K BLOCK DESCRIBED BY THIS DQE           32000021
DQELNTH  DS    F    LENGTH OF AREA DESCRIBED BY THIS DQE                36000021
         MEXIT                                                          36050021
.EQU     ANOP                                                           36100021
DQFQEPTR EQU      0    PTR TO FIRST FREE AREA                           36200021
DQEPTR   EQU      4    PTR TO NEXT DQE OR ZERO                          36250021
DQEHRID  EQU      4   HIERARCHY IDENTIFIER                              36300021
DQEBLKAD EQU      8    ADDR FIRST 2K BLOCK DESCRIBED BY THIS DQE        36350021
DQELNTH  EQU      12    LENGTH OF AREA DESCRIBED BY THIS DQE            36400021
         MEND  , */                                                     40000021
*%DQEBSL:   ;                                                           44000021
*                                                                       44050021
*/*      RELEASE 1 AOS, 11/3/71, LEVEL=1                             */ 44100021
*                                                                       44150021
* DECLARE                                                               48000021
*   1 DQESECT   BASED(DQESEPTR),     /*DESCRIPTOR QUEUE ELEMENT      */ 52000021
*    2 DQFQEPTR    PTR(31),          /* PTR TO FIRST FREE AREA       */ 56000021
*    2 DQEPTR      PTR(31),          /* PTR TO NEXT DQE OR ZERO      */ 60000021
*    2 DQEBLKAD    PTR(31),          /* ADDR FIRST 2K BLOCK             64000021
*                                       DESCRIBED BY THIS DQE        */ 68000021
*     3 DQEHRID     CHAR(1),         /* HIERARCHY IDENTIFIER         */ 72000021
*    2 DQELNTH     FIXED(31);        /* LENGTH OF AREA DESCRIBED BY     76000021
*                                       THIS DQE                     */ 80000021