ibm:vm370-lib:copy:mcrecord.copy_src
Table of Contents
MCRECORD Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- MCRECORD.COPY.txt
- *COPY MCRECORD 00001000
- PUSH PRINT 00001200
- AIF ('&SYSPARM' NE 'SUP').MCR01 00001400
- PRINT OFF,NOGEN 00001600
- .MCR01 ANOP 00001800
- MCRECORD DSECT 00002000
- SPACE 1 00003000
- * 00004000
- *** MCRECORD - MACHINE CHECK HANDLER RECORD 00005000
- * 00006000
- * +----+----+----+----+---------+----+----+ 00007000
- * 0 |M*1 |M*2 |M*3 |M*4 | MCSWITCH|M*5 |M*6 | 00008000
- * +---------------------------------------+ 00009000
- * 8 | MCDATE | 00010000
- * +---------------------------------------+ 00011000
- * 10 | MCCPUID | 00012000
- * +---------------------------------------+ 00013000
- * 18 | MCPROGID | 00014000
- * +---------------------------------------+ 00015000
- * 20 | MCJOBID | 00016000
- * +---------------------------------------+ 00017000
- * 28 | MCOLDPW | 00018000
- * +---------------------------------------+ 00019000
- * | | 00020000
- * 30 = MCFXDLOG = 00021000
- * = = 00022000
- * | | 00023000
- * +---------------------------------------+ 00024000
- * | | 00025000
- * = = 00026000
- * = MCEXTLOG = 00027000
- * = = 00028000
- * | | 00029000
- * +---------------------------------------+ 00030000
- * | | 00031000
- * = MCHDAMAG = 00032000
- * | | 00033000
- * +---------------------------------------+ 00034000
- * 00035000
- *** MCRECORD - MACHINE CHECK HANDLER RECORD 00036000
- * 00037000
- SPACE 1 00038000
- MCREC DS 0D 00039000
- MCRECTYP DS 1X M*1 - MACHINE CHECK RECORD TYPE 00040000
- MCOPSYS DS 1X M*2 - OPERATING SYSTEM 00041000
- MCSWONE DS 1X M*3 - RECORD INDEPENDENT SWITCH 00042000
- MCSWTWO DS 1X M*4 - RECORD DEPENDENT SWITCH 00043000
- MCSWITCH DS 2X UNUSED SWITCHES 00044000
- MCRECCNT DS 1X M*5 - RECORD COUNT 00045000
- MCRECCC DS 1X M*6 - SPARE 00046000
- MCDATE DS XL8 DATE AND TIME 00047000
- MCCPUID DS XL8 CPU INDENTIFICATION 00048000
- MCPROGID DS XL8 PROGRAM IDENTITY 00049000
- MCJOBID DS XL8 JOB IDENTITY (UNUSED) 00050000
- MCOLDPW DS XL8 MACHINE CHECK OLD PSW 00051000
- MCFXDLOG DS 35D MACHINE CHECK FIXED LOGOUT 00052000
- FXDLGLH EQU (*-MCFXDLOG) 00053000
- MCEXTLOG EQU * MACHINE CHECK EXTENDED LOGOUT 00054000
- * (THE EXTENDED LOGOUT LENGTH IS A 00055000
- * VARIABLE LENGTH-MACHINE DEPENDED) 00056000
- MCHDAMAG EQU * THE DAMAGE ASSESSMENT AREA 00057000
- * (THE DAMAGE ASSESSMENT IS 80 BYTES) 00058000
- ********************************************************************** 00059000
- EJECT 00060000
- POP PRINT 00061000
- SPACE 00062000
ibm/vm370-lib/copy/mcrecord.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator