Deck DMPCCC

3 Modifications

Source

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