cdc:nos2.source:opl.opl871:deck:dmpccc
Deck DMPCCC
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.dmpccc +++| IDENT DMPCCC,ORG 00002 M00S00002.dmpccc +++| ABS 00003 M00S00003.dmpccc +++| SST 00004 M00S00004.dmpccc +++| ENTRY DMPCCC 00005 M00S00005.dmpccc +++| ENTRY RFL= 00006 M00S00006.dmpccc +++| ENTRY SSJ= 00007 M00S00007.dmpccc +++| SYSCOM B1 00008 M00S00008.dmpccc +++|*COMMENT 84/04/01. DMPCCC - DUMP CCC MEMORY.
| Line S00009 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1984.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M00S00010.dmpccc +++| TITLE DMPCCC - DUMP *CCC* MEMORY. 00012 M00S00011.dmpccc +++| SPACE 4 00013 M00S00012.dmpccc +++|*** DMPCCC - DUMP CCC MEMORY. 00014 M00S00013.dmpccc +++|* L. E. LOVETT 84/04/01. 00015 M00S00014.dmpccc +++| SPACE 4,10 00016 M00S00015.dmpccc +++|*** DMPCCC - DUMP CCC MEMORY. 00017 M00S00016.dmpccc +++|* 00018 M00S00017.dmpccc +++|* *DMPCCC* PROVIDES THE CAPABILITY TO DYNAMICALLY AUTODUMP 00019 M00S00018.dmpccc +++|* THE *CCC* MEMORY. THE CALLING JOB MUST BE SYSTEM ORIGIN 00020 M00S00019.dmpccc +++|* OR THE USER MUST BE VALIDATED FOR SYSTEM ORIGIN PRIVILEGES, 00021 M00S00020.dmpccc +++|* AND THE SYSTEM MUST BE IN ENGINEERING MODE. 00022 M00S00021.dmpccc +++|* 00023 M00S00022.dmpccc +++|* *DMPCCC* READS THE *CCC* MEMORY VIA THE *PP* PROGRAM *DCC* 00024 M00S00023.dmpccc +++|* AND FORMATS THE DATA INTO AN OUTPUT FILE. *DMPCCC* WILL ISSUE 00025 M00S00024.dmpccc +++|* APPROPRIATE MESSAGES TO INDICATE THE SUCCESS OR FAILURE OF 00026 M00S00025.dmpccc +++|* THE AUTODUMP ATTEMPT. 00027 M00S00026.dmpccc +++| SPACE 4,10 00028 M00S00027.dmpccc +++|*** COMMAND FORMAT. 00029 M00S00028.dmpccc +++|* 00030 M00S00029.dmpccc +++|* DMPCCC(C=CH,L=LFN) 00031 M00S00030.dmpccc +++|* 00032 M00S00031.dmpccc +++|* CH CHANNEL NUMBER TO DUMP *CCC* FROM. THE SPECIFIED
| Line S00032 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00033 M01S00032.252l678 ---|* CHANNEL MUST BE IN THE RANGE 0 - 13B OR 20B - 33B.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00034 M01S00001.252l678 +++|* CHANNEL MUST BE IN THE RANGE 0 - 13B OR 20B - 33B OR 00035 M01S00002.252l678 +++|* C0 - C11B FOR CONCURRENT CHANNELS. 00036 M00S00033.dmpccc +++|* CHANNEL 0 WILL BE ASSUMED IF NO CHANNEL IS SPECIFIED 00037 M00S00034.dmpccc +++|* ON THE CALL. 00038 M00S00035.dmpccc +++|* 00039 M00S00036.dmpccc +++|* LFN OUTPUT FILE NAME. DEFAULT IS *OUTPUT*. 00040 M00S00037.dmpccc +++| SPACE 4,10 00041 M00S00038.dmpccc +++|*** DAYFILE MESSAGES. 00042 M00S00039.dmpccc +++|* 00043 M00S00040.dmpccc +++|* * DUMP COMPLETE.* 00044 M00S00041.dmpccc +++|* INFORMATIVE MESSAGE INDICATING THE COMPLETION OF THE 00045 M00S00042.dmpccc +++|* DUMP UTILITY. 00046 M00S00043.dmpccc +++|* 00047 M00S00044.dmpccc +++|* * EQUIVALENCE MISSING.* 00048 M00S00045.dmpccc +++|* A SYNTAX ERROR WAS ENCOUNTERED WITH THE COMMAND. THE 00049 M00S00046.dmpccc +++|* COMMAND PARAMETER WAS NOT SEPARATED FROM ITS EQUIVALENC 00050 M00S00047.dmpccc +++|* VALUE BY AN *=*. 00051 M00S00048.dmpccc +++|* 00052 M00S00049.dmpccc +++|* * INCORRECT CHANNEL NUMBER.* 00053 M00S00050.dmpccc +++|* THE SPECIFIED CHANNEL NUBER WAS NOT IN THE RANGE
| Line S00051 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00054 M01S00051.252l678 ---|* 0 - 13B OR 20B - 33B.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00055 M01S00003.252l678 +++|* 0 - 13B OR 20B - 33B OR C0 - C11B. 00056 M00S00052.dmpccc +++|* 00057 M00S00053.dmpccc +++|* * 8/9 NOT ALLOWED IN OCTAL FIELD.* 00058 M00S00054.dmpccc +++|* THE CHANNEL NUMBER WAS SPECIFIED WITH A POST SUFFIX 00059 M00S00055.dmpccc +++|* OF *B* WHILE AN *8* OR *9* WAS SPECIFIED. 00060 M00S00056.dmpccc +++|* 00061 M00S00057.dmpccc +++|* * NUMERIC FIELD MUST NOT BE BLANK.* 00062 M00S00058.dmpccc +++|* NO CHANNEL VALUE WAS SPECIFIED WITH THE *C* PARAMETER. 00063 M00S00059.dmpccc +++|* 00064 M00S00060.dmpccc +++|* * INCORRECT DIRECTIVE NAME.* 00065 M00S00061.dmpccc +++|* AN UNRECOGNIZED PARAMETER HAS BEEN SPECIFIED ON THE 00066 M00S00062.dmpccc +++|* COMMAND. 00067 M00S00063.dmpccc +++| 00068 M00S00064.dmpccc +++| SPACE 4,10 00069 M00S00065.dmpccc +++|** COMMON DECKS. 00070 M00S00066.dmpccc +++| 00071 M00S00067.dmpccc +++| 00072 M00S00068.dmpccc +++|*CALL COMCMAC 00073 M00S00069.dmpccc +++| SPACE 4 00074 M00S00070.dmpccc +++|** ASSEMBLY CONSTANTS. 00075 M00S00071.dmpccc +++| 00076 M00S00072.dmpccc +++| 00077 M00S00073.dmpccc +++| LNP EQU 84 LINES/PRINTER PAGE 00078 M00S00074.dmpccc +++| CCSZ EQU 40000B *CCC* MEMORY SIZE 00079 M00S00075.dmpccc +++| CCSZA SET CCSZ*2+4 00080 M00S00076.dmpccc +++| NMBL SET CCSZA/5+100B DUMP BUFFER SIZE 00081 M00S00077.dmpccc +++| LFBL EQU 2001B LIST FILE BUFFER LENGTH 00082 M00S00078.dmpccc +++| WBFL EQU 64 WORKING BUFFER LENGTH 00083 M00S00079.dmpccc +++| 00084 M00S00080.dmpccc +++| 00085 M00S00081.dmpccc +++| SSJ= EQU 400000B 00086 M00S00082.dmpccc +++| TITLE DATA ASSIGNMENTS. 00087 M00S00083.dmpccc +++| DATA SPACE 4 00088 M00S00084.dmpccc +++|** DATA ASSIGNMENTS. 00089 M00S00085.dmpccc +++| 00090 M00S00086.dmpccc +++| 00091 M00S00087.dmpccc +++| 00092 M00S00088.dmpccc +++| ORG 110B 00093 M00S00089.dmpccc +++| ORG BSS 0 00094 M00S00090.dmpccc +++| 00095 M00S00091.dmpccc +++| L BSS 0 LIST FILE 00096 M00S00092.dmpccc +++| OUTPUT FILEC LFB,LFBL,FET=8 00097 M00S00093.dmpccc +++| ORG L 00098 M00S00094.dmpccc +++| CON 0LOUTPUT+15B 00099 M00S00095.dmpccc +++| ORG L+8 00100 M00S00096.dmpccc +++| 00101 M00S00097.dmpccc +++| N FILEB NMB,NMBL,FET=9 00102 M00S00098.dmpccc +++| ORG N 00103 M00S00099.dmpccc +++| VFD 12/0,18/0,18/0,12/0 00104 M00S00100.dmpccc +++| ORG N+9 00105 M00S00101.dmpccc +++| 00106 M00S00102.dmpccc +++| BA CON LB1 BUFFER ADDRESS 00107 M00S00103.dmpccc +++| NA CON 0 CCC ADDRESS 00108 M00S00104.dmpccc +++| NL CON 0#4000 LIMIT ADDRESS
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00109 M01S00004.252l678 +++| CCHF CON 0 CONCURRENT CHANNEL FLAG 00110 M00S00105.dmpccc +++| SPACE 4 00111 M00S00106.dmpccc +++|** LIST FILE CONTROLS. 00112 M00S00107.dmpccc +++| 00113 M00S00108.dmpccc +++| 00114 M00S00109.dmpccc +++| LN CON 10000 LINE NUMBER 00115 M00S00110.dmpccc +++| LP CON LNP LINES/PAGE 00116 M00S00111.dmpccc +++| PN CON 0 PAGE NUMBER 00117 M00S00112.dmpccc +++| 00118 M00S00113.dmpccc +++| TTL DATA H*1 DUMP OF * PAGE TITLE LINE
| Line S00114 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00119 M01S00114.252l678 ---| DATA 10H CCC, CH00 00120 M01S00115.252l678 ---| DATA 40H.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00121 M01S00005.252l678 +++| DATA 10H CCC, CH 00122 M01S00006.252l678 +++| DATA 40H00. 00123 M00S00116.dmpccc +++| DTE BSS 1 DATE FOR OUTPUT 00124 M00S00117.dmpccc +++| TME BSS 1 TIME FOR OUTPUT 00125 M00S00118.dmpccc +++| PGE BSS 1 PAGE FOR OUTPUT 00126 M00S00119.dmpccc +++| CON 0 00127 M00S00120.dmpccc +++| 00128 M00S00121.dmpccc +++| STL DATA 10H0 00129 M00S00122.dmpccc +++| DATA C* 0 1 2 3 4 5 6 7 8 00130 M00S00123.dmpccc +++|, 9 A B C D E F* 00131 M00S00124.dmpccc +++| TITLE MAIN PROGRAM. 00132 M00S00125.dmpccc +++| DMP SPACE 4,20 00133 M00S00126.dmpccc +++|** DMPCCC - MAIN PROGRAM. 00134 M00S00127.dmpccc +++| 00135 M00S00128.dmpccc +++| 00136 M00S00129.dmpccc +++| DMPCCC RJ PRS PRESET PROGRAM 00137 M00S00130.dmpccc +++| DMP1 SA1 NA ADVANCE *CCC* ADDRESS 00138 M00S00131.dmpccc +++| SX6 X1+16 00139 M00S00132.dmpccc +++| SA6 A1 00140 M00S00133.dmpccc +++| SA4 NL 00141 M00S00134.dmpccc +++| IX4 X1-X4 00142 M00S00135.dmpccc +++| PL X4,DMP5 IF END OF DUMP 00143 M00S00136.dmpccc +++| RJ CHD CONVERT ADDRESS TO DISPLAY 00144 M00S00137.dmpccc +++| SA1 BA SET BUFFER ADDRESS 00145 M00S00138.dmpccc +++| LX6 30 00146 M00S00139.dmpccc +++| MX0 48 00147 M00S00140.dmpccc +++| SB3 6 00148 M00S00141.dmpccc +++| BX0 X0*X6 00149 M00S00142.dmpccc +++| SB2 X1 00150 M00S00143.dmpccc +++| RJ RDL READ DUMP LINE 00151 M00S00144.dmpccc +++| NZ X1,DMP4 IF END OF DATA 00152 M00S00145.dmpccc +++| SA1 BA SET BUFFER ADDRESS 00153 M00S00146.dmpccc +++| SX2 LB1&LB2 TOGGLE BUFFER 00154 M00S00147.dmpccc +++| BX6 X1-X2 COMPARE BUFFERS 00155 M00S00148.dmpccc +++| SA3 X1+B1 00156 M00S00149.dmpccc +++| MX7 1 00157 M00S00150.dmpccc +++| SA4 X6+B1 00158 M00S00151.dmpccc +++| BX7 X7+X1 00159 M00S00152.dmpccc +++| SX6 X6 00160 M00S00153.dmpccc +++| DMP2 BX2 X3-X4 00161 M00S00154.dmpccc +++| SA3 A3+B1 00162 M00S00155.dmpccc +++| SA4 A4+B1 00163 M00S00156.dmpccc +++| NZ X2,DMP3 IF LINE NOT DUPLICATE 00164 M00S00157.dmpccc +++| NG X2,DMP3 IF LINE NOT DUPLICATE 00165 M00S00158.dmpccc +++| NZ X3,DMP2 IF NOT END OF NEW LINE 00166 M00S00159.dmpccc +++| NG X1,DMP1 IF DUPLICATE LINES WRITTEN 00167 M00S00160.dmpccc +++| SA7 A1 SET DUPLICATE LINES WRITTEN 00168 M00S00161.dmpccc +++| SB2 =C* DUPLICATED LINES.* 00169 M00S00162.dmpccc +++| RJ LSL LIST LINE 00170 M00S00163.dmpccc +++| EQ DMP1 GET NEXT LINE TO PRINT 00171 M00S00164.dmpccc +++| 00172 M00S00165.dmpccc +++| DMP3 SA6 A1 00173 M00S00166.dmpccc +++| SB2 X1 00174 M00S00167.dmpccc +++| RJ LSL LIST LINE 00175 M00S00168.dmpccc +++| EQ DMP1 GET NEXT LINE TO PRINT 00176 M00S00169.dmpccc +++| 00177 M00S00170.dmpccc +++| DMP4 SA1 BA BUFFER ADDRESS 00178 M00S00171.dmpccc +++| SB2 X1 00179 M00S00172.dmpccc +++| RJ LSL LIST LINE 00180 M00S00173.dmpccc +++| DMP5 WRITER L 00181 M00S00174.dmpccc +++| MESSAGE (=C* DUMP COMPLETE.*) 00182 M00S00175.dmpccc +++| ENDRUN 00183 M00S00176.dmpccc +++| TITLE SUBROUTINES. 00184 M00S00177.dmpccc +++| CHD SPACE 4 00185 M00S00178.dmpccc +++|** CHD - CONVERT HEXADECIMAL DIGITS. 00186 M00S00179.dmpccc +++|* 00187 M00S00180.dmpccc +++|* *CHD* CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH LEADING 00188 M00S00181.dmpccc +++|* ZERO SUPPRESSION. CONVERSION CONTAINS SPACE FILL AND IS 00189 M00S00182.dmpccc +++|* RIGHT AND LEFT JUSTIFIED. 00190 M00S00183.dmpccc +++|* 00191 M00S00184.dmpccc +++|* ENTRY (X1) = NUMBER TO BE CONVERTED. 00192 M00S00185.dmpccc +++|* 00193 M00S00186.dmpccc +++|* EXIT (X6) = DISPLAY CODE CONVERSION RIGHT JUSTIFIED. 00194 M00S00187.dmpccc +++|* (X4) = DISPLAY CODE CONVERSION LEFT JUSTIFIED. 00195 M00S00188.dmpccc +++|* (B2) = 6*COUNT OF DIGITS CONVERTED. 00196 M00S00189.dmpccc +++|* 00197 M00S00190.dmpccc +++|* USES A - 4. 00198 M00S00191.dmpccc +++|* B - 2, 3. 00199 M00S00192.dmpccc +++|* X - 1, 2, 3, 4, 6. 00200 M00S00193.dmpccc +++| 00201 M00S00194.dmpccc +++| 00202 M00S00195.dmpccc +++| CHD SUBR ENTRY/EXIT 00203 M00S00196.dmpccc +++| SA4 =1H 00204 M00S00197.dmpccc +++| MX2 -4 00205 M00S00198.dmpccc +++| SB2 B0 CLEAR JUSTIFY COUNT 00206 M00S00199.dmpccc +++| CHD1 BX3 -X2*X1 EXTRACT DIGIT 00207 M00S00200.dmpccc +++| LX4 -6 SHIFT ASSEMBLY 00208 M00S00201.dmpccc +++| SB2 B2+6 00209 M00S00202.dmpccc +++| SB3 X3-10 00210 M00S00203.dmpccc +++| SX3 1R0+X3-1R 00211 M00S00204.dmpccc +++| NG B3,CHD2 IF DIGIT LESS THAN 10 00212 M00S00205.dmpccc +++| SX3 1RA+B3-1R 00213 M00S00206.dmpccc +++| CHD2 AX1 4 SHIFT OFF DIGIT 00214 M00S00207.dmpccc +++| IX4 X4+X3 ADD DIGIT TO ASSEMBLY 00215 M00S00208.dmpccc +++| NZ X1,CHD1 LOOP TO ZERO DIGIT 00216 M00S00209.dmpccc +++| LX4 -6 LEFT JUSTIFY ASSEMBLY 00217 M00S00210.dmpccc +++| LX6 X4,B2 RIGHT JUSTIFY ASSEMBLY 00218 M00S00211.dmpccc +++| EQ CHD RETURN 00219 M00S00212.dmpccc +++| LSL SPACE 4 00220 M00S00213.dmpccc +++|** LSL - LIST LINE. 00221 M00S00214.dmpccc +++|* 00222 M00S00215.dmpccc +++|* ENTRY (B2) = ADDRESS OF LINE IN C-FORMAT. 00223 M00S00216.dmpccc +++|* 00224 M00S00217.dmpccc +++|* EXIT LINE WRITTEN TO OUTPUT FILE. 00225 M00S00218.dmpccc +++|* 00226 M00S00219.dmpccc +++|* USES A - 1, 2, 6, 7. 00227 M00S00220.dmpccc +++|* B - 2. 00228 M00S00221.dmpccc +++|* X - 1, 2, 6, 7. 00229 M00S00222.dmpccc +++|* 00230 M00S00223.dmpccc +++|* CALLS CDD. 00231 M00S00224.dmpccc +++|* 00232 M00S00225.dmpccc +++|* MACROS WRITEC. 00233 M00S00226.dmpccc +++| 00234 M00S00227.dmpccc +++| 00235 M00S00228.dmpccc +++| LSL1 SX6 X1+B1 ADVANCE LINE POINTER 00236 M00S00229.dmpccc +++| SA6 A1 00237 M00S00230.dmpccc +++| BX1 X6 CONVERT PAGE NUMBER 00238 M00S00231.dmpccc +++| RJ CDD CONVERT DECIMAL TO DISPLAY 00239 M00S00232.dmpccc +++| SA1 LSLB SET PAGE NUMBER ON OUTPUT 00240 M00S00233.dmpccc +++| BX6 X1-X6 00241 M00S00234.dmpccc +++| SA6 PGE 00242 M00S00235.dmpccc +++| WRITEC L,TTL WRITE LIST TITLE 00243 M00S00236.dmpccc +++| WRITEC L,STL WRITE LIST SUBTITLE 00244 M00S00237.dmpccc +++| WRITEC L,(=C* *) SKIP A LINE 00245 M00S00238.dmpccc +++| WRITEC L,(=C* *) SKIP A LINE 00246 M00S00239.dmpccc +++| SA1 LSLA RESTORE ADDRESS OF LINE 00247 M00S00240.dmpccc +++| SB2 X1 00248 M00S00241.dmpccc +++| LSL2 WRITEC L,B2 WRITE DATA LINE 00249 M00S00242.dmpccc +++| 00250 M00S00243.dmpccc +++| LSL SUBR ENTRY/EXIT 00251 M00S00244.dmpccc +++| SA1 LN SET LINE NUMBER 00252 M00S00245.dmpccc +++| SA2 LP SET LINES PER PAGE 00253 M00S00246.dmpccc +++| SX6 X1+B1 ADVANCE LINE NUMBER 00254 M00S00247.dmpccc +++| SA6 A1 00255 M00S00248.dmpccc +++| IX1 X6-X2 00256 M00S00249.dmpccc +++| NG X1,LSL2 IF NO PAGE OVERFLOW 00257 M00S00250.dmpccc +++| SA1 PN SET PAGE NUMBER 00258 M00S00251.dmpccc +++| SX6 6 RESET LINE COUNT 00259 M00S00252.dmpccc +++| SX7 B2 SAVE ADDRESS OF LINE 00260 M00S00253.dmpccc +++| SA6 A6 00261 M00S00254.dmpccc +++| SA7 LSLA 00262 M00S00255.dmpccc +++| NZ X1,LSL1 IF NOT FIRST PAGE 00263 M00S00256.dmpccc +++| SB2 X2-80 00264 M00S00257.dmpccc +++| NG B2,LSL1 IF NOT 8 LINES/INCH 00265 M00S00258.dmpccc +++| WRITEC L,(=1LT) SET 8 LINES PER INCH 00266 M00S00259.dmpccc +++| SA1 PN SET PAGE NUMBER 00267 M00S00260.dmpccc +++| EQ LSL1 WRITE PAGE HEADER 00268 M00S00261.dmpccc +++| 00269 M00S00262.dmpccc +++| LSLA BSS 1 ADDRESS OF DATA LINE 00270 M00S00263.dmpccc +++| LSLB CON 5L PAGE&5L PAGE NUMBER IDENTIFIER 00271 M00S00264.dmpccc +++| RDL SPACE 4 00272 M00S00265.dmpccc +++|** RDL - READ DUMP LINE. 00273 M00S00266.dmpccc +++|* 00274 M00S00267.dmpccc +++|* ENTRY (B2) = OUTPUT WORD ADDRESS. 00275 M00S00268.dmpccc +++|* (B3) = OUTPUT WORD CHARACTER POSITION. 00276 M00S00269.dmpccc +++|* (X0) = PARTIAL ASSEMBLY. 00277 M00S00270.dmpccc +++|* 00278 M00S00271.dmpccc +++|* EXIT (X1) = EOR STATUS. 00279 M00S00272.dmpccc +++|* 00280 M00S00273.dmpccc +++|* USES A - 1, 2, 3, 4, 6, 7. 00281 M00S00274.dmpccc +++|* B - 2, 3, 4, 5, 6, 7. 00282 M00S00275.dmpccc +++|* X - ALL. 00283 M00S00276.dmpccc +++|* 00284 M00S00277.dmpccc +++|* MACROS READO. 00285 M00S00278.dmpccc +++| 00286 M00S00279.dmpccc +++| 00287 M00S00280.dmpccc +++|* ADD CHARACTER TRANSLATION OF MEMORY DUMP TO THE END 00288 M00S00281.dmpccc +++|* OF THE DUMP LINE. 00289 M00S00282.dmpccc +++| 00290 M00S00283.dmpccc +++| RDL9 SA2 RDLB 00291 M00S00284.dmpccc +++| SA6 RDLA+1 SAVE INPUT STATUS 00292 M00S00285.dmpccc +++| SX6 B4 00293 M00S00286.dmpccc +++| MX3 -36 00294 M00S00287.dmpccc +++| SA6 A6-B1 00295 M00S00288.dmpccc +++| LX2 48 00296 M00S00289.dmpccc +++| BX6 -X3*X2 00297 M00S00290.dmpccc +++| BX4 X3*X2 00298 M00S00291.dmpccc +++| SA2 A2+B1 00299 M00S00292.dmpccc +++| BX7 X0+X6 00300 M00S00293.dmpccc +++| BX6 X4+X2 00301 M00S00294.dmpccc +++| SA2 A2+B1 00302 M00S00295.dmpccc +++| MX4 -12 00303 M00S00296.dmpccc +++| SA3 A2+B1 00304 M00S00297.dmpccc +++| SA7 B2 00305 M00S00298.dmpccc +++| SA6 B2+B1 00306 M00S00299.dmpccc +++| LX2 12 00307 M00S00300.dmpccc +++| LX3 24 00308 M00S00301.dmpccc +++| BX7 -X4*X3 00309 M00S00302.dmpccc +++| BX6 X4*X3 00310 M00S00303.dmpccc +++| BX7 X2+X7 00311 M00S00304.dmpccc +++| SA7 A6+B1 00312 M00S00305.dmpccc +++| SA6 A7+B1 00313 M00S00306.dmpccc +++| MX7 0 SET LINE TERMINATOR 00314 M00S00307.dmpccc +++| SA7 A7+2 00315 M00S00308.dmpccc +++| 00316 M00S00309.dmpccc +++| RDL SUBR ENTRY/EXIT 00317 M00S00310.dmpccc +++| SA1 RDLA SET INPUT WORD STATUS 00318 M00S00311.dmpccc +++| MX2 -4 00319 M00S00312.dmpccc +++| MX3 -7 00320 M00S00313.dmpccc +++| SB5 16 00321 M00S00314.dmpccc +++| SA4 A1+B1 00322 M00S00315.dmpccc +++| SB4 X1 00323 M00S00316.dmpccc +++| BX5 X5-X5 00324 M00S00317.dmpccc +++| BX6 X4 00325 M00S00318.dmpccc +++| SB6 B1+B1 00326 M00S00319.dmpccc +++| SB7 RDLB 00327 M00S00320.dmpccc +++| RDL1 ZR B4,RDL8 IF END OF INPUT WORD 00328 M00S00321.dmpccc +++| LX6 8 EXTRACT NEXT 4 BITS 00329 M00S00322.dmpccc +++| SB4 B4-B1 00330 M00S00323.dmpccc +++| RDL2 BX1 -X2*X6 00331 M00S00324.dmpccc +++| SB6 B6-B1 00332 M00S00325.dmpccc +++| LX6 4 NEXT 4 BITS 00333 M00S00326.dmpccc +++| SX7 X1-10 CONVERT HEX DIGIT 00334 M00S00327.dmpccc +++| SX4 1R0+X1 00335 M00S00328.dmpccc +++| NG X7,RDL3 IF DIGIT LESS THAN 10 00336 M00S00329.dmpccc +++| SX4 1RA+X7 00337 M00S00330.dmpccc +++| RDL3 BX1 -X2*X6 00338 M00S00331.dmpccc +++| LX4 X4,B3 00339 M00S00332.dmpccc +++| SB3 B3-6 00340 M00S00333.dmpccc +++| SX7 X1-10 00341 M00S00334.dmpccc +++| SX1 1R0+X1 00342 M00S00335.dmpccc +++| NG X7,RDL4 IF DIGIT LESS THAN 10 00343 M00S00336.dmpccc +++| SX1 1RA+X7 00344 M00S00337.dmpccc +++| RDL4 BX0 X0+X4 00345 M00S00338.dmpccc +++| BX4 -X3*X6 CONVERT CHARACTER 00346 M00S00339.dmpccc +++| SX4 1R 00347 M00S00340.dmpccc +++| LX1 X1,B3 00348 M00S00341.dmpccc +++| LX5 6 00349 M00S00342.dmpccc +++| BX0 X0+X1 00350 M00S00343.dmpccc +++| BX5 X5+X4 00351 M00S00344.dmpccc +++| NZ B3,RDL5 IF OUTPUT WORD NOT FULL 00352 M00S00345.dmpccc +++| SB3 60 00353 M00S00346.dmpccc +++| BX7 X0 00354 M00S00347.dmpccc +++| MX0 0 00355 M00S00348.dmpccc +++| SA7 B2 00356 M00S00349.dmpccc +++| SB2 B2+B1 00357 M00S00350.dmpccc +++| RDL5 SB3 B3-6 00358 M00S00351.dmpccc +++| NZ B6,RDL1 IF 4 DIGITS NOT DONE 00359 M00S00352.dmpccc +++| SB3 B3-6 ADD SPACES 00360 M00S00353.dmpccc +++| SX1 2R 00361 M00S00354.dmpccc +++| LX1 X1,B3 00362 M00S00355.dmpccc +++| BX0 X0+X1 00363 M00S00356.dmpccc +++| SB5 B5-B1 00364 M00S00357.dmpccc +++| SB6 B1+B1 00365 M00S00358.dmpccc +++| NZ B3,RDL6 IF OUTPUT WORD NOT FULL 00366 M00S00359.dmpccc +++| SB3 60 00367 M00S00360.dmpccc +++| BX7 X0 00368 M00S00361.dmpccc +++| MX0 0 00369 M00S00362.dmpccc +++| SA7 B2 00370 M00S00363.dmpccc +++| SB2 B2+B1 00371 M00S00364.dmpccc +++| RDL6 SX7 B5 CHECK WORD 00372 M00S00365.dmpccc +++| MX1 -2 00373 M00S00366.dmpccc +++| SB3 B3-6 00374 M00S00367.dmpccc +++| BX1 -X1*X7 00375 M00S00368.dmpccc +++| NZ X1,RDL7 IF NOT 4TH WORD 00376 M00S00369.dmpccc +++| BX7 X5 STORE CONVERSION 00377 M00S00370.dmpccc +++| SA7 B7 00378 M00S00371.dmpccc +++| MX5 0 00379 M00S00372.dmpccc +++| SB7 B7+B1 00380 M00S00373.dmpccc +++| RDL7 NZ B5,RDL1 IF NOT 8 WORDS 00381 M00S00374.dmpccc +++| EQ RDL9 ADD CHARACTER TRANSLATION 00382 M00S00375.dmpccc +++| 00383 M00S00376.dmpccc +++|* READ NEXT WORD. 00384 M00S00377.dmpccc +++| 00385 M00S00378.dmpccc +++| RDL8 READO N 00386 M00S00379.dmpccc +++| MX2 -4 00387 M00S00380.dmpccc +++| SB4 4 00388 M00S00381.dmpccc +++| MX3 -7 00389 M00S00382.dmpccc +++| LX6 8 00390 M00S00383.dmpccc +++| ZR X1,RDL2 IF NOT EOR 00391 M00S00384.dmpccc +++| BX7 X0 00392 M00S00385.dmpccc +++| SA7 B2 00393 M00S00386.dmpccc +++| EQ RDL9 ADD CHARACTER TRANSLATION 00394 M00S00387.dmpccc +++| 00395 M00S00388.dmpccc +++| RDLA CON 0,0 INPUT WORD STATUS 00396 M00S00389.dmpccc +++| RDLB BSS 4 CHARACTER TRANSLATION STORAGE 00397 M00S00390.dmpccc +++| SPACE 4 00398 M00S00391.dmpccc +++|** COMMON DECKS. 00399 M00S00392.dmpccc +++| 00400 M00S00393.dmpccc +++| 00401 M00S00394.dmpccc +++|*CALL COMCCDD 00402 M00S00395.dmpccc +++|*CALL COMCCIO 00403 M00S00396.dmpccc +++|*CALL COMCMVE 00404 M00S00397.dmpccc +++|*CALL COMCRDO 00405 M00S00398.dmpccc +++|*CALL COMCRDW 00406 M00S00399.dmpccc +++|*CALL COMCSYS 00407 M00S00400.dmpccc +++|*CALL COMCWTC 00408 M00S00401.dmpccc +++|*CALL COMCWTW 00409 M00S00402.dmpccc +++| SPACE 4 00410 M00S00403.dmpccc +++|** BUFFERS. 00411 M00S00404.dmpccc +++| 00412 M00S00405.dmpccc +++| 00413 M00S00406.dmpccc +++| USE // 00414 M00S00407.dmpccc +++| SEG 00415 M00S00408.dmpccc +++| 00416 M00S00409.dmpccc +++| LB1 BSS 15 LINE BUFFER 1 00417 M00S00410.dmpccc +++| LB2 BSS 15 LINE BUFFER 2 00418 M00S00411.dmpccc +++| LFB EQU * LIST FILE BUFFER 00419 M00S00412.dmpccc +++| NMB EQU LFB+LFBL MEMORY BUFFER 00420 M00S00413.dmpccc +++| RFL= EQU NMB+NMBL+100B 00421 M00S00414.dmpccc +++| PRS SPACE 4 00422 M00S00415.dmpccc +++|** PRS - PRESET PROGRAM. 00423 M00S00416.dmpccc +++| 00424 M00S00417.dmpccc +++| 00425 M00S00418.dmpccc +++| PRS SUBR ENTRY/EXIT 00426 M00S00419.dmpccc +++| SB1 1 00427 M00S00420.dmpccc +++| SA1 N SET E=0 IN THE FET 00428 M00S00421.dmpccc +++| MX0 3 00429 M00S00422.dmpccc +++| BX6 -X0*X1 00430 M00S00423.dmpccc +++| SA6 A1+ 00431 M00S00424.dmpccc +++| SX7 LINP SET LINES/PAGE 00432 M00S00425.dmpccc +++| SA7 LP 00433 M00S00426.dmpccc +++| SX6 A0+ SET FIELD LENGTH 00434 M00S00427.dmpccc +++| SA6 N+4 00435 M00S00428.dmpccc +++| MOVE PRSB,PRSA,2 COPY FILE ACCESS LIST 00436 M00S00429.dmpccc +++| SA1 CCDR UNPACK CONTROL STATEMENT 00437 M00S00430.dmpccc +++| SB2 ISB INPUT STRING BUFFER 00438 M00S00431.dmpccc +++| RJ UCS UNPACK C-FORMAT TO S-FORMAT 00439 M00S00432.dmpccc +++| RJ ARG PROCESS ARGUMENTS 00440 M00S00433.dmpccc +++| DATE DTE GET CURRENT DATE 00441 M00S00434.dmpccc +++| CLOCK TME GET CURRENT TIME 00442 M00S00435.dmpccc +++| 00443 M00S00436.dmpccc +++|* FORM PAGE TITLE LINE USING CHANNEL. 00444 M00S00437.dmpccc +++|
| Line S00438 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00445 M01S00438.252l678 ---| SA1 TTL+1 SET CHANNEL IN TITLE
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00446 M01S00007.252l678 +++| SA1 TTL+2 SET CHANNEL IN TITLE 00447 M00S00439.dmpccc +++| SA2 N
| Line S00440 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00448 M01S00440.252l678 ---| LX2 -48
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00449 M01S00008.252l678 +++| MX3 -5 00450 M01S00009.252l678 +++| LX3 -12 00451 M01S00010.252l678 +++| BX2 -X3*X2 00452 M00S00441.dmpccc +++| MX3 -3
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00453 M01S00011.252l678 +++| LX3 -12 00454 M00S00442.dmpccc +++| BX4 -X3*X2
| Line S00443 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00455 M01S00443.252l678 ---| LX2 -3
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | dmpcc1 |
Seq # *Modification Id* Act ----------------------------+ 00456 M02S00012.dmpcc1 ---| LX2 6
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dmpcc1 |
Seq # *Modification Id* Act ----------------------------+ 00457 M01S00001.dmpcc1 +++| LX2 3
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00458 M01S00013.252l678 +++| LX3 6 00459 M00S00444.dmpccc +++| BX7 -X3*X2 00460 M00S00445.dmpccc +++| IX6 X1+X4
| Line S00446 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00461 M01S00446.252l678 ---| LX7 6 00462 M00S00447.dmpccc +++| IX6 X6+X7 00463 M00S00448.dmpccc +++| SA6 A1
| Line S00449 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00464 M01S00449.252l678 ---| LX2 -6
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00465 M01S00014.252l678 +++| SA2 A2 00466 M00S00450.dmpccc +++| SA1 NA SET CCC ADDRESSES 00467 M00S00451.dmpccc +++| SA3 NL
| Line S00452 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00468 M01S00452.252l678 ---| LX2 57 00469 M00S00453.dmpccc +++| LX1 12 00470 M00S00454.dmpccc +++| LX3 30 00471 M00S00455.dmpccc +++| BX6 X2+X1 00472 M00S00456.dmpccc +++| BX6 X6+X3 00473 M00S00457.dmpccc +++| SA6 A2
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00474 M01S00015.252l678 +++| SA1 CCHF CHECK FOR CONCURRENT CHANNEL 00475 M01S00016.252l678 +++| NZ X1,PRS1 IF A CONCURRENT CHANNEL 00476 M00S00458.dmpccc +++| SYSTEM DCC,R,N CALL *DCC* 00477 M00S00459.dmpccc +++| EQ PRSX RETURN 00478 M00S00460.dmpccc +++|
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00479 M01S00017.252l678 +++| PRS1 SYSTEM CPM,R,PRSC,140B*100B 00480 M01S00018.252l678 +++| RECALL N WAIT FOR DUMP COMPLETE 00481 M01S00019.252l678 +++| EQ PRSX RETURN 00482 M01S00020.252l678 +++| 00483 M00S00461.dmpccc +++| PRSA BSS 0 FILE ACCESS LIST 00484 M00S00462.dmpccc +++| CON 0LOUTPUT+L 00485 M00S00463.dmpccc +++| CON 0 00486 M00S00464.dmpccc +++| PRSB EQU *-PRSA
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00487 M01S00021.252l678 +++| PRSC VFD 36/0,12/0,12/0 00488 M01S00022.252l678 +++| VFD 18/3RDCC,6/40B,36/N 00489 M00S00465.dmpccc +++| 00490 M00S00466.dmpccc +++|* USED BY TCS. 00491 M00S00467.dmpccc +++| 00492 M00S00468.dmpccc +++| EC CON 0 ERROR COUNTER 00493 M00S00469.dmpccc +++| EM CON 0 ERROR MESSAGE 00494 M00S00470.dmpccc +++| EP CON 0 ERROR POINTER 00495 M00S00471.dmpccc +++| CST SPACE 4 00496 M00S00472.dmpccc +++|** CONTROL STATMENT TABLE. 00497 M00S00473.dmpccc +++| 00498 M00S00474.dmpccc +++| 00499 M00S00475.dmpccc +++| CST BSS 0 00500 M00S00476.dmpccc +++| CON 0LL L = LIST FILE 00501 M00S00477.dmpccc +++| VFD 6/,18/L,18/PRSA,18/AFN 00502 M00S00478.dmpccc +++| CON 0LCH CH = CHANNEL NUMBER 00503 M00S00479.dmpccc +++| CON ACH 00504 M00S00480.dmpccc +++| CON 0LC C = CHANNEL NUMBER 00505 M00S00481.dmpccc +++| CON ACH 00506 M00S00482.dmpccc +++| CON 0 00507 M00S00483.dmpccc +++| ABT SPACE 4 00508 M00S00484.dmpccc +++|** ABT - ABORT JOB. 00509 M00S00485.dmpccc +++|* 00510 M00S00486.dmpccc +++|* ENTRY (X7) = DAYFILE MESSAGE ADDRESS. 00511 M00S00487.dmpccc +++|* 00512 M00S00488.dmpccc +++|* EXIT JOB ABORTED. 00513 M00S00489.dmpccc +++|* 00514 M00S00490.dmpccc +++|* 00515 M00S00491.dmpccc +++|* MACROS ABORT, MESSAGE. 00516 M00S00492.dmpccc +++| 00517 M00S00493.dmpccc +++| 00518 M00S00494.dmpccc +++| ABT MESSAGE X7 00519 M00S00495.dmpccc +++| ABORT 00520 M00S00496.dmpccc +++| ACH SPACE 4 00521 M00S00497.dmpccc +++|** ACH - ASSEMBLE CHANNEL. 00522 M00S00498.dmpccc +++|* 00523 M00S00499.dmpccc +++|* ENTRY (X5) = PARAMETER SEPARATOR. 00524 M00S00500.dmpccc +++|* (A5) = ADDRESS OF PARAMETER SEPARATOR IN LIST. 00525 M00S00501.dmpccc +++|* 00526 M00S00502.dmpccc +++|* EXIT (N) = CONVERTED CHANNEL NUMBER. 00527 M00S00503.dmpccc +++|* (A5) = ADDRESS OF PARAMETER LIST. 00528 M00S00504.dmpccc +++|* 00529 M00S00505.dmpccc +++|* ERROR *ERM* CALLED IF PARAMETER ERROR. 00530 M00S00506.dmpccc +++|* (X7) = ERROR MESSAGE ADDRESS. 00531 M00S00507.dmpccc +++|* 00532 M00S00508.dmpccc +++|* USES A - 1, 6, 5. 00533 M00S00509.dmpccc +++|* B - 2, 3. 00534 M00S00510.dmpccc +++|* X - 1, 5, 6, 7. 00535 M00S00511.dmpccc +++|* 00536 M00S00512.dmpccc +++|* CALLS ASD, ERM. 00537 M00S00513.dmpccc +++| 00538 M00S00514.dmpccc +++| 00539 M00S00515.dmpccc +++| ACH SB2 X5-1R= CHECK SEPARATOR 00540 M00S00516.dmpccc +++| SX7 =C* EQUIVALENCE MISSING.* 00541 M00S00517.dmpccc +++| NZ B2,ERM IF NOT *=* 00542 M00S00518.dmpccc +++| SA5 A5+1 ASSEMBLE CHANNEL
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00543 M01S00023.252l678 +++| SX6 X5-1RC 00544 M01S00024.252l678 +++| ZR X6,ACH2 IF CONCURRENT CHANNEL 00545 M00S00519.dmpccc +++| RJ ASD ASSEMBLE OCTAL DIGITS 00546 M00S00520.dmpccc +++| SB2 X6-34B CHECK CHANNEL 00547 M00S00521.dmpccc +++| SB3 X6-20B 00548 M00S00522.dmpccc +++| SX7 =C* INCORRECT CHANNEL NUMBER.* 00549 M00S00523.dmpccc +++| PL B2,ERM IF CHANNEL NUMBER OUT OF RANGE 00550 M00S00524.dmpccc +++| PL B3,ACH1 IF CHANNEL IN RANGE 00551 M00S00525.dmpccc +++| SB2 X6-14B 00552 M00S00526.dmpccc +++| PL B2,ERM IF CHANNEL OUT OF RANGE 00553 M00S00527.dmpccc +++| ACH1 SA1 N SET CHANNEL IN REQUEST 00554 M00S00528.dmpccc +++| MX7 -6 00555 M00S00529.dmpccc +++| LX1 -48 00556 M00S00530.dmpccc +++| BX1 X7*X1 00557 M00S00531.dmpccc +++| BX6 X1+X6 00558 M00S00532.dmpccc +++| LX6 48 00559 M00S00533.dmpccc +++| SA6 A1 00560 M00S00534.dmpccc +++| EQ TCSX RETURN
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00561 M01S00025.252l678 +++| 00562 M01S00026.252l678 +++| ACH2 SA5 A5+1 00563 M01S00027.252l678 +++| RJ ASD 00564 M01S00028.252l678 +++| SX7 =C* INCORRECT CHANNEL NUMBER.* 00565 M01S00029.252l678 +++| SB2 X6-12B 00566 M01S00030.252l678 +++| PL B2,ERM IF CHANNEL OUT OF RANGE 00567 M01S00031.252l678 +++| SX6 X6+40B SET CONCURRENT BIAS 00568 M01S00032.252l678 +++| BX7 X6 00569 M01S00033.252l678 +++| LX7 12 SET CHANNEL IN *CPM* CALL 00570 M01S00034.252l678 +++| SA7 PRSC 00571 M01S00035.252l678 +++| SA7 CCHF FLAG CONCURRENT CHANNEL 00572 M01S00036.252l678 +++| SA1 =10H CCC, CHH 00573 M01S00037.252l678 +++| BX7 X1 00574 M01S00038.252l678 +++| SA7 TTL+1 SET NEW TITLE LINE 00575 M01S00039.252l678 +++| EQ ACH1 SET CHANNEL IN *DCC* CALL 00576 M00S00535.dmpccc +++| AFN SPACE 4 00577 M00S00536.dmpccc +++|** AFN - ASSEMBLE FILE NAME. 00578 M00S00537.dmpccc +++|* 00579 M00S00538.dmpccc +++|* ENTRY (X5) = PARAMETER SEPARATOR. 00580 M00S00539.dmpccc +++|* (A5) = ADDRESS OF PARAMETER SEPARATOR IN LIST. 00581 M00S00540.dmpccc +++|* (X2) = TRANSLATION TABLE ENTRY. 00582 M00S00541.dmpccc +++|* 00583 M00S00542.dmpccc +++|* EXIT FILENAME SET IN *FET* (*0* = NO FILE). 00584 M00S00543.dmpccc +++|* 00585 M00S00544.dmpccc +++|* USES A - 1, 5, 7. 00586 M00S00545.dmpccc +++|* B - 2, 3. 00587 M00S00546.dmpccc +++|* X - 0, 1, 2, 5, 6, 7. 00588 M00S00547.dmpccc +++|* 00589 M00S00548.dmpccc +++|* CALLS ASN. 00590 M00S00549.dmpccc +++| 00591 M00S00550.dmpccc +++| 00592 M00S00551.dmpccc +++| AFN SB2 X5-1R= CHECK SEPARATOR 00593 M00S00552.dmpccc +++| AX2 18 GET ASSUMED FILE NAME 00594 M00S00553.dmpccc +++| SA1 X2 00595 M00S00554.dmpccc +++| AX2 18 SET FET ADDRESS 00596 M00S00555.dmpccc +++| MX6 42 00597 M00S00556.dmpccc +++| SB3 X2 00598 M00S00557.dmpccc +++| BX6 X6*X1 00599 M00S00558.dmpccc +++| NZ B2,AFN1 IF NOT *=* 00600 M00S00559.dmpccc +++| SA5 A5+B1 SKIP SEPARATOR 00601 M00S00560.dmpccc +++| BX0 X2 00602 M00S00561.dmpccc +++| RJ ASN ASSEMBLE NAME 00603 M00S00562.dmpccc +++| NZ X7,AFN3 IF ERROR IN FILE NAME 00604 M00S00563.dmpccc +++| SX7 1R0 CHECK NAME 00605 M00S00564.dmpccc +++| LX7 54 00606 M00S00565.dmpccc +++| BX2 X0 00607 M00S00566.dmpccc +++| BX7 X7-X6 00608 M00S00567.dmpccc +++| ZR X7,AFN2 IF *0* 00609 M00S00568.dmpccc +++| AFN1 SA1 X2 REPLACE FILE NAME 00610 M00S00569.dmpccc +++| MX7 42 00611 M00S00570.dmpccc +++| BX1 -X7*X1 00612 M00S00571.dmpccc +++| BX7 X1+X6 00613 M00S00572.dmpccc +++| NZ X1,AFN2 IF STATUS IS SET 00614 M00S00573.dmpccc +++| SX1 B1 00615 M00S00574.dmpccc +++| BX7 X1+X6 00616 M00S00575.dmpccc +++| AFN2 SA7 X2 00617 M00S00576.dmpccc +++| EQ TCSX RETURN 00618 M00S00577.dmpccc +++| 00619 M00S00578.dmpccc +++| AFN3 SX7 =C* UNRECOGNIZED FILE NAME.* 00620 M00S00579.dmpccc +++| EQ ERM 00621 M00S00580.dmpccc +++| ARG SPACE 4 00622 M00S00581.dmpccc +++|** ARG - PROCESS ARGUMENTS. 00623 M00S00582.dmpccc +++|* 00624 M00S00583.dmpccc +++|* ENTRY (ISB) = STRING BUFFER CONTAINING CONTROL CARD IMAGE. 00625 M00S00584.dmpccc +++|* 00626 M00S00585.dmpccc +++|* EXIT (X1) = ZERO. 00627 M00S00586.dmpccc +++|* ALL PARAMETERS PROCESSED. 00628 M00S00587.dmpccc +++|* 00629 M00S00588.dmpccc +++|* ERROR *ABT* CALLED IF PARAMETER ERROR. 00630 M00S00589.dmpccc +++|* (X7) = ERROR MESSAGE ADDRESS. 00631 M00S00590.dmpccc +++|* 00632 M00S00591.dmpccc +++|* USES A - 1, 2, 3, 4, 5. 00633 M00S00592.dmpccc +++|* B - 2, 3. 00634 M00S00593.dmpccc +++|* X - ALL. 00635 M00S00594.dmpccc +++|* 00636 M00S00595.dmpccc +++|* CALLS ABT, ASN, TCS. 00637 M00S00596.dmpccc +++|* 00638 M00S00597.dmpccc +++|* MACROS MESSAGE. 00639 M00S00598.dmpccc +++| 00640 M00S00599.dmpccc +++| 00641 M00S00600.dmpccc +++| ARG SUBR ENTRY/EXIT 00642 M00S00601.dmpccc +++| SA5 ISB FIRST CHARACTER 00643 M00S00602.dmpccc +++| RJ ASN ASSEMBLE NAME 00644 M00S00603.dmpccc +++| ARG1 SB2 X5-1R) 00645 M00S00604.dmpccc +++| SB3 X5-1R. 00646 M00S00605.dmpccc +++| ZR B2,ARGX IF END OF COMMAND 00647 M00S00606.dmpccc +++| ZR B3,ARGX IF END OF COMMAND 00648 M00S00607.dmpccc +++| SA5 A5+1 SKIP SEPARATOR 00649 M00S00608.dmpccc +++| SX0 CST 00650 M00S00609.dmpccc +++| RJ TCS TRANSLATE CONTROL STATEMENT 00651 M00S00610.dmpccc +++| SA1 EM 00652 M00S00611.dmpccc +++| ZR X1,ARG1 LOOP IF NO ERROR MESSAGE 00653 M00S00612.dmpccc +++| MESSAGE X1 00654 M00S00613.dmpccc +++| SX7 ARGA 00655 M00S00614.dmpccc +++| EQ ABT ABORT JOB 00656 M00S00615.dmpccc +++| 00657 M00S00616.dmpccc +++| ARGA DATA C* CONTROL STATEMENT ERROR.* 00658 M00S00617.dmpccc +++| ASD SPACE 4 00659 M00S00618.dmpccc +++|** ASD - ASSEMBLE DIGITS. 00660 M00S00619.dmpccc +++|* 00661 M00S00620.dmpccc +++|* ENTRY (X5) = FIRST CHARACTER TO ASSEMBLE. 00662 M00S00621.dmpccc +++|* (A5) = ADDRESS OF CHARACTER STRING. 00663 M00S00622.dmpccc +++|* (B2) = ZERO IF OCTAL BASE ASSUMED. 00664 M00S00623.dmpccc +++|* = NON-ZERO IF DECIMAL BASE ASSUMED. 00665 M00S00624.dmpccc +++|* 00666 M00S00625.dmpccc +++|* EXIT (X6) = ASSEMBLED DIGITS. 00667 M00S00626.dmpccc +++|* (X5) = NEXT CHARACTER TO BE PROCESSED. 00668 M00S00627.dmpccc +++|* (A5) = ADDRESS OF NEXT CHARACTER. 00669 M00S00628.dmpccc +++|* 00670 M00S00629.dmpccc +++|* ERROR *ERM* CALLED IF VALUE ERROR. 00671 M00S00630.dmpccc +++|* (X7) = ERROR MESSAGE ADDRESS. 00672 M00S00631.dmpccc +++|* 00673 M00S00632.dmpccc +++|* USES A - 5, 6. 00674 M00S00633.dmpccc +++|* B - 2, 3, 4, 5, 6. 00675 M00S00634.dmpccc +++|* X - 1, 2, 3, 5, 6, 7. 00676 M00S00635.dmpccc +++|* 00677 M00S00636.dmpccc +++|* CALLS ERM. 00678 M00S00637.dmpccc +++| 00679 M00S00638.dmpccc +++| 00680 M00S00639.dmpccc +++| ASD1 LX3 X7,B4 DECIMAL*10 00681 M00S00640.dmpccc +++| SX5 X5+B3 CONVERT CHARACTER 00682 M00S00641.dmpccc +++| IX7 X3+X7 00683 M00S00642.dmpccc +++| LX6 3 OCTAL*8 00684 M00S00643.dmpccc +++| LX7 1 00685 M00S00644.dmpccc +++| BX6 X6+X5 OCTAL+NEW DIGIT 00686 M00S00645.dmpccc +++| IX7 X7+X5 DECIMAL+NEW DIGIT 00687 M00S00646.dmpccc +++| AX5 3 NOTE *8*/*9* 00688 M00S00647.dmpccc +++| SB5 B5+X5 00689 M00S00648.dmpccc +++| SA5 A5+B1 NEXT CHARACTER 00690 M00S00649.dmpccc +++| SB6 X5 CHECK CHARACTER 00691 M00S00650.dmpccc +++| LX3 X1,B6 00692 M00S00651.dmpccc +++| NG X3,ASD1 IF DIGIT 00693 M00S00652.dmpccc +++| SX1 X5-1RD CHECK NEXT CHARACTER 00694 M00S00653.dmpccc +++| SX2 X5-1RB 00695 M00S00654.dmpccc +++| NZ X1,ASD2 IF NOT *D* 00696 M00S00655.dmpccc +++| SA5 A5+B1 SKIP CHARACTER 00697 M00S00656.dmpccc +++| BX6 X7 RETURN DECIMAL 00698 M00S00657.dmpccc +++| EQ ASDX RETURN 00699 M00S00658.dmpccc +++| 00700 M00S00659.dmpccc +++| ASD2 NZ X2,ASD3 IF NOT *B* 00701 M00S00660.dmpccc +++| SA5 A5+1 SKIP CHARACTER 00702 M00S00661.dmpccc +++| ZR B5,ASDX IF *8*/*9* NOT PRESENT 00703 M00S00662.dmpccc +++| SX7 =C* 8/9 NOT ALLOWED IN OCTAL FIELD.* 00704 M00S00663.dmpccc +++| EQ ERM PROCESS ERROR 00705 M00S00664.dmpccc +++| 00706 M00S00665.dmpccc +++| ASD3 SB2 B2+B5 SET BASE 00707 M00S00666.dmpccc +++| ZR B2,ASDX IF OCTAL 00708 M00S00667.dmpccc +++| BX6 X7 RETURN DECIMAL 00709 M00S00668.dmpccc +++| 00710 M00S00669.dmpccc +++| ASD SUBR ENTRY/EXIT 00711 M00S00670.dmpccc +++| MX1 10 MASK FOR *0* - *9* 00712 M00S00671.dmpccc +++| SB3 -1R0 00713 M00S00672.dmpccc +++| SB4 B1+B1 00714 M00S00673.dmpccc +++| LX1 -1R0 00715 M00S00674.dmpccc +++| SX6 A5 SET ERROR POINTER 00716 M00S00675.dmpccc +++| SB5 B0 CLEAR *8*/*9* PRESENCE 00717 M00S00676.dmpccc +++| SB6 X5 CHECK CHARACTER 00718 M00S00677.dmpccc +++| MX7 0 CLEAR DECIMAL ASSEMBLY 00719 M00S00678.dmpccc +++| SA6 EP 00720 M00S00679.dmpccc +++| BX6 X6-X6 CLEAR OCTAL ASSEMBLY 00721 M00S00680.dmpccc +++| LX3 X1,B6 00722 M00S00681.dmpccc +++| NG X3,ASD1 IF DIGIT 00723 M00S00682.dmpccc +++| 00724 M00S00683.dmpccc +++| SX7 =C* NUMERIC FIELD MUST NOT BE BLANK.* 00725 M00S00684.dmpccc +++| EQ ERM PROCESS ERROR 00726 M00S00685.dmpccc +++| ASN SPACE 4 00727 M00S00686.dmpccc +++|** ASN - ASSEMBLE NAME. 00728 M00S00687.dmpccc +++|* 00729 M00S00688.dmpccc +++|* ENTRY (X5) = FIRST CHARACTER IN NAME. 00730 M00S00689.dmpccc +++|* (A5) = ADDRESS OF FIRST CHARACTER. 00731 M00S00690.dmpccc +++|* 00732 M00S00691.dmpccc +++|* EXIT (X6) = ASSEMBLED NAME. 00733 M00S00692.dmpccc +++|* (X5) = NEXT CHARACTER TO BE PROCESSED. 00734 M00S00693.dmpccc +++|* (A5) = ADDRESS OF NEXT CHARACTER. 00735 M00S00694.dmpccc +++|* (X7) = 0, IF NO ERROR. 00736 M00S00695.dmpccc +++|* (X7) = 1, IF ERROR ENCOUNTERED. 00737 M00S00696.dmpccc +++|* 00738 M00S00697.dmpccc +++|* USES A - 5, 7. 00739 M00S00698.dmpccc +++|* B - 2, 4. 00740 M00S00699.dmpccc +++|* X - 1, 2, 5, 6, 7. 00741 M00S00700.dmpccc +++| 00742 M00S00701.dmpccc +++| 00743 M00S00702.dmpccc +++| ASN1 LX5 X5,B2 MERGE 00744 M00S00703.dmpccc +++| NG B2,ASNX IF ASSEMBLY FULL 00745 M00S00704.dmpccc +++| BX6 X6+X5 00746 M00S00705.dmpccc +++| SA5 A5+B1 NEXT CHARACTER 00747 M00S00706.dmpccc +++| SB2 B2-6 00748 M00S00707.dmpccc +++| SB4 X5 00749 M00S00708.dmpccc +++| ASN2 AX2 X1,B4 00750 M00S00709.dmpccc +++| LX2 59 00751 M00S00710.dmpccc +++| NG X2,ASN1 IF LETTER OR DIGIT 00752 M00S00711.dmpccc +++| SX7 B0+ SET NO ERROR 00753 M00S00712.dmpccc +++| 00754 M00S00713.dmpccc +++| ASN SUBR ENTRY/EXIT 00755 M00S00714.dmpccc +++| MX1 36 MASK FOR LETTERS AND DIGITS 00756 M00S00715.dmpccc +++| SB2 54 00757 M00S00716.dmpccc +++| BX6 X6-X6 CLEAR ASSEMBLY 00758 M00S00717.dmpccc +++| SX7 A5 SET ERROR POINTER 00759 M00S00718.dmpccc +++| LX1 37 00760 M00S00719.dmpccc +++| SB4 X5+ 00761 M00S00720.dmpccc +++| SA7 EP 00762 M00S00721.dmpccc +++| SX7 B1+ PRESET ERROR 00763 M00S00722.dmpccc +++| EQ ASN2 ASSEMBLE NAME 00764 M00S00723.dmpccc +++| TCS SPACE 4 00765 M00S00724.dmpccc +++|** TCS - TRANSLATE CONTROL STATEMENT. 00766 M00S00725.dmpccc +++|* 00767 M00S00726.dmpccc +++|* ENTRY (X0) = ADDRESS OF STATEMENT TRANSLATION TABLE. 00768 M00S00727.dmpccc +++|* 00769 M00S00728.dmpccc +++|* EXIT PROCESSOR DEFINED FOR PARAMETER ENTERED. 00770 M00S00729.dmpccc +++|* 00771 M00S00730.dmpccc +++|* ERROR *ERM* CALLED PROCESSOR NOT DEFINED FOR PARAMETER. 00772 M00S00731.dmpccc +++|* (X7) = ERROR MESSAGE ADDRESS. 00773 M00S00732.dmpccc +++|* 00774 M00S00733.dmpccc +++|* USES A - 1, 2, 6, 7. 00775 M00S00734.dmpccc +++|* B - 2. 00776 M00S00735.dmpccc +++|* X - 1, 2, 3, 6, 7. 00777 M00S00736.dmpccc +++|* 00778 M00S00737.dmpccc +++|* CALLS ERM. 00779 M00S00738.dmpccc +++| 00780 M00S00739.dmpccc +++| 00781 M00S00740.dmpccc +++| ERM SA2 EC ADVANCE ERROR COUNTER 00782 M00S00741.dmpccc +++| SA7 EM SET ERROR MESSAGE ADDRESS 00783 M00S00742.dmpccc +++| SX6 X2+B1 00784 M00S00743.dmpccc +++| SA6 A2 00785 M00S00744.dmpccc +++| 00786 M00S00745.dmpccc +++| TCS SUBR ENTRY/EXIT 00787 M00S00746.dmpccc +++| RJ ASN ASSEMBLE NAME 00788 M00S00747.dmpccc +++| NZ X7,TCS1.1 IF ERROR 00789 M00S00748.dmpccc +++| SA1 X0 START NAME SEARCH 00790 M00S00749.dmpccc +++| TCS1 BX3 X1-X6 00791 M00S00750.dmpccc +++| SA2 A1+B1 00792 M00S00751.dmpccc +++| ZR X3,TCS2 IF MATCH FOUND 00793 M00S00752.dmpccc +++| SA1 A2+B1 NEXT ENTRY 00794 M00S00753.dmpccc +++| NZ X1,TCS1 LOOP TO END OF TABLE 00795 M00S00754.dmpccc +++| TCS1.1 SX7 TCSA 00796 M00S00755.dmpccc +++| EQ ERM 00797 M00S00756.dmpccc +++| 00798 M00S00757.dmpccc +++| TCS2 SB2 X2 PROCESS STATMENT 00799 M00S00758.dmpccc +++| JP B2 00800 M00S00759.dmpccc +++| 00801 M00S00760.dmpccc +++| TCSA DATA C* INCORRECT DIRECTIVE NAME.* 00802 M00S00761.dmpccc +++| UCS SPACE 4 00803 M00S00762.dmpccc +++|** UCS - UNPACK C-FORMAT TO S-FORMAT. 00804 M00S00763.dmpccc +++|* 00805 M00S00764.dmpccc +++|* UCS UNPACKS A C-FORMAT LINE TO AN S-FORMAT LINE (1 CHARACTER/ 00806 M00S00765.dmpccc +++|* WORD). TRAILING SPACES ARE DELETED, AND THE END OF LINE IS 00807 M00S00766.dmpccc +++|* MARKED BY A NEGATIVE WORD (BITS 0-58 = 0, BIT 59 = 1). 00808 M00S00767.dmpccc +++|* 00809 M00S00768.dmpccc +++|* ENTRY (A1) = FIRST WORD ADDRESS OF C-FORMAT BUFFER. 00810 M00S00769.dmpccc +++|* (X1) = FIRST WORD OF C-FORMAT BUFFER. 00811 M00S00770.dmpccc +++|* (B2) = FIRST WORD ADDRESS OF S-FORMAT BUFFER. 00812 M00S00771.dmpccc +++|* 00813 M00S00772.dmpccc +++|* EXIT (A1) = ADDRESS OF LAST WORD OF C-FORMAT BUFFER. 00814 M00S00773.dmpccc +++|* (A6) = ADDRESS+1 OF LAST CHARACTER OF S-FORMAT BUFFER. 00815 M00S00774.dmpccc +++|* 00816 M00S00775.dmpccc +++|* USES A - 1, 2, 3, 6, 7. 00817 M00S00776.dmpccc +++|* B - 3, 4. 00818 M00S00777.dmpccc +++|* X - 0, 1, 2, 3, 5, 6, 7. 00819 M00S00778.dmpccc +++| 00820 M00S00779.dmpccc +++| 00821 M00S00780.dmpccc +++| UCS SUBR ENTRY/EXIT 00822 M00S00781.dmpccc +++| SA2 B2-B1 PRESET A6 00823 M00S00782.dmpccc +++| MX3 1 00824 M00S00783.dmpccc +++| SB3 -1R 00825 M00S00784.dmpccc +++| SX6 B0 00826 M00S00785.dmpccc +++| BX7 X2 00827 M00S00786.dmpccc +++| MX2 -6 00828 M00S00787.dmpccc +++| SA6 A2 00829 M00S00788.dmpccc +++| SX0 1R 00830 M00S00789.dmpccc +++| UCS1 LX1 6 NEXT CHARACTER 00831 M00S00790.dmpccc +++| BX6 -X2*X1 00832 M00S00791.dmpccc +++| LX3 6 00833 M00S00792.dmpccc +++| BX1 X2*X1 00834 M00S00793.dmpccc +++| IX5 X6-X0 00835 M00S00794.dmpccc +++| ZR X5,UCS1.5 IF LEADING SPACE 00836 M00S00795.dmpccc +++| SA6 A6+B1 00837 M00S00796.dmpccc +++| SX0 3R 00838 M00S00797.dmpccc +++| UCS1.5 PL X3,UCS2 IF NOT END OF WORD 00839 M00S00798.dmpccc +++| SA1 A1+1 NEXT WORD 00840 M00S00799.dmpccc +++| UCS2 NZ X6,UCS1 IF NOT ZERO CHARACTER 00841 M00S00800.dmpccc +++| NZ X1,UCS1 IF NOT END OF LINE 00842 M00S00801.dmpccc +++| NG X1,UCS1 GET NEXT CHARACTER 00843 M00S00802.dmpccc +++| SA3 A6-B1 DELETE TRAILING SPACES 00844 M00S00803.dmpccc +++| MX6 1 00845 M00S00804.dmpccc +++| UCS3 SB4 X3+B3 00846 M00S00805.dmpccc +++| SA3 A3-B1 00847 M00S00806.dmpccc +++| ZR B4,UCS3 IF NEXT CHARACTER ZERO 00848 M00S00807.dmpccc +++| SX3 -B3 00849 M00S00808.dmpccc +++| SA7 A2+ RESTORE WORD BEFORE LINE 00850 M00S00809.dmpccc +++| BX6 X6+X3 00851 M00S00810.dmpccc +++| SA6 A3+2 SET END OF LINE 00852 M00S00811.dmpccc +++| EQ UCSX RETURN 00853 M00S00812.dmpccc +++| CON 0 00854 M00S00813.dmpccc +++| ISB EQU * STRING BUFFER 00855 M00S00814.dmpccc +++| SPACE 4 00856 M00S00815.dmpccc +++| END
cdc/nos2.source/opl.opl871/deck/dmpccc.txt · Last modified: (external edit)