*        %GOTO FQEBSL;       /* BILINGUAL MAPPING           /*      /*  07000001
         MACRO                                                          14000001
         IHAFQE   &TYPE                                                 21000001
*                                                                       21010001
*        RELEASE 1 AOS, 11/3/71, LEVEL=1                                21020001
*                                                                       21030001
         AIF   ('&TYPE' EQ 'INTERNAL').EQU                              21050001
FQESECT  DSECT      FREE QUEUE ELEMENT                                  28000001
FQTYPE   DS    0B   FLAG BYTE                                           28050001
FQERGNFL EQU   X'80' FQE REGION FLAG                                    28100001
FQECPB   EQU   X'40' FREE AREA CROSSES PAGE BOUNDARY - UNSUITABLE FOR   28150001
*                   L/SQA ALLOCATION                                    28200001
FQEPTR   DS    A    PTR TO NEXT LOWER FREE AREA                         35000001
FQELNTH  DS    F    NUMBER BYTES IN FREE AREA                           42000001
FQAREA   DS    A    HIGH ADDRESS OF FREE SPACE                          42050001
FQERSVD  DS    F    RESERVED                                            42060001
FQESLNTH EQU   8    L/SQA FQE LENGTH                                    42110001
FQERLNTH EQU   16   REGION FQE LENGTH                                   42160001
         MEXIT                                                          42210001
.EQU     ANOP                                                           42220001
FQTYPE   EQU      0   FLAG BYTE                                         42260001
FQERGNFL EQU   X'80' FQE REGION FLAG                                    42310001
FQECPB   EQU   X'40' FREE AREA CROSSES PAGE BOUNDARY - UNSUITABLE FOR   42320001
*                    L/SQA ALLOCATION                                   42330001
FQEPTR   EQU      0    PTR TO NEXT LOWER FREE AREA                      42360001
FQELNTH  EQU      4    NUMBER BYTES IN FREE AREA                        42410001
FQAREA   EQU      8    HIGH ADDRESS OF FREE SPACE                       42460001
FQERSVD  EQU      12    RESERVED                                        42510001
FQESLNTH EQU   8    L/SQA FQE LENGTH                                    42560001
FQERLNTH EQU   16   REGION FQE LENGTH                                   42610001
         MEND  , */                                                     49000001
*%FQEBSL:   ;                                                           56000001
*                                                                       56010001
* /*     RELEASE 1 AOS, 11/3/71, LEVEL=1                             */ 56020001
*                                                                       56030001
* /* THIS MACRO ASSUMES A REGION FQE. IF AN L/SQA FQE IS DESIRED,    */ 56050001
* /* SET MACRO VARIABLE FQETYPE TO 'FQELSQA' BEFORE THE INCLUDE FOR  */ 56100001
* /* THIS MACRO                                                      */ 56150001
* DECLARE                                                               63000001
*   1 FQESECT  BASED(FQESEPTR),      /* QUEUE ELEMENT                */ 70000001
*    2 FQEPTR      PTR(31),          /* PTR TO NEXT LOWER FREE AREA  */ 77000001
*       3 FQTYPE   BIT(8),           /* FLAG BYTE                    */ 77010001
*         4 FQERGNFL BIT(1),         /* FQE REGION FLAG              */ 77020001
*         4 FQECPB BIT(1),           /* FREE AREA CROSSES PAGE BOUN-    77022001
*                                       DARY - UNSUITABLE FOR L/SQA     77024001
*                                       ALLOCATION                   */ 77026001
*       3 FQEPTRA  PTR(24),          /* PTR TO NEXT LOWER FREE AREA  */ 77030001
*%IF FQETYPE='' %THEN                /* CHECK FOR REGION FQE         */ 77040001
*    %GOTO FQERGN1;                  /* BRANCH IF SO                 */ 77042001
*    2 FQELNTH     FIXED(31);        /* NUMBER BYTES IN FREE AREA    */ 77050001
*%GOTO FQELS1;                       /* END OF L/SQA FQE             */ 77060001
*%FQERGN1:   ;                       /* REGION FQE                   */ 77070001
*    2 FQELNTH     FIXED(31),        /* NUMBER BYTES IN FREE AREA    */ 77080001
*    2 FQAREA      PTR(31),          /* HIGH ADDRESS OF FREE SPACE   */ 77100001
*    2 FQERSVD     FIXED(31);        /* RESERVED                     */ 84200001
*%FQELS1:   ;                                                           84250001