* 00050001 * %GOTO OREL1; /* 00060001 MACRO 00100001 IHAORE &DSECT=YES */ 00150001 *%OREL1 : ; 00160001 * 00200001 */* **************************************************************** */ 00600001 */* */ 00750001 */* OPERATOR REPLY ELEMENT DEFINITION */ 00800001 */* */ 00850001 */* OS/VS1 RELEASE 3, OS/VS2 RELEASE 2, 10/23/72, LEVEL=2 */ 00900002 */* */ 00950001 */* METHOD OF ACCESS */ 00960001 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00970001 */* USING ON OREF GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 00980001 */* PL/S - DCL OREPTR PTR */ 00990001 */* **************************************************************** */ 01000001 *%GOTO OREL2; /* 01010001 SPACE 01050001 IEZBITS , - SYMBOLIC BIT DEFINITIONS 01099601 AIF ('&DSECT' EQ 'NO').NODSCT 01112201 OREF DSECT 01122201 AGO .CONT 01124201 .NODSCT ANOP 01124601 DS 0D 01124701 OREF EQU * 01128901 .CONT ANOP 01130901 SPACE 01133201 ORELKP DS A - LINKAGE POINTER 01137401 OREID DS CL2 - REPLY IDENTIFICATION 01150001 SPACE 01200001 OREXA DS B - FLAGS 01250001 ORERSV01 EQU BIT0,,C'X' - RESERVED 01260001 OREKEY0 EQU BIT1 - WTOR ISSUED BY KEY 0 USER 01300001 * (BYPASS VALIDITY CHECK) 01350001 ORESWAP EQU BIT2 - TASK SWAPPED OUT 01400001 ORESUSP EQU BIT3 - PROCESSING TEMPORARILY SUSPENDED 01410002 * (OS/VS2) MDC001 01412002 ORERSV03 EQU BIT4,,C'X' - RESERVED 01420001 ORERSV04 EQU BIT5,,C'X' - RESERVED 01430001 ORERSV05 EQU BIT6,,C'X' - RESERVED 01440001 ORERSV06 EQU BIT7,,C'X' - RESERVED 01442001 SPACE 01450001 OREXC DS B - BUFFER STATUS FLAGS 01500001 OREBUFA EQU BIT0 - BUFFER IS AVAILABLE 01550001 OREBUFB EQU BIT1 - BUFFER IN USE 01600001 OREBUFC EQU BIT2 - ORE IS TO BE DELETED, DO NOT PROCESS 01610002 * REPLY (OS/VS2) MDC002 01620002 OREBUFD EQU BIT3 - BUFFER OBTAINED DYNAMICALLY 01650001 OREBUFE EQU BIT4 - BUFFER SERVICED 01700001 ORERSV08 EQU BIT5,,C'X' - RESERVED 01710001 ORERSV09 EQU BIT6,,C'X' - RESERVED 01720001 ORERSV10 EQU BIT7,,C'X' - RESERVED 01730001 SPACE 01750001 ORETCB DS 0A - POINTER TO TCB 01800001 ORETJID1 DS C - FIRST BYTE OF TJID 01850001 ORETCBA DS AL3 - ADDRESS OF TCB 01900001 OREWQE DS A - ADDRESS OF ASSOCIATED WQE 01950001 ORERPY DS 0A - POINTER TO REPLY BUFFER 02000001 ORELNTH DS FL1 - MAXIMUM LENGTH OF REPLY 02050001 ORERPYA DS AL3 - ADDRESS OF REPLY BUFFER 02100001 OREECB DS 0A - POINTER TO REQUESTOR'S REPLY ECB 02150001 ORETJID2 DS C - SECOND BYTE OF TJID 02200001 OREECBA DS AL3 - ADDRESS OF REQUESTOR'S REPLY ECB 02250001 OREM EQU * - END OF OPERATOR REPLY ELEMENT (OS/VS1) 02252002 * MDC006 02254002 OREASID DS H - ADDRESS SPACE IDENTIFIER (OS/VS2) MDC003 02260002 ORERSV11 DS H - RESERVED (OS/VS2) MDC004 02270002 OREOPBUF DS A - POINTER TO OPERATOR REPLY BUFFER 02280002 * (OS/VS2) MDC005 02290002 OREL EQU * - END OF OPERATOR REPLY ELEMENT (OS/VS2) 02300002 * MDC006 02310002 ORESIZE EQU OREL-OREF - LENGTH OF OPERATOR REPLY ELEMENT (OS/VS2) 02350002 * MDC007 02360002 ORESIZE1 EQU OREM-OREF - LENGTH OF OPERATOR REPLY ELEMENT (OS/VS1) 02370002 * MDC007 02380002 MEND , */ 02400001 *%OREL2 : ; 02450001 * 02460001 *DECLARE 02500001 * 1 OREF BASED(OREPTR) BDY(WORD), /* START OF ORE */ 02550002 * 2 ORELKP PTR(31), /* LINKAGE POINTER */ 02600001 * 2 OREID CHAR(2), /* REPLY IDENTIFICATION */ 02650001 * 2 OREXA CHAR(1), /* FLAGS */ 02700001 * 3 ORERSV01 BIT(1), /* RESERVED */ 02750001 * 3 OREKEY0 BIT(1), /* WTOR ISSUED BY KEY 0 02800001 * USER (BYPASS VALIDITY 02850001 * CHECK) */ 02900001 * 3 ORESWAP BIT(1), /* TASK SWAPPED OUT */ 02950001 * 3 ORESUSP BIT(1), /* PROCESSING TEMPORARILY 03000002 * SUSPENDED (OS/VS2) MDC001*/ 03002002 * 3 ORERSV03 BIT(1), /* RESERVED */ 03010001 * 3 ORERSV04 BIT(1), /* RESERVED */ 03020001 * 3 ORERSV05 BIT(1), /* RESERVED */ 03030001 * 3 ORERSV06 BIT(1), /* RESERVED */ 03040001 * 2 OREXC CHAR(1), /* BUFFER STATUS FLAGS */ 03050001 * 3 OREBUFA BIT(1), /* BUFFER IS AVAILABLE */ 03100001 * 3 OREBUFB BIT(1), /* BUFFER IN USE */ 03150001 * 3 OREBUFC BIT(1), /* ORE IS TO BE DELETED, 03200002 * DO NOT PROCESS REPLY 03210002 * (OS/VS2) MDC002*/ 03220002 * 3 OREBUFD BIT(1), /* BUFFER OBTAINED 03250001 * DYNAMICALLY */ 03300001 * 3 OREBUFE BIT(1), /* BUFFER SERVICED */ 03350001 * 3 ORERSV08 BIT(1), /* RESERVED */ 03400001 * 3 ORERSV09 BIT(1), /* RESERVED */ 03410001 * 3 ORERSV10 BIT(1), /* RESERVED */ 03420001 * 2 ORETCB PTR(31), /* POINTER TO TCB */ 03450001 * 3 ORETJID1 CHAR(1), /* FIRST BYTE OF TJID */ 03500001 * 3 ORETCBA PTR(24), /* ADDRESS OF TCB */ 03550001 * 2 OREWQE PTR(31), /* ADDRESS OF ASSOCIATED 03600001 * WQE */ 03650001 * 2 ORERPY PTR(31), /* POINTER TO REPLY BUFFER */ 03700001 * 3 ORELNTH PTR(8), /* MAXIMUM LENGTH OF REPLY */ 03800001 * 3 ORERPYA PTR(24), /* ADDRESS OF REPLY BUFFER */ 03850001 * 2 OREECB PTR(31), /* POINTER TO REQUESTOR'S 03900001 * REPLY ECB */ 03950001 * 3 ORETJID2 CHAR(1), /* SECOND BYTE OF TJID */ 04000001 * 3 OREECBA PTR(24), /* ADDRESS OF REQUESTOR'S 04050002 * REPLY ECB */ 04100001 * 2 OREM CHAR(0), /* END OF OPERATOR REPLY 04102002 * ELEMENT (OS/VS1) MDC006*/ 04104002 * 2 OREASID FIXED(15), /* ADDRESS SPACE IDENTIFIER 04110002 * (OS/VS2) MDC003*/ 04120002 * 2 ORERSV11 FIXED(15), /* RESERVED (OS/VS2) MDC004*/ 04130002 * 2 OREOPBUF PTR(31); /* POINTER TO OPERATOR REPLY 04140002 * BUFFER (OS/VS2) MDC005*/ 04142002 * 04150001 *%ORESIZE = 'LENGTH(OREF)'; /* LENGTH OF ORE (OS/VS2) 04160002 * MDC007*/ 04162002 *%ORESIZE1= 'LENGTH(OREF)-8'; /* LENGTH OF ORE (OS/VS1) 04164002 * MDC007*/ 04166002 * 04170001 * /*************************** END OF ORE ****************************/ 04200001