* %GOTO SPQBSL; /* BILINGUAL MAPPING /* /* 06000021 MACRO 12000021 IHASPQE &TYPE 18000021 * 18010021 * RELEASE 2 AOS, 3/7/73, LEVEL=1 18020002 * 18030021 AIF ('&TYPE' EQ 'INTERNAL').EQU 18050021 SPQESECT DSECT SUBPOOL QUEUE ELEMENT 24000021 SPQEAD DS F ADDRESS OF NEXT OLDEST SPQE 24010002 SPQEPTR EQU SPQEAD 24020002 SPDQEPTR DS F POINTER TO FIRST DQE FOR SUBPOOL 24030002 SPDQEAD EQU SPDQEPTR 24040002 SPQEFLGS DS BL1 SPQE FLAGS 24090002 SPSHARE EQU X'80' 0=SUBPOOL OWNED 24100002 * 1=SUBPOOL SHARED, NOT OWNED 24110002 LASTSPQE EQU X'40' LAST SPQE ON CHAIN 24150002 SPQEOWN EQU X'20' 0=SUBPOOL IS OWNED,NOT SHARED 24160002 * 1=SUBPOOL IS OWNED AND SHARED 24170002 SPQERES1 DS C RESERVED 24210002 SPQEID DS C IDENTIFYING NUMBER OF SUBPOOL 36000021 SPQEKEY DS C KEY OF THE OWNING TASK 36050002 SPQERES2 DS F RESERVED 36060002 MEXIT 36100021 .EQU ANOP 36150021 SPQEAD EQU 0 ADDRESS OF NEXT OLDEST SPQE 36200002 SPQEPTR EQU 0 ADDRESS OF NEXT OLDEST SPQE 36210002 SPDQEPTR EQU 4 POINTER TO FIRST DQE FOR SUBPOOL 36220002 SPDQEAD EQU 4 POINTER TO FIRST DQE FOR SUBPOOL 36230002 SPQEFLGS EQU 8 SPQE FLAGS 36250002 SPSHARE EQU X'80' 0=SUBPOOL IS OWNED 36300002 * 1=SUBPOOL IS SHARED, NOT OWNED 36310002 LASTSPQE EQU X'40' LAST SPQE ON CHAIN 36350021 SPQEOWN EQU X'20' 0=SUBPOOL IS OWNED, NOT SHARED 36360002 * 1=SUBPOOL IS OWNED AND SHARED 36410002 SPQEID EQU 10 IDENTIFYING NUMBER OF SUBPOOL 36500002 SPQEKEY EQU 11 KEY OF THE OWNING TASK 36550002 MEND , */ 48000021 *%SPQBSL: ; 54000021 * 54050021 */* RELEASE 2 AOS, 3/7/73, LEVEL=1 */ 54100002 * 54150021 * DECLARE 60000021 * 1 SPQESECT BASED(SPQESPTR), /* SUBPOOL QUEUE ELEMENT */ 66000021 * 2 SPQEAD PTR(31), /* POINTER TO NEXT SPQE */ 66010002 * 3 SPQEPTR PTR(31), /* ADDRESS OF NEXT OLDEST SPQE */ 66020002 * 2 SPDQEPTR PTR(31), /* POINTER TO FIRST DQE FOR SP */ 66030002 * 3 SPDQEAD PTR(31), /* POINTER TO FIRST DQE FOR SP */ 66040002 * 2 SPQEFLGS BIT(8), /* SPQE FLAGS */ 66050002 * 3 SPSHARE BIT(1), /* 0=SUBPOOL IS OWNED */ 66100002 * /*1=SUBPOOL IS SHARED, NOT OWNED*/ 66110002 * 3 LASTSPQE BIT(1), /* LAST SPQE ON CHAIN */ 66150002 * 3 SPQEOWN BIT(1), /*0=SUBPOOL IS OWNED, NOT SHARED*/ 66160002 * /*1=SUBPOOL IS OWNED AND SHARED */ 66210002 * 2 SPQERES1 CHAR(1), /* RESERVED */ 66250002 * 2 SPQEID CHAR(1), /* SUBPOOL NUMBER */ 66300002 * 2 SPQEKEY CHAR(1), /*KEY OF THE OWNING TASK */ 66310002 * 2 SPQERES2 PTR(31); /* RESERVED */ 66350002