* %GOTO PQEBSL; /* BILINGUAL MAPPING /* /* 04002021 MACRO 04010021 IHAPQE &TYPE 06000021 * 06010021 * RELEASE 1 AOS, 11/3/71, LEVEL=1 06020021 * 06030021 AIF ('&TYPE' EQ 'INTERNAL').EQU 06050021 PQESECT DSECT PARTITION QUEUE ELEMENT 08000021 PQEFFBQE DS A PTR TO FIRST FBQE OR IF NONE TO PQE 10000021 PQEBFBQE DS A PTR TO LAST FBQE OR IF NONE, TO PQE 12000021 PQEFPQE DS A ADDR NEXT PQE OR ZERO 14000021 PQEBPQE DS A ADDR PREVIOUS PQE OR ZERO 16000021 PQETCB DS A ADDR TCB FOR JOB STEP TO WHICH SPACE BELONGS 18000021 PQESIZE DS F SIZE OF REGION DESCRIBED BY THIS PQE 20000021 PQEREGN DS A ADDR FIRST BYTE OF REGION DESCRIBED BY THIS PQE 22000021 PQERFLGS DS CL1 FLAG BYTE 24000021 PQEHRID DS CL1 HIERARCHY IDENTIFIER 26000021 VMMFLGS DS BL1 SEVEN HIGH ORDER BITS ZERO 26050021 VVVRFLG EQU X'01' REAL OR VIRTUAL REGION FLAG 26100021 PQERSVD DS CL1 RESERVED 26150021 MEXIT 26200021 .EQU ANOP 26250021 PQEFFBQE EQU 0 PTR TO FIRST FBQE OR IF NONE TO PQE 26300021 PQEBFBQE EQU 4 PTR TO LAST FBQE OR IF NONE, TO PQE 26350021 PQEFPQE EQU 8 ADDR NEXT PQE OR ZERO 26400021 PQEBPQE EQU 12 ADDR PREVIOUS PQE OR ZERO 26450021 PQETCB EQU 16 ADDR TCB FOR JOB STEP TO WHICH SPACE BELONGS 26500021 PQESIZE EQU 20 SIZE OF REGION DESCRIBED BY THIS PQE 26550021 PQEREGN EQU 24 ADDR FIRST BYTE OF REGION DESCRIBED BY THIS PQE 26600021 PQERFLGS EQU 28 FLAG BYTE 26650021 PQEHRID EQU 29 HIERARCHY IDENTIFIER 26700021 VMMFLGS EQU 30 SEVEN HIGH ORDER BITS ZERO 26750021 VVVRFLG EQU X'01' REAL OR VIRTUAL REGION FLAG 26800021 PQERSVD EQU 31 RESERVED 26850021 MEND , */ 30000021 *%PQEBSL: ; 32000021 * 32050021 */* RELEASE 1 AOS, 11/3/71, LEVEL=1 */ 32100021 * 32150021 * DECLARE 34000021 * 1 PQESECT BASED(PQESEPTR), /* PARTITION QUEUE ELEMENT */ 36000021 * 2 PQEFFBQE PTR(31), /* PTR TO FIRST FBQE OR IF NONE 38000021 * TO PQE */ 40000021 * 2 PQEBFBQE PTR(31), /* PTR TO LAST FBQE OR IF NONE, 42000021 * TO PQE */ 44000021 * 2 PQEFPQE PTR(31), /* ADDR NEXT PQE OR ZERO */ 46000021 * 2 PQEBPQE PTR(31), /* ADDR PREVIOUS PQE OR ZERO */ 48000021 * 2 PQETCB PTR(31), /* ADDR TCB FOR JOB STEP TO 50000021 * WHICH SPACE BELONGS */ 52000021 * 2 PQESIZE FIXED(31), /* SIZE OF REGION DESCRIBED BY 54000021 * THIS PQE */ 56000021 * 2 PQEREGN PTR(31), /* ADDR FIRST BYTE OF REGION 58000021 * DESCRIBED BY THIS PQE */ 60000021 * 2 PQERFLGS CHAR(1), /* FLAG BYTE */ 62000021 * 2 PQEHRID CHAR(1), /* HIERARCHY IDENTIFIER */ 64000021 * 2 VMMFLGS CHAR(1), /* SEVEN HIGH ORDER BITS ZERO */ 64050021 * 3 * BIT(7), /* ZERO BITS */ 64100021 * 3 VVVRFLG BIT(1), /* REAL OR VIRTUAL FLAG */ 64150021 * 2 PQERSVD CHAR(1); /* RESERVED */ 64200021