cdc:nos2.source:opl.opl871:common:comccdp
Common COMCCDP
Library Member Format: MODIFY
Listing Sections
- Common COMCCDP Start
- Common COMCCDP Part 1 (Line 2016)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comccdp +++| CTEXT COMCCDP - CPU DEBUGGING PACKAGE. 00002 M00S00002.comccdp +++| CDP SPACE 4,10 00003 M00S00003.comccdp +++| IF -DEF,QUAL$,1 00004 M00S00004.comccdp +++| QUAL COMCCDP 00005 M00S00005.comccdp +++| BASE D
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.comccdp +++| CDP SPACE 4,10 00009 M00S00008.comccdp +++|*** CDP - CPU DEBUGGING PACKAGE. 00010 M00S00009.comccdp +++|* J. C. BOHNHOFF. 71/02/13. 00011 M00S00010.comccdp +++|* J. C. BOHNHOFF. 75/08/16. 00012 M00S00011.comccdp +++|* J. L. LARSON. 76/10/29. 00013 M00S00012.comccdp +++| SPACE 4,10 00014 M00S00013.comccdp +++|*** *CDP* PROVIDES VARIOUS DEBUGGING AIDS FOR THE CP 00015 M00S00014.comccdp +++|* PROGRAMMER. 00016 M00S00015.comccdp +++|* 00017 M00S00016.comccdp +++|* CONTROL IS INITIALLY GIVEN TO CDP BY THE EXECUTION OF 00018 M00S00017.comccdp +++|* A RETURN JUMP TO *CDI* OR *CDB*. AT THIS POINT CDP ANNOUNCES 00019 M00S00018.comccdp +++|* THE CURRENT PROGRAM LOCATION WITH *BK NNNNNN*. THE USER IS 00020 M00S00019.comccdp +++|* THEN EXPECTED TO ENTER ONE OF THE FOLLOWING COMMANDS. 00021 M00S00020.comccdp +++|* CDP WILL ASK FOR COMMANDS UNTIL *GO.* OR A NULL LINE 00022 M00S00021.comccdp +++|* IS ENTERED. AT THIS POINT THE PROGRAM IS RE-ENTERED AND 00023 M00S00022.comccdp +++|* EXECUTES UNTIL IT ENDS OR A BREAKPOINT IS ENCOUNTERED. 00024 M00S00023.comccdp +++|* CDP MAINTAINS ITS OWN *INPUT* AND *OUTPUT* FETS SO THAT USER 00025 M00S00024.comccdp +++|* FETS ARE NOT ALTERED. IN ADDITION, A FET POINTER IN LOW CORE 00026 M00S00025.comccdp +++|* IS USED BUT ITS ORIGINAL CONTENTS ARE SAVED. 00027 M00S00026.comccdp +++|* IN ANY OF THE FOLLOWING COMMANDS, IF A NUMERIC FIELD IS 00028 M00S00027.comccdp +++|* NEEDED, A POST-RADIX *B* (OCTAL) OR *D* (DECIMAL) MAY BE 00029 M00S00028.comccdp +++|* SPECIFIED. IN THE ABSENCE OF THIS POST-RADIX SPECIFICATION, 00030 M00S00029.comccdp +++|* NUMBERS ARE ASSUMED TO BE OCTAL. 00031 M00S00030.comccdp +++|* IN MOST CASES WHERE A NUMBER MAY BE SPECIFIED, A DEFINED 00032 M00S00031.comccdp +++|* SYMBOL MAY BE USED INSTEAD OR IN COMBINATION. SYMBOLS ARE 00033 M00S00032.comccdp +++|* DEFINED USING THE *DEF* COMMAND. ALSO, A SYMBOL AND A 00034 M00S00033.comccdp +++|* NUMBER, A SYMBOL AND A SYMBOL, OR A NUMBER AND A NUMBER 00035 M00S00034.comccdp +++|* MAY BE GIVEN TOGETHER SEPARATED BY A + OR - OPERATOR 00036 M00S00035.comccdp +++|* INDICATING ADDITION OR SUBTRACTION. 00037 M00S00036.comccdp +++|* 00038 M00S00037.comccdp +++|* N.B. --- CDP IS NOT PROTECTED FROM THE PROGRAM TO BE 00039 M00S00038.comccdp +++|* DEBUGGED. IT MAY BE CLOBBERED AT ANY TIME BY A RUNAWAY 00040 M00S00039.comccdp +++|* PROGRAM. 00041 M00S00040.comccdp +++|* 00042 M00S00041.comccdp +++|* REQUIRES PRESENCE OF COMMON DECKS - 00043 M00S00042.comccdp +++|* COMCMAC 00044 M00S00043.comccdp +++|* COMCCMD 00045 M00S00044.comccdp +++|* COMCCIO 00046 M00S00045.comccdp +++|* COMCWTC 00047 M00S00046.comccdp +++|* COMCRDC 00048 M00S00047.comccdp +++|* COMCDXB 00049 M00S00048.comccdp +++|* COMCWOD 00050 M00S00049.comccdp +++|* COMCZTB 00051 M00S00050.comccdp +++|* COMCCOD 00052 M00S00051.comccdp +++|* COMCUPC 00053 M00S00052.comccdp +++|* COMCWTW 00054 M00S00053.comccdp +++|* COMCRDW 00055 M00S00054.comccdp +++|* COMCSYS 00056 M00S00055.comccdp +++|* COMCCPM 00057 M00S00056.comccdp +++|* 00058 M00S00057.comccdp +++|* TWO SYMBOLS MUST BE DEFINED BY THE CALLING PROGRAM - 00059 M00S00058.comccdp +++|* CDPS - THE FWA OF CM PROTECTED AGAINST ALTERATION 00060 M00S00059.comccdp +++|* CDPE - THE LWA+1 OF CM PROTECTED AGAINST ALTERATION 00061 M00S00060.comccdp +++| TITLE COMCCDP - CPU DEBUGGING PACKAGE - SYMBOLS, MACROS. 00062 M00S00061.comccdp +++| SYMBOLS SPACE 4,10 00063 M00S00062.comccdp +++|** LOCAL SYMBOL DEFINITIONS. 00064 M00S00063.comccdp +++| 00065 M00S00064.comccdp +++| 00066 M00S00065.comccdp +++| IBFL EQU 101B INPUT BUFFER SIZE 00067 M00S00066.comccdp +++| OBFL EQU 101B OUTPUT BUFFER SIZE 00068 M00S00067.comccdp +++| DBFL EQU 101B DUMP FILE BUFFER SIZE 00069 M00S00068.comccdp +++| BUFL EQU 8 SIZE OF COMMAND BUFFER 00070 M00S00069.comccdp +++| TSYML EQU 64 SIZE OF SYMBOL TABLE 00071 M00S00070.comccdp +++| COMAND SPACE 4,30 00072 M00S00071.comccdp +++|** COMAND - MACRO - FORM COMMAND TABLE ENTRY. 00073 M00S00072.comccdp +++|* 00074 M00S00073.comccdp +++|* PROC COMAND KEY,P0,P1,P2,NVC,NAV,VA1 00075 M00S00074.comccdp +++|* 00076 M00S00075.comccdp +++|* WHERE PROC = PROCESSOR ADDRESS. 00077 M00S00076.comccdp +++|* KEY = COMMAND KEYWORD - 1 TO 6 CHARACTERS. 00078 M00S00077.comccdp +++|* P0 = PRESENT IF ZERO PARAMETERS LEGAL. 00079 M00S00078.comccdp +++|* P1 = PRESENT IF ONE PARAMETER LEGAL. 00080 M00S00079.comccdp +++|* P2 = PRESENT IF TWO PARAMETERS LEGAL. 00081 M00S00080.comccdp +++|* NVC = PRESENT IF NO NUMERIC VALUE CONVERSION SHOULD BE 00082 M00S00081.comccdp +++|* DONE ON THE COMMAND. 00083 M00S00082.comccdp +++|* NAV = PRESENT IF NO ADDRESS VALIDATION SHOULD BE DONE 00084 M00S00083.comccdp +++|* ON THE COMMAND. 00085 M00S00084.comccdp +++|* VA1 = PRESENT IF ADDRESS VALIDATION ONLY ON FIRST 00086 M00S00085.comccdp +++|* PARAMETER. 00087 M00S00086.comccdp +++|* 00088 M00S00087.comccdp +++|* PRODUCES - 00089 M00S00088.comccdp +++|* 00090 M00S00089.comccdp +++|*T 36/KEY,1/A,1/B,1/C,1/N,1/V,1/A1,18/PROC
Figure
00091 M00S00090.comccdp +++|* 00092 M00S00091.comccdp +++|* WHERE A=1, IF P0 PRESENT. 00093 M00S00092.comccdp +++|* B=1, IF P1 PRESENT. 00094 M00S00093.comccdp +++|* C=1, IF P2 PRESENT. 00095 M00S00094.comccdp +++|* N=1, IF NVC PRESENT 00096 M00S00095.comccdp +++|* V=0, IF NAV PRESENT. 00097 M00S00096.comccdp +++|* A1 = 1, IF VA1 PRESENT. 00098 M00S00097.comccdp +++| 00099 M00S00098.comccdp +++| 00100 M00S00099.comccdp +++| MACRO COMAND,P,K,A,B,C,N,V,A1 00101 M00S00100.comccdp +++| .1 MICRO 1,,$K$ 00102 M00S00101.comccdp +++| .10 IFC EQ,$N$$ 00103 M00S00102.comccdp +++| .2 SET 0 00104 M00S00103.comccdp +++| .10 ELSE 00105 M00S00104.comccdp +++| .2 SET 1 00106 M00S00105.comccdp +++| .10 ENDIF 00107 M00S00106.comccdp +++| .20 IFC EQ,$V$$ 00108 M00S00107.comccdp +++| .3 SET 1 00109 M00S00108.comccdp +++| .20 ELSE 00110 M00S00109.comccdp +++| .3 SET 0 00111 M00S00110.comccdp +++| .20 ENDIF 00112 M00S00111.comccdp +++| .21 IFC EQ,$A1$$ 00113 M00S00112.comccdp +++| .31 SET 0 00114 M00S00113.comccdp +++| .21 ELSE 00115 M00S00114.comccdp +++| .31 SET 1 00116 M00S00115.comccdp +++| .21 ENDIF 00117 M00S00116.comccdp +++| .30 IFC EQ,$A$$ 00118 M00S00117.comccdp +++| .4 SET 0 00119 M00S00118.comccdp +++| .30 ELSE 00120 M00S00119.comccdp +++| .4 SET 1 00121 M00S00120.comccdp +++| .30 ENDIF 00122 M00S00121.comccdp +++| .40 IFC EQ,$B$$ 00123 M00S00122.comccdp +++| .5 SET 0 00124 M00S00123.comccdp +++| .40 ELSE 00125 M00S00124.comccdp +++| .5 SET 1 00126 M00S00125.comccdp +++| .40 ENDIF 00127 M00S00126.comccdp +++| .50 IFC EQ,$C$$ 00128 M00S00127.comccdp +++| .6 SET 0 00129 M00S00128.comccdp +++| .50 ELSE 00130 M00S00129.comccdp +++| .6 SET 1 00131 M00S00130.comccdp +++| .50 ENDIF 00132 M00S00131.comccdp +++| VFD 36/0L".1",1/.4,1/.5,1/.6,1/.2,1/.3,1/.31,18/P 00133 M00S00132.comccdp +++| ENDM 00134 M00S00133.comccdp +++| TITLE COMCCDP - CPU DEBUGGING PACKAGE - MAIN CONTROL. 00135 M00S00134.comccdp +++| CDB SPACE 4,10 00136 M00S00135.comccdp +++|*** CDB - PROGRAMMED BREAKPOINT ENTRY WITH LABEL ARGUMENT. 00137 M00S00136.comccdp +++|* 00138 M00S00137.comccdp +++|* *CDB* ACTS THE SAME AS *CDI* BELOW EXCEPT THAT THE BREAKPOINT 00139 M00S00138.comccdp +++|* LABEL IS GIVEN AS AN ARGUMENT FOLLOWING PRODUCT SET PARAMETER 00140 M00S00139.comccdp +++|* PASSING CONVENTIONS. THAT IS, X1 CONTAINS THE ADDRESS OF THE 00141 M00S00140.comccdp +++|* LABEL. THE LABEL MAY BE ANY 1 TO 5 CHARACTER DISPLAY CODED 00142 M00S00141.comccdp +++|* VALUE. USING *FTN*, A CALL MIGHT BE - 00143 M00S00142.comccdp +++|* CALL CDB(5LSAMMY) 00144 M00S00143.comccdp +++| 00145 M00S00144.comccdp +++| 00146 M00S00145.comccdp +++| CDB SUBR ENTRY/EXIT 00147 M00S00146.comccdp +++| RJ SVR SAVE REGISTERS 00148 M00S00147.comccdp +++| SA2 CDB MOVE RETURN INSTRUCTION 00149 M00S00148.comccdp +++| SA1 REGX+1 READ (X1) 00150 M00S00149.comccdp +++| BX6 X2 00151 M00S00150.comccdp +++| SA1 X1 READ LABEL 00152 M00S00151.comccdp +++| SA6 CDPX 00153 M00S00152.comccdp +++| MX0 30 MASK LABEL 00154 M00S00153.comccdp +++| LX6 30 SET PROPER *P* 00155 M00S00154.comccdp +++| SA2 CDBA CONSTRUCT FAKE CDI CALL 00156 M00S00155.comccdp +++| LX1 30 00157 M00S00156.comccdp +++| SX6 X6-1 00158 M00S00157.comccdp +++| BX1 -X0*X1 00159 M00S00158.comccdp +++| BX1 X1+X2 00160 M00S00159.comccdp +++| EQ CDI1 PROCESS BREAKPOINT 00161 M00S00160.comccdp +++| 00162 M00S00161.comccdp +++| 00163 M00S00162.comccdp +++| CDBA RJ CDI 00164 M00S00163.comccdp +++|- VFD 30/0 00165 M00S00164.comccdp +++| CDC SPACE 4,10 00166 M00S00165.comccdp +++|*** CDC - PROGRAMMED COMMAND ENTRY. 00167 M00S00166.comccdp +++|* 00168 M00S00167.comccdp +++|* *CDC* MAY BE CALLED TO PROCESS ANY *CDP* COMMAND. THE COMMAND 00169 M00S00168.comccdp +++|* MUST BE DISPLAY CODED. AN *FTN* CALL MIGHT BE - 00170 M00S00169.comccdp +++|* CALL CDC(11HDEF,SYM,6./) 00171 M00S00170.comccdp +++|* NOTE THAT THE COMMAND MUST BE TERMINATED BY A SLASH. 00172 M00S00171.comccdp +++|* THE *EM* COMMAND WOULD BE - 00173 M00S00172.comccdp +++|* CALL CDC(17HEM,123,456.7704./) 00174 M00S00173.comccdp +++|* PRODUCT SET PARAMETER PASSING CONVENTIONS MUST BE USED. 00175 M00S00174.comccdp +++| 00176 M00S00175.comccdp +++| 00177 M00S00176.comccdp +++| CDC SUBR ENTRY/EXIT 00178 M00S00177.comccdp +++| RJ SVR SAVE REGISTERS 00179 M00S00178.comccdp +++| SA2 CDC MOVE RETURN INSTRUCTION 00180 M00S00179.comccdp +++| SA1 REGX+1 READ (X1) 00181 M00S00180.comccdp +++| BX6 X2 00182 M00S00181.comccdp +++| SA6 CDPX 00183 M00S00182.comccdp +++| SA5 X1 READ FIRST WORD OF COMMAND 00184 M00S00183.comccdp +++| LX6 30 SET PROPER *P* 00185 M00S00184.comccdp +++| SX6 X6-1 00186 M00S00185.comccdp +++| SA6 REGP 00187 M00S00186.comccdp +++| CDC1 SA3 CDCA READ COMMAND TERMINATOR MASK 00188 M00S00187.comccdp +++| SB7 A5+ SAVE ADDRESS OF COMMAND 00189 M00S00188.comccdp +++| RJ FEC FIND END OF COMMAND 00190 M00S00189.comccdp +++| SB3 B3+B3 00191 M00S00190.comccdp +++| SB2 B3+B3 00192 M00S00191.comccdp +++| SA5 A5 00193 M00S00192.comccdp +++| SB2 B2+B3 00194 M00S00193.comccdp +++| MX0 1 00195 M00S00194.comccdp +++| SB2 B2-59 00196 M00S00195.comccdp +++| LX0 X0,B2 00197 M00S00196.comccdp +++| BX6 X0*X5 00198 M00S00197.comccdp +++| SB2 A5+ MOVE COMMAND TO BUFFER 00199 M00S00198.comccdp +++| SB6 B7-BUF 00200 M00S00199.comccdp +++| CDC2 GE B7,B2,CDC3 IF END OF COMMAND 00201 M00S00200.comccdp +++| SA1 B7 00202 M00S00201.comccdp +++| BX7 X1 00203 M00S00202.comccdp +++| SA7 B7-B6 00204 M00S00203.comccdp +++| SB7 B7+B1 00205 M00S00204.comccdp +++| EQ CDC2 CONTINUE MOVING COMMAND 00206 M00S00205.comccdp +++| 00207 M00S00206.comccdp +++| CDC3 SX7 B1 SET PROGRAMMED COMMAND FLAG 00208 M00S00207.comccdp +++| SA6 B7-B6 STORE LAST COMMAND WORD 00209 M00S00208.comccdp +++| SA7 PROC 00210 M00S00209.comccdp +++| SX7 0 CLEAR BREAKPOINT LABEL 00211 M00S00210.comccdp +++| EQ CDP2 PROCESS BREAKPOINT 00212 M00S00211.comccdp +++| 00213 M00S00212.comccdp +++| 00214 M00S00213.comccdp +++| CDCA BSS 0 00215 M00S00214.comccdp +++| POS 60-1R/ 00216 M00S00215.comccdp +++| VFD 1/1 00217 M00S00216.comccdp +++| VFD $/0 00218 M00S00217.comccdp +++| BSS 0 00219 M00S00218.comccdp +++| CDI SPACE 4,25 00220 M00S00219.comccdp +++|*** CDI - PROGRAMMED BREAKPOINT/COMMAND ENTRY (NO REGISTERS). 00221 M00S00220.comccdp +++|* 00222 M00S00221.comccdp +++|* *CDI* MUST BE ENTERED TO INITIALLY GIVE CONTROL TO *COMCCDP*. 00223 M00S00222.comccdp +++|* SUBSEQUENTLY, *CDI* MAY BE ENTERED AT ANY POINT TO PROVIDE 00224 M00S00223.comccdp +++|* PROGRAMMED BREAKPOINTS AS OPPOSED TO INTERACTIVELY SET 00225 M00S00224.comccdp +++|* BREAKPOINTS. 00226 M00S00225.comccdp +++|* 00227 M00S00226.comccdp +++|* IF THE RETURN JUMP INSTRUCTION CALLING *CDI* STARTS IN THE 00228 M00S00227.comccdp +++|* UPPER PARCEL OF A WORD AND THE LOWER PARCELS ARE NOT - 00229 M00S00228.comccdp +++|* 6100046000 (COMPASS PAD) 00230 M00S00229.comccdp +++|* 00XXXXXXXX 00231 M00S00230.comccdp +++|* THEN THE LOW 30 BITS ARE TAKEN TO BE A DISPLAY CODED 00232 M00S00231.comccdp +++|* BREAKPOINT LABEL AND ARE DISPLAYED WHEN THE BREAKPOINT IS 00233 M00S00232.comccdp +++|* ENCOUNTERED. IF THE LOW 30 BITS LOOK LIKE A PROGRAM STOP 00234 M00S00233.comccdp +++|* INSTRUCTION, THEN THE LOW 18 BITS ARE TAKEN AS THE ADDRESS 00235 M00S00234.comccdp +++|* OF A DISPLAY CODED *CDP* COMMAND FORMATTED AS EXPLAINED FOR 00236 M00S00235.comccdp +++|* *CDC* ABOVE. FOR EXAMPLE - 00237 M00S00236.comccdp +++|* + RJ CDI 00238 M00S00237.comccdp +++|* - PS CMD 00239 M00S00238.comccdp +++|* ...... 00240 M00S00239.comccdp +++|* CMD DATA 10HDMPR./ 00241 M00S00240.comccdp +++| 00242 M00S00241.comccdp +++| 00243 M00S00242.comccdp +++| CDI SUBR ENTRY/EXIT 00244 M00S00243.comccdp +++| RJ SVR SAVE REGISTERS 00245 M00S00244.comccdp +++| SA1 CDI MOVE RETURN INSTRUCTION 00246 M00S00245.comccdp +++| BX7 X1 00247 M00S00246.comccdp +++| SA7 CDPX 00248 M00S00247.comccdp +++| LX7 30 SET PROPER *P* 00249 M00S00248.comccdp +++| SX6 X7-1 00250 M00S00249.comccdp +++| MX0 30 00251 M00S00250.comccdp +++| SA1 X6 CHECK BREAKPOINT LABEL 00252 M00S00251.comccdp +++| CDI1 SA6 REGP 00253 M00S00252.comccdp +++| SA2 CDIA 00254 M00S00253.comccdp +++| BX7 X1-X2 00255 M00S00254.comccdp +++| ZR X7,CDP2 IF NO LABEL 00256 M00S00255.comccdp +++| BX6 X0*X7 00257 M00S00256.comccdp +++| SX7 B0 00258 M00S00257.comccdp +++| NZ X6,CDP2 IF NOT RJ UPPER 00259 M00S00258.comccdp +++| BX1 -X0*X1 EXTRACT BREAKPOINT LABEL 00260 M00S00259.comccdp +++| MX0 6 CHECK COMMAND ADDRESS 00261 M00S00260.comccdp +++| LX1 30 00262 M00S00261.comccdp +++| BX6 X0*X1 00263 M00S00262.comccdp +++| NZ X6,CDI2 IF NOT PS INSTRUCTION 00264 M00S00263.comccdp +++| LX1 30 00265 M00S00264.comccdp +++| SA5 X1 00266 M00S00265.comccdp +++| EQ CDC1 PROCESS PROGRAMMED COMMAND 00267 M00S00266.comccdp +++| 00268 M00S00267.comccdp +++| CDI2 RJ ZTB SPACE FILL LABEL 00269 M00S00268.comccdp +++| LX6 -6 00270 M00S00269.comccdp +++| MX0 6*6 00271 M00S00270.comccdp +++| BX7 X0*X6 00272 M00S00271.comccdp +++| EQ CDP2 PROCESS BREAKPOINT 00273 M00S00272.comccdp +++| 00274 M00S00273.comccdp +++| 00275 M00S00274.comccdp +++| CDIA RJ CDI CRITERION FOR BREAKPOINT LABEL 00276 M00S00275.comccdp +++|- SB0 B0+46000B 00277 M00S00276.comccdp +++| CDP SPACE 4,10 00278 M00S00277.comccdp +++|** CDP - INTERACTIVELY SELECTED BREAKPOINT ENTRY. 00279 M00S00278.comccdp +++| 00280 M00S00279.comccdp +++| 00281 M00S00280.comccdp +++| CDP SUBR ENTRY/EXIT 00282 M00S00281.comccdp +++| RJ SVR SAVE REGISTERS 00283 M00S00282.comccdp +++| CDP1 RJ RPB RESTORE PREVIOUS BREAKPOINT 00284 M00S00283.comccdp +++| SA1 CDPX DECREMENT RETURN ADDRESS 00285 M00S00284.comccdp +++| SX7 B0 CLEAR NEXT BREAKPOINT ADDRESS 00286 M00S00285.comccdp +++| LX1 30 00287 M00S00286.comccdp +++| SX2 B1 00288 M00S00287.comccdp +++| SA7 IBPA 00289 M00S00288.comccdp +++| IX6 X1-X2 00290 M00S00289.comccdp +++| LX6 30 00291 M00S00290.comccdp +++| BX7 X7-X7 00292 M00S00291.comccdp +++| SA6 CDPX 00293 M00S00292.comccdp +++| SA7 PROC CLEAR PROGRAMMED COMMAND FLAG 00294 M00S00293.comccdp +++| CDP2 SA7 LCLC SET BREAKPOINT LABEL 00295 M00S00294.comccdp +++| RJ SFP SET FET POINTER FOR TERMINAL I/O 00296 M00S00295.comccdp +++| RJ LCL LIST CURRENT LOCATION 00297 M00S00296.comccdp +++| RJ POC PROCESS OPERATOR COMMANDS 00298 M00S00297.comccdp +++| WRITER O,R WRITE RESPONSE 00299 M00S00298.comccdp +++| RJ RFP RESTORE FET POINTER WORDS 00300 M00S00299.comccdp +++| RJ IBP INSERT BREAKPOINT (IF NEEDED) 00301 M00S00300.comccdp +++| RJ RSR RESTORE REGISTERS 00302 M00S00301.comccdp +++| EQ CDPX RETURN TO CALLING PROGRAM 00303 M00S00302.comccdp +++| TITLE COMCCDP - CPU DEBUGGING PACKAGE - COMMAND PROCESSING. 00304 M00S00303.comccdp +++| POC SPACE 4,10 00305 M00S00304.comccdp +++|** POC - PROCESS OPERATOR COMMANDS. 00306 M00S00305.comccdp +++|* 00307 M00S00306.comccdp +++|* ENTRY AT *POCE* IF ERROR IN COMMAND. 00308 M00S00307.comccdp +++|* AT *POCR* TO PROCESS NEXT COMMAND. 00309 M00S00308.comccdp +++| 00310 M00S00309.comccdp +++| 00311 M00S00310.comccdp +++| POC SUBR ENTRY/EXIT 00312 M00S00311.comccdp +++| POCR BSS 0 RETURN FROM COMMAND PROCESSORS 00313 M00S00312.comccdp +++| SA1 PROC CHECK PROGRAMMED COMMAND 00314 M00S00313.comccdp +++| ZR X1,POC1 IF NOT PROGRAMMED 00315 M00S00314.comccdp +++| AX1 1 00316 M00S00315.comccdp +++| NZ X1,POCX IF COMMAND PROCESSED 00317 M00S00316.comccdp +++| SX6 B1+B1 SET COMMAND PROCESSED 00318 M00S00317.comccdp +++| SA6 PROC 00319 M00S00318.comccdp +++| EQ POC2 ANALYZE COMMAND 00320 M00S00319.comccdp +++| 00321 M00S00320.comccdp +++| POC1 READ I READ COMMAND 00322 M00S00321.comccdp +++| READC I,BUF,BUFL 00323 M00S00322.comccdp +++| NZ X1,POCX IF NO DATA 00324 M00S00323.comccdp +++| SX6 B6+ 00325 M00S00324.comccdp +++| SA6 BUFA 00326 M00S00325.comccdp +++| POC2 SA1 ECHO CHECK ECHO NEEDED 00327 M00S00326.comccdp +++| NZ X1,POC3 IF NO ECHO 00328 M00S00327.comccdp +++| WRITEC O,BUF ECHO COMMAND 00329 M00S00328.comccdp +++| POC3 SA5 BUF READ FIRST COMMAND WORD 00330 M00S00329.comccdp +++| SB7 UOC DESTINATION FOR UNPACKED COMMAND 00331 M00S00330.comccdp +++| RJ UPC UNPACK COMMAND 00332 M00S00331.comccdp +++| ZR X6,POC5 IF NO ERROR 00333 M00S00332.comccdp +++| POCE BSS 0 ERROR RETURN FROM COMMAND PROCESSORS
| Line S00333 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00334 M01S00333.v23l617 ---| POC4 WRITEC O,POCA *ILLEGAL*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00335 M01S00001.v23l617 +++| POC4 WRITEC O,POCA * INCORRECT ENTRY.* 00336 M00S00334.comccdp +++| EQ POCR PROCESS NEXT COMMAND 00337 M00S00335.comccdp +++| 00338 M00S00336.comccdp +++| POC5 SB4 B6-B1 SET ARGUMENT COUNT 00339 M00S00337.comccdp +++| SA1 UOC READ FIRST ARGUMENT 00340 M00S00338.comccdp +++| MX2 6*6 00341 M00S00339.comccdp +++| SA6 NARG CLEAR NUMBER OF ARGUMENTS 00342 M00S00340.comccdp +++| SB2 TOCP SET FWA OF TABLE 00343 M00S00341.comccdp +++| SB3 TOCPL SET TABLE LENGTH 00344 M00S00342.comccdp +++| RJ BST SEARCH COMMAND TABLE 00345 M00S00343.comccdp +++| ZR X3,POC4 IF COMMAND NOT FOUND 00346 M00S00344.comccdp +++| SB2 B4 VALIDATE PARAMETER COUNT 00347 M00S00345.comccdp +++| SB3 B0 00348 M00S00346.comccdp +++| RJ CCA CHECK FOR COMPOUND FIRST ARGUMENT
| Line S00347 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00349 M01S00347.v23l617 ---| NZ B6,POC4 IF ILLEGAL SEPARATOR
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00350 M01S00002.v23l617 +++| NZ B6,POC4 IF INCORRECT SEPARATOR 00351 M00S00348.comccdp +++| SA6 POCB SAVE COMPOUND ARGUMENT INDICATOR 00352 M00S00349.comccdp +++| RJ CCA CHECK FOR COMPOUND SECOND ARGUMENT
| Line S00350 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00353 M01S00350.v23l617 ---| NZ B6,POC4 IF ILLEGAL SEPARATOR
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00354 M01S00003.v23l617 +++| NZ B6,POC4 IF INCORRECT SEPARATOR 00355 M00S00351.comccdp +++| BX2 X3 00356 M00S00352.comccdp +++| SA6 A6+B1 SAVE COMPOUND ARGUMENT INDICATOR 00357 M00S00353.comccdp +++| LX2 59-23 00358 M00S00354.comccdp +++| NZ B2,POC4 IF TOO MANY ARGUMENTS 00359 M00S00355.comccdp +++| LX2 B3 CHECK LEGAL NUMBER OF ARGUMENTS 00360 M00S00356.comccdp +++| SA0 X3 PROCESSOR ADDRESS 00361 M00S00357.comccdp +++| PL X2,POC4 IF NUMBER OF ARGUMENTS NOT LEGAL 00362 M00S00358.comccdp +++| LX3 59-20 00363 M00S00359.comccdp +++| NG X3,POC6 IF NO CONVERSION 00364 M00S00360.comccdp +++| LX3 20-19 ADDRESS VALIDATION FIELDS 00365 M00S00361.comccdp +++| MX1 2 00366 M00S00362.comccdp +++| BX6 X1*X3 00367 M00S00363.comccdp +++| RJ SAD CONVERT NUMERIC ARGUMENTS 00368 M00S00364.comccdp +++| 00369 M00S00365.comccdp +++|* ENTRY TO COMMAND PROCESSORS - 00370 M00S00366.comccdp +++|* (B4)= ARGUMENT COUNT. 00371 M00S00367.comccdp +++|* (B5)= SECOND NUMERIC ARGUMENT. (IF CONVERSION) 00372 M00S00368.comccdp +++|* (X6)= FIRST NUMERIC ARGUMENT. (IF CONVERSION) 00373 M00S00369.comccdp +++|* (UOC-UOC+N)= UNPACKED COMMAND. 00374 M00S00370.comccdp +++|* (ADR1, ADR2)= NUMERIC COMMAND ARGUMENTS. (IF CONVERSION) 00375 M00S00371.comccdp +++| 00376 M00S00372.comccdp +++| POC6 SB2 A0 00377 M00S00373.comccdp +++| JP B2 PROCESS COMMAND 00378 M00S00374.comccdp +++| 00379 M00S00375.comccdp +++|
| Line S00376 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00380 M01S00376.v23l617 ---| POCA DATA C* ILLEGAL*
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00381 M01S00004.v23l617 +++| POCA DATA C* INCORRECT ENTRY.* 00382 M00S00377.comccdp +++| 00383 M00S00378.comccdp +++| POCB CON 0 NONZERO IF COMPOUND FIRST ARGUMENT 00384 M00S00379.comccdp +++| CON 0 NONZERO IF COMPOUND SECOND ARGUMENT 00385 M00S00380.comccdp +++| TOCP SPACE 4,10 00386 M00S00381.comccdp +++|** TOCP - TABLE OF OPERATOR COMMANDS. 00387 M00S00382.comccdp +++|* 00388 M00S00383.comccdp +++|* ***** TABLE MUST BE IN ASCENDING ALPHABETIC ORDER. 00389 M00S00384.comccdp +++|* ***** KEYWORD MUST BEGIN WITH A CHARACTER HAVING A DISPLAY CODE 00390 M00S00385.comccdp +++|* VALUE .LE. 37B. 00391 M00S00386.comccdp +++| 00392 M00S00387.comccdp +++| 00393 M00S00388.comccdp +++| TOCP BSS 0 00394 M00S00389.comccdp +++| LAR COMAND A,,1,2,,V A,N. OR A,N,MMMMMM. 00395 M00S00390.comccdp +++| LBR COMAND B,,1,2,,V B,N. OR B,N,MMMMMM. 00396 M00S00391.comccdp +++| SBP COMAND BK,0,1,,,,A1 BK. OR BK,NNNNNN. 00397 M00S00392.comccdp +++| BKM COMAND BM,0,1,,,,A1 BM. OR BM,NNNNNN. 00398 M00S00393.comccdp +++| BKP COMAND BP,0,1,,,,A1 BP. OR BP,NNNNNN. 00399 M00S00394.comccdp +++| LMO COMAND C,,1,2 C,MMMMMM. OR C,MMMMMM,NNNNNN. 00400 M00S00395.comccdp +++| CKP COMAND CKP,0,,,N CKP. 00401 M00S00396.comccdp +++| LOD COMAND D,,1,2 D,MMMMMM. OR D,MMMMMM,NNNNNN. 00402 M00S00397.comccdp +++| DEF COMAND DEF,0,,2,N DEF. OR DEF,SSSSSSS,NNNNNN. 00403 M00S00398.comccdp +++| DMC COMAND DMPC,,1,2 DMPC,MMMMMM. OR DMPC,MMMMMM,NNNNNN. 00404 M00S00399.comccdp +++| DMD COMAND DMPD,,1,2 DMPD,MMMMMM. OR DMPD,MMMMMM,NNNNNN. 00405 M00S00400.comccdp +++| DMR COMAND DMPR,0,,,N DMPR. 00406 M00S00401.comccdp +++| EMB COMAND EB,,,2,,,A1 EB,MMMMMM,B.CCCC. 00407 M00S00402.comccdp +++| ECH COMAND ECHO,0,1,,N ECHO. OR ECHO,A. 00408 M00S00403.comccdp +++| EMD COMAND ED,,1,2 ED,MMMMMM,NNNNNN.$DDD---DDD$ 00409 M00S00404.comccdp +++| EMO COMAND EM,,1,2 EM,MMMMMM,NNNNNN.CCC---CCC. 00410 M00S00405.comccdp +++| ERE COMAND EREXIT,0,,,N EREXIT. 00411 M00S00406.comccdp +++| FIL COMAND FILE,,,2,N FILE,X,AAAAAAA. 00412 M00S00407.comccdp +++| RFL COMAND FL,0,1,,,V FL. OR FL,NNNNNN. 00413 M00S00408.comccdp +++| POCX COMAND GO,0,,,N GO. 00414 M00S00409.comccdp +++| MOD COMAND MODE,0,1,,,V MODE. OR MODE,N. 00415 M00S00410.comccdp +++| STP COMAND P,0,1,,,,A1 P. OR P,NNNNNN. 00416 M00S00411.comccdp +++| LRC COMAND R,0,,,N R. 00417 M00S00412.comccdp +++| STL COMAND SETTL,,1,,,V SETTL,NNNNNN. 00418 M00S00413.comccdp +++| LXR COMAND X,,1,,,V X,N. OR X,N.CCC---CCC. 00419 M00S00414.comccdp +++| TOCPL EQU *-TOCP TABLE LENGTH 00420 M00S00415.comccdp +++| LAR SPACE 4,10 00421 M00S00416.comccdp +++|*** A,N. 00422 M00S00417.comccdp +++|* LIST CONTENTS OF *A* REGISTER N. 00423 M00S00418.comccdp +++| 00424 M00S00419.comccdp +++| 00425 M00S00420.comccdp +++|*** A,N,MMMMMM. 00426 M00S00421.comccdp +++|* ENTER *A* REGISTER N WITH CONTENTS MMMMMM. 00427 M00S00422.comccdp +++| 00428 M00S00423.comccdp +++| 00429 M00S00424.comccdp +++|** LAR - SET/LIST CONTENTS OF *A* REGISTER. 00430 M00S00425.comccdp +++| 00431 M00S00426.comccdp +++| 00432 M00S00427.comccdp +++| LAR BSS 0 ENTRY 00433 M00S00428.comccdp +++| SB6 REGA 00434 M00S00429.comccdp +++| SB7 LRCA
| Line S00430 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00435 M01S00430.v23l617 ---| LAR1 SX7 X6-8 CHECK FOR ILLEGAL NUMBER
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00436 M01S00005.v23l617 +++| LAR1 SX7 X6-8 CHECK FOR INCORRECT NUMBER 00437 M00S00431.comccdp +++| PL X7,POCE IF NUMBER .GT. 7 00438 M00S00432.comccdp +++| NE B4,B1,LAR2 IF SET REGISTER 00439 M00S00433.comccdp +++| SB5 X6 SAVE REGISTER NUMBER 00440 M00S00434.comccdp +++| SA1 B6+X6 READ CONTENTS 00441 M00S00435.comccdp +++| RJ WOD CONVERT CONTENTS TO DISPLAY 00442 M00S00436.comccdp +++| RJ SFZ CONVERT LEADING DISPLAY ZEROS TO BLANKS 00443 M00S00437.comccdp +++| MX0 -36 00444 M00S00438.comccdp +++| SA1 B7 REGISTER NAME 00445 M00S00439.comccdp +++| SX2 B5 00446 M00S00440.comccdp +++| BX6 -X0*X7 00447 M00S00441.comccdp +++| LX2 42 00448 M00S00442.comccdp +++| IX1 X1+X2 00449 M00S00443.comccdp +++| MX7 0 00450 M00S00444.comccdp +++| BX6 X1+X6 00451 M00S00445.comccdp +++| SA6 LRCC 00452 M00S00446.comccdp +++| SA7 A6+1 00453 M00S00447.comccdp +++| WRITEC O,LRCC 00454 M00S00448.comccdp +++| EQ POCR RETURN 00455 M00S00449.comccdp +++| 00456 M00S00450.comccdp +++| LAR2 SX7 B5 STORE REGISTER CONTENTS 00457 M00S00451.comccdp +++| SA7 B6+X6 00458 M00S00452.comccdp +++| EQ POCR RETURN 00459 M00S00453.comccdp +++| LBR SPACE 4,10 00460 M00S00454.comccdp +++|*** B,N. 00461 M00S00455.comccdp +++|* LIST CONTENTS OF *B* REGISTER N. 00462 M00S00456.comccdp +++| 00463 M00S00457.comccdp +++| 00464 M00S00458.comccdp +++|*** B,N,CCCCCC. 00465 M00S00459.comccdp +++|* ENTER *B* REGISTER N WITH CONTENTS CCCCCC. 00466 M00S00460.comccdp +++| 00467 M00S00461.comccdp +++| 00468 M00S00462.comccdp +++|** LBR - LIST/SET CONTENTS OF *B* REGISTER. 00469 M00S00463.comccdp +++| 00470 M00S00464.comccdp +++| 00471 M00S00465.comccdp +++| LBR BSS 0 ENTRY 00472 M00S00466.comccdp +++| SB6 REGB 00473 M00S00467.comccdp +++| SB7 LRCB 00474 M00S00468.comccdp +++| EQ LAR1 DISPLAY REGISTER CONTENTS 00475 M00S00469.comccdp +++| SBP SPACE 4,10 00476 M00S00470.comccdp +++|*** BK,NNNNNN. 00477 M00S00471.comccdp +++|* SET NEXT BREAKPOINT AT ADDRESS NNNNNN. 00478 M00S00472.comccdp +++|* IF *,NNNNNN* IS ABSENT, CLEAR BREAKPOINT. 00479 M00S00473.comccdp +++| 00480 M00S00474.comccdp +++| 00481 M00S00475.comccdp +++|** SBP - SET BREAKPOINT ADDRESS. 00482 M00S00476.comccdp +++| 00483 M00S00477.comccdp +++| 00484 M00S00478.comccdp +++| SBP BSS 0 ENTRY 00485 M00S00479.comccdp +++| SB6 0 SET NON-RELATIVE BREAKPOINT 00486 M00S00480.comccdp +++| SBP1 SB7 B0 00487 M00S00481.comccdp +++| NZ B4,SBP2 IF ADDRESS SPECIFIED 00488 M00S00482.comccdp +++| SX7 B0 CLEAR BREAKPOINT ADDRESS 00489 M00S00483.comccdp +++| SA7 IBPA 00490 M00S00484.comccdp +++| EQ POCR RETURN 00491 M00S00485.comccdp +++| 00492 M00S00486.comccdp +++| SBP2 ZR B6,SBP4 IF ABSOLUTE BREAKPOINT 00493 M00S00487.comccdp +++| PL B6,SBP3 IF POSITIVE ADDEND 00494 M00S00488.comccdp +++| BX6 -X6 00495 M00S00489.comccdp +++| SBP3 SA1 REGP CURRENT BREAKPOINT ADDRESS 00496 M00S00490.comccdp +++| IX6 X1+X6 00497 M00S00491.comccdp +++| NG X6,POCE IF NEGATIVE BREAKPOINT ADDRESS 00498 M00S00492.comccdp +++| SBP4 SB2 X6-CDPS CHECK BREAKPOINT WITHIN DEBUGGER 00499 M00S00493.comccdp +++| SB3 X6-CDPE 00500 M00S00494.comccdp +++| SB4 SBPA BREAKPOINT WITHIN DEBUGGER 00501 M00S00495.comccdp +++| NG B2,SBP6 IF BELOW DEBUGGER 00502 M00S00496.comccdp +++| NG B3,SBP5 IF IN DEBUGGER 00503 M00S00497.comccdp +++| SB4 SADC ADDRESS OUT OF RANGE 00504 M00S00498.comccdp +++| SA1 SADD GET CURRENT FL 00505 M00S00499.comccdp +++| AX1 30 00506 M00S00500.comccdp +++| IX1 X6-X1 00507 M00S00501.comccdp +++| NG X1,SBP6 IF ADDRESS .LT. FL 00508 M00S00502.comccdp +++| SBP5 WRITEC O,B4 ISSUE ERROR MESSAGE 00509 M00S00503.comccdp +++| EQ POCR RETURN 00510 M00S00504.comccdp +++| 00511 M00S00505.comccdp +++| SBP6 SA6 IBPA STORE BREAKPOINT ADDRESS 00512 M00S00506.comccdp +++| EQ POCR RETURN 00513 M00S00507.comccdp +++| 00514 M00S00508.comccdp +++| 00515 M00S00509.comccdp +++| SBPA DATA C* BREAKPOINT WITHIN DEBUGGER.* 00516 M00S00510.comccdp +++| BKM SPACE 4,10 00517 M00S00511.comccdp +++|*** BM,NNNNNN. 00518 M00S00512.comccdp +++|* SET NEXT BREAKPOINT AT CURRENT MINUS NNNNNN. 00519 M00S00513.comccdp +++| 00520 M00S00514.comccdp +++| 00521 M00S00515.comccdp +++|** BKM - SET RELATIVE BREAKPOINT MINUS. 00522 M00S00516.comccdp +++| 00523 M00S00517.comccdp +++| 00524 M00S00518.comccdp +++| BKM BSS 0 ENTRY 00525 M00S00519.comccdp +++| SB6 -B1 SET NEGATIVE RELATIVE BREAKPOINT 00526 M00S00520.comccdp +++| EQ SBP1 SET BREAKPOINT ADDRESS 00527 M00S00521.comccdp +++| BKP SPACE 4,10 00528 M00S00522.comccdp +++|*** BP,NNNNNN. 00529 M00S00523.comccdp +++|* SET BREAKPOINT AT CURRENT BREAKPOINT PLUS NNNNNN. 00530 M00S00524.comccdp +++| 00531 M00S00525.comccdp +++| 00532 M00S00526.comccdp +++|** BKP - SET NEXT BREAKPOINT AT CURRENT PLUS N. 00533 M00S00527.comccdp +++| 00534 M00S00528.comccdp +++| 00535 M00S00529.comccdp +++| BKP BSS 0 ENTRY 00536 M00S00530.comccdp +++| SB6 B1 SET POSITIVE RELATIVE BREAKPOINT 00537 M00S00531.comccdp +++| EQ SBP1 SET BREAKPOINT ADDRESS 00538 M00S00532.comccdp +++| LMO SPACE 4,10 00539 M00S00533.comccdp +++|*** C,MMMMMM,NNNNNN. 00540 M00S00534.comccdp +++|* LIST MEMORY IN OCTAL. 00541 M00S00535.comccdp +++|* LIST FROM MMMMMM THROUGH NNNNNN. 00542 M00S00536.comccdp +++|* IF NNNNNN IS ABSENT, LIST ONLY MMMMMM. 00543 M00S00537.comccdp +++| 00544 M00S00538.comccdp +++| 00545 M00S00539.comccdp +++|** LMO - LIST MEMORY OCTAL. 00546 M00S00540.comccdp +++| 00547 M00S00541.comccdp +++| 00548 M00S00542.comccdp +++| LMO BSS 0 ENTRY 00549 M00S00543.comccdp +++| SA0 O SET LIST FILE 00550 M00S00544.comccdp +++| LMO1 SA1 ADR1 READ FIRST ADDRESS 00551 M00S00545.comccdp +++| SX2 B5+ UPPER BOUND 00552 M00S00546.comccdp +++| SB6 X1+B1 SET NEXT ADDRESS 00553 M00S00547.comccdp +++| IX3 X2-X1 UPPER - CURRENT 00554 M00S00548.comccdp +++| NG X3,LMO3 IF UPPER BOUND HAS BEEN LISTED 00555 M00S00549.comccdp +++| RJ COD CONVERT ADDRESS 00556 M00S00550.comccdp +++| LX6 6*4 PUT 4 SPACES LOW 00557 M00S00551.comccdp +++| SA6 LMOA SET ADDRESS 00558 M00S00552.comccdp +++| SA1 B6-B1 READ CONTENTS 00559 M00S00553.comccdp +++| RJ OCB CONVERT CONTENTS 00560 M00S00554.comccdp +++| SB7 B6 CURRENT ADDRESS 00561 M00S00555.comccdp +++| SB6 B6+1 ADVANCE NEXT ADDRESS 00562 M00S00556.comccdp +++| SB2 B5-B7 UPPER - CURRENT 00563 M00S00557.comccdp +++| NG B2,LMO2 IF UPPER BOUND LISTED 00564 M00S00558.comccdp +++| SA1 B6-1 READ CONTENTS 00565 M00S00559.comccdp +++| RJ OCB CONVERT CONTENTS 00566 M00S00560.comccdp +++| SX6 B6 SAVE NEXT ADDRESS 00567 M00S00561.comccdp +++| SA6 ADR1 00568 M00S00562.comccdp +++| SX5 B5 SAVE UPPER BOUND 00569 M00S00563.comccdp +++| WRITEC A0,LMOA LIST 2 WORDS 00570 M00S00564.comccdp +++| SB5 X5 00571 M00S00565.comccdp +++| EQ LMO1 CONTINUE LISTING WORDS 00572 M00S00566.comccdp +++| 00573 M00S00567.comccdp +++| LMO2 MX6 0 TERMINATE LINE 00574 M00S00568.comccdp +++| SA6 A6+B1 00575 M00S00569.comccdp +++| WRITEC A0,LMOA LIST 1 WORD 00576 M00S00570.comccdp +++| LMO3 SX0 A0 00577 M00S00571.comccdp +++| SX1 O 00578 M00S00572.comccdp +++| BX7 X0-X1 00579 M00S00573.comccdp +++| ZR X7,POCR IF LIST FILE IS *OUTPUT* 00580 M00S00574.comccdp +++| WRITER A0,R END RECORD 00581 M00S00575.comccdp +++| EQ POCR RETURN 00582 M00S00576.comccdp +++| 00583 M00S00577.comccdp +++| 00584 M00S00578.comccdp +++| LMOA CON 0 00585 M00S00579.comccdp +++| CON 0 00586 M00S00580.comccdp +++| CON 0 00587 M00S00581.comccdp +++| CON 0 00588 M00S00582.comccdp +++| CON 0 00589 M00S00583.comccdp +++| CON 0 00590 M00S00584.comccdp +++| CON 0 00591 M00S00585.comccdp +++| CON 0 00592 M00S00586.comccdp +++| CKP SPACE 4,10 00593 M00S00587.comccdp +++|*** CKP. 00594 M00S00588.comccdp +++|* CHECKPOINT PROGRAM.
| Line S00589 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00595 M01S00589.v23l617 ---|* CHECKPOINT IS USED AS IN THE *CKP* CONTROL CARD.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00596 M01S00006.v23l617 +++|* CHECKPOINT IS USED AS IN THE *CKP* COMMAND. 00597 M00S00590.comccdp +++|* ALL FILES ARE INCLUDED. THE CHECKPOINT NUMBER IS REPORTED 00598 M00S00591.comccdp +++|* AS AN OCTAL NUMBER. 00599 M00S00592.comccdp +++| 00600 M00S00593.comccdp +++| 00601 M00S00594.comccdp +++|** CKP - CHECKPOINT JOB. 00602 M00S00595.comccdp +++| 00603 M00S00596.comccdp +++| 00604 M00S00597.comccdp +++| CKP BSS 0 ENTRY 00605 M00S00598.comccdp +++| SA5 CKPA CLEAR COMPLETION BIT 00606 M00S00599.comccdp +++| MX6 -1 00607 M00S00600.comccdp +++| BX7 X6*X5 00608 M00S00601.comccdp +++| SA7 A5 00609 M00S00602.comccdp +++| CHECKPT A5,0 CHECKPOINT WITH ALL FILES 00610 M00S00603.comccdp +++| SA1 A5 REPORT CHECKPOINT NUMBER 00611 M00S00604.comccdp +++| MX6 -12 00612 M00S00605.comccdp +++| LX1 0-12 00613 M00S00606.comccdp +++| BX1 -X6*X1 00614 M00S00607.comccdp +++| RJ COD CONVERT NUMBER 00615 M00S00608.comccdp +++| LX4 -6 00616 M00S00609.comccdp +++| BX6 X4 00617 M00S00610.comccdp +++| SA6 CKPC 00618 M00S00611.comccdp +++| WRITEC O,CKPB 00619 M00S00612.comccdp +++| EQ POCR RETURN 00620 M00S00613.comccdp +++| 00621 M00S00614.comccdp +++| 00622 M00S00615.comccdp +++| CKPA VFD 12/0,30/0,6/0,11/0,1/0 00623 M00S00616.comccdp +++| CKPB DATA 10HCHKPT. (B) 00624 M00S00617.comccdp +++| CKPC CON 0 00625 M00S00618.comccdp +++| CON 0 00626 M00S00619.comccdp +++| LOD SPACE 4,10 00627 M00S00620.comccdp +++|*** D,MMMMMM,NNNNNN. 00628 M00S00621.comccdp +++|* LIST MEMORY IN OCTAL AND CHARACTER. 00629 M00S00622.comccdp +++|* LIST FROM MMMMMM THROUGH NNNNNN. 00630 M00S00623.comccdp +++|* IF NNNNNN IS ABSENT, LIST ONLY MMMMMM. 00631 M00S00624.comccdp +++| 00632 M00S00625.comccdp +++| 00633 M00S00626.comccdp +++|** LOD - LIST MEMORY OCTAL AND DISPLAY CODE. 00634 M00S00627.comccdp +++| 00635 M00S00628.comccdp +++| 00636 M00S00629.comccdp +++| LOD BSS 0 ENTRY 00637 M00S00630.comccdp +++| SA0 O SET LIST FILE 00638 M00S00631.comccdp +++| LOD1 SA1 ADR1 READ FIRST ADDRESS 00639 M00S00632.comccdp +++| SX2 B5+ UPPER BOUND 00640 M00S00633.comccdp +++| SB6 X1+B1 SET NEXT ADDRESS 00641 M00S00634.comccdp +++| IX3 X2-X1 UPPER - CURRENT 00642 M00S00635.comccdp +++| NG X3,LOD2 IF UPPER BOUND HAS BEEN LISTED 00643 M00S00636.comccdp +++| RJ COD CONVERT ADDRESS 00644 M00S00637.comccdp +++| LX6 6*4 PUT 4 SPACES LOW 00645 M00S00638.comccdp +++| SA6 LMOA SET ADDRESS IN LINE 00646 M00S00639.comccdp +++| SA1 B6-B1 READ CONTENTS 00647 M00S00640.comccdp +++| RJ OCB CONVERT 00648 M00S00641.comccdp +++| SA1 B6-1 SPACE FILL WORD 00649 M00S00642.comccdp +++| RJ ZTB 00650 M00S00643.comccdp +++| MX7 0 00651 M00S00644.comccdp +++| SA6 A6+B1 SET CHARACTER FIELD 00652 M00S00645.comccdp +++| SA7 A6+B1 TERMINATE LINE 00653 M00S00646.comccdp +++| SX6 B6 SAVE CURRENT ADDRESS 00654 M00S00647.comccdp +++| SX5 B5+ SAVE UPPER BOUND 00655 M00S00648.comccdp +++| SA6 ADR1 00656 M00S00649.comccdp +++| WRITEC A0,LMOA LIST WORD 00657 M00S00650.comccdp +++| SB5 X5 NEXT ADDRESS 00658 M00S00651.comccdp +++| EQ LOD1 CONTINUE LISTING WORDS 00659 M00S00652.comccdp +++| 00660 M00S00653.comccdp +++| LOD2 SX0 A0 00661 M00S00654.comccdp +++| SX1 O 00662 M00S00655.comccdp +++| BX7 X0-X1 00663 M00S00656.comccdp +++| ZR X7,POCR IF LIST FILE *OUTPUT* 00664 M00S00657.comccdp +++| WRITER A0,R END RECORD 00665 M00S00658.comccdp +++| EQ POCR RETURN 00666 M00S00659.comccdp +++| DEF SPACE 4,15 00667 M00S00660.comccdp +++|*** DEF,SSSSSSS,NNNNNN. 00668 M00S00661.comccdp +++|* DEFINE SYMBOL SSSSSSS AS HAVING VALUE NNNNNN. 00669 M00S00662.comccdp +++|* SSSSSSS IS ANY 1-7 CHARACTER ALPHANUMERIC STRING EXCEPT 00670 M00S00663.comccdp +++|* THOSE THAT APPEAR TO BE NUMBERS - E.G. 27, 14B, 353D. 00671 M00S00664.comccdp +++| 00672 M00S00665.comccdp +++| 00673 M00S00666.comccdp +++|*** DEF. 00674 M00S00667.comccdp +++|* LIST DEFINED SYMBOLS AND VALUES. 00675 M00S00668.comccdp +++| 00676 M00S00669.comccdp +++| 00677 M00S00670.comccdp +++|** DEF - LIST/DEFINE SYMBOLS. 00678 M00S00671.comccdp +++| 00679 M00S00672.comccdp +++| 00680 M00S00673.comccdp +++| DEF BSS 0 ENTRY 00681 M00S00674.comccdp +++| NZ B4,DEF2 IF DEFINITION REQUEST 00682 M00S00675.comccdp +++| SA5 TSYM LIST SYMBOLS AND VALUES 00683 M00S00676.comccdp +++| DEF1 ZR X5,POCR IF END OF SYMBOLS 00684 M00S00677.comccdp +++| MX0 7*6 SPACE FILL SYMBOL NAME 00685 M00S00678.comccdp +++| BX1 X0*X5 00686 M00S00679.comccdp +++| RJ ZTB 00687 M00S00680.comccdp +++| SA6 DEFA 00688 M00S00681.comccdp +++| BX1 -X0*X5 CONVERT VALUE 00689 M00S00682.comccdp +++| RJ COD 00690 M00S00683.comccdp +++| LX6 4*6 00691 M00S00684.comccdp +++| SA6 DEFB 00692 M00S00685.comccdp +++| WRITEC O,DEFA 00693 M00S00686.comccdp +++| SA5 A5+1 READ NEXT SYMBOL 00694 M00S00687.comccdp +++| EQ DEF1 CONTINUE LISTING SYMBOLS 00695 M00S00688.comccdp +++| 00696 M00S00689.comccdp +++| DEF2 SA1 POCB CHECK COMPOUND FIRST ARGUMENT
| Line S00690 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00697 M01S00690.v23l617 ---| NZ X1,POCE IF ILLEGAL ARGUMENT
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00698 M01S00007.v23l617 +++| NZ X1,POCE IF INCORRECT ARGUMENT 00699 M00S00691.comccdp +++| SA1 UOC+1 CHECK SYMBOL ALREADY DEFINED 00700 M00S00692.comccdp +++| RJ SST SEARCH SYMBOL TABLE 00701 M00S00693.comccdp +++| MX0 7*6 00702 M00S00694.comccdp +++| SA5 A1+B1 READ VALUE 00703 M00S00695.comccdp +++| BX7 X0*X1 SYMBOL 00704 M00S00696.comccdp +++| SA0 A2 SAVE TABLE ADDRESS 00705 M00S00697.comccdp +++| SB2 A2-TSYM-TSYML CHECK TABLE FULL 00706 M00S00698.comccdp +++| SA7 DEFC SAVE SYMBOL 00707 M00S00699.comccdp +++| NG B2,DEF3 IF TABLE NOT FULL 00708 M00S00700.comccdp +++| WRITEC O,DEFD *SYMBOL TABLE FULL* 00709 M00S00701.comccdp +++| EQ POCR RETURN 00710 M00S00702.comccdp +++| 00711 M00S00703.comccdp +++| DEF3 RJ CAD CONVERT ADDRESS 00712 M00S00704.comccdp +++| SA1 DEFC SET TABLE ENTRY 00713 M00S00705.comccdp +++| SX6 B7 00714 M00S00706.comccdp +++| BX7 X1+X6 00715 M00S00707.comccdp +++| SA7 A0 00716 M00S00708.comccdp +++| EQ POCR RETURN 00717 M00S00709.comccdp +++| 00718 M00S00710.comccdp +++| 00719 M00S00711.comccdp +++| DEFA CON 0 00720 M00S00712.comccdp +++| DEFB CON 0 00721 M00S00713.comccdp +++| CON 0 00722 M00S00714.comccdp +++| DEFC CON 0 00723 M00S00715.comccdp +++| DEFD DATA C*SYMBOL TABLE FULL.* 00724 M00S00716.comccdp +++| DMC SPACE 4,10 00725 M00S00717.comccdp +++|*** DMPC,MMMMMM,NNNNNN. 00726 M00S00718.comccdp +++|* LIST MEMORY IN OCTAL TO FILE *DUMP*. 00727 M00S00719.comccdp +++|* ARGUMENTS SAME AS *C,MMMMMM,NNNNNN.* 00728 M00S00720.comccdp +++| 00729 M00S00721.comccdp +++| 00730 M00S00722.comccdp +++|** DMC - LIST MEMORY TO FILE *DUMP*. 00731 M00S00723.comccdp +++| 00732 M00S00724.comccdp +++| 00733 M00S00725.comccdp +++| DMC BSS 0 ENTRY 00734 M00S00726.comccdp +++| SA0 D SET LIST FILE 00735 M00S00727.comccdp +++| SX5 B5+ 00736 M00S00728.comccdp +++| WRITEC A0,DAR WRITE DUMP PREFIX 00737 M00S00729.comccdp +++| SB5 X5 00738 M00S00730.comccdp +++| EQ LMO1 LIST MEMORY WORDS 00739 M00S00731.comccdp +++| DMD SPACE 4,10 00740 M00S00732.comccdp +++|*** DMPD,MMMMMM,NNNNNN. 00741 M00S00733.comccdp +++|* LIST MEMORY IN OCTAL AND CHARACTER TO FILE *DUMP*, 00742 M00S00734.comccdp +++|* ARGUMENTS SAME AS *D,MMMMMM,NNNNNN.*. 00743 M00S00735.comccdp +++| 00744 M00S00736.comccdp +++| 00745 M00S00737.comccdp +++|** DMD - LIST MEMORY TO FILE *DUMP*. 00746 M00S00738.comccdp +++| 00747 M00S00739.comccdp +++| 00748 M00S00740.comccdp +++| DMD BSS 0 ENTRY 00749 M00S00741.comccdp +++| SA0 D SET LIST FILE 00750 M00S00742.comccdp +++| SX5 B5+ 00751 M00S00743.comccdp +++| WRITEC A0,DAR WRITE DUMP PREFIX 00752 M00S00744.comccdp +++| SB5 X5 00753 M00S00745.comccdp +++| EQ LOD1 LIST MEMORY WORDS 00754 M00S00746.comccdp +++| DMR SPACE 4,10 00755 M00S00747.comccdp +++|*** DMPR. 00756 M00S00748.comccdp +++|* LIST REGISTER CONTENTS ON FILE *DUMP*. 00757 M00S00749.comccdp +++| 00758 M00S00750.comccdp +++| 00759 M00S00751.comccdp +++|** DMR - LIST REGISTER CONTENTS ON FILE *DUMP*. 00760 M00S00752.comccdp +++| 00761 M00S00753.comccdp +++| 00762 M00S00754.comccdp +++| DMR BSS 0 ENTRY 00763 M00S00755.comccdp +++| SA0 D SET LIST FILE 00764 M00S00756.comccdp +++| WRITEC A0,DAR LIST DUMP INDICATOR 00765 M00S00757.comccdp +++| EQ LRC1 LIST REGISTER CONTENTS 00766 M00S00758.comccdp +++| EMB SPACE 4,10 00767 M00S00759.comccdp +++|*** EB,MMMMMM,B.CCCC. 00768 M00S00760.comccdp +++|* ENTER MEMORY BYTE IN OCTAL. 00769 M00S00761.comccdp +++|* ENTER LOCATION MMMMMM BYTE B (NUMBERED 0 - 4 FROM LEFT) 00770 M00S00762.comccdp +++|* WITH OCTAL VALUE CCCC. WITH THE EXCEPTION OF BLANKS, CCCC 00771 M00S00763.comccdp +++|* MAY NOT CONTAIN NON-OCTAL DIGIT CHARACTERS. 00772 M00S00764.comccdp +++| 00773 M00S00765.comccdp +++| 00774 M00S00766.comccdp +++|** EMB - ENTER MEMORY BYTE. 00775 M00S00767.comccdp +++| 00776 M00S00768.comccdp +++| 00777 M00S00769.comccdp +++| EMB BSS 0 ENTRY 00778 M00S00770.comccdp +++| SA5 BUF FIND FIRST CONTENT CHARACTER 00779 M00S00771.comccdp +++| SA3 TERM TERMINATOR MASK 00780 M00S00772.comccdp +++| RJ FEC FIND END OF COMMAND 00781 M00S00773.comccdp +++| SA1 BUFA LWA+1 INPUT LINE 00782 M00S00774.comccdp +++| SX0 5 00783 M00S00775.comccdp +++| SB6 X1 00784 M00S00776.comccdp +++| SB7 B1 CHECK FOR TERMINATOR 00785 M00S00777.comccdp +++| RJ ASC ASSEMBLE CHARACTERS 00786 M00S00778.comccdp +++| ZR X4,POCE IF NO NON-BLANK CHARACTERS 00787 M00S00779.comccdp +++| SB2 X4-5 00788 M00S00780.comccdp +++| PL B2,POCE IF TOO MANY CHARACTERS 00789 M00S00781.comccdp +++| MX2 -6 00790 M00S00782.comccdp +++| BX7 X7-X7 00791 M00S00783.comccdp +++| EMB1 LX6 6 00792 M00S00784.comccdp +++| BX1 -X2*X6 00793 M00S00785.comccdp +++| SX3 X1-1R8 00794 M00S00786.comccdp +++| PL X3,POCE IF NOT OCTAL DIGIT 00795 M00S00787.comccdp +++| SX3 X1-1R0 00796 M00S00788.comccdp +++| NG X3,POCE IF NOT OCTAL DIGIT 00797 M00S00789.comccdp +++| LX7 3 00798 M00S00790.comccdp +++| BX7 X7+X3 00799 M00S00791.comccdp +++| SX4 X4-1 00800 M00S00792.comccdp +++| NZ X4,EMB1 IF MORE CHARACTERS 00801 M00S00793.comccdp +++| SA1 ADR1 00802 M00S00794.comccdp +++| SB2 X1-CDPS 00803 M00S00795.comccdp +++| NG B2,EMB2 IF BELOW DEBUGGER 00804 M00S00796.comccdp +++| SB2 X1-CDPE 00805 M00S00797.comccdp +++| PL B2,EMB2 IF ABOVE DEBUGGER 00806 M00S00798.comccdp +++| WRITEC O,EMMS ISSUE ERROR MESSAGE 00807 M00S00799.comccdp +++| EQ POCR RETURN 00808 M00S00800.comccdp +++| 00809 M00S00801.comccdp +++| EMB2 SA1 X1 GET LOCATION CONTENTS 00810 M00S00802.comccdp +++| MX0 12 00811 M00S00803.comccdp +++| SA2 ADR2 BYTE NUMBER 00812 M00S00804.comccdp +++| SB2 X2-5
| Line S00805 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00813 M01S00805.v23l617 ---| PL B2,POCE IF ILLEGAL BYTE NUMBER
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00814 M01S00008.v23l617 +++| PL B2,POCE IF INCORRECT BYTE NUMBER 00815 M00S00806.comccdp +++| SX3 -12 SET BYTE CONTENTS 00816 M00S00807.comccdp +++| IX2 X2*X3 00817 M00S00808.comccdp +++| LX7 -12 00818 M00S00809.comccdp +++| SB2 X2+60 00819 M00S00810.comccdp +++| LX0 B2 00820 M00S00811.comccdp +++| BX1 -X0*X1 00821 M00S00812.comccdp +++| LX7 B2 00822 M00S00813.comccdp +++| BX7 X1+X7 00823 M00S00814.comccdp +++| SA7 A1 00824 M00S00815.comccdp +++| EQ POCR RETURN 00825 M00S00816.comccdp +++| ECH SPACE 4,15 00826 M00S00817.comccdp +++|*** ECHO. 00827 M00S00818.comccdp +++|* ECHO BACK ALL COMMAND LINES. 00828 M00S00819.comccdp +++|* THIS MAY BE USEFUL IF AN ALTERNATE INPUT FILE IS IN USE. 00829 M00S00820.comccdp +++| 00830 M00S00821.comccdp +++| 00831 M00S00822.comccdp +++|*** ECHO,OFF. 00832 M00S00823.comccdp +++|* DO NOT ECHO BACK COMMAND LINES. 00833 M00S00824.comccdp +++|* REVERSES THE EFFECT OF *ECHO.*. *OFF* MAY BE ANY 1-7 00834 M00S00825.comccdp +++|* CHARACTER ARGUMENT. 00835 M00S00826.comccdp +++| 00836 M00S00827.comccdp +++| 00837 M00S00828.comccdp +++|** ECH - TURN ON/OFF COMMAND ECHO. 00838 M00S00829.comccdp +++| 00839 M00S00830.comccdp +++| 00840 M00S00831.comccdp +++| ECH BSS 0 ENTRY 00841 M00S00832.comccdp +++| SA1 POCB CHECK COMPOUND ARGUMENT
| Line S00833 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00842 M01S00833.v23l617 ---| NZ X1,POCE IF ILLEGAL ARGUMENT
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00843 M01S00009.v23l617 +++| NZ X1,POCE IF INCORRECT ARGUMENT 00844 M00S00834.comccdp +++| SX6 B4+ SET ECHO 00845 M00S00835.comccdp +++| SA6 ECHO 00846 M00S00836.comccdp +++| EQ POCR RETURN 00847 M00S00837.comccdp +++| EMD SPACE 4,15 00848 M00S00838.comccdp +++|*** ED,MMMMMM,NNNNNN.$DDD---DDD$ 00849 M00S00839.comccdp +++|* ENTER MEMORY IN DISPLAY. 00850 M00S00840.comccdp +++|* ENTER LOCATIONS MMMMMM THROUGH NNNNNN WITH DISPLAY CODE 00851 M00S00841.comccdp +++|* STRING DDD---DDD. ANY CHARACTER CAN BE USED AS A DELIMITER. 00852 M00S00842.comccdp +++|* WORD STORAGE TERMINATES WHEN THE MATCHING DELIMITER IS 00853 M00S00843.comccdp +++|* ENCOUNTERED, THE STRING IS EXHAUSTED, OR MMMMMM THROUGH 00854 M00S00844.comccdp +++|* NNNNNN HAVE BEEN FILLED. IF NNNNNN IS ABSENT, ONLY MMMMMM 00855 M00S00845.comccdp +++|* IS FILLED. ALL INPUT CHARACTERS BEYOND THE 78TH POSITION 00856 M00S00846.comccdp +++|* ARE TRUNCATED. 00857 M00S00847.comccdp +++| 00858 M00S00848.comccdp +++| 00859 M00S00849.comccdp +++|** EMD - ENTER MEMORY DISPLAY. 00860 M00S00850.comccdp +++| 00861 M00S00851.comccdp +++| 00862 M00S00852.comccdp +++| EMD BSS 0 ENTRY 00863 M00S00853.comccdp +++| SA1 ADR1 FWA STORE WORDS 00864 M00S00854.comccdp +++| SA2 ADR2 LWA STORE WORDS 00865 M00S00855.comccdp +++| SB2 CDPS 00866 M00S00856.comccdp +++| SB3 CDPE 00867 M00S00857.comccdp +++| SB4 X1 00868 M00S00858.comccdp +++| SB5 X2 00869 M00S00859.comccdp +++| LT B4,B2,EMD1 IF RANGE BELOW DEBUGGER 00870 M00S00860.comccdp +++| GE B5,B3,EMD1 IF RANGE ABOVE DEBUGGER 00871 M00S00861.comccdp +++| WRITEC O,EMMS ISSUE ERROR MESSAGE 00872 M00S00862.comccdp +++| EQ POCR RETURN 00873 M00S00863.comccdp +++| 00874 M00S00864.comccdp +++| EMD1 SA5 BUF FIND FIRST DISPLAY CHARACTER 00875 M00S00865.comccdp +++| SA3 TERM TERMINATOR MASK 00876 M00S00866.comccdp +++| RJ FEC FIND END OF COMMAND 00877 M00S00867.comccdp +++| SA1 BUFA 00878 M00S00868.comccdp +++| SB6 X1 LWA+1 INPUT LINE 00879 M00S00869.comccdp +++| SX0 B1 00880 M00S00870.comccdp +++| SB7 -B1 NO CHECK FOR TERMINATOR/SEPARATOR 00881 M00S00871.comccdp +++| RJ ASC GET DELIMITER 00882 M00S00872.comccdp +++| NG B6,POCE IF END OF LINE 00883 M00S00873.comccdp +++| BX3 X7 00884 M00S00874.comccdp +++| SB7 B0 CHECK FOR DELIMITER, NO BLANK SUPPRESSION 00885 M00S00875.comccdp +++| EMD2 SX0 10 00886 M00S00876.comccdp +++| RJ ASC ASSEMBLE WORD OF DATA 00887 M00S00877.comccdp +++| SA6 B4 00888 M00S00878.comccdp +++| SB4 B4+B1 00889 M00S00879.comccdp +++| GT B4,B5,POCR IF ALL LOCATIONS FILLED 00890 M00S00880.comccdp +++| PL B6,EMD2 IF MORE CHARACTERS IN STRING 00891 M00S00881.comccdp +++| EQ POCR RETURN 00892 M00S00882.comccdp +++| EMO SPACE 4,15 00893 M00S00883.comccdp +++|*** EM,MMMMMM,NNNNNN.CCCCCCCCCCCCCCCCCCCC. 00894 M00S00884.comccdp +++|* ENTER MEMORY IN OCTAL OR DECIMAL. 00895 M00S00885.comccdp +++|* IF CCC---CCC CONTAINS 11 TO 20 NON-BLANK CHARACTERS, 00896 M00S00886.comccdp +++|* IT MUST BE OCTAL. IF CCC---CCC IS 10 OR LESS NON-BLANK 00897 M00S00887.comccdp +++|* CHARACTERS, OCTAL BASE IS ASSUMED, HOWEVER, A POST RADIX 00898 M00S00888.comccdp +++|* B (OCTAL) OR D (DECIMAL) MAY BE SPECIFIED, AND THE PRESENCE 00899 M00S00889.comccdp +++|* OF AN 8 OR 9 WILL FORCE DECIMAL BASE. WITH THE EXCEPTION 00900 M00S00890.comccdp +++|* OF THE POST RADIX AND BLANKS, CCC---CCC MAY NOT CONTAIN 00901 M00S00891.comccdp +++|* NON-DIGIT CHARACTERS, INCLUDING ARITHMETIC OPERATORS AND 00902 M00S00892.comccdp +++|* SYMBOLIC VALUES. IF NNNNNN IS ABSENT, ONLY MMMMMM IS FILLED. 00903 M00S00893.comccdp +++| 00904 M00S00894.comccdp +++| 00905 M00S00895.comccdp +++|** EMO - ENTER MEMORY OCTAL. 00906 M00S00896.comccdp +++| 00907 M00S00897.comccdp +++| 00908 M00S00898.comccdp +++| EMO BSS 0 ENTRY 00909 M00S00899.comccdp +++| SA1 EMOD SET UP CONDITIONAL CODE 00910 M00S00900.comccdp +++| BX6 X1 00911 M00S00901.comccdp +++| SA6 EMOA 00912 M00S00902.comccdp +++| EMO1 SA5 BUF FIND FIRST CONTENT CHARACTER 00913 M00S00903.comccdp +++| SA3 TERM READ TERMINATOR MASK WORD 00914 M00S00904.comccdp +++| RJ FEC FIND END OF COMMAND 00915 M00S00905.comccdp +++| SA1 BUFA LWA+1 INPUT LINE 00916 M00S00906.comccdp +++| SX0 10 ASSEMBLE 10 CHARACTERS 00917 M00S00907.comccdp +++| SB6 X1 00918 M00S00908.comccdp +++| SB7 B1 CHECK FOR TERMINATOR, BLANK SUPPRESSION 00919 M00S00909.comccdp +++| RJ ASC ASSEMBLE CHARACTERS 00920 M00S00910.comccdp +++| EMOA ZR X4,POCE IF NO NON-BLANK CHARACTERS 00921 M00S00911.comccdp +++|* ZR X4,LXR1 IF LIST *X* REGISTER OPTION 00922 M00S00912.comccdp +++| SX7 X4+ 00923 M00S00913.comccdp +++| SA6 EMOB SAVE ASSEMBLED CHARACTERS 00924 M00S00914.comccdp +++| SA7 EMOC SAVE CHARACTER COUNT 00925 M00S00915.comccdp +++| NG B6,EMO5 IF TERMINATOR/END-OF-LINE ENCOUNTERED 00926 M00S00916.comccdp +++| SX0 10 ASSEMBLE 10 CHARACTERS 00927 M00S00917.comccdp +++| RJ ASC 00928 M00S00918.comccdp +++| ZR X4,EMO5 IF 10 OR LESS CHARACTERS 00929 M00S00919.comccdp +++| SA1 EMOC UPDATE CHARACTER COUNT 00930 M00S00920.comccdp +++| SA6 EMOB+1 SAVE ASSEMBLED CHARACTERS 00931 M00S00921.comccdp +++| IX7 X4+X1 00932 M00S00922.comccdp +++| SA7 A1 00933 M00S00923.comccdp +++| SX0 B1+ 00934 M00S00924.comccdp +++| NG B6,EMO2 IF TERMINATOR/END-OF-LINE ENCOUNTERED 00935 M00S00925.comccdp +++| RJ ASC ASSEMBLE NEXT CHARACTER 00936 M00S00926.comccdp +++| NZ X4,POCE IF TOO MANY CHARACTERS 00937 M00S00927.comccdp +++| EMO2 SA1 EMOC 00938 M00S00928.comccdp +++| SB2 B0 CHARACTER COUNTER 00939 M00S00929.comccdp +++| SB3 X1 ASSEMBLED CHARACTER COUNT 00940 M00S00930.comccdp +++| SB4 10 00941 M00S00931.comccdp +++| BX6 X6-X6 00942 M00S00932.comccdp +++| MX0 -6 00943 M00S00933.comccdp +++| SA5 EMOB 00944 M00S00934.comccdp +++| EMO3 EQ B2,B3,EMO6 IF ALL CHARACTERS PROCESSED 00945 M00S00935.comccdp +++| NE B2,B4,EMO4 IF WORD NOT EXHAUSTED 00946 M00S00936.comccdp +++| SA5 A5+1 00947 M00S00937.comccdp +++| EMO4 LX5 6 00948 M00S00938.comccdp +++| BX1 -X0*X5 00949 M00S00939.comccdp +++| SB2 B2+1 00950 M00S00940.comccdp +++| SX2 X1-1R8 00951 M00S00941.comccdp +++| PL X2,POCE IF NOT OCTAL DIGIT 00952 M00S00942.comccdp +++| SX2 X1-1R0 00953 M00S00943.comccdp +++| NG X2,POCE IF NOT OCTAL DIGIT 00954 M00S00944.comccdp +++| LX6 3 00955 M00S00945.comccdp +++| BX6 X6+X2 00956 M00S00946.comccdp +++| EQ EMO3 CONTINUE NUMBER CONVERSION 00957 M00S00947.comccdp +++| 00958 M00S00948.comccdp +++| EMO5 SA5 EMOB GET WORD TO CONVERT 00959 M00S00949.comccdp +++| SB7 B0+ 00960 M00S00950.comccdp +++| RJ DXB DISPLAY CODE TO BINARY CONVERSION 00961 M00S00951.comccdp +++| NZ X4,POCE IF ERROR 00962 M00S00952.comccdp +++| EMO6 SA1 ADR1 FWA STORE WORDS 00963 M00S00953.comccdp +++| SA2 ADR2 00964 M00S00954.comccdp +++| SB2 X1 ADR1 00965 M00S00955.comccdp +++| SB3 X2 ADR2 00966 M00S00956.comccdp +++| NG X1,EMO7 IF RANGE CHECK DISABLED 00967 M00S00957.comccdp +++| SB4 CDPS CHECK ALTERATION OF DEBUGGER 00968 M00S00958.comccdp +++| SB5 CDPE 00969 M00S00959.comccdp +++| LT B3,B4,EMO7 IF RANGE BELOW DEBUGGER 00970 M00S00960.comccdp +++| GE B2,B5,EMO7 IF RANGE ABOVE DEBUGGER 00971 M00S00961.comccdp +++| WRITEC O,EMMS ISSUE ERROR MESSAGE 00972 M00S00962.comccdp +++| EQ POCR RETURN 00973 M00S00963.comccdp +++| 00974 M00S00964.comccdp +++| EMO7 SA6 B2 00975 M00S00965.comccdp +++| SB2 B2+B1 00976 M00S00966.comccdp +++| LE B2,B3,EMO7 IF NOT ALL WORDS STORED 00977 M00S00967.comccdp +++| EQ POCR RETURN 00978 M00S00968.comccdp +++| 00979 M00S00969.comccdp +++| 00980 M00S00970.comccdp +++| EMOB BSSZ 2 CHARACTER BUFFER 00981 M00S00971.comccdp +++| EMOC CON 0 CHARACTER COUNT 00982 M00S00972.comccdp +++| 00983 M00S00973.comccdp +++| EMOD ZR X4,POCE IF NO NON-BLANK CHARACTERS 00984 M00S00974.comccdp +++| SX7 X4+ 00985 M00S00975.comccdp +++| 00986 M00S00976.comccdp +++| EMMS DATA C* THIS WOULD DESTROY DEBUGGER.* 00987 M00S00977.comccdp +++| ERE SPACE 4,10 00988 M00S00978.comccdp +++|*** EREXIT. 00989 M00S00979.comccdp +++|* SET ERROR EXIT ADDRESS FOR CDP PROCESSING. 00990 M00S00980.comccdp +++| 00991 M00S00981.comccdp +++| 00992 M00S00982.comccdp +++|** ERE - SET ERROR EXIT PROCESSING. 00993 M00S00983.comccdp +++| 00994 M00S00984.comccdp +++| 00995 M00S00985.comccdp +++| ERE BSS 0 ENTRY 00996 M00S00986.comccdp +++| EREXIT XIT 00997 M00S00987.comccdp +++| EQ POCR RETURN 00998 M00S00988.comccdp +++| FIL SPACE 4,15 00999 M00S00989.comccdp +++|*** FILE,X,AAAAAAA. 01000 M00S00990.comccdp +++|* SET FILE TYPE X NAME TO AAAAAAA. 01001 M00S00991.comccdp +++|* X MAY BE ANY 1-7 CHARACTERS STARTING WITH - 01002 M00S00992.comccdp +++|* I TO SET INPUT FILE NAME. (DEFAULT *INPUT*) 01003 M00S00993.comccdp +++|* L TO SET LIST FILE NAME. (DEFAULT *OUTPUT*) 01004 M00S00994.comccdp +++|* D TO SET DUMP FILE NAME. (DEFAULT *DUMP*) 01005 M00S00995.comccdp +++|* RESETTING THE INPUT FILE NAME WILL CAUSE *CDP* TO IMMEDIATELY 01006 M00S00996.comccdp +++|* BEGIN READING AND PROCESSING COMMANDS FROM THE NEW FILE. 01007 M00S00997.comccdp +++| 01008 M00S00998.comccdp +++| 01009 M00S00999.comccdp +++|** FIL - SET FILE NAME. 01010 M00S01000.comccdp +++| 01011 M00S01001.comccdp +++| 01012 M00S01002.comccdp +++| FIL BSS 0 ENTRY 01013 M00S01003.comccdp +++| SA1 POCB CHECK COMPOUND ARGUMENTS 01014 M00S01004.comccdp +++| SA2 A1+B1 01015 M00S01005.comccdp +++| BX2 X1+X2
| Line S01006 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01016 M01S01006.v23l617 ---| NZ X2,POCE IF ILLEGAL ARGUMENT
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01017 M01S00010.v23l617 +++| NZ X2,POCE IF INCORRECT ARGUMENT 01018 M00S01007.comccdp +++| SA1 UOC+1 IDENTIFY FILE TYPE 01019 M00S01008.comccdp +++| SX0 77B 01020 M00S01009.comccdp +++| LX1 6 01021 M00S01010.comccdp +++| BX6 X0*X1 01022 M00S01011.comccdp +++| SB2 X6-1RI 01023 M00S01012.comccdp +++| SB3 I 01024 M00S01013.comccdp +++| ZR B2,FIL1 IF INPUT FILE 01025 M00S01014.comccdp +++| SB2 X6-1RL 01026 M00S01015.comccdp +++| SB3 O 01027 M00S01016.comccdp +++| ZR B2,FIL1 IF LIST FILE 01028 M00S01017.comccdp +++| SB2 X6-1RD 01029 M00S01018.comccdp +++| SB3 D 01030 M00S01019.comccdp +++| NZ B2,POCE IF NOT DUMP FILE 01031 M00S01020.comccdp +++| FIL1 SA1 B3 SET FET 01032 M00S01021.comccdp +++| SA2 UOC+2 01033 M00S01022.comccdp +++| MX0 7*6 01034 M00S01023.comccdp +++| BX6 -X0*X1 01035 M00S01024.comccdp +++| BX7 X0*X2 01036 M00S01025.comccdp +++| BX6 X6+X7 01037 M00S01026.comccdp +++| SA6 A1 01038 M00S01027.comccdp +++| SB3 B3-O 01039 M00S01028.comccdp +++| NZ B3,POCR IF NOT OUTPUT FILE 01040 M00S01029.comccdp +++| SX1 O RESET FET POINTER 01041 M00S01030.comccdp +++| BX7 X7+X1 01042 M00S01031.comccdp +++| SA7 B1+B1 01043 M00S01032.comccdp +++| EQ POCR RETURN 01044 M00S01033.comccdp +++| RFL SPACE 4,10 01045 M00S01034.comccdp +++|*** FL. 01046 M00S01035.comccdp +++|* RETURN CURRENT FIELD LENGTH. 01047 M00S01036.comccdp +++| 01048 M00S01037.comccdp +++| 01049 M00S01038.comccdp +++|*** FL,NNNNNN. 01050 M00S01039.comccdp +++|* SET FIELD LENGTH. 01051 M00S01040.comccdp +++| 01052 M00S01041.comccdp +++| 01053 M00S01042.comccdp +++|** RFL - SET/RETURN FIELD LENGTH. 01054 M00S01043.comccdp +++| 01055 M00S01044.comccdp +++| 01056 M00S01045.comccdp +++| RFL BSS 0 ENTRY 01057 M00S01046.comccdp +++| NZ B4,RFL1 IF *SET FIELD LENGTH* 01058 M00S01047.comccdp +++| SX7 0 01059 M00S01048.comccdp +++| SA7 RFLA 01060 M00S01049.comccdp +++| MEMORY CM,A7,R 01061 M00S01050.comccdp +++| SA1 A7 CONVERT FIELD LENGTH 01062 M00S01051.comccdp +++| AX1 30 01063 M00S01052.comccdp +++| RJ COD 01064 M00S01053.comccdp +++| SA1 RFLB SET MESSAGE 01065 M00S01054.comccdp +++| MX0 60-36 01066 M00S01055.comccdp +++| BX6 -X0*X6 01067 M00S01056.comccdp +++| BX7 X1+X6 01068 M00S01057.comccdp +++| SA7 RFLC 01069 M00S01058.comccdp +++| WRITEC O,A7 01070 M00S01059.comccdp +++| EQ POCR RETURN 01071 M00S01060.comccdp +++| 01072 M00S01061.comccdp +++| RFL1 BX5 X6 SAVE FIELD LENGTH DESIGNATION 01073 M00S01062.comccdp +++| LX6 30 01074 M00S01063.comccdp +++| SA6 RFLC 01075 M00S01064.comccdp +++| SETRFL X5 SET FIELD LENGTH 01076 M00S01065.comccdp +++| MEMORY CM,RFLC,R 01077 M00S01066.comccdp +++| EQ POCR RETURN 01078 M00S01067.comccdp +++| 01079 M00S01068.comccdp +++| 01080 M00S01069.comccdp +++| RFLA CON 0 01081 M00S01070.comccdp +++| RFLB CON 4L FL 01082 M00S01071.comccdp +++| RFLC CON 0 01083 M00S01072.comccdp +++| CON 0 01084 M00S01073.comccdp +++| MOD SPACE 4,10 01085 M00S01074.comccdp +++|*** MODE. 01086 M00S01075.comccdp +++|* RETURN CURRENT EXIT MODE. 01087 M00S01076.comccdp +++| 01088 M00S01077.comccdp +++| 01089 M00S01078.comccdp +++|*** MODE,N. 01090 M00S01079.comccdp +++|* SET EXIT MODE TO N. 01091 M00S01080.comccdp +++| 01092 M00S01081.comccdp +++| 01093 M00S01082.comccdp +++|** MOD - SET/RETURN EXIT MODE. 01094 M00S01083.comccdp +++| 01095 M00S01084.comccdp +++| 01096 M00S01085.comccdp +++| MOD BSS 0 ENTRY 01097 M00S01086.comccdp +++| NZ B4,MOD1 IF *SET EXIT MODE* 01098 M00S01087.comccdp +++| GETEM MODA GET EXIT MODE 01099 M00S01088.comccdp +++| SA1 MODA CONVERT MODE 01100 M00S01089.comccdp +++| RJ COD 01101 M00S01090.comccdp +++| SA1 MODB SET MESSAGE 01102 M00S01091.comccdp +++| MX0 60-6 01103 M00S01092.comccdp +++| BX6 -X0*X6 01104 M00S01093.comccdp +++| LX6 5*6 01105 M00S01094.comccdp +++| BX7 X1+X6 01106 M00S01095.comccdp +++| SA7 MODA 01107 M00S01096.comccdp +++| WRITEC O,A7 01108 M00S01097.comccdp +++| EQ POCR RETURN 01109 M00S01098.comccdp +++| 01110 M00S01099.comccdp +++| MOD1 SX7 X6-10B VERIFY MODE NUMBER 01111 M00S01100.comccdp +++| PL X7,POCE IF MODE TOO HIGH 01112 M00S01101.comccdp +++| MODE X6 SET EXIT MODE 01113 M00S01102.comccdp +++| EQ POCR RETURN 01114 M00S01103.comccdp +++| 01115 M00S01104.comccdp +++| 01116 M00S01105.comccdp +++| MODA CON 0 01117 M00S01106.comccdp +++| MODB CON 4L EM 01118 M00S01107.comccdp +++| STP SPACE 4,10 01119 M00S01108.comccdp +++|*** P. 01120 M00S01109.comccdp +++|* LIST *P* REGISTER CONTENTS. 01121 M00S01110.comccdp +++| 01122 M00S01111.comccdp +++| 01123 M00S01112.comccdp +++|*** P,NNNNNN. 01124 M00S01113.comccdp +++|* SET *P* REGISTER TO NNNNNN. 01125 M00S01114.comccdp +++| 01126 M00S01115.comccdp +++| 01127 M00S01116.comccdp +++|** STP - LIST/SET P. 01128 M00S01117.comccdp +++| 01129 M00S01118.comccdp +++| 01130 M00S01119.comccdp +++| STP BSS 0 ENTRY 01131 M00S01120.comccdp +++| ZR B4,STP1 IF LIST P 01132 M00S01121.comccdp +++| SA6 REGP SET *P* REGISTER 01133 M00S01122.comccdp +++| SA1 STPA SET PROPER RETURN ADDRESS 01134 M00S01123.comccdp +++| BX6 X1+X6 01135 M00S01124.comccdp +++| LX6 30 01136 M00S01125.comccdp +++| SA6 CDPX 01137 M00S01126.comccdp +++| EQ POCR RETURN 01138 M00S01127.comccdp +++| 01139 M00S01128.comccdp +++| STP1 SA1 REGP READ *P* REGISTER 01140 M00S01129.comccdp +++| RJ COD CONVERT *P* 01141 M00S01130.comccdp +++| MX5 3*6 01142 M00S01131.comccdp +++| SA1 STPB LIST (P) 01143 M00S01132.comccdp +++| BX6 -X5*X6 01144 M00S01133.comccdp +++| BX7 X1+X6 01145 M00S01134.comccdp +++| SX6 B0 01146 M00S01135.comccdp +++| SA7 LRCC 01147 M00S01136.comccdp +++| SA6 A7+B1 01148 M00S01137.comccdp +++| WRITEC O,LRCC 01149 M00S01138.comccdp +++| EQ POCR RETURN 01150 M00S01139.comccdp +++| 01151 M00S01140.comccdp +++| 01152 M00S01141.comccdp +++| STPA NO 01153 M00S01142.comccdp +++| NO 01154 M00S01143.comccdp +++| EQ 0 01155 M00S01144.comccdp +++| 01156 M00S01145.comccdp +++| STPB CON 3L P 01157 M00S01146.comccdp +++| LRC SPACE 4,10 01158 M00S01147.comccdp +++|*** R. 01159 M00S01148.comccdp +++|* LIST REGISTER CONTENTS. 01160 M00S01149.comccdp +++| 01161 M00S01150.comccdp +++| 01162 M00S01151.comccdp +++|** LRC - LIST REGISTER CONTENTS. 01163 M00S01152.comccdp +++| 01164 M00S01153.comccdp +++| 01165 M00S01154.comccdp +++| LRC BSS 0 ENTRY 01166 M00S01155.comccdp +++| SA0 O SET LIST FILE 01167 M00S01156.comccdp +++| LRC1 SA1 REGP READ *P* REGISTER 01168 M00S01157.comccdp +++| RJ COD CONVERT *P* 01169 M00S01158.comccdp +++| MX5 3*6 01170 M00S01159.comccdp +++| SA1 LRCG LIST (P) 01171 M00S01160.comccdp +++| BX6 -X5*X6 01172 M00S01161.comccdp +++| BX7 X1+X6 01173 M00S01162.comccdp +++| SX6 B0 01174 M00S01163.comccdp +++| SA7 LRCC 01175 M00S01164.comccdp +++| SA6 A7+B1 01176 M00S01165.comccdp +++| WRITEC A0,LRCC 01177 M00S01166.comccdp +++| SB5 0 INITIALIZE REGISTER INDEX 01178 M00S01167.comccdp +++| LRC2 SA1 REGA+B5 READ *A* REGISTER CONTENTS 01179 M00S01168.comccdp +++| RJ WOD CONVERT CONTENTS TO DISPLAY 01180 M00S01169.comccdp +++| RJ SFZ CONVERT LEADING DISPLAY ZEROS TO BLANKS 01181 M00S01170.comccdp +++| MX0 -36 01182 M00S01171.comccdp +++| SX2 B5 01183 M00S01172.comccdp +++| SA1 LRCA REGISTER NAME 01184 M00S01173.comccdp +++| LX2 42 01185 M00S01174.comccdp +++| BX6 -X0*X7 01186 M00S01175.comccdp +++| IX1 X1+X2 01187 M00S01176.comccdp +++| BX6 X1+X6 01188 M00S01177.comccdp +++| SA6 LRCC SET *A* CONTENTS 01189 M00S01178.comccdp +++| SA1 REGB+B5 READ *B* REGISTER CONTENTS 01190 M00S01179.comccdp +++| RJ WOD CONVERT CONTENTS TO DISPLAY 01191 M00S01180.comccdp +++| RJ SFZ CONVERT LEADING DISPLAY ZEROS TO BLANKS 01192 M00S01181.comccdp +++| SX2 B5+ 01193 M00S01182.comccdp +++| SA1 LRCB REGISTER NAME 01194 M00S01183.comccdp +++| MX0 -36 01195 M00S01184.comccdp +++| LX2 42 01196 M00S01185.comccdp +++| BX6 -X0*X7 01197 M00S01186.comccdp +++| IX1 X1+X2 01198 M00S01187.comccdp +++| BX6 X1+X6 01199 M00S01188.comccdp +++| SA6 LRCD SET *B* CONTENTS 01200 M00S01189.comccdp +++| SX5 B5 SAVE INDEX 01201 M00S01190.comccdp +++| WRITEC A0,LRCC LIST *A* AND *B* 01202 M00S01191.comccdp +++| SB5 X5+B1 ADVANCE REGISTER INDEX 01203 M00S01192.comccdp +++| SB6 B5-8 01204 M00S01193.comccdp +++| NZ B6,LRC2 IF NOT DONE WITH *A* AND *B* REGISTERS 01205 M00S01194.comccdp +++| SB5 0 01206 M00S01195.comccdp +++| SA2 LRCE * X0 * 01207 M00S01196.comccdp +++| BX6 X2 01208 M00S01197.comccdp +++| SA6 A2+B1 SET REGISTER TAG 01209 M00S01198.comccdp +++| LRC3 SA1 REGX+B5 READ *X* REGISTER CONTENTS 01210 M00S01199.comccdp +++| RJ OCB CONVERT OCTAL BY BYTES 01211 M00S01200.comccdp +++| SA1 REGX+B5 SET CHARACTER INTERPRETATION 01212 M00S01201.comccdp +++| RJ ZTB 01213 M00S01202.comccdp +++| SA6 A6+B1 01214 M00S01203.comccdp +++| SX5 B5 SAVE REGISTER INDEX 01215 M00S01204.comccdp +++| WRITEC A0,LRCF LIST *X* REGISTER CONTENTS 01216 M00S01205.comccdp +++| SB5 X5+B1 ADVANCE REGISTER INDEX 01217 M00S01206.comccdp +++| SA2 LRCF ADVANCE TAG 01218 M00S01207.comccdp +++| MX0 60-1 01219 M00S01208.comccdp +++| SB6 B5-8 01220 M00S01209.comccdp +++| LX0 6*2 01221 M00S01210.comccdp +++| IX6 X2-X0 01222 M00S01211.comccdp +++| SA6 A2+ 01223 M00S01212.comccdp +++| NZ B6,LRC3 IF NOT DONE WITH *X* REGISTERS 01224 M00S01213.comccdp +++| SX0 A0 01225 M00S01214.comccdp +++| SX1 O 01226 M00S01215.comccdp +++| BX7 X0-X1 01227 M00S01216.comccdp +++| ZR X7,POCR IF LIST FILE *OUTPUT* 01228 M00S01217.comccdp +++| WRITER A0,R END RECORD 01229 M00S01218.comccdp +++| EQ POCR RETURN 01230 M00S01219.comccdp +++| 01231 M00S01220.comccdp +++| 01232 M00S01221.comccdp +++| LRCA CON 4L A0 01233 M00S01222.comccdp +++| LRCB CON 4L B0 01234 M00S01223.comccdp +++| LRCC CON 0 01235 M00S01224.comccdp +++| LRCD CON 0 01236 M00S01225.comccdp +++| CON 0 01237 M00S01226.comccdp +++| LRCE CON 10H X0 01238 M00S01227.comccdp +++| LRCF CON 0 01239 M00S01228.comccdp +++| CON 0 01240 M00S01229.comccdp +++| CON 0 01241 M00S01230.comccdp +++| CON 0 01242 M00S01231.comccdp +++| CON 0 01243 M00S01232.comccdp +++| CON 0 01244 M00S01233.comccdp +++| LRCG CON 3L P 01245 M00S01234.comccdp +++| STL SPACE 4,10 01246 M00S01235.comccdp +++|*** SETTL,NNNN. 01247 M00S01236.comccdp +++|* SET CPU TIME LIMIT TO NNNN SECONDS. 01248 M00S01237.comccdp +++| 01249 M00S01238.comccdp +++| 01250 M00S01239.comccdp +++|** STL - SET TIME LIMIT. 01251 M00S01240.comccdp +++| 01252 M00S01241.comccdp +++| 01253 M00S01242.comccdp +++| STL BSS 0 ENTRY 01254 M00S01243.comccdp +++| SETTL X6 SET TIME LIMIT 01255 M00S01244.comccdp +++| EQ POCR RETURN 01256 M00S01245.comccdp +++| LXR SPACE 4,20 01257 M00S01246.comccdp +++|*** X,N. 01258 M00S01247.comccdp +++|* LIST CONTENTS OF *X* REGISTER N. 01259 M00S01248.comccdp +++| 01260 M00S01249.comccdp +++| 01261 M00S01250.comccdp +++|*** X,N.CCCCCCCCCCCCCCCCCCCC. 01262 M00S01251.comccdp +++|* ENTER *X* REGISTER N WITH CONTENTS CCC---CCC. 01263 M00S01252.comccdp +++|* IF CCC---CCC CONTAINS 11 TO 20 NON-BLANK CHARACTERS, 01264 M00S01253.comccdp +++|* IT MUST BE OCTAL. IF CCC---CCC IS 10 OR LESS NON-BLANK 01265 M00S01254.comccdp +++|* CHARACTERS, OCTAL BASE IS ASSUMED, HOWEVER, A POST RADIX 01266 M00S01255.comccdp +++|* B (OCTAL) OR D (DECIMAL) MAY BE SPECIFIED, AND THE PRESENCE 01267 M00S01256.comccdp +++|* OF AN 8 OR 9 WILL FORCE DECIMAL BASE. WITH THE EXCEPTION 01268 M00S01257.comccdp +++|* OF THE POST RADIX AND BLANKS, CCC---CCC MAY NOT CONTAIN 01269 M00S01258.comccdp +++|* NON-DIGIT CHARACTERS, INCLUDING ARITHMETIC OPERATORS AND 01270 M00S01259.comccdp +++|* SYMBOLIC VALUES. 01271 M00S01260.comccdp +++| 01272 M00S01261.comccdp +++| 01273 M00S01262.comccdp +++|** LXR - LIST/SET *X* REGISTER CONTENTS. 01274 M00S01263.comccdp +++| 01275 M00S01264.comccdp +++| 01276 M00S01265.comccdp +++| LXR BSS 0 ENTRY
| Line S01266 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01277 M01S01266.v23l617 ---| SX7 X6-8 CHECK ILLEGAL NUMBER
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01278 M01S00011.v23l617 +++| SX7 X6-8 CHECK INCORRECT NUMBER 01279 M00S01267.comccdp +++| PL X7,POCE IF NUMBER .GT. 7 01280 M00S01268.comccdp +++| SA6 LXRB 01281 M00S01269.comccdp +++| SX6 X6+REGX SET MEMORY ADDRESS 01282 M00S01270.comccdp +++| MX0 1 DISABLE ADDRESS RANGE CHECK 01283 M00S01271.comccdp +++| BX6 X0+X6 01284 M00S01272.comccdp +++| SA6 ADR1 01285 M00S01273.comccdp +++| SA6 A6+B1 01286 M00S01274.comccdp +++| SA1 LXRA SET RETURN CODE FOR LIST *X* REGISTER 01287 M00S01275.comccdp +++| BX6 X1 01288 M00S01276.comccdp +++| SA6 EMOA 01289 M00S01277.comccdp +++| EQ EMO1 CHECK FINAL PARAMETER 01290 M00S01278.comccdp +++| 01291 M00S01279.comccdp +++|* LIST *X* REGISTER CONTENTS. 01292 M00S01280.comccdp +++| 01293 M00S01281.comccdp +++| LXR1 SA3 LXRB REGISTER NUMBER 01294 M00S01282.comccdp +++| SA2 LRCE READ REGISTER TAG 01295 M00S01283.comccdp +++| SB5 X3 01296 M00S01284.comccdp +++| LX3 6*2 01297 M00S01285.comccdp +++| SA1 REGX+B5 READ REGISTER CONTENTS 01298 M00S01286.comccdp +++| IX6 X2+X3 FORM REGISTER NAME 01299 M00S01287.comccdp +++| SA6 A2+B1 01300 M00S01288.comccdp +++| RJ OCB CONVERT REGISTER CONTENTS 01301 M00S01289.comccdp +++| SA1 REGX+B5 SET CHARACTER INTERPRETATION 01302 M00S01290.comccdp +++| RJ ZTB 01303 M00S01291.comccdp +++| SA6 A6+B1 01304 M00S01292.comccdp +++| MX7 0 TERMINATE LINE 01305 M00S01293.comccdp +++| SA7 A6+1 01306 M00S01294.comccdp +++| WRITEC O,LRCF LIST REGISTER CONTENTS 01307 M00S01295.comccdp +++| EQ POCR RETURN 01308 M00S01296.comccdp +++| 01309 M00S01297.comccdp +++| 01310 M00S01298.comccdp +++| LXRA ZR X4,LXR1 IF NO NON-BLANK CHARACTERS 01311 M00S01299.comccdp +++| SX7 X4+ 01312 M00S01300.comccdp +++| 01313 M00S01301.comccdp +++| LXRB CON 0 REGISTER NUMBER 01314 M00S01302.comccdp +++| TITLE COMCCDP - CPU DEBUGGING PACKAGE - SUBROUTINES. 01315 M00S01303.comccdp +++| ASC SPACE 4,35 01316 M00S01304.comccdp +++|** ASC - ASSEMBLE CHARACTERS. 01317 M00S01305.comccdp +++|* 01318 M00S01306.comccdp +++|* ENTRY (A5) = ADDRESS OF WORD CONTAINING NEXT CHARACTER TO 01319 M00S01307.comccdp +++|* BE ASSEMBLED. 01320 M00S01308.comccdp +++|* (X0) = NUMBER OF CHARACTERS TO ASSEMBLE. 01321 M00S01309.comccdp +++|* (X3) = DELIMITER DISPLAY CODE OR POSITIONAL BIT 01322 M00S01310.comccdp +++|* TERMINATOR MASK. 01323 M00S01311.comccdp +++|* (X5) = REMAINING CHARACTERS TO BE ASSEMBLED FROM 01324 M00S01312.comccdp +++|* THIS WORD, LEFT-JUSTIFIED, ZERO FILLED. 01325 M00S01313.comccdp +++|* (B3) = NUMBER OF CHARACTERS REMAINING IN X5. 01326 M00S01314.comccdp +++|* (B6) = LWA+1 INPUT LINE. 01327 M00S01315.comccdp +++|* (B7) .LT. 0, IF NO CHECK FOR DELIMITER OR TERMINATOR, 01328 M00S01316.comccdp +++|* AND NO BLANK SUPPRESSION. 01329 M00S01317.comccdp +++|* (B7) .EQ. 0, IF CHECK FOR DELIMITER (DISPLAY CODE 01330 M00S01318.comccdp +++|* DELIMITER IN X3), AND NO BLANK SUPPRESSION. 01331 M00S01319.comccdp +++|* (B7) .GT. 0, IF CHECK FOR TERMINATOR (POSITIONAL BIT 01332 M00S01320.comccdp +++|* TERMINATOR MASK IN X3), AND BLANK SUPPRESSION. 01333 M00S01321.comccdp +++|* 01334 M00S01322.comccdp +++|* EXIT (A5) = ADDRESS OF WORD CONTAINING NEXT CHARACTER TO 01335 M00S01323.comccdp +++|* BE ASSEMBLED. 01336 M00S01324.comccdp +++|* (X4) = NUMBER OF CHARACTERS ASSEMBLED. 01337 M00S01325.comccdp +++|* (X5) = REMAINING CHARACTERS AFTER ASSEMBLY. 01338 M00S01326.comccdp +++|* (X6) = ASSEMBLED CHARACTERS, LEFT-JUSTIFIED, 01339 M00S01327.comccdp +++|* ZERO FILLED. 01340 M00S01328.comccdp +++|* (X7) = ASSEMBLED CHARACTERS, RIGHT-JUSTIFIED, 01341 M00S01329.comccdp +++|* ZERO FILLED. 01342 M00S01330.comccdp +++|* (B3) = NUMBER OF CHARACTERS REMAINING IN X5. 01343 M00S01331.comccdp +++|* (B6) .LT. 0, IF END OF LINE, FINAL DELIMITER, OR 01344 M00S01332.comccdp +++|* TERMINATOR ENCOUNTERED, OTHERWISE UNCHANGED. 01345 M00S01333.comccdp +++|* 01346 M00S01334.comccdp +++|* USES A - 1, 5, 6. 01347 M00S01335.comccdp +++|* B - 2, 3, 6. 01348 M00S01336.comccdp +++|* X - 0, 1, 2, 4, 5, 6, 7. 01349 M00S01337.comccdp +++| 01350 M00S01338.comccdp +++| 01351 M00S01339.comccdp +++| ASC5 SB6 -1 01352 M00S01340.comccdp +++| ASC6 SA1 ASCA 01353 M00S01341.comccdp +++| SX2 6 01354 M00S01342.comccdp +++| IX4 X1-X0 01355 M00S01343.comccdp +++| IX1 X4*X2 01356 M00S01344.comccdp +++| BX1 -X1 01357 M00S01345.comccdp +++| SB2 X1+60 01358 M00S01346.comccdp +++| LX6 X7,B2 01359 M00S01347.comccdp +++| 01360 M00S01348.comccdp +++| ASC SUBR ENTRY/EXIT 01361 M00S01349.comccdp +++| MX4 -6 01362 M00S01350.comccdp +++| SX6 X0+ 01363 M00S01351.comccdp +++| BX7 X7-X7 01364 M00S01352.comccdp +++| SA6 ASCA 01365 M00S01353.comccdp +++| ZR X5,ASC4 IF NO MORE CHARACTERS IN THIS WORD 01366 M00S01354.comccdp +++| ASC1 ZR X0,ASC6 IF ASSEMBLY COMPLETE 01367 M00S01355.comccdp +++| LX5 6 01368 M00S01356.comccdp +++| BX2 -X4*X5 01369 M00S01357.comccdp +++| BX5 X5-X2 01370 M00S01358.comccdp +++| SB3 B3-B1 01371 M00S01359.comccdp +++| LT B7,ASC3 IF NO CHECK FOR DELIMITER/TERMINATOR 01372 M00S01360.comccdp +++| NZ B7,ASC2 IF POSITIONAL BIT TERMINATOR MASK 01373 M00S01361.comccdp +++| IX1 X2-X3 01374 M00S01362.comccdp +++| NZ X1,ASC3 IF NOT FINAL DELIMITER 01375 M00S01363.comccdp +++| EQ ASC5 SET EXIT CONDITIONS 01376 M00S01364.comccdp +++| 01377 M00S01365.comccdp +++| ASC2 SX1 X2-1R 01378 M00S01366.comccdp +++| ZR X1,ASC4 IF BLANK 01379 M00S01367.comccdp +++| SB2 X2 01380 M00S01368.comccdp +++| LX1 X3,B2 01381 M00S01369.comccdp +++| NG X1,ASC5 IF TERMINATOR ENCOUNTERED 01382 M00S01370.comccdp +++| ASC3 LX7 6 01383 M00S01371.comccdp +++| BX7 X7+X2 01384 M00S01372.comccdp +++| SX0 X0-1 01385 M00S01373.comccdp +++| ASC4 NZ X5,ASC1 IF WORD NOT EXHAUSTED 01386 M00S01374.comccdp +++| SB2 A5+B1 01387 M00S01375.comccdp +++| SA1 B2 01388 M00S01376.comccdp +++| EQ B2,B6,ASC5 IF END OF LINE 01389 M00S01377.comccdp +++| ZR X1,ASC5 IF END OF LINE 01390 M00S01378.comccdp +++| NZ B3,ASC1 IF ZERO CHARACTER TO PACK 01391 M00S01379.comccdp +++| SB3 10 01392 M00S01380.comccdp +++| SA5 B2 01393 M00S01381.comccdp +++| EQ ASC1 CONTINUE CHARACTER ASSEMBLY 01394 M00S01382.comccdp +++| 01395 M00S01383.comccdp +++| 01396 M00S01384.comccdp +++|ASCA CON 0 NUMBER OF CHARACTERS TO ASSEMBLE 01397 M00S01385.comccdp +++| BST SPACE 4,20 01398 M00S01386.comccdp +++|** BST - BINARY SEARCH TABLE. 01399 M00S01387.comccdp +++|* 01400 M00S01388.comccdp +++|* ENTRY (X1)= CRITERION. 01401 M00S01389.comccdp +++|* (X2)= MASK. 01402 M00S01390.comccdp +++|* (B2)= FWA OF TABLE. 01403 M00S01391.comccdp +++|* (B3)= LENGTH OF TABLE. 01404 M00S01392.comccdp +++|* 01405 M00S01393.comccdp +++|* EXIT (X1)= CRITERION. 01406 M00S01394.comccdp +++|* (X2)= MASK. 01407 M00S01395.comccdp +++|* (X3)= 0 IF ENTRY NOT FOUND. 01408 M00S01396.comccdp +++|* = ENTRY IF FOUND. 01409 M00S01397.comccdp +++|* (A3)= ADDRESS OF FOUND ENTRY. 01410 M00S01398.comccdp +++|* 01411 M00S01399.comccdp +++|* USES A - 3. 01412 M00S01400.comccdp +++|* B - 2, 3. 01413 M00S01401.comccdp +++|* X - 3, 4, 6. 01414 M00S01402.comccdp +++| 01415 M00S01403.comccdp +++| 01416 M00S01404.comccdp +++| BST3 SX3 0 RETURN *NOT FOUND* 01417 M00S01405.comccdp +++| 01418 M00S01406.comccdp +++| BST SUBR ENTRY/EXIT 01419 M00S01407.comccdp +++| SB3 B2+B3 SET LWA+1 OF TABLE 01420 M00S01408.comccdp +++| SX3 B0 01421 M00S01409.comccdp +++| EQ BST2 ENTER LOOP 01422 M00S01410.comccdp +++| 01423 M00S01411.comccdp +++| BST1 SB2 A3+ SET NEW LOW LIMIT 01424 M00S01412.comccdp +++| BST2 SX4 B3-B2 FIND MIDDLE 01425 M00S01413.comccdp +++| AX4 1 01426 M00S01414.comccdp +++| SA3 X4+B2 READ ENTRY 01427 M00S01415.comccdp +++| BX6 X2*X3 MASK ENTRY 01428 M00S01416.comccdp +++| IX6 X6-X1 COMPARE ENTRY WITH CRITERION 01429 M00S01417.comccdp +++| ZR X6,BSTX IF ENTRY FOUND 01430 M00S01418.comccdp +++| ZR X4,BST3 IF TABLE EXHAUSTED 01431 M00S01419.comccdp +++| NG X6,BST1 IF ENTRY .LT. CRITERION 01432 M00S01420.comccdp +++| SB3 A3 SET UPPER LIMIT 01433 M00S01421.comccdp +++| EQ BST2 CONTINUE SEARCH 01434 M00S01422.comccdp +++| CAD SPACE 4,20 01435 M00S01423.comccdp +++|** CAD - CONVERT ADDRESS. 01436 M00S01424.comccdp +++|* 01437 M00S01425.comccdp +++|* ENTRY (B1)= 1. 01438 M00S01426.comccdp +++|* (A5)= FWA OF UNPACKED ARGUMENT. 01439 M00S01427.comccdp +++|* (X5)= ((A5)). 01440 M00S01428.comccdp +++|* 01441 M00S01429.comccdp +++|* EXIT (B7)= CONVERSION. 01442 M00S01430.comccdp +++|* (A5)= LWA OF UNPACKED ARGUMENT. 01443 M00S01431.comccdp +++|* (B4)= 0 IF NOT A COMPOUND ARGUMENT. 01444 M00S01432.comccdp +++|* (NARG) ADVANCED BY ONE. 01445 M00S01433.comccdp +++|* 01446 M00S01434.comccdp +++|* USES A - 1, 2, 3, 5, 6, 7. 01447 M00S01435.comccdp +++|* B - 2, 3, 4, 7. 01448 M00S01436.comccdp +++|* X - 0, 1, 2, 3, 5, 6, 7. 01449 M00S01437.comccdp +++|* 01450 M00S01438.comccdp +++|* CALLS DXB, SST. 01451 M00S01439.comccdp +++| 01452 M00S01440.comccdp +++| 01453 M00S01441.comccdp +++| CAD SUBR ENTRY/EXIT 01454 M00S01442.comccdp +++| MX0 -6 EXTRACT SEPARATOR 01455 M00S01443.comccdp +++| BX6 -X0*X5 01456 M00S01444.comccdp +++| SB7 0 ASSUME OCTAL 01457 M00S01445.comccdp +++| SA6 CADA 01458 M00S01446.comccdp +++| RJ DXB CHECK FIRST SUB-ARGUMENT NUMERIC 01459 M00S01447.comccdp +++| ZR X4,CAD1 IF NUMERIC 01460 M00S01448.comccdp +++| SA1 A5+ CHECK SYMBOL IN TABLE 01461 M00S01449.comccdp +++| RJ SST 01462 M00S01450.comccdp +++| NZ X6,POCE IF NOT IN TABLE 01463 M00S01451.comccdp +++| SX6 X2+ VALUE OF SYMBOL 01464 M00S01452.comccdp +++| CAD1 SA1 CADA CHECK OPERATOR PRESENT 01465 M00S01453.comccdp +++| SA6 CADB STORE FIRST VALUE 01466 M00S01454.comccdp +++| SB2 X1-1R+ 01467 M00S01455.comccdp +++| SB3 X1-1R- 01468 M00S01456.comccdp +++| ZR B2,CAD2 IF + 01469 M00S01457.comccdp +++| NZ B3,CAD4 IF NOT - 01470 M00S01458.comccdp +++| CAD2 SA5 A5+1 READ SECOND SUB-ARGUMENT 01471 M00S01459.comccdp +++| RJ DXB CHECK SECOND SUB-ARGUMENT NUMERIC 01472 M00S01460.comccdp +++| ZR X4,CAD3 IF NUMERIC 01473 M00S01461.comccdp +++| SA1 A5+ CHECK SYMBOL IN TABLE 01474 M00S01462.comccdp +++| RJ SST 01475 M00S01463.comccdp +++| NZ X6,POCE IF NOT IN TABLE 01476 M00S01464.comccdp +++| SX6 X2+ VALUE OF SYMBOL 01477 M00S01465.comccdp +++| CAD3 SA6 CADC STORE VALUE OF SECOND SUB-ARGUMENT 01478 M00S01466.comccdp +++| CAD4 SA1 CADA COMPUTE FINAL VALUE 01479 M00S01467.comccdp +++| SA2 A1+B1 01480 M00S01468.comccdp +++| SA3 A2+B1 01481 M00S01469.comccdp +++| SB2 X1-1R+ 01482 M00S01470.comccdp +++| SB3 X1-1R- 01483 M00S01471.comccdp +++| SB4 1 01484 M00S01472.comccdp +++| ZR B2,CAD6 IF + 01485 M00S01473.comccdp +++| ZR B3,CAD5 IF - 01486 M00S01474.comccdp +++| BX3 X3-X3 01487 M00S01475.comccdp +++| SB4 B0 01488 M00S01476.comccdp +++| EQ CAD6 RETURN SIMPLE ARGUMENT 01489 M00S01477.comccdp +++| 01490 M00S01478.comccdp +++| CAD5 BX3 -X3 01491 M00S01479.comccdp +++| CAD6 IX6 X2+X3 01492 M00S01480.comccdp +++| SA1 NARG ADVANCE NUMBER OF ARGUMENTS 01493 M00S01481.comccdp +++| SB7 X6 01494 M00S01482.comccdp +++| SX7 X1+B1 01495 M00S01483.comccdp +++| SA7 A1 01496 M00S01484.comccdp +++| EQ CADX RETURN 01497 M00S01485.comccdp +++| 01498 M00S01486.comccdp +++| 01499 M00S01487.comccdp +++| CADA CON 0 OPERATOR 01500 M00S01488.comccdp +++| CADB CON 0 OPERAND 1 01501 M00S01489.comccdp +++| CADC CON 0 OPERAND 2 01502 M00S01490.comccdp +++| CCA SPACE 4,15 01503 M00S01491.comccdp +++|** CCA - CHECK FOR COMPOUND ARGUMENT. 01504 M00S01492.comccdp +++|* 01505 M00S01493.comccdp +++|* ENTRY (A1) = PREVIOUS ARGUMENT ADDRESS. 01506 M00S01494.comccdp +++|* (B2) = REMAINING ARGUMENT COUNT. 01507 M00S01495.comccdp +++|* (B3) = CUMMULATIVE SINGLE/COMPOUND ARGUMENT COUNT. 01508 M00S01496.comccdp +++|* 01509 M00S01497.comccdp +++|* EXIT (A1) = UPDATED ARGUMENT ADDRESS. 01510 M00S01498.comccdp +++|* (B2) = UPDATED REMAINING ARGUMENT COUNT. 01511 M00S01499.comccdp +++|* (B3) = UPDATED SINGLE/COMPOUND ARGUMENT COUNT.
| Line S01500 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01512 M01S01500.v23l617 ---|* (B6) .NE. 0, IF ILLEGAL SEPARATOR ENCOUNTERED.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01513 M01S00012.v23l617 +++|* (B6) .NE. 0, IF INCORRECT SEPARATOR ENCOUNTERED. 01514 M00S01501.comccdp +++|* (X6) .NE. 0, IF COMPOUND ARGUMENT PROCESSED. 01515 M00S01502.comccdp +++|* 01516 M00S01503.comccdp +++|* USES A - 1. 01517 M00S01504.comccdp +++|* B - 2, 3, 5, 6. 01518 M00S01505.comccdp +++|* X - 1, 6. 01519 M00S01506.comccdp +++| 01520 M00S01507.comccdp +++| 01521 M00S01508.comccdp +++| CCA SUBR ENTRY/EXIT 01522 M00S01509.comccdp +++| SB6 B0 01523 M00S01510.comccdp +++| BX6 X6-X6 01524 M00S01511.comccdp +++| ZR B2,CCAX IF NO MORE ARGUMENTS 01525 M00S01512.comccdp +++| SA1 A1+B1 01526 M00S01513.comccdp +++| SB3 B3+B1 01527 M00S01514.comccdp +++| SB5 X1-1R+ 01528 M00S01515.comccdp +++| SB2 B2-1 01529 M00S01516.comccdp +++| ZR B5,CCA1 IF + SEPARATES COMPOUND ARGUMENT 01530 M00S01517.comccdp +++| SB5 X1-1R- 01531 M00S01518.comccdp +++| NZ B5,CCAX IF NOT COMPOUND ARGUMENT 01532 M00S01519.comccdp +++| CCA1 SA1 A1+B1 01533 M00S01520.comccdp +++| SB2 B2-B1 01534 M00S01521.comccdp +++| SB5 X1-1R+ 01535 M00S01522.comccdp +++| SX6 B1+
| Line S01523 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01536 M01S01523.v23l617 ---| ZR B5,CCA2 IF ILLEGAL SEPARATOR
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01537 M01S00013.v23l617 +++| ZR B5,CCA2 IF INCORRECT SEPARATOR 01538 M00S01524.comccdp +++| SB5 X1-1R- 01539 M00S01525.comccdp +++| NZ B5,CCAX IF LEGAL SEPARATOR 01540 M00S01526.comccdp +++| CCA2 SB6 B1 01541 M00S01527.comccdp +++| EQ CCAX RETURN 01542 M00S01528.comccdp +++| FEC SPACE 4,15 01543 M00S01529.comccdp +++|** FEC - FIND END OF COMMAND. 01544 M00S01530.comccdp +++|* 01545 M00S01531.comccdp +++|* ENTRY (A5)= ADDRESS OF COMMAND. 01546 M00S01532.comccdp +++|* (X5)= ((A5)). 01547 M00S01533.comccdp +++|* (X3)= TERMINATOR MASK WORD. 01548 M00S01534.comccdp +++|* 01549 M00S01535.comccdp +++|* EXIT (A5)= ADDRESS OF WORD CONTAINING FIRST CHARACTER AFTER 01550 M00S01536.comccdp +++|* TERMINATOR. 01551 M00S01537.comccdp +++|* (X5) = REMAINING CHARACTERS AFTER TERMINATOR, LEFT- 01552 M00S01538.comccdp +++|* JUSTIFIED, ZERO FILLED. 01553 M00S01539.comccdp +++|* (B3) = NUMBER OF CHARACTERS REMAINING IN X5. 01554 M00S01540.comccdp +++|* 01555 M00S01541.comccdp +++|* USES A - 5. 01556 M00S01542.comccdp +++|* B - 2, 3. 01557 M00S01543.comccdp +++|* X - 0, 2, 5, 7. 01558 M00S01544.comccdp +++| 01559 M00S01545.comccdp +++| 01560 M00S01546.comccdp +++| FEC SUBR ENTRY/EXIT 01561 M00S01547.comccdp +++| MX0 -6 01562 M00S01548.comccdp +++| SB3 10 01563 M00S01549.comccdp +++| FEC1 LX5 6 NEXT CHARACTER 01564 M00S01550.comccdp +++| BX7 -X0*X5 PICK 1 CHARACTER 01565 M00S01551.comccdp +++| SB3 B3-B1 01566 M00S01552.comccdp +++| BX5 X5-X7 01567 M00S01553.comccdp +++| SB2 X7 01568 M00S01554.comccdp +++| LX2 X3,B2 CHECK FOR TERMINATOR 01569 M00S01555.comccdp +++| GT B3,FEC2 IF WORD NOT EXHAUSTED 01570 M00S01556.comccdp +++| SA5 A5+1 READ NEXT BUF WORD 01571 M00S01557.comccdp +++| SB3 10 01572 M00S01558.comccdp +++| FEC2 PL X2,FEC1 IF NOT TERMINATOR 01573 M00S01559.comccdp +++| EQ FECX RETURN 01574 M00S01560.comccdp +++| IBP SPACE 4,10 01575 M00S01561.comccdp +++|** IBP - INSERT BREAKPOINT INSTRUCTION. 01576 M00S01562.comccdp +++|* 01577 M00S01563.comccdp +++|* ENTRY (IBPA)= NEXT BREAKPOINT ADDRESS. 01578 M00S01564.comccdp +++|* (IBPA)= 0 IF NO BREAKPOINT NEXT. 01579 M00S01565.comccdp +++|* 01580 M00S01566.comccdp +++|* EXIT (WORD SPECIFIED IN IBPA)= *RJ CDP 0000000000* 01581 M00S01567.comccdp +++|* (RPBA)= ORIGINAL CONTENTS OF BREAKPOINT WORD. 01582 M00S01568.comccdp +++|* 01583 M00S01569.comccdp +++|* USES A - 1, 2, 3, 6, 7. 01584 M00S01570.comccdp +++|* X - 1, 2, 3, 6, 7. 01585 M00S01571.comccdp +++| 01586 M00S01572.comccdp +++| 01587 M00S01573.comccdp +++| IBP SUBR ENTRY/EXIT 01588 M00S01574.comccdp +++| SA1 IBPA 01589 M00S01575.comccdp +++| ZR X1,IBPX IF NO ADDRESS SET 01590 M00S01576.comccdp +++| SA2 IBPB READ INSTRUCTION 01591 M00S01577.comccdp +++| SA3 X1 READ CURRENT CONTENTS OF WORD 01592 M00S01578.comccdp +++| BX6 X2 01593 M00S01579.comccdp +++| LX7 X3 01594 M00S01580.comccdp +++| SA6 X1 STORE INSTRUCTION 01595 M00S01581.comccdp +++| SA7 RPBA SAVE CONTENTS 01596 M00S01582.comccdp +++| EQ IBPX RETURN 01597 M00S01583.comccdp +++| 01598 M00S01584.comccdp +++| 01599 M00S01585.comccdp +++| IBPA CON 0 NEXT BREAKPOINT ADDRESS 01600 M00S01586.comccdp +++| IBPB RJ CDP BREAKPOINT INSTRUCTION 01601 M00S01587.comccdp +++|- VFD 30/0 01602 M00S01588.comccdp +++| LCL SPACE 4,10 01603 M00S01589.comccdp +++|** LCL - LIST CURRENT LOCATION. 01604 M00S01590.comccdp +++|* 01605 M00S01591.comccdp +++|* ENTRY (SVRP)= CURRENT PROGRAM ADDRESS. 01606 M00S01592.comccdp +++|* 01607 M00S01593.comccdp +++|* USES A - 1, 6. 01608 M00S01594.comccdp +++|* X - 0, 1, 6. 01609 M00S01595.comccdp +++|* 01610 M00S01596.comccdp +++|* CALLS COD. 01611 M00S01597.comccdp +++|* 01612 M00S01598.comccdp +++|* MACROS WRITEC. 01613 M00S01599.comccdp +++| 01614 M00S01600.comccdp +++| 01615 M00S01601.comccdp +++| LCL SUBR ENTRY/EXIT 01616 M00S01602.comccdp +++| SA1 REGP READ *P* REGISTER 01617 M00S01603.comccdp +++| RJ COD CONVERT TO DISPLAY CODE 01618 M00S01604.comccdp +++| SA1 LCLA *BK * 01619 M00S01605.comccdp +++| MX0 3*6 01620 M00S01606.comccdp +++| BX6 -X0*X6 01621 M00S01607.comccdp +++| BX6 X1+X6 FORM *BP NNNNNN* 01622 M00S01608.comccdp +++| SA6 LCLB 01623 M00S01609.comccdp +++| WRITEC O,A6 LIST ADDRESS 01624 M00S01610.comccdp +++| EQ LCLX RETURN 01625 M00S01611.comccdp +++| 01626 M00S01612.comccdp +++| 01627 M00S01613.comccdp +++| LCLA CON 3L BK 01628 M00S01614.comccdp +++| LCLB CON 0 01629 M00S01615.comccdp +++| LCLC CON 0 01630 M00S01616.comccdp +++| OCB SPACE 4,15 01631 M00S01617.comccdp +++|** OCB - CONVERT OCTAL BY BYTES. 01632 M00S01618.comccdp +++|* 01633 M00S01619.comccdp +++|* ENTRY (X1) = WORD TO CONVERT. 01634 M00S01620.comccdp +++|* (A6) = BUFFER ADDRESS. 01635 M00S01621.comccdp +++|* 01636 M00S01622.comccdp +++|* EXIT (A6) = BUFFER ADDRESS ADVANCED. 01637 M00S01623.comccdp +++|* 01638 M00S01624.comccdp +++|* USES A - 1, 6, 7. 01639 M00S01625.comccdp +++|* X - ALL. 01640 M00S01626.comccdp +++|* 01641 M00S01627.comccdp +++|* CALLS WOD. 01642 M00S01628.comccdp +++| 01643 M00S01629.comccdp +++| 01644 M00S01630.comccdp +++| OCB SUBR ENTRY/EXIT 01645 M00S01631.comccdp +++| RJ WOD CONVERT WORD (ABCDEFGHIJ KLMNOPQRST) 01646 M00S01632.comccdp +++| SA1 OCBA 01647 M00S01633.comccdp +++| MX2 -2*6 01648 M00S01634.comccdp +++| BX5 -X2*X6 ........IJ 01649 M00S01635.comccdp +++| MX0 4*6 01650 M00S01636.comccdp +++| BX3 X0*X6 ABCD...... 01651 M00S01637.comccdp +++| LX0 -4*6 01652 M00S01638.comccdp +++| IX4 X1+X3 ABCD*....* 01653 M00S01639.comccdp +++| BX2 X0*X6 01654 M00S01640.comccdp +++| LX2 -6 .....EFGH. 01655 M00S01641.comccdp +++| BX6 X4+X2 ABCD*EFGH* 01656 M00S01642.comccdp +++| LX7 -4*6 QRSTKLMNOP 01657 M00S01643.comccdp +++| SA6 A6+B1 01658 M00S01644.comccdp +++| MX0 4*6 01659 M00S01645.comccdp +++| BX6 X0*X7 QRST...... 01660 M00S01646.comccdp +++| LX5 8*6 IJ........ 01661 M00S01647.comccdp +++| BX7 -X0*X7 ....KLMNOP 01662 M00S01648.comccdp +++| LX7 2*6 ..KLMONP.. 01663 M00S01649.comccdp +++| IX2 X5+X7 IJKLMNOP.. 01664 M00S01650.comccdp +++| BX3 X0*X2 IJKL...... 01665 M00S01651.comccdp +++| LX0 -4*6 01666 M00S01652.comccdp +++| IX4 X1+X3 IJKL*....* 01667 M00S01653.comccdp +++| BX5 X0*X2 ....MNOP.. 01668 M00S01654.comccdp +++| SA1 A1+B1 ....****** 01669 M00S01655.comccdp +++| LX5 -6 .....MNOP. 01670 M00S01656.comccdp +++| IX7 X4+X5 IJKL*MNOP* 01671 M00S01657.comccdp +++| BX6 X1+X6 QRST****** 01672 M00S01658.comccdp +++| SA7 A6+B1 01673 M00S01659.comccdp +++| SA6 A7+B1 01674 M00S01660.comccdp +++| EQ OCBX RETURN 01675 M00S01661.comccdp +++| 01676 M00S01662.comccdp +++| 01677 M00S01663.comccdp +++| OCBA VFD 24/0,6/1R ,24/0,6/1R 01678 M00S01664.comccdp +++| VFD 24/0,36/6H 01679 M00S01665.comccdp +++| RFP SPACE 4,10 01680 M00S01666.comccdp +++|** RFP - RESTORE FET POINTER WORD. 01681 M00S01667.comccdp +++|* 01682 M00S01668.comccdp +++|* ENTRY (SFPA)= PREVIOUS CONTENTS OF FET POINTER WORD. 01683 M00S01669.comccdp +++|* 01684 M00S01670.comccdp +++|* USES A - 1, 6. 01685 M00S01671.comccdp +++|* X - 1, 6. 01686 M00S01672.comccdp +++| 01687 M00S01673.comccdp +++| 01688 M00S01674.comccdp +++| RFP SUBR ENTRY/EXIT 01689 M00S01675.comccdp +++| SA1 SFPA 01690 M00S01676.comccdp +++| BX6 X1 01691 M00S01677.comccdp +++| SA1 SFPB GET *LIST OF FILES* ADDRESS 01692 M00S01678.comccdp +++| SA6 X1 01693 M00S01679.comccdp +++| EQ RFPX RETURN 01694 M00S01680.comccdp +++| RPB SPACE 4,10 01695 M00S01681.comccdp +++|** RPB - RESTORE PREVIOUS BREAKPOINT. 01696 M00S01682.comccdp +++|* 01697 M00S01683.comccdp +++|* ENTRY (SVRP)= ADDRESS OF PROGRAM BREAKPOINT. 01698 M00S01684.comccdp +++|* (RPBA)= CONTENTS OF BREAKPOINT WORD. 01699 M00S01685.comccdp +++|* 01700 M00S01686.comccdp +++|* USES A - 1, 2, 7. 01701 M00S01687.comccdp +++|* X - 1, 2, 7. 01702 M00S01688.comccdp +++| 01703 M00S01689.comccdp +++| 01704 M00S01690.comccdp +++| RPB SUBR ENTRY/EXIT 01705 M00S01691.comccdp +++| SA1 REGP READ *P* REGISTER 01706 M00S01692.comccdp +++| SA2 RPBA READ PREVIOUS CONTENTS OF WORD 01707 M00S01693.comccdp +++| BX7 X2 01708 M00S01694.comccdp +++| SA7 X1 RESTORE WORD 01709 M00S01695.comccdp +++| EQ RPBX RETURN 01710 M00S01696.comccdp +++| 01711 M00S01697.comccdp +++| 01712 M00S01698.comccdp +++| RPBA CON 0 CONTENTS OF BREAKPOINT WORD 01713 M00S01699.comccdp +++| RSR SPACE 4,10 01714 M00S01700.comccdp +++|** RSR - RESTORE ALL REGISTERS. 01715 M00S01701.comccdp +++|* 01716 M00S01702.comccdp +++|* ENTRY (SVRA-SVRX+7) = PREVIOUS REGISTER CONTENTS. 01717 M00S01703.comccdp +++|* 01718 M00S01704.comccdp +++|* EXIT ALL REGISTERS RESET TO ORIGINAL VALUE AS BEFORE 01719 M00S01705.comccdp +++|* BREAKPOINT. 01720 M00S01706.comccdp +++| 01721 M00S01707.comccdp +++| 01722 M00S01708.comccdp +++| RSR SUBR ENTRY/EXIT 01723 M00S01709.comccdp +++| MX0 18 01724 M00S01710.comccdp +++| SA5 REGX+5 X5 01725 M00S01711.comccdp +++| SB2 B0 01726 M00S01712.comccdp +++| SA2 RSRA 01727 M00S01713.comccdp +++| SX1 74B 01728 M00S01714.comccdp +++| BX7 -X1*X2 PRESET TO CORRECT SHIFT COUNT 01729 M00S01715.comccdp +++| PL X5,RSR1 IF (X5) POSITIVE 01730 M00S01716.comccdp +++| BX7 X7+X1 01731 M00S01717.comccdp +++| RSR1 SB4 8 01732 M00S01718.comccdp +++| SB1 1 01733 M00S01719.comccdp +++| LX0 33 01734 M00S01720.comccdp +++| SB3 B4-B1 01735 M00S01721.comccdp +++| SB4 B4+B3 01736 M00S01722.comccdp +++| MX4 0 01737 M00S01723.comccdp +++| RSR2 SA2 A2+B1 01738 M00S01724.comccdp +++| SA1 REGB+1+B2 01739 M00S01725.comccdp +++| IX6 X7+X4 01740 M00S01726.comccdp +++| BX4 -X0*X2 01741 M00S01727.comccdp +++| LX3 X1,B4 01742 M00S01728.comccdp +++| SB2 B2+B1 01743 M00S01729.comccdp +++| SA6 A2-B1 01744 M00S01730.comccdp +++| BX7 X0*X3 01745 M00S01731.comccdp +++| NE B2,B3,RSR2 IF MORE INSTRUCTIONS TO MODIFY 01746 M00S01732.comccdp +++| LX0 15 01747 M00S01733.comccdp +++| SA3 REGX X0 01748 M00S01734.comccdp +++| UX5 X5,B6 01749 M00S01735.comccdp +++| BX4 -X0*X2 01750 M00S01736.comccdp +++| LX7 15 01751 M00S01737.comccdp +++| SA1 A1+B1 A0 01752 M00S01738.comccdp +++| IX6 X7+X4 01753 M00S01739.comccdp +++| MX4 60 01754 M00S01740.comccdp +++| BX0 X3 X0 01755 M00S01741.comccdp +++| LX5 11 01756 M00S01742.comccdp +++| SB7 X4+777777B B7=-0 01757 M00S01743.comccdp +++| SA0 X1+B7 A0 01758 M00S01744.comccdp +++| UX5 X5,B5 01759 M00S01745.comccdp +++| SA1 REGA+6 A6 01760 M00S01746.comccdp +++| SA6 A2 01761 M00S01747.comccdp +++| LX5 11 01762 M00S01748.comccdp +++| SA2 A1+B1 A7 01763 M00S01749.comccdp +++| SA3 X1+B7 01764 M00S01750.comccdp +++| SA4 X2+B7 01765 M00S01751.comccdp +++| BX6 X3 01766 M00S01752.comccdp +++| SA3 REGA+1 A1 01767 M00S01753.comccdp +++| BX7 X4 01768 M00S01754.comccdp +++| SA6 X1+B7 A6 01769 M00S01755.comccdp +++| UX5 X5,B4 01770 M00S01756.comccdp +++| SA7 X2+B7 A7 01771 M00S01757.comccdp +++| LX5 11 01772 M00S01758.comccdp +++| SA2 REGX+6 X6 01773 M00S01759.comccdp +++| SA1 X3+B7 A1 01774 M00S01760.comccdp +++| BX6 X2 X6 01775 M00S01761.comccdp +++| UX5 X5,B3 01776 M00S01762.comccdp +++| SA3 REGX+7 X7 01777 M00S01763.comccdp +++| SA4 REGX+1 X1 01778 M00S01764.comccdp +++| LX5 11 01779 M00S01765.comccdp +++| BX7 X3 X7 01780 M00S01766.comccdp +++| SA2 REGA+2 A2 01781 M00S01767.comccdp +++| UX5 X5,B2 01782 M00S01768.comccdp +++| BX1 X4 X1 01783 M00S01769.comccdp +++| SA3 REGX+2 X2 01784 M00S01770.comccdp +++| LX5 11 01785 M00S01771.comccdp +++| SA2 X2+B7 A2 01786 M00S01772.comccdp +++| SA4 REGA+3 A3 01787 M00S01773.comccdp +++| UX5 X5,B1 01788 M00S01774.comccdp +++| BX2 X3 X2 01789 M00S01775.comccdp +++| SA3 X4+B7 A3 01790 M00S01776.comccdp +++| SA5 REGX+3 X3 01791 M00S01777.comccdp +++| NO 01792 M00S01778.comccdp +++| SA4 REGA+4 A4 01793 M00S01779.comccdp +++| BX3 X5 X3 01794 M00S01780.comccdp +++| SA5 REGX+4 X4 01795 M00S01781.comccdp +++| SA4 X4+B7 A4 01796 M00S01782.comccdp +++| NO 01797 M00S01783.comccdp +++| BX4 X5 X4 01798 M00S01784.comccdp +++| SA5 REGA+5 A5
| Line S01785 Modification History | |
|---|---|
M01 (Removed by) | ns2336 |
Seq # *Modification Id* Act ----------------------------+ 01799 M01S01785.ns2336 ---| RSRA SA5 X5+B7 A5
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2336 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01786.comccdp +++| NO 01804 M00S01787.comccdp +++| NO
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2336 |
Seq # *Modification Id* Act ----------------------------+ 01805 M01S00004.ns2336 +++| ERRNZ $-14 ASSUMES MASK IN LOWER 15 BITS 01806 M00S01788.comccdp +++| MX5 0 01807 M00S01789.comccdp +++|+ PX5 X5,B1 RESTORE B1-B7 AND X5 01808 M00S01790.comccdp +++| SB1 B7+0 01809 M00S01791.comccdp +++| LX5 49 01810 M00S01792.comccdp +++|+ PX5 X5,B2 01811 M00S01793.comccdp +++| SB2 B7+0 01812 M00S01794.comccdp +++| LX5 49 01813 M00S01795.comccdp +++|+ PX5 X5,B3 01814 M00S01796.comccdp +++| SB3 B7+0 01815 M00S01797.comccdp +++| LX5 49 01816 M00S01798.comccdp +++|+ PX5 X5,B4 01817 M00S01799.comccdp +++| SB4 B7+0 01818 M00S01800.comccdp +++| LX5 49 01819 M00S01801.comccdp +++|+ PX5 X5,B5 01820 M00S01802.comccdp +++| SB5 B7+0 01821 M00S01803.comccdp +++| LX5 49 01822 M00S01804.comccdp +++|+ PX5 X5,B6 01823 M00S01805.comccdp +++| SB6 B7+0 01824 M00S01806.comccdp +++| SB7 B7+0 01825 M00S01807.comccdp +++| EQ RSRX RETURN 01826 M00S01808.comccdp +++| SAD SPACE 4,20 01827 M00S01809.comccdp +++|** SAD - SET ADDRESSES. 01828 M00S01810.comccdp +++|* 01829 M00S01811.comccdp +++|* ENTRY (B4)= NUMBER OF COMMAND ARGUMENTS. 01830 M00S01812.comccdp +++|* (UOC+1 - UOC+2)= ADDRESS ARGUMENTS FROM COMMAND. 01831 M00S01813.comccdp +++|* (B1)= 1. 01832 M00S01814.comccdp +++|* (X6) = ADDRESS VALIDATION FLAGS, LEFT-JUSTIFIED. 01833 M00S01815.comccdp +++|* 01834 M00S01816.comccdp +++|* EXIT (ADR1)= FIRST ADDRESS. 01835 M00S01817.comccdp +++|* (ADR2)= SECOND ADDRESS. 01836 M00S01818.comccdp +++|* (X6)= FIRST ADDRESS. 01837 M00S01819.comccdp +++|* (B5)= SECOND ADDRESS. 01838 M00S01820.comccdp +++|* (B4)= NUMBER OF COMMAND ARGUMENTS. 01839 M00S01821.comccdp +++|* 01840 M00S01822.comccdp +++|* USES A - 1, 2, 3, 5, 6, 7. 01841 M00S01823.comccdp +++|* B - 4, 5. 01842 M00S01824.comccdp +++|* X - 0, 1, 2, 3, 5, 6, 7. 01843 M00S01825.comccdp +++|* 01844 M00S01826.comccdp +++|* CALLS CAD. 01845 M00S01827.comccdp +++|* 01846 M00S01828.comccdp +++|* MACROS MEMORY, WRITEC. 01847 M00S01829.comccdp +++| 01848 M00S01830.comccdp +++| 01849 M00S01831.comccdp +++| SAD3 BX6 X6-X6 SET VALUES TO ZERO 01850 M00S01832.comccdp +++| SA6 ADR1 01851 M00S01833.comccdp +++| SA6 A6+B1 01852 M00S01834.comccdp +++| SAD4 SA1 ADR1 SET EXIT DATA 01853 M00S01835.comccdp +++| SA2 ADR2 01854 M00S01836.comccdp +++| SA3 NARG 01855 M00S01837.comccdp +++| SX6 X1 01856 M00S01838.comccdp +++| SB5 X2 01857 M00S01839.comccdp +++| SB4 X3+ 01858 M00S01840.comccdp +++| 01859 M00S01841.comccdp +++| SAD SUBR ENTRY/EXIT 01860 M00S01842.comccdp +++| ZR B4,SAD3 IF NO ARGUMENTS 01861 M00S01843.comccdp +++| SA6 SADA SAVE ADDRESS VALIDATION FLAGS 01862 M00S01844.comccdp +++| SA5 UOC+1 CONVERT FIRST ADDRESS 01863 M00S01845.comccdp +++| RJ CAD 01864 M00S01846.comccdp +++| SX6 B7 SECOND = FIRST 01865 M00S01847.comccdp +++| SA5 A5+B1 READ NEXT ARGUMENT 01866 M00S01848.comccdp +++| SA6 ADR1 01867 M00S01849.comccdp +++| SA6 ADR2 01868 M00S01850.comccdp +++| ZR X5,SAD1 IF END OF ARGUMENTS 01869 M00S01851.comccdp +++| RJ CAD 01870 M00S01852.comccdp +++| SX7 B7 01871 M00S01853.comccdp +++| SA7 ADR2 01872 M00S01854.comccdp +++| SAD1 SA1 SADA VALIDATION FLAGS 01873 M00S01855.comccdp +++| PL X1,SAD4 IF NO VALIDATION 01874 M00S01856.comccdp +++| BX7 X7-X7 GET CURRENT FL 01875 M00S01857.comccdp +++| LX0 X1,B1 01876 M00S01858.comccdp +++| SA7 SADD 01877 M00S01859.comccdp +++| MEMORY CM,A7 01878 M00S01860.comccdp +++| SA1 ADR1 01879 M00S01861.comccdp +++| SA2 ADR2 01880 M00S01862.comccdp +++| SA3 SADD 01881 M00S01863.comccdp +++| SB4 SADC 01882 M00S01864.comccdp +++| AX3 30 01883 M00S01865.comccdp +++| IX6 X1-X3 01884 M00S01866.comccdp +++| PL X6,SAD2 IF ADDRESS .GE. FL 01885 M00S01867.comccdp +++| NG X0,SAD4 IF VALIDATION ONLY ON FIRST PARAMETER 01886 M00S01868.comccdp +++| IX6 X2-X3 01887 M00S01869.comccdp +++| IX7 X2-X1 01888 M00S01870.comccdp +++| PL X6,SAD2 IF ADDRESS .GE. FL 01889 M00S01871.comccdp +++| SB4 SADB 01890 M00S01872.comccdp +++| PL X7,SAD4 IF FWA .LE. LWA 01891 M00S01873.comccdp +++| SAD2 WRITEC O,B4 WRITE ERROR MESSAGE 01892 M00S01874.comccdp +++| EQ POCR RETURN 01893 M00S01875.comccdp +++| 01894 M00S01876.comccdp +++| 01895 M00S01877.comccdp +++| SADA CON 0 01896 M00S01878.comccdp +++| SADB DATA C*FWA .GT. LWA.* 01897 M00S01879.comccdp +++| SADC DATA C*ADDRESS OUT OF RANGE.* 01898 M00S01880.comccdp +++| SADD CON 0 01899 M00S01881.comccdp +++| SFP SPACE 4,15 01900 M00S01882.comccdp +++|** SFP - SET FET POINTER FOR TERMINAL I/O. 01901 M00S01883.comccdp +++|* 01902 M00S01884.comccdp +++|* EXIT OUTPUT FET POINTER STORED IN RA+2 OR LIST OF FILES. 01903 M00S01885.comccdp +++|* (SFPA) = PREVIOUS CONTENTS OF RA+2 OR LIST OF FILES. 01904 M00S01886.comccdp +++|* (SFPB) = ADDRESS OF OUTPUT FET POINTER (RA+2 OR LIST 01905 M00S01887.comccdp +++|* OF FILES ADDRESS). 01906 M00S01888.comccdp +++|* 01907 M00S01889.comccdp +++|* USES A - 1, 2, 6, 7. 01908 M00S01890.comccdp +++|* X - 0, 1, 2, 6, 7. 01909 M00S01891.comccdp +++|* 01910 M00S01892.comccdp +++|* MACROS GETLOF, ROLLOUT. 01911 M00S01893.comccdp +++| 01912 M00S01894.comccdp +++| 01913 M00S01895.comccdp +++| SFP SUBR ENTRY/EXIT 01914 M00S01896.comccdp +++| ROLLOUT FORCE USER OUTPUT TO BE FLUSHED 01915 M00S01897.comccdp +++| GETLOF SFPB GET *LIST OF FILES* ADDRESS 01916 M00S01898.comccdp +++| SA1 SFPB 01917 M00S01899.comccdp +++| SA2 O SET OUTPUT FET POINTER 01918 M00S01900.comccdp +++| AX1 30 01919 M00S01901.comccdp +++| NZ X1,SFP1 IF LIST OF FILES IN EFFECT 01920 M00S01902.comccdp +++| SX1 B1 01921 M00S01903.comccdp +++| SFP1 SX6 X1+B1 01922 M00S01904.comccdp +++| MX0 42 01923 M00S01905.comccdp +++| SA6 A1 01924 M00S01906.comccdp +++| SA1 X6 SAVE ORIGINAL FET POINTER 01925 M00S01907.comccdp +++| BX6 X1 01926 M00S01908.comccdp +++| BX7 X0*X2 01927 M00S01909.comccdp +++| SA6 SFPA 01928 M00S01910.comccdp +++| SX2 A2 01929 M00S01911.comccdp +++| BX7 X7+X2 01930 M00S01912.comccdp +++| SA7 A1+ 01931 M00S01913.comccdp +++| EQ SFPX RETURN 01932 M00S01914.comccdp +++| 01933 M00S01915.comccdp +++| 01934 M00S01916.comccdp +++| SFPA CON 0 ORIGINAL FET POINTER 01935 M00S01917.comccdp +++| SFPB CON 0 ADDRESS OF FET POINTER 01936 M00S01918.comccdp +++| SFZ SPACE 4,15 01937 M00S01919.comccdp +++|** SFZ - SPACE FILL LEADING DISPLAY CODE ZEROS. 01938 M00S01920.comccdp +++|* 01939 M00S01921.comccdp +++|* ENTRY (X7) = DISPLAY CODE NUMBER, RIGHT-JUSTIFIED, DISPLAY 01940 M00S01922.comccdp +++|* CODE ZERO FILLED. 01941 M00S01923.comccdp +++|* 01942 M00S01924.comccdp +++|* EXIT (X7) = DISPLAY CODE NUMBER, RIGHT JUSTIFIED, BLANK 01943 M00S01925.comccdp +++|* FILLED. 01944 M00S01926.comccdp +++|* 01945 M00S01927.comccdp +++|* USES A - 1. 01946 M00S01928.comccdp +++|* B - 2. 01947 M00S01929.comccdp +++|* X - 0, 1, 2, 3, 7. 01948 M00S01930.comccdp +++| 01949 M00S01931.comccdp +++| 01950 M00S01932.comccdp +++| SFZ2 MX2 -54 01951 M00S01933.comccdp +++| BX0 -X2*X0 01952 M00S01934.comccdp +++| SA1 SFZA 01953 M00S01935.comccdp +++| LX0 6 01954 M00S01936.comccdp +++| BX2 -X0*X7 01955 M00S01937.comccdp +++| BX1 X0*X1 01956 M00S01938.comccdp +++| BX7 X1+X2 01957 M00S01939.comccdp +++| 01958 M00S01940.comccdp +++| SFZ SUBR ENTRY/EXIT 01959 M00S01941.comccdp +++| MX0 6 01960 M00S01942.comccdp +++| BX3 X7 01961 M00S01943.comccdp +++| SB2 10 01962 M00S01944.comccdp +++| MX1 -6 01963 M00S01945.comccdp +++| SFZ1 LX3 6 01964 M00S01946.comccdp +++| BX2 -X1*X3 01965 M00S01947.comccdp +++| SX2 X2-1R0 01966 M00S01948.comccdp +++| NZ X2,SFZ2 IF NO MORE LEADING DISPLAY CODE ZEROS 01967 M00S01949.comccdp +++| SB2 B2-1 01968 M00S01950.comccdp +++| EQ B2,SFZ2 IF NO MORE DIGITS IN WORD 01969 M00S01951.comccdp +++| AX0 6 01970 M00S01952.comccdp +++| EQ SFZ1 CONTINUE CHECK FOR DISPLAY ZERO 01971 M00S01953.comccdp +++| 01972 M00S01954.comccdp +++| 01973 M00S01955.comccdp +++| SFZA CON 10H 01974 M00S01956.comccdp +++| SST SPACE 4,10 01975 M00S01957.comccdp +++|** SST - SEARCH SYMBOL TABLE. 01976 M00S01958.comccdp +++|* 01977 M00S01959.comccdp +++|* ENTRY (X1)= CRITERION. 01978 M00S01960.comccdp +++|* 01979 M00S01961.comccdp +++|* EXIT (A2)= ADDRESS OF ENTRY IF FOUND, ELSE NEXT AVAILABLE 01980 M00S01962.comccdp +++|* ADDRESS. 01981 M00S01963.comccdp +++|* (X6)= 0 IF FOUND. 01982 M00S01964.comccdp +++|* 01983 M00S01965.comccdp +++|* USES A - 2. 01984 M00S01966.comccdp +++|* X - 0, 2, 6. 01985 M00S01967.comccdp +++| 01986 M00S01968.comccdp +++| 01987 M00S01969.comccdp +++| SST SUBR ENTRY/EXIT 01988 M00S01970.comccdp +++| MX0 7*6 SYMBOL MASK 01989 M00S01971.comccdp +++| SA2 TSYM-1 INITIALIZE TABLE ADDRESS 01990 M00S01972.comccdp +++| MX6 1 ASSUME NO FIND 01991 M00S01973.comccdp +++| SST1 SA2 A2+B1 READ NEXT ENTRY 01992 M00S01974.comccdp +++| ZR X2,SSTX IF END OF TABLE 01993 M00S01975.comccdp +++| BX6 X2-X1 01994 M00S01976.comccdp +++| BX6 X0*X6 01995 M00S01977.comccdp +++| NZ X6,SST1 IF NOT FOUND 01996 M00S01978.comccdp +++| EQ SSTX RETURN 01997 M00S01979.comccdp +++| SVR SPACE 4,15 01998 M00S01980.comccdp +++|** SVR - SAVE ALL REGISTERS. 01999 M00S01981.comccdp +++|* 02000 M00S01982.comccdp +++|* EXIT (B1)= 1. 02001 M00S01983.comccdp +++|* 02002 M00S01984.comccdp +++|* USES A - 1, 2, 3, 6, 7. 02003 M00S01985.comccdp +++|* B - 2, 3, 7. 02004 M00S01986.comccdp +++|* X - 0, 1, 2, 3, 4, 6, 7. 02005 M00S01987.comccdp +++|* 02006 M00S01988.comccdp +++|* CALLS COD. 02007 M00S01989.comccdp +++|* 02008 M00S01990.comccdp +++|* MACROS WRITEC. 02009 M00S01991.comccdp +++| 02010 M00S01992.comccdp +++| 02011 M00S01993.comccdp +++| SVR SUBR ENTRY/EXIT 02012 M00S01994.comccdp +++| PL B7,*+2 CONSTRUCT TRAIL DESCRIBING B7 02013 M00S01995.comccdp +++| RJ *+1 02014 M00S01996.comccdp +++| SVR1 CON 0 02015 M00S01997.comccdp +++| DUP 17
Proceed to Part 1
cdc/nos2.source/opl.opl871/common/comccdp.txt · Last modified: (external edit)