* %GOTO RWA1; /* BILINGUAL MAPPING MACRO 00050002 MACRO 00100002 IGFRWA &DSECT=YES 00150002 .*A026100-026400,043600-043900 @YM05666 00152002 .*C026500,044000 @YM05666 00154002 .*A027100-027200,044600-044700 @YM00964 00160002 .* */ 00200002 *%RWA1: ; 00250002 */********************************************************************* 00300002 * 00350002 * MCH RECOVERY WORK AREA 00400002 * 00450002 * OS/VS2 RELEASE 2, 12/13/73 00500002 * 00550002 * METHOD OF ACCESS: 00600002 * BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS 00650002 * SPECIFIED. USING ON 'RWA' ESTABLISHES 00700002 * ADDRESSABILITY. 00750002 * 00800002 * PL/S - DCL RWAPTR PTR 00850002 * 00900002 **********************************************************************/ 00950002 *%GOTO RWA2; /* 01000002 SPACE 1 01050002 AIF ('&DSECT' EQ 'NO').RWA001 01100002 RWA DSECT 01150002 AGO .RWA002 01200002 .RWA001 ANOP 01250002 RWA DS 0D 01300002 .RWA002 ANOP 01350002 RWATERM DC D'0' . SYSTEM TERMINATION PARAMETERS 01400002 * (A NON-ZERO VALUE INDICATES THAT 01450002 * SYSTEM TERMINATION IS IN PROGRESS) 01500002 ORG RWATERM 01550002 RWATWTO DS F . ADDR OF WTO PARM FOR SYSTEM TERM 01600002 RWATLRB DS F . ADDR OF LRB FOR SYSTEM TERM 01650002 RWASRDF DC XL8'2000000000000004' DEFAULT THRESHOLD BLOCK FOR SYSTEM 01700002 * RECOVERY EVENTS 01750002 RWADGDF DC XL8'2000000003000004' DEFAULT THRESHOLD BLOCK FOR 01770055 * DEGRADATION EVENTS 01850002 RWACWRFL DC X'00' . CONSOLE WRITE IN PROGRESS FLAGS 01900002 RWAEMRFL DC X'00' . EMERGENCY RECORDING IN PROGRESS FLGS 01950002 RWAFLCFL DC X'00' . FIXED LOW CORE IN USE FLAGS 02000002 RWAMSGFL DC X'00' . LOST MESSAGE SUMMARY FLAGS 02050002 * 02100002 RWAMSG31 EQU X'80' . AT LEAST ONE IGF931I MSG LOST DUE TO 02150002 * LACK OF MSG BUFFER SPACE 02200002 RWAMSG71 EQU X'40' . AT LEAST ONE IGF971I MSG LOST DUE TO 02250002 * LACK OF MSG BUFFER SPACE 02300002 RWAMSG72 EQU X'20' . AT LEAST ONE IGF972I MSG LOST DUE TO 02350002 * LACK OF MSG BUFFER SPACE 02400002 RWAMSG21 EQU X'10' . INDICATES ERROR IN THRESHOLD 02450002 * ANALYSIS RTN 02500002 RWAMSG56 EQU X'08' . AT LEAST ONE IGF956I MSG LOST DUE TO 02510055 * LACK OF MSG BUFFER SPACE @G556P2P 02520055 * BITS 5-7 RESERVED FOR FUTURE USE 02530055 * 02600002 RWAFLAGS DC X'00' . MCH SYSTEM-WIDE FLAGS @YM05666 02610002 * 02612002 RWAWNGQI EQU X'80' . WARNINGS TO BE DISABLED @YM05666 02620002 * BITS 1-7 RESERVED FOR @YM05666 02630002 * FUTURE USE @YM05666 02640002 * 02642002 DC XL3'000000' . RESERVED FOR FUTURE USE @YM05666 02650002 RWATEST DC XL8'0000000000000000' RESERVED FOR TESTING 02700002 RWAPCCAR DC 2F'0' . REAL ADDRESSES OF PCCA'S @YM00964 02710002 * FOR CPU 0 - CPU 1 @YM00964 02720002 RWAPDDF DS 0XL16 DEFAULT THRESHOLD @G55CP2P 02722055 DC XL8'3000000000000005' BLOCK FOR INSTRUCTION @G55CP2P 02723055 DC XL8'000000000000012C' PROCESSING DAMAGE EVENTS @G55CP2P 02724055 RWASDDF DS 0XL16 DEFAULT THRESHOLD @G55CP2P 02725055 DC XL8'3000000000000005' BLOCK FOR SYSTEM @G55CP2P 02726055 DC XL8'000000000000012C' DAMAGE EVENTS @G55CP2P 02727055 RWAIVDF DS 0XL16 DEFAULT THRESHOLD @G55CP2P 02728055 DC XL8'3000000000000005' BLOCK FOR INVALID PSW OR @G55CP2P 02729055 DC XL8'000000000000012C' REGISTER EVENTS @G55CP2P 02730055 RWATCDF DS 0XL16 DEFAULT THRESHOLD @G55CP2P 02731055 DC XL8'3000000000000005' BLOCK FOR TOD CLOCK @G55CP2P 02732055 DC XL8'000000000000012C' DAMAGE EVENTS @G55CP2P 02733055 RWAPTDF DS 0XL16 DEFAULT THRESHOLD @G55CP2P 02734055 DC XL8'3000000000000005' BLOCK FOR CPU TIMER @G55CP2P 02735055 DC XL8'000000000000012C' DAMAGE EVENTS @G55CP2P 02736055 RWACCDF DS 0XL16 DEFAULT THRESHOLD @G55CP2P 02737055 DC XL8'3000000000000005' BLOCK FOR CLOCK @G55CP2P 02738055 DC XL8'000000000000012C' COMPARATOR DAMAGE EVENTS @G55CP2P 02739055 * * 02750055 * END OF MCH RECOVERY WORK AREA * 02800002 * * 02850002 MEND 02900002 * */ 02950002 *%RWA2: ; 03000002 * 03050002 * DECLARE 03100002 * 1 RWA BASED(RWAPTR) BDY(DWORD), 03150002 * 2 RWATERM CHAR(8) BDY(DWORD), /* SYSTEM TERMINATION PARAMETERS 03200002 * (A NON-ZERO VALUE INDICATES THAT 03250002 * SYSTEM TERMINATION IS IN 03300002 * PROGRESS) */ 03350002 * 3 RWATWTO PTR(31), /* ADDR OF WTO PARM FOR SYS TERM */ 03400002 * 3 RWATLRB PTR(31), /* ADDR OF LRB FOR SYS TERM */ 03450002 * 2 RWASRDF CHAR(8) BDY(WORD), /* DEFAULT THRESHOLD BLOCK FOR 03500002 * SYSTEM RECOVERY EVENTS */ 03550002 * 2 RWADGDF CHAR(8) BDY(WORD), /* DEFAULT THRESHOLD BLOCK FOR 03600002 * DEGRADATION EVENTS */ 03650002 * 2 RWACWRFL CHAR(1), /* CONSOLE WRITE IN PROGRESS FLAGS*/ 03700002 * 2 RWAEMRFL CHAR(1), /* EMERGENCY RECORDING IN PROGRESS 03750002 * FLAGS */ 03800002 * 2 RWAFLCFL CHAR(1), /* FIXED LOW CORE IN USE FLAGS */ 03850002 * 2 RWAMSGFL BIT(8), /* LOST MESSAGE SUMMARY FLAGS */ 03900002 * 3 RWAMSG31 BIT(1), /* AT LEAST ONE IGF931I MSG LOST DUE 03950002 * TO LACK OF MSG BUFFER SPACE */ 04000002 * 3 RWAMSG71 BIT(1), /* AT LEAST ONE IGF971I MSG LOST DUE 04050002 * TO LACK OF MSG BUFFER SPACE */ 04100002 * 3 RWAMSG72 BIT(1), /* AT LEAST ONE IGF972I MSG LOST DUE 04150002 * TO LACK OF MSG BUFFER SPACE */ 04200002 * 3 RWAMSG21 BIT(1), /* INDICATES ERROR IN THRESHOLD 04250002 * ANALYSIS RTN */ 04300002 * 3 RWAMSG56 BIT(1), /* AT LEAST ONE IGF956I MSG LOST DUE 04310055 * TO LACK OF MSG BUFFER SPACE 04320055 * @G556P2P*/ 04330055 * 3 * BIT(3), /* RESERVED FOR FUTURE USE */ 04340055 * 2 RWAFLAGS BIT(8) ABNORMAL, /* MCH SYSTEM-WIDE FLAGS @YM05666*/ 04360002 * 3 RWAWNGQI BIT(1), /* WARNINGS TO BE DISABLED 04370002 * @YM05666*/ 04372002 * 3 * BIT(7), /* RESERVED FOR FUTURE USE 04380002 * @YM05666*/ 04390002 * 2 * CHAR(3), /* RESERVED FOR FUTURE USE 04400002 * @YM05666*/ 04410002 * 2 RWATEST CHAR(8) BDY(WORD), /* RESERVED FOR TESTING */ 04450002 * 2 RWAPCCAR (2)PTR(31), /* REAL ADDRESSES OF PCCA'S FOR 04455055 * CPU 0 - CPU 1 @YM00964*/ 04470002 * 2 RWAPDDF CHAR(16) BDY(WORD), /* DEFAULT THRESHOLD BLOCK 04472055 * FOR INSTRUCTION PROCESSING 04474055 * DAMAGE EVENTS @G55CP2P*/ 04476055 * 2 RWASDDF CHAR(16) BDY(WORD), /* DEFAULT THRESHOLD BLOCK 04478055 * FOR SYSTEM 04480055 * DAMAGE EVENTS @G55CP2P*/ 04482055 * 2 RWAIVDF CHAR(16) BDY(WORD), /* DEFAULT THRESHOLD BLOCK 04484055 * FOR INVALID PSW OR 04486055 * REGISTER EVENTS @G55CP2P*/ 04488055 * 2 RWATCDF CHAR(16) BDY(WORD), /* DEFAULT THRESHOLD BLOCK 04490055 * FOR TOD CLOCK DAMAGE 04491055 * EVENTS @G55CP2P*/ 04492055 * 2 RWAPTDF CHAR(16) BDY(WORD), /* DEFAULT THRESHOLD BLOCK 04493055 * FOR CPU TIMER DAMAGE 04494055 * EVENTS @G55CP2P*/ 04495055 * 2 RWACCDF CHAR(16) BDY(WORD); /* DEFAULT THRESHOLD BLOCK 04496055 * FOR CLOCK 04497055 * COMPARATOR DMG EVENTS @G55CP2P*/ 04498055 */* 04500002 * END OF MCH RECOVERY WORK AREA 04550002 **/ 04600002