*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