*COPY DMPBLOKS 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').DMP01 00001400
PRINT OFF,NOGEN 00001600
.DMP01 ANOP 00001800
DMPTBREC DSECT 00002000
SPACE 1 00003000
* 00004000
*** DMPTBREC - DUMP FILE SYMBOL TABLE RECORD 00005000
* 00006000
* +---------------------------------------+ 00007000
* 0 | DMPSYMNM | 00008000
* +-------------------+-------------------+ 00009000
* 8 | DMPSYMVA | | 00010000
* +-------------------+ + 00011000
* | | 00012000
* | | 00013000
* | | 00014000
* = DMPSYMEN = 00015000
* | | 00016000
* | | 00017000
* | | 00018000
* | | 00019000
* +---------------------------------------+ 00020000
* 00021000
*** DMPTBREC - DUMP FILE SYMBOL TABLE RECORD 00022000
* 00023000
SPACE 1 00024000
DMPSYMEN DS 341XL12 SYMBOL TABLE ENTRIES 00025000
ORG DMPSYMEN 00026000
DMPSYMNM DS CL8 CSECT OR ENTRY POINT NAME 00027000
DMPSYMVA DS A LOCATION IN MAIN MEMORY OF THIS SYMBOL 00028000
EJECT 00029000
DMPINREC DSECT 00030000
SPACE 1 00031000
* 00032000
*** DMPINREC - DUMP FILE INFORMATION RECORD 00033000
* 00034000
* +---------------------------------------+ 00035000
* | | 00036000
* 0 = DMPGPRS = 00037000
* | | 00038000
* +---------------------------------------+ 00039000
* | | 00040000
* 40 = DMPCRS = 00041000
* | | 00042000
* +---------------------------------------+ 00043000
* | | 00044000
* 80 = DMPFPRS = 00045000
* | | 00046000
* +---------------------------------------+ 00047000
* A0 | DMPTODCK | 00048000
* +---------------------------------------+ 00049000
* A8 | DMPCPUTM | 00050000
* +---------------------------------------+ 00051000
* B0 | DMPCKCOM | 00052000
* +----+----+---------+-------------------+ 00053000
* B8 |S*1 |S*2 | DMPPROCA| DMPSYSRV | 00054100
* +----+----+---------+-------------------+ 00055000
* | | 00056000
* | | 00057000
* C0 = DMPLCORE = 00058000
* | | 00059000
* | | 00060000
* +-------------------+-------------------+ 00061100
* 1C0 | DMPPRFRG | DMPABEND | 00061200
* +-------------------+-------------------+ 00061300
* 1C8 | | 00062000
* | | 00063000
* | | 00064000
* | DMPPGMAP | 00065100
* | | 00066000
* | | 00067000
* | | 00068000
* +---------------------------------------+ 00068050
* 3C8 | DMPCPUID | 00068100
* +---------------------------------------+ 00068150
* 3D0 | DMPVMTYP | 00068200
* +---------------------------------------+ 00068250
* 3D8 | DMPPSW | 00068300
* +---------------------------------------+ 00068350
* 3E0 | DMPSYSRM | DMPIPCS | 00068400
* +-------------------+ | 00068450
* | | 00068500
* | +-------------------+ 00068550
* 430 | | DMPDMPID | 00068600
* +-------------------+ | 00068650
* | | 00068700
* 490 | | 00068750
* +---------------------------------------+ 00068800
* 498 | | 00068850
* - - 00068900
* FF8 | | 00068950
* +---------------------------------------+ 00069000
* 00070000
*** DMPINREC - DUMP FILE INFORMATION RECORD 00071000
* 00072000
SPACE 1 00073000
DMPGPRS DS 16F 16 GENERAL PURPOSE REGISTERS 00074000
DMPCRS DS 16F 16 CONTROL REGISTERS 00075000
DMPFPRS DS 4D 4 FLOATING POINT REGISTERS (IF FLOATING *00076000
POINT FEATURE INSTALLED ON MACHINE) 00077000
DMPTODCK DS 1D TIME OF DAY CLOCK 00078000
DMPCPUTM DS 1D CPU TIMER 00079000
DMPCKCOM DS 1D TIME OF DAY CLOCK COMPARATOR 00080000
DMPFLAG DS 1X S*1 - FLAG BYTE 00081000
DMPRSV1 DS 1X S*2 - RESERVED FOR FUTURE USE 00082000
DMPPROCA DS 1H ABENDING PROCESSOR ADDRESS @V407510 00083100
DMPSYSRV DS 1F SYSTEM GENERATED STORAGE SIZE @V407510 00083200
DMPLCORE DS 256X LOCATIONS 0-256 OF REAL MEMORY 00085000
DMPPRFRG DS 1F PREFIX REGISTER @V407510 00085100
DMPABEND DS 1F ABEND CODE FOR FAILING PROCESSOR @V407510 00085200
DMPPGMAP DS 256C @V407510 00086100
DS 256C @V407510 00086200
* 4096 BITS INDICATE WHICH @V407510 00086300
* PAGES APPEAR IN THE DUMP FILE @V407510 00086400
* (EACH BIT REPRESENTS A 4K BLOCK) @V407510 00086500
DMPCPUID DS 1D CPU IDENTIFICATION FROM REAL CPU @V67CAH7 00086600
DMPVMTYP DS 1D ID OF VM MACHINE TYPE, OBTAINED @V67CAH7 00086700
* FROM 'FORMAT' PARAMETER 00086800
* ONLY FOR VMDUMPS NOT CP DUMPS 00086900
DMPPSW DS 1D PSW OF VIRTUAL MACHINE @V67CAH7 00087000
* ONLY FOR VMDUMPS NOT CP DUMPS 00087100
DMPSYSRM DS 1F REAL SIZE OF STORAGE...IT IS THE @V67CAH7 00087200
* HARDWARE SIZE OF THE MACHINE FOR 00087300
* CP DUMPS AND THE VIRTUAL MACHINE 00087400
* INCLUDING DISCONTIGUOUS SAVED 00087500
* SEGMENTS FOR VMDUMPS 00087600
DMPIPCS DS 20F RESERVED FOR USE BY IPCS DURING @V67CAH7 00087700
* THEIR BUILDING OF A CMS FILE 00087800
DMPDMPID DS CL100 DUMP INFORMATION...FROM VMDUMP @V67CAH7 00087900
* COMMENT (*) 00088000
* ONLY FOR VMDUMPS NOT CP DUMPS 00088100
SPACE 00089000
* BITS DEFINED IN DMPFLAG 00090000
HALFPAGE EQU X'80' ON MEANS LAST RECORD IN DUMP FILE = 2K 00091000
EJECT 00092000
DMPKYREC DSECT 00093000
SPACE 1 00094000
* 00095000
*** DMPKYREC - DUMP FILE KEY RECORD 00096000
* 00097000
* +----+----------------------------------+ 00098000
* |S*1 | | 00099000
* +----+ + 00100000
* | | 00101000
* | | 00102000
* | | 00103000
* = DMPKEYS = 00104000
* | | 00105000
* | | 00106000
* | | 00107000
* | | 00108000
* +---------------------------------------+ 00109000
* 00110000
*** DMPKYREC - DUMP FILE KEY RECORD 00111000
* 00112000
SPACE 1 00113000
DMPKEYS DS 4096X MAIN MEMORY STORAGE KEYS 00114000
ORG DMPKEYS 00115000
DMPKEY DS 1X S*1 - STORAGE KEY FOR EACH 2K BLOCK 00116000
EJECT 00117000
POP PRINT 00118000
SPACE 00119000