cdc:nos2.source:opl.opl871:deck:dsdump
Deck DSDUMP
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.dsdump +++| IDENT DSDUMP 00002 M00S00002.dsdump +++| ENTRY DSDUMP 00003 M00S00003.dsdump +++| SYSCOM B1
| Line S00004 Modification History | |
|---|---|
M01 (Removed by) | ns2440 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00004.ns2440 ---| COMMENT 72/07/24. 72/10/05. DIRECT SUBSEQUENT DUMPS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2440 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00001.ns2440 +++| TITLE DSDUMP - DIRECT SUBSEQUENT DUMPS. 00006 M01S00002.ns2440 +++|*COMMENT DSDUMP - DIRECT SUBSEQUENT DUMPS.
| Line S00005 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00005.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | ns2440 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00006.ns2440 ---| TITLE DSDUMP - DIRECT SUBSEQUENT DUMPS. 00010 M00S00007.dsdump +++| SPACE 4 00011 M00S00008.dsdump +++|***** DSDUMP - DIRECT SUBSEQUENT DUMPS. 00012 M00S00009.dsdump +++|* 00013 M00S00010.dsdump +++|* A. J. KOMOR. 72/07/24. 00014 M00S00011.dsdump +++|* J. R. HOGUE. 72/10/05. 00015 M00S00012.dsdump +++|* W. E. MARTIN. 78/12/30. 00016 M00S00013.dsdump +++| SPACE 4 00017 M00S00014.dsdump +++|* COMMON TEXTS. 00018 M00S00015.dsdump +++| 00019 M00S00016.dsdump +++| 00020 M00S00017.dsdump +++|*CALL COMCMAC 00021 M00S00018.dsdump +++|*CALL COMKMAC 00022 M00S00019.dsdump +++|*CALL COMSPRD 00023 M00S00020.dsdump +++| SPACE 4,75 00024 M00S00021.dsdump +++|*** DSDUMP - DIRECT SUBSEQUENT DUMPS. 00025 M00S00022.dsdump +++|* 00026 M00S00023.dsdump +++|* DSDUMP IS A PRODUCT SET INTERFACE WHICH ALLOWS THE APPLI- 00027 M00S00024.dsdump +++|* CATION PROGRAMMER TO CHANGE ANY OF THE DEFAULT VALUES OF A 00028 M00S00025.dsdump +++|* CMDUMP REQUEST. THE DSDUMP DOES NOT CAUSE A DUMP IN ITSELF, 00029 M00S00026.dsdump +++|* EXCEPT, WHEN THE SYSTEM DETECTS AN ERROR (I.E. ABORT). ANY 00030 M00S00027.dsdump +++|* DEFAULT VALUES ON THE DSDUMP ARE SATISFIED FROM THE GENERAL 00031 M00S00028.dsdump +++|* DEFAULT VALUES WHICH ARE ASSEMBLED IN THE EXECUTIVE. 00032 M00S00029.dsdump +++|* 00033 M00S00030.dsdump +++|* CALLING FORMATS - 00034 M00S00031.dsdump +++|* 00035 M00S00032.dsdump +++|* COBOL - 00036 M00S00033.dsdump +++|* 00037 M00S00034.dsdump +++|* ENTER DSDUMP USING FWA, LWA, EP, DB, OQ, QD. 00038 M00S00035.dsdump +++|* 00039 M00S00036.dsdump +++|* FORTRAN EXTENDED - 00040 M00S00037.dsdump +++|* 00041 M00S00038.dsdump +++|* CALL DSDUMP(FWA,LWA,EP,DB,OQ,QD) 00042 M00S00039.dsdump +++|* 00043 M00S00040.dsdump +++|* FWA BEGINNING ADDRESS, LEGAL VALUES - FWA .LT. FL. 00044 M00S00041.dsdump +++|* IF NEGATIVE (BIT 17 SET) USE DEFAULT. 00045 M00S00042.dsdump +++|* COBOL COMP-1. 00046 M00S00043.dsdump +++|* FORTRAN EXTENDED INTEGER. 00047 M00S00044.dsdump +++|* 00048 M00S00045.dsdump +++|* LWA LAST WORD ADDRESS, LEGAL VALUES - FWA .LT. FL. 00049 M00S00046.dsdump +++|* .EQ. 0 - IMPLIES NO DUMP OF FIELD LENGTH. 00050 M00S00047.dsdump +++|* IF NEGATIVE (BIT 17 SET) USE DEFAULT. 00051 M00S00048.dsdump +++|* COBOL COMP-1. 00052 M00S00049.dsdump +++|* FORTRAN EXTENDED INTEGER. 00053 M00S00050.dsdump +++|* 00054 M00S00051.dsdump +++|* EP EXCHANGE PACKAGE, LEGAL VALUES - 00055 M00S00052.dsdump +++|* .EQ. 0 - OPTION NOT DESIRED. 00056 M00S00053.dsdump +++|* .NE. 0 - OPTION SELECTED. 00057 M00S00054.dsdump +++|* IF NEGATIVE (BIT 59 SET) USE DEFAULT. 00058 M00S00055.dsdump +++|* COBOL COMP-1. 00059 M00S00056.dsdump +++|* FORTRAN EXTENDED INTEGER. 00060 M00S00057.dsdump +++|* 00061 M00S00058.dsdump +++|* DB DATA BUFFERS DUMP, LEGAL VALUES - 00062 M00S00059.dsdump +++|* .EQ. 0 - OPTION NOT DESIRED. 00063 M00S00060.dsdump +++|* .NE. 0 - OPTIONSELECTED. 00064 M00S00061.dsdump +++|* IF NEGATIVE (BIT 59 SET) USE DEFAULT. 00065 M00S00062.dsdump +++|* COBOL COMP-1. 00066 M00S00063.dsdump +++|* FORTRAN EXTENDED INTEGER. 00067 M00S00064.dsdump +++|* 00068 M00S00065.dsdump +++|* OQ OUTPUT QUEUE, LEGAL VALUES - 00069 M00S00066.dsdump +++|* .EQ. O - DUMP TO BATCH PRINTER. 00070 M00S00067.dsdump +++|* .EQ. 1 - DUMP TO E/I 200. 00071 M00S00068.dsdump +++|* .EQ 2 - DUMP TO USER PERMANENT FILE. 00072 M00S00069.dsdump +++|* IF NEGATIVE (BIT 59 SET) USE DEFAULT. 00073 M00S00070.dsdump +++|* COBOL COMP-1. 00074 M00S00071.dsdump +++|* FORTRAN EXTENDED INTEGER. 00075 M00S00072.dsdump +++|* 00076 M00S00073.dsdump +++|* QD QUEUE DESTINATION, LEGAL VALUES - 00077 M00S00074.dsdump +++|* IF PRINTER IS SPECIFIED IN PREVIOUS PARAMETER, 00078 M00S00075.dsdump +++|* PRINTER I.D. IS SPECIFIED IN NUMERIC CHARACTERS 00079 M00S00076.dsdump +++|* RIGHT JUSTIFIED WITHIN WORD. 00080 M00S00077.dsdump +++|* IF NEGATIVE (BIT 17 SET) USE DEFAULT. 00081 M00S00078.dsdump +++|* 00082 M00S00079.dsdump +++|* IF E/I 200 IS SPECIFIED IN PREVIOUS PARAMETER, THE 00083 M00S00080.dsdump +++|* ACCOUNT NUMBER IS SPECIFIED IN DISPLAY CODED LEFT 00084 M00S00081.dsdump +++|* JUSTIFIED CHARACTERS. MAXIMUM LENGTH IS SEVEN 00085 M00S00082.dsdump +++|* CHARACTERS. 00086 M00S00083.dsdump +++|* IF NEGATIVE (BIT 59 SET) USE DEFAULT. 00087 M00S00084.dsdump +++|* 00088 M00S00085.dsdump +++|* IF USER PERMANENT FILE IS SPECIFIED, THE PERMANENT 00089 M00S00086.dsdump +++|* FILE NAME IS SPECIFIED IN DISPLAY CODED LEFT 00090 M00S00087.dsdump +++|* JUSTIFIED CHARACTERS. ANY LEGAL FILE NAME IS 00091 M00S00088.dsdump +++|* PERMISSIBLE WITH A MAXIMUM OF SEVEN CHARACTERS. 00092 M00S00089.dsdump +++|* IF NEGATIVE (BIT 59 SET) USE DEFAULT. 00093 M00S00090.dsdump +++|* 00094 M00S00091.dsdump +++|* 00095 M00S00092.dsdump +++|* USES A - 1, 2, 3, 4, 6, 7. 00096 M00S00093.dsdump +++|* X - ALL. 00097 M00S00094.dsdump +++|* B - 1, 3. 00098 M00S00095.dsdump +++|* 00099 M00S00096.dsdump +++|* CALLS ZFN. 00100 M00S00097.dsdump +++|* 00101 M00S00098.dsdump +++|* MACROS DSDUMP. 00102 M00S00099.dsdump +++| 00103 M00S00100.dsdump +++| 00104 M00S00101.dsdump +++| VFD 42/0LDSDUMP,18/DSDUMP 00105 M00S00102.dsdump +++| 00106 M00S00103.dsdump +++| DSD5 SA1 DSDB RESTORE (A0) 00107 M00S00104.dsdump +++| SA0 X1+ 00108 M00S00105.dsdump +++| 00109 M00S00106.dsdump +++| DSDUMP SUBR ENTRY/RETURN 00110 M00S00107.dsdump +++| SX6 A0 SAVE (A0) 00111 M00S00108.dsdump +++| MX5 60-18 00112 M00S00109.dsdump +++| SA6 DSDB 00113 M00S00110.dsdump +++| SB1 1 00114 M00S00111.dsdump +++| SA4 X1 READ FWA PARAMETER ADDRESS 00115 M00S00112.dsdump +++| SA3 A1+B1 READ LWA PARAMETER ADDRESS 00116 M00S00113.dsdump +++| BX6 -X5*X4 00117 M00S00114.dsdump +++| SA2 X3 READ LWA 00118 M00S00115.dsdump +++| BX2 -X5*X2 00119 M00S00116.dsdump +++| LX2 30 00120 M00S00117.dsdump +++| BX6 X2+X6 (X6) = LWA AND FWA 00121 M00S00118.dsdump +++| SA1 A3+B1 READ EXCHANGE POINT PARAMETER 00122 M00S00119.dsdump +++| SA3 A1+B1 READ DATA BASE PARAMETER ADDRESS 00123 M00S00120.dsdump +++| SA2 X1 READ EXCHANGE PACKAGE DUMP FLAG 00124 M00S00121.dsdump +++| SA1 X3 READ DATA BASE DUMP FLAG 00125 M00S00122.dsdump +++| BX3 X3-X3 00126 M00S00123.dsdump +++| SA4 A3+B1 READ OUTPUT QUEUE PARAMETER ADDRESS 00127 M00S00124.dsdump +++| SX7 X1 00128 M00S00125.dsdump +++| ZR X7,DSD1 IF DATA BUFFER DUMP NOT DESIRED 00129 M00S00126.dsdump +++| SX3 B1 00130 M00S00127.dsdump +++| LX3 58 00131 M00S00128.dsdump +++| PL X1,DSD1 IF NOT DEFAULT PARAMETER 00132 M00S00129.dsdump +++| LX3 -2 00133 M00S00130.dsdump +++| DSD1 SX7 X2 00134 M00S00131.dsdump +++| BX1 X1-X1 00135 M00S00132.dsdump +++| ZR X7,DSD2 IF EXCHANGE PACKAGE DUMP NOT DESIRED 00136 M00S00133.dsdump +++| MX1 1 00137 M00S00134.dsdump +++| PL X2,DSD2 IF NOT DEFAULT PARAMETER 00138 M00S00135.dsdump +++| LX1 -2 00139 M00S00136.dsdump +++| DSD2 BX6 X6+X3 (X6) = LWA + FWA + DB 00140 M00S00137.dsdump +++| SA3 A4+B1 READ SIXTH PARAMETER POINTER 00141 M00S00138.dsdump +++| BX6 X6+X1 (X6) = LWA + FWA + DB + EP 00142 M00S00139.dsdump +++| SA2 X4 READ OUTPUT QUEUE 00143 M00S00140.dsdump +++| SA6 DSDA 00144 M00S00141.dsdump +++| BX0 -X5*X2 00145 M00S00142.dsdump +++| SA1 X3 READ QUEUE DESTINATION 00146 M00S00143.dsdump +++| SB3 X0+ 00147 M00S00144.dsdump +++| ZR B3,DSD3 IF DUMP IS TO LOCAL PRINTER 00148 M00S00145.dsdump +++| RJ ZFN ZERO FILL NAME 00149 M00S00146.dsdump +++| EQ DSD4 PROCESS QUEUE DESTINATION PARAMETER 00150 M00S00147.dsdump +++| 00151 M00S00148.dsdump +++| DSD3 BX5 -X5 00152 M00S00149.dsdump +++| DSD4 BX7 X5*X1 EXTRACT QUEUE DESTINATION 00153 M00S00150.dsdump +++| BX7 X7+X0 (X7) = DESTINATION + QUEUE 00154 M00S00151.dsdump +++| SA7 A6+1 00155 M00S00152.dsdump +++| DSDUMP DSDA ISSUE REQUEST TO EXECUTIVE 00156 M00S00153.dsdump +++| EQ DSD5 RESTORE (A0) AND RETURN 00157 M00S00154.dsdump +++| 00158 M00S00155.dsdump +++| DSDA VFD 1/1,1/1,1/0,1/0,8/,18/3LLWA,12/0,18/3LFWA 00159 M00S00156.dsdump +++| VFD 42/2LQD,18/2LOT 00160 M00S00157.dsdump +++| DSDB CON 0 STORAGE FOR (A0) 00161 M00S00158.dsdump +++| SPACE 4 00162 M00S00159.dsdump +++|* COMMON DECK. 00163 M00S00160.dsdump +++| 00164 M00S00161.dsdump +++| 00165 M00S00162.dsdump +++|*CALL COMKZFN 00166 M00S00163.dsdump +++| SPACE 4 00167 M00S00164.dsdump +++| END
cdc/nos2.source/opl.opl871/deck/dsdump.txt · Last modified: by 127.0.0.1