/* REGISTER DECLARES */ 01000000 * /* MACSTAT Y-2 73276/Y02113 */ 01150002 DCL (R0 REG(00), R1 REG(01)) PTR(24) UNRESTRICTED;/* WORK REGISTERS*/02000000 DCL (RACB REG(02), /* PTR TO ACB */ 03000000 RBASE REG(03), /* BASE REGISTER */ 04000000 RCORE REG(04)) /* PTR TO WORK AREA */ 05000000 PTR(24) RESTRICTED; 06000000 DCL ((RAMB, /* PTR TO AMB */ 07000000 RES) REG(05), /* PTR TO RESIDENT ROUTINE */ 08000000 (RWTG, /* PTR TO WTG TABLE */ 09000000 R6) REG(06), /* WORK REGISTER */ 10000000 (RPARC, /* PTR TO CURRENT ENTRY IN PARM 11000000 LIST */ 12000000 R7) REG(07), /* WORK REGISTER */ 13000000 (RWTGC, /* PTR TO CURRENT WTG ENTRY */ 14000000 R8) REG(08), /* WORK REGISTER */ 15000000 (RTIOT, /* POINTER TO TIOT */ 16000000 R9) REG(09)) /* WORK REGISTER */ 17000000 PTR(24) RESTRICTED; /* RESTRICTED REGISTER POINTERS 18000000 */ 19000000 DCL ((RUCB, /* PTR TO UCB */ 20000000 R10) REG(10), /* WORK REGISTER */ 21000000 (RDEB, /* PTR TO DEB */ 22000000 R11) REG(11), /* WORK REGISTER */ 23000000 R12 REG(12), /* WORK REGISTER */ 24000000 R13 REG(13), /* WORK REGISTER */ 25000000 RET REG(14), /* RETURN REGISTER */ 26000000 (RETCODE,R15)REG(15)) /* RETURN CODE REGISTER */ 27000000 PTR(24) UNRESTRICTED; /* WORK REGISTERS */ 28000000 @EJECT; 29000000 /* CONSTANT DECLARES */ 30000000 DCL (ON CONSTANT('1'B), /* INDIC BIT IS SET TO 1 */ 31000000 OFF CONSTANT('0'B)) BIT(1); /* INDIC BIT IS SET TO 0*/ 32000000 DCL (DWORDLEN CONSTANT(8), /* BYTE LENGTH OF DWORD */ 33000000 FWORDLEN CONSTANT(4), /* BYTE LENGTH OF WORD */ 34000000 HWORDLEN CONSTANT(2)) FIXED; /* BYTE LENGTH OF HWORD */ 35000000 DCL (FIX CONSTANT(0), 36000000 NOFIX CONSTANT(4)) FIXED; 37000000 DCL (EXFGON CONSTANT('0'B), /* USER EXIT */ 38000000 EXFGOFF CONSTANT('1'B)) BIT(1); /* USER EXIT NOT IN PROGRESS */ 39000000 DCL (OPM CONSTANT(4), 40000000 CLM CONSTANT(8), 41000000 OPO CONSTANT(12), 42000000 OPP CONSTANT(16), 43000000 VLT CONSTANT(20), 44000000 CLR CONSTANT(24), 45000000 PRE CONSTANT(32), 46000000 DUM CONSTANT(28)) FIXED; 47000000 DCL (MASTPOOL CONSTANT(250),/* SUBPOOL FOR MASTER BLOCK */ 48000000 SRBPOOL CONSTANT(245), /* SUBPOOL FOR SRB,IOSB @Y021130*/ 48050002 RDEBPOOL CONSTANT(230), /* SUBPOOL FOR REAL DEB @Y021130*/ 49000002 DDEBPOOL CONSTANT(230), /* SUBPOOL FOR DUMMY DEB @Y021130*/ 50000002 FIXDPOOL CONSTANT(245), /* SUBPOOL FOR FIXED CORE */ 51000002 PROTPOOL CONSTANT(252), /* SUBPOOL FOR PROT BLKS @Y021130*/ 52000002 LPMBPOOL CONSTANT(252), /* SUBPOOL FOR LPMB */ 53000002 EDBPOOL CONSTANT(252), /* SUBPOOL FOR EDB */ 54000002 CATPOOL CONSTANT(231), /* CATALOG UNFIXED SUBPOOL @Y021130*/ 54050002 CATPOOL2 CONSTANT(239), /* CATALOG FIXED SUBPOOL @Y021130*/ 55000002 WKPOOL CONSTANT(252), 56000000 AMBLPOOL CONSTANT(252)) FIXED; /* SUBPOOL FOR AMBL */ 57000002 /* BASED DECLARES */ 58000000 DCL 1 MSTRBLK BASED, /* MASTER BLOCK FORMAT */ 59000000 2 MSTRHDR CHAR(16), 60000000 3 MSTRNEXT PTR, /* NEXT MASTER BLOCK */ 61000000 3 MSTRLAST PTR, /* LAST MASTER BLOCK */ 62000000 3 * FIXED(8), /* @Y021130*/ 62050002 3 MSTRKEY FIXED(8), /* SUBPOOL KEY @Y021130*/ 62100002 3 MSTRPOOL FIXED(8), /* SUBPOOL */ 63000002 3 MSTRCODE FIXED(8), /* FLAGS @Y021130*/ 63050002 3 MSTRLEN FIXED(31), /* LENGTH THIS BLOCK @Y021130*/ 64000002 2 MSTRCORE CHAR(*); /* REST OF MASTER BLOCK */ 68000000 DCL 1 ENQPARML BDY(WORD), /* ENQ/DEQ PARAMETER LIST */ 69000000 2 ENQTCB PTR(31), /* TCB FOR DIRECTED ENQ/DEQ */ 70000000 2 ENQPROPR, 71000000 3 EQNOPT1 BIT(8), 72000000 4 ENQEND BIT(1), /* 1 INDICS END OF LIST */ 73000000 4 ENQNEW BIT(1), /* 0 INDICS NES FORM OF PARM LIST */74000000 4 * BIT(5), 75000000 4 ENQDIR BIT(1), /* 1 INDICS DIRECTED ENQ/DEQ */ 76000000 3 ENQRLEN FIXED(8), /* RNAME LENGTH */ 77000000 3 ENQOPT2 BIT(8), /* OPTION BYTE 2 */ 78000000 4 ENQSHR BIT(1), /* ENQ FOR SHARED CONTROL */ 79000000 3 ENQRETC FIXED(8), /* ENQ/DEQ RETURN CODE */ 80000000 3 ENQQNADR PTR(31), /* QNAME ADDRESS */ 81000000 3 ENQRNADR PTR(31), /* RNAME ADDRESS */ 82000000 3 ENQUCADR PTR(31); /* UCB ADDR FOR RESERVE */ 83000000 DCL 1 RNAME CHAR(8), /* RNAME FOR ENQ/DEQ */ 84000000 2 * CHAR(3), /* CI NBR FOR DS (DSN) */ 85000000 2 * CHAR(4), /* ACB ADDR FOR CATALOG */ 86000000 2 * CHAR(1); /* CONTROL CHAR - O=OUTPUT */ 87000000 /* I=NOT OUTPUT */ 88000000 /* B=BUSY */ 89000000