*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