Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.dmpccc +++| IDENT DMPCCC,ORG
00002 M01S00002.dmpccc +++| ABS
00003 M01S00003.dmpccc +++| SST
00004 M01S00004.dmpccc +++| ENTRY DMPCCC
00005 M01S00005.dmpccc +++| ENTRY RFL=
00006 M01S00006.dmpccc +++| ENTRY SSJ=
00007 M01S00007.dmpccc +++| SYSCOM B1
00008 M01S00008.dmpccc +++|*COMMENT 84/04/01. DMPCCC - DUMP CCC MEMORY.
| Line S00009 Modification History |
M01 (Added by) | dmpccc |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00009 M02S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1984.
00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00011 M01S00010.dmpccc +++| TITLE DMPCCC - DUMP *CCC* MEMORY.
00012 M01S00011.dmpccc +++| SPACE 4
00013 M01S00012.dmpccc +++|*** DMPCCC - DUMP CCC MEMORY.
00014 M01S00013.dmpccc +++|* L. E. LOVETT 84/04/01.
00015 M01S00014.dmpccc +++| SPACE 4,10
00016 M01S00015.dmpccc +++|*** DMPCCC - DUMP CCC MEMORY.
00017 M01S00016.dmpccc +++|*
00018 M01S00017.dmpccc +++|* *DMPCCC* PROVIDES THE CAPABILITY TO DYNAMICALLY AUTODUMP
00019 M01S00018.dmpccc +++|* THE *CCC* MEMORY. THE CALLING JOB MUST BE SYSTEM ORIGIN
00020 M01S00019.dmpccc +++|* OR THE USER MUST BE VALIDATED FOR SYSTEM ORIGIN PRIVILEGES,
00021 M01S00020.dmpccc +++|* AND THE SYSTEM MUST BE IN ENGINEERING MODE.
00022 M01S00021.dmpccc +++|*
00023 M01S00022.dmpccc +++|* *DMPCCC* READS THE *CCC* MEMORY VIA THE *PP* PROGRAM *DCC*
00024 M01S00023.dmpccc +++|* AND FORMATS THE DATA INTO AN OUTPUT FILE. *DMPCCC* WILL ISSUE
00025 M01S00024.dmpccc +++|* APPROPRIATE MESSAGES TO INDICATE THE SUCCESS OR FAILURE OF
00026 M01S00025.dmpccc +++|* THE AUTODUMP ATTEMPT.
00027 M01S00026.dmpccc +++| SPACE 4,10
00028 M01S00027.dmpccc +++|*** COMMAND FORMAT.
00029 M01S00028.dmpccc +++|*
00030 M01S00029.dmpccc +++|* DMPCCC(C=CH,L=LFN)
00031 M01S00030.dmpccc +++|*
00032 M01S00031.dmpccc +++|* CH CHANNEL NUMBER TO DUMP *CCC* FROM. THE SPECIFIED
| Line S00032 Modification History |
M01 (Added by) | dmpccc |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00033 M02S00032.252l678 ---|* CHANNEL MUST BE IN THE RANGE 0 - 13B OR 20B - 33B.
00034 M01S00001.252l678 +++|* CHANNEL MUST BE IN THE RANGE 0 - 13B OR 20B - 33B OR
00035 M01S00002.252l678 +++|* C0 - C11B FOR CONCURRENT CHANNELS.
00036 M01S00033.dmpccc +++|* CHANNEL 0 WILL BE ASSUMED IF NO CHANNEL IS SPECIFIED
00037 M01S00034.dmpccc +++|* ON THE CALL.
00038 M01S00035.dmpccc +++|*
00039 M01S00036.dmpccc +++|* LFN OUTPUT FILE NAME. DEFAULT IS *OUTPUT*.
00040 M01S00037.dmpccc +++| SPACE 4,10
00041 M01S00038.dmpccc +++|*** DAYFILE MESSAGES.
00042 M01S00039.dmpccc +++|*
00043 M01S00040.dmpccc +++|* * DUMP COMPLETE.*
00044 M01S00041.dmpccc +++|* INFORMATIVE MESSAGE INDICATING THE COMPLETION OF THE
00045 M01S00042.dmpccc +++|* DUMP UTILITY.
00046 M01S00043.dmpccc +++|*
00047 M01S00044.dmpccc +++|* * EQUIVALENCE MISSING.*
00048 M01S00045.dmpccc +++|* A SYNTAX ERROR WAS ENCOUNTERED WITH THE COMMAND. THE
00049 M01S00046.dmpccc +++|* COMMAND PARAMETER WAS NOT SEPARATED FROM ITS EQUIVALENC
00050 M01S00047.dmpccc +++|* VALUE BY AN *=*.
00051 M01S00048.dmpccc +++|*
00052 M01S00049.dmpccc +++|* * INCORRECT CHANNEL NUMBER.*
00053 M01S00050.dmpccc +++|* THE SPECIFIED CHANNEL NUBER WAS NOT IN THE RANGE
| Line S00051 Modification History |
M01 (Added by) | dmpccc |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00054 M02S00051.252l678 ---|* 0 - 13B OR 20B - 33B.
00055 M01S00003.252l678 +++|* 0 - 13B OR 20B - 33B OR C0 - C11B.
00056 M01S00052.dmpccc +++|*
00057 M01S00053.dmpccc +++|* * 8/9 NOT ALLOWED IN OCTAL FIELD.*
00058 M01S00054.dmpccc +++|* THE CHANNEL NUMBER WAS SPECIFIED WITH A POST SUFFIX
00059 M01S00055.dmpccc +++|* OF *B* WHILE AN *8* OR *9* WAS SPECIFIED.
00060 M01S00056.dmpccc +++|*
00061 M01S00057.dmpccc +++|* * NUMERIC FIELD MUST NOT BE BLANK.*
00062 M01S00058.dmpccc +++|* NO CHANNEL VALUE WAS SPECIFIED WITH THE *C* PARAMETER.
00063 M01S00059.dmpccc +++|*
00064 M01S00060.dmpccc +++|* * INCORRECT DIRECTIVE NAME.*
00065 M01S00061.dmpccc +++|* AN UNRECOGNIZED PARAMETER HAS BEEN SPECIFIED ON THE
00066 M01S00062.dmpccc +++|* COMMAND.
00067 M01S00063.dmpccc +++|
00068 M01S00064.dmpccc +++| SPACE 4,10
00069 M01S00065.dmpccc +++|** COMMON DECKS.
00070 M01S00066.dmpccc +++|
00071 M01S00067.dmpccc +++|
00072 M01S00068.dmpccc +++|*CALL COMCMAC
00073 M01S00069.dmpccc +++| SPACE 4
00074 M01S00070.dmpccc +++|** ASSEMBLY CONSTANTS.
00075 M01S00071.dmpccc +++|
00076 M01S00072.dmpccc +++|
00077 M01S00073.dmpccc +++| LNP EQU 84 LINES/PRINTER PAGE
00078 M01S00074.dmpccc +++| CCSZ EQU 40000B *CCC* MEMORY SIZE
00079 M01S00075.dmpccc +++| CCSZA SET CCSZ*2+4
00080 M01S00076.dmpccc +++| NMBL SET CCSZA/5+100B DUMP BUFFER SIZE
00081 M01S00077.dmpccc +++| LFBL EQU 2001B LIST FILE BUFFER LENGTH
00082 M01S00078.dmpccc +++| WBFL EQU 64 WORKING BUFFER LENGTH
00083 M01S00079.dmpccc +++|
00084 M01S00080.dmpccc +++|
00085 M01S00081.dmpccc +++| SSJ= EQU 400000B
00086 M01S00082.dmpccc +++| TITLE DATA ASSIGNMENTS.
00087 M01S00083.dmpccc +++| DATA SPACE 4
00088 M01S00084.dmpccc +++|** DATA ASSIGNMENTS.
00089 M01S00085.dmpccc +++|
00090 M01S00086.dmpccc +++|
00091 M01S00087.dmpccc +++|
00092 M01S00088.dmpccc +++| ORG 110B
00093 M01S00089.dmpccc +++| ORG BSS 0
00094 M01S00090.dmpccc +++|
00095 M01S00091.dmpccc +++| L BSS 0 LIST FILE
00096 M01S00092.dmpccc +++| OUTPUT FILEC LFB,LFBL,FET=8
00097 M01S00093.dmpccc +++| ORG L
00098 M01S00094.dmpccc +++| CON 0LOUTPUT+15B
00099 M01S00095.dmpccc +++| ORG L+8
00100 M01S00096.dmpccc +++|
00101 M01S00097.dmpccc +++| N FILEB NMB,NMBL,FET=9
00102 M01S00098.dmpccc +++| ORG N
00103 M01S00099.dmpccc +++| VFD 12/0,18/0,18/0,12/0
00104 M01S00100.dmpccc +++| ORG N+9
00105 M01S00101.dmpccc +++|
00106 M01S00102.dmpccc +++| BA CON LB1 BUFFER ADDRESS
00107 M01S00103.dmpccc +++| NA CON 0 CCC ADDRESS
00108 M01S00104.dmpccc +++| NL CON 0#4000 LIMIT ADDRESS
00109 M01S00004.252l678 +++| CCHF CON 0 CONCURRENT CHANNEL FLAG
00110 M01S00105.dmpccc +++| SPACE 4
00111 M01S00106.dmpccc +++|** LIST FILE CONTROLS.
00112 M01S00107.dmpccc +++|
00113 M01S00108.dmpccc +++|
00114 M01S00109.dmpccc +++| LN CON 10000 LINE NUMBER
00115 M01S00110.dmpccc +++| LP CON LNP LINES/PAGE
00116 M01S00111.dmpccc +++| PN CON 0 PAGE NUMBER
00117 M01S00112.dmpccc +++|
00118 M01S00113.dmpccc +++| TTL DATA H*1 DUMP OF * PAGE TITLE LINE
| Line S00114 Modification History |
M01 (Added by) | dmpccc |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00119 M02S00114.252l678 ---| DATA 10H CCC, CH00
| Line S00115 Modification History |
M01 (Added by) | dmpccc |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00120 M02S00115.252l678 ---| DATA 40H.
00121 M01S00005.252l678 +++| DATA 10H CCC, CH
00122 M01S00006.252l678 +++| DATA 40H00.
00123 M01S00116.dmpccc +++| DTE BSS 1 DATE FOR OUTPUT
00124 M01S00117.dmpccc +++| TME BSS 1 TIME FOR OUTPUT
00125 M01S00118.dmpccc +++| PGE BSS 1 PAGE FOR OUTPUT
00126 M01S00119.dmpccc +++| CON 0
00127 M01S00120.dmpccc +++|
00128 M01S00121.dmpccc +++| STL DATA 10H0
00129 M01S00122.dmpccc +++| DATA C* 0 1 2 3 4 5 6 7 8
00130 M01S00123.dmpccc +++|, 9 A B C D E F*
00131 M01S00124.dmpccc +++| TITLE MAIN PROGRAM.
00132 M01S00125.dmpccc +++| DMP SPACE 4,20
00133 M01S00126.dmpccc +++|** DMPCCC - MAIN PROGRAM.
00134 M01S00127.dmpccc +++|
00135 M01S00128.dmpccc +++|
00136 M01S00129.dmpccc +++| DMPCCC RJ PRS PRESET PROGRAM
00137 M01S00130.dmpccc +++| DMP1 SA1 NA ADVANCE *CCC* ADDRESS
00138 M01S00131.dmpccc +++| SX6 X1+16
00139 M01S00132.dmpccc +++| SA6 A1
00140 M01S00133.dmpccc +++| SA4 NL
00141 M01S00134.dmpccc +++| IX4 X1-X4
00142 M01S00135.dmpccc +++| PL X4,DMP5 IF END OF DUMP
00143 M01S00136.dmpccc +++| RJ CHD CONVERT ADDRESS TO DISPLAY
00144 M01S00137.dmpccc +++| SA1 BA SET BUFFER ADDRESS
00145 M01S00138.dmpccc +++| LX6 30
00146 M01S00139.dmpccc +++| MX0 48
00147 M01S00140.dmpccc +++| SB3 6
00148 M01S00141.dmpccc +++| BX0 X0*X6
00149 M01S00142.dmpccc +++| SB2 X1
00150 M01S00143.dmpccc +++| RJ RDL READ DUMP LINE
00151 M01S00144.dmpccc +++| NZ X1,DMP4 IF END OF DATA
00152 M01S00145.dmpccc +++| SA1 BA SET BUFFER ADDRESS
00153 M01S00146.dmpccc +++| SX2 LB1&LB2 TOGGLE BUFFER
00154 M01S00147.dmpccc +++| BX6 X1-X2 COMPARE BUFFERS
00155 M01S00148.dmpccc +++| SA3 X1+B1
00156 M01S00149.dmpccc +++| MX7 1
00157 M01S00150.dmpccc +++| SA4 X6+B1
00158 M01S00151.dmpccc +++| BX7 X7+X1
00159 M01S00152.dmpccc +++| SX6 X6
00160 M01S00153.dmpccc +++| DMP2 BX2 X3-X4
00161 M01S00154.dmpccc +++| SA3 A3+B1
00162 M01S00155.dmpccc +++| SA4 A4+B1
00163 M01S00156.dmpccc +++| NZ X2,DMP3 IF LINE NOT DUPLICATE
00164 M01S00157.dmpccc +++| NG X2,DMP3 IF LINE NOT DUPLICATE
00165 M01S00158.dmpccc +++| NZ X3,DMP2 IF NOT END OF NEW LINE
00166 M01S00159.dmpccc +++| NG X1,DMP1 IF DUPLICATE LINES WRITTEN
00167 M01S00160.dmpccc +++| SA7 A1 SET DUPLICATE LINES WRITTEN
00168 M01S00161.dmpccc +++| SB2 =C* DUPLICATED LINES.*
00169 M01S00162.dmpccc +++| RJ LSL LIST LINE
00170 M01S00163.dmpccc +++| EQ DMP1 GET NEXT LINE TO PRINT
00171 M01S00164.dmpccc +++|
00172 M01S00165.dmpccc +++| DMP3 SA6 A1
00173 M01S00166.dmpccc +++| SB2 X1
00174 M01S00167.dmpccc +++| RJ LSL LIST LINE
00175 M01S00168.dmpccc +++| EQ DMP1 GET NEXT LINE TO PRINT
00176 M01S00169.dmpccc +++|
00177 M01S00170.dmpccc +++| DMP4 SA1 BA BUFFER ADDRESS
00178 M01S00171.dmpccc +++| SB2 X1
00179 M01S00172.dmpccc +++| RJ LSL LIST LINE
00180 M01S00173.dmpccc +++| DMP5 WRITER L
00181 M01S00174.dmpccc +++| MESSAGE (=C* DUMP COMPLETE.*)
00182 M01S00175.dmpccc +++| ENDRUN
00183 M01S00176.dmpccc +++| TITLE SUBROUTINES.
00184 M01S00177.dmpccc +++| CHD SPACE 4
00185 M01S00178.dmpccc +++|** CHD - CONVERT HEXADECIMAL DIGITS.
00186 M01S00179.dmpccc +++|*
00187 M01S00180.dmpccc +++|* *CHD* CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH LEADING
00188 M01S00181.dmpccc +++|* ZERO SUPPRESSION. CONVERSION CONTAINS SPACE FILL AND IS
00189 M01S00182.dmpccc +++|* RIGHT AND LEFT JUSTIFIED.
00190 M01S00183.dmpccc +++|*
00191 M01S00184.dmpccc +++|* ENTRY (X1) = NUMBER TO BE CONVERTED.
00192 M01S00185.dmpccc +++|*
00193 M01S00186.dmpccc +++|* EXIT (X6) = DISPLAY CODE CONVERSION RIGHT JUSTIFIED.
00194 M01S00187.dmpccc +++|* (X4) = DISPLAY CODE CONVERSION LEFT JUSTIFIED.
00195 M01S00188.dmpccc +++|* (B2) = 6*COUNT OF DIGITS CONVERTED.
00196 M01S00189.dmpccc +++|*
00197 M01S00190.dmpccc +++|* USES A - 4.
00198 M01S00191.dmpccc +++|* B - 2, 3.
00199 M01S00192.dmpccc +++|* X - 1, 2, 3, 4, 6.
00200 M01S00193.dmpccc +++|
00201 M01S00194.dmpccc +++|
00202 M01S00195.dmpccc +++| CHD SUBR ENTRY/EXIT
00203 M01S00196.dmpccc +++| SA4 =1H
00204 M01S00197.dmpccc +++| MX2 -4
00205 M01S00198.dmpccc +++| SB2 B0 CLEAR JUSTIFY COUNT
00206 M01S00199.dmpccc +++| CHD1 BX3 -X2*X1 EXTRACT DIGIT
00207 M01S00200.dmpccc +++| LX4 -6 SHIFT ASSEMBLY
00208 M01S00201.dmpccc +++| SB2 B2+6
00209 M01S00202.dmpccc +++| SB3 X3-10
00210 M01S00203.dmpccc +++| SX3 1R0+X3-1R
00211 M01S00204.dmpccc +++| NG B3,CHD2 IF DIGIT LESS THAN 10
00212 M01S00205.dmpccc +++| SX3 1RA+B3-1R
00213 M01S00206.dmpccc +++| CHD2 AX1 4 SHIFT OFF DIGIT
00214 M01S00207.dmpccc +++| IX4 X4+X3 ADD DIGIT TO ASSEMBLY
00215 M01S00208.dmpccc +++| NZ X1,CHD1 LOOP TO ZERO DIGIT
00216 M01S00209.dmpccc +++| LX4 -6 LEFT JUSTIFY ASSEMBLY
00217 M01S00210.dmpccc +++| LX6 X4,B2 RIGHT JUSTIFY ASSEMBLY
00218 M01S00211.dmpccc +++| EQ CHD RETURN
00219 M01S00212.dmpccc +++| LSL SPACE 4
00220 M01S00213.dmpccc +++|** LSL - LIST LINE.
00221 M01S00214.dmpccc +++|*
00222 M01S00215.dmpccc +++|* ENTRY (B2) = ADDRESS OF LINE IN C-FORMAT.
00223 M01S00216.dmpccc +++|*
00224 M01S00217.dmpccc +++|* EXIT LINE WRITTEN TO OUTPUT FILE.
00225 M01S00218.dmpccc +++|*
00226 M01S00219.dmpccc +++|* USES A - 1, 2, 6, 7.
00227 M01S00220.dmpccc +++|* B - 2.
00228 M01S00221.dmpccc +++|* X - 1, 2, 6, 7.
00229 M01S00222.dmpccc +++|*
00230 M01S00223.dmpccc +++|* CALLS CDD.
00231 M01S00224.dmpccc +++|*
00232 M01S00225.dmpccc +++|* MACROS WRITEC.
00233 M01S00226.dmpccc +++|
00234 M01S00227.dmpccc +++|
00235 M01S00228.dmpccc +++| LSL1 SX6 X1+B1 ADVANCE LINE POINTER
00236 M01S00229.dmpccc +++| SA6 A1
00237 M01S00230.dmpccc +++| BX1 X6 CONVERT PAGE NUMBER
00238 M01S00231.dmpccc +++| RJ CDD CONVERT DECIMAL TO DISPLAY
00239 M01S00232.dmpccc +++| SA1 LSLB SET PAGE NUMBER ON OUTPUT
00240 M01S00233.dmpccc +++| BX6 X1-X6
00241 M01S00234.dmpccc +++| SA6 PGE
00242 M01S00235.dmpccc +++| WRITEC L,TTL WRITE LIST TITLE
00243 M01S00236.dmpccc +++| WRITEC L,STL WRITE LIST SUBTITLE
00244 M01S00237.dmpccc +++| WRITEC L,(=C* *) SKIP A LINE
00245 M01S00238.dmpccc +++| WRITEC L,(=C* *) SKIP A LINE
00246 M01S00239.dmpccc +++| SA1 LSLA RESTORE ADDRESS OF LINE
00247 M01S00240.dmpccc +++| SB2 X1
00248 M01S00241.dmpccc +++| LSL2 WRITEC L,B2 WRITE DATA LINE
00249 M01S00242.dmpccc +++|
00250 M01S00243.dmpccc +++| LSL SUBR ENTRY/EXIT
00251 M01S00244.dmpccc +++| SA1 LN SET LINE NUMBER
00252 M01S00245.dmpccc +++| SA2 LP SET LINES PER PAGE
00253 M01S00246.dmpccc +++| SX6 X1+B1 ADVANCE LINE NUMBER
00254 M01S00247.dmpccc +++| SA6 A1
00255 M01S00248.dmpccc +++| IX1 X6-X2
00256 M01S00249.dmpccc +++| NG X1,LSL2 IF NO PAGE OVERFLOW
00257 M01S00250.dmpccc +++| SA1 PN SET PAGE NUMBER
00258 M01S00251.dmpccc +++| SX6 6 RESET LINE COUNT
00259 M01S00252.dmpccc +++| SX7 B2 SAVE ADDRESS OF LINE
00260 M01S00253.dmpccc +++| SA6 A6
00261 M01S00254.dmpccc +++| SA7 LSLA
00262 M01S00255.dmpccc +++| NZ X1,LSL1 IF NOT FIRST PAGE
00263 M01S00256.dmpccc +++| SB2 X2-80
00264 M01S00257.dmpccc +++| NG B2,LSL1 IF NOT 8 LINES/INCH
00265 M01S00258.dmpccc +++| WRITEC L,(=1LT) SET 8 LINES PER INCH
00266 M01S00259.dmpccc +++| SA1 PN SET PAGE NUMBER
00267 M01S00260.dmpccc +++| EQ LSL1 WRITE PAGE HEADER
00268 M01S00261.dmpccc +++|
00269 M01S00262.dmpccc +++| LSLA BSS 1 ADDRESS OF DATA LINE
00270 M01S00263.dmpccc +++| LSLB CON 5L PAGE&5L PAGE NUMBER IDENTIFIER
00271 M01S00264.dmpccc +++| RDL SPACE 4
00272 M01S00265.dmpccc +++|** RDL - READ DUMP LINE.
00273 M01S00266.dmpccc +++|*
00274 M01S00267.dmpccc +++|* ENTRY (B2) = OUTPUT WORD ADDRESS.
00275 M01S00268.dmpccc +++|* (B3) = OUTPUT WORD CHARACTER POSITION.
00276 M01S00269.dmpccc +++|* (X0) = PARTIAL ASSEMBLY.
00277 M01S00270.dmpccc +++|*
00278 M01S00271.dmpccc +++|* EXIT (X1) = EOR STATUS.
00279 M01S00272.dmpccc +++|*
00280 M01S00273.dmpccc +++|* USES A - 1, 2, 3, 4, 6, 7.
00281 M01S00274.dmpccc +++|* B - 2, 3, 4, 5, 6, 7.
00282 M01S00275.dmpccc +++|* X - ALL.
00283 M01S00276.dmpccc +++|*
00284 M01S00277.dmpccc +++|* MACROS READO.
00285 M01S00278.dmpccc +++|
00286 M01S00279.dmpccc +++|
00287 M01S00280.dmpccc +++|* ADD CHARACTER TRANSLATION OF MEMORY DUMP TO THE END
00288 M01S00281.dmpccc +++|* OF THE DUMP LINE.
00289 M01S00282.dmpccc +++|
00290 M01S00283.dmpccc +++| RDL9 SA2 RDLB
00291 M01S00284.dmpccc +++| SA6 RDLA+1 SAVE INPUT STATUS
00292 M01S00285.dmpccc +++| SX6 B4
00293 M01S00286.dmpccc +++| MX3 -36
00294 M01S00287.dmpccc +++| SA6 A6-B1
00295 M01S00288.dmpccc +++| LX2 48
00296 M01S00289.dmpccc +++| BX6 -X3*X2
00297 M01S00290.dmpccc +++| BX4 X3*X2
00298 M01S00291.dmpccc +++| SA2 A2+B1
00299 M01S00292.dmpccc +++| BX7 X0+X6
00300 M01S00293.dmpccc +++| BX6 X4+X2
00301 M01S00294.dmpccc +++| SA2 A2+B1
00302 M01S00295.dmpccc +++| MX4 -12
00303 M01S00296.dmpccc +++| SA3 A2+B1
00304 M01S00297.dmpccc +++| SA7 B2
00305 M01S00298.dmpccc +++| SA6 B2+B1
00306 M01S00299.dmpccc +++| LX2 12
00307 M01S00300.dmpccc +++| LX3 24
00308 M01S00301.dmpccc +++| BX7 -X4*X3
00309 M01S00302.dmpccc +++| BX6 X4*X3
00310 M01S00303.dmpccc +++| BX7 X2+X7
00311 M01S00304.dmpccc +++| SA7 A6+B1
00312 M01S00305.dmpccc +++| SA6 A7+B1
00313 M01S00306.dmpccc +++| MX7 0 SET LINE TERMINATOR
00314 M01S00307.dmpccc +++| SA7 A7+2
00315 M01S00308.dmpccc +++|
00316 M01S00309.dmpccc +++| RDL SUBR ENTRY/EXIT
00317 M01S00310.dmpccc +++| SA1 RDLA SET INPUT WORD STATUS
00318 M01S00311.dmpccc +++| MX2 -4
00319 M01S00312.dmpccc +++| MX3 -7
00320 M01S00313.dmpccc +++| SB5 16
00321 M01S00314.dmpccc +++| SA4 A1+B1
00322 M01S00315.dmpccc +++| SB4 X1
00323 M01S00316.dmpccc +++| BX5 X5-X5
00324 M01S00317.dmpccc +++| BX6 X4
00325 M01S00318.dmpccc +++| SB6 B1+B1
00326 M01S00319.dmpccc +++| SB7 RDLB
00327 M01S00320.dmpccc +++| RDL1 ZR B4,RDL8 IF END OF INPUT WORD
00328 M01S00321.dmpccc +++| LX6 8 EXTRACT NEXT 4 BITS
00329 M01S00322.dmpccc +++| SB4 B4-B1
00330 M01S00323.dmpccc +++| RDL2 BX1 -X2*X6
00331 M01S00324.dmpccc +++| SB6 B6-B1
00332 M01S00325.dmpccc +++| LX6 4 NEXT 4 BITS
00333 M01S00326.dmpccc +++| SX7 X1-10 CONVERT HEX DIGIT
00334 M01S00327.dmpccc +++| SX4 1R0+X1
00335 M01S00328.dmpccc +++| NG X7,RDL3 IF DIGIT LESS THAN 10
00336 M01S00329.dmpccc +++| SX4 1RA+X7
00337 M01S00330.dmpccc +++| RDL3 BX1 -X2*X6
00338 M01S00331.dmpccc +++| LX4 X4,B3
00339 M01S00332.dmpccc +++| SB3 B3-6
00340 M01S00333.dmpccc +++| SX7 X1-10
00341 M01S00334.dmpccc +++| SX1 1R0+X1
00342 M01S00335.dmpccc +++| NG X7,RDL4 IF DIGIT LESS THAN 10
00343 M01S00336.dmpccc +++| SX1 1RA+X7
00344 M01S00337.dmpccc +++| RDL4 BX0 X0+X4
00345 M01S00338.dmpccc +++| BX4 -X3*X6 CONVERT CHARACTER
00346 M01S00339.dmpccc +++| SX4 1R
00347 M01S00340.dmpccc +++| LX1 X1,B3
00348 M01S00341.dmpccc +++| LX5 6
00349 M01S00342.dmpccc +++| BX0 X0+X1
00350 M01S00343.dmpccc +++| BX5 X5+X4
00351 M01S00344.dmpccc +++| NZ B3,RDL5 IF OUTPUT WORD NOT FULL
00352 M01S00345.dmpccc +++| SB3 60
00353 M01S00346.dmpccc +++| BX7 X0
00354 M01S00347.dmpccc +++| MX0 0
00355 M01S00348.dmpccc +++| SA7 B2
00356 M01S00349.dmpccc +++| SB2 B2+B1
00357 M01S00350.dmpccc +++| RDL5 SB3 B3-6
00358 M01S00351.dmpccc +++| NZ B6,RDL1 IF 4 DIGITS NOT DONE
00359 M01S00352.dmpccc +++| SB3 B3-6 ADD SPACES
00360 M01S00353.dmpccc +++| SX1 2R
00361 M01S00354.dmpccc +++| LX1 X1,B3
00362 M01S00355.dmpccc +++| BX0 X0+X1
00363 M01S00356.dmpccc +++| SB5 B5-B1
00364 M01S00357.dmpccc +++| SB6 B1+B1
00365 M01S00358.dmpccc +++| NZ B3,RDL6 IF OUTPUT WORD NOT FULL
00366 M01S00359.dmpccc +++| SB3 60
00367 M01S00360.dmpccc +++| BX7 X0
00368 M01S00361.dmpccc +++| MX0 0
00369 M01S00362.dmpccc +++| SA7 B2
00370 M01S00363.dmpccc +++| SB2 B2+B1
00371 M01S00364.dmpccc +++| RDL6 SX7 B5 CHECK WORD
00372 M01S00365.dmpccc +++| MX1 -2
00373 M01S00366.dmpccc +++| SB3 B3-6
00374 M01S00367.dmpccc +++| BX1 -X1*X7
00375 M01S00368.dmpccc +++| NZ X1,RDL7 IF NOT 4TH WORD
00376 M01S00369.dmpccc +++| BX7 X5 STORE CONVERSION
00377 M01S00370.dmpccc +++| SA7 B7
00378 M01S00371.dmpccc +++| MX5 0
00379 M01S00372.dmpccc +++| SB7 B7+B1
00380 M01S00373.dmpccc +++| RDL7 NZ B5,RDL1 IF NOT 8 WORDS
00381 M01S00374.dmpccc +++| EQ RDL9 ADD CHARACTER TRANSLATION
00382 M01S00375.dmpccc +++|
00383 M01S00376.dmpccc +++|* READ NEXT WORD.
00384 M01S00377.dmpccc +++|
00385 M01S00378.dmpccc +++| RDL8 READO N
00386 M01S00379.dmpccc +++| MX2 -4
00387 M01S00380.dmpccc +++| SB4 4
00388 M01S00381.dmpccc +++| MX3 -7
00389 M01S00382.dmpccc +++| LX6 8
00390 M01S00383.dmpccc +++| ZR X1,RDL2 IF NOT EOR
00391 M01S00384.dmpccc +++| BX7 X0
00392 M01S00385.dmpccc +++| SA7 B2
00393 M01S00386.dmpccc +++| EQ RDL9 ADD CHARACTER TRANSLATION
00394 M01S00387.dmpccc +++|
00395 M01S00388.dmpccc +++| RDLA CON 0,0 INPUT WORD STATUS
00396 M01S00389.dmpccc +++| RDLB BSS 4 CHARACTER TRANSLATION STORAGE
00397 M01S00390.dmpccc +++| SPACE 4
00398 M01S00391.dmpccc +++|** COMMON DECKS.
00399 M01S00392.dmpccc +++|
00400 M01S00393.dmpccc +++|
00401 M01S00394.dmpccc +++|*CALL COMCCDD
00402 M01S00395.dmpccc +++|*CALL COMCCIO
00403 M01S00396.dmpccc +++|*CALL COMCMVE
00404 M01S00397.dmpccc +++|*CALL COMCRDO
00405 M01S00398.dmpccc +++|*CALL COMCRDW
00406 M01S00399.dmpccc +++|*CALL COMCSYS
00407 M01S00400.dmpccc +++|*CALL COMCWTC
00408 M01S00401.dmpccc +++|*CALL COMCWTW
00409 M01S00402.dmpccc +++| SPACE 4
00410 M01S00403.dmpccc +++|** BUFFERS.
00411 M01S00404.dmpccc +++|
00412 M01S00405.dmpccc +++|
00413 M01S00406.dmpccc +++| USE //
00414 M01S00407.dmpccc +++| SEG
00415 M01S00408.dmpccc +++|
00416 M01S00409.dmpccc +++| LB1 BSS 15 LINE BUFFER 1
00417 M01S00410.dmpccc +++| LB2 BSS 15 LINE BUFFER 2
00418 M01S00411.dmpccc +++| LFB EQU * LIST FILE BUFFER
00419 M01S00412.dmpccc +++| NMB EQU LFB+LFBL MEMORY BUFFER
00420 M01S00413.dmpccc +++| RFL= EQU NMB+NMBL+100B
00421 M01S00414.dmpccc +++| PRS SPACE 4
00422 M01S00415.dmpccc +++|** PRS - PRESET PROGRAM.
00423 M01S00416.dmpccc +++|
00424 M01S00417.dmpccc +++|
00425 M01S00418.dmpccc +++| PRS SUBR ENTRY/EXIT
00426 M01S00419.dmpccc +++| SB1 1
00427 M01S00420.dmpccc +++| SA1 N SET E=0 IN THE FET
00428 M01S00421.dmpccc +++| MX0 3
00429 M01S00422.dmpccc +++| BX6 -X0*X1
00430 M01S00423.dmpccc +++| SA6 A1+
00431 M01S00424.dmpccc +++| SX7 LINP SET LINES/PAGE
00432 M01S00425.dmpccc +++| SA7 LP
00433 M01S00426.dmpccc +++| SX6 A0+ SET FIELD LENGTH
00434 M01S00427.dmpccc +++| SA6 N+4
00435 M01S00428.dmpccc +++| MOVE PRSB,PRSA,2 COPY FILE ACCESS LIST
00436 M01S00429.dmpccc +++| SA1 CCDR UNPACK CONTROL STATEMENT
00437 M01S00430.dmpccc +++| SB2 ISB INPUT STRING BUFFER
00438 M01S00431.dmpccc +++| RJ UCS UNPACK C-FORMAT TO S-FORMAT
00439 M01S00432.dmpccc +++| RJ ARG PROCESS ARGUMENTS
00440 M01S00433.dmpccc +++| DATE DTE GET CURRENT DATE
00441 M01S00434.dmpccc +++| CLOCK TME GET CURRENT TIME
00442 M01S00435.dmpccc +++|
00443 M01S00436.dmpccc +++|* FORM PAGE TITLE LINE USING CHANNEL.
00444 M01S00437.dmpccc +++|
| Line S00438 Modification History |
M01 (Added by) | dmpccc |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00445 M02S00438.252l678 ---| SA1 TTL+1 SET CHANNEL IN TITLE
00446 M01S00007.252l678 +++| SA1 TTL+2 SET CHANNEL IN TITLE
00447 M01S00439.dmpccc +++| SA2 N
| Line S00440 Modification History |
M01 (Added by) | dmpccc |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00448 M02S00440.252l678 ---| LX2 -48
00449 M01S00008.252l678 +++| MX3 -5
00450 M01S00009.252l678 +++| LX3 -12
00451 M01S00010.252l678 +++| BX2 -X3*X2
00452 M01S00441.dmpccc +++| MX3 -3
00453 M01S00011.252l678 +++| LX3 -12
00454 M01S00442.dmpccc +++| BX4 -X3*X2
| Line S00443 Modification History |
M01 (Added by) | dmpccc |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00455 M02S00443.252l678 ---| LX2 -3
| Line S00012 Modification History |
M01 (Added by) | 252l678 |
M02 (Updated by) | dmpcc1 |
Seq # *Modification Id* Act
----------------------------+
00456 M02S00012.dmpcc1 ---| LX2 6
00457 M01S00001.dmpcc1 +++| LX2 3
00458 M01S00013.252l678 +++| LX3 6
00459 M01S00444.dmpccc +++| BX7 -X3*X2
00460 M01S00445.dmpccc +++| IX6 X1+X4
| Line S00446 Modification History |
M01 (Added by) | dmpccc |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00461 M02S00446.252l678 ---| LX7 6
00462 M01S00447.dmpccc +++| IX6 X6+X7
00463 M01S00448.dmpccc +++| SA6 A1
| Line S00449 Modification History |
M01 (Added by) | dmpccc |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00464 M02S00449.252l678 ---| LX2 -6
00465 M01S00014.252l678 +++| SA2 A2
00466 M01S00450.dmpccc +++| SA1 NA SET CCC ADDRESSES
00467 M01S00451.dmpccc +++| SA3 NL
| Line S00452 Modification History |
M01 (Added by) | dmpccc |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00468 M02S00452.252l678 ---| LX2 57
00469 M01S00453.dmpccc +++| LX1 12
00470 M01S00454.dmpccc +++| LX3 30
00471 M01S00455.dmpccc +++| BX6 X2+X1
00472 M01S00456.dmpccc +++| BX6 X6+X3
00473 M01S00457.dmpccc +++| SA6 A2
00474 M01S00015.252l678 +++| SA1 CCHF CHECK FOR CONCURRENT CHANNEL
00475 M01S00016.252l678 +++| NZ X1,PRS1 IF A CONCURRENT CHANNEL
00476 M01S00458.dmpccc +++| SYSTEM DCC,R,N CALL *DCC*
00477 M01S00459.dmpccc +++| EQ PRSX RETURN
00478 M01S00460.dmpccc +++|
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 M01S00461.dmpccc +++| PRSA BSS 0 FILE ACCESS LIST
00484 M01S00462.dmpccc +++| CON 0LOUTPUT+L
00485 M01S00463.dmpccc +++| CON 0
00486 M01S00464.dmpccc +++| PRSB EQU *-PRSA
00487 M01S00021.252l678 +++| PRSC VFD 36/0,12/0,12/0
00488 M01S00022.252l678 +++| VFD 18/3RDCC,6/40B,36/N
00489 M01S00465.dmpccc +++|
00490 M01S00466.dmpccc +++|* USED BY TCS.
00491 M01S00467.dmpccc +++|
00492 M01S00468.dmpccc +++| EC CON 0 ERROR COUNTER
00493 M01S00469.dmpccc +++| EM CON 0 ERROR MESSAGE
00494 M01S00470.dmpccc +++| EP CON 0 ERROR POINTER
00495 M01S00471.dmpccc +++| CST SPACE 4
00496 M01S00472.dmpccc +++|** CONTROL STATMENT TABLE.
00497 M01S00473.dmpccc +++|
00498 M01S00474.dmpccc +++|
00499 M01S00475.dmpccc +++| CST BSS 0
00500 M01S00476.dmpccc +++| CON 0LL L = LIST FILE
00501 M01S00477.dmpccc +++| VFD 6/,18/L,18/PRSA,18/AFN
00502 M01S00478.dmpccc +++| CON 0LCH CH = CHANNEL NUMBER
00503 M01S00479.dmpccc +++| CON ACH
00504 M01S00480.dmpccc +++| CON 0LC C = CHANNEL NUMBER
00505 M01S00481.dmpccc +++| CON ACH
00506 M01S00482.dmpccc +++| CON 0
00507 M01S00483.dmpccc +++| ABT SPACE 4
00508 M01S00484.dmpccc +++|** ABT - ABORT JOB.
00509 M01S00485.dmpccc +++|*
00510 M01S00486.dmpccc +++|* ENTRY (X7) = DAYFILE MESSAGE ADDRESS.
00511 M01S00487.dmpccc +++|*
00512 M01S00488.dmpccc +++|* EXIT JOB ABORTED.
00513 M01S00489.dmpccc +++|*
00514 M01S00490.dmpccc +++|*
00515 M01S00491.dmpccc +++|* MACROS ABORT, MESSAGE.
00516 M01S00492.dmpccc +++|
00517 M01S00493.dmpccc +++|
00518 M01S00494.dmpccc +++| ABT MESSAGE X7
00519 M01S00495.dmpccc +++| ABORT
00520 M01S00496.dmpccc +++| ACH SPACE 4
00521 M01S00497.dmpccc +++|** ACH - ASSEMBLE CHANNEL.
00522 M01S00498.dmpccc +++|*
00523 M01S00499.dmpccc +++|* ENTRY (X5) = PARAMETER SEPARATOR.
00524 M01S00500.dmpccc +++|* (A5) = ADDRESS OF PARAMETER SEPARATOR IN LIST.
00525 M01S00501.dmpccc +++|*
00526 M01S00502.dmpccc +++|* EXIT (N) = CONVERTED CHANNEL NUMBER.
00527 M01S00503.dmpccc +++|* (A5) = ADDRESS OF PARAMETER LIST.
00528 M01S00504.dmpccc +++|*
00529 M01S00505.dmpccc +++|* ERROR *ERM* CALLED IF PARAMETER ERROR.
00530 M01S00506.dmpccc +++|* (X7) = ERROR MESSAGE ADDRESS.
00531 M01S00507.dmpccc +++|*
00532 M01S00508.dmpccc +++|* USES A - 1, 6, 5.
00533 M01S00509.dmpccc +++|* B - 2, 3.
00534 M01S00510.dmpccc +++|* X - 1, 5, 6, 7.
00535 M01S00511.dmpccc +++|*
00536 M01S00512.dmpccc +++|* CALLS ASD, ERM.
00537 M01S00513.dmpccc +++|
00538 M01S00514.dmpccc +++|
00539 M01S00515.dmpccc +++| ACH SB2 X5-1R= CHECK SEPARATOR
00540 M01S00516.dmpccc +++| SX7 =C* EQUIVALENCE MISSING.*
00541 M01S00517.dmpccc +++| NZ B2,ERM IF NOT *=*
00542 M01S00518.dmpccc +++| SA5 A5+1 ASSEMBLE CHANNEL
00543 M01S00023.252l678 +++| SX6 X5-1RC
00544 M01S00024.252l678 +++| ZR X6,ACH2 IF CONCURRENT CHANNEL
00545 M01S00519.dmpccc +++| RJ ASD ASSEMBLE OCTAL DIGITS
00546 M01S00520.dmpccc +++| SB2 X6-34B CHECK CHANNEL
00547 M01S00521.dmpccc +++| SB3 X6-20B
00548 M01S00522.dmpccc +++| SX7 =C* INCORRECT CHANNEL NUMBER.*
00549 M01S00523.dmpccc +++| PL B2,ERM IF CHANNEL NUMBER OUT OF RANGE
00550 M01S00524.dmpccc +++| PL B3,ACH1 IF CHANNEL IN RANGE
00551 M01S00525.dmpccc +++| SB2 X6-14B
00552 M01S00526.dmpccc +++| PL B2,ERM IF CHANNEL OUT OF RANGE
00553 M01S00527.dmpccc +++| ACH1 SA1 N SET CHANNEL IN REQUEST
00554 M01S00528.dmpccc +++| MX7 -6
00555 M01S00529.dmpccc +++| LX1 -48
00556 M01S00530.dmpccc +++| BX1 X7*X1
00557 M01S00531.dmpccc +++| BX6 X1+X6
00558 M01S00532.dmpccc +++| LX6 48
00559 M01S00533.dmpccc +++| SA6 A1
00560 M01S00534.dmpccc +++| EQ TCSX RETURN
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 M01S00535.dmpccc +++| AFN SPACE 4
00577 M01S00536.dmpccc +++|** AFN - ASSEMBLE FILE NAME.
00578 M01S00537.dmpccc +++|*
00579 M01S00538.dmpccc +++|* ENTRY (X5) = PARAMETER SEPARATOR.
00580 M01S00539.dmpccc +++|* (A5) = ADDRESS OF PARAMETER SEPARATOR IN LIST.
00581 M01S00540.dmpccc +++|* (X2) = TRANSLATION TABLE ENTRY.
00582 M01S00541.dmpccc +++|*
00583 M01S00542.dmpccc +++|* EXIT FILENAME SET IN *FET* (*0* = NO FILE).
00584 M01S00543.dmpccc +++|*
00585 M01S00544.dmpccc +++|* USES A - 1, 5, 7.
00586 M01S00545.dmpccc +++|* B - 2, 3.
00587 M01S00546.dmpccc +++|* X - 0, 1, 2, 5, 6, 7.
00588 M01S00547.dmpccc +++|*
00589 M01S00548.dmpccc +++|* CALLS ASN.
00590 M01S00549.dmpccc +++|
00591 M01S00550.dmpccc +++|
00592 M01S00551.dmpccc +++| AFN SB2 X5-1R= CHECK SEPARATOR
00593 M01S00552.dmpccc +++| AX2 18 GET ASSUMED FILE NAME
00594 M01S00553.dmpccc +++| SA1 X2
00595 M01S00554.dmpccc +++| AX2 18 SET FET ADDRESS
00596 M01S00555.dmpccc +++| MX6 42
00597 M01S00556.dmpccc +++| SB3 X2
00598 M01S00557.dmpccc +++| BX6 X6*X1
00599 M01S00558.dmpccc +++| NZ B2,AFN1 IF NOT *=*
00600 M01S00559.dmpccc +++| SA5 A5+B1 SKIP SEPARATOR
00601 M01S00560.dmpccc +++| BX0 X2
00602 M01S00561.dmpccc +++| RJ ASN ASSEMBLE NAME
00603 M01S00562.dmpccc +++| NZ X7,AFN3 IF ERROR IN FILE NAME
00604 M01S00563.dmpccc +++| SX7 1R0 CHECK NAME
00605 M01S00564.dmpccc +++| LX7 54
00606 M01S00565.dmpccc +++| BX2 X0
00607 M01S00566.dmpccc +++| BX7 X7-X6
00608 M01S00567.dmpccc +++| ZR X7,AFN2 IF *0*
00609 M01S00568.dmpccc +++| AFN1 SA1 X2 REPLACE FILE NAME
00610 M01S00569.dmpccc +++| MX7 42
00611 M01S00570.dmpccc +++| BX1 -X7*X1
00612 M01S00571.dmpccc +++| BX7 X1+X6
00613 M01S00572.dmpccc +++| NZ X1,AFN2 IF STATUS IS SET
00614 M01S00573.dmpccc +++| SX1 B1
00615 M01S00574.dmpccc +++| BX7 X1+X6
00616 M01S00575.dmpccc +++| AFN2 SA7 X2
00617 M01S00576.dmpccc +++| EQ TCSX RETURN
00618 M01S00577.dmpccc +++|
00619 M01S00578.dmpccc +++| AFN3 SX7 =C* UNRECOGNIZED FILE NAME.*
00620 M01S00579.dmpccc +++| EQ ERM
00621 M01S00580.dmpccc +++| ARG SPACE 4
00622 M01S00581.dmpccc +++|** ARG - PROCESS ARGUMENTS.
00623 M01S00582.dmpccc +++|*
00624 M01S00583.dmpccc +++|* ENTRY (ISB) = STRING BUFFER CONTAINING CONTROL CARD IMAGE.
00625 M01S00584.dmpccc +++|*
00626 M01S00585.dmpccc +++|* EXIT (X1) = ZERO.
00627 M01S00586.dmpccc +++|* ALL PARAMETERS PROCESSED.
00628 M01S00587.dmpccc +++|*
00629 M01S00588.dmpccc +++|* ERROR *ABT* CALLED IF PARAMETER ERROR.
00630 M01S00589.dmpccc +++|* (X7) = ERROR MESSAGE ADDRESS.
00631 M01S00590.dmpccc +++|*
00632 M01S00591.dmpccc +++|* USES A - 1, 2, 3, 4, 5.
00633 M01S00592.dmpccc +++|* B - 2, 3.
00634 M01S00593.dmpccc +++|* X - ALL.
00635 M01S00594.dmpccc +++|*
00636 M01S00595.dmpccc +++|* CALLS ABT, ASN, TCS.
00637 M01S00596.dmpccc +++|*
00638 M01S00597.dmpccc +++|* MACROS MESSAGE.
00639 M01S00598.dmpccc +++|
00640 M01S00599.dmpccc +++|
00641 M01S00600.dmpccc +++| ARG SUBR ENTRY/EXIT
00642 M01S00601.dmpccc +++| SA5 ISB FIRST CHARACTER
00643 M01S00602.dmpccc +++| RJ ASN ASSEMBLE NAME
00644 M01S00603.dmpccc +++| ARG1 SB2 X5-1R)
00645 M01S00604.dmpccc +++| SB3 X5-1R.
00646 M01S00605.dmpccc +++| ZR B2,ARGX IF END OF COMMAND
00647 M01S00606.dmpccc +++| ZR B3,ARGX IF END OF COMMAND
00648 M01S00607.dmpccc +++| SA5 A5+1 SKIP SEPARATOR
00649 M01S00608.dmpccc +++| SX0 CST
00650 M01S00609.dmpccc +++| RJ TCS TRANSLATE CONTROL STATEMENT
00651 M01S00610.dmpccc +++| SA1 EM
00652 M01S00611.dmpccc +++| ZR X1,ARG1 LOOP IF NO ERROR MESSAGE
00653 M01S00612.dmpccc +++| MESSAGE X1
00654 M01S00613.dmpccc +++| SX7 ARGA
00655 M01S00614.dmpccc +++| EQ ABT ABORT JOB
00656 M01S00615.dmpccc +++|
00657 M01S00616.dmpccc +++| ARGA DATA C* CONTROL STATEMENT ERROR.*
00658 M01S00617.dmpccc +++| ASD SPACE 4
00659 M01S00618.dmpccc +++|** ASD - ASSEMBLE DIGITS.
00660 M01S00619.dmpccc +++|*
00661 M01S00620.dmpccc +++|* ENTRY (X5) = FIRST CHARACTER TO ASSEMBLE.
00662 M01S00621.dmpccc +++|* (A5) = ADDRESS OF CHARACTER STRING.
00663 M01S00622.dmpccc +++|* (B2) = ZERO IF OCTAL BASE ASSUMED.
00664 M01S00623.dmpccc +++|* = NON-ZERO IF DECIMAL BASE ASSUMED.
00665 M01S00624.dmpccc +++|*
00666 M01S00625.dmpccc +++|* EXIT (X6) = ASSEMBLED DIGITS.
00667 M01S00626.dmpccc +++|* (X5) = NEXT CHARACTER TO BE PROCESSED.
00668 M01S00627.dmpccc +++|* (A5) = ADDRESS OF NEXT CHARACTER.
00669 M01S00628.dmpccc +++|*
00670 M01S00629.dmpccc +++|* ERROR *ERM* CALLED IF VALUE ERROR.
00671 M01S00630.dmpccc +++|* (X7) = ERROR MESSAGE ADDRESS.
00672 M01S00631.dmpccc +++|*
00673 M01S00632.dmpccc +++|* USES A - 5, 6.
00674 M01S00633.dmpccc +++|* B - 2, 3, 4, 5, 6.
00675 M01S00634.dmpccc +++|* X - 1, 2, 3, 5, 6, 7.
00676 M01S00635.dmpccc +++|*
00677 M01S00636.dmpccc +++|* CALLS ERM.
00678 M01S00637.dmpccc +++|
00679 M01S00638.dmpccc +++|
00680 M01S00639.dmpccc +++| ASD1 LX3 X7,B4 DECIMAL*10
00681 M01S00640.dmpccc +++| SX5 X5+B3 CONVERT CHARACTER
00682 M01S00641.dmpccc +++| IX7 X3+X7
00683 M01S00642.dmpccc +++| LX6 3 OCTAL*8
00684 M01S00643.dmpccc +++| LX7 1
00685 M01S00644.dmpccc +++| BX6 X6+X5 OCTAL+NEW DIGIT
00686 M01S00645.dmpccc +++| IX7 X7+X5 DECIMAL+NEW DIGIT
00687 M01S00646.dmpccc +++| AX5 3 NOTE *8*/*9*
00688 M01S00647.dmpccc +++| SB5 B5+X5
00689 M01S00648.dmpccc +++| SA5 A5+B1 NEXT CHARACTER
00690 M01S00649.dmpccc +++| SB6 X5 CHECK CHARACTER
00691 M01S00650.dmpccc +++| LX3 X1,B6
00692 M01S00651.dmpccc +++| NG X3,ASD1 IF DIGIT
00693 M01S00652.dmpccc +++| SX1 X5-1RD CHECK NEXT CHARACTER
00694 M01S00653.dmpccc +++| SX2 X5-1RB
00695 M01S00654.dmpccc +++| NZ X1,ASD2 IF NOT *D*
00696 M01S00655.dmpccc +++| SA5 A5+B1 SKIP CHARACTER
00697 M01S00656.dmpccc +++| BX6 X7 RETURN DECIMAL
00698 M01S00657.dmpccc +++| EQ ASDX RETURN
00699 M01S00658.dmpccc +++|
00700 M01S00659.dmpccc +++| ASD2 NZ X2,ASD3 IF NOT *B*
00701 M01S00660.dmpccc +++| SA5 A5+1 SKIP CHARACTER
00702 M01S00661.dmpccc +++| ZR B5,ASDX IF *8*/*9* NOT PRESENT
00703 M01S00662.dmpccc +++| SX7 =C* 8/9 NOT ALLOWED IN OCTAL FIELD.*
00704 M01S00663.dmpccc +++| EQ ERM PROCESS ERROR
00705 M01S00664.dmpccc +++|
00706 M01S00665.dmpccc +++| ASD3 SB2 B2+B5 SET BASE
00707 M01S00666.dmpccc +++| ZR B2,ASDX IF OCTAL
00708 M01S00667.dmpccc +++| BX6 X7 RETURN DECIMAL
00709 M01S00668.dmpccc +++|
00710 M01S00669.dmpccc +++| ASD SUBR ENTRY/EXIT
00711 M01S00670.dmpccc +++| MX1 10 MASK FOR *0* - *9*
00712 M01S00671.dmpccc +++| SB3 -1R0
00713 M01S00672.dmpccc +++| SB4 B1+B1
00714 M01S00673.dmpccc +++| LX1 -1R0
00715 M01S00674.dmpccc +++| SX6 A5 SET ERROR POINTER
00716 M01S00675.dmpccc +++| SB5 B0 CLEAR *8*/*9* PRESENCE
00717 M01S00676.dmpccc +++| SB6 X5 CHECK CHARACTER
00718 M01S00677.dmpccc +++| MX7 0 CLEAR DECIMAL ASSEMBLY
00719 M01S00678.dmpccc +++| SA6 EP
00720 M01S00679.dmpccc +++| BX6 X6-X6 CLEAR OCTAL ASSEMBLY
00721 M01S00680.dmpccc +++| LX3 X1,B6
00722 M01S00681.dmpccc +++| NG X3,ASD1 IF DIGIT
00723 M01S00682.dmpccc +++|
00724 M01S00683.dmpccc +++| SX7 =C* NUMERIC FIELD MUST NOT BE BLANK.*
00725 M01S00684.dmpccc +++| EQ ERM PROCESS ERROR
00726 M01S00685.dmpccc +++| ASN SPACE 4
00727 M01S00686.dmpccc +++|** ASN - ASSEMBLE NAME.
00728 M01S00687.dmpccc +++|*
00729 M01S00688.dmpccc +++|* ENTRY (X5) = FIRST CHARACTER IN NAME.
00730 M01S00689.dmpccc +++|* (A5) = ADDRESS OF FIRST CHARACTER.
00731 M01S00690.dmpccc +++|*
00732 M01S00691.dmpccc +++|* EXIT (X6) = ASSEMBLED NAME.
00733 M01S00692.dmpccc +++|* (X5) = NEXT CHARACTER TO BE PROCESSED.
00734 M01S00693.dmpccc +++|* (A5) = ADDRESS OF NEXT CHARACTER.
00735 M01S00694.dmpccc +++|* (X7) = 0, IF NO ERROR.
00736 M01S00695.dmpccc +++|* (X7) = 1, IF ERROR ENCOUNTERED.
00737 M01S00696.dmpccc +++|*
00738 M01S00697.dmpccc +++|* USES A - 5, 7.
00739 M01S00698.dmpccc +++|* B - 2, 4.
00740 M01S00699.dmpccc +++|* X - 1, 2, 5, 6, 7.
00741 M01S00700.dmpccc +++|
00742 M01S00701.dmpccc +++|
00743 M01S00702.dmpccc +++| ASN1 LX5 X5,B2 MERGE
00744 M01S00703.dmpccc +++| NG B2,ASNX IF ASSEMBLY FULL
00745 M01S00704.dmpccc +++| BX6 X6+X5
00746 M01S00705.dmpccc +++| SA5 A5+B1 NEXT CHARACTER
00747 M01S00706.dmpccc +++| SB2 B2-6
00748 M01S00707.dmpccc +++| SB4 X5
00749 M01S00708.dmpccc +++| ASN2 AX2 X1,B4
00750 M01S00709.dmpccc +++| LX2 59
00751 M01S00710.dmpccc +++| NG X2,ASN1 IF LETTER OR DIGIT
00752 M01S00711.dmpccc +++| SX7 B0+ SET NO ERROR
00753 M01S00712.dmpccc +++|
00754 M01S00713.dmpccc +++| ASN SUBR ENTRY/EXIT
00755 M01S00714.dmpccc +++| MX1 36 MASK FOR LETTERS AND DIGITS
00756 M01S00715.dmpccc +++| SB2 54
00757 M01S00716.dmpccc +++| BX6 X6-X6 CLEAR ASSEMBLY
00758 M01S00717.dmpccc +++| SX7 A5 SET ERROR POINTER
00759 M01S00718.dmpccc +++| LX1 37
00760 M01S00719.dmpccc +++| SB4 X5+
00761 M01S00720.dmpccc +++| SA7 EP
00762 M01S00721.dmpccc +++| SX7 B1+ PRESET ERROR
00763 M01S00722.dmpccc +++| EQ ASN2 ASSEMBLE NAME
00764 M01S00723.dmpccc +++| TCS SPACE 4
00765 M01S00724.dmpccc +++|** TCS - TRANSLATE CONTROL STATEMENT.
00766 M01S00725.dmpccc +++|*
00767 M01S00726.dmpccc +++|* ENTRY (X0) = ADDRESS OF STATEMENT TRANSLATION TABLE.
00768 M01S00727.dmpccc +++|*
00769 M01S00728.dmpccc +++|* EXIT PROCESSOR DEFINED FOR PARAMETER ENTERED.
00770 M01S00729.dmpccc +++|*
00771 M01S00730.dmpccc +++|* ERROR *ERM* CALLED PROCESSOR NOT DEFINED FOR PARAMETER.
00772 M01S00731.dmpccc +++|* (X7) = ERROR MESSAGE ADDRESS.
00773 M01S00732.dmpccc +++|*
00774 M01S00733.dmpccc +++|* USES A - 1, 2, 6, 7.
00775 M01S00734.dmpccc +++|* B - 2.
00776 M01S00735.dmpccc +++|* X - 1, 2, 3, 6, 7.
00777 M01S00736.dmpccc +++|*
00778 M01S00737.dmpccc +++|* CALLS ERM.
00779 M01S00738.dmpccc +++|
00780 M01S00739.dmpccc +++|
00781 M01S00740.dmpccc +++| ERM SA2 EC ADVANCE ERROR COUNTER
00782 M01S00741.dmpccc +++| SA7 EM SET ERROR MESSAGE ADDRESS
00783 M01S00742.dmpccc +++| SX6 X2+B1
00784 M01S00743.dmpccc +++| SA6 A2
00785 M01S00744.dmpccc +++|
00786 M01S00745.dmpccc +++| TCS SUBR ENTRY/EXIT
00787 M01S00746.dmpccc +++| RJ ASN ASSEMBLE NAME
00788 M01S00747.dmpccc +++| NZ X7,TCS1.1 IF ERROR
00789 M01S00748.dmpccc +++| SA1 X0 START NAME SEARCH
00790 M01S00749.dmpccc +++| TCS1 BX3 X1-X6
00791 M01S00750.dmpccc +++| SA2 A1+B1
00792 M01S00751.dmpccc +++| ZR X3,TCS2 IF MATCH FOUND
00793 M01S00752.dmpccc +++| SA1 A2+B1 NEXT ENTRY
00794 M01S00753.dmpccc +++| NZ X1,TCS1 LOOP TO END OF TABLE
00795 M01S00754.dmpccc +++| TCS1.1 SX7 TCSA
00796 M01S00755.dmpccc +++| EQ ERM
00797 M01S00756.dmpccc +++|
00798 M01S00757.dmpccc +++| TCS2 SB2 X2 PROCESS STATMENT
00799 M01S00758.dmpccc +++| JP B2
00800 M01S00759.dmpccc +++|
00801 M01S00760.dmpccc +++| TCSA DATA C* INCORRECT DIRECTIVE NAME.*
00802 M01S00761.dmpccc +++| UCS SPACE 4
00803 M01S00762.dmpccc +++|** UCS - UNPACK C-FORMAT TO S-FORMAT.
00804 M01S00763.dmpccc +++|*
00805 M01S00764.dmpccc +++|* UCS UNPACKS A C-FORMAT LINE TO AN S-FORMAT LINE (1 CHARACTER/
00806 M01S00765.dmpccc +++|* WORD). TRAILING SPACES ARE DELETED, AND THE END OF LINE IS
00807 M01S00766.dmpccc +++|* MARKED BY A NEGATIVE WORD (BITS 0-58 = 0, BIT 59 = 1).
00808 M01S00767.dmpccc +++|*
00809 M01S00768.dmpccc +++|* ENTRY (A1) = FIRST WORD ADDRESS OF C-FORMAT BUFFER.
00810 M01S00769.dmpccc +++|* (X1) = FIRST WORD OF C-FORMAT BUFFER.
00811 M01S00770.dmpccc +++|* (B2) = FIRST WORD ADDRESS OF S-FORMAT BUFFER.
00812 M01S00771.dmpccc +++|*
00813 M01S00772.dmpccc +++|* EXIT (A1) = ADDRESS OF LAST WORD OF C-FORMAT BUFFER.
00814 M01S00773.dmpccc +++|* (A6) = ADDRESS+1 OF LAST CHARACTER OF S-FORMAT BUFFER.
00815 M01S00774.dmpccc +++|*
00816 M01S00775.dmpccc +++|* USES A - 1, 2, 3, 6, 7.
00817 M01S00776.dmpccc +++|* B - 3, 4.
00818 M01S00777.dmpccc +++|* X - 0, 1, 2, 3, 5, 6, 7.
00819 M01S00778.dmpccc +++|
00820 M01S00779.dmpccc +++|
00821 M01S00780.dmpccc +++| UCS SUBR ENTRY/EXIT
00822 M01S00781.dmpccc +++| SA2 B2-B1 PRESET A6
00823 M01S00782.dmpccc +++| MX3 1
00824 M01S00783.dmpccc +++| SB3 -1R
00825 M01S00784.dmpccc +++| SX6 B0
00826 M01S00785.dmpccc +++| BX7 X2
00827 M01S00786.dmpccc +++| MX2 -6
00828 M01S00787.dmpccc +++| SA6 A2
00829 M01S00788.dmpccc +++| SX0 1R
00830 M01S00789.dmpccc +++| UCS1 LX1 6 NEXT CHARACTER
00831 M01S00790.dmpccc +++| BX6 -X2*X1
00832 M01S00791.dmpccc +++| LX3 6
00833 M01S00792.dmpccc +++| BX1 X2*X1
00834 M01S00793.dmpccc +++| IX5 X6-X0
00835 M01S00794.dmpccc +++| ZR X5,UCS1.5 IF LEADING SPACE
00836 M01S00795.dmpccc +++| SA6 A6+B1
00837 M01S00796.dmpccc +++| SX0 3R
00838 M01S00797.dmpccc +++| UCS1.5 PL X3,UCS2 IF NOT END OF WORD
00839 M01S00798.dmpccc +++| SA1 A1+1 NEXT WORD
00840 M01S00799.dmpccc +++| UCS2 NZ X6,UCS1 IF NOT ZERO CHARACTER
00841 M01S00800.dmpccc +++| NZ X1,UCS1 IF NOT END OF LINE
00842 M01S00801.dmpccc +++| NG X1,UCS1 GET NEXT CHARACTER
00843 M01S00802.dmpccc +++| SA3 A6-B1 DELETE TRAILING SPACES
00844 M01S00803.dmpccc +++| MX6 1
00845 M01S00804.dmpccc +++| UCS3 SB4 X3+B3
00846 M01S00805.dmpccc +++| SA3 A3-B1
00847 M01S00806.dmpccc +++| ZR B4,UCS3 IF NEXT CHARACTER ZERO
00848 M01S00807.dmpccc +++| SX3 -B3
00849 M01S00808.dmpccc +++| SA7 A2+ RESTORE WORD BEFORE LINE
00850 M01S00809.dmpccc +++| BX6 X6+X3
00851 M01S00810.dmpccc +++| SA6 A3+2 SET END OF LINE
00852 M01S00811.dmpccc +++| EQ UCSX RETURN
00853 M01S00812.dmpccc +++| CON 0
00854 M01S00813.dmpccc +++| ISB EQU * STRING BUFFER
00855 M01S00814.dmpccc +++| SPACE 4
00856 M01S00815.dmpccc +++| END