User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comccdp

Common COMCCDP

3 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comccdp +++|          CTEXT  COMCCDP - CPU DEBUGGING PACKAGE.
00002  M01S00002.comccdp +++| CDP      SPACE  4,10
00003  M01S00003.comccdp +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comccdp +++|          QUAL   COMCCDP
00005  M01S00005.comccdp +++|          BASE   D
Line S00006 Modification History
M01 (Added by) comccdp
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comccdp +++| CDP      SPACE  4,10
00009  M01S00008.comccdp +++|***       CDP - CPU DEBUGGING PACKAGE.
00010  M01S00009.comccdp +++|*         J. C. BOHNHOFF.    71/02/13.
00011  M01S00010.comccdp +++|*         J. C. BOHNHOFF.    75/08/16.
00012  M01S00011.comccdp +++|*         J. L. LARSON.      76/10/29.
00013  M01S00012.comccdp +++|          SPACE  4,10
00014  M01S00013.comccdp +++|***              *CDP* PROVIDES VARIOUS DEBUGGING AIDS FOR THE CP
00015  M01S00014.comccdp +++|*         PROGRAMMER.
00016  M01S00015.comccdp +++|*
00017  M01S00016.comccdp +++|*                CONTROL IS INITIALLY GIVEN TO CDP BY THE EXECUTION OF
00018  M01S00017.comccdp +++|*         A RETURN JUMP TO *CDI* OR *CDB*. AT THIS POINT CDP ANNOUNCES
00019  M01S00018.comccdp +++|*         THE CURRENT PROGRAM LOCATION WITH *BK NNNNNN*. THE USER IS
00020  M01S00019.comccdp +++|*         THEN EXPECTED TO ENTER ONE OF THE FOLLOWING COMMANDS.
00021  M01S00020.comccdp +++|*         CDP WILL ASK FOR COMMANDS UNTIL *GO.* OR A NULL LINE
00022  M01S00021.comccdp +++|*         IS ENTERED. AT THIS POINT THE PROGRAM IS RE-ENTERED AND
00023  M01S00022.comccdp +++|*         EXECUTES UNTIL IT ENDS OR A BREAKPOINT IS ENCOUNTERED.
00024  M01S00023.comccdp +++|*         CDP MAINTAINS ITS OWN *INPUT* AND *OUTPUT* FETS SO THAT USER
00025  M01S00024.comccdp +++|*         FETS ARE NOT ALTERED. IN ADDITION, A FET POINTER IN LOW CORE
00026  M01S00025.comccdp +++|*         IS USED BUT ITS ORIGINAL CONTENTS ARE SAVED.
00027  M01S00026.comccdp +++|*         IN ANY OF THE FOLLOWING COMMANDS, IF A NUMERIC FIELD IS
00028  M01S00027.comccdp +++|*         NEEDED, A POST-RADIX *B* (OCTAL) OR *D* (DECIMAL) MAY BE
00029  M01S00028.comccdp +++|*         SPECIFIED. IN THE ABSENCE OF THIS POST-RADIX SPECIFICATION,
00030  M01S00029.comccdp +++|*         NUMBERS ARE ASSUMED TO BE OCTAL.
00031  M01S00030.comccdp +++|*         IN MOST CASES WHERE A NUMBER MAY BE SPECIFIED, A DEFINED
00032  M01S00031.comccdp +++|*         SYMBOL MAY BE USED INSTEAD OR IN COMBINATION. SYMBOLS ARE
00033  M01S00032.comccdp +++|*         DEFINED USING THE *DEF* COMMAND. ALSO, A SYMBOL AND A
00034  M01S00033.comccdp +++|*         NUMBER, A SYMBOL AND A SYMBOL, OR A NUMBER AND A NUMBER
00035  M01S00034.comccdp +++|*         MAY BE GIVEN TOGETHER SEPARATED BY A + OR - OPERATOR
00036  M01S00035.comccdp +++|*         INDICATING ADDITION OR SUBTRACTION.
00037  M01S00036.comccdp +++|*
00038  M01S00037.comccdp +++|*                N.B. --- CDP IS NOT PROTECTED FROM THE PROGRAM TO BE
00039  M01S00038.comccdp +++|*         DEBUGGED. IT MAY BE CLOBBERED AT ANY TIME BY A RUNAWAY
00040  M01S00039.comccdp +++|*         PROGRAM.
00041  M01S00040.comccdp +++|*
00042  M01S00041.comccdp +++|*         REQUIRES PRESENCE OF COMMON DECKS -
00043  M01S00042.comccdp +++|*                COMCMAC
00044  M01S00043.comccdp +++|*                COMCCMD
00045  M01S00044.comccdp +++|*                COMCCIO
00046  M01S00045.comccdp +++|*                COMCWTC
00047  M01S00046.comccdp +++|*                COMCRDC
00048  M01S00047.comccdp +++|*                COMCDXB
00049  M01S00048.comccdp +++|*                COMCWOD
00050  M01S00049.comccdp +++|*                COMCZTB
00051  M01S00050.comccdp +++|*                COMCCOD
00052  M01S00051.comccdp +++|*                COMCUPC
00053  M01S00052.comccdp +++|*                COMCWTW
00054  M01S00053.comccdp +++|*                COMCRDW
00055  M01S00054.comccdp +++|*                COMCSYS
00056  M01S00055.comccdp +++|*                COMCCPM
00057  M01S00056.comccdp +++|*
00058  M01S00057.comccdp +++|*         TWO SYMBOLS MUST BE DEFINED BY THE CALLING PROGRAM -
00059  M01S00058.comccdp +++|*                CDPS - THE FWA OF CM PROTECTED AGAINST ALTERATION
00060  M01S00059.comccdp +++|*                CDPE - THE LWA+1 OF CM PROTECTED AGAINST ALTERATION
00061  M01S00060.comccdp +++|          TITLE  COMCCDP - CPU DEBUGGING PACKAGE - SYMBOLS, MACROS.
00062  M01S00061.comccdp +++| SYMBOLS  SPACE  4,10
00063  M01S00062.comccdp +++|**        LOCAL SYMBOL DEFINITIONS.
00064  M01S00063.comccdp +++|
00065  M01S00064.comccdp +++|
00066  M01S00065.comccdp +++| IBFL     EQU    101B        INPUT BUFFER SIZE
00067  M01S00066.comccdp +++| OBFL     EQU    101B        OUTPUT BUFFER SIZE
00068  M01S00067.comccdp +++| DBFL     EQU    101B        DUMP FILE BUFFER SIZE
00069  M01S00068.comccdp +++| BUFL     EQU    8           SIZE OF COMMAND BUFFER
00070  M01S00069.comccdp +++| TSYML    EQU    64          SIZE OF SYMBOL TABLE
00071  M01S00070.comccdp +++| COMAND   SPACE  4,30
00072  M01S00071.comccdp +++|**        COMAND - MACRO - FORM COMMAND TABLE ENTRY.
00073  M01S00072.comccdp +++|*
00074  M01S00073.comccdp +++|* PROC    COMAND KEY,P0,P1,P2,NVC,NAV,VA1
00075  M01S00074.comccdp +++|*
00076  M01S00075.comccdp +++|*         WHERE  PROC = PROCESSOR ADDRESS.
00077  M01S00076.comccdp +++|*                KEY = COMMAND KEYWORD - 1 TO 6 CHARACTERS.
00078  M01S00077.comccdp +++|*                P0 = PRESENT IF ZERO PARAMETERS LEGAL.
00079  M01S00078.comccdp +++|*                P1 = PRESENT IF ONE PARAMETER LEGAL.
00080  M01S00079.comccdp +++|*                P2 = PRESENT IF TWO PARAMETERS LEGAL.
00081  M01S00080.comccdp +++|*                NVC = PRESENT IF NO NUMERIC VALUE CONVERSION SHOULD BE
00082  M01S00081.comccdp +++|*                      DONE ON THE COMMAND.
00083  M01S00082.comccdp +++|*                NAV = PRESENT IF NO ADDRESS VALIDATION SHOULD BE DONE
00084  M01S00083.comccdp +++|*                      ON THE COMMAND.
00085  M01S00084.comccdp +++|*                VA1 = PRESENT IF ADDRESS VALIDATION ONLY ON FIRST
00086  M01S00085.comccdp +++|*                      PARAMETER.
00087  M01S00086.comccdp +++|*
00088  M01S00087.comccdp +++|*         PRODUCES -
00089  M01S00088.comccdp +++|*
00090  M01S00089.comccdp +++|*T        36/KEY,1/A,1/B,1/C,1/N,1/V,1/A1,18/PROC
Figure

0171819202122232429PROCA1VNCBAKEY3059KEY

00091  M01S00090.comccdp +++|*
00092  M01S00091.comccdp +++|*         WHERE  A=1, IF P0 PRESENT.
00093  M01S00092.comccdp +++|*                B=1, IF P1 PRESENT.
00094  M01S00093.comccdp +++|*                C=1, IF P2 PRESENT.
00095  M01S00094.comccdp +++|*                N=1, IF NVC PRESENT
00096  M01S00095.comccdp +++|*                V=0, IF NAV PRESENT.
00097  M01S00096.comccdp +++|*                A1 = 1, IF VA1 PRESENT.
00098  M01S00097.comccdp +++|
00099  M01S00098.comccdp +++|
00100  M01S00099.comccdp +++|          MACRO  COMAND,P,K,A,B,C,N,V,A1
00101  M01S00100.comccdp +++| .1       MICRO  1,,$K$
00102  M01S00101.comccdp +++| .10      IFC    EQ,$N$$
00103  M01S00102.comccdp +++| .2       SET    0
00104  M01S00103.comccdp +++| .10      ELSE
00105  M01S00104.comccdp +++| .2       SET    1
00106  M01S00105.comccdp +++| .10      ENDIF
00107  M01S00106.comccdp +++| .20      IFC    EQ,$V$$
00108  M01S00107.comccdp +++| .3       SET    1
00109  M01S00108.comccdp +++| .20      ELSE
00110  M01S00109.comccdp +++| .3       SET    0
00111  M01S00110.comccdp +++| .20      ENDIF
00112  M01S00111.comccdp +++| .21      IFC    EQ,$A1$$
00113  M01S00112.comccdp +++| .31      SET    0
00114  M01S00113.comccdp +++| .21      ELSE
00115  M01S00114.comccdp +++| .31      SET    1
00116  M01S00115.comccdp +++| .21      ENDIF
00117  M01S00116.comccdp +++| .30      IFC    EQ,$A$$
00118  M01S00117.comccdp +++| .4       SET    0
00119  M01S00118.comccdp +++| .30      ELSE
00120  M01S00119.comccdp +++| .4       SET    1
00121  M01S00120.comccdp +++| .30      ENDIF
00122  M01S00121.comccdp +++| .40      IFC    EQ,$B$$
00123  M01S00122.comccdp +++| .5       SET    0
00124  M01S00123.comccdp +++| .40      ELSE
00125  M01S00124.comccdp +++| .5       SET    1
00126  M01S00125.comccdp +++| .40      ENDIF
00127  M01S00126.comccdp +++| .50      IFC    EQ,$C$$
00128  M01S00127.comccdp +++| .6       SET    0
00129  M01S00128.comccdp +++| .50      ELSE
00130  M01S00129.comccdp +++| .6       SET    1
00131  M01S00130.comccdp +++| .50      ENDIF
00132  M01S00131.comccdp +++|          VFD    36/0L".1",1/.4,1/.5,1/.6,1/.2,1/.3,1/.31,18/P
00133  M01S00132.comccdp +++|          ENDM
00134  M01S00133.comccdp +++|          TITLE  COMCCDP - CPU DEBUGGING PACKAGE - MAIN CONTROL.
00135  M01S00134.comccdp +++| CDB      SPACE  4,10
00136  M01S00135.comccdp +++|***       CDB - PROGRAMMED BREAKPOINT ENTRY WITH LABEL ARGUMENT.
00137  M01S00136.comccdp +++|*
00138  M01S00137.comccdp +++|*         *CDB* ACTS THE SAME AS *CDI* BELOW EXCEPT THAT THE BREAKPOINT
00139  M01S00138.comccdp +++|*         LABEL IS GIVEN AS AN ARGUMENT FOLLOWING PRODUCT SET PARAMETER
00140  M01S00139.comccdp +++|*         PASSING CONVENTIONS. THAT IS, X1 CONTAINS THE ADDRESS OF THE
00141  M01S00140.comccdp +++|*         LABEL. THE LABEL MAY BE ANY 1 TO 5 CHARACTER DISPLAY CODED
00142  M01S00141.comccdp +++|*         VALUE.  USING *FTN*, A CALL MIGHT BE -
00143  M01S00142.comccdp +++|*                CALL CDB(5LSAMMY)
00144  M01S00143.comccdp +++|
00145  M01S00144.comccdp +++|
00146  M01S00145.comccdp +++| CDB      SUBR               ENTRY/EXIT
00147  M01S00146.comccdp +++|          RJ     SVR         SAVE REGISTERS
00148  M01S00147.comccdp +++|          SA2    CDB         MOVE RETURN INSTRUCTION
00149  M01S00148.comccdp +++|          SA1    REGX+1      READ (X1)
00150  M01S00149.comccdp +++|          BX6    X2
00151  M01S00150.comccdp +++|          SA1    X1          READ LABEL
00152  M01S00151.comccdp +++|          SA6    CDPX
00153  M01S00152.comccdp +++|          MX0    30          MASK LABEL
00154  M01S00153.comccdp +++|          LX6    30          SET PROPER *P*
00155  M01S00154.comccdp +++|          SA2    CDBA        CONSTRUCT FAKE CDI CALL
00156  M01S00155.comccdp +++|          LX1    30
00157  M01S00156.comccdp +++|          SX6    X6-1
00158  M01S00157.comccdp +++|          BX1    -X0*X1
00159  M01S00158.comccdp +++|          BX1    X1+X2
00160  M01S00159.comccdp +++|          EQ     CDI1        PROCESS BREAKPOINT
00161  M01S00160.comccdp +++|
00162  M01S00161.comccdp +++|
00163  M01S00162.comccdp +++| CDBA     RJ     CDI
00164  M01S00163.comccdp +++|-         VFD    30/0
00165  M01S00164.comccdp +++| CDC      SPACE  4,10
00166  M01S00165.comccdp +++|***       CDC - PROGRAMMED COMMAND ENTRY.
00167  M01S00166.comccdp +++|*
00168  M01S00167.comccdp +++|*         *CDC* MAY BE CALLED TO PROCESS ANY *CDP* COMMAND. THE COMMAND
00169  M01S00168.comccdp +++|*         MUST BE DISPLAY CODED. AN *FTN* CALL MIGHT BE -
00170  M01S00169.comccdp +++|*                CALL CDC(11HDEF,SYM,6./)
00171  M01S00170.comccdp +++|*         NOTE THAT THE COMMAND MUST BE TERMINATED BY A SLASH.
00172  M01S00171.comccdp +++|*         THE *EM* COMMAND WOULD BE -
00173  M01S00172.comccdp +++|*                CALL CDC(17HEM,123,456.7704./)
00174  M01S00173.comccdp +++|*         PRODUCT SET PARAMETER PASSING CONVENTIONS MUST BE USED.
00175  M01S00174.comccdp +++|
00176  M01S00175.comccdp +++|
00177  M01S00176.comccdp +++| CDC      SUBR               ENTRY/EXIT
00178  M01S00177.comccdp +++|          RJ     SVR         SAVE REGISTERS
00179  M01S00178.comccdp +++|          SA2    CDC         MOVE RETURN INSTRUCTION
00180  M01S00179.comccdp +++|          SA1    REGX+1      READ (X1)
00181  M01S00180.comccdp +++|          BX6    X2
00182  M01S00181.comccdp +++|          SA6    CDPX
00183  M01S00182.comccdp +++|          SA5    X1          READ FIRST WORD OF COMMAND
00184  M01S00183.comccdp +++|          LX6    30          SET PROPER *P*
00185  M01S00184.comccdp +++|          SX6    X6-1
00186  M01S00185.comccdp +++|          SA6    REGP
00187  M01S00186.comccdp +++| CDC1     SA3    CDCA        READ COMMAND TERMINATOR MASK
00188  M01S00187.comccdp +++|          SB7    A5+         SAVE ADDRESS OF COMMAND
00189  M01S00188.comccdp +++|          RJ     FEC         FIND END OF COMMAND
00190  M01S00189.comccdp +++|          SB3    B3+B3
00191  M01S00190.comccdp +++|          SB2    B3+B3
00192  M01S00191.comccdp +++|          SA5    A5
00193  M01S00192.comccdp +++|          SB2    B2+B3
00194  M01S00193.comccdp +++|          MX0    1
00195  M01S00194.comccdp +++|          SB2    B2-59
00196  M01S00195.comccdp +++|          LX0    X0,B2
00197  M01S00196.comccdp +++|          BX6    X0*X5
00198  M01S00197.comccdp +++|          SB2    A5+         MOVE COMMAND TO BUFFER
00199  M01S00198.comccdp +++|          SB6    B7-BUF
00200  M01S00199.comccdp +++| CDC2     GE     B7,B2,CDC3  IF END OF COMMAND
00201  M01S00200.comccdp +++|          SA1    B7
00202  M01S00201.comccdp +++|          BX7    X1
00203  M01S00202.comccdp +++|          SA7    B7-B6
00204  M01S00203.comccdp +++|          SB7    B7+B1
00205  M01S00204.comccdp +++|          EQ     CDC2        CONTINUE MOVING COMMAND
00206  M01S00205.comccdp +++|
00207  M01S00206.comccdp +++| CDC3     SX7    B1          SET PROGRAMMED COMMAND FLAG
00208  M01S00207.comccdp +++|          SA6    B7-B6       STORE LAST COMMAND WORD
00209  M01S00208.comccdp +++|          SA7    PROC
00210  M01S00209.comccdp +++|          SX7    0           CLEAR BREAKPOINT LABEL
00211  M01S00210.comccdp +++|          EQ     CDP2        PROCESS BREAKPOINT
00212  M01S00211.comccdp +++|
00213  M01S00212.comccdp +++|
00214  M01S00213.comccdp +++| CDCA     BSS    0
00215  M01S00214.comccdp +++|          POS    60-1R/
00216  M01S00215.comccdp +++|          VFD    1/1
00217  M01S00216.comccdp +++|          VFD    $/0
00218  M01S00217.comccdp +++|          BSS    0
00219  M01S00218.comccdp +++| CDI      SPACE  4,25
00220  M01S00219.comccdp +++|***       CDI - PROGRAMMED BREAKPOINT/COMMAND ENTRY (NO REGISTERS).
00221  M01S00220.comccdp +++|*
00222  M01S00221.comccdp +++|*         *CDI* MUST BE ENTERED TO INITIALLY GIVE CONTROL TO *COMCCDP*.
00223  M01S00222.comccdp +++|*         SUBSEQUENTLY, *CDI* MAY BE ENTERED AT ANY POINT TO PROVIDE
00224  M01S00223.comccdp +++|*         PROGRAMMED BREAKPOINTS AS OPPOSED TO INTERACTIVELY SET
00225  M01S00224.comccdp +++|*         BREAKPOINTS.
00226  M01S00225.comccdp +++|*
00227  M01S00226.comccdp +++|*         IF THE RETURN JUMP INSTRUCTION CALLING *CDI* STARTS IN THE
00228  M01S00227.comccdp +++|*         UPPER PARCEL OF A WORD AND THE LOWER PARCELS ARE NOT -
00229  M01S00228.comccdp +++|*                6100046000 (COMPASS PAD)
00230  M01S00229.comccdp +++|*                00XXXXXXXX
00231  M01S00230.comccdp +++|*         THEN THE LOW 30 BITS ARE TAKEN TO BE A DISPLAY CODED
00232  M01S00231.comccdp +++|*         BREAKPOINT LABEL AND ARE DISPLAYED WHEN THE BREAKPOINT IS
00233  M01S00232.comccdp +++|*         ENCOUNTERED. IF THE LOW 30 BITS LOOK LIKE A PROGRAM STOP
00234  M01S00233.comccdp +++|*         INSTRUCTION, THEN THE LOW 18 BITS ARE TAKEN AS THE ADDRESS
00235  M01S00234.comccdp +++|*         OF A DISPLAY CODED *CDP* COMMAND FORMATTED AS EXPLAINED FOR
00236  M01S00235.comccdp +++|*         *CDC* ABOVE.  FOR EXAMPLE -
00237  M01S00236.comccdp +++|*         +      RJ   CDI
00238  M01S00237.comccdp +++|*         -      PS   CMD
00239  M01S00238.comccdp +++|*                ......
00240  M01S00239.comccdp +++|*         CMD    DATA 10HDMPR./
00241  M01S00240.comccdp +++|
00242  M01S00241.comccdp +++|
00243  M01S00242.comccdp +++| CDI      SUBR               ENTRY/EXIT
00244  M01S00243.comccdp +++|          RJ     SVR         SAVE REGISTERS
00245  M01S00244.comccdp +++|          SA1    CDI         MOVE RETURN INSTRUCTION
00246  M01S00245.comccdp +++|          BX7    X1
00247  M01S00246.comccdp +++|          SA7    CDPX
00248  M01S00247.comccdp +++|          LX7    30          SET PROPER *P*
00249  M01S00248.comccdp +++|          SX6    X7-1
00250  M01S00249.comccdp +++|          MX0    30
00251  M01S00250.comccdp +++|          SA1    X6          CHECK BREAKPOINT LABEL
00252  M01S00251.comccdp +++| CDI1     SA6    REGP
00253  M01S00252.comccdp +++|          SA2    CDIA
00254  M01S00253.comccdp +++|          BX7    X1-X2
00255  M01S00254.comccdp +++|          ZR     X7,CDP2     IF NO LABEL
00256  M01S00255.comccdp +++|          BX6    X0*X7
00257  M01S00256.comccdp +++|          SX7    B0
00258  M01S00257.comccdp +++|          NZ     X6,CDP2     IF NOT RJ UPPER
00259  M01S00258.comccdp +++|          BX1    -X0*X1      EXTRACT BREAKPOINT LABEL
00260  M01S00259.comccdp +++|          MX0    6           CHECK COMMAND ADDRESS
00261  M01S00260.comccdp +++|          LX1    30
00262  M01S00261.comccdp +++|          BX6    X0*X1
00263  M01S00262.comccdp +++|          NZ     X6,CDI2     IF NOT PS INSTRUCTION
00264  M01S00263.comccdp +++|          LX1    30
00265  M01S00264.comccdp +++|          SA5    X1
00266  M01S00265.comccdp +++|          EQ     CDC1        PROCESS PROGRAMMED COMMAND
00267  M01S00266.comccdp +++|
00268  M01S00267.comccdp +++| CDI2     RJ     ZTB         SPACE FILL LABEL
00269  M01S00268.comccdp +++|          LX6    -6
00270  M01S00269.comccdp +++|          MX0    6*6
00271  M01S00270.comccdp +++|          BX7    X0*X6
00272  M01S00271.comccdp +++|          EQ     CDP2        PROCESS BREAKPOINT
00273  M01S00272.comccdp +++|
00274  M01S00273.comccdp +++|
00275  M01S00274.comccdp +++| CDIA     RJ     CDI         CRITERION FOR BREAKPOINT LABEL
00276  M01S00275.comccdp +++|-         SB0    B0+46000B
00277  M01S00276.comccdp +++| CDP      SPACE  4,10
00278  M01S00277.comccdp +++|**        CDP - INTERACTIVELY SELECTED BREAKPOINT ENTRY.
00279  M01S00278.comccdp +++|
00280  M01S00279.comccdp +++|
00281  M01S00280.comccdp +++| CDP      SUBR               ENTRY/EXIT
00282  M01S00281.comccdp +++|          RJ     SVR         SAVE REGISTERS
00283  M01S00282.comccdp +++| CDP1     RJ     RPB         RESTORE PREVIOUS BREAKPOINT
00284  M01S00283.comccdp +++|          SA1    CDPX        DECREMENT RETURN ADDRESS
00285  M01S00284.comccdp +++|          SX7    B0          CLEAR NEXT BREAKPOINT ADDRESS
00286  M01S00285.comccdp +++|          LX1    30
00287  M01S00286.comccdp +++|          SX2    B1
00288  M01S00287.comccdp +++|          SA7    IBPA
00289  M01S00288.comccdp +++|          IX6    X1-X2
00290  M01S00289.comccdp +++|          LX6    30
00291  M01S00290.comccdp +++|          BX7    X7-X7
00292  M01S00291.comccdp +++|          SA6    CDPX
00293  M01S00292.comccdp +++|          SA7    PROC        CLEAR PROGRAMMED COMMAND FLAG
00294  M01S00293.comccdp +++| CDP2     SA7    LCLC        SET BREAKPOINT LABEL
00295  M01S00294.comccdp +++|          RJ     SFP         SET FET POINTER FOR TERMINAL I/O
00296  M01S00295.comccdp +++|          RJ     LCL         LIST CURRENT LOCATION
00297  M01S00296.comccdp +++|          RJ     POC         PROCESS OPERATOR COMMANDS
00298  M01S00297.comccdp +++|          WRITER O,R         WRITE RESPONSE
00299  M01S00298.comccdp +++|          RJ     RFP         RESTORE FET POINTER WORDS
00300  M01S00299.comccdp +++|          RJ     IBP         INSERT BREAKPOINT (IF NEEDED)
00301  M01S00300.comccdp +++|          RJ     RSR         RESTORE REGISTERS
00302  M01S00301.comccdp +++|          EQ     CDPX        RETURN TO CALLING PROGRAM
00303  M01S00302.comccdp +++|          TITLE  COMCCDP - CPU DEBUGGING PACKAGE - COMMAND PROCESSING.
00304  M01S00303.comccdp +++| POC      SPACE  4,10
00305  M01S00304.comccdp +++|**        POC - PROCESS OPERATOR COMMANDS.
00306  M01S00305.comccdp +++|*
00307  M01S00306.comccdp +++|*         ENTRY  AT *POCE* IF ERROR IN COMMAND.
00308  M01S00307.comccdp +++|*                AT *POCR* TO PROCESS NEXT COMMAND.
00309  M01S00308.comccdp +++|
00310  M01S00309.comccdp +++|
00311  M01S00310.comccdp +++| POC      SUBR               ENTRY/EXIT
00312  M01S00311.comccdp +++| POCR     BSS    0           RETURN FROM COMMAND PROCESSORS
00313  M01S00312.comccdp +++|          SA1    PROC        CHECK PROGRAMMED COMMAND
00314  M01S00313.comccdp +++|          ZR     X1,POC1     IF NOT PROGRAMMED
00315  M01S00314.comccdp +++|          AX1    1
00316  M01S00315.comccdp +++|          NZ     X1,POCX     IF COMMAND PROCESSED
00317  M01S00316.comccdp +++|          SX6    B1+B1       SET COMMAND PROCESSED
00318  M01S00317.comccdp +++|          SA6    PROC
00319  M01S00318.comccdp +++|          EQ     POC2        ANALYZE COMMAND
00320  M01S00319.comccdp +++|
00321  M01S00320.comccdp +++| POC1     READ   I           READ COMMAND
00322  M01S00321.comccdp +++|          READC  I,BUF,BUFL
00323  M01S00322.comccdp +++|          NZ     X1,POCX     IF NO DATA
00324  M01S00323.comccdp +++|          SX6    B6+
00325  M01S00324.comccdp +++|          SA6    BUFA
00326  M01S00325.comccdp +++| POC2     SA1    ECHO        CHECK ECHO NEEDED
00327  M01S00326.comccdp +++|          NZ     X1,POC3     IF NO ECHO
00328  M01S00327.comccdp +++|          WRITEC O,BUF       ECHO COMMAND
00329  M01S00328.comccdp +++| POC3     SA5    BUF         READ FIRST COMMAND WORD
00330  M01S00329.comccdp +++|          SB7    UOC         DESTINATION FOR UNPACKED COMMAND
00331  M01S00330.comccdp +++|          RJ     UPC         UNPACK COMMAND
00332  M01S00331.comccdp +++|          ZR     X6,POC5     IF NO ERROR
00333  M01S00332.comccdp +++| POCE     BSS    0           ERROR RETURN FROM COMMAND PROCESSORS
Line S00333 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00334  M02S00333.v23l617 ---| POC4     WRITEC O,POCA      *ILLEGAL*
00335  M01S00001.v23l617 +++| POC4     WRITEC O,POCA      * INCORRECT ENTRY.*
00336  M01S00334.comccdp +++|          EQ     POCR        PROCESS NEXT COMMAND
00337  M01S00335.comccdp +++|
00338  M01S00336.comccdp +++| POC5     SB4    B6-B1       SET ARGUMENT COUNT
00339  M01S00337.comccdp +++|          SA1    UOC         READ FIRST ARGUMENT
00340  M01S00338.comccdp +++|          MX2    6*6
00341  M01S00339.comccdp +++|          SA6    NARG        CLEAR NUMBER OF ARGUMENTS
00342  M01S00340.comccdp +++|          SB2    TOCP        SET FWA OF TABLE
00343  M01S00341.comccdp +++|          SB3    TOCPL       SET TABLE LENGTH
00344  M01S00342.comccdp +++|          RJ     BST         SEARCH COMMAND TABLE
00345  M01S00343.comccdp +++|          ZR     X3,POC4     IF COMMAND NOT FOUND
00346  M01S00344.comccdp +++|          SB2    B4          VALIDATE PARAMETER COUNT
00347  M01S00345.comccdp +++|          SB3    B0
00348  M01S00346.comccdp +++|          RJ     CCA         CHECK FOR COMPOUND FIRST ARGUMENT
Line S00347 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00349  M02S00347.v23l617 ---|          NZ     B6,POC4     IF ILLEGAL SEPARATOR
00350  M01S00002.v23l617 +++|          NZ     B6,POC4     IF INCORRECT SEPARATOR
00351  M01S00348.comccdp +++|          SA6    POCB        SAVE COMPOUND ARGUMENT INDICATOR
00352  M01S00349.comccdp +++|          RJ     CCA         CHECK FOR COMPOUND SECOND ARGUMENT
Line S00350 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00353  M02S00350.v23l617 ---|          NZ     B6,POC4     IF ILLEGAL SEPARATOR
00354  M01S00003.v23l617 +++|          NZ     B6,POC4     IF INCORRECT SEPARATOR
00355  M01S00351.comccdp +++|          BX2    X3
00356  M01S00352.comccdp +++|          SA6    A6+B1       SAVE COMPOUND ARGUMENT INDICATOR
00357  M01S00353.comccdp +++|          LX2    59-23
00358  M01S00354.comccdp +++|          NZ     B2,POC4     IF TOO MANY ARGUMENTS
00359  M01S00355.comccdp +++|          LX2    B3          CHECK LEGAL NUMBER OF ARGUMENTS
00360  M01S00356.comccdp +++|          SA0    X3          PROCESSOR ADDRESS
00361  M01S00357.comccdp +++|          PL     X2,POC4     IF NUMBER OF ARGUMENTS NOT LEGAL
00362  M01S00358.comccdp +++|          LX3    59-20
00363  M01S00359.comccdp +++|          NG     X3,POC6     IF NO CONVERSION
00364  M01S00360.comccdp +++|          LX3    20-19       ADDRESS VALIDATION FIELDS
00365  M01S00361.comccdp +++|          MX1    2
00366  M01S00362.comccdp +++|          BX6    X1*X3
00367  M01S00363.comccdp +++|          RJ     SAD         CONVERT NUMERIC ARGUMENTS
00368  M01S00364.comccdp +++|
00369  M01S00365.comccdp +++|*         ENTRY TO COMMAND PROCESSORS -
00370  M01S00366.comccdp +++|*         (B4)= ARGUMENT COUNT.
00371  M01S00367.comccdp +++|*         (B5)= SECOND NUMERIC ARGUMENT. (IF CONVERSION)
00372  M01S00368.comccdp +++|*         (X6)= FIRST NUMERIC ARGUMENT. (IF CONVERSION)
00373  M01S00369.comccdp +++|*         (UOC-UOC+N)= UNPACKED COMMAND.
00374  M01S00370.comccdp +++|*         (ADR1, ADR2)= NUMERIC COMMAND ARGUMENTS. (IF CONVERSION)
00375  M01S00371.comccdp +++|
00376  M01S00372.comccdp +++| POC6     SB2    A0
00377  M01S00373.comccdp +++|          JP     B2          PROCESS COMMAND
00378  M01S00374.comccdp +++|
00379  M01S00375.comccdp +++|
Line S00376 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00380  M02S00376.v23l617 ---| POCA     DATA   C* ILLEGAL*
00381  M01S00004.v23l617 +++| POCA     DATA   C* INCORRECT ENTRY.*
00382  M01S00377.comccdp +++|
00383  M01S00378.comccdp +++| POCB     CON    0           NONZERO IF COMPOUND FIRST ARGUMENT
00384  M01S00379.comccdp +++|          CON    0           NONZERO IF COMPOUND SECOND ARGUMENT
00385  M01S00380.comccdp +++| TOCP     SPACE  4,10
00386  M01S00381.comccdp +++|**        TOCP - TABLE OF OPERATOR COMMANDS.
00387  M01S00382.comccdp +++|*
00388  M01S00383.comccdp +++|*  *****  TABLE MUST BE IN ASCENDING ALPHABETIC ORDER.
00389  M01S00384.comccdp +++|*  *****  KEYWORD MUST BEGIN WITH A CHARACTER HAVING A DISPLAY CODE
00390  M01S00385.comccdp +++|*         VALUE .LE. 37B.
00391  M01S00386.comccdp +++|
00392  M01S00387.comccdp +++|
00393  M01S00388.comccdp +++| TOCP     BSS    0
00394  M01S00389.comccdp +++| LAR      COMAND A,,1,2,,V   A,N. OR A,N,MMMMMM.
00395  M01S00390.comccdp +++| LBR      COMAND B,,1,2,,V   B,N. OR B,N,MMMMMM.
00396  M01S00391.comccdp +++| SBP      COMAND BK,0,1,,,,A1 BK. OR BK,NNNNNN.
00397  M01S00392.comccdp +++| BKM      COMAND BM,0,1,,,,A1 BM. OR BM,NNNNNN.
00398  M01S00393.comccdp +++| BKP      COMAND BP,0,1,,,,A1 BP. OR BP,NNNNNN.
00399  M01S00394.comccdp +++| LMO      COMAND C,,1,2      C,MMMMMM. OR C,MMMMMM,NNNNNN.
00400  M01S00395.comccdp +++| CKP      COMAND CKP,0,,,N   CKP.
00401  M01S00396.comccdp +++| LOD      COMAND D,,1,2      D,MMMMMM. OR D,MMMMMM,NNNNNN.
00402  M01S00397.comccdp +++| DEF      COMAND DEF,0,,2,N  DEF. OR DEF,SSSSSSS,NNNNNN.
00403  M01S00398.comccdp +++| DMC      COMAND DMPC,,1,2   DMPC,MMMMMM. OR DMPC,MMMMMM,NNNNNN.
00404  M01S00399.comccdp +++| DMD      COMAND DMPD,,1,2   DMPD,MMMMMM. OR DMPD,MMMMMM,NNNNNN.
00405  M01S00400.comccdp +++| DMR      COMAND DMPR,0,,,N  DMPR.
00406  M01S00401.comccdp +++| EMB      COMAND EB,,,2,,,A1 EB,MMMMMM,B.CCCC.
00407  M01S00402.comccdp +++| ECH      COMAND ECHO,0,1,,N ECHO. OR ECHO,A.
00408  M01S00403.comccdp +++| EMD      COMAND ED,,1,2     ED,MMMMMM,NNNNNN.$DDD---DDD$
00409  M01S00404.comccdp +++| EMO      COMAND EM,,1,2     EM,MMMMMM,NNNNNN.CCC---CCC.
00410  M01S00405.comccdp +++| ERE      COMAND EREXIT,0,,,N EREXIT.
00411  M01S00406.comccdp +++| FIL      COMAND FILE,,,2,N  FILE,X,AAAAAAA.
00412  M01S00407.comccdp +++| RFL      COMAND FL,0,1,,,V  FL. OR FL,NNNNNN.
00413  M01S00408.comccdp +++| POCX     COMAND GO,0,,,N    GO.
00414  M01S00409.comccdp +++| MOD      COMAND MODE,0,1,,,V MODE. OR MODE,N.
00415  M01S00410.comccdp +++| STP      COMAND P,0,1,,,,A1 P. OR P,NNNNNN.
00416  M01S00411.comccdp +++| LRC      COMAND R,0,,,N     R.
00417  M01S00412.comccdp +++| STL      COMAND SETTL,,1,,,V SETTL,NNNNNN.
00418  M01S00413.comccdp +++| LXR      COMAND X,,1,,,V    X,N. OR X,N.CCC---CCC.
00419  M01S00414.comccdp +++| TOCPL    EQU    *-TOCP      TABLE LENGTH
00420  M01S00415.comccdp +++| LAR      SPACE  4,10
00421  M01S00416.comccdp +++|***       A,N.
00422  M01S00417.comccdp +++|*         LIST CONTENTS OF *A* REGISTER N.
00423  M01S00418.comccdp +++|
00424  M01S00419.comccdp +++|
00425  M01S00420.comccdp +++|***       A,N,MMMMMM.
00426  M01S00421.comccdp +++|*         ENTER *A* REGISTER N WITH CONTENTS MMMMMM.
00427  M01S00422.comccdp +++|
00428  M01S00423.comccdp +++|
00429  M01S00424.comccdp +++|**        LAR - SET/LIST CONTENTS OF *A* REGISTER.
00430  M01S00425.comccdp +++|
00431  M01S00426.comccdp +++|
00432  M01S00427.comccdp +++| LAR      BSS    0           ENTRY
00433  M01S00428.comccdp +++|          SB6    REGA
00434  M01S00429.comccdp +++|          SB7    LRCA
Line S00430 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00430.v23l617 ---| LAR1     SX7    X6-8        CHECK FOR ILLEGAL NUMBER
00436  M01S00005.v23l617 +++| LAR1     SX7    X6-8        CHECK FOR INCORRECT NUMBER
00437  M01S00431.comccdp +++|          PL     X7,POCE     IF NUMBER .GT. 7
00438  M01S00432.comccdp +++|          NE     B4,B1,LAR2  IF SET REGISTER
00439  M01S00433.comccdp +++|          SB5    X6          SAVE REGISTER NUMBER
00440  M01S00434.comccdp +++|          SA1    B6+X6       READ CONTENTS
00441  M01S00435.comccdp +++|          RJ     WOD         CONVERT CONTENTS TO DISPLAY
00442  M01S00436.comccdp +++|          RJ     SFZ         CONVERT LEADING DISPLAY ZEROS TO BLANKS
00443  M01S00437.comccdp +++|          MX0    -36
00444  M01S00438.comccdp +++|          SA1    B7          REGISTER NAME
00445  M01S00439.comccdp +++|          SX2    B5
00446  M01S00440.comccdp +++|          BX6    -X0*X7
00447  M01S00441.comccdp +++|          LX2    42
00448  M01S00442.comccdp +++|          IX1    X1+X2
00449  M01S00443.comccdp +++|          MX7    0
00450  M01S00444.comccdp +++|          BX6    X1+X6
00451  M01S00445.comccdp +++|          SA6    LRCC
00452  M01S00446.comccdp +++|          SA7    A6+1
00453  M01S00447.comccdp +++|          WRITEC O,LRCC
00454  M01S00448.comccdp +++|          EQ     POCR        RETURN
00455  M01S00449.comccdp +++|
00456  M01S00450.comccdp +++| LAR2     SX7    B5          STORE REGISTER CONTENTS
00457  M01S00451.comccdp +++|          SA7    B6+X6
00458  M01S00452.comccdp +++|          EQ     POCR        RETURN
00459  M01S00453.comccdp +++| LBR      SPACE  4,10
00460  M01S00454.comccdp +++|***       B,N.
00461  M01S00455.comccdp +++|*         LIST CONTENTS OF *B* REGISTER N.
00462  M01S00456.comccdp +++|
00463  M01S00457.comccdp +++|
00464  M01S00458.comccdp +++|***       B,N,CCCCCC.
00465  M01S00459.comccdp +++|*         ENTER *B* REGISTER N WITH CONTENTS CCCCCC.
00466  M01S00460.comccdp +++|
00467  M01S00461.comccdp +++|
00468  M01S00462.comccdp +++|**        LBR - LIST/SET CONTENTS OF *B* REGISTER.
00469  M01S00463.comccdp +++|
00470  M01S00464.comccdp +++|
00471  M01S00465.comccdp +++| LBR      BSS    0           ENTRY
00472  M01S00466.comccdp +++|          SB6    REGB
00473  M01S00467.comccdp +++|          SB7    LRCB
00474  M01S00468.comccdp +++|          EQ     LAR1        DISPLAY REGISTER CONTENTS
00475  M01S00469.comccdp +++| SBP      SPACE  4,10
00476  M01S00470.comccdp +++|***       BK,NNNNNN.
00477  M01S00471.comccdp +++|*         SET NEXT BREAKPOINT AT ADDRESS NNNNNN.
00478  M01S00472.comccdp +++|*         IF *,NNNNNN* IS ABSENT, CLEAR BREAKPOINT.
00479  M01S00473.comccdp +++|
00480  M01S00474.comccdp +++|
00481  M01S00475.comccdp +++|**        SBP - SET BREAKPOINT ADDRESS.
00482  M01S00476.comccdp +++|
00483  M01S00477.comccdp +++|
00484  M01S00478.comccdp +++| SBP      BSS    0           ENTRY
00485  M01S00479.comccdp +++|          SB6    0           SET NON-RELATIVE BREAKPOINT
00486  M01S00480.comccdp +++| SBP1     SB7    B0
00487  M01S00481.comccdp +++|          NZ     B4,SBP2     IF ADDRESS SPECIFIED
00488  M01S00482.comccdp +++|          SX7    B0          CLEAR BREAKPOINT ADDRESS
00489  M01S00483.comccdp +++|          SA7    IBPA
00490  M01S00484.comccdp +++|          EQ     POCR        RETURN
00491  M01S00485.comccdp +++|
00492  M01S00486.comccdp +++| SBP2     ZR     B6,SBP4     IF ABSOLUTE BREAKPOINT
00493  M01S00487.comccdp +++|          PL     B6,SBP3     IF POSITIVE ADDEND
00494  M01S00488.comccdp +++|          BX6    -X6
00495  M01S00489.comccdp +++| SBP3     SA1    REGP        CURRENT BREAKPOINT ADDRESS
00496  M01S00490.comccdp +++|          IX6    X1+X6
00497  M01S00491.comccdp +++|          NG     X6,POCE     IF NEGATIVE BREAKPOINT ADDRESS
00498  M01S00492.comccdp +++| SBP4     SB2    X6-CDPS     CHECK BREAKPOINT WITHIN DEBUGGER
00499  M01S00493.comccdp +++|          SB3    X6-CDPE
00500  M01S00494.comccdp +++|          SB4    SBPA        BREAKPOINT WITHIN DEBUGGER
00501  M01S00495.comccdp +++|          NG     B2,SBP6     IF BELOW DEBUGGER
00502  M01S00496.comccdp +++|          NG     B3,SBP5     IF IN DEBUGGER
00503  M01S00497.comccdp +++|          SB4    SADC        ADDRESS OUT OF RANGE
00504  M01S00498.comccdp +++|          SA1    SADD        GET CURRENT FL
00505  M01S00499.comccdp +++|          AX1    30
00506  M01S00500.comccdp +++|          IX1    X6-X1
00507  M01S00501.comccdp +++|          NG     X1,SBP6     IF ADDRESS .LT. FL
00508  M01S00502.comccdp +++| SBP5     WRITEC O,B4        ISSUE ERROR MESSAGE
00509  M01S00503.comccdp +++|          EQ     POCR        RETURN
00510  M01S00504.comccdp +++|
00511  M01S00505.comccdp +++| SBP6     SA6    IBPA        STORE BREAKPOINT ADDRESS
00512  M01S00506.comccdp +++|          EQ     POCR        RETURN
00513  M01S00507.comccdp +++|
00514  M01S00508.comccdp +++|
00515  M01S00509.comccdp +++| SBPA     DATA   C* BREAKPOINT WITHIN DEBUGGER.*
00516  M01S00510.comccdp +++| BKM      SPACE  4,10
00517  M01S00511.comccdp +++|***       BM,NNNNNN.
00518  M01S00512.comccdp +++|*         SET NEXT BREAKPOINT AT CURRENT MINUS NNNNNN.
00519  M01S00513.comccdp +++|
00520  M01S00514.comccdp +++|
00521  M01S00515.comccdp +++|**        BKM - SET RELATIVE BREAKPOINT MINUS.
00522  M01S00516.comccdp +++|
00523  M01S00517.comccdp +++|
00524  M01S00518.comccdp +++| BKM      BSS    0           ENTRY
00525  M01S00519.comccdp +++|          SB6    -B1         SET NEGATIVE RELATIVE BREAKPOINT
00526  M01S00520.comccdp +++|          EQ     SBP1        SET BREAKPOINT ADDRESS
00527  M01S00521.comccdp +++| BKP      SPACE  4,10
00528  M01S00522.comccdp +++|***       BP,NNNNNN.
00529  M01S00523.comccdp +++|*         SET BREAKPOINT AT CURRENT BREAKPOINT PLUS NNNNNN.
00530  M01S00524.comccdp +++|
00531  M01S00525.comccdp +++|
00532  M01S00526.comccdp +++|**        BKP - SET NEXT BREAKPOINT AT CURRENT PLUS N.
00533  M01S00527.comccdp +++|
00534  M01S00528.comccdp +++|
00535  M01S00529.comccdp +++| BKP      BSS    0           ENTRY
00536  M01S00530.comccdp +++|          SB6    B1          SET POSITIVE RELATIVE BREAKPOINT
00537  M01S00531.comccdp +++|          EQ     SBP1        SET BREAKPOINT ADDRESS
00538  M01S00532.comccdp +++| LMO      SPACE  4,10
00539  M01S00533.comccdp +++|***       C,MMMMMM,NNNNNN.
00540  M01S00534.comccdp +++|*         LIST MEMORY IN OCTAL.
00541  M01S00535.comccdp +++|*         LIST FROM MMMMMM THROUGH NNNNNN.
00542  M01S00536.comccdp +++|*         IF NNNNNN IS ABSENT, LIST ONLY MMMMMM.
00543  M01S00537.comccdp +++|
00544  M01S00538.comccdp +++|
00545  M01S00539.comccdp +++|**        LMO - LIST MEMORY OCTAL.
00546  M01S00540.comccdp +++|
00547  M01S00541.comccdp +++|
00548  M01S00542.comccdp +++| LMO      BSS    0           ENTRY
00549  M01S00543.comccdp +++|          SA0    O           SET LIST FILE
00550  M01S00544.comccdp +++| LMO1     SA1    ADR1        READ FIRST ADDRESS
00551  M01S00545.comccdp +++|          SX2    B5+         UPPER BOUND
00552  M01S00546.comccdp +++|          SB6    X1+B1       SET NEXT ADDRESS
00553  M01S00547.comccdp +++|          IX3    X2-X1       UPPER - CURRENT
00554  M01S00548.comccdp +++|          NG     X3,LMO3     IF UPPER BOUND HAS BEEN LISTED
00555  M01S00549.comccdp +++|          RJ     COD         CONVERT ADDRESS
00556  M01S00550.comccdp +++|          LX6    6*4         PUT 4 SPACES LOW
00557  M01S00551.comccdp +++|          SA6    LMOA        SET ADDRESS
00558  M01S00552.comccdp +++|          SA1    B6-B1       READ CONTENTS
00559  M01S00553.comccdp +++|          RJ     OCB         CONVERT CONTENTS
00560  M01S00554.comccdp +++|          SB7    B6          CURRENT ADDRESS
00561  M01S00555.comccdp +++|          SB6    B6+1        ADVANCE NEXT ADDRESS
00562  M01S00556.comccdp +++|          SB2    B5-B7       UPPER - CURRENT
00563  M01S00557.comccdp +++|          NG     B2,LMO2     IF UPPER BOUND LISTED
00564  M01S00558.comccdp +++|          SA1    B6-1        READ CONTENTS
00565  M01S00559.comccdp +++|          RJ     OCB         CONVERT CONTENTS
00566  M01S00560.comccdp +++|          SX6    B6          SAVE NEXT ADDRESS
00567  M01S00561.comccdp +++|          SA6    ADR1
00568  M01S00562.comccdp +++|          SX5    B5          SAVE UPPER BOUND
00569  M01S00563.comccdp +++|          WRITEC A0,LMOA     LIST 2 WORDS
00570  M01S00564.comccdp +++|          SB5    X5
00571  M01S00565.comccdp +++|          EQ     LMO1        CONTINUE LISTING WORDS
00572  M01S00566.comccdp +++|
00573  M01S00567.comccdp +++| LMO2     MX6    0           TERMINATE LINE
00574  M01S00568.comccdp +++|          SA6    A6+B1
00575  M01S00569.comccdp +++|          WRITEC A0,LMOA     LIST 1 WORD
00576  M01S00570.comccdp +++| LMO3     SX0    A0
00577  M01S00571.comccdp +++|          SX1    O
00578  M01S00572.comccdp +++|          BX7    X0-X1
00579  M01S00573.comccdp +++|          ZR     X7,POCR     IF LIST FILE IS *OUTPUT*
00580  M01S00574.comccdp +++|          WRITER A0,R        END RECORD
00581  M01S00575.comccdp +++|          EQ     POCR        RETURN
00582  M01S00576.comccdp +++|
00583  M01S00577.comccdp +++|
00584  M01S00578.comccdp +++| LMOA     CON    0
00585  M01S00579.comccdp +++|          CON    0
00586  M01S00580.comccdp +++|          CON    0
00587  M01S00581.comccdp +++|          CON    0
00588  M01S00582.comccdp +++|          CON    0
00589  M01S00583.comccdp +++|          CON    0
00590  M01S00584.comccdp +++|          CON    0
00591  M01S00585.comccdp +++|          CON    0
00592  M01S00586.comccdp +++| CKP      SPACE  4,10
00593  M01S00587.comccdp +++|***       CKP.
00594  M01S00588.comccdp +++|*         CHECKPOINT PROGRAM.
Line S00589 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00595  M02S00589.v23l617 ---|*         CHECKPOINT IS USED AS IN THE *CKP* CONTROL CARD.
00596  M01S00006.v23l617 +++|*         CHECKPOINT IS USED AS IN THE *CKP* COMMAND.
00597  M01S00590.comccdp +++|*         ALL FILES ARE INCLUDED. THE CHECKPOINT NUMBER IS REPORTED
00598  M01S00591.comccdp +++|*         AS AN OCTAL NUMBER.
00599  M01S00592.comccdp +++|
00600  M01S00593.comccdp +++|
00601  M01S00594.comccdp +++|**        CKP - CHECKPOINT JOB.
00602  M01S00595.comccdp +++|
00603  M01S00596.comccdp +++|
00604  M01S00597.comccdp +++| CKP      BSS    0           ENTRY
00605  M01S00598.comccdp +++|          SA5    CKPA        CLEAR COMPLETION BIT
00606  M01S00599.comccdp +++|          MX6    -1
00607  M01S00600.comccdp +++|          BX7    X6*X5
00608  M01S00601.comccdp +++|          SA7    A5
00609  M01S00602.comccdp +++|          CHECKPT A5,0       CHECKPOINT WITH ALL FILES
00610  M01S00603.comccdp +++|          SA1    A5          REPORT CHECKPOINT NUMBER
00611  M01S00604.comccdp +++|          MX6    -12
00612  M01S00605.comccdp +++|          LX1    0-12
00613  M01S00606.comccdp +++|          BX1    -X6*X1
00614  M01S00607.comccdp +++|          RJ     COD         CONVERT NUMBER
00615  M01S00608.comccdp +++|          LX4    -6
00616  M01S00609.comccdp +++|          BX6    X4
00617  M01S00610.comccdp +++|          SA6    CKPC
00618  M01S00611.comccdp +++|          WRITEC O,CKPB
00619  M01S00612.comccdp +++|          EQ     POCR        RETURN
00620  M01S00613.comccdp +++|
00621  M01S00614.comccdp +++|
00622  M01S00615.comccdp +++| CKPA     VFD    12/0,30/0,6/0,11/0,1/0
00623  M01S00616.comccdp +++| CKPB     DATA   10HCHKPT. (B)
00624  M01S00617.comccdp +++| CKPC     CON    0
00625  M01S00618.comccdp +++|          CON    0
00626  M01S00619.comccdp +++| LOD      SPACE  4,10
00627  M01S00620.comccdp +++|***       D,MMMMMM,NNNNNN.
00628  M01S00621.comccdp +++|*         LIST MEMORY IN OCTAL AND CHARACTER.
00629  M01S00622.comccdp +++|*         LIST FROM MMMMMM THROUGH NNNNNN.
00630  M01S00623.comccdp +++|*         IF NNNNNN IS ABSENT, LIST ONLY MMMMMM.
00631  M01S00624.comccdp +++|
00632  M01S00625.comccdp +++|
00633  M01S00626.comccdp +++|**        LOD - LIST MEMORY OCTAL AND DISPLAY CODE.
00634  M01S00627.comccdp +++|
00635  M01S00628.comccdp +++|
00636  M01S00629.comccdp +++| LOD      BSS    0           ENTRY
00637  M01S00630.comccdp +++|          SA0    O           SET LIST FILE
00638  M01S00631.comccdp +++| LOD1     SA1    ADR1        READ FIRST ADDRESS
00639  M01S00632.comccdp +++|          SX2    B5+         UPPER BOUND
00640  M01S00633.comccdp +++|          SB6    X1+B1       SET NEXT ADDRESS
00641  M01S00634.comccdp +++|          IX3    X2-X1       UPPER - CURRENT
00642  M01S00635.comccdp +++|          NG     X3,LOD2     IF UPPER BOUND HAS BEEN LISTED
00643  M01S00636.comccdp +++|          RJ     COD         CONVERT ADDRESS
00644  M01S00637.comccdp +++|          LX6    6*4         PUT 4 SPACES LOW
00645  M01S00638.comccdp +++|          SA6    LMOA        SET ADDRESS IN LINE
00646  M01S00639.comccdp +++|          SA1    B6-B1       READ CONTENTS
00647  M01S00640.comccdp +++|          RJ     OCB         CONVERT
00648  M01S00641.comccdp +++|          SA1    B6-1        SPACE FILL WORD
00649  M01S00642.comccdp +++|          RJ     ZTB
00650  M01S00643.comccdp +++|          MX7    0
00651  M01S00644.comccdp +++|          SA6    A6+B1       SET CHARACTER FIELD
00652  M01S00645.comccdp +++|          SA7    A6+B1       TERMINATE LINE
00653  M01S00646.comccdp +++|          SX6    B6          SAVE CURRENT ADDRESS
00654  M01S00647.comccdp +++|          SX5    B5+         SAVE UPPER BOUND
00655  M01S00648.comccdp +++|          SA6    ADR1
00656  M01S00649.comccdp +++|          WRITEC A0,LMOA     LIST WORD
00657  M01S00650.comccdp +++|          SB5    X5          NEXT ADDRESS
00658  M01S00651.comccdp +++|          EQ     LOD1        CONTINUE LISTING WORDS
00659  M01S00652.comccdp +++|
00660  M01S00653.comccdp +++| LOD2     SX0    A0
00661  M01S00654.comccdp +++|          SX1    O
00662  M01S00655.comccdp +++|          BX7    X0-X1
00663  M01S00656.comccdp +++|          ZR     X7,POCR     IF LIST FILE *OUTPUT*
00664  M01S00657.comccdp +++|          WRITER A0,R        END RECORD
00665  M01S00658.comccdp +++|          EQ     POCR        RETURN
00666  M01S00659.comccdp +++| DEF      SPACE  4,15
00667  M01S00660.comccdp +++|***       DEF,SSSSSSS,NNNNNN.
00668  M01S00661.comccdp +++|*         DEFINE SYMBOL SSSSSSS AS HAVING VALUE NNNNNN.
00669  M01S00662.comccdp +++|*         SSSSSSS IS ANY 1-7 CHARACTER ALPHANUMERIC STRING EXCEPT
00670  M01S00663.comccdp +++|*         THOSE THAT APPEAR TO BE NUMBERS - E.G. 27, 14B, 353D.
00671  M01S00664.comccdp +++|
00672  M01S00665.comccdp +++|
00673  M01S00666.comccdp +++|***       DEF.
00674  M01S00667.comccdp +++|*         LIST DEFINED SYMBOLS AND VALUES.
00675  M01S00668.comccdp +++|
00676  M01S00669.comccdp +++|
00677  M01S00670.comccdp +++|**        DEF - LIST/DEFINE SYMBOLS.
00678  M01S00671.comccdp +++|
00679  M01S00672.comccdp +++|
00680  M01S00673.comccdp +++| DEF      BSS    0           ENTRY
00681  M01S00674.comccdp +++|          NZ     B4,DEF2     IF DEFINITION REQUEST
00682  M01S00675.comccdp +++|          SA5    TSYM        LIST SYMBOLS AND VALUES
00683  M01S00676.comccdp +++| DEF1     ZR     X5,POCR     IF END OF SYMBOLS
00684  M01S00677.comccdp +++|          MX0    7*6         SPACE FILL SYMBOL NAME
00685  M01S00678.comccdp +++|          BX1    X0*X5
00686  M01S00679.comccdp +++|          RJ     ZTB
00687  M01S00680.comccdp +++|          SA6    DEFA
00688  M01S00681.comccdp +++|          BX1    -X0*X5      CONVERT VALUE
00689  M01S00682.comccdp +++|          RJ     COD
00690  M01S00683.comccdp +++|          LX6    4*6
00691  M01S00684.comccdp +++|          SA6    DEFB
00692  M01S00685.comccdp +++|          WRITEC O,DEFA
00693  M01S00686.comccdp +++|          SA5    A5+1        READ NEXT SYMBOL
00694  M01S00687.comccdp +++|          EQ     DEF1        CONTINUE LISTING SYMBOLS
00695  M01S00688.comccdp +++|
00696  M01S00689.comccdp +++| DEF2     SA1    POCB        CHECK COMPOUND FIRST ARGUMENT
Line S00690 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00697  M02S00690.v23l617 ---|          NZ     X1,POCE     IF ILLEGAL ARGUMENT
00698  M01S00007.v23l617 +++|          NZ     X1,POCE     IF INCORRECT ARGUMENT
00699  M01S00691.comccdp +++|          SA1    UOC+1       CHECK SYMBOL ALREADY DEFINED
00700  M01S00692.comccdp +++|          RJ     SST         SEARCH SYMBOL TABLE
00701  M01S00693.comccdp +++|          MX0    7*6
00702  M01S00694.comccdp +++|          SA5    A1+B1       READ VALUE
00703  M01S00695.comccdp +++|          BX7    X0*X1       SYMBOL
00704  M01S00696.comccdp +++|          SA0    A2          SAVE TABLE ADDRESS
00705  M01S00697.comccdp +++|          SB2    A2-TSYM-TSYML  CHECK TABLE FULL
00706  M01S00698.comccdp +++|          SA7    DEFC        SAVE SYMBOL
00707  M01S00699.comccdp +++|          NG     B2,DEF3     IF TABLE NOT FULL
00708  M01S00700.comccdp +++|          WRITEC O,DEFD      *SYMBOL TABLE FULL*
00709  M01S00701.comccdp +++|          EQ     POCR        RETURN
00710  M01S00702.comccdp +++|
00711  M01S00703.comccdp +++| DEF3     RJ     CAD         CONVERT ADDRESS
00712  M01S00704.comccdp +++|          SA1    DEFC        SET TABLE ENTRY
00713  M01S00705.comccdp +++|          SX6    B7
00714  M01S00706.comccdp +++|          BX7    X1+X6
00715  M01S00707.comccdp +++|          SA7    A0
00716  M01S00708.comccdp +++|          EQ     POCR        RETURN
00717  M01S00709.comccdp +++|
00718  M01S00710.comccdp +++|
00719  M01S00711.comccdp +++| DEFA     CON    0
00720  M01S00712.comccdp +++| DEFB     CON    0
00721  M01S00713.comccdp +++|          CON    0
00722  M01S00714.comccdp +++| DEFC     CON    0
00723  M01S00715.comccdp +++| DEFD     DATA   C*SYMBOL TABLE FULL.*
00724  M01S00716.comccdp +++| DMC      SPACE  4,10
00725  M01S00717.comccdp +++|***       DMPC,MMMMMM,NNNNNN.
00726  M01S00718.comccdp +++|*         LIST MEMORY IN OCTAL TO FILE *DUMP*.
00727  M01S00719.comccdp +++|*         ARGUMENTS SAME AS *C,MMMMMM,NNNNNN.*
00728  M01S00720.comccdp +++|
00729  M01S00721.comccdp +++|
00730  M01S00722.comccdp +++|**        DMC - LIST MEMORY TO FILE *DUMP*.
00731  M01S00723.comccdp +++|
00732  M01S00724.comccdp +++|
00733  M01S00725.comccdp +++| DMC      BSS    0           ENTRY
00734  M01S00726.comccdp +++|          SA0    D           SET LIST FILE
00735  M01S00727.comccdp +++|          SX5    B5+
00736  M01S00728.comccdp +++|          WRITEC A0,DAR      WRITE DUMP PREFIX
00737  M01S00729.comccdp +++|          SB5    X5
00738  M01S00730.comccdp +++|          EQ     LMO1        LIST MEMORY WORDS
00739  M01S00731.comccdp +++| DMD      SPACE  4,10
00740  M01S00732.comccdp +++|***       DMPD,MMMMMM,NNNNNN.
00741  M01S00733.comccdp +++|*         LIST MEMORY IN OCTAL AND CHARACTER TO FILE *DUMP*,
00742  M01S00734.comccdp +++|*         ARGUMENTS SAME AS *D,MMMMMM,NNNNNN.*.
00743  M01S00735.comccdp +++|
00744  M01S00736.comccdp +++|
00745  M01S00737.comccdp +++|**        DMD - LIST MEMORY TO FILE *DUMP*.
00746  M01S00738.comccdp +++|
00747  M01S00739.comccdp +++|
00748  M01S00740.comccdp +++| DMD      BSS    0           ENTRY
00749  M01S00741.comccdp +++|          SA0    D           SET LIST FILE
00750  M01S00742.comccdp +++|          SX5    B5+
00751  M01S00743.comccdp +++|          WRITEC A0,DAR      WRITE DUMP PREFIX
00752  M01S00744.comccdp +++|          SB5    X5
00753  M01S00745.comccdp +++|          EQ     LOD1        LIST MEMORY WORDS
00754  M01S00746.comccdp +++| DMR      SPACE  4,10
00755  M01S00747.comccdp +++|***       DMPR.
00756  M01S00748.comccdp +++|*         LIST REGISTER CONTENTS ON FILE *DUMP*.
00757  M01S00749.comccdp +++|
00758  M01S00750.comccdp +++|
00759  M01S00751.comccdp +++|**        DMR - LIST REGISTER CONTENTS ON FILE *DUMP*.
00760  M01S00752.comccdp +++|
00761  M01S00753.comccdp +++|
00762  M01S00754.comccdp +++| DMR      BSS    0           ENTRY
00763  M01S00755.comccdp +++|          SA0    D           SET LIST FILE
00764  M01S00756.comccdp +++|          WRITEC A0,DAR      LIST DUMP INDICATOR
00765  M01S00757.comccdp +++|          EQ     LRC1        LIST REGISTER CONTENTS
00766  M01S00758.comccdp +++| EMB      SPACE  4,10
00767  M01S00759.comccdp +++|***       EB,MMMMMM,B.CCCC.
00768  M01S00760.comccdp +++|*         ENTER MEMORY BYTE IN OCTAL.
00769  M01S00761.comccdp +++|*         ENTER LOCATION MMMMMM BYTE B (NUMBERED 0 - 4 FROM LEFT)
00770  M01S00762.comccdp +++|*         WITH OCTAL VALUE CCCC.  WITH THE EXCEPTION OF BLANKS, CCCC
00771  M01S00763.comccdp +++|*         MAY NOT CONTAIN NON-OCTAL DIGIT CHARACTERS.
00772  M01S00764.comccdp +++|
00773  M01S00765.comccdp +++|
00774  M01S00766.comccdp +++|**        EMB - ENTER MEMORY BYTE.
00775  M01S00767.comccdp +++|
00776  M01S00768.comccdp +++|
00777  M01S00769.comccdp +++| EMB      BSS    0           ENTRY
00778  M01S00770.comccdp +++|          SA5    BUF         FIND FIRST CONTENT CHARACTER
00779  M01S00771.comccdp +++|          SA3    TERM        TERMINATOR MASK
00780  M01S00772.comccdp +++|          RJ     FEC         FIND END OF COMMAND
00781  M01S00773.comccdp +++|          SA1    BUFA        LWA+1 INPUT LINE
00782  M01S00774.comccdp +++|          SX0    5
00783  M01S00775.comccdp +++|          SB6    X1
00784  M01S00776.comccdp +++|          SB7    B1          CHECK FOR TERMINATOR
00785  M01S00777.comccdp +++|          RJ     ASC         ASSEMBLE CHARACTERS
00786  M01S00778.comccdp +++|          ZR     X4,POCE     IF NO NON-BLANK CHARACTERS
00787  M01S00779.comccdp +++|          SB2    X4-5
00788  M01S00780.comccdp +++|          PL     B2,POCE     IF TOO MANY CHARACTERS
00789  M01S00781.comccdp +++|          MX2    -6
00790  M01S00782.comccdp +++|          BX7    X7-X7
00791  M01S00783.comccdp +++| EMB1     LX6    6
00792  M01S00784.comccdp +++|          BX1    -X2*X6
00793  M01S00785.comccdp +++|          SX3    X1-1R8
00794  M01S00786.comccdp +++|          PL     X3,POCE     IF NOT OCTAL DIGIT
00795  M01S00787.comccdp +++|          SX3    X1-1R0
00796  M01S00788.comccdp +++|          NG     X3,POCE     IF NOT OCTAL DIGIT
00797  M01S00789.comccdp +++|          LX7    3
00798  M01S00790.comccdp +++|          BX7    X7+X3
00799  M01S00791.comccdp +++|          SX4    X4-1
00800  M01S00792.comccdp +++|          NZ     X4,EMB1     IF MORE CHARACTERS
00801  M01S00793.comccdp +++|          SA1    ADR1
00802  M01S00794.comccdp +++|          SB2    X1-CDPS
00803  M01S00795.comccdp +++|          NG     B2,EMB2     IF BELOW DEBUGGER
00804  M01S00796.comccdp +++|          SB2    X1-CDPE
00805  M01S00797.comccdp +++|          PL     B2,EMB2     IF ABOVE DEBUGGER
00806  M01S00798.comccdp +++|          WRITEC O,EMMS      ISSUE ERROR MESSAGE
00807  M01S00799.comccdp +++|          EQ     POCR        RETURN
00808  M01S00800.comccdp +++|
00809  M01S00801.comccdp +++| EMB2     SA1    X1          GET LOCATION CONTENTS
00810  M01S00802.comccdp +++|          MX0    12
00811  M01S00803.comccdp +++|          SA2    ADR2        BYTE NUMBER
00812  M01S00804.comccdp +++|          SB2    X2-5
Line S00805 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00813  M02S00805.v23l617 ---|          PL     B2,POCE     IF ILLEGAL BYTE NUMBER
00814  M01S00008.v23l617 +++|          PL     B2,POCE     IF INCORRECT BYTE NUMBER
00815  M01S00806.comccdp +++|          SX3    -12         SET BYTE CONTENTS
00816  M01S00807.comccdp +++|          IX2    X2*X3
00817  M01S00808.comccdp +++|          LX7    -12
00818  M01S00809.comccdp +++|          SB2    X2+60
00819  M01S00810.comccdp +++|          LX0    B2
00820  M01S00811.comccdp +++|          BX1    -X0*X1
00821  M01S00812.comccdp +++|          LX7    B2
00822  M01S00813.comccdp +++|          BX7    X1+X7
00823  M01S00814.comccdp +++|          SA7    A1
00824  M01S00815.comccdp +++|          EQ     POCR        RETURN
00825  M01S00816.comccdp +++| ECH      SPACE  4,15
00826  M01S00817.comccdp +++|***       ECHO.
00827  M01S00818.comccdp +++|*         ECHO BACK ALL COMMAND LINES.
00828  M01S00819.comccdp +++|*         THIS MAY BE USEFUL IF AN ALTERNATE INPUT FILE IS IN USE.
00829  M01S00820.comccdp +++|
00830  M01S00821.comccdp +++|
00831  M01S00822.comccdp +++|***       ECHO,OFF.
00832  M01S00823.comccdp +++|*         DO NOT ECHO BACK COMMAND LINES.
00833  M01S00824.comccdp +++|*         REVERSES THE EFFECT OF *ECHO.*.  *OFF* MAY BE ANY 1-7
00834  M01S00825.comccdp +++|*         CHARACTER ARGUMENT.
00835  M01S00826.comccdp +++|
00836  M01S00827.comccdp +++|
00837  M01S00828.comccdp +++|**        ECH - TURN ON/OFF COMMAND ECHO.
00838  M01S00829.comccdp +++|
00839  M01S00830.comccdp +++|
00840  M01S00831.comccdp +++| ECH      BSS    0           ENTRY
00841  M01S00832.comccdp +++|          SA1    POCB        CHECK COMPOUND ARGUMENT
Line S00833 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00842  M02S00833.v23l617 ---|          NZ     X1,POCE     IF ILLEGAL ARGUMENT
00843  M01S00009.v23l617 +++|          NZ     X1,POCE     IF INCORRECT ARGUMENT
00844  M01S00834.comccdp +++|          SX6    B4+         SET ECHO
00845  M01S00835.comccdp +++|          SA6    ECHO
00846  M01S00836.comccdp +++|          EQ     POCR        RETURN
00847  M01S00837.comccdp +++| EMD      SPACE  4,15
00848  M01S00838.comccdp +++|***       ED,MMMMMM,NNNNNN.$DDD---DDD$
00849  M01S00839.comccdp +++|*         ENTER MEMORY IN DISPLAY.
00850  M01S00840.comccdp +++|*         ENTER LOCATIONS MMMMMM THROUGH NNNNNN WITH DISPLAY CODE
00851  M01S00841.comccdp +++|*         STRING DDD---DDD.  ANY CHARACTER CAN BE USED AS A DELIMITER.
00852  M01S00842.comccdp +++|*         WORD STORAGE TERMINATES WHEN THE MATCHING DELIMITER IS
00853  M01S00843.comccdp +++|*         ENCOUNTERED, THE STRING IS EXHAUSTED, OR MMMMMM THROUGH
00854  M01S00844.comccdp +++|*         NNNNNN HAVE BEEN FILLED.  IF NNNNNN IS ABSENT, ONLY MMMMMM
00855  M01S00845.comccdp +++|*         IS FILLED.  ALL INPUT CHARACTERS BEYOND THE 78TH POSITION
00856  M01S00846.comccdp +++|*         ARE TRUNCATED.
00857  M01S00847.comccdp +++|
00858  M01S00848.comccdp +++|
00859  M01S00849.comccdp +++|**        EMD - ENTER MEMORY DISPLAY.
00860  M01S00850.comccdp +++|
00861  M01S00851.comccdp +++|
00862  M01S00852.comccdp +++| EMD      BSS    0           ENTRY
00863  M01S00853.comccdp +++|          SA1    ADR1        FWA STORE WORDS
00864  M01S00854.comccdp +++|          SA2    ADR2        LWA STORE WORDS
00865  M01S00855.comccdp +++|          SB2    CDPS
00866  M01S00856.comccdp +++|          SB3    CDPE
00867  M01S00857.comccdp +++|          SB4    X1
00868  M01S00858.comccdp +++|          SB5    X2
00869  M01S00859.comccdp +++|          LT     B4,B2,EMD1  IF RANGE BELOW DEBUGGER
00870  M01S00860.comccdp +++|          GE     B5,B3,EMD1  IF RANGE ABOVE DEBUGGER
00871  M01S00861.comccdp +++|          WRITEC O,EMMS      ISSUE ERROR MESSAGE
00872  M01S00862.comccdp +++|          EQ     POCR        RETURN
00873  M01S00863.comccdp +++|
00874  M01S00864.comccdp +++| EMD1     SA5    BUF         FIND FIRST DISPLAY CHARACTER
00875  M01S00865.comccdp +++|          SA3    TERM        TERMINATOR MASK
00876  M01S00866.comccdp +++|          RJ     FEC         FIND END OF COMMAND
00877  M01S00867.comccdp +++|          SA1    BUFA
00878  M01S00868.comccdp +++|          SB6    X1          LWA+1 INPUT LINE
00879  M01S00869.comccdp +++|          SX0    B1
00880  M01S00870.comccdp +++|          SB7    -B1         NO CHECK FOR TERMINATOR/SEPARATOR
00881  M01S00871.comccdp +++|          RJ     ASC         GET DELIMITER
00882  M01S00872.comccdp +++|          NG     B6,POCE     IF END OF LINE
00883  M01S00873.comccdp +++|          BX3    X7
00884  M01S00874.comccdp +++|          SB7    B0          CHECK FOR DELIMITER, NO BLANK SUPPRESSION
00885  M01S00875.comccdp +++| EMD2     SX0    10
00886  M01S00876.comccdp +++|          RJ     ASC         ASSEMBLE WORD OF DATA
00887  M01S00877.comccdp +++|          SA6    B4
00888  M01S00878.comccdp +++|          SB4    B4+B1
00889  M01S00879.comccdp +++|          GT     B4,B5,POCR  IF ALL LOCATIONS FILLED
00890  M01S00880.comccdp +++|          PL     B6,EMD2     IF MORE CHARACTERS IN STRING
00891  M01S00881.comccdp +++|          EQ     POCR        RETURN
00892  M01S00882.comccdp +++| EMO      SPACE  4,15
00893  M01S00883.comccdp +++|***       EM,MMMMMM,NNNNNN.CCCCCCCCCCCCCCCCCCCC.
00894  M01S00884.comccdp +++|*         ENTER MEMORY IN OCTAL OR DECIMAL.
00895  M01S00885.comccdp +++|*         IF CCC---CCC CONTAINS 11 TO 20 NON-BLANK CHARACTERS,
00896  M01S00886.comccdp +++|*         IT MUST BE OCTAL.  IF CCC---CCC IS 10 OR LESS NON-BLANK
00897  M01S00887.comccdp +++|*         CHARACTERS, OCTAL BASE IS ASSUMED, HOWEVER, A POST RADIX
00898  M01S00888.comccdp +++|*         B (OCTAL) OR D (DECIMAL) MAY BE SPECIFIED, AND THE PRESENCE
00899  M01S00889.comccdp +++|*         OF AN 8 OR 9 WILL FORCE DECIMAL BASE.  WITH THE EXCEPTION
00900  M01S00890.comccdp +++|*         OF THE POST RADIX AND BLANKS, CCC---CCC MAY NOT CONTAIN
00901  M01S00891.comccdp +++|*         NON-DIGIT CHARACTERS, INCLUDING ARITHMETIC OPERATORS AND
00902  M01S00892.comccdp +++|*         SYMBOLIC VALUES.  IF NNNNNN IS ABSENT, ONLY MMMMMM IS FILLED.
00903  M01S00893.comccdp +++|
00904  M01S00894.comccdp +++|
00905  M01S00895.comccdp +++|**        EMO - ENTER MEMORY OCTAL.
00906  M01S00896.comccdp +++|
00907  M01S00897.comccdp +++|
00908  M01S00898.comccdp +++| EMO      BSS    0           ENTRY
00909  M01S00899.comccdp +++|          SA1    EMOD        SET UP CONDITIONAL CODE
00910  M01S00900.comccdp +++|          BX6    X1
00911  M01S00901.comccdp +++|          SA6    EMOA
00912  M01S00902.comccdp +++| EMO1     SA5    BUF         FIND FIRST CONTENT CHARACTER
00913  M01S00903.comccdp +++|          SA3    TERM        READ TERMINATOR MASK WORD
00914  M01S00904.comccdp +++|          RJ     FEC         FIND END OF COMMAND
00915  M01S00905.comccdp +++|          SA1    BUFA        LWA+1 INPUT LINE
00916  M01S00906.comccdp +++|          SX0    10          ASSEMBLE 10 CHARACTERS
00917  M01S00907.comccdp +++|          SB6    X1
00918  M01S00908.comccdp +++|          SB7    B1          CHECK FOR TERMINATOR, BLANK SUPPRESSION
00919  M01S00909.comccdp +++|          RJ     ASC         ASSEMBLE CHARACTERS
00920  M01S00910.comccdp +++| EMOA     ZR     X4,POCE     IF NO NON-BLANK CHARACTERS
00921  M01S00911.comccdp +++|*         ZR     X4,LXR1     IF LIST *X* REGISTER OPTION
00922  M01S00912.comccdp +++|          SX7    X4+
00923  M01S00913.comccdp +++|          SA6    EMOB        SAVE ASSEMBLED CHARACTERS
00924  M01S00914.comccdp +++|          SA7    EMOC        SAVE CHARACTER COUNT
00925  M01S00915.comccdp +++|          NG     B6,EMO5     IF TERMINATOR/END-OF-LINE ENCOUNTERED
00926  M01S00916.comccdp +++|          SX0    10          ASSEMBLE 10 CHARACTERS
00927  M01S00917.comccdp +++|          RJ     ASC
00928  M01S00918.comccdp +++|          ZR     X4,EMO5     IF 10 OR LESS CHARACTERS
00929  M01S00919.comccdp +++|          SA1    EMOC        UPDATE CHARACTER COUNT
00930  M01S00920.comccdp +++|          SA6    EMOB+1      SAVE ASSEMBLED CHARACTERS
00931  M01S00921.comccdp +++|          IX7    X4+X1
00932  M01S00922.comccdp +++|          SA7    A1
00933  M01S00923.comccdp +++|          SX0    B1+
00934  M01S00924.comccdp +++|          NG     B6,EMO2     IF TERMINATOR/END-OF-LINE ENCOUNTERED
00935  M01S00925.comccdp +++|          RJ     ASC         ASSEMBLE NEXT CHARACTER
00936  M01S00926.comccdp +++|          NZ     X4,POCE     IF TOO MANY CHARACTERS
00937  M01S00927.comccdp +++| EMO2     SA1    EMOC
00938  M01S00928.comccdp +++|          SB2    B0          CHARACTER COUNTER
00939  M01S00929.comccdp +++|          SB3    X1          ASSEMBLED CHARACTER COUNT
00940  M01S00930.comccdp +++|          SB4    10
00941  M01S00931.comccdp +++|          BX6    X6-X6
00942  M01S00932.comccdp +++|          MX0    -6
00943  M01S00933.comccdp +++|          SA5    EMOB
00944  M01S00934.comccdp +++| EMO3     EQ     B2,B3,EMO6  IF ALL CHARACTERS PROCESSED
00945  M01S00935.comccdp +++|          NE     B2,B4,EMO4  IF WORD NOT EXHAUSTED
00946  M01S00936.comccdp +++|          SA5    A5+1
00947  M01S00937.comccdp +++| EMO4     LX5    6
00948  M01S00938.comccdp +++|          BX1    -X0*X5
00949  M01S00939.comccdp +++|          SB2    B2+1
00950  M01S00940.comccdp +++|          SX2    X1-1R8
00951  M01S00941.comccdp +++|          PL     X2,POCE     IF NOT OCTAL DIGIT
00952  M01S00942.comccdp +++|          SX2    X1-1R0
00953  M01S00943.comccdp +++|          NG     X2,POCE     IF NOT OCTAL DIGIT
00954  M01S00944.comccdp +++|          LX6    3
00955  M01S00945.comccdp +++|          BX6    X6+X2
00956  M01S00946.comccdp +++|          EQ     EMO3        CONTINUE NUMBER CONVERSION
00957  M01S00947.comccdp +++|
00958  M01S00948.comccdp +++| EMO5     SA5    EMOB        GET WORD TO CONVERT
00959  M01S00949.comccdp +++|          SB7    B0+
00960  M01S00950.comccdp +++|          RJ     DXB         DISPLAY CODE TO BINARY CONVERSION
00961  M01S00951.comccdp +++|          NZ     X4,POCE     IF ERROR
00962  M01S00952.comccdp +++| EMO6     SA1    ADR1        FWA STORE WORDS
00963  M01S00953.comccdp +++|          SA2    ADR2
00964  M01S00954.comccdp +++|          SB2    X1          ADR1
00965  M01S00955.comccdp +++|          SB3    X2          ADR2
00966  M01S00956.comccdp +++|          NG     X1,EMO7     IF RANGE CHECK DISABLED
00967  M01S00957.comccdp +++|          SB4    CDPS        CHECK ALTERATION OF DEBUGGER
00968  M01S00958.comccdp +++|          SB5    CDPE
00969  M01S00959.comccdp +++|          LT     B3,B4,EMO7  IF RANGE BELOW DEBUGGER
00970  M01S00960.comccdp +++|          GE     B2,B5,EMO7  IF RANGE ABOVE DEBUGGER
00971  M01S00961.comccdp +++|          WRITEC O,EMMS      ISSUE ERROR MESSAGE
00972  M01S00962.comccdp +++|          EQ     POCR        RETURN
00973  M01S00963.comccdp +++|
00974  M01S00964.comccdp +++| EMO7     SA6    B2
00975  M01S00965.comccdp +++|          SB2    B2+B1
00976  M01S00966.comccdp +++|          LE     B2,B3,EMO7  IF NOT ALL WORDS STORED
00977  M01S00967.comccdp +++|          EQ     POCR        RETURN
00978  M01S00968.comccdp +++|
00979  M01S00969.comccdp +++|
00980  M01S00970.comccdp +++| EMOB     BSSZ   2           CHARACTER BUFFER
00981  M01S00971.comccdp +++| EMOC     CON    0           CHARACTER COUNT
00982  M01S00972.comccdp +++|
00983  M01S00973.comccdp +++| EMOD     ZR     X4,POCE     IF NO NON-BLANK CHARACTERS
00984  M01S00974.comccdp +++|          SX7    X4+
00985  M01S00975.comccdp +++|
00986  M01S00976.comccdp +++| EMMS     DATA   C* THIS WOULD DESTROY DEBUGGER.*
00987  M01S00977.comccdp +++| ERE      SPACE  4,10
00988  M01S00978.comccdp +++|***       EREXIT.
00989  M01S00979.comccdp +++|*         SET ERROR EXIT ADDRESS FOR CDP PROCESSING.
00990  M01S00980.comccdp +++|
00991  M01S00981.comccdp +++|
00992  M01S00982.comccdp +++|**        ERE - SET ERROR EXIT PROCESSING.
00993  M01S00983.comccdp +++|
00994  M01S00984.comccdp +++|
00995  M01S00985.comccdp +++| ERE      BSS    0           ENTRY
00996  M01S00986.comccdp +++|          EREXIT XIT
00997  M01S00987.comccdp +++|          EQ     POCR        RETURN
00998  M01S00988.comccdp +++| FIL      SPACE  4,15
00999  M01S00989.comccdp +++|***       FILE,X,AAAAAAA.
01000  M01S00990.comccdp +++|*         SET FILE TYPE X NAME TO AAAAAAA.
01001  M01S00991.comccdp +++|*         X MAY BE ANY 1-7 CHARACTERS STARTING WITH -
01002  M01S00992.comccdp +++|*                I TO SET INPUT FILE NAME. (DEFAULT *INPUT*)
01003  M01S00993.comccdp +++|*                L TO SET LIST FILE NAME. (DEFAULT *OUTPUT*)
01004  M01S00994.comccdp +++|*                D TO SET DUMP FILE NAME. (DEFAULT *DUMP*)
01005  M01S00995.comccdp +++|*         RESETTING THE INPUT FILE NAME WILL CAUSE *CDP* TO IMMEDIATELY
01006  M01S00996.comccdp +++|*         BEGIN READING AND PROCESSING COMMANDS FROM THE NEW FILE.
01007  M01S00997.comccdp +++|
01008  M01S00998.comccdp +++|
01009  M01S00999.comccdp +++|**        FIL - SET FILE NAME.
01010  M01S01000.comccdp +++|
01011  M01S01001.comccdp +++|
01012  M01S01002.comccdp +++| FIL      BSS    0           ENTRY
01013  M01S01003.comccdp +++|          SA1    POCB        CHECK COMPOUND ARGUMENTS
01014  M01S01004.comccdp +++|          SA2    A1+B1
01015  M01S01005.comccdp +++|          BX2    X1+X2
Line S01006 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01016  M02S01006.v23l617 ---|          NZ     X2,POCE     IF ILLEGAL ARGUMENT
01017  M01S00010.v23l617 +++|          NZ     X2,POCE     IF INCORRECT ARGUMENT
01018  M01S01007.comccdp +++|          SA1    UOC+1       IDENTIFY FILE TYPE
01019  M01S01008.comccdp +++|          SX0    77B
01020  M01S01009.comccdp +++|          LX1    6
01021  M01S01010.comccdp +++|          BX6    X0*X1
01022  M01S01011.comccdp +++|          SB2    X6-1RI
01023  M01S01012.comccdp +++|          SB3    I
01024  M01S01013.comccdp +++|          ZR     B2,FIL1     IF INPUT FILE
01025  M01S01014.comccdp +++|          SB2    X6-1RL
01026  M01S01015.comccdp +++|          SB3    O
01027  M01S01016.comccdp +++|          ZR     B2,FIL1     IF LIST FILE
01028  M01S01017.comccdp +++|          SB2    X6-1RD
01029  M01S01018.comccdp +++|          SB3    D
01030  M01S01019.comccdp +++|          NZ     B2,POCE     IF NOT DUMP FILE
01031  M01S01020.comccdp +++| FIL1     SA1    B3          SET FET
01032  M01S01021.comccdp +++|          SA2    UOC+2
01033  M01S01022.comccdp +++|          MX0    7*6
01034  M01S01023.comccdp +++|          BX6    -X0*X1
01035  M01S01024.comccdp +++|          BX7    X0*X2
01036  M01S01025.comccdp +++|          BX6    X6+X7
01037  M01S01026.comccdp +++|          SA6    A1
01038  M01S01027.comccdp +++|          SB3    B3-O
01039  M01S01028.comccdp +++|          NZ     B3,POCR     IF NOT OUTPUT FILE
01040  M01S01029.comccdp +++|          SX1    O           RESET FET POINTER
01041  M01S01030.comccdp +++|          BX7    X7+X1
01042  M01S01031.comccdp +++|          SA7    B1+B1
01043  M01S01032.comccdp +++|          EQ     POCR        RETURN
01044  M01S01033.comccdp +++| RFL      SPACE  4,10
01045  M01S01034.comccdp +++|***       FL.
01046  M01S01035.comccdp +++|*         RETURN CURRENT FIELD LENGTH.
01047  M01S01036.comccdp +++|
01048  M01S01037.comccdp +++|
01049  M01S01038.comccdp +++|***       FL,NNNNNN.
01050  M01S01039.comccdp +++|*         SET FIELD LENGTH.
01051  M01S01040.comccdp +++|
01052  M01S01041.comccdp +++|
01053  M01S01042.comccdp +++|**        RFL - SET/RETURN FIELD LENGTH.
01054  M01S01043.comccdp +++|
01055  M01S01044.comccdp +++|
01056  M01S01045.comccdp +++| RFL      BSS    0           ENTRY
01057  M01S01046.comccdp +++|          NZ     B4,RFL1     IF *SET FIELD LENGTH*
01058  M01S01047.comccdp +++|          SX7    0
01059  M01S01048.comccdp +++|          SA7    RFLA
01060  M01S01049.comccdp +++|          MEMORY CM,A7,R
01061  M01S01050.comccdp +++|          SA1    A7          CONVERT FIELD LENGTH
01062  M01S01051.comccdp +++|          AX1    30
01063  M01S01052.comccdp +++|          RJ     COD
01064  M01S01053.comccdp +++|          SA1    RFLB        SET MESSAGE
01065  M01S01054.comccdp +++|          MX0    60-36
01066  M01S01055.comccdp +++|          BX6    -X0*X6
01067  M01S01056.comccdp +++|          BX7    X1+X6
01068  M01S01057.comccdp +++|          SA7    RFLC
01069  M01S01058.comccdp +++|          WRITEC O,A7
01070  M01S01059.comccdp +++|          EQ     POCR        RETURN
01071  M01S01060.comccdp +++|
01072  M01S01061.comccdp +++| RFL1     BX5    X6          SAVE FIELD LENGTH DESIGNATION
01073  M01S01062.comccdp +++|          LX6    30
01074  M01S01063.comccdp +++|          SA6    RFLC
01075  M01S01064.comccdp +++|          SETRFL X5          SET FIELD LENGTH
01076  M01S01065.comccdp +++|          MEMORY CM,RFLC,R
01077  M01S01066.comccdp +++|          EQ     POCR        RETURN
01078  M01S01067.comccdp +++|
01079  M01S01068.comccdp +++|
01080  M01S01069.comccdp +++| RFLA     CON    0
01081  M01S01070.comccdp +++| RFLB     CON    4L FL
01082  M01S01071.comccdp +++| RFLC     CON    0
01083  M01S01072.comccdp +++|          CON    0
01084  M01S01073.comccdp +++| MOD      SPACE  4,10
01085  M01S01074.comccdp +++|***       MODE.
01086  M01S01075.comccdp +++|*         RETURN CURRENT EXIT MODE.
01087  M01S01076.comccdp +++|
01088  M01S01077.comccdp +++|
01089  M01S01078.comccdp +++|***       MODE,N.
01090  M01S01079.comccdp +++|*         SET EXIT MODE TO N.
01091  M01S01080.comccdp +++|
01092  M01S01081.comccdp +++|
01093  M01S01082.comccdp +++|**        MOD - SET/RETURN EXIT MODE.
01094  M01S01083.comccdp +++|
01095  M01S01084.comccdp +++|
01096  M01S01085.comccdp +++| MOD      BSS    0           ENTRY
01097  M01S01086.comccdp +++|          NZ     B4,MOD1     IF *SET EXIT MODE*
01098  M01S01087.comccdp +++|          GETEM  MODA        GET EXIT MODE
01099  M01S01088.comccdp +++|          SA1    MODA        CONVERT MODE
01100  M01S01089.comccdp +++|          RJ     COD
01101  M01S01090.comccdp +++|          SA1    MODB        SET MESSAGE
01102  M01S01091.comccdp +++|          MX0    60-6
01103  M01S01092.comccdp +++|          BX6    -X0*X6
01104  M01S01093.comccdp +++|          LX6    5*6
01105  M01S01094.comccdp +++|          BX7    X1+X6
01106  M01S01095.comccdp +++|          SA7    MODA
01107  M01S01096.comccdp +++|          WRITEC O,A7
01108  M01S01097.comccdp +++|          EQ     POCR        RETURN
01109  M01S01098.comccdp +++|
01110  M01S01099.comccdp +++| MOD1     SX7    X6-10B      VERIFY MODE NUMBER
01111  M01S01100.comccdp +++|          PL     X7,POCE     IF MODE TOO HIGH
01112  M01S01101.comccdp +++|          MODE   X6          SET EXIT MODE
01113  M01S01102.comccdp +++|          EQ     POCR        RETURN
01114  M01S01103.comccdp +++|
01115  M01S01104.comccdp +++|
01116  M01S01105.comccdp +++| MODA     CON    0
01117  M01S01106.comccdp +++| MODB     CON    4L EM
01118  M01S01107.comccdp +++| STP      SPACE  4,10
01119  M01S01108.comccdp +++|***       P.
01120  M01S01109.comccdp +++|*         LIST *P* REGISTER CONTENTS.
01121  M01S01110.comccdp +++|
01122  M01S01111.comccdp +++|
01123  M01S01112.comccdp +++|***       P,NNNNNN.
01124  M01S01113.comccdp +++|*         SET *P* REGISTER TO NNNNNN.
01125  M01S01114.comccdp +++|
01126  M01S01115.comccdp +++|
01127  M01S01116.comccdp +++|**        STP - LIST/SET P.
01128  M01S01117.comccdp +++|
01129  M01S01118.comccdp +++|
01130  M01S01119.comccdp +++| STP      BSS    0           ENTRY
01131  M01S01120.comccdp +++|          ZR     B4,STP1     IF LIST P
01132  M01S01121.comccdp +++|          SA6    REGP        SET *P* REGISTER
01133  M01S01122.comccdp +++|          SA1    STPA        SET PROPER RETURN ADDRESS
01134  M01S01123.comccdp +++|          BX6    X1+X6
01135  M01S01124.comccdp +++|          LX6    30
01136  M01S01125.comccdp +++|          SA6    CDPX
01137  M01S01126.comccdp +++|          EQ     POCR        RETURN
01138  M01S01127.comccdp +++|
01139  M01S01128.comccdp +++| STP1     SA1    REGP        READ *P* REGISTER
01140  M01S01129.comccdp +++|          RJ     COD         CONVERT *P*
01141  M01S01130.comccdp +++|          MX5    3*6
01142  M01S01131.comccdp +++|          SA1    STPB        LIST (P)
01143  M01S01132.comccdp +++|          BX6    -X5*X6
01144  M01S01133.comccdp +++|          BX7    X1+X6
01145  M01S01134.comccdp +++|          SX6    B0
01146  M01S01135.comccdp +++|          SA7    LRCC
01147  M01S01136.comccdp +++|          SA6    A7+B1
01148  M01S01137.comccdp +++|          WRITEC O,LRCC
01149  M01S01138.comccdp +++|          EQ     POCR        RETURN
01150  M01S01139.comccdp +++|
01151  M01S01140.comccdp +++|
01152  M01S01141.comccdp +++| STPA     NO
01153  M01S01142.comccdp +++|          NO
01154  M01S01143.comccdp +++|          EQ     0
01155  M01S01144.comccdp +++|
01156  M01S01145.comccdp +++| STPB     CON    3L P
01157  M01S01146.comccdp +++| LRC      SPACE  4,10
01158  M01S01147.comccdp +++|***       R.
01159  M01S01148.comccdp +++|*         LIST REGISTER CONTENTS.
01160  M01S01149.comccdp +++|
01161  M01S01150.comccdp +++|
01162  M01S01151.comccdp +++|**        LRC - LIST REGISTER CONTENTS.
01163  M01S01152.comccdp +++|
01164  M01S01153.comccdp +++|
01165  M01S01154.comccdp +++| LRC      BSS    0           ENTRY
01166  M01S01155.comccdp +++|          SA0    O           SET LIST FILE
01167  M01S01156.comccdp +++| LRC1     SA1    REGP        READ *P* REGISTER
01168  M01S01157.comccdp +++|          RJ     COD         CONVERT *P*
01169  M01S01158.comccdp +++|          MX5    3*6
01170  M01S01159.comccdp +++|          SA1    LRCG        LIST (P)
01171  M01S01160.comccdp +++|          BX6    -X5*X6
01172  M01S01161.comccdp +++|          BX7    X1+X6
01173  M01S01162.comccdp +++|          SX6    B0
01174  M01S01163.comccdp +++|          SA7    LRCC
01175  M01S01164.comccdp +++|          SA6    A7+B1
01176  M01S01165.comccdp +++|          WRITEC A0,LRCC
01177  M01S01166.comccdp +++|          SB5    0           INITIALIZE REGISTER INDEX
01178  M01S01167.comccdp +++| LRC2     SA1    REGA+B5     READ *A* REGISTER CONTENTS
01179  M01S01168.comccdp +++|          RJ     WOD         CONVERT CONTENTS TO DISPLAY
01180  M01S01169.comccdp +++|          RJ     SFZ         CONVERT LEADING DISPLAY ZEROS TO BLANKS
01181  M01S01170.comccdp +++|          MX0    -36
01182  M01S01171.comccdp +++|          SX2    B5
01183  M01S01172.comccdp +++|          SA1    LRCA        REGISTER NAME
01184  M01S01173.comccdp +++|          LX2    42
01185  M01S01174.comccdp +++|          BX6    -X0*X7
01186  M01S01175.comccdp +++|          IX1    X1+X2
01187  M01S01176.comccdp +++|          BX6    X1+X6
01188  M01S01177.comccdp +++|          SA6    LRCC        SET *A* CONTENTS
01189  M01S01178.comccdp +++|          SA1    REGB+B5     READ *B* REGISTER CONTENTS
01190  M01S01179.comccdp +++|          RJ     WOD         CONVERT CONTENTS TO DISPLAY
01191  M01S01180.comccdp +++|          RJ     SFZ         CONVERT LEADING DISPLAY ZEROS TO BLANKS
01192  M01S01181.comccdp +++|          SX2    B5+
01193  M01S01182.comccdp +++|          SA1    LRCB        REGISTER NAME
01194  M01S01183.comccdp +++|          MX0    -36
01195  M01S01184.comccdp +++|          LX2    42
01196  M01S01185.comccdp +++|          BX6    -X0*X7
01197  M01S01186.comccdp +++|          IX1    X1+X2
01198  M01S01187.comccdp +++|          BX6    X1+X6
01199  M01S01188.comccdp +++|          SA6    LRCD        SET *B* CONTENTS
01200  M01S01189.comccdp +++|          SX5    B5          SAVE INDEX
01201  M01S01190.comccdp +++|          WRITEC A0,LRCC     LIST *A* AND *B*
01202  M01S01191.comccdp +++|          SB5    X5+B1       ADVANCE REGISTER INDEX
01203  M01S01192.comccdp +++|          SB6    B5-8
01204  M01S01193.comccdp +++|          NZ     B6,LRC2     IF NOT DONE WITH *A* AND *B* REGISTERS
01205  M01S01194.comccdp +++|          SB5    0
01206  M01S01195.comccdp +++|          SA2    LRCE        *      X0  *
01207  M01S01196.comccdp +++|          BX6    X2
01208  M01S01197.comccdp +++|          SA6    A2+B1       SET REGISTER TAG
01209  M01S01198.comccdp +++| LRC3     SA1    REGX+B5     READ *X* REGISTER CONTENTS
01210  M01S01199.comccdp +++|          RJ     OCB         CONVERT OCTAL BY BYTES
01211  M01S01200.comccdp +++|          SA1    REGX+B5     SET CHARACTER INTERPRETATION
01212  M01S01201.comccdp +++|          RJ     ZTB
01213  M01S01202.comccdp +++|          SA6    A6+B1
01214  M01S01203.comccdp +++|          SX5    B5          SAVE REGISTER INDEX
01215  M01S01204.comccdp +++|          WRITEC A0,LRCF     LIST *X* REGISTER CONTENTS
01216  M01S01205.comccdp +++|          SB5    X5+B1       ADVANCE REGISTER INDEX
01217  M01S01206.comccdp +++|          SA2    LRCF        ADVANCE TAG
01218  M01S01207.comccdp +++|          MX0    60-1
01219  M01S01208.comccdp +++|          SB6    B5-8
01220  M01S01209.comccdp +++|          LX0    6*2
01221  M01S01210.comccdp +++|          IX6    X2-X0
01222  M01S01211.comccdp +++|          SA6    A2+
01223  M01S01212.comccdp +++|          NZ     B6,LRC3     IF NOT DONE WITH *X* REGISTERS
01224  M01S01213.comccdp +++|          SX0    A0
01225  M01S01214.comccdp +++|          SX1    O
01226  M01S01215.comccdp +++|          BX7    X0-X1
01227  M01S01216.comccdp +++|          ZR     X7,POCR     IF LIST FILE *OUTPUT*
01228  M01S01217.comccdp +++|          WRITER A0,R        END RECORD
01229  M01S01218.comccdp +++|          EQ     POCR        RETURN
01230  M01S01219.comccdp +++|
01231  M01S01220.comccdp +++|
01232  M01S01221.comccdp +++| LRCA     CON    4L A0
01233  M01S01222.comccdp +++| LRCB     CON    4L B0
01234  M01S01223.comccdp +++| LRCC     CON    0
01235  M01S01224.comccdp +++| LRCD     CON    0
01236  M01S01225.comccdp +++|          CON    0
01237  M01S01226.comccdp +++| LRCE     CON    10H      X0
01238  M01S01227.comccdp +++| LRCF     CON    0
01239  M01S01228.comccdp +++|          CON    0
01240  M01S01229.comccdp +++|          CON    0
01241  M01S01230.comccdp +++|          CON    0
01242  M01S01231.comccdp +++|          CON    0
01243  M01S01232.comccdp +++|          CON    0
01244  M01S01233.comccdp +++| LRCG     CON    3L P
01245  M01S01234.comccdp +++| STL      SPACE  4,10
01246  M01S01235.comccdp +++|***       SETTL,NNNN.
01247  M01S01236.comccdp +++|*         SET CPU TIME LIMIT TO NNNN SECONDS.
01248  M01S01237.comccdp +++|
01249  M01S01238.comccdp +++|
01250  M01S01239.comccdp +++|**        STL - SET TIME LIMIT.
01251  M01S01240.comccdp +++|
01252  M01S01241.comccdp +++|
01253  M01S01242.comccdp +++| STL      BSS    0           ENTRY
01254  M01S01243.comccdp +++|          SETTL  X6          SET TIME LIMIT
01255  M01S01244.comccdp +++|          EQ     POCR        RETURN
01256  M01S01245.comccdp +++| LXR      SPACE  4,20
01257  M01S01246.comccdp +++|***       X,N.
01258  M01S01247.comccdp +++|*         LIST CONTENTS OF *X* REGISTER N.
01259  M01S01248.comccdp +++|
01260  M01S01249.comccdp +++|
01261  M01S01250.comccdp +++|***       X,N.CCCCCCCCCCCCCCCCCCCC.
01262  M01S01251.comccdp +++|*         ENTER *X* REGISTER N WITH CONTENTS CCC---CCC.
01263  M01S01252.comccdp +++|*         IF CCC---CCC CONTAINS 11 TO 20 NON-BLANK CHARACTERS,
01264  M01S01253.comccdp +++|*         IT MUST BE OCTAL.  IF CCC---CCC IS 10 OR LESS NON-BLANK
01265  M01S01254.comccdp +++|*         CHARACTERS, OCTAL BASE IS ASSUMED, HOWEVER, A POST RADIX
01266  M01S01255.comccdp +++|*         B (OCTAL) OR D (DECIMAL) MAY BE SPECIFIED, AND THE PRESENCE
01267  M01S01256.comccdp +++|*         OF AN 8 OR 9 WILL FORCE DECIMAL BASE.  WITH THE EXCEPTION
01268  M01S01257.comccdp +++|*         OF THE POST RADIX AND BLANKS, CCC---CCC MAY NOT CONTAIN
01269  M01S01258.comccdp +++|*         NON-DIGIT CHARACTERS, INCLUDING ARITHMETIC OPERATORS AND
01270  M01S01259.comccdp +++|*         SYMBOLIC VALUES.
01271  M01S01260.comccdp +++|
01272  M01S01261.comccdp +++|
01273  M01S01262.comccdp +++|**        LXR - LIST/SET *X* REGISTER CONTENTS.
01274  M01S01263.comccdp +++|
01275  M01S01264.comccdp +++|
01276  M01S01265.comccdp +++| LXR      BSS    0           ENTRY
Line S01266 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01277  M02S01266.v23l617 ---|          SX7    X6-8        CHECK ILLEGAL NUMBER
01278  M01S00011.v23l617 +++|          SX7    X6-8        CHECK INCORRECT NUMBER
01279  M01S01267.comccdp +++|          PL     X7,POCE     IF NUMBER .GT. 7
01280  M01S01268.comccdp +++|          SA6    LXRB
01281  M01S01269.comccdp +++|          SX6    X6+REGX     SET MEMORY ADDRESS
01282  M01S01270.comccdp +++|          MX0    1           DISABLE ADDRESS RANGE CHECK
01283  M01S01271.comccdp +++|          BX6    X0+X6
01284  M01S01272.comccdp +++|          SA6    ADR1
01285  M01S01273.comccdp +++|          SA6    A6+B1
01286  M01S01274.comccdp +++|          SA1    LXRA        SET RETURN CODE FOR LIST *X* REGISTER
01287  M01S01275.comccdp +++|          BX6    X1
01288  M01S01276.comccdp +++|          SA6    EMOA
01289  M01S01277.comccdp +++|          EQ     EMO1        CHECK FINAL PARAMETER
01290  M01S01278.comccdp +++|
01291  M01S01279.comccdp +++|*         LIST *X* REGISTER CONTENTS.
01292  M01S01280.comccdp +++|
01293  M01S01281.comccdp +++| LXR1     SA3    LXRB        REGISTER NUMBER
01294  M01S01282.comccdp +++|          SA2    LRCE        READ REGISTER TAG
01295  M01S01283.comccdp +++|          SB5    X3
01296  M01S01284.comccdp +++|          LX3    6*2
01297  M01S01285.comccdp +++|          SA1    REGX+B5     READ REGISTER CONTENTS
01298  M01S01286.comccdp +++|          IX6    X2+X3       FORM REGISTER NAME
01299  M01S01287.comccdp +++|          SA6    A2+B1
01300  M01S01288.comccdp +++|          RJ     OCB         CONVERT REGISTER CONTENTS
01301  M01S01289.comccdp +++|          SA1    REGX+B5     SET CHARACTER INTERPRETATION
01302  M01S01290.comccdp +++|          RJ     ZTB
01303  M01S01291.comccdp +++|          SA6    A6+B1
01304  M01S01292.comccdp +++|          MX7    0           TERMINATE LINE
01305  M01S01293.comccdp +++|          SA7    A6+1
01306  M01S01294.comccdp +++|          WRITEC O,LRCF      LIST REGISTER CONTENTS
01307  M01S01295.comccdp +++|          EQ     POCR        RETURN
01308  M01S01296.comccdp +++|
01309  M01S01297.comccdp +++|
01310  M01S01298.comccdp +++| LXRA     ZR     X4,LXR1     IF NO NON-BLANK CHARACTERS
01311  M01S01299.comccdp +++|          SX7    X4+
01312  M01S01300.comccdp +++|
01313  M01S01301.comccdp +++| LXRB     CON    0           REGISTER NUMBER
01314  M01S01302.comccdp +++|          TITLE  COMCCDP - CPU DEBUGGING PACKAGE - SUBROUTINES.
01315  M01S01303.comccdp +++| ASC      SPACE  4,35
01316  M01S01304.comccdp +++|**        ASC - ASSEMBLE CHARACTERS.
01317  M01S01305.comccdp +++|*
01318  M01S01306.comccdp +++|*         ENTRY  (A5) = ADDRESS OF WORD CONTAINING NEXT CHARACTER TO
01319  M01S01307.comccdp +++|*                       BE ASSEMBLED.
01320  M01S01308.comccdp +++|*                (X0) = NUMBER OF CHARACTERS TO ASSEMBLE.
01321  M01S01309.comccdp +++|*                (X3) = DELIMITER DISPLAY CODE OR POSITIONAL BIT
01322  M01S01310.comccdp +++|*                       TERMINATOR MASK.
01323  M01S01311.comccdp +++|*                (X5) = REMAINING CHARACTERS TO BE ASSEMBLED FROM
01324  M01S01312.comccdp +++|*                       THIS WORD, LEFT-JUSTIFIED, ZERO FILLED.
01325  M01S01313.comccdp +++|*                (B3) = NUMBER OF CHARACTERS REMAINING IN X5.
01326  M01S01314.comccdp +++|*                (B6) = LWA+1 INPUT LINE.
01327  M01S01315.comccdp +++|*                (B7) .LT. 0, IF NO CHECK FOR DELIMITER OR TERMINATOR,
01328  M01S01316.comccdp +++|*                       AND NO BLANK SUPPRESSION.
01329  M01S01317.comccdp +++|*                (B7) .EQ. 0, IF CHECK FOR DELIMITER (DISPLAY CODE
01330  M01S01318.comccdp +++|*                       DELIMITER IN X3), AND NO BLANK SUPPRESSION.
01331  M01S01319.comccdp +++|*                (B7) .GT. 0, IF CHECK FOR TERMINATOR (POSITIONAL BIT
01332  M01S01320.comccdp +++|*                       TERMINATOR MASK IN X3), AND BLANK SUPPRESSION.
01333  M01S01321.comccdp +++|*
01334  M01S01322.comccdp +++|*         EXIT   (A5) = ADDRESS OF WORD CONTAINING NEXT CHARACTER TO
01335  M01S01323.comccdp +++|*                       BE ASSEMBLED.
01336  M01S01324.comccdp +++|*                (X4) = NUMBER OF CHARACTERS ASSEMBLED.
01337  M01S01325.comccdp +++|*                (X5) = REMAINING CHARACTERS AFTER ASSEMBLY.
01338  M01S01326.comccdp +++|*                (X6) = ASSEMBLED CHARACTERS, LEFT-JUSTIFIED,
01339  M01S01327.comccdp +++|*                       ZERO FILLED.
01340  M01S01328.comccdp +++|*                (X7) = ASSEMBLED CHARACTERS, RIGHT-JUSTIFIED,
01341  M01S01329.comccdp +++|*                       ZERO FILLED.
01342  M01S01330.comccdp +++|*                (B3) = NUMBER OF CHARACTERS REMAINING IN X5.
01343  M01S01331.comccdp +++|*                (B6) .LT. 0, IF END OF LINE, FINAL DELIMITER, OR
01344  M01S01332.comccdp +++|*                       TERMINATOR ENCOUNTERED, OTHERWISE UNCHANGED.
01345  M01S01333.comccdp +++|*
01346  M01S01334.comccdp +++|*         USES   A - 1, 5, 6.
01347  M01S01335.comccdp +++|*                B - 2, 3, 6.
01348  M01S01336.comccdp +++|*                X - 0, 1, 2, 4, 5, 6, 7.
01349  M01S01337.comccdp +++|
01350  M01S01338.comccdp +++|
01351  M01S01339.comccdp +++| ASC5     SB6    -1
01352  M01S01340.comccdp +++| ASC6     SA1    ASCA
01353  M01S01341.comccdp +++|          SX2    6
01354  M01S01342.comccdp +++|          IX4    X1-X0
01355  M01S01343.comccdp +++|          IX1    X4*X2
01356  M01S01344.comccdp +++|          BX1    -X1
01357  M01S01345.comccdp +++|          SB2    X1+60
01358  M01S01346.comccdp +++|          LX6    X7,B2
01359  M01S01347.comccdp +++|
01360  M01S01348.comccdp +++| ASC      SUBR               ENTRY/EXIT
01361  M01S01349.comccdp +++|          MX4    -6
01362  M01S01350.comccdp +++|          SX6    X0+
01363  M01S01351.comccdp +++|          BX7    X7-X7
01364  M01S01352.comccdp +++|          SA6    ASCA
01365  M01S01353.comccdp +++|          ZR     X5,ASC4     IF NO MORE CHARACTERS IN THIS WORD
01366  M01S01354.comccdp +++| ASC1     ZR     X0,ASC6     IF ASSEMBLY COMPLETE
01367  M01S01355.comccdp +++|          LX5    6
01368  M01S01356.comccdp +++|          BX2    -X4*X5
01369  M01S01357.comccdp +++|          BX5    X5-X2
01370  M01S01358.comccdp +++|          SB3    B3-B1
01371  M01S01359.comccdp +++|          LT     B7,ASC3     IF NO CHECK FOR DELIMITER/TERMINATOR
01372  M01S01360.comccdp +++|          NZ     B7,ASC2     IF POSITIONAL BIT TERMINATOR MASK
01373  M01S01361.comccdp +++|          IX1    X2-X3
01374  M01S01362.comccdp +++|          NZ     X1,ASC3     IF NOT FINAL DELIMITER
01375  M01S01363.comccdp +++|          EQ     ASC5        SET EXIT CONDITIONS
01376  M01S01364.comccdp +++|
01377  M01S01365.comccdp +++| ASC2     SX1    X2-1R
01378  M01S01366.comccdp +++|          ZR     X1,ASC4     IF BLANK
01379  M01S01367.comccdp +++|          SB2    X2
01380  M01S01368.comccdp +++|          LX1    X3,B2
01381  M01S01369.comccdp +++|          NG     X1,ASC5     IF TERMINATOR ENCOUNTERED
01382  M01S01370.comccdp +++| ASC3     LX7    6
01383  M01S01371.comccdp +++|          BX7    X7+X2
01384  M01S01372.comccdp +++|          SX0    X0-1
01385  M01S01373.comccdp +++| ASC4     NZ     X5,ASC1     IF WORD NOT EXHAUSTED
01386  M01S01374.comccdp +++|          SB2    A5+B1
01387  M01S01375.comccdp +++|          SA1    B2
01388  M01S01376.comccdp +++|          EQ     B2,B6,ASC5  IF END OF LINE
01389  M01S01377.comccdp +++|          ZR     X1,ASC5     IF END OF LINE
01390  M01S01378.comccdp +++|          NZ     B3,ASC1     IF ZERO CHARACTER TO PACK
01391  M01S01379.comccdp +++|          SB3    10
01392  M01S01380.comccdp +++|          SA5    B2
01393  M01S01381.comccdp +++|          EQ     ASC1        CONTINUE CHARACTER ASSEMBLY
01394  M01S01382.comccdp +++|
01395  M01S01383.comccdp +++|
01396  M01S01384.comccdp +++|ASCA      CON    0           NUMBER OF CHARACTERS TO ASSEMBLE
01397  M01S01385.comccdp +++| BST      SPACE  4,20
01398  M01S01386.comccdp +++|**        BST - BINARY SEARCH TABLE.
01399  M01S01387.comccdp +++|*
01400  M01S01388.comccdp +++|*         ENTRY  (X1)= CRITERION.
01401  M01S01389.comccdp +++|*                (X2)= MASK.
01402  M01S01390.comccdp +++|*                (B2)= FWA OF TABLE.
01403  M01S01391.comccdp +++|*                (B3)= LENGTH OF TABLE.
01404  M01S01392.comccdp +++|*
01405  M01S01393.comccdp +++|*         EXIT   (X1)= CRITERION.
01406  M01S01394.comccdp +++|*                (X2)= MASK.
01407  M01S01395.comccdp +++|*                (X3)= 0 IF ENTRY NOT FOUND.
01408  M01S01396.comccdp +++|*                    = ENTRY IF FOUND.
01409  M01S01397.comccdp +++|*                (A3)= ADDRESS OF FOUND ENTRY.
01410  M01S01398.comccdp +++|*
01411  M01S01399.comccdp +++|*         USES   A - 3.
01412  M01S01400.comccdp +++|*                B - 2, 3.
01413  M01S01401.comccdp +++|*                X - 3, 4, 6.
01414  M01S01402.comccdp +++|
01415  M01S01403.comccdp +++|
01416  M01S01404.comccdp +++| BST3     SX3    0           RETURN *NOT FOUND*
01417  M01S01405.comccdp +++|
01418  M01S01406.comccdp +++| BST      SUBR               ENTRY/EXIT
01419  M01S01407.comccdp +++|          SB3    B2+B3       SET LWA+1 OF TABLE
01420  M01S01408.comccdp +++|          SX3    B0
01421  M01S01409.comccdp +++|          EQ     BST2        ENTER LOOP
01422  M01S01410.comccdp +++|
01423  M01S01411.comccdp +++| BST1     SB2    A3+         SET NEW LOW LIMIT
01424  M01S01412.comccdp +++| BST2     SX4    B3-B2       FIND MIDDLE
01425  M01S01413.comccdp +++|          AX4    1
01426  M01S01414.comccdp +++|          SA3    X4+B2       READ ENTRY
01427  M01S01415.comccdp +++|          BX6    X2*X3       MASK ENTRY
01428  M01S01416.comccdp +++|          IX6    X6-X1       COMPARE ENTRY WITH CRITERION
01429  M01S01417.comccdp +++|          ZR     X6,BSTX     IF ENTRY FOUND
01430  M01S01418.comccdp +++|          ZR     X4,BST3     IF TABLE EXHAUSTED
01431  M01S01419.comccdp +++|          NG     X6,BST1     IF ENTRY .LT. CRITERION
01432  M01S01420.comccdp +++|          SB3    A3          SET UPPER LIMIT
01433  M01S01421.comccdp +++|          EQ     BST2        CONTINUE SEARCH
01434  M01S01422.comccdp +++| CAD      SPACE  4,20
01435  M01S01423.comccdp +++|**        CAD - CONVERT ADDRESS.
01436  M01S01424.comccdp +++|*
01437  M01S01425.comccdp +++|*         ENTRY  (B1)= 1.
01438  M01S01426.comccdp +++|*                (A5)= FWA OF UNPACKED ARGUMENT.
01439  M01S01427.comccdp +++|*                (X5)= ((A5)).
01440  M01S01428.comccdp +++|*
01441  M01S01429.comccdp +++|*         EXIT   (B7)= CONVERSION.
01442  M01S01430.comccdp +++|*                (A5)= LWA OF UNPACKED ARGUMENT.
01443  M01S01431.comccdp +++|*                (B4)= 0 IF NOT A COMPOUND ARGUMENT.
01444  M01S01432.comccdp +++|*                (NARG) ADVANCED BY ONE.
01445  M01S01433.comccdp +++|*
01446  M01S01434.comccdp +++|*         USES   A - 1, 2, 3, 5, 6, 7.
01447  M01S01435.comccdp +++|*                B - 2, 3, 4, 7.
01448  M01S01436.comccdp +++|*                X - 0, 1, 2, 3, 5, 6, 7.
01449  M01S01437.comccdp +++|*
01450  M01S01438.comccdp +++|*         CALLS  DXB, SST.
01451  M01S01439.comccdp +++|
01452  M01S01440.comccdp +++|
01453  M01S01441.comccdp +++| CAD      SUBR               ENTRY/EXIT
01454  M01S01442.comccdp +++|          MX0    -6          EXTRACT SEPARATOR
01455  M01S01443.comccdp +++|          BX6    -X0*X5
01456  M01S01444.comccdp +++|          SB7    0           ASSUME OCTAL
01457  M01S01445.comccdp +++|          SA6    CADA
01458  M01S01446.comccdp +++|          RJ     DXB         CHECK FIRST SUB-ARGUMENT NUMERIC
01459  M01S01447.comccdp +++|          ZR     X4,CAD1     IF NUMERIC
01460  M01S01448.comccdp +++|          SA1    A5+         CHECK SYMBOL IN TABLE
01461  M01S01449.comccdp +++|          RJ     SST
01462  M01S01450.comccdp +++|          NZ     X6,POCE     IF NOT IN TABLE
01463  M01S01451.comccdp +++|          SX6    X2+         VALUE OF SYMBOL
01464  M01S01452.comccdp +++| CAD1     SA1    CADA        CHECK OPERATOR PRESENT
01465  M01S01453.comccdp +++|          SA6    CADB        STORE FIRST VALUE
01466  M01S01454.comccdp +++|          SB2    X1-1R+
01467  M01S01455.comccdp +++|          SB3    X1-1R-
01468  M01S01456.comccdp +++|          ZR     B2,CAD2     IF +
01469  M01S01457.comccdp +++|          NZ     B3,CAD4     IF NOT -
01470  M01S01458.comccdp +++| CAD2     SA5    A5+1        READ SECOND SUB-ARGUMENT
01471  M01S01459.comccdp +++|          RJ     DXB         CHECK SECOND SUB-ARGUMENT NUMERIC
01472  M01S01460.comccdp +++|          ZR     X4,CAD3     IF NUMERIC
01473  M01S01461.comccdp +++|          SA1    A5+         CHECK SYMBOL IN TABLE
01474  M01S01462.comccdp +++|          RJ     SST
01475  M01S01463.comccdp +++|          NZ     X6,POCE     IF NOT IN TABLE
01476  M01S01464.comccdp +++|          SX6    X2+         VALUE OF SYMBOL
01477  M01S01465.comccdp +++| CAD3     SA6    CADC        STORE VALUE OF SECOND SUB-ARGUMENT
01478  M01S01466.comccdp +++| CAD4     SA1    CADA        COMPUTE FINAL VALUE
01479  M01S01467.comccdp +++|          SA2    A1+B1
01480  M01S01468.comccdp +++|          SA3    A2+B1
01481  M01S01469.comccdp +++|          SB2    X1-1R+
01482  M01S01470.comccdp +++|          SB3    X1-1R-
01483  M01S01471.comccdp +++|          SB4    1
01484  M01S01472.comccdp +++|          ZR     B2,CAD6     IF +
01485  M01S01473.comccdp +++|          ZR     B3,CAD5     IF -
01486  M01S01474.comccdp +++|          BX3    X3-X3
01487  M01S01475.comccdp +++|          SB4    B0
01488  M01S01476.comccdp +++|          EQ     CAD6        RETURN SIMPLE ARGUMENT
01489  M01S01477.comccdp +++|
01490  M01S01478.comccdp +++| CAD5     BX3    -X3
01491  M01S01479.comccdp +++| CAD6     IX6    X2+X3
01492  M01S01480.comccdp +++|          SA1    NARG        ADVANCE NUMBER OF ARGUMENTS
01493  M01S01481.comccdp +++|          SB7    X6
01494  M01S01482.comccdp +++|          SX7    X1+B1
01495  M01S01483.comccdp +++|          SA7    A1
01496  M01S01484.comccdp +++|          EQ     CADX        RETURN
01497  M01S01485.comccdp +++|
01498  M01S01486.comccdp +++|
01499  M01S01487.comccdp +++| CADA     CON    0           OPERATOR
01500  M01S01488.comccdp +++| CADB     CON    0           OPERAND 1
01501  M01S01489.comccdp +++| CADC     CON    0           OPERAND 2
01502  M01S01490.comccdp +++| CCA      SPACE  4,15
01503  M01S01491.comccdp +++|**        CCA - CHECK FOR COMPOUND ARGUMENT.
01504  M01S01492.comccdp +++|*
01505  M01S01493.comccdp +++|*         ENTRY  (A1) = PREVIOUS ARGUMENT ADDRESS.
01506  M01S01494.comccdp +++|*                (B2) = REMAINING ARGUMENT COUNT.
01507  M01S01495.comccdp +++|*                (B3) = CUMMULATIVE SINGLE/COMPOUND ARGUMENT COUNT.
01508  M01S01496.comccdp +++|*
01509  M01S01497.comccdp +++|*         EXIT   (A1) = UPDATED ARGUMENT ADDRESS.
01510  M01S01498.comccdp +++|*                (B2) = UPDATED REMAINING ARGUMENT COUNT.
01511  M01S01499.comccdp +++|*                (B3) = UPDATED SINGLE/COMPOUND ARGUMENT COUNT.
Line S01500 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01512  M02S01500.v23l617 ---|*                (B6) .NE. 0, IF ILLEGAL SEPARATOR ENCOUNTERED.
01513  M01S00012.v23l617 +++|*                (B6) .NE. 0, IF INCORRECT SEPARATOR ENCOUNTERED.
01514  M01S01501.comccdp +++|*                (X6) .NE. 0, IF COMPOUND ARGUMENT PROCESSED.
01515  M01S01502.comccdp +++|*
01516  M01S01503.comccdp +++|*         USES   A - 1.
01517  M01S01504.comccdp +++|*                B - 2, 3, 5, 6.
01518  M01S01505.comccdp +++|*                X - 1, 6.
01519  M01S01506.comccdp +++|
01520  M01S01507.comccdp +++|
01521  M01S01508.comccdp +++| CCA      SUBR               ENTRY/EXIT
01522  M01S01509.comccdp +++|          SB6    B0
01523  M01S01510.comccdp +++|          BX6    X6-X6
01524  M01S01511.comccdp +++|          ZR     B2,CCAX     IF NO MORE ARGUMENTS
01525  M01S01512.comccdp +++|          SA1    A1+B1
01526  M01S01513.comccdp +++|          SB3    B3+B1
01527  M01S01514.comccdp +++|          SB5    X1-1R+
01528  M01S01515.comccdp +++|          SB2    B2-1
01529  M01S01516.comccdp +++|          ZR     B5,CCA1     IF + SEPARATES COMPOUND ARGUMENT
01530  M01S01517.comccdp +++|          SB5    X1-1R-
01531  M01S01518.comccdp +++|          NZ     B5,CCAX     IF NOT COMPOUND ARGUMENT
01532  M01S01519.comccdp +++| CCA1     SA1    A1+B1
01533  M01S01520.comccdp +++|          SB2    B2-B1
01534  M01S01521.comccdp +++|          SB5    X1-1R+
01535  M01S01522.comccdp +++|          SX6    B1+
Line S01523 Modification History
M01 (Added by) comccdp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01536  M02S01523.v23l617 ---|          ZR     B5,CCA2     IF ILLEGAL SEPARATOR
01537  M01S00013.v23l617 +++|          ZR     B5,CCA2     IF INCORRECT SEPARATOR
01538  M01S01524.comccdp +++|          SB5    X1-1R-
01539  M01S01525.comccdp +++|          NZ     B5,CCAX     IF LEGAL SEPARATOR
01540  M01S01526.comccdp +++| CCA2     SB6    B1
01541  M01S01527.comccdp +++|          EQ     CCAX        RETURN
01542  M01S01528.comccdp +++| FEC      SPACE  4,15
01543  M01S01529.comccdp +++|**        FEC - FIND END OF COMMAND.
01544  M01S01530.comccdp +++|*
01545  M01S01531.comccdp +++|*         ENTRY  (A5)= ADDRESS OF COMMAND.
01546  M01S01532.comccdp +++|*                (X5)= ((A5)).
01547  M01S01533.comccdp +++|*                (X3)= TERMINATOR MASK WORD.
01548  M01S01534.comccdp +++|*
01549  M01S01535.comccdp +++|*         EXIT   (A5)= ADDRESS OF WORD CONTAINING FIRST CHARACTER AFTER
01550  M01S01536.comccdp +++|*                      TERMINATOR.
01551  M01S01537.comccdp +++|*                (X5) = REMAINING CHARACTERS AFTER TERMINATOR, LEFT-
01552  M01S01538.comccdp +++|*                       JUSTIFIED, ZERO FILLED.
01553  M01S01539.comccdp +++|*                (B3) = NUMBER OF CHARACTERS REMAINING IN X5.
01554  M01S01540.comccdp +++|*
01555  M01S01541.comccdp +++|*         USES   A - 5.
01556  M01S01542.comccdp +++|*                B - 2, 3.
01557  M01S01543.comccdp +++|*                X - 0, 2, 5, 7.
01558  M01S01544.comccdp +++|
01559  M01S01545.comccdp +++|
01560  M01S01546.comccdp +++| FEC      SUBR               ENTRY/EXIT
01561  M01S01547.comccdp +++|          MX0    -6
01562  M01S01548.comccdp +++|          SB3    10
01563  M01S01549.comccdp +++| FEC1     LX5    6           NEXT CHARACTER
01564  M01S01550.comccdp +++|          BX7    -X0*X5      PICK 1 CHARACTER
01565  M01S01551.comccdp +++|          SB3    B3-B1
01566  M01S01552.comccdp +++|          BX5    X5-X7
01567  M01S01553.comccdp +++|          SB2    X7
01568  M01S01554.comccdp +++|          LX2    X3,B2       CHECK FOR TERMINATOR
01569  M01S01555.comccdp +++|          GT     B3,FEC2     IF WORD NOT EXHAUSTED
01570  M01S01556.comccdp +++|          SA5    A5+1        READ NEXT BUF WORD
01571  M01S01557.comccdp +++|          SB3    10
01572  M01S01558.comccdp +++| FEC2     PL     X2,FEC1     IF NOT TERMINATOR
01573  M01S01559.comccdp +++|          EQ     FECX        RETURN
01574  M01S01560.comccdp +++| IBP      SPACE  4,10
01575  M01S01561.comccdp +++|**        IBP - INSERT BREAKPOINT INSTRUCTION.
01576  M01S01562.comccdp +++|*
01577  M01S01563.comccdp +++|*         ENTRY  (IBPA)= NEXT BREAKPOINT ADDRESS.
01578  M01S01564.comccdp +++|*                (IBPA)= 0 IF NO BREAKPOINT NEXT.
01579  M01S01565.comccdp +++|*
01580  M01S01566.comccdp +++|*         EXIT   (WORD SPECIFIED IN IBPA)= *RJ CDP 0000000000*
01581  M01S01567.comccdp +++|*                (RPBA)= ORIGINAL CONTENTS OF BREAKPOINT WORD.
01582  M01S01568.comccdp +++|*
01583  M01S01569.comccdp +++|*         USES   A - 1, 2, 3, 6, 7.
01584  M01S01570.comccdp +++|*                X - 1, 2, 3, 6, 7.
01585  M01S01571.comccdp +++|
01586  M01S01572.comccdp +++|
01587  M01S01573.comccdp +++| IBP      SUBR               ENTRY/EXIT
01588  M01S01574.comccdp +++|          SA1    IBPA
01589  M01S01575.comccdp +++|          ZR     X1,IBPX     IF NO ADDRESS SET
01590  M01S01576.comccdp +++|          SA2    IBPB        READ INSTRUCTION
01591  M01S01577.comccdp +++|          SA3    X1          READ CURRENT CONTENTS OF WORD
01592  M01S01578.comccdp +++|          BX6    X2
01593  M01S01579.comccdp +++|          LX7    X3
01594  M01S01580.comccdp +++|          SA6    X1          STORE INSTRUCTION
01595  M01S01581.comccdp +++|          SA7    RPBA        SAVE CONTENTS
01596  M01S01582.comccdp +++|          EQ     IBPX        RETURN
01597  M01S01583.comccdp +++|
01598  M01S01584.comccdp +++|
01599  M01S01585.comccdp +++| IBPA     CON    0           NEXT BREAKPOINT ADDRESS
01600  M01S01586.comccdp +++| IBPB     RJ     CDP         BREAKPOINT INSTRUCTION
01601  M01S01587.comccdp +++|-         VFD    30/0
01602  M01S01588.comccdp +++| LCL      SPACE  4,10
01603  M01S01589.comccdp +++|**        LCL - LIST CURRENT LOCATION.
01604  M01S01590.comccdp +++|*
01605  M01S01591.comccdp +++|*         ENTRY  (SVRP)= CURRENT PROGRAM ADDRESS.
01606  M01S01592.comccdp +++|*
01607  M01S01593.comccdp +++|*         USES   A - 1, 6.
01608  M01S01594.comccdp +++|*                X - 0, 1, 6.
01609  M01S01595.comccdp +++|*
01610  M01S01596.comccdp +++|*         CALLS  COD.
01611  M01S01597.comccdp +++|*
01612  M01S01598.comccdp +++|*         MACROS WRITEC.
01613  M01S01599.comccdp +++|
01614  M01S01600.comccdp +++|
01615  M01S01601.comccdp +++| LCL      SUBR               ENTRY/EXIT
01616  M01S01602.comccdp +++|          SA1    REGP        READ *P* REGISTER
01617  M01S01603.comccdp +++|          RJ     COD         CONVERT TO DISPLAY CODE
01618  M01S01604.comccdp +++|          SA1    LCLA        *BK *
01619  M01S01605.comccdp +++|          MX0    3*6
01620  M01S01606.comccdp +++|          BX6    -X0*X6
01621  M01S01607.comccdp +++|          BX6    X1+X6       FORM *BP NNNNNN*
01622  M01S01608.comccdp +++|          SA6    LCLB
01623  M01S01609.comccdp +++|          WRITEC O,A6        LIST ADDRESS
01624  M01S01610.comccdp +++|          EQ     LCLX        RETURN
01625  M01S01611.comccdp +++|
01626  M01S01612.comccdp +++|
01627  M01S01613.comccdp +++| LCLA     CON    3L BK
01628  M01S01614.comccdp +++| LCLB     CON    0
01629  M01S01615.comccdp +++| LCLC     CON    0
01630  M01S01616.comccdp +++| OCB      SPACE  4,15
01631  M01S01617.comccdp +++|**        OCB - CONVERT OCTAL BY BYTES.
01632  M01S01618.comccdp +++|*
01633  M01S01619.comccdp +++|*         ENTRY  (X1) = WORD TO CONVERT.
01634  M01S01620.comccdp +++|*                (A6) = BUFFER ADDRESS.
01635  M01S01621.comccdp +++|*
01636  M01S01622.comccdp +++|*         EXIT   (A6) = BUFFER ADDRESS ADVANCED.
01637  M01S01623.comccdp +++|*
01638  M01S01624.comccdp +++|*         USES   A - 1, 6, 7.
01639  M01S01625.comccdp +++|*                X - ALL.
01640  M01S01626.comccdp +++|*
01641  M01S01627.comccdp +++|*         CALLS  WOD.
01642  M01S01628.comccdp +++|
01643  M01S01629.comccdp +++|
01644  M01S01630.comccdp +++| OCB      SUBR               ENTRY/EXIT
01645  M01S01631.comccdp +++|          RJ     WOD         CONVERT WORD (ABCDEFGHIJ KLMNOPQRST)
01646  M01S01632.comccdp +++|          SA1    OCBA
01647  M01S01633.comccdp +++|          MX2    -2*6
01648  M01S01634.comccdp +++|          BX5    -X2*X6      ........IJ
01649  M01S01635.comccdp +++|          MX0    4*6
01650  M01S01636.comccdp +++|          BX3    X0*X6       ABCD......
01651  M01S01637.comccdp +++|          LX0    -4*6
01652  M01S01638.comccdp +++|          IX4    X1+X3       ABCD*....*
01653  M01S01639.comccdp +++|          BX2    X0*X6
01654  M01S01640.comccdp +++|          LX2    -6          .....EFGH.
01655  M01S01641.comccdp +++|          BX6    X4+X2       ABCD*EFGH*
01656  M01S01642.comccdp +++|          LX7    -4*6        QRSTKLMNOP
01657  M01S01643.comccdp +++|          SA6    A6+B1
01658  M01S01644.comccdp +++|          MX0    4*6
01659  M01S01645.comccdp +++|          BX6    X0*X7       QRST......
01660  M01S01646.comccdp +++|          LX5    8*6         IJ........
01661  M01S01647.comccdp +++|          BX7    -X0*X7      ....KLMNOP
01662  M01S01648.comccdp +++|          LX7    2*6         ..KLMONP..
01663  M01S01649.comccdp +++|          IX2    X5+X7       IJKLMNOP..
01664  M01S01650.comccdp +++|          BX3    X0*X2       IJKL......
01665  M01S01651.comccdp +++|          LX0    -4*6
01666  M01S01652.comccdp +++|          IX4    X1+X3       IJKL*....*
01667  M01S01653.comccdp +++|          BX5    X0*X2       ....MNOP..
01668  M01S01654.comccdp +++|          SA1    A1+B1       ....******
01669  M01S01655.comccdp +++|          LX5    -6          .....MNOP.
01670  M01S01656.comccdp +++|          IX7    X4+X5       IJKL*MNOP*
01671  M01S01657.comccdp +++|          BX6    X1+X6       QRST******
01672  M01S01658.comccdp +++|          SA7    A6+B1
01673  M01S01659.comccdp +++|          SA6    A7+B1
01674  M01S01660.comccdp +++|          EQ     OCBX        RETURN
01675  M01S01661.comccdp +++|
01676  M01S01662.comccdp +++|
01677  M01S01663.comccdp +++| OCBA     VFD    24/0,6/1R ,24/0,6/1R
01678  M01S01664.comccdp +++|          VFD    24/0,36/6H
01679  M01S01665.comccdp +++| RFP      SPACE  4,10
01680  M01S01666.comccdp +++|**        RFP - RESTORE FET POINTER WORD.
01681  M01S01667.comccdp +++|*
01682  M01S01668.comccdp +++|*         ENTRY  (SFPA)= PREVIOUS CONTENTS OF FET POINTER WORD.
01683  M01S01669.comccdp +++|*
01684  M01S01670.comccdp +++|*         USES   A - 1, 6.
01685  M01S01671.comccdp +++|*                X - 1, 6.
01686  M01S01672.comccdp +++|
01687  M01S01673.comccdp +++|
01688  M01S01674.comccdp +++| RFP      SUBR               ENTRY/EXIT
01689  M01S01675.comccdp +++|          SA1    SFPA
01690  M01S01676.comccdp +++|          BX6    X1
01691  M01S01677.comccdp +++|          SA1    SFPB        GET *LIST OF FILES* ADDRESS
01692  M01S01678.comccdp +++|          SA6    X1
01693  M01S01679.comccdp +++|          EQ     RFPX        RETURN
01694  M01S01680.comccdp +++| RPB      SPACE  4,10
01695  M01S01681.comccdp +++|**        RPB - RESTORE PREVIOUS BREAKPOINT.
01696  M01S01682.comccdp +++|*
01697  M01S01683.comccdp +++|*         ENTRY  (SVRP)= ADDRESS OF PROGRAM BREAKPOINT.
01698  M01S01684.comccdp +++|*                (RPBA)= CONTENTS OF BREAKPOINT WORD.
01699  M01S01685.comccdp +++|*
01700  M01S01686.comccdp +++|*         USES   A - 1, 2, 7.
01701  M01S01687.comccdp +++|*                X - 1, 2, 7.
01702  M01S01688.comccdp +++|
01703  M01S01689.comccdp +++|
01704  M01S01690.comccdp +++| RPB      SUBR               ENTRY/EXIT
01705  M01S01691.comccdp +++|          SA1    REGP        READ *P* REGISTER
01706  M01S01692.comccdp +++|          SA2    RPBA        READ PREVIOUS CONTENTS OF WORD
01707  M01S01693.comccdp +++|          BX7    X2
01708  M01S01694.comccdp +++|          SA7    X1          RESTORE WORD
01709  M01S01695.comccdp +++|          EQ     RPBX        RETURN
01710  M01S01696.comccdp +++|
01711  M01S01697.comccdp +++|
01712  M01S01698.comccdp +++| RPBA     CON    0           CONTENTS OF BREAKPOINT WORD
01713  M01S01699.comccdp +++| RSR      SPACE  4,10
01714  M01S01700.comccdp +++|**        RSR - RESTORE ALL REGISTERS.
01715  M01S01701.comccdp +++|*
01716  M01S01702.comccdp +++|*         ENTRY  (SVRA-SVRX+7) = PREVIOUS REGISTER CONTENTS.
01717  M01S01703.comccdp +++|*
01718  M01S01704.comccdp +++|*         EXIT   ALL REGISTERS RESET TO ORIGINAL VALUE AS BEFORE
01719  M01S01705.comccdp +++|*                BREAKPOINT.
01720  M01S01706.comccdp +++|
01721  M01S01707.comccdp +++|
01722  M01S01708.comccdp +++| RSR      SUBR               ENTRY/EXIT
01723  M01S01709.comccdp +++|          MX0    18
01724  M01S01710.comccdp +++|          SA5    REGX+5      X5
01725  M01S01711.comccdp +++|          SB2    B0
01726  M01S01712.comccdp +++|          SA2    RSRA
01727  M01S01713.comccdp +++|          SX1    74B
01728  M01S01714.comccdp +++|          BX7    -X1*X2      PRESET TO CORRECT SHIFT COUNT
01729  M01S01715.comccdp +++|          PL     X5,RSR1     IF (X5) POSITIVE
01730  M01S01716.comccdp +++|          BX7    X7+X1
01731  M01S01717.comccdp +++| RSR1     SB4    8
01732  M01S01718.comccdp +++|          SB1    1
01733  M01S01719.comccdp +++|          LX0    33
01734  M01S01720.comccdp +++|          SB3    B4-B1
01735  M01S01721.comccdp +++|          SB4    B4+B3
01736  M01S01722.comccdp +++|          MX4    0
01737  M01S01723.comccdp +++| RSR2     SA2    A2+B1
01738  M01S01724.comccdp +++|          SA1    REGB+1+B2
01739  M01S01725.comccdp +++|          IX6    X7+X4
01740  M01S01726.comccdp +++|          BX4    -X0*X2
01741  M01S01727.comccdp +++|          LX3    X1,B4
01742  M01S01728.comccdp +++|          SB2    B2+B1
01743  M01S01729.comccdp +++|          SA6    A2-B1
01744  M01S01730.comccdp +++|          BX7    X0*X3
01745  M01S01731.comccdp +++|          NE     B2,B3,RSR2  IF MORE INSTRUCTIONS TO MODIFY
01746  M01S01732.comccdp +++|          LX0    15
01747  M01S01733.comccdp +++|          SA3    REGX        X0
01748  M01S01734.comccdp +++|          UX5    X5,B6
01749  M01S01735.comccdp +++|          BX4    -X0*X2
01750  M01S01736.comccdp +++|          LX7    15
01751  M01S01737.comccdp +++|          SA1    A1+B1       A0
01752  M01S01738.comccdp +++|          IX6    X7+X4
01753  M01S01739.comccdp +++|          MX4    60
01754  M01S01740.comccdp +++|          BX0    X3          X0
01755  M01S01741.comccdp +++|          LX5    11
01756  M01S01742.comccdp +++|          SB7    X4+777777B  B7=-0
01757  M01S01743.comccdp +++|          SA0    X1+B7       A0
01758  M01S01744.comccdp +++|          UX5    X5,B5
01759  M01S01745.comccdp +++|          SA1    REGA+6      A6
01760  M01S01746.comccdp +++|          SA6    A2
01761  M01S01747.comccdp +++|          LX5    11
01762  M01S01748.comccdp +++|          SA2    A1+B1       A7
01763  M01S01749.comccdp +++|          SA3    X1+B7
01764  M01S01750.comccdp +++|          SA4    X2+B7
01765  M01S01751.comccdp +++|          BX6    X3
01766  M01S01752.comccdp +++|          SA3    REGA+1      A1
01767  M01S01753.comccdp +++|          BX7    X4
01768  M01S01754.comccdp +++|          SA6    X1+B7       A6
01769  M01S01755.comccdp +++|          UX5    X5,B4
01770  M01S01756.comccdp +++|          SA7    X2+B7       A7
01771  M01S01757.comccdp +++|          LX5    11
01772  M01S01758.comccdp +++|          SA2    REGX+6      X6
01773  M01S01759.comccdp +++|          SA1    X3+B7       A1
01774  M01S01760.comccdp +++|          BX6    X2          X6
01775  M01S01761.comccdp +++|          UX5    X5,B3
01776  M01S01762.comccdp +++|          SA3    REGX+7      X7
01777  M01S01763.comccdp +++|          SA4    REGX+1      X1
01778  M01S01764.comccdp +++|          LX5    11
01779  M01S01765.comccdp +++|          BX7    X3          X7
01780  M01S01766.comccdp +++|          SA2    REGA+2      A2
01781  M01S01767.comccdp +++|          UX5    X5,B2
01782  M01S01768.comccdp +++|          BX1    X4          X1
01783  M01S01769.comccdp +++|          SA3    REGX+2      X2
01784  M01S01770.comccdp +++|          LX5    11
01785  M01S01771.comccdp +++|          SA2    X2+B7       A2
01786  M01S01772.comccdp +++|          SA4    REGA+3      A3
01787  M01S01773.comccdp +++|          UX5    X5,B1
01788  M01S01774.comccdp +++|          BX2    X3          X2
01789  M01S01775.comccdp +++|          SA3    X4+B7       A3
01790  M01S01776.comccdp +++|          SA5    REGX+3      X3
01791  M01S01777.comccdp +++|          NO
01792  M01S01778.comccdp +++|          SA4    REGA+4      A4
01793  M01S01779.comccdp +++|          BX3    X5          X3
01794  M01S01780.comccdp +++|          SA5    REGX+4      X4
01795  M01S01781.comccdp +++|          SA4    X4+B7       A4
01796  M01S01782.comccdp +++|          NO
01797  M01S01783.comccdp +++|          BX4    X5          X4
01798  M01S01784.comccdp +++|          SA5    REGA+5      A5
Line S01785 Modification History
M01 (Added by) comccdp
M02 (Updated by) ns2336
Seq #  *Modification Id* Act 
----------------------------+
01799  M02S01785.ns2336  ---| RSRA     SA5    X5+B7       A5
01800  M01S00001.ns2336  +++|          JP     RSR3        PURGE STACK BEFORE CONTINUING
01801  M01S00002.ns2336  +++| RSR3     SA5    X5+B7       A5
01802  M01S00003.ns2336  +++| RSRA     EQU    *           CODE MODIFIED FROM HERE TO EXIT
01803  M01S01786.comccdp +++|          NO
01804  M01S01787.comccdp +++|          NO
01805  M01S00004.ns2336  +++|          ERRNZ  $-14        ASSUMES MASK IN LOWER 15 BITS
01806  M01S01788.comccdp +++|          MX5    0
01807  M01S01789.comccdp +++|+         PX5    X5,B1       RESTORE B1-B7 AND X5
01808  M01S01790.comccdp +++|          SB1    B7+0
01809  M01S01791.comccdp +++|          LX5    49
01810  M01S01792.comccdp +++|+         PX5    X5,B2
01811  M01S01793.comccdp +++|          SB2    B7+0
01812  M01S01794.comccdp +++|          LX5    49
01813  M01S01795.comccdp +++|+         PX5    X5,B3
01814  M01S01796.comccdp +++|          SB3    B7+0
01815  M01S01797.comccdp +++|          LX5    49
01816  M01S01798.comccdp +++|+         PX5    X5,B4
01817  M01S01799.comccdp +++|          SB4    B7+0
01818  M01S01800.comccdp +++|          LX5    49
01819  M01S01801.comccdp +++|+         PX5    X5,B5
01820  M01S01802.comccdp +++|          SB5    B7+0
01821  M01S01803.comccdp +++|          LX5    49
01822  M01S01804.comccdp +++|+         PX5    X5,B6
01823  M01S01805.comccdp +++|          SB6    B7+0
01824  M01S01806.comccdp +++|          SB7    B7+0
01825  M01S01807.comccdp +++|          EQ     RSRX        RETURN
01826  M01S01808.comccdp +++| SAD      SPACE  4,20
01827  M01S01809.comccdp +++|**        SAD - SET ADDRESSES.
01828  M01S01810.comccdp +++|*
01829  M01S01811.comccdp +++|*         ENTRY  (B4)= NUMBER OF COMMAND ARGUMENTS.
01830  M01S01812.comccdp +++|*                (UOC+1 - UOC+2)= ADDRESS ARGUMENTS FROM COMMAND.
01831  M01S01813.comccdp +++|*                (B1)= 1.
01832  M01S01814.comccdp +++|*                (X6) = ADDRESS VALIDATION FLAGS, LEFT-JUSTIFIED.
01833  M01S01815.comccdp +++|*
01834  M01S01816.comccdp +++|*         EXIT   (ADR1)= FIRST ADDRESS.
01835  M01S01817.comccdp +++|*                (ADR2)= SECOND ADDRESS.
01836  M01S01818.comccdp +++|*                (X6)= FIRST ADDRESS.
01837  M01S01819.comccdp +++|*                (B5)= SECOND ADDRESS.
01838  M01S01820.comccdp +++|*                (B4)= NUMBER OF COMMAND ARGUMENTS.
01839  M01S01821.comccdp +++|*
01840  M01S01822.comccdp +++|*         USES   A - 1, 2, 3, 5, 6, 7.
01841  M01S01823.comccdp +++|*                B - 4, 5.
01842  M01S01824.comccdp +++|*                X - 0, 1, 2, 3, 5, 6, 7.
01843  M01S01825.comccdp +++|*
01844  M01S01826.comccdp +++|*         CALLS  CAD.
01845  M01S01827.comccdp +++|*
01846  M01S01828.comccdp +++|*         MACROS MEMORY, WRITEC.
01847  M01S01829.comccdp +++|
01848  M01S01830.comccdp +++|
01849  M01S01831.comccdp +++| SAD3     BX6    X6-X6       SET VALUES TO ZERO
01850  M01S01832.comccdp +++|          SA6    ADR1
01851  M01S01833.comccdp +++|          SA6    A6+B1
01852  M01S01834.comccdp +++| SAD4     SA1    ADR1        SET EXIT DATA
01853  M01S01835.comccdp +++|          SA2    ADR2
01854  M01S01836.comccdp +++|          SA3    NARG
01855  M01S01837.comccdp +++|          SX6    X1
01856  M01S01838.comccdp +++|          SB5    X2
01857  M01S01839.comccdp +++|          SB4    X3+
01858  M01S01840.comccdp +++|
01859  M01S01841.comccdp +++| SAD      SUBR               ENTRY/EXIT
01860  M01S01842.comccdp +++|          ZR     B4,SAD3     IF NO ARGUMENTS
01861  M01S01843.comccdp +++|          SA6    SADA        SAVE ADDRESS VALIDATION FLAGS
01862  M01S01844.comccdp +++|          SA5    UOC+1       CONVERT FIRST ADDRESS
01863  M01S01845.comccdp +++|          RJ     CAD
01864  M01S01846.comccdp +++|          SX6    B7          SECOND = FIRST
01865  M01S01847.comccdp +++|          SA5    A5+B1       READ NEXT ARGUMENT
01866  M01S01848.comccdp +++|          SA6    ADR1
01867  M01S01849.comccdp +++|          SA6    ADR2
01868  M01S01850.comccdp +++|          ZR     X5,SAD1     IF END OF ARGUMENTS
01869  M01S01851.comccdp +++|          RJ     CAD
01870  M01S01852.comccdp +++|          SX7    B7
01871  M01S01853.comccdp +++|          SA7    ADR2
01872  M01S01854.comccdp +++| SAD1     SA1    SADA        VALIDATION FLAGS
01873  M01S01855.comccdp +++|          PL     X1,SAD4     IF NO VALIDATION
01874  M01S01856.comccdp +++|          BX7    X7-X7       GET CURRENT FL
01875  M01S01857.comccdp +++|          LX0    X1,B1
01876  M01S01858.comccdp +++|          SA7    SADD
01877  M01S01859.comccdp +++|          MEMORY CM,A7
01878  M01S01860.comccdp +++|          SA1    ADR1
01879  M01S01861.comccdp +++|          SA2    ADR2
01880  M01S01862.comccdp +++|          SA3    SADD
01881  M01S01863.comccdp +++|          SB4    SADC
01882  M01S01864.comccdp +++|          AX3    30
01883  M01S01865.comccdp +++|          IX6    X1-X3
01884  M01S01866.comccdp +++|          PL     X6,SAD2     IF ADDRESS .GE. FL
01885  M01S01867.comccdp +++|          NG     X0,SAD4     IF VALIDATION ONLY ON FIRST PARAMETER
01886  M01S01868.comccdp +++|          IX6    X2-X3
01887  M01S01869.comccdp +++|          IX7    X2-X1
01888  M01S01870.comccdp +++|          PL     X6,SAD2     IF ADDRESS .GE. FL
01889  M01S01871.comccdp +++|          SB4    SADB
01890  M01S01872.comccdp +++|          PL     X7,SAD4     IF FWA .LE. LWA
01891  M01S01873.comccdp +++| SAD2     WRITEC O,B4        WRITE ERROR MESSAGE
01892  M01S01874.comccdp +++|          EQ     POCR        RETURN
01893  M01S01875.comccdp +++|
01894  M01S01876.comccdp +++|
01895  M01S01877.comccdp +++| SADA     CON    0
01896  M01S01878.comccdp +++| SADB     DATA   C*FWA .GT. LWA.*
01897  M01S01879.comccdp +++| SADC     DATA   C*ADDRESS OUT OF RANGE.*
01898  M01S01880.comccdp +++| SADD     CON    0
01899  M01S01881.comccdp +++| SFP      SPACE  4,15
01900  M01S01882.comccdp +++|**        SFP - SET FET POINTER FOR TERMINAL I/O.
01901  M01S01883.comccdp +++|*
01902  M01S01884.comccdp +++|*         EXIT   OUTPUT FET POINTER STORED IN RA+2 OR LIST OF FILES.
01903  M01S01885.comccdp +++|*                (SFPA) = PREVIOUS CONTENTS OF RA+2 OR LIST OF FILES.
01904  M01S01886.comccdp +++|*                (SFPB) = ADDRESS OF OUTPUT FET POINTER (RA+2 OR LIST
01905  M01S01887.comccdp +++|*                         OF FILES ADDRESS).
01906  M01S01888.comccdp +++|*
01907  M01S01889.comccdp +++|*         USES   A - 1, 2, 6, 7.
01908  M01S01890.comccdp +++|*                X - 0, 1, 2, 6, 7.
01909  M01S01891.comccdp +++|*
01910  M01S01892.comccdp +++|*         MACROS GETLOF, ROLLOUT.
01911  M01S01893.comccdp +++|
01912  M01S01894.comccdp +++|
01913  M01S01895.comccdp +++| SFP      SUBR               ENTRY/EXIT
01914  M01S01896.comccdp +++|          ROLLOUT            FORCE USER OUTPUT TO BE FLUSHED
01915  M01S01897.comccdp +++|          GETLOF SFPB        GET *LIST OF FILES* ADDRESS
01916  M01S01898.comccdp +++|          SA1    SFPB
01917  M01S01899.comccdp +++|          SA2    O           SET OUTPUT FET POINTER
01918  M01S01900.comccdp +++|          AX1    30
01919  M01S01901.comccdp +++|          NZ     X1,SFP1     IF LIST OF FILES IN EFFECT
01920  M01S01902.comccdp +++|          SX1    B1
01921  M01S01903.comccdp +++| SFP1     SX6    X1+B1
01922  M01S01904.comccdp +++|          MX0    42
01923  M01S01905.comccdp +++|          SA6    A1
01924  M01S01906.comccdp +++|          SA1    X6          SAVE ORIGINAL FET POINTER
01925  M01S01907.comccdp +++|          BX6    X1
01926  M01S01908.comccdp +++|          BX7    X0*X2
01927  M01S01909.comccdp +++|          SA6    SFPA
01928  M01S01910.comccdp +++|          SX2    A2
01929  M01S01911.comccdp +++|          BX7    X7+X2
01930  M01S01912.comccdp +++|          SA7    A1+
01931  M01S01913.comccdp +++|          EQ     SFPX        RETURN
01932  M01S01914.comccdp +++|
01933  M01S01915.comccdp +++|
01934  M01S01916.comccdp +++| SFPA     CON    0           ORIGINAL FET POINTER
01935  M01S01917.comccdp +++| SFPB     CON    0           ADDRESS OF FET POINTER
01936  M01S01918.comccdp +++| SFZ      SPACE  4,15
01937  M01S01919.comccdp +++|**        SFZ - SPACE FILL LEADING DISPLAY CODE ZEROS.
01938  M01S01920.comccdp +++|*
01939  M01S01921.comccdp +++|*         ENTRY  (X7) = DISPLAY CODE NUMBER, RIGHT-JUSTIFIED, DISPLAY
01940  M01S01922.comccdp +++|*                       CODE ZERO FILLED.
01941  M01S01923.comccdp +++|*
01942  M01S01924.comccdp +++|*         EXIT   (X7) = DISPLAY CODE NUMBER, RIGHT JUSTIFIED, BLANK
01943  M01S01925.comccdp +++|*                       FILLED.
01944  M01S01926.comccdp +++|*
01945  M01S01927.comccdp +++|*         USES   A - 1.
01946  M01S01928.comccdp +++|*                B - 2.
01947  M01S01929.comccdp +++|*                X - 0, 1, 2, 3, 7.
01948  M01S01930.comccdp +++|
01949  M01S01931.comccdp +++|
01950  M01S01932.comccdp +++| SFZ2     MX2    -54
01951  M01S01933.comccdp +++|          BX0    -X2*X0
01952  M01S01934.comccdp +++|          SA1    SFZA
01953  M01S01935.comccdp +++|          LX0    6
01954  M01S01936.comccdp +++|          BX2    -X0*X7
01955  M01S01937.comccdp +++|          BX1    X0*X1
01956  M01S01938.comccdp +++|          BX7    X1+X2
01957  M01S01939.comccdp +++|
01958  M01S01940.comccdp +++| SFZ      SUBR               ENTRY/EXIT
01959  M01S01941.comccdp +++|          MX0    6
01960  M01S01942.comccdp +++|          BX3    X7
01961  M01S01943.comccdp +++|          SB2    10
01962  M01S01944.comccdp +++|          MX1    -6
01963  M01S01945.comccdp +++| SFZ1     LX3    6
01964  M01S01946.comccdp +++|          BX2    -X1*X3
01965  M01S01947.comccdp +++|          SX2    X2-1R0
01966  M01S01948.comccdp +++|          NZ     X2,SFZ2     IF NO MORE LEADING DISPLAY CODE ZEROS
01967  M01S01949.comccdp +++|          SB2    B2-1
01968  M01S01950.comccdp +++|          EQ     B2,SFZ2     IF NO MORE DIGITS IN WORD
01969  M01S01951.comccdp +++|          AX0    6
01970  M01S01952.comccdp +++|          EQ     SFZ1        CONTINUE CHECK FOR DISPLAY ZERO
01971  M01S01953.comccdp +++|
01972  M01S01954.comccdp +++|
01973  M01S01955.comccdp +++| SFZA     CON    10H
01974  M01S01956.comccdp +++| SST      SPACE  4,10
01975  M01S01957.comccdp +++|**        SST - SEARCH SYMBOL TABLE.
01976  M01S01958.comccdp +++|*
01977  M01S01959.comccdp +++|*         ENTRY  (X1)= CRITERION.
01978  M01S01960.comccdp +++|*
01979  M01S01961.comccdp +++|*         EXIT   (A2)= ADDRESS OF ENTRY IF FOUND, ELSE NEXT AVAILABLE
01980  M01S01962.comccdp +++|*                      ADDRESS.
01981  M01S01963.comccdp +++|*                (X6)= 0 IF FOUND.
01982  M01S01964.comccdp +++|*
01983  M01S01965.comccdp +++|*         USES   A - 2.
01984  M01S01966.comccdp +++|*                X - 0, 2, 6.
01985  M01S01967.comccdp +++|
01986  M01S01968.comccdp +++|
01987  M01S01969.comccdp +++| SST      SUBR               ENTRY/EXIT
01988  M01S01970.comccdp +++|          MX0    7*6         SYMBOL MASK
01989  M01S01971.comccdp +++|          SA2    TSYM-1      INITIALIZE TABLE ADDRESS
01990  M01S01972.comccdp +++|          MX6    1           ASSUME NO FIND
01991  M01S01973.comccdp +++| SST1     SA2    A2+B1       READ NEXT ENTRY
01992  M01S01974.comccdp +++|          ZR     X2,SSTX     IF END OF TABLE
01993  M01S01975.comccdp +++|          BX6    X2-X1
01994  M01S01976.comccdp +++|          BX6    X0*X6
01995  M01S01977.comccdp +++|          NZ     X6,SST1     IF NOT FOUND
01996  M01S01978.comccdp +++|          EQ     SSTX        RETURN
01997  M01S01979.comccdp +++| SVR      SPACE  4,15
01998  M01S01980.comccdp +++|**        SVR - SAVE ALL REGISTERS.
01999  M01S01981.comccdp +++|*
02000  M01S01982.comccdp +++|*         EXIT   (B1)= 1.
02001  M01S01983.comccdp +++|*
02002  M01S01984.comccdp +++|*         USES   A - 1, 2, 3, 6, 7.
02003  M01S01985.comccdp +++|*                B - 2, 3, 7.
02004  M01S01986.comccdp +++|*                X - 0, 1, 2, 3, 4, 6, 7.
02005  M01S01987.comccdp +++|*
02006  M01S01988.comccdp +++|*         CALLS  COD.
02007  M01S01989.comccdp +++|*
02008  M01S01990.comccdp +++|*         MACROS WRITEC.
02009  M01S01991.comccdp +++|
02010  M01S01992.comccdp +++|
02011  M01S01993.comccdp +++| SVR      SUBR               ENTRY/EXIT
02012  M01S01994.comccdp +++|          PL     B7,*+2      CONSTRUCT TRAIL DESCRIBING B7
02013  M01S01995.comccdp +++|          RJ     *+1
02014  M01S01996.comccdp +++| SVR1     CON    0
02015  M01S01997.comccdp +++|          DUP    17
02016  M01S01998.comccdp +++|          SB7    B7+B7
02017  M01S01999.comccdp +++|          PL     B7,*+3
02018  M01S02000.comccdp +++|          RJ     *+1
02019  M01S02001.comccdp +++|          CON    0
02020  M01S02002.comccdp +++|          ENDD
02021  M01S02003.comccdp +++|          SB7    A7          SAVE X7
02022  M01S02004.comccdp +++|          SA7    REGX+7
02023  M01S02005.comccdp +++|          SX7    A6          SAVE X6
02024  M01S02006.comccdp +++|          SA6    REGX+6
02025  M01S02007.comccdp +++|          SA7    REGA+6      A6
02026  M01S02008.comccdp +++|          BX6    X0
02027  M01S02009.comccdp +++|          LX7    X1
02028  M01S02010.comccdp +++|          SA6    REGX        X0
02029  M01S02011.comccdp +++|          SA7    REGX+1      X1
02030  M01S02012.comccdp +++|          BX6    X2
02031  M01S02013.comccdp +++|          LX7    X3
02032  M01S02014.comccdp +++|          SA6    REGX+2      X2
02033  M01S02015.comccdp +++|          SA7    REGX+3      X3
02034  M01S02016.comccdp +++|          BX6    X4
02035  M01S02017.comccdp +++|          LX7    X5
02036  M01S02018.comccdp +++|          SA6    REGX+4      X4
02037  M01S02019.comccdp +++|          SA7    REGX+5      X5
02038  M01S02020.comccdp +++|          SX6    A0
02039  M01S02021.comccdp +++|          SX7    A1
02040  M01S02022.comccdp +++|          SA6    REGA        A0
02041  M01S02023.comccdp +++|          SA7    REGA+1      A1
02042  M01S02024.comccdp +++|          SX6    A2
02043  M01S02025.comccdp +++|          SX7    A3
02044  M01S02026.comccdp +++|          SA6    REGA+2      A2
02045  M01S02027.comccdp +++|          SA7    REGA+3      A3
02046  M01S02028.comccdp +++|          SA3    SVR1        RECONSTRUCT B7
02047  M01S02029.comccdp +++|          SX6    A4
02048  M01S02030.comccdp +++|          SX7    A5
02049  M01S02031.comccdp +++|          SA6    REGA+4      A4
02050  M01S02032.comccdp +++|          SA7    REGA+5      A5
02051  M01S02033.comccdp +++|          SX6    B7
02052  M01S02034.comccdp +++|          SX7    B1
02053  M01S02035.comccdp +++|          SA6    REGA+7      A7
02054  M01S02036.comccdp +++|          SA7    REGB+1      B1
02055  M01S02037.comccdp +++|          SB1    1
Proceed to Part 1
cdc/nos2.source/opl.opl871/common/comccdp.txt ยท Last modified: by 127.0.0.1