* %GOTO PWA1; /* BILINGUAL MAPPING MACRO 00050002 MACRO 00100002 IGFPWA 00150002 * */ 00160002 *%PWA1: ; 00200002 */********************************************************************* 00250002 * 00300002 * MCH PROCESSOR WORK AREA 00310002 * 00320002 * OS/VS2 RELEASE 2, 3/29/73 00330002 * 00340002 * METHOD OF ACCESS: 00342002 * BAL - DSECT ONLY. USING ON 'PWA' ESTABLISHES 00344002 * ADDRESSABILITY. 00348002 * 00348102 * PL/S - DCL PWAPTR PTR 00348402 * 00348802 **********************************************************************/ 00349202 *%GOTO PWA2; /* 00349602 SPACE 1 00349702 PWA DSECT 00400002 PWASA1 DS XL72 . STANDARD REGISTER SAVE AREA 1 00850002 PWASA2 DS XL72 . STANDARD REGISTER SAVE AREA 2 00900002 PWASA3 DS XL72 . STANDARD REGISTER SAVE AREA 3 00950002 PWASA4 DS XL72 . STANDARD REGISTER SAVE AREA 4 01000002 PWAESA DS XL72 . EXTRA REGISTER SAVE AREA (FOR 01010002 * IGFPEXIT) 01020002 PWASRTHB DS D . THRESHOLD BLOCK FOR SYSTEM RECOVERY 01070002 * (SR) EVENTS 01120002 PWADGTHB DS D . THRESHOLD BLOCK FOR DEGRADATION 01130002 * (DG) EVENTS 01140002 PWAFRRCD DS F . FRR ERROR CODE FIELD 01150002 PWAFRRCT DS F . FRR STACK INDEX 01200002 * 01210002 PWAFRR1 DS 0XL16 . FRR STACK ENTRY 1 01250002 PWAFRR12 DS F . FRR STACK REGISTER 12 FIELD 01300002 PWAFRR13 DS F . FRR STACK REGISTER 13 FIELD 01350002 PWAFRR15 DS F . FRR STACK REGISTER 15 FIELD 01400002 PWAFRR10 DS F . FRR STACK REGISTER 0 FIELD 01450002 * 01460002 PWAFRR2 DS 0XL16 . FRR STACK ENTRY 2 01500002 PWAFRR22 DS F . FRR STACK REGISTER 12 FIELD 01550002 PWAFRR23 DS F . FRR STACK REGISTER 13 FIELD 01600002 PWAFRR25 DS F . FRR STACK REGISTER 15 FIELD 01650002 PWAFRR20 DS F . FRR STACK REGISTER 0 FIELD 01700002 * 01710002 PWAFRR3 DS 0XL16 . FRR STACK ENTRY 3 01750002 PWAFRR32 DS F . FRR STACK REGISTER 12 FIELD 01800002 PWAFRR33 DS F . FRR STACK REGISTER 13 FIELD 01850002 PWAFRR35 DS F . FRR STACK REGISTER 15 FIELD 01900002 PWAFRR30 DS F . FRR STACK REGISTER 0 FIELD 01950002 * 01960002 PWAFRR4 DS 0XL16 . FRR STACK ENTRY 4 02000002 PWAFRR42 DS F . FRR STACK REGISTER 12 FIELD 02050002 PWAFRR43 DS F . FRR STACK REGISTER 13 FIELD 02100002 PWAFRR45 DS F . FRR STACK REGISTER 15 FIELD 02150002 PWAFRR40 DS F . FRR STACK REGISTER 0 FIELD 02200002 * 02210002 PWASOSW DS XL8 . AREA TO SAVE RECURSIVE OLD PSW IF 02220002 * MACHINE CHECK, PROGRAM CHECK, OR 02230002 * RESTART INTERRUPTION OCCURS IN MCH 02240002 PWAINTC DS XL8 . AREA TO SAVE INTERRUPT CODE FROM 02242002 * RECURSIVE MACHINE CHECK OR PROGRAM 02244002 * CHECK IN MCH 02246002 PWASFLC DS XL232 . AREA TO SAVE FIXED LOGOUT AREA (FLC 02248002 * LOCATIONS 0-231) FROM THE ORIGINAL 02248402 * (NOT RECURSIVE) MACHINE CHECK 02248802 * INTERRUPTION 02249202 PWACR14 DS F . RESUME CONTROL REG 14 IMAGE (INPUT 02249602 * TO AND OUTPUT FROM MODEL DEPENDENT 02249702 * CR MAINTENANCE RTN, IGF01MMM) 02249802 PWACR15 DS F . RESUME CONTROL REG 15 IMAGE (INPUT 02249902 * TO AND OUTPUT FROM MODEL DEPENDENT 02253202 * CR MAINTENANCE RTN, IGF01MMM) 02255202 PWARGPR DS XL64 . RESUME GPR'S (USED AT ENTRY POINT 02255602 * IGFPEXI2 TO ACCOMPLISH RETURN FROM 02256002 * IGFPEXIT) 02256402 PWARPSW DS XL8 . RESUME PSW (USED AT ENTRY POINT 02256502 * IGFPEXI2 TO ACCOMPLISH RETURN FROM 02256602 * IGFPEXIT) 02259902 PWAMFAFL DS XL1 . MALFUNCTION ALERT RECEIVED FLAGS 02263402 PWAINIT DS XL1 . CPU INITIALIZATION COMPLETE FLAGS 02266702 * (INDICATES STIDC'S AND STIDP HAVE 02270002 * BEEN EXECUTED ON THIS CPU) 02280002 PWAFLAGS DS XL1 . PROCESSOR FLAGS 02290002 * 02292002 PWAREST EQU X'80' . RESTART INTERRUPTION QUEUED 02294002 PWACCHED EQU X'40' . IGFPMSCA CALLED IGFCCHED, @G552PLM 02294555 * TURNED OFF ON RET @G552PLM 02294855 * BITS 2-7 RESERVED @G552PLM 02295155 PWANRHED EQU X'20' . IGFPNRFH SCHEDULED. @G559P2L 02295255 PWAENABL EQU X'10' . BUFFER/TLB RESTORE @G556P2P 02295655 * REQUESTED @G556P2P 02295755 * BITS 4-7 RESERVED @G556P2P 02295855 * 02296055 PWAEDSRB DS XL1 . IGFCCHED SRB LOCK BYTE @G552PLM 02296655 PWACNTR DS XL1 . RECURSIVE MACHINE CHK COUNT @G551P2M 02297355 DS XL1 . RESERVED FOR FUTURE USE @G552PLM 02298055 PWACPUAD DS H . AREA FOR IGFPTERM TO SAVE CPU ADDR 02310002 * OF SIGNALLED CPU DURING PROCESSOR 02320002 * TERMINATION 02330002 DS 0F 02340002 PWATEST DS XL8 . RESERVED FOR TESTING 02350002 DS 0D 02360002 PWAWRK DS XL32 . WORK AREA FOR TEMPORARY USE 02400002 PWACCSRB DS XL44 . IGFCCHED SRB @G552PLM 02450055 PWANRSRB DS XL44 . IGFPNRFH SRB @G559P2L 02470055 DS 0D . @G55CP2P 02472055 PWAPDTHB DS XL16 . THRESHOLD BLOCK FOR @G55CP2P 02473055 * INSTRUCTION PROCESSING @G55CP2P 02474055 * DAMAGE EVENTS @G55CP2P 02475055 PWASDTHB DS XL16 . THRESHOLD BLOCK FOR @G55CP2P 02476055 * SYSTEM DAMAGE @G55CP2P 02477055 * EVENTS @G55CP2P 02478055 PWAIVTHB DS XL16 . THRESHOLD BLOCK FOR @G55CP2P 02479055 * INVALID REGISTER OR PSW @G55CP2P 02480055 * EVENTS @G55CP2P 02481055 PWATCTHB DS XL16 . THRESHOLD BLOCK FOR @G55CP2P 02482055 * TOD CLOCK DAMAGE EVENTS @G55CP2P 02483055 PWAPTTHB DS XL16 . THRESHOLD BLOCK FOR @G55CP2P 02484055 * CPU TIMER DAMAGE EVENTS @G55CP2P 02485055 PWACCTHB DS XL16 . THRESHOLD BLOCK FOR @G55CP2P 02486055 * CLOCK COMPARATOR DMG @G55CP2P 02487055 * EVENTS @G55CP2P 02488055 * * 02500002 * END OF MCH PROCESSOR WORK AREA * 02550002 * * 02600002 MEND 02650002 * */ 02700002 *%PWA2: ; 02750002 * 02800002 * DECLARE 02850002 * 1 PWA BASED(PWAPTR) BDY(DWORD), 02950002 * 2 PWASA1 (18) FIXED(31), /* STANDARD REGISTER SAVE AREA 1 */ 03000002 * 2 PWASA2 (18) FIXED(31), /* STANDARD REGISTER SAVE AREA 2 */ 03050002 * 2 PWASA3 (18) FIXED(31), /* STANDARD REGISTER SAVE AREA 3 */ 03100002 * 2 PWASA4 (18) FIXED(31), /* STANDARD REGISTER SAVE AREA 4 */ 03150002 * 2 PWAESA (18) FIXED(31), /* EXTRA REGISTER SAVE AREA (FOR 03160002 * IGFPEXIT */ 03170002 * 2 PWASRTHB CHAR(8) BDY(DWORD), /* THRESHOLD BLOCK FOR SYSTEM 03180002 * RECOVERY (SR) EVENTS */ 03190002 * 2 PWADGTHB CHAR(8) BDY(DWORD), /* THRESHOLD BLOCK FOR DEGRADATION 03192002 * (DG) EVENTS */ 03194002 * 2 PWAFRRCD FIXED(31), /* FRR ERROR CODE FIELD */ 03300002 * 2 PWAFRRCT FIXED(31), /* FRR STACK INDEX */ 03350002 * 2 PWAFRR (4), /* FRR STACK ENTRIES */ 03400002 * 3 PWAFRR12 FIXED(31), /* FRR STACK REGISTER FIELD 12 */ 03450002 * 3 PWAFRR13 FIXED(31), /* FRR STACK REGISTER FIELD 13 */ 03500002 * 3 PWAFRR15 FIXED(31), /* FRR STACK REGISTER FIELD 15 */ 03550002 * 3 PWAFRR00 FIXED(31), /* FRR STACK REGISTER FIELD 0 */ 03600002 * 2 PWASOSW CHAR(8) BDY(WORD), /* AREA TO SAVE RECURSIVE OLD PSW IF 03610002 * MACHINE CHECK, PROGRAM CHECH, OR 03620002 * RESTART INTERRUPTION OCCURS IN 03630002 * MCH */ 03640002 * 2 PWAINTC CHAR(8) BDY(WORD), /* AREA TO SAVE INTERRUPT CODE FROM 03642002 * RECURSIVE MACHINE CHECK OR 03644002 * PROGRAM CHECK IN MCH */ 03646002 * 2 PWASFLC CHAR(232) BDY(WORD), /* AREA TO SAVE FIXED LOGOUT AREA 03648002 * (FLC LOCATIONS 0-231) FROM THE 03648402 * ORIGINAL (NOT RECURSIVE) MACHINE 03648802 * CHECK INTERRUPTION */ 03649202 * 2 PWACR14 BIT(32) BDY(WORD), /* RESUME CONTROL REG 14 IMAGE 03649602 * (INPUT TO AND OUTPUT FROM MODEL 03649702 * DEPENDENT CR MAINTENANCE RTN, 03649802 * IGF01MMM) */ 03649902 * 2 PWACR15 BIT(32) BDY(WORD), /* RESUME CONTROL REG 15 IMAGE 03666602 * (INPUT TO AND OUTPUT FROM MODEL 03676602 * DEPENDENT CR MAINTENANCE RTN, 03678602 * IGF01MMM) */ 03680602 * 2 PWARGPR (16) FIXED(31), /* RESUME GRP'S (USED AT ENTRY POINT 03682602 * IGFPEXI2 TO ACCOMPLISH RETURN 03683002 * FROM IGFPEXIT) */ 03683102 * 2 PWARPSW CHAR(8) BDY(WORD), /* RESUME PSW (USED AT ENTRY POINT 03683202 * IGFPEXI2 TO ACCOMPLISH RETURN 03688802 * FROM IGFPEXIT) */ 03690802 * 2 PWAMFAFL CHAR(1), /* MALFUNCTION ALERT RECEIVED 03694402 * FLAGS */ 03700002 * 2 PWAINIT CHAR(1), /* CPU INITIALIZATION COMPLETE FLAGS 03710002 * (INDICATES STIDC'S AND STIDP HAVE 03720002 * BEEN EXECUTED ON THIS CPU) */ 03730002 * 2 PWAFLAGS BIT(8), /* PROCESSOR FLAGS */ 03740002 * 3 PWAREST BIT(1), /* RESTART INTERRUPTION QUEUED */ 03742002 * 3 PWACCHED BIT(1), /* IGFPMSCA CALLED IGFCCHED 03742555 * TURNED OF ON RETURN @G552PLM*/ 03743055 * 3 PWANRHED BIT(1), /* ON -IGFPNRFH SCHEDULED.@G559P2L*/ 03743255 * 3 PWAENABL BIT(1), /* ON - BUFFER/TLB 03744155 * RESTORE REQUESTED @G556P2P*/ 03744255 * 3 * BIT(4), /* RESERVD FOR FUTURE USE @G556P2P*/ 03744355 * 2 PWAEDSRB CHAR(1), /* IGFCCHED SRB LOCK BYTE @G552PLM*/ 03744955 * 2 PWACNTR BIT(8), /* RECURSIVE MCH CHK COUNT@G551P2M*/ 03745055 * 2 * CHAR(1), /* RESERVED FOR FUTURE USE */ 03746055 * 2 PWACPUAD CHAR(2) BDY(HWORD), /* AREA FOR IGFPTERM TO SAVE CPU 03760002 * ADDR OF SIGNALLED CPU DURING 03770002 * PROCESSOR TERMINATION */ 03780002 * 2 PWATEST CHAR(8) BDY(WORD), /* RESERVED FOR TESTING */ 03800002 * 2 PWAWRK CHAR (32) BDY(DWORD), /* WORK AREA FOR TEMP USE @G552PLM*/ 03820055 * 2 PWACCSRB CHAR(44), /* IGFCCHED SRB @G552PLM*/ 03850055 * 2 PWANRSRB CHAR(44), /* IGFPNRFH SRB @G559P2L*/ 03860055 * 2 PWAPDTHB CHAR(16) BDY(DWORD),/* THRESHOLD BLOCK FOR INSTRUCTION 03869055 * PROCESSING EVENTS @G55CP2P*/ 03871055 * 2 PWASDTHB CHAR(16) BDY(DWORD),/* THRESHOLD BLOCK FOR SYSTEM 03875055 * DAMAGE EVENTS @G55CP2P*/ 03878055 * 2 PWAIVTHB CHAR(16) BDY(DWORD),/* THRESHOLD BLOCK INVALID PSW OR 03881055 * REGISTER EVENTS @G55CP2P*/ 03884055 * 2 PWATCTHB CHAR(16) BDY(DWORD),/* THRESHOLD BLOCK FOR TOD CLOCK 03887055 * DAMAGE EVENTS @G55CP2P*/ 03889055 * 2 PWAPTTHB CHAR(16) BDY(DWORD),/* THRESHOLD BLOCK FOR CPU TIMER 03893055 * DAMAGE EVENTS @G55CP2P*/ 03894055 * 2 PWACCTHB CHAR(16) BDY(DWORD);/* THRESHOLD BLOCK CLOCK COM- 03895055 * PARATOR DMG EVENTS @G55CP2P*/ 03896055 */* 03900002 * END OF MCH PROCESSOR WORK AREA 03950002 **/ 04000002