ibm:vm370-lib:copy:mcharea.copy_src
Table of Contents
MCHAREA Source
References
- Fixes Applied : 1
- This Source Date : Monday, January 22, 1979
- Last Fix ID : [R10804DK]
Source Listing
- MCHAREA.COPY.txt
- *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
ibm/vm370-lib/copy/mcharea.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator