MACRO 00050002 &NAME GSPACE &R,&LV= 00070003 .***************************************************************** 00150002 .* 00200002 .* MACRO NAME - GSPACE 00250002 .* 00300002 .* DESCRIPTIVE NAME -GET SPACE MACRO (THIS IS GETMAIN LIKE) 00350002 .* 00400002 .* COPYRIGHT - N/A 00450002 .* 00500002 .* STATUS - OS/VS2 REL. 3.7 PTF @ZA28413 00550003 .* 00600002 .* FUNCTION - 00650002 .* 00700002 .* THE FUNCTION OF THIS MACRO IS TO SETUP THE INPUT REGS TO THE 00750002 .* GSPACE SERVICE ROUTINE LOCATED IN MODULE IEFAB4F6. 00800002 .* 00850002 .* OPERATION - 00900002 .* 00950002 .* THIS MACRO REQUIRES - GSPACE R,LV=(0),A=(1) 00970003 .* 1) IF INVALID PARAMETERS PRINT MNOTE. 01050002 .* 2) INSERT CODE 01100002 .* 3) EXIT 01150002 .* 01200002 .* NOTES - 01250002 .* DEPENDENCIES - 01300002 .* THIS MACRO IS CALLED BY USING THE PL/S STACK OPTION. 01350003 .* THEREFORE CHANGES TO PL/S MAY IMPACT THIS MACRO 01380003 .* THE ONLY REGISTERS THE MACRO MAY ALTER ARE 0,1,14,15. 01410003 .* A CHANGE TO SVC99'S CSECT NAME MEANS A CHANGE TO GSPACE@YM05157 01440003 .* 01500002 .* RESTRICTIONS 01550002 .* NONE. 01600002 .* REGISTER CONVENTIONS - 01650002 .* MAY ONLY USE 14 THRU 1 01700002 .* 01750002 .* PATCH LABEL - N/A 01800002 .* 01850002 .* MODULE TYPE - MACRO 01900002 .* 01950002 .* PROCESSER - ASSEM 02000002 .* MODULE SIZE - N/A 02050002 .* ATTRIBUTES - EXECUTABLE MACRO 02100002 .* 02150002 .* ENTRY POINT - N/A 02200002 .* 02250002 .* EXIT - 02300002 .* R0- UNPREDICTABLE 02350002 .* R1- ADDRESS RETURNED FROM GSPACE ROUTINE OR FROM GETMAIN 02400002 .* R2-R13 NOT CHANGED 02450002 .* R14 - UNPREDICTABLE 02500002 .* R15 - UNPREDICTABLE 02550002 .* 02600002 .* EXTERNAL REFERENCES - NONE 02650002 .* 02700002 .* TABLES - NONE 02750002 .* MACROS - NONE 02800002 .* 02850002 .* CHANGE ACTIVITY - Y02670 02900002 .* - OZ28413 @ZA28413 02920003 .* 02950002 .* MESSAGES - SEE MNOTE IN MACRO CODE. 03000002 .* 06000002 .* ABEND CODES - NONE 09000002 .* 12000002 .***************************************************************** 15000002 .* GSPACE - C - MERGED BACK TO REL 3.7 @ZA28413 15050003 AIF ('&R' EQ 'R' AND '&LV' EQ '(0)').OK 18000002 MNOTE 4,'GSPACE PARAMETERS INVALID' 21000002 .OK ANOP 24000002 AIF ('&SYSECT' NE 'IEFDB400' AND '&SYSECT' NE 'IEFBB401'*24050003 AND '&SYSECT' NE 'IEFBB410').OK1 @ZM41392 24100003 .* CSECTS IEFBB401, IEFBB410 HAVE UNPREDICTABLE REG 13. @ZM41392 24150003 .* CSECT IEFDB400(SVC99) HAS AN UNPREDICTABLE REG 13 @YM05157 25000002 SLR 1,1 @YM05157 25500002 AGO .OK2 @YM05157 26000002 .OK1 ANOP @YM05157 26500002 LR 1,13 SET ADDRESS IN REG 1 27000002 .OK2 ANOP @YM05157 28000002 &NAME L 15,GS&SYSNDX.C SET GSPACE EP IN REG 15 30000002 CNOP 2,4 * 33000002 GS&SYSNDX.L BALR 14,15 CALL GSPACE 36000002 B GS&SYSNDX.E +0 RETURN IS NORMAL RETURN 39000002 B GS&SYSNDX.D +4 RETURN REQUIRES GETMAIN 42000002 GS&SYSNDX.C DC V(GSPACE) GSPACE PRIMARY ENTRY POINT 45000002 GS&SYSNDX.V DC V(GSPACE1) GSPACE SECONDARY ENTRY POINT 48000002 GS&SYSNDX.D SVC 10 GETMAIN 51000002 LTR 0,14 Q. IS RETURN TO GSPACE NECESSARY 54000002 L 15,GS&SYSNDX.V GET SECONDARY ENTRY POINT 57000002 BNZ GS&SYSNDX.L A. YES. RETURN TO GSPACE 60000002 GS&SYSNDX.E EQU * * 63000002 MEND 66000002