*% GOTO YSTAKL1; /* 00050002 MACRO 00100002 IHAYSTAK &STKLENS= */ 00150002 *%YSTAKL1: ; 00200002 * 00250002 * /* *************************************************************** */ 00300002 * /* */ 00350002 * /* IHAYSTAK-DESCRIBE THE ATTRIBUTES OF THE */ 00400002 * /* FRR RECOVERY STACK AREA */ 00450002 * /* */ 00500002 * /* OS/VS2 RELEASE 2, 10/27/72 LEVEL=1 */ 00550002 * /* */ 00600002 * /* METHOD OF ACCESS */ 00650002 * /* BAL - DC'S FOR THE INDIVIDUAL LENGTHS OF EACH FRR */ 00700002 * /* STACK IS PRODUCED IF STKLENS=YES ALONG WITH A */ 00750002 * /* SERIES OF EQUATES DESCRIBING ATTRIBUTES OF THE */ 00800002 * /* RECOVERY STACK AREA */ 00850002 * /* IF STKLENS IS NOT SPECIFIED OR IS SPECIFIED */ 00900002 * /* OTHER THAN YES, JUST THE EQUATES DESCRIBING */ 00950002 * /* THE ATTRIBUTES OF THE RECOVERY STACK AREA */ 01000002 * /* ARE PRODUCED */ 01050002 * /* */ 01100002 * /* PLS - AN ARRAY OF FIXED VARIABLES FOR THE LENGTHS */ 01150002 * /* OF EACH FRR STACK IS PRODUCED IF %STKLENS IS SET */ 01200002 * /* TO 'YES' ALONG WITH FIXED VARIABLE CONSTANTS */ 01250002 * /* DESCRIBING THE ATTRIBUTES OF THE RECOVERY STACK */ 01300002 * /* AREA */ 01350002 * /* IF %STKLENS IS NOT SPECIFIED OR IS SPECIFIED OTHER*/ 01400002 * /* THAN 'YES', JUST THE FIXED VARIABLE CONSTANTS */ 01450002 * /* DESCRIBING THE RECOVERY STACK AREA ARE PRODUCED */ 01500002 * /* */ 01550002 * /* *************************************************************** */ 01600002 * 01650002 *%GOTO YSTAKL2 ; /* 01700002 SPACE 1 01750002 AIF ('&STKLENS' NE 'YES').YSTAK01 01800002 YSTAK DS 0F NUMBER OF ENTRIES IN THE 01850002 DC F'16' SVC-I/O-DISPATCHER FRR STACK 01950003 * @ZM02352 01970003 DC F'4' MCH FRR STACK 02000002 DC F'16' PCFLIH FRR STACK @ZM02352 02050003 DC F'16' EXTERNAL FLIH FRR STACK @ZM02352 02100003 * (NON-RECURSIVE ENTRY) 02150002 DC F'4' EXTERNAL FLIH FRR STACK 02200002 * (FIRST LEVEL-RECURSIVE ENTRY) 02250002 DC F'4' EXTERNAL FLIH FRR STACK 02300002 * (SECOND LEVEL-RECURSIVE ENTRY) 02350002 DC F'16' RESTART FLIH FRR STACK @ZM02352 02400003 * RESPECTIVELY 02450002 DC F'16' NORMAL FRR STACK @ZM02352 02460003 .YSTAK01 ANOP 02500002 YSTAKLEN EQU 9324 TOTAL LENGTH OF RECOVERY STACK 02550003 * AREA IN BYTES @ZM02352 02600003 YSTAKBEG EQU 1 INDEX FOR FIRST FRR STACK 02650002 YSTAKZRO EQU 0 ADDRESS ZEROING CONSTANT 02660002 YSTAKTWO EQU 2 MULTIPIER FOR INDEXING YSTAK 02670002 YSTAKMXV EQU 256 MAX MOVE CHARACTER LENGTH 02680002 YSTAKSMV EQU 1 STARTING INDEX FOR MOVE 02690002 MEND */ 02700002 *%YSTAKL2 : ; 02750002 *%DECLARE YSTAKMXV CHAR; /* MAX MOVE CHARACTER LENGTH */ 02760002 *%YSTAKMXV = '256' ; /* OF 256 */ 02770002 *%DECLARE YSTAKSMV CHAR; /* STARTING INDEX FOR MOVE */ 02780002 *%YSTAKSMV = '1'; /* IS SET TO 1 */ 02790002 * 02800002 *%IF STKLENS ^= 'YES' %THEN 02850002 *% GOTO YSTAKL3 ; 02900002 *DECLARE 03000002 * YSTAK(8) FIXED(31) BDY(WORD) INIT( /*ENTRIES IN THE */ 03050002 * 16, /* SVC-I/O-DISPATCHER 03200003 * FRR STACK, @ZM02352*/ 03250003 * 4, /* MCH FRR STACK, */ 03300002 * 16, /* PCFLIH FRR STACK, @ZM02352*/ 03350003 * 16, /* EXTERNAL FLIH FRR STACK 03380003 * (NON-RECURSIVE ENTRY), 03410003 * @ZM02352*/ 03440003 * 4, /* EXTERNAL FLIH FRR STACK 03500002 * (FIRST LEVEL-RECURSIVE 03550002 * ENTRY), */ 03600002 * 4, /* EXTERNAL FLIH FRR STACK 03650002 * (SECOND LEVEL-RECURSIVE 03700002 * ENTRY), */ 03750002 * 16, /* RESTART FLIH FRR STACK, 03800003 * RESPECTIVELY @ZM02352*/ 03830003 * 16); /* NORMAL FRR STACK @ZM02352*/ 03860003 *%YSTAKL3: ; 03900002 *DECLARE 03950002 * YSTAKLEN FIXED(31) CONSTANT(9324), /* TOTAL LENGTH OF RECOVERY 04000003 * STACK IN BYTES @ZM02352*/ 04050003 * YSTAKBEG FIXED(31) CONSTANT(1), /* INDEX FOR FIRST FRR STACK */ 04100002 * YSTAKZRO FIXED(31) CONSTANT(0), /* ADDRESS ZEROING CONSTANT */ 04150002 * YSTAKTWO FIXED(31) CONSTANT(2); /* MULTIPLIER FOR INDEXING 04200002 * YSTAK */ 04250002