ibm:vm370-lib:cp:dmkrnd.assemble_src
Table of Contents
DMKRND Source
References
- Fixes Applied : 1
- This Source Date : Thursday, December 7, 1978
- Last Fix ID : [R12806DK]
Source Listing
- DMKRND.ASSEMBLE.txt
- RND TITLE 'DMKRND (CP) VM/370 - RELEASE 6' 00001000
- ISEQ 73,80 VALIDATE SERIALIZATION OF INPUT @V200899 00002000
- *. 00003000
- * SUBROUTINE NAME - 00004000
- * 00005000
- * DMKRND 00006000
- * 00007000
- * FUNCTION - 00008000
- * 00009000
- * DMKRND IS THE INTERFACE BETWEEN THE VM/370 DUMP SPOOL FILE 00010000
- * AND THE OS-SSP DUMP FORMAT PROGRAM FOR PRINTING AND FORMAT- 00011000
- * TING DUMPS OF THE 3704 AND 3705 COMMUNICATIONS CONTROLLERS 00012000
- * 00013000
- * ATTRIBUTES - 00014000
- * 00015000
- * NON-REUSEABLE, INVOKED VIA NCPDUMP COMMAND IN CMS 00016000
- * 00017000
- * COMMAND LINE FORMAT - 00018000
- * 00019000
- * +---------+------------------------------------------------------+ 00020000
- * | | | 00021000
- * | NCPDUMP | <DUMPNN> <(<ERASE> <NOFORM> <MNEMONIC> <NCPBUFF><)>> | 00022000
- * | | | 00023000
- * +---------+------------------------------------------------------+ 00024000
- * 00025000
- * ENTRY CONDITIONS - 00026000
- * 00027000
- * GR15 = ADDRESS OF DMKRND (NCPDUMP) 00028000
- * GR14 = RETURN ADDRESS TO CMS MONITOR 00029000
- * GR13 = ADDRESS OF 18-WORD SAVEAREA 00030000
- * GR 1 = ADDRESS OF CMS PARAMETER BUFFER 00031000
- * 00032000
- * EXIT CONDITIONS - 00033000
- * 00034000
- * GR0-14 RESTORED 00035000
- * GR15 = RETURN CODE (SEE MESSAGES) OR ZERO (SUCCESSFUL) 00036000
- * 00037000
- * CALLS TO OTHER ROUTINES - 00038000
- * 00039000
- * FSSTATE - TO DETERMINE THE EXISTENCE OF A CMS FILE 00040000
- * FSERASE - TO ERASE A TEMPORARY OR WORK FILE 00041000
- * FSWRITE - TO CREATE OR ADD TO A CMS DISK FILE 00042000
- * FILEDEF - TO SPECIFY OS-SIMULATION DDNAMES FOR IFLDUMP 00043000
- * LINEDIT - TO BUILD AND TYPE INFORMATION MESSAGES 00044000
- * IFLDUMP - OS-SSP DUMP PROCESSOR FOR 3704/3705 CCU'S 00045000
- * 00046000
- * EXTERNAL REFERENCES - NONE 00047000
- * 00048000
- * TABLES / WORK AREAS - NONE 00049000
- * 00050000
- * NOTES - 00051000
- * 00052000
- * USE IS MADE OF THE DIAGNOSE CODE X'0034' TO READ 4096-BYTE 00053000
- * SPOOL RECORDS FROM THE DUMP FILE CREATED BY VM/370 CP. 00054000
- EJECT 00055000
- * REGISTER USAGE - 00056000
- * 00057000
- * GR14-15 LINKAGE REGISTERS 00058000
- * GR13 = SAVEAREA BASE ADDRESSABILITY 00059000
- * GR12 = MODULE BASE ADDRESSABILITY 00060000
- * GR11 = FSCB DSECT ADDRESSABILITY 00061000
- * GR0-10 ARE WORK REGISTERS 00062000
- * 00063000
- * OPERATION - 00064000
- * 00065000
- * 1. IF NO DUMP FILE WAS SPECIFIED ('DUMPNN' OMITTED), THE 00066000
- * DIAGNOSE X'0034' IS USED TO READ A DUMP SPOOL FILE ONTO 00067000
- * THE CMS PRIMARY DISK. A CHECK IS MADE FOR EXISTING FILES 00068000
- * WITH THE NAME 'DUMPNN NCPDUMP', WHERE 'NN' GOES FROM 00069000
- * '00' TO '09'. THE NEW DUMP FILE IS GIVEN THE FIRST SUCH 00070000
- * NAME WHICH DOES NOT ALREADY EXIST. AN INFORMATION MSG 00071000
- * IS TYPED INFORMING THE USER OF WHICH FILE WAS CREATED. 00072000
- * 00073000
- * 2. FOR EACH 4096-BYTE SPOOL RECORD, EIGHT 512-BYTE RECORDS 00074000
- * ARE WRITTEN INTO THE CMS DISK FILE. 00075000
- * 00076000
- * 3. AFTER THE CMS FILE HAS BEEN CREATED, THE CMS FILEDEF 00077000
- * FUNCTION IS USED TO SETUP THE DDNAME SPECIFICATIONS 00078000
- * EXPECTED BY IFLDUMP. THE CMS 'COMPSWT' IS USED TO FORCE 00079000
- * A CMS 'LOADMOD' WHEN THE OS LINK MACRO IS USED TO 00080000
- * EXECUTE THE IFLDUMP PROGRAM. ALL DUMP OUTPUT IS DIRECTED 00081000
- * TO THE VIRTUAL SPOOL PRINTER. A SINGLE-ITEM TEMPORARY 00082000
- * FILE IS CREATED TO PASS A CONTROL RECORD TO THE DUMP 00083000
- * PROCESSOR, AND THIS FILE IS ERASED FOLLOWING THE DUMP. 00084000
- * 00085000
- * RESPONSES - 00086000
- * 00087000
- * 'DUMPNN NCPDUMP' FILE CREATED. 00088000
- * 'DUMPNN NCPDUMP' FILE ERASED. 00089000
- * 00090000
- EJECT 00091000
- * ERROR MESSAGES - 00092000
- * 00093000
- * DMKRND850I UNABLE TO READ DUMP FROM READER 00094000
- * RETURN CODE = 21 00095000
- * 00096000
- * DMKRND851I TEN DUMP FILES ALREADY EXIST 00097000
- * RETURN CODE = 22 00098000
- * 00099000
- * DMKRND852I FATAL I/O ERROR WRITING DUMP 00100000
- * RETURN CODE = FROM FSWRITE MACRO 00101000
- * 00102000
- * DMKRND853I NO DUMP FILES EXIST 00103000
- * RETURN CODE = 23 00104000
- * 00105000
- * DMKRND861I FILE 'DUMPNN NCPDUMP' NOT FOUND 00106000
- * RETURN CODE = 28 00107000
- * 00108000
- * DMKRND863I INVALID PARAMETER - 'PARAMETER' 00109000
- * RETURN CODE = 24 00110000
- * 00111000
- * DMKRND870I UNABLE TO CREATE CONTROL FILE FOR IFLDUMP 00112000
- * RETURN CODE = 16 00113000
- *. 00114000
- EJECT 00115000
- DMKRND START 0 @V200899 00116000
- ENTRY NCPDUMP @V200820 00117000
- REGEQU @V200899 00118000
- NCPDUMP DS 0D 370X DUMP PROCESSOR INTERFACE @V200820 00119000
- STM R14,R12,12(R13) SAVE INPUT REGISTERS @V200820 00120000
- LR R12,R15 USE GR12 AS MODULE BASE @V200820 00121000
- USING NCPDUMP,R12 @V200820 00122000
- LA R14,SAVEAR POINT TO MY SAVE AREA @V200820 00123000
- ST R13,4(0,R14) BACK POINTER @V200820 00124000
- ST R14,8(0,R13) FWD POINTER @V200820 00125000
- LR R13,R14 . . . @V200820 00126000
- SPACE 2 00127000
- *---------------------------------------------------------------------* 00128000
- * DETERMINE DUMP FILENAME SPECIFIED (IF ANY) * 00129000
- *---------------------------------------------------------------------* 00130000
- USING DFSCB,R11 @V200820 00131000
- LA R11,OUTFSCB POINT TO THE DUMP FILE FSCB @V200820 00132000
- LA R4,8(0,R1) MOVE PNTR TO 2ND PLIST ENTRY @V200820 00133000
- CLC DUMP(4),0(R4) IS THIS A 'DUMPNN' FILENAME ? @V200820 00134000
- BNE TESTOPT BR IF NO - TEST OPTIONS @V200899 00135000
- MVC FSCBFN(8),0(R4) MOVE DEFINED FILE NAME TO FSCB@V200820 00136000
- LA R4,8(0,R4) MOVE PNTR PAST FILE NAME @V200820 00137000
- TESTOPT DS 0H @V200899 00138000
- CLI 0(R4),C'(' IS THIS THE START OF THE OPTIONS @V200899 00139000
- BE OPTIONS BR IF YES @V200899 00140000
- CLC FFS(8),0(R4) END OF OPTIONS ? @V200899 00141000
- BE OPTEND BR IF YES @V200899 00142000
- B OPTERROR INVALID PARAMETER - ERROR @V200820 00143000
- SPACE 00144000
- *---------------------------------------------------------------------* 00145000
- * ANALYZE SPECIFIED INPUT PARAMETERS * 00146000
- *---------------------------------------------------------------------* 00147000
- OPTIONS DS 0H @V200899 00148000
- LA R4,8(0,R4) MOVE PNTR TO NXT PARAMETER @V200899 00149000
- CLC FFS(8),0(R4) END OF OPTIONS ? @V200899 00150000
- BE OPTEND BR IF YES @V200899 00151000
- CLI 0(R4),C')' IS THIS THE END OF OPTIONS @V200899 00152000
- BE OPTEND BR IF YES @V200899 00153000
- LA R3,OPTLIST LOAD ADDR OF OPTION LIST @V200899 00154000
- LA R6,L'OPTLIST LENGTH OF OPTION LIST ENTRY @V200899 00155000
- LA R7,OPTLEND ENDING ADDR OF OPTION LIST @V200899 00156000
- OPTLOOP DS 0H @V200899 00157000
- CLC 0(8,R3),0(R4) VALID OPTION FOUND @V200899 00158000
- BE OPTFND BR IF YES @V200899 00159000
- BXLE R3,R6,OPTLOOP LOOP UNTIL END OF LIST @V200899 00160000
- B OPTERROR IF FALL-THRU INVALID PARM @V200899 00161000
- OPTFND DS 0H @V200899 00162000
- MVI 8(R3),X'01' SET OPTION 'ON' @V200899 00163000
- B OPTIONS @V200899 00164000
- EJECT 00165000
- *---------------------------------------------------------------------* 00166000
- * FIND THE FIRST 'DUMPNN NCPDUMP' FILEID AVAILABLE * 00167000
- *---------------------------------------------------------------------* 00168000
- OPTEND DS 0H @V200899 00169000
- CLC DUMP(4),FSCBFN WAS FILE NAME DEFINED @V200899 00170000
- BE STRTDUMP BR IF YES @V200899 00171000
- MVC FSCBFN(8),DUMP LOOK FOR AVAILABLE FILE @V200899 00172000
- SLR R3,R3 @VM08836 00173000
- ICM R3,2+1,DUMP+4 CHARACTER '00' FOR DUMP FNAME @VM08836 00174000
- LA R6,10(0) MAXIMUM NUMBER OF DUMP FILES @VM08836 00175000
- LOOKLOOP DS 0H @V200899 00176000
- FSSTATE FSCB=OUTFSCB,ERROR=READNXT JUMP WHEN FOUND @V200820 00177000
- LA R3,1(0,R3) BUMP TO NXT NAME @V200820 00178000
- STH R3,FSCBFN+4 STORE NXT SEQUENCE NAME @V200899 00179000
- BCT R6,LOOKLOOP SEARCH FOR A FREE NAME @VM08836 00180000
- SPACE 2 00181000
- NODUMP DS 0H TEN DUMP FILES ALREADY EXIST @V200820 00182000
- WRTERM 'DMKRND851I TEN DUMP FILES ALREADY EXIST', @V200820*00183000
- COLOR=R TYPE ERROR MESSAGE IN RED @V200820 00184000
- LA R15,22(0) ERROR RETURN CODE @V200820 00185000
- ST R15,SVREG15 SET FOR EXIT @V200820 00186000
- B RETURN @V200820 00187000
- EJECT 00188000
- *---------------------------------------------------------------------* 00189000
- * READ DUMP SPOOL FILE DATA INTO CMS DISK FILE * 00190000
- *---------------------------------------------------------------------* 00191000
- READNXT DS 0H READ SPOOL FILE VIA DIAGNOSE @V200820 00192000
- MSG 'SPOOL 00C CLASS E' NCPDUMP = CLASS E @V200820 00193000
- DC X'83100008' SETUP READER CLASS FOR DUMP @V200820 00194000
- LTR R0,R0 WAS SPOOL CMD SUCCESSFUL ? @VM08584 00195000
- BNZ UNAREAD NO -- CANNOT READ THE DUMP @VM08584 00196000
- L R6,INPUTAD ADDRESS OF 4096-BYTE BUFFER @V200820 00197000
- LA R7,X'00C' STANDARD CARD-READER ADDRESS @V200820 00198000
- DC X'83670034' READ SYSTEM DUMP SPOOL FILE @V200820 00199000
- BC 1,UNAREAD CANNOT READ THE DUMP FILE @V200820 00200000
- BC 2,NODFILE NO DUMP FILES EXIST @V200820 00201000
- BC 4,EODFILE END OF FILE REACHED (?) @V200820 00202000
- SPACE 2 00203000
- LA R2,8(0,0) NUMBER OF 512'S IN 4096 @V200820 00204000
- STH R2,FSCBNOR WRITE EIGHT RECORDS AT ONCE @V200820 00205000
- MVC FSCBLRL(4),=A(4096) BUFFER SIZE = 4096 @V200820 00206000
- B DUMPWRT WRITE THE FIRST 4K RECORD @VM08584 00207000
- SPACE 00208000
- SPOOLRD DS 0H READ FROM SPOOL, WRITE TO DISK @V200820 00209000
- DC X'83670034' READ ANOTHER RECORD (GR6,7 OK) @V200820 00210000
- BC 4+2,EODFILE END OF FILE REACHED @V200820 00211000
- BC 1,UNAREAD I/O ERROR READING DUMP FILE @V200820 00212000
- SPACE 00213000
- DUMPWRT DS 0H WRITE EIGHT 512-BYTE RECORDS @VM08584 00214000
- FSWRITE FSCB=OUTFSCB,BUFFER=(R6),ERROR=WRITERR @V200820 00215000
- B SPOOLRD READ FROM CP ONCE MORE @V200820 00216000
- EJECT 00217000
- *---------------------------------------------------------------------* 00218000
- * CLOSE CMS FILE AND SPOOL READER FILE * 00219000
- *---------------------------------------------------------------------* 00220000
- EODFILE DS 0H END OF DUMP FILE REACHED @V200820 00221000
- FSCLOSE FSCB=OUTFSCB CLOSE THE DUMPNN FILE @V200820 00222000
- LINEDIT TEXT='''.................'' FILE CREATED', @V200820*00223000
- SUB=(CHAR8A,OUTFSCB+8) @V200820 00224000
- SPACE 00225000
- MSG 'CLOSE 00C' CLOSE THE READER FILE @V200820 00226000
- DC X'83100008' . . . @V200820 00227000
- * B STRTDUMP SETUP FOR IFLDUMP EXECUTION @V200820 00228000
- EJECT 00229000
- *---------------------------------------------------------------------* 00230000
- * BUILD CONTROL FILE FOR IFLDUMP PROCESSING ROUTINE * 00231000
- *---------------------------------------------------------------------* 00232000
- STRTDUMP DS 0H @V200899 00233000
- MVC NAMEFIL1(8),FSCBFN NAME FOR SYSUT2 FILEDEF@V200820 00234000
- MVC NAMEFIL2(8),FSCBFN NAME FOR SYSIN FILEDEF @V200820 00235000
- MVC SYSINAM(8),FSCBFN NAME IN CONTROL RECORD @V200820 00236000
- LA R11,SYSFSCB POINT TO CONTROL-FILE FSCB @V200820 00237000
- MVC FSCBFN(8),SYSINAM FILENAME FOR CONTROL FILE @V200820 00238000
- FSSTATE FSCB=OUTFSCB,ERROR=FILENOT CHECK FOR DUMPN@V200820 00239000
- SPACE 00240000
- CLI NOFORM+8,X'00' HAS NOFORM BEEN SPECIFIED @V200899 00241000
- BE *+8 NO -- LEAVE IT 'YES' @V200820 00242000
- MVI FORMOPT,C'N' SET PARAMETER TO NOFORM @V200899 00243000
- CLI MNEMONIC+8,X'00' MENMONICS REQUESTED ? @V200820 00244000
- BE *+8 NO -- LEAVE IT AS IS @V200820 00245000
- MVI MNEMOPT,C'Y' SET PARAMETER TO MNEMONICS @V200899 00246000
- CLI NCPBUFF+8,X'00' FORMAT NCP BUFFER POOL? @V366838 00246250
- BE *+8 NOPE -- LEAVE OPTION AS IS @V366838 00246500
- MVI BUFFOPT,C'Y' YES -- SET UP THE ARG. @V366838 00246750
- FSERASE FSCB=SYSFSCB ERASE ANY OLD SYSIN FILE @V200899 00247000
- FSWRITE FSCB=SYSFSCB,ERROR=CTLFERR @V200899 00248000
- * B LINKDMP GO SETUP FOR IFLDUMP @V200820 00249000
- EJECT 00250000
- *---------------------------------------------------------------------* 00251000
- * ISSUE FILEDEF COMMANDS FOR IFLDUMP DDNAME DEFINITIONS * 00252000
- *---------------------------------------------------------------------* 00253000
- LINKDMP DS 0H @V200820 00254000
- LA R1,FILEDEF1 ADDR OF 1-ST FILE DEF @V200899 00255000
- SVC 202 DEFINE 'SYSUT2' DDNAME @V200820 00256000
- DC AL4(FILDERR) ERROR RETURN ADDRESS @V200820 00257000
- SPACE 00258000
- LA R1,FILEDEF2 ADDR OF 2-ND FILE DEF @V200899 00259000
- SVC 202 DEFINE 'SYSIN' DDNAME @V200820 00260000
- DC AL4(FILDERR) ERROR RETURN ADDRESS @V200820 00261000
- SPACE 00262000
- LA R1,FILEDEF3 ADDR OF 3-RD FILE DEF @V200899 00263000
- SVC 202 DEFINE 'SYSPRINT' DDNAME @V200820 00264000
- DC AL4(FILDERR) ERROR RETURN ADDRESS @V200820 00265000
- SPACE 00266000
- GETMAIN R,LV=X'5000' SIZE OF LONGEST IFLDUMP PATH @VA12806 00267100
- LR R10,R1 SAVE ADDRESS FOR LATER RELEASE @V200820 00268000
- SPACE 00269000
- COMPSWT ON SET SWITCH TO LOADMOD IFLDUMP @V200820 00270000
- SPACE 2 00271000
- LA R1,DUMPARAS ADDR OF DUMMY PARAMETER LIST @V200899 00272000
- LINK EP=IFLDUMP LINK TO OS IFLDUMP @V200820 00273000
- ST R15,SVREG15 SAVE RETURN CODE @V200899 00274000
- EJECT 00275000
- FREEMAIN R,LV=X'5000',A=(R10) RELEASE GOTTEN STORAGE @VA12806 00276100
- L R15,SVREG15 RESTORE RETURN CODE FROM IFLDUMP @V200820 00277000
- LTR R15,R15 TEST RETURN CODE FOR 00 @V200899 00278000
- BNZ RETURN @V200899 00279000
- CLI ERASE+8,X'00' WAS ERASE REQUESTED @V200899 00280000
- BE RETURN BR IF ERASE NOT REQUESTED @V200899 00281000
- FSERASE FSCB=OUTFSCB ERASE THE DUMPNN FILE @V200820 00282000
- LINEDIT TEXT='''.................'' FILE ERASED', @V200820*00283000
- SUB=(CHAR8A,OUTFSCB+8) FILE ERASED MESSAGE @V200820 00284000
- B RETURN @V200899 00285000
- EJECT 00286000
- *---------------------------------------------------------------------* 00287000
- * ERROR MESSAGES AND ERROR HANDLING * 00288000
- *---------------------------------------------------------------------* 00289000
- PRINT NOGEN 00290000
- OPTERROR DS 0H INVALID OPTION @V200820 00291000
- LINEDIT TEXT='DMKRND863I INVALID PARAMETER - ''........''', *00292000
- SUB=(CHAR8A,(R4)) TYPE ERROR MESSAGE @V200820 00293000
- LA R15,24(0) RETURN CODE = 24 @V200820 00294000
- ST R15,SVREG15 PASS ALONG FOR EXIT @V200820 00295000
- B RETURN @V200820 00296000
- SPACE 00297000
- UNAREAD DS 0H UNABLE TO READ DUMP FILE @V200820 00298000
- WRTERM 'DMKRND850I UNABLE TO READ DUMP FROM READER', @V200820*00299000
- COLOR=R TYPE ERROR IN RED @V200820 00300000
- FSCLOSE FSCB=OUTFSCB CLOSE FILE FOR PARTIAL DUMP @V200820 00301000
- LA R15,21(0) ERROR RETURN CODE @V200820 00302000
- ST R15,SVREG15 PASS ALONG FOR EXIT @V200820 00303000
- B RETURN @V200820 00304000
- SPACE 00305000
- WRITERR DS 0H FATAL I/O ERROR WRITING DUMP @V200820 00306000
- ST R15,SVREG15 PASS WRBUF ERROR RETURN CODE @V200820 00307000
- WRTERM 'DMKRND852I FATAL I/O ERROR WRITING DUMP', @V200820*00308000
- COLOR=R TYPE ERROR MESSAGE IN RED @V200820 00309000
- FSCLOSE FSCB=OUTFSCB CLOSE FILE FOR PARTIAL DUMP @V200820 00310000
- B RETURN RETURN CODE IS ALL SET @V200820 00311000
- SPACE 00312000
- FILENOT DS 0H DUMP FILE NOT FOUND @V200820 00313000
- LINEDIT TEXT='DMKRND861I FILE ''.................'' NOT FOUND*00314000
- ',SUB=(CHAR8A,OUTFSCB+8) FILE NOT FOUND MSG @V200820 00315000
- LA R15,28(0) ERROR RETURN CODE @V200820 00316000
- ST R15,SVREG15 PASS IT ALONG FOR RETURN @V200820 00317000
- B RETURN @V200820 00318000
- SPACE 00319000
- CTLFERR DS 0H UNABLE TO BUILD CONTROL FILE @V200820 00320000
- WRTERM 'DMKRND870I UNABLE TO CREATE CONTROL FILE FOR IFLDUMP'*00321000
- ,COLOR=R ERROR MESSAGES ARE RED @V200820 00322000
- LA R15,16(0) ERROR RETURN CODE @V200820 00323000
- ST R15,SVREG15 PASS IT ALONG @V200820 00324000
- B RETURN @V200820 00325000
- SPACE 00326000
- NODFILE DS 0H NO DUMP FILES IN THE READER @V200820 00327000
- WRTERM 'DMKRND853I NO DUMP FILES EXIST',COLOR=R @V200820 00328000
- LA R15,23(0) ERROR RETURN CODE @V200820 00329000
- ST R15,SVREG15 PASS IT ALONG @V200820 00330000
- B RETURN @V200820 00331000
- SPACE 00332000
- FILDERR DS 0H ERROR IN CALL TO FILEDEF @V200820 00333000
- ST R15,SVREG15 PASS ALONG FILEDEF ERROR @V200820 00334000
- PRINT GEN @V200820 00335000
- EJECT 00336000
- *---------------------------------------------------------------------* 00337000
- * ERASE CONTROL FILE, RETURN TO CMS MONITOR * 00338000
- *---------------------------------------------------------------------* 00339000
- RETURN DS 0H @V200899 00340000
- FSERASE FSCB=SYSFSCB ERASE DUMPNN SYSIN FILE @V200820 00341000
- MSG 'CLOSE PRT' CLOSE THE SPOOL PRINTER @V200820 00342000
- DC X'83100008' VIA CP CONSOLE FUNCTION @V200820 00343000
- L R13,4(0,R13) BACK POINTER TO SAVEAREA @V200820 00344000
- L R14,12(0,R13) RETURN ADDRESS @V200820 00345000
- L R15,SVREG15 RETURN CODE TO GR15 @V200820 00346000
- LM R0,R12,12(R13) RESTORE REGISTERS @V200820 00347000
- BR R14 @V200899 00348000
- EJECT 00349000
- *---------------------------------------------------------------------* 00350000
- * CONSTANTS, LITERALS, BUFFERS, AND CONTROL DATA AREAS * 00351000
- *---------------------------------------------------------------------* 00352000
- DUMP DC C'DUMP',C'00 ' DUMPNN FILENAME SKELETON @V200899 00353000
- DS 0H 1 OF 2 @V200899 00354000
- DMPNMEND DC C'09' HALF. BDRY END LOOKING FOR FILE @V200899 00355000
- FFS DC X'FFFFFFFFFFFFFFFF' DBL-WD OF X'FF' @V200820 00356000
- SPACE 3 00357000
- *---------------------------------------------------------------------* 00358000
- * PARAMETER LIST OPTION SEARCH TABLE * 00359000
- *---------------------------------------------------------------------* 00360000
- OPTLIST DS 0CL9 OPTION KEYWORD & SWITCH @V200899 00361000
- ERASE DC C'ERASE ',X'00' @V200899 00362000
- NOFORM DC C'NOFORM ',X'00' @V200899 00363000
- MNEMONIC DC C'MNEMONIC',X'00' @V200899 00364000
- NCPBUFF DC C'NCPBUFF ',X'00' @V366838 00364500
- OPTLEND EQU * END OF PARM'S @V200899 00365000
- SPACE 2 00366000
- *---------------------------------------------------------------------* 00367000
- * IFLDUMP DUMMY PARAMETER LIST * 00368000
- *---------------------------------------------------------------------* 00369000
- DUMPARAS DS 0F @V200899 00370000
- DC X'80000000' NO PARAMETERS PASSED @V200820 00371000
- EJECT 00372000
- *---------------------------------------------------------------------* 00373000
- * CMS COMMANDS * 00374000
- *---------------------------------------------------------------------* 00375000
- FILEDEF1 DS 0D FILEDEF FOR SYSUT2 @V200820 00376000
- DC CL8'FILEDEF ' @V200899 00377000
- DC CL8'SYSUT2 ' @V200899 00378000
- DC CL8'DISK ' @V200899 00379000
- NAMEFIL1 DC CL8' ' @V200899 00380000
- DC CL8'NCPDUMP ' @V200899 00381000
- DC CL8'A1 ' @V200899 00382000
- DC CL8'(',CL8'RECFM',CL8'F' @V200820 00383000
- DC CL8'BLOCK',CL8'512' @V200820 00384000
- DC CL8'XTENT',CL8'513' @V200820 00385000
- DC X'FFFFFFFFFFFFFFFF' @V200899 00387000
- SPACE 2 00388000
- FILEDEF2 DS 0D FILEDEF FOR SYSIN @V200899 00389000
- DC CL8'FILEDEF ' @V200899 00390000
- DC CL8'SYSIN ' @V200899 00391000
- DC CL8'DISK ' @V200899 00392000
- NAMEFIL2 DC CL8' ' @V200899 00393000
- DC CL8'SYSIN ',CL8'A1 ' @V200899 00394000
- DC X'FFFFFFFFFFFFFFFF' @V200899 00395000
- SPACE 2 00396000
- FILEDEF3 DS 0D FILEDEF FOR SYSPRINT @V200899 00397000
- DC CL8'FILEDEF ' @V200899 00398000
- DC CL8'SYSPRINT' @V200820 00399000
- DC CL8'PRINTER' @V200820 00400000
- DC X'FFFFFFFFFFFFFFFF' @V200899 00401000
- SPACE 2 00402000
- *---------------------------------------------------------------------* 00403000
- * CONTROL CARD SKELETON FOR IFLDUMP PROCESSOR * 00404000
- *---------------------------------------------------------------------* 00405000
- SYSINREC DS 0CL80 @V200899 00406000
- SYSINAM DC CL8' ' @V200899 00407000
- DC C' DUMP' @V200899 00408000
- DC C' FORMAT=' @V200899 00409000
- FORMOPT DC C'Y' @V200899 00410000
- DC C',MNEMONIC=' @V200899 00411000
- MNEMOPT DC C'N' @V200899 00412000
- DC C',BUF=' @V366838 00413250
- BUFFOPT DC C'N' @V366838 00413500
- DC 41C' ' @V366838 00413750
- EJECT 00414000
- *---------------------------------------------------------------------* 00415000
- * FILE SYSTEM CONTROL BLOCKS * 00416000
- *---------------------------------------------------------------------* 00417000
- OUTFSCB FSCB 'X NCPDUMP A1',BUFFER=INPUT,BSIZE=512 @V200820 00418000
- SPACE 2 00419000
- SYSFSCB FSCB 'DUMPNN SYSIN A1',BUFFER=SYSINREC,BSIZE=80 @V200820 00420000
- SPACE 2 00421000
- SVREG15 DC F'0' RETURN CODE HOLD FIELD @V200820 00422000
- SAVEAR DS 18F STANDARD OS-FORMAT SAVEAREA @V200820 00423000
- SPACE 00424000
- LTORG @V200899 00425000
- EJECT 00426000
- *---------------------------------------------------------------------* 00427000
- * SPOOL INPUT BUFFER AND DISK OUTPUT BUFFER * 00428000
- *---------------------------------------------------------------------* 00429000
- INPUTAD DC A(INPUT) ADDR OF INPUT/OUTPUT AREA @V200899 00430000
- ORG DMKRND+4096 START BUFFER ON PAGE BOUNDARY @V200899 00431000
- INPUT DS CL4096' ' OUTPUT & INPUT THE SAME FIELD @V200899 00432000
- SPACE 3 00433000
- *---------------------------------------------------------------------* 00434000
- * FILE SYSTEM CONTROL BLOCK DEFINITION * 00435000
- *---------------------------------------------------------------------* 00436000
- SPACE 00437000
- DFSCB DSECT , FILE SYSTEM CONTROL BLOCK @V200820 00438000
- FSCBCMD DS CL8 COMMAND NAME (FUNCTION) @V200820 00439000
- FSCBFN DS CL8 FILENAME @V200820 00440000
- FSCBFT DS CL8 FILETYPE @V200820 00441000
- FSCBFM DS CL2 FILEMODE @V200820 00442000
- FSCBITM DS 1H RELATIVE ITEM NUMBER @V200820 00443000
- FSCBBUF DS 1F BUFFER ADDRESS @V200820 00444000
- FSCBLRL DS 1F BUFFER SIZE IN BYTES @V200820 00445000
- FSCBFMT DS CL2 RECORD FORMAT (F/V) @V200820 00446000
- FSCBNOR DS 1H NUMBER OF ITEMS @V200820 00447000
- FSCBINC DS 1F NUMBER OF BYTES ACTUALLY READ @V200820 00448000
- DS 1F @V200820 00449000
- SPACE 2 @V200820 00450000
- END DMKRND @V200820 00451000
ibm/vm370-lib/cp/dmkrnd.assemble_src.txt · Last modified: 2023/08/06 13:37 by Site Administrator