* %GOTO PLSIHSA; /* 00050002 MACRO 00100002 IHAIHSA 00150002 IHSA DSECT 00200002 IHSACPUT DS D VALUE OF CPU TIMER 00250002 IHSANTCB DS F VALUE OF IEATCBP AT INTERRUPT 00300002 IHSAOTCB DS F VALUE OF IEATCBP+4 AT INTERRUPT 00350002 IHSACPSW DS D VALUE OF CURRENT TCB 00400002 IHSAFPRS DS 0CL32 FLOATING POINT REG SAVE AREA 00450002 IHSAFPR0 DS D FLOATING POINT REG 0 00500002 IHSAFPR2 DS D FLOATING POINT REG 2 00550002 IHSAFPR4 DS D FLOATING POINT REG 4 00600002 IHSAFPR6 DS D FLOATING POINT REG 6 00650002 IHSAGPRS DS CL64 GENERAL REGISTER SAVE AREA 00700002 IHSAFRRS DS CL596 FRR STACK SAVE AREA @ZM02352 00750003 DS 0D ALIGN TO DOUBLE WORD MULT 00760002 IHSAEND EQU * 00800002 IHSALEN EQU IHSAEND-IHSA LENGTH OF IHSA AREA 00850002 MEND , */ 00900002 *%PLSIHSA : ; 00950002 *DECLARE /* LOCAL SUPERVISOR SAVE AREA */ 01000002 * 1 IHSA BASED, 01050002 * 2 IHSACPUT CHAR(8) BDY(DWORD), /* VALUE OF CPU TIMER */ 01100002 * 2 IHSANTCB FIXED(31), /* VALUE OF IEATCBP */ 01150002 * 2 IHSAOTCB FIXED(31), /* VALUE OF IEATCBP+4 */ 01200002 * 2 IHSACPSW CHAR(8) BDY(DWORD), /* VALUE OF CURRENT PSW */ 01250002 * 2 IHSAFPRS CHAR(32) BDY(DWORD), /* FLOATING POINT REG SAVE 01300002 * AREA */ 01350002 * 3 IHSAFPR0 CHAR(8), /* FLOATING POINT REG 0 */ 01400002 * 3 IHSAFPR2 CHAR(8), /* FLOATING POINT REG 2 */ 01450002 * 3 IHSAFPR4 CHAR(8), /* FLOATING POINT REG 4 */ 01500002 * 3 IHSAFPR6 CHAR(8), /* FLOATING POINT REG 6 */ 01550002 * 2 IHSAGPRS CHAR(64), /* GENERAL REGISTER SAVE AREA */ 01600002 * 2 IHSAFRRS CHAR(596), /* FRR STACK SAVE AREA@ZM02352*/ 01650003 * 2 * CHAR(0) BDY(DWORD); /* ALIGN TO DOUBLE WORD MULT */ 01700002