*COPY MCHAREA 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').MCH01 00001400
PRINT OFF,NOGEN 00001600
.MCH01 ANOP 00001800
MCHAREA DSECT 00002000
SPACE 1 00003000
* 00004000
*** MCHAREA - MACHINE CHECK SAVE AREA 00005000
* 00006000
* +---------+---------+----+--------------+ 00008110
* 0 |MCHDAMLN |MCHPROCA |L*1 | MCHRESEV | 00008120
* +----+----+----+----+----+----+----+----+ 00008130
* 8 |M*1 |M*2 |M*3 |M*4 |M*5 |M*6 |M*7 |M*8 | 00008140
* +-------------------+-------------------+ 00008150
* 10 | MCHFSAR | MCHRSRV2 | 00008160
* +---------------------------------------+ 00008170
* | | 00008180
* 18 = MCHLSUM = 00008190
* | | 00008200
* +----+----+----+----+----+----+----+----+ 00008210
* 38 |N*1 |N*2 |N*3 |N*4 |N*5 |N*6 |N*7 |N*8 | 00008220
* +-------------------+-------------------+ 00008230
* 40 | MCHFSAV | MCHFSEAV | 00008240
* +-------------------+-------------------+ 00008250
* 48 | MCHPDARI | MCHTCBCU | 00008260
* +-------------------+-------------------+ 00008270
* 50 | MCHREC | MCHCPEX | 00008280
* +---------------------------------------+ 00008290
* 00040000
*** MCHAREA - MACHINE CHECK SAVE AREA 00041000
* 00042000
SPACE 1 00043000
MCHDAMGE DS 0H DAMAGE ASSESSMENT AREA @V407510 00044100
MCHDAMLN DS 1H LENGTH OF DAMAGE ASSESSMENT AREA @V407510 00044200
MCHPROCA DS XL2 PROCESSOR ADDRESS @V407510 00046100
MCHMODEL DS 1X L*1 MODEL NUMBER FOR THE MACHINE @V407510 00046400
MCHRESEV DS 3X RESERVED @V407510 00046500
MCHDAMFL DS 0BL8 DAMAGE ASSESSMENT DATA 00047000
MCHFLAG0 DS 1X M*1 - SYSTEM STATUS 00048000
MCH0HDWR EQU X'80' HARDWARE RECOVERY 00049000
MCH0SFTR EQU X'40' SOFTWARE RECOVERY 00050000
MCH0USAD EQU X'20' USER ABORTED 00051000
MCH0TERM EQU X'08' OPERATING SYSTEM TERMINATION 00052000
MCH0QUIT EQU X'04' QUIET MODE IN EFFECT 00053000
MCH1GERR EQU X'10' CHANNEL GROUP ERROR OCCURRED 00053500
MCHFLAG1 DS 1X M*2 - DAMAGE AREA 00054000
MCH1MAIN EQU X'80' MAIN STORAGE 00055000
MCH1BUFF EQU X'40' BUFFER 00056000
MCH1COST EQU X'20' CONTROL STORAGE 00057000
MCH1PROC EQU X'08' PROCESSOR 00058000
MCH1TODC EQU X'02' TIME-OF-DAY-CLOCK 00059000
MCH1SYSD EQU X'01' SYSTEM DAMAGE 00060000
MCHFLAG2 DS 1X M*3 - DAMAGE AREAR (CONTINUE) 00061000
MCHFLAG3 DS 1X M*4 - ERROR TYPE 00062000
MCH3INTE EQU X'80' INTERMITTENT 00063000
MCH3SOLD EQU X'40' SOLID 00064000
MCH3DATA EQU X'20' DATA 00065000
MCH3PROT EQU X'10' PROTECT 00066000
MCHFLAG4 DS 1X M*5 - RMS ACTION DATA 00067000
MCH4TOLO EQU X'80' TIME OUT LOOP 00068000
MCH4REPA EQU X'40' REPAIR 00069000
MCH4STRE EQU X'20' STORAGE RECONFIGURE 00070000
MCH4BURE EQU X'10' BUFFER RECONFIGURE 00071000
MCHFLAG5 DS 1X M*6 - RMS INFORMATION STATUS 00072000
MCH5INLG EQU X'80' INVALID LOGOUT 00073000
MCH5INMC EQU X'40' INVALID MACHINE CHECK INTERRUPT CODE 00074000
MCH5IFSA EQU X'20' INVALID FAILING STORAGE ADDRESS 00075000
MCHFLAG6 DS 1X M*7 - RMS WAIT STATE SUFFIX 00076000
MCHFLAG7 DS 1X M*8 - DMKMCH STATUS @V407510 00077100
MCH7SMCR EQU X'80' SECOND MACHINE CHECK RECURSION 00078000
MCH7VRTM EQU X'40' TERMINATE THE VIRTUAL USER 00079000
MCH7SYST EQU X'20' TERMINATE THE SYSTEM @V407510 00079100
MCH7OPSW EQU X'10' M.C. OLD PSW IN PROBLEM STATE 00080000
MCH7VEQR EQU X'08' TERMINATE THE VIRTUAL EQUAL REAL USER 00081000
MCH7SUP EQU X'04' DMKMCH UNDER THE GLOBAL SYS LOCK @V407510 00081100
MCHFSAR DS 1F FAILING LOCATION REAL ADDR @VA10804 00082010
MCHRSRV2 DS 1F RESERVED @VA10804 00082020
MCHLSUM DS XL32 HISTORY @VA10804 00082030
MCHPDAR DS 0BL8 00083000
MCHPDAR0 DS 1X N*1 - ACTION TAKEN 00084000
MCHPDAR1 DS 1X N*2 - FAILURE TYPE 00085000
MCHP1SDE EQU X'80' SOLID STORAGE DATA ERROR 00086000
MCHP1IDE EQU X'40' INTERMITTENT STORAGE DATA ERROR 00087000
MCHP1SKE EQU X'20' SOLID SPF KEY ERROR 00088000
MCHP1IKE EQU X'10' INTERMITTENT SPF KEY ERROR 00089000
MCHPDAR2 DS 1X N*3 - OPERATING SYSTEM STATUS 00090000
MCHPDAR3 DS 1X N*4 - LOCATION OF FAILURE 00091000
MCHPDAR4 DS 1X N*5 - LOCATION OF FAILURE 00092000
MCHPDAR5 DS 1X N*6 - REQUESTED OPERATOR AWARENESS 00093000
MCHPDAR6 DS 1X N*7 - FOOTPRINT 00094000
MCHP6CBA EQU X'80' CHANGE BIT ACTIVE 00095000
MCHPDAR7 DS 1X N*8 - FOOTPRINTS 00096000
MCH7STCK EQU X'80' INTERFACE'S FOR STACK ROUTINE 00097000
MCH7GSTR EQU X'40' INTERFACE'S FOR GETMAIN ROUTINE 00098000
MCH7PURG EQU X'20' INTERFACE'S FOR PURGE ROUTINE 00099000
MCH7LOGO EQU X'10' INTERFACE'S FOR V=R LOGOFF RTN. 00100000
MCH7EXIT EQU X'08' INTERFACE'S FOR EXIT TO CP 00101000
MCH7RSRE EQU X'04' INTERFACE'S FOR RELEASE AND RESET RTNS. 00102000
MCH7IOEM EQU X'02' INTERFACE'S FOR THE RECORDER 00103000
MCHFSAV DS 1F INSTRUCTION ADDRESS AT FAILURE 00105000
MCHFSEAV DS 1F END OF THE FAILING LOCATION 00106000
MCHPDARI DS 1F END OF FAILING STORAGE ADDR. -VIRTUAL 00107000
MCHTCBCU DS 1F NOT USED @VA10804 00107010
MCHREC DS 1F MACHINE CHECK RECORD ADDR @VA10804 00107020
MCHCPEX DS 1F CPEXBLOK ADDR @VA10804 00107030
SPACE 2 00108000
MCHLEN1 EQU *-MCHDAMGE LENGTH OF DAMAGE ASSESSMENT AREA @V407510 00114100
MCHLEN EQU MCHREC-MCHRESEV @VA10804 00115010
SPACE 2 00116000
*********************************************************************** 00117000
NOMODEL EQU X'00' NO SUPPORT FOR MACHINE 00119000
MODEL135 EQU X'04' ID NUMBER FOR THE 135 MACHINE 00120000
MODEL138 EQU X'04' ID NUMBER FOR THE 138 MACHINE 00120500
MODEL145 EQU X'08' ID NUMBER FOR THE 145 MACHINE 00121000
MODEL148 EQU X'08' ID NUMBER FOR THE 148 MACHINE 00121500
MODEL155 EQU X'0C' ID NUMBER FOR THE 155 MACHINE 00122000
MODEL158 EQU X'0C' ID NUMBER FOR THE 158 MACHINE 00123000
MODEL165 EQU X'10' ID NUMBER FOR THE 165 MACHINE 00124000
MODEL168 EQU X'10' ID NUMBER FOR THE 168 MACHINE 00125000
MOD3031 EQU X'14' ID NUMBER FOR THE 3031 00125200
MOD3032 EQU X'14' ID NUMBER FOR THE 3032 00125400
MOD3033 EQU X'14' ID NUMBER FOR THE 3033 00125600
MOD4331 EQU X'18' ID NUMBER FOR THE 4331 PROCESSOR @V60A6B6 00125800
MOD4341 EQU X'18' ID NUMBER FOR THE 4341 PROCESSOR @V60A6B6 00125900
*********************************************************************** 00126000
MCHFIX EQU 280+48 THE LENGTH OF THE FIXED LOGOUT AND 00165000
* HEADER RECORD FOR MACHINE CHECK HANDLER 00166000
POP PRINT 00166100