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
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.