DMP TITLE 'DMSDMP (CMS) VM/370 - RELEASE 6' 00001000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00002000
*. * 00003000
* MODULE NAME: * 00004000
* DMSDMP * 00005000
* * 00006000
* FUNCTION: * 00007000
* DMSDMP IS THE SIMULATED $$BDUMP/$$BPDUMP ROUTINE * 00008000
* UNDER CMS/DOS. DMSDMP IS ENTERED WHENEVER A DUMP OR * 00009000
* JDUMP MACRO IS ISSUED. DMSPDP IS AN ENTRY POINT FOR * 00010000
* PDUMP REQUESTS. IN BOTH CASES, A 'CP DUMP' COMMAND * 00011000
* IS ISSUED DIRECTING THE DUMP TO AN OFFLINE PRINTER. * 00012000
* * 00013000
* ATTRIBUTES: * 00014000
* REENTRANT * 00015000
* DISCONTIGUOUS SHARED SEGMENT * 00016000
* * 00017000
* ENTRY POINTS: * 00018000
* DMSDMP, DMSPDP * 00019000
* * 00020000
* ENTRY CONDITIONS: * 00021000
* DMSDMP IS INVOKED IN RESPONSE TO THE ISSUING OF A * 00022000
* DUMP/JDUMP MACRO. AN SVC 2 IS ISSUED FOR $$BDUMP IN * 00023000
* THE MACRO EXPANSION. DMSDMP WILL HANDLE CMS/DOS * 00024000
* REQUESTS TO $$BDUMP. NO SPECIAL ENTRY CONDITIONS ARE * 00025000
* ESTABLISHED. DMSPDP IS INVOKED IN RESPONSE TO THE * 00026000
* ISSUING OF A PDUMP MACRO. AN SVC 2 IS ISSUED FOR * 00027000
* $$BPDUMP. DMSPDP WILL HANDLE CMS/DOS REQUESTS TO * 00028000
* $$BPDUMP. AT ENTRY TO DMSPDP, THE USER'S REGISTER 0 * 00029000
* POINTS TO THE PDUMP ADDRESSES. * 00030000
* * 00031000
* EXIT CONDITIONS: * 00032000
* DMSPDP - EXIT VIA SVC 11 (RETURN TO PROBLEM PROGRAM * 00033000
* AFTER DUMP IS COMPLETE. * 00034000
* * 00035000
* DMSDMP - EXIT VIA SVC 6 (CANCEL). * 00036000
* * 00037000
* ERROR MESSAGES ISSUED BY THIS PROGRAM: * 00038000
* * 00039000
* DMSDMP020W INVALID PDUMP ADDRESS 'ADDRESS' - * 00040000
* NO DUMP OPERATION PERFORMED * 00041000
* * 00042000
* EXPLANATION: ONE OF THE FOLLOWING * 00043000
* CONDITIONS OCCURRED WHILE * 00044000
* PERFORMING A PDUMP REQUEST: * 00045000
* * 00046000
* 1. ADD1/ADD2 NEGATIVE * 00047000
* 2. ADD1 > EOCADR IN BGCOM 00048000
* 3. ADD1 > OR = ADD2 * 00049000
* * 00050000
* CALLS TO OTHER ROUTINES: * 00051000
* DMSFREB -OBTAIN FREE STORAGE * 00052000
* DIAGNOSE (CODE 8) TO PERFORM PDUMP FUNCTION. * 00053000
* DMSERR - ERROR MESSAGE * 00054000
* * 00055000
* EXTERNAL REFERENCES: * 00056000
* NUCON, REGEQU, BGCOM, DOSAVE * 00057000
* * 00058000
* CALLED BY: * 00059000
* DMSDMP WILL BE INVOKED IN RESPONSE TO SVC 2 FOR $$BDUMP* 00060000
* OR $$BJDUMP. DMSPDP WILL BE INVOKED IN RESPONSE TO * 00061000
* SVC 2 FOR $$BPDUMP. * 00062000
* * 00063000
* TABLES AND WORK AREAS: * 00064000
* PLIST - 'CP DUMP' PLIST * 00065000
* FREE - ACQUIRED FREE STORAGE FOR PURPOSES * 00066000
* OF ADDRESSES, SWITCHES AND PLISTS SINCE * 00067000
* DMSDMP/DMSPDP IS REENTRANT AND CANNOT MODIFY * 00068000
* ITS OWN STORAGE. * 00069000
* * 00070000
* REGISTER USAGE: * 00071000
* R0 - WORK REGISTER * 00072000
* R1 - PLIST POINTER, WORK REGISTER * 00073000
* R2 - FREE STORAGE POINTER * 00074000
* R3 - WORK REGISTER * 00075000
* R4 - WORK REGISTER * 00076000
* R5 - ADD1 * 00077000
* R6 - BAL RETURN REGISTER * 00078000
* R7 - ADD2 * 00079000
* R8 - NOT USED * 00080000
* R9 - NOT USED * 00081000
* R10 - NOT USED * 00082000
* R11 - NOT USED * 00083000
* R12 - BASE REGISTER * 00084000
* R13 - NOT USED * 00085000
* R14 - NOT USED * 00086000
* R15 - NOT USED * 00087000
* * 00088000
* OPERATION: * 00089000
* DMSDMP PERFORMS THE CP CONSOLE FUNCTION 'DUMP' AND * 00090000
* DUMPS FROM LOCATION 0 TO THE TOP OF VIRTUAL STORAGE. * 00091000
* DMSDMP EXITS WITH AN SVC 6 (CANCEL). * 00092000
* * 00093000
* DMSPDP FIRST VERIFIES THAT ADD1 AND ADD2 DO NOT VIOLATE* 00094000
* ANY OF THE RULES FOR ADDRESSES AS OUTLINED ABOVE UNDER * 00095000
* ERROR MESSAGES. IF ADD2 > EOCADR IN BGCOM, ONLY * 00096000
* STORAGE UP TO EOCADR IS DUMPED. PDUMP IS ACCOMPLISHED * 00097000
* VIA DIAGNOSE (CODE 8). PROCESSING CONTINUES AFTER * 00098000
* THE DUMP OPERATION EXIT IS MADE FROM DMSPDP VIA * 00099000
* SVC 11. * 00100000
* * 00101000
* * 00102000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00103000
SPACE 2 00104000
DMSDMP CSECT @V305066 00105000
USING FREE,R2 FREE STORAGE ADDRESSABILITY @V305066 00106000
DC CL8'$$BDUMP' @V305066 00107000
ENTRY DMSPDP @V305066 00108000
BALR R12,0 ESTABLISH OWN ADDRESSABILIIY @V305066 00109000
USING *,R12 @V305066 00110000
LA R1,PLIST PLIST POINTER @V305066 00111000
LA R3,LEN1 LENGTH OF DUMP PLIST @V305066 00112000
DC X'83130008' DIAGNOSE FOR DUMP @V305066 00113000
SVC SVC6 CANCEL JOB @V305066 00114000
EJECT 00115000
DMSPDP EQU * ENTRY POINT FOR PDUMP @V305066 00116000
USING BGCOM,R3 PART. COMREG ADDRESSABILITY @V305066 00117000
USING NUCON,R0 @V305066 00118000
DC CL8'$$BPDUMP' @V305066 00119000
BALR R12,0 ESTABLISH OWN ADDRESSABILIY @V305066 00120000
USING *,R12 @V305066 00121000
L R3,ASYSREF ADDRESS PART. COMM. REGION @V305066 00122000
LR R4,R0 SAVE POINTER TO PDUMP ADDRESSES @V305066 00123000
LA R0,FOUR OBTAIN FOUR DOUBLEWORDS @VA05214 00124000
DMSFREE DWORDS=(0),TYPE=NUCLEUS,TYPCALL=BALR @V305066 00125000
LR R2,R1 R2 CONTAINS FREE STORAGE POINTER @V305066 00126000
L R5,0(R4) PDUMP ADD1 @V305066 00127000
L R7,4(,R4) ADD2 @V305066 00128000
CR R5,R7 ADD2 MUST BE > ADD1 @V305066 00129000
BNL ERR20W IF NOT, ERROR @V305066 00130000
LTR R5,R5 ADD1 MUST NOT BE NEGATIVE @V305066 00131000
BM ERR20W ERROR IF NEGATIVE @V305066 00132000
C R5,EOCADR ADD1 > EOCADR IN BGCOM @V305066 00133000
BH ERR20W YES, NO OPERATION @V305066 00134000
BAL R6,CONVERT CVT HEX ADD TO ZONED FORMAT @V305066 00135000
MVC ADD1(6),ZONE ADD1 TO PLIST @V305066 00136000
LTR R7,R7 ADD2 MUST NOT BE NEGATIVE @V305066 00137000
BM ERR20W ERROR, NO OPERATION @V305066 00138000
C R7,EOCADR ADD2 > EOCADR IN BGCOM @V305066 00139000
BH DUMPPART YES, ONLY DUMP AS FAR AS PPEND @V305066 00140000
LR R5,R7 ADD2 TO R5 @V305066 00141000
CVT BAL R6,CONVERT CVT HEX ADD TO ZONED FORMAT @V305066 00142000
MVC ADD2(6),ZONE ADD2 TO PLIST @V305066 00143000
MVC FREE(16),PLIST MOVE 'CP DUMP' TO PLIST @V305066 00144000
MVI DASH,HYPHEN MOVE ADDRESS DELIMITER TO PLIST @V305066 00145000
LA R1,FREE PLIST POINTER @V305066 00146000
LA R4,LEN2 LENGTH OF PDUMP PLIST @V305066 00147000
DC X'83140008' DIAGNOSE FOR PDUMP @V305066 00148000
RELEASE LR R1,R2 FREE STORAGE POINTER @V305066 00149000
LA R0,FOUR @VA05214 00150000
DMSFRET DWORDS=(0),LOC=(1),TYPCALL=BALR @VA05214 00150100
SVC SVC11 RETURN TO PROBLEM PROGRAM @V305066 00151000
DUMPPART L R5,EOCADR DUMP AS FAR AS EOCADR @V305066 00152000
B CVT GO TO CONVERT ADDRESS @V305066 00153000
CONVERT ST R5,WORK STORE ADDRESS @VA05214 00154000
UNPK ZONE,WORK+1(4) UNPACK TO ZONED FORMAT @VA05214 00155000
TR ZONE(6),TRTAB-240 CONVERT TO READABLE @VA05214 00156000
BR R6 RETURN TO EXECUTE DUMP REQUEST @V305066 00157000
EJECT 00158000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00159000
* ERROR MESSAGES * 00160000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00161000
SPACE 2 00162000
ERR20W ST R5,SAVEAD STORE INVALID ADDRESS @V305066 00163000
LA R5,SAVEAD POINT TO INVALID ADDRESS @V305066 00164000
DMSERR NUM=20,LET=W,SUB=(HEX4A,(R5)),TEXT='INVALID PDUMP ADDRE*00165000
SS ''........'' - NO DUMP OPERATION PERFORMED' @V305066 00166000
B RELEASE NO OPERATION, CONTINUE PROCESSING@V305066 00167000
EJECT 00168000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00169000
* CONSTANTS * 00170000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00171000
SPACE 2 00172000
PLIST DC CL8'CP' @V305066 00173000
DC CL8'DUMP' @V305066 00174000
DC 6X'F0' @V305066 00175000
DC CL1'-' @V305066 00176000
LEN1 EQU *-PLIST LENGTH OF DUMP PLIST @V305066 00177000
TRTAB DC C'0123456789ABCDEF' @VA05214 00177500
EJECT 00178000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00179000
* * 00180000
* EQUATES * 00181000
* * 00182000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00183000
SPACE 2 00184000
SVC6 EQU 6 SVC 6 @V305066 00185000
SVC11 EQU 11 SVC 11 @V305066 00186000
FOUR EQU 4 @VA06180 00187000
HYPHEN EQU C'-' DASH @V305066 00188000
EBCDIC EQU X'F0' INSURE PRINTABLE CHARACTER @V305066 00189000
EJECT 00190000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00191000
* DSECTS * 00192000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00193000
SPACE 2 00194000
FREE DSECT @V305066 00195000
DS CL8 @V305066 00196000
DS CL8 @V305066 00197000
ADD1 DS CL6 @V305066 00198000
DASH DS CL1 @V305066 00199000
ADD2 DS CL6 @V305066 00200000
LEN2 EQU *-FREE LENGTH OF PDUMP PLIST @V305066 00201000
ORG FREE @VA05214 00201500
SAVEAD DS 0F @VA05214 00202000
WORK DS CL5 @VA05214 00203000
ZONE DS CL7 @VA05214 00204000
EJECT 00205000
NUCON @V305066 00206000
EJECT 00207000
REGEQU @V305066 00208000
EJECT 00209000
BGCOM @V305066 00210000
DMSDMP CSECT @V305066 00211000
LTORG @V305066 00212000
ORG DMSDMP+X'300' @V305066 00213000
END 00214000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00216000
*. * 00217000
* MODULE NAME: * 00218000
* DMSDMP * 00219000
* * 00220000
* FUNCTION: * 00221000
* DMSDMP IS THE SIMULATED $$BDUMP/$$BPDUMP ROUTINE * 00222000
* UNDER CMS/DOS. DMSDMP IS ENTERED WHENEVER A DUMP OR * 00223000
* JDUMP MACRO IS ISSUED. DMSPDP IS AN ENTRY POINT FOR * 00224000
* PDUMP REQUESTS. IN BOTH CASES, A 'CP DUMP' COMMAND * 00225000
* IS ISSUED DIRECTING THE DUMP TO AN OFFLINE PRINTER. * 00226000
* * 00227000
* ATTRIBUTES: * 00228000
* REENTRANT * 00229000
* DISCONTIGUOUS SHARED SEGMENT * 00230000
* * 00231000
* ENTRY POINTS: * 00232000
* DMSDMP, DMSPDP * 00233000
* * 00234000
* ENTRY CONDITIONS: * 00235000
* DMSDMP IS INVOKED IN RESPONSE TO THE ISSUING OF A * 00236000
* DUMP/JDUMP MACRO. AN SVC 2 IS ISSUED FOR $$BDUMP IN * 00237000
* THE MACRO EXPANSION. DMSDMP WILL HANDLE CMS/DOS * 00238000
* REQUESTS TO $$BDUMP. NO SPECIAL ENTRY CONDITIONS ARE * 00239000
* ESTABLISHED. DMSPDP IS INVOKED IN RESPONSE TO THE * 00240000
* ISSUING OF A PDUMP MACRO. AN SVC 2 IS ISSUED FOR * 00241000
* $$BPDUMP. DMSPDP WILL HANDLE CMS/DOS REQUESTS TO * 00242000
* $$BPDUMP. AT ENTRY TO DMSPDP, THE USER'S REGISTER 0 * 00243000
* POINTS TO THE PDUMP ADDRESSES. * 00244000
* * 00245000
* EXIT CONDITIONS: * 00246000
* DMSPDP - EXIT VIA SVC 11 (RETURN TO PROBLEM PROGRAM * 00247000
* AFTER DUMP IS COMPLETE. * 00248000
* * 00249000
* DMSDMP - EXIT VIA SVC 6 (CANCEL). * 00250000
* * 00251000
* ERROR MESSAGES ISSUED BY THIS PROGRAM: * 00252000
* * 00253000
* DMSDMP020W INVALID PDUMP ADDRESS 'ADDRESS' - * 00254000
* NO DUMP OPERATION PERFORMED * 00255000
* * 00256000
* EXPLANATION: ONE OF THE FOLLOWING * 00257000
* CONDITIONS OCCURRED WHILE * 00258000
* PERFORMING A PDUMP REQUEST: * 00259000
* * 00260000
* 1. ADD1/ADD2 NEGATIVE * 00261000
* 2. ADD1 > PPEND IN BGCOM * 00262000
* 3. ADD1 > OR = ADD2 * 00263000
* * 00264000
* CALLS TO OTHER ROUTINES: * 00265000
* DMSFREB -OBTAIN FREE STORAGE * 00266000
* DIAGNOSE (CODE 8) TO PERFORM PDUMP FUNCTION. * 00267000
* DMSERR - ERROR MESSAGE * 00268000
* * 00269000
* EXTERNAL REFERENCES: * 00270000
* NUCON, REGEQU, BGCOM, DOSAVE * 00271000
* * 00272000
* CALLED BY: * 00273000
* DMSDMP WILL BE INVOKED IN RESPONSE TO SVC 2 FOR $$BDUMP* 00274000
* OR $$BJDUMP. DMSPDP WILL BE INVOKED IN RESPONSE TO * 00275000
* SVC 2 FOR $$BPDUMP. * 00276000
* * 00277000
* TABLES AND WORK AREAS: * 00278000
* PLIST - 'CP DUMP' PLIST * 00279000
* FREE - ACQUIRED FREE STORAGE FOR PURPOSES * 00280000
* OF ADDRESSES, SWITCHES AND PLISTS SINCE * 00281000
* DMSDMP/DMSPDP IS REENTRANT AND CANNOT MODIFY * 00282000
* ITS OWN STORAGE. * 00283000
* * 00284000
* REGISTER USAGE: * 00285000
* R0 - WORK REGISTER * 00286000
* R1 - PLIST POINTER, WORK REGISTER * 00287000
* R2 - FREE STORAGE POINTER * 00288000
* R3 - WORK REGISTER * 00289000
* R4 - WORK REGISTER * 00290000
* R5 - ADD1 * 00291000
* R6 - BAL RETURN REGISTER * 00292000
* R7 - ADD2 * 00293000
* R8 - NOT USED * 00294000
* R9 - NOT USED * 00295000
* R10 - NOT USED * 00296000
* R11 - NOT USED * 00297000
* R12 - BASE REGISTER * 00298000
* R13 - NOT USED * 00299000
* R14 - NOT USED * 00300000
* R15 - NOT USED * 00301000
* * 00302000
* OPERATION: * 00303000
* DMSDMP PERFORMS THE CP CONSOLE FUNCTION 'DUMP' AND * 00304000
* DUMPS FROM LOCATION 0 TO THE TOP OF VIRTUAL STORAGE. * 00305000
* DMSDMP EXITS WITH AN SVC 6 (CANCEL). * 00306000
* * 00307000
* DMSPDP FIRST VERIFIES THAT ADD1 AND ADD2 DO NOT VIOLATE* 00308000
* ANY OF THE RULES FOR ADDRESSES AS OUTLINED ABOVE UNDER * 00309000
* ERROR MESSAGES. IF ADD2 > PPEND IN BGCOM, ONLY STORAGE* 00310000
* UP TO PPEND IS DUMPED. THE PDUMP IS ACCOMPLISHED * 00311000
* VIA DIAGNOSE (CODE 8). PROCESSING CONTINUES AFTER * 00312000
* THE DUMP OPERATION EXIT IS MADE FROM DMSPDP VIA * 00313000
* SVC 11. * 00314000
* * 00315000
* * 00316000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00317000
SPACE 2 00318000
DMSDMP CSECT @V305066 00319000
USING FREE,R2 FREE STORAGE ADDRESSABILITY @V305066 00320000
DC CL8'$$BDUMP' @V305066 00321000
ENTRY DMSPDP @V305066 00322000
BALR R12,0 ESTABLISH OWN ADDRESSABILIIY @V305066 00323000
USING *,R12 @V305066 00324000
LA R1,PLIST PLIST POINTER @V305066 00325000
LA R3,LEN1 LENGTH OF DUMP PLIST @V305066 00326000
DC X'83',X'13',XL2'0008' DIAGNOSE FOR DUMP @V305066 00327000
SVC 6 CANCEL JOB @V305066 00328000
EJECT 00329000
DMSPDP EQU * ENTRY POINT FOR PDUMP @V305066 00330000
USING BGCOM,R3 PART. COMREG ADDRESSABILITY @V305066 00331000
USING NUCON,0 @V305066 00332000
DC CL8'$$BPDUMP' @V305066 00333000
BALR R12,0 ESTABLISH OWN ADDRESSABILIY @V305066 00334000
USING *,R12 @V305066 00335000
L R3,ASYSREF ADDRESS PART. COMM. REGION @V305066 00336000
LR R4,R0 SAVE POINTER TO PDUMP ADDRESSES @V305066 00337000
LA R0,7 OBTAIN 7 DOUBLEWORDS FREE STOR. @V305066 00338000
DMSFREE DWORDS=(0),TYPE=NUCLEUS,TYPCALL=BALR @V305066 00339000
LR R2,R1 R2 CONTAINS FREE STORAGE POINTER @V305066 00340000
L R5,0(R4) PDUMP ADD1 @V305066 00341000
L R7,4(,R4) ADD2 @V305066 00342000
CR R5,R7 ADD2 MUST BE > ADD1 @V305066 00343000
BNL ERR20W IF NOT, ERROR @V305066 00344000
LTR R5,R5 ADD1 MUST NOT BE NEGATIVE @V305066 00345000
BM ERR20W ERROR IF NEGATIVE @V305066 00346000
C R5,PPEND ADD1 > PPEND IN BGCOM @V305066 00347000
BH ERR20W YES, NO OPERATION @V305066 00348000
BAL R6,CONVERT CVT HEX ADD TO ZONED FORMAT @V305066 00349000
MVC ADD1(6),ZONE ADD1 TO PLIST @V305066 00350000
LTR R7,R7 ADD2 MUST NOT BE NEGATIVE @V305066 00351000
BM ERR20W ERROR, NO OPERATION @V305066 00352000
C R7,PPEND ADD2 > PPEND @V305066 00353000
BH DUMPPART YES, ONLY DUMP AS FAR AS PPEND @V305066 00354000
LR R5,R7 ADD2 TO R5 @V305066 00355000
CVT BAL R6,CONVERT CVT HEX ADD TO ZONED FORMAT @V305066 00356000
MVC ADD2(6),ZONE ADD2 TO PLIST @V305066 00357000
MVC FREE(16),PLIST MOVE 'CP DUMP' TO PLIST @V305066 00358000
MVI DASH,C'-' MOVE ADDRESS DELIMITER TO PLIST @V305066 00359000
LA R1,FREE PLIST POINTER @V305066 00360000
LA R4,LEN2 LENGTH OF PDUMP PLIST @V305066 00361000
DC X'83',X'14',XL2'0008' DIAGNOSE FOR PDUMP @V305066 00362000
RELEASE LR R1,R2 FREE STORAGE POINTER @V305066 00363000
DMSFRET DWORDS=7,LOC=(1),TYPCALL=BALR @V305066 00364000
SVC 11 RETURN TO PROBLEM PROGRAM @V305066 00365000
DUMPPART L R5,PPEND DUMP AS FAR AS PPEND @V305066 00366000
B CVT GO TO CONVERT ADDRESS @V305066 00367000
CONVERT CVD R5,DOUBLE CVT HEX ADD TO DECIMAL @V305066 00368000
UNPK ZONE(6),DOUBLE+5(3) UNPACK TO ZONED FORMAT @V305066 00369000
OI ZONE+5,X'F0' MAKE LAST CHARARATER PRINTABLE @V305066 00370000
BR R6 RETURN TO EXECUTE DUMP REQUEST @V305066 00371000
EJECT 00372000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00373000
* ERROR MESSAGES * 00374000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00375000
SPACE 2 00376000
ERR20W ST R5,SAVEAD STORE INVALID ADDRESS @V305066 00377000
LA R5,SAVEAD POINT TO INVALID ADDRESS @V305066 00378000
DMSERR NUM=20,LET=W,SUB=(HEX4A,(R5)),TEXT='INVALID PDUMP ADDRE*00379000
SS ''........'' - NO DUMP OPERATION PERFORMED' @V305066 00380000
B RELEASE NO OPERATION, CONTINUE @V305066 00381000
EJECT 00382000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00383000
* CONSTANTS * 00384000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00385000
SPACE 2 00386000
PLIST DC CL8'CP' @V305066 00387000
DC CL8'DUMP' @V305066 00388000
DC 6X'F0' @V305066 00389000
DC CL1'-' @V305066 00390000
LEN1 EQU *-PLIST LENGTH OF DUMP PLIST @V305066 00391000
EJECT 00392000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00393000
* DSECTS * 00394000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00395000
SPACE 2 00396000
FREE DSECT @V305066 00397000
DS CL8 @V305066 00398000
DS CL8 @V305066 00399000
ADD1 DS CL6 @V305066 00400000
DASH DS CL1 @V305066 00401000
ADD2 DS CL6 @V305066 00402000
LEN2 EQU *-FREE LENGTH OF PDUMP PLIST @V305066 00403000
DOUBLE DS D @V305066 00404000
ZONE DS CL6 @V305066 00405000
SAVEAD DS F @V305066 00406000
EJECT 00407000
NUCON @V305066 00408000
REGEQU @V305066 00409000
BGCOM @V305066 00410000
DMSDMP CSECT @V305066 00411000
LTORG @V305066 00412000
ORG DMSDMP+X'300' @V305066 00413000
END 00414000