* %GOTO PLSSSRB; /* 00050002 MACRO 00100002 IHASSRB 00150002 IHASRB 00160002 SSRBSECT EQU SRBSECT SET LABEL TO BEGINNING 00170002 SSRB DS 0D START OF SAVE AREA PORTION 00200002 SSRBCPSW DS D VALUE OF CURRENT TCB 00400002 SSRBFPRS DS 0CL32 FLOATING POINT REG SAVE AREA 00450002 SSRBFPR0 DS D FLOATING POINT REG 0 00500002 SSRBFPR2 DS D FLOATING POINT REG 2 00550002 SSRBFPR4 DS D FLOATING POINT REG 4 00600002 SSRBFPR6 DS D FLOATING POINT REG 6 00650002 SSRBGPRS DS CL64 GENERAL REGISTER SAVE AREA 00700002 SSRBTRAN DS F PAGE FAULT ADDRESS(FLIH ONLY) 00710002 SSRBFRRS DS CL596 FRR STACK SAVE AREA @ZM02352 00750003 SSRBFLG1 DS XL1 STATUS ATTRIBUTES 00760002 SSRBLLH EQU X'80' LOCAL LOCK WAS HELD BY SRB 00770002 SSRBMAIN EQU X'40' SSRB MUST BE FREEMAINED 00780002 SSRBEND EQU * 00800002 SSRBLEN EQU SSRBEND-SRBSECT LENGTH OF SSRB AREA 00850002 MEND , */ 00900002 *%PLSSSRB : ; 00950002 *%SRBLEVEL='2'; /* PASS DCL AND LEVEL 1 IN SRB*/ 00952002 *%SRB9999=','; /*END SRB WITH COMMA */ 00954002 *DECLARE /* SUSPENDED SRB */ 00956002 * 1 SSRBSECT BASED(SRBPTR), /* LABEL OF MAPPING */ 01006002 *%INCLUDE SYSLIB(IHASRB); 01100002 * 2 SSRB BDY(DWORD), /* START OF SAVE AREA PORTION */ 01150002 * 3 SSRBCPSW CHAR(8) BDY(DWORD), /* VALUE OF CURRENT PSW */ 01250002 * 3 SSRBFPRS CHAR(32) BDY(DWORD), /* FLOATING POINT REG SAVE 01300002 * AREA */ 01350002 * 4 SSRBFPR0 CHAR(8), /* FLOATING POINT REG 0 */ 01400002 * 4 SSRBFPR2 CHAR(8), /* FLOATING POINT REG 2 */ 01450002 * 4 SSRBFPR4 CHAR(8), /* FLOATING POINT REG 4 */ 01500002 * 4 SSRBFPR6 CHAR(8), /* FLOATING POINT REG 6 */ 01550002 * 3 SSRBGPRS CHAR(64), /* GENERAL REGISTER SAVE AREA */ 01600002 * 3 SSRBTRAN PTR(31), /* PAGE FAULT ADDR(FLIH ONLY) */ 01610002 * 3 SSRBFRRS CHAR(596), /* FRR STACK SAVE AREA@ZM02352*/ 01650003 * 3 SSRBFLG1 BIT(8), /* STATUS ATTRIBUTES */ 01700002 * 4 SSRBLLH BIT(1), /* LOCAL LOCK WAS HELD */ 01750002 * 4 SSRBMAIN BIT(1), /* SSRB MUST BE FREEMAINED */ 01760002 * 4 * BIT(6); /* RESERVED */ 01800002