cdc:nos2.source:opl.opl871:deck:copyc
Deck COPYC
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.copyc +++| IDENT COPYC,FETS 00002 M00S00002.copyc +++| ABS 00003 M00S00003.copyc +++| ENTRY COPYSBF 00004 M00S00004.copyc +++| ENTRY COPYCF 00005 M00S00005.copyc +++| ENTRY SCOPY 00006 M00S00006.copyc +++| ENTRY COPYCR
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2402 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.ns2402 +++| ENTRY NPC= 00008 M00S00007.copyc +++| ENTRY RFL= 00009 M00S00008.copyc +++| ENTRY SSM= 00010 M00S00009.copyc +++| SYSCOM B1 DEFINE (B1) = 1 00011 M00S00010.copyc +++|*COMMENT COPYC - CODED FILE COPIES.
| Line S00011 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00011.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00013 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00014 M00S00012.copyc +++| TITLE COPYC - CODED FILE COPIES. 00015 M00S00013.copyc +++| SPACE 4 00016 M00S00014.copyc +++|*** COPYC - CODED FILE COPIES. 00017 M00S00015.copyc +++|* G. R. MANSFIELD. 70/11/25. 00018 M00S00016.copyc +++| SPACE 4 00019 M00S00017.copyc +++|*** DAYFILE MESSAGES. 00020 M00S00018.copyc +++|* 00021 M00S00019.copyc +++|* * COPY COMPLETE.* = INFORMATIVE MESSAGE INDICATING COPY 00022 M00S00020.copyc +++|* COUNT WAS EXHAUSTED BEFORE EOI REACHED. 00023 M00S00021.copyc +++|* 00024 M00S00022.copyc +++|* * EOI ENCOUNTERED.* = INFORMATIVE MESSAGE INDICATING END 00025 M00S00023.copyc +++|* OF INFORMATION WAS ENCOUNTED BEFORE THE COPY COUNT WAS 00026 M00S00024.copyc +++|* EXHAUSTED. 00027 M00S00025.copyc +++|*
| Line S00026 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00028 M01S00026.v23l617 ---|* *ILLEGAL CHARACTER NUMBER.* = ILLEGAL FIRST/LAST CHARACTER 00029 M01S00027.v23l617 ---|* NUMBER SPECIFIED.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00030 M01S00001.v23l617 +++|* *INCORRECT CHARACTER NUMBER.* = INCORRECT FIRST/LAST 00031 M01S00002.v23l617 +++|* CHARACTER NUMBER SPECIFIED. 00032 M00S00028.copyc +++|*
| Line S00029 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00033 M01S00029.v23l617 ---|* *ILLEGAL COUNT.* = OPTIONAL RECORD/FILE COUNT ILLEGAL FORMAT.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00034 M01S00003.v23l617 +++|* *INCORRECT COUNT.* = OPTIONAL RECORD/FILE COUNT INCORRECT 00035 M01S00004.v23l617 +++|* FORMAT. 00036 M00S00030.copyc +++|* 00037 M00S00031.copyc +++|* * NO LINE TERMINATOR AT EOR(S).* = NO LINE TERMINATOR WAS 00038 M00S00032.copyc +++|* FOUND FOR THE LAST LINE OF A RECORD(S) (RECORD NOT Z-TYPE 00039 M00S00033.copyc +++|* DATA). THE LINE TERMINATOR IS ADDED, AND THE JOB IS ABORTED 00040 M00S00034.copyc +++|* IF THE *NA* PARAMETER IS NOT SPECIFIED. 00041 M00S00035.copyc +++|* 00042 M00S00036.copyc +++|* * NNNN LINE(S) TRUNCATED.* = INFORMATIVE MESSAGE INDICATING 00043 M00S00037.copyc +++|* NNNN LINES WERE TRUNCATED DURING COPYING. 00044 M00S00038.copyc +++|* 00045 M00S00039.copyc +++|* *TOO MANY PARAMETERS.* = MORE THAN SIX PARAMETERS WERE
| Line S00040 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00046 M01S00040.ns2339 ---|* SPECIFIED ON A *COPYCF* CALL, OR MORE THAN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00047 M01S00001.ns2339 +++|* SPECIFIED ON A *COPYCF* OR *COPYCR* CALL, OR MORE THAN 00048 M00S00041.copyc +++|* ELEVEN ON AN *SCOPY* CALL. 00049 M00S00042.copyc +++|*
| Line S00043 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00050 M01S00043.v23l617 ---|* *ILLEGAL LINE NUMBER SPECIFICATION.* = ILLEGAL
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00051 M01S00005.v23l617 +++|* *INCORRECT LINE NUMBER SPECIFICATION.* = INCORRECT 00052 M00S00044.copyc +++|* FIRST/LAST LINE NUMBER SPECIFIED. 00053 M00S00045.copyc +++|*
| Line S00046 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00054 M01S00046.v23l617 ---|* *ILLEGAL REWIND SPECIFICATION.* = REWIND PARAMETER
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00055 M01S00006.v23l617 +++|* *INCORRECT REWIND SPECIFICATION.* = REWIND PARAMETER 00056 M00S00047.copyc +++|* NOT *R* OR OMITTED. 00057 M00S00048.copyc +++|*
| Line S00049 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00058 M01S00049.v23l617 ---|* *ILLEGAL STRUCTURE SPECIFICATION.* = STRUCTURE
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00059 M01S00007.v23l617 +++|* *INCORRECT STRUCTURE SPECIFICATION.* = STRUCTURE 00060 M00S00050.copyc +++|* PARAMETER NOT *NS* OR OMITTED. 00061 M00S00051.copyc +++|*
| Line S00052 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00062 M01S00052.v23l617 ---|* *ILLEGAL CHARACTER SET SPECIFICATION.* = CHARACTER
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00063 M01S00008.v23l617 +++|* *INCORRECT CHARACTER SET SPECIFICATION.* = CHARACTER 00064 M00S00053.copyc +++|* SET PARAMETER NOT *D* OR OMITTED. 00065 M00S00054.copyc +++| SPACE 4 00066 M00S00055.copyc +++|**** ASSEMBLY CONSTANTS. 00067 M00S00056.copyc +++| 00068 M00S00057.copyc +++|
| Line S00058 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00069 M01S00058.ns2339 ---| LINL EQU 160 WORKING BUFFER LENGTH (6-BIT CHARACTERS)
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00070 M01S00002.ns2339 +++| LINL EQU 500D WORKING BUFFER LENGTH (6-BIT CHARACTERS) 00071 M00S00059.copyc +++| BUFL EQU LINL+1 WORKING BUFFER LENGTH + 1 00072 M00S00060.copyc +++| IBUFL EQU 2001B IFILE BUFFER LENGTH 00073 M00S00061.copyc +++| OBUFL EQU 2001B OFILE BUFFER LENGTH 00074 M00S00062.copyc +++|**** 00075 M00S00063.copyc +++| 00076 M00S00064.copyc +++|
| Line S00065 Modification History | |
|---|---|
M01 (Removed by) | ns2402 |
Seq # *Modification Id* Act ----------------------------+ 00077 M01S00065.ns2402 ---|* SPECIAL ENTRY POINT. 00078 M01S00066.ns2402 ---|
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2402 |
Seq # *Modification Id* Act ----------------------------+ 00079 M01S00002.ns2402 +++|* SPECIAL ENTRY POINTS. 00080 M01S00003.ns2402 +++| 00081 M01S00004.ns2402 +++| NPC= EQU 0 FORCE OPERATING SYSTEM PARAMETER FORMAT 00082 M01S00005.ns2402 +++| 00083 M00S00067.copyc +++| SSM= EQU 0 SUPPRESS DUMPS OF FIELD LENGTH 00084 M00S00068.copyc +++| 00085 M00S00069.copyc +++|*CALL COMCMAC 00086 M00S00070.copyc +++| TITLE COMMON DATA 00087 M00S00071.copyc +++| DATA SPACE 4 00088 M00S00072.copyc +++| 00089 M00S00073.copyc +++| 00090 M00S00074.copyc +++| ORG 120B 00091 M00S00075.copyc +++| FETS BSS 0 00092 M00S00076.copyc +++| 00093 M00S00077.copyc +++| I BSS 0 00094 M00S00078.copyc +++| INPUT RFILEC IBUF,IBUFL,(FET=8) 00095 M00S00079.copyc +++| 00096 M00S00080.copyc +++| O BSS 0 00097 M00S00081.copyc +++| OUTPUT RFILEC OBUF,OBUFL,(FET=8) 00098 M00S00082.copyc +++| 00099 M00S00083.copyc +++| CT CON 1 COUNT
| Line S00084 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00100 M01S00084.ns2701 ---| EI CON 0 EOI MESSAGE SENT FLAG 00101 M00S00085.copyc ---| SK CON 0 SKIP FLAG 00102 M00S00086.copyc ---| FC CON 0 FIRST CHARACTER 00103 M00S00087.copyc ---| LC CON 136 LAST CHARACTER 00104 M00S00088.copyc ---| LTC CON 0 COUNT OF LINES TRUNCATED 00105 M00S00089.copyc ---| NA CON 0 NO-ABORT FLAG 00106 M00S00090.copyc ---| NZ CON 0 NON Z-TYPE DATA FLAG 00107 M00S00091.copyc ---| FL CON 0 FIRST LINE NUMBER 00108 M00S00092.copyc ---| LL CON -1 LAST LINE NUMBER 00109 M00S00093.copyc ---| NS CON 0 STRUCTURE REPORTING FLAG 00110 M00S00094.copyc ---| AS CON 0 ASCII8 FLAG 00111 M00S00095.copyc ---| AF CON 0 ASCII8 WITH FORMAT EFFECTORS FLAG 00112 M00S00096.copyc ---| LN CON 0 LINE NUMBER ERROR MESSAGE FLAG 00113 M00S00097.copyc ---| SC CON 0 *SCOPY* FLAG
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00114 M01S00001.ns2701 +++| FCNT CON 0 FILE COUNT 00115 M01S00002.ns2701 +++| RCNT CON 0 RECORD COUNT 00116 M00S00098.copyc +++| TITLE MAIN PROGRAMS.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00117 M01S00003.ns2339 +++| COPYCF SPACE 4,25 00118 M00S00099.copyc +++|*** COPYCF (IFILE,OFILE,N,FCHAR,LCHAR,NA) 00119 M00S00100.copyc +++|* 00120 M00S00101.copyc +++|* 00121 M00S00102.copyc +++|* COPYCF COPIES FILES FROM MEDIUM TO MEDIUM IN CODED MODE. 00122 M00S00103.copyc +++|* FILES ARE TREATED AS 6-BIT CHARACTER DATA WITH A MAXIMUM
| Line S00104 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00123 M01S00104.ns2339 ---|* LINE LENGTH DEFINED BY THE CONSTANT *LINL* (160) .
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00124 M01S00004.ns2339 +++|* LINE LENGTH DEFINED BY THE CONSTANT *LINL* (500) . 00125 M00S00105.copyc +++|* 00126 M00S00106.copyc +++|* IFILE INPUT FILE NAME. 00127 M00S00107.copyc +++|* OFILE OUTPUT FILE NAME. 00128 M00S00108.copyc +++|* N NUMBER OF FILES TO COPY. 00129 M00S00109.copyc +++|* FCHAR FIRST CHARACTER TO COPY. 00130 M00S00110.copyc +++|* LCHAR LAST CHARACTER TO COPY. 00131 M00S00111.copyc +++|* NA DO NOT ABORT IF RECORD NOT Z-TYPE DATA. 00132 M00S00112.copyc +++|* 00133 M00S00113.copyc +++|* IF IFILE = OFILE, FILES ON IFILE ARE SKIPPED. 00134 M00S00114.copyc +++|* 00135 M00S00115.copyc +++|* ASSUMED PARAMETERS. 00136 M00S00116.copyc +++|* IFILE = *INPUT* 00137 M00S00117.copyc +++|* OFILE = *OUTPUT* 00138 M00S00118.copyc +++|* N = 1 00139 M00S00119.copyc +++|* FCHAR = 1 00140 M00S00120.copyc +++|* LCHAR = 136 00141 M00S00121.copyc +++|* NA NOT SPECIFIED. 00142 M00S00122.copyc +++| 00143 M00S00123.copyc +++|
| Line S00124 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00144 M01S00124.ns2339 ---| COPYCF SB1 1 (B1) = 1
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00145 M01S00005.ns2339 +++| COPYCF BSS 0 ENTRY 00146 M01S00006.ns2339 +++| SB1 1 (B1) = 1 00147 M00S00125.copyc +++| RJ PRS PRESET PROGRAM
| Line S00126 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00148 M01S00126.ns2339 ---| ZR B7,CCF1 IF NO ADDITIONAL ARGUMENTS 00149 M00S00127.copyc ---| RJ SCC SET CHARACTER COUNTS 00150 M01S00128.ns2339 ---| ZR B7,CCF1 IF NO ADDITIONAL ARGUMENTS 00151 M01S00129.ns2339 ---| RJ SXP SET EXTRA PARAMETERS
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00152 M01S00007.ns2339 +++| NZ B7,ERR3 IF TOO MANY ARGUMENTS
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00153 M01S00003.ns2701 +++| SX0 0 INITIALIZE LINE TRANSFER COUNT 00154 M00S00130.copyc +++| 00155 M00S00131.copyc +++| CCF1 READ I BEGIN READ 00156 M00S00132.copyc +++| RECALL O 00157 M00S00133.copyc +++| READS I,BUF,-BUFL 00158 M00S00134.copyc +++| RJ CPR COPY RECORD 00159 M00S00135.copyc +++| NG X1,ITM IF EOI 00160 M00S00136.copyc +++| ZR X1,CCF1 LOOP TO EOF 00161 M00S00137.copyc +++| SA2 CT DECREMENT COUNT 00162 M00S00138.copyc +++| SX6 X2-1 00163 M00S00139.copyc +++| SA6 A2 00164 M00S00140.copyc +++| NZ X6,CCF1 LOOP FOR ALL FILES 00165 M00S00141.copyc +++| EQ ITM TERMINATE PROGRAM
| Line S00142 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00166 M01S00142.ns2339 ---| COPYCFX SPACE 4,25 00167 M01S00143.ns2339 ---|*** SCOPY(IFILE,OFILE,N,FCAR,LCAR,NA,R,FCS,FLINE,LLINE,NS) 00168 M01S00144.ns2339 ---|* 00169 M01S00145.ns2339 ---|* SCOPY (STRUCTURE COPY) IS SIMILAR TO COPYCF, WITH EXTRA 00170 M01S00146.ns2339 ---|* OPTIONS. THE FIRST SIX PARAMETERS ARE EXPLAINED IN THE 00171 M01S00147.ns2339 ---|* COPYCF HEADER. THE EXTRA PARAMETERS ARE AS FOLLOWS. 00172 M01S00148.ns2339 ---|* 00173 M01S00149.ns2339 ---|* R REWIND BOTH INPUT AND OUTPUT FILES. 00174 M01S00150.ns2339 ---|* FCS FILE CHARACTER SET - 00175 M01S00151.ns2339 ---|* D, BLANK, OR OMITTED = 6/12 DISPLAY CODE. 00176 M01S00152.ns2339 ---|* FLINE LINE NUMBER OF FIRST LINE TO COPY. 00177 M01S00153.ns2339 ---|* LLINE LINE NUMBER OF LAST LINE TO COPY. 00178 M01S00154.ns2339 ---|* NS NO STRUCTURE REPORTING. 00179 M01S00155.ns2339 ---|* 00180 M01S00156.ns2339 ---|* DEFAULT VALUES (IF PARAMETER OMITTED) - 00181 M01S00157.ns2339 ---|* 00182 M01S00158.ns2339 ---|* R DO NOT REWIND FILES. 00183 M01S00159.ns2339 ---|* FCS 6/12 DISPLAY CODE. 00184 M01S00160.ns2339 ---|* FLINE PRESENT POSITION, BOI IF REWIND SPECIFIED. 00185 M01S00161.ns2339 ---|* LLINE EOI OR END OF FILE COUNT. 00186 M01S00162.ns2339 ---|* NS REPORT FILE STRUCTURE. 00187 M01S00163.ns2339 ---| 00188 M01S00164.ns2339 ---| 00189 M01S00165.ns2339 ---| SCOPY SX6 1 SET *SCOPY* FLAG 00190 M01S00166.ns2339 ---| SA6 SC 00191 M01S00167.ns2339 ---| SA6 NS 00192 M01S00168.ns2339 ---| EQ COPYCF PROCESS FILE 00193 M01S00169.ns2339 ---| COPYCR SPACE 4
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00194 M01S00008.ns2339 +++| COPYCR SPACE 4,25 00195 M00S00170.copyc +++|*** COPYCR (IFILE,OFILE,N,FCHAR,LCHAR,NA) 00196 M00S00171.copyc +++|* 00197 M00S00172.copyc +++|* 00198 M00S00173.copyc +++|* COPYCR COPIES RECORDS FROM MEDIUM TO MEDIUM IN CODED MODE. 00199 M00S00174.copyc +++|* FILES ARE TREATED AS 6-BIT CHARACTER DATA WITH A MAXIMUM
| Line S00175 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00200 M01S00175.ns2339 ---|* LINE LENGTH DEFINED BY THE CONSTANT *LINL* (160) .
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00201 M01S00009.ns2339 +++|* LINE LENGTH DEFINED BY THE CONSTANT *LINL* (500) . 00202 M00S00176.copyc +++|* 00203 M00S00177.copyc +++|* IFILE INPUT FILE NAME. 00204 M00S00178.copyc +++|* OFILE OUTPUT FILE NAME. 00205 M00S00179.copyc +++|* N NUMBER OF RECORDS TO COPY. 00206 M00S00180.copyc +++|* FCHAR FIRST CHARACTER TO COPY. 00207 M00S00181.copyc +++|* LCHAR LAST CHARACTER TO COPY. 00208 M00S00182.copyc +++|* NA DO NOT ABORT IF RECORD NOT Z-TYPE DATA. 00209 M00S00183.copyc +++|* 00210 M00S00184.copyc +++|* IF IFILE = OFILE, RECORDS ON IFILE ARE SKIPPED. 00211 M00S00185.copyc +++|* 00212 M00S00186.copyc +++|* ASSUMED PARAMETERS. 00213 M00S00187.copyc +++|* IFILE = *INPUT* 00214 M00S00188.copyc +++|* OFILE = *OUTPUT* 00215 M00S00189.copyc +++|* N = 1 00216 M00S00190.copyc +++|* FCHAR = 1 00217 M00S00191.copyc +++|* LCHAR = 136 00218 M00S00192.copyc +++|* NA NOT SPECIFIED. 00219 M00S00193.copyc +++| 00220 M00S00194.copyc +++|
| Line S00195 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00221 M01S00195.ns2339 ---| COPYCR SB1 1 (B1) = 1
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00222 M01S00010.ns2339 +++| COPYCR BSS 0 ENTRY 00223 M01S00011.ns2339 +++| SB1 1 (B1) = 1 00224 M00S00196.copyc +++| RJ PRS PRESET PROGRAM
| Line S00197 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00225 M01S00197.ns2339 ---| ZR B7,CCR1 IF NO ADDITIONAL ARGUMENTS 00226 M00S00198.copyc ---| RJ SCC SET CHARACTER COUNTS
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00227 M01S00012.ns2339 +++| NZ B7,ERR3 IF TOO MANY ARGUMENTS
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00228 M01S00004.ns2701 +++| SX0 0 INITIALIZE LINE TRANSFER COUNT 00229 M00S00199.copyc +++| 00230 M00S00200.copyc +++| CCR1 READ I BEGIN READ 00231 M00S00201.copyc +++| RECALL O 00232 M00S00202.copyc +++| READS I,BUF,-BUFL 00233 M00S00203.copyc +++| RJ CPR COPY RECORD 00234 M00S00204.copyc +++| NG X1,ITM IF EOI 00235 M00S00205.copyc +++| SA2 CT DECREMENT COUNT 00236 M00S00206.copyc +++| SX6 X2-1 00237 M00S00207.copyc +++| SA6 A2 00238 M00S00208.copyc +++| NZ X6,CCR1 LOOP FOR ALL RECORDS 00239 M00S00209.copyc +++| EQ ITM TERMINATE PROGRAM
| Line S00210 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00240 M01S00210.ns2339 ---| COPYSBF SPACE 4
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00241 M01S00013.ns2339 +++| COPYSBF SPACE 4,20 00242 M00S00211.copyc +++|*** COPYSBF (IFILE,OFILE,N,NA) 00243 M00S00212.copyc +++|* 00244 M00S00213.copyc +++|* 00245 M00S00214.copyc +++|* COPYSBF COPIES FILES FROM MEDIUM TO MEDIUM IN BINARY MODE, 00246 M00S00215.copyc +++|* SHIFTING EACH LINE IMAGE 1 CHARACTER TO THE RIGHT AND ADDING 00247 M00S00216.copyc +++|* A LEADING SPACE. A PAGE EJECT IS WRITTEN AT THE BEGINNING 00248 M00S00217.copyc +++|* OF EACH RECORD. 00249 M00S00218.copyc +++|* 00250 M00S00219.copyc +++|* IFILE INPUT FILE NAME. 00251 M00S00220.copyc +++|* OFILE OUTPUT FILE NAME. 00252 M00S00221.copyc +++|* N NUMBER OF FILES TO COPY. 00253 M00S00222.copyc +++|* NA DO NOT ABORT IF RECORD NOT Z-TYPE DATA. 00254 M00S00223.copyc +++|* 00255 M00S00224.copyc +++|* ASSUMED PARAMETERS. 00256 M00S00225.copyc +++|* IFILE = *INPUT* 00257 M00S00226.copyc +++|* OFILE = *OUTPUT* 00258 M00S00227.copyc +++|* N = 1 00259 M00S00228.copyc +++|* NA NOT SPECIFIED. 00260 M00S00229.copyc +++| 00261 M00S00230.copyc +++|
| Line S00231 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00262 M01S00231.ns2339 ---| COPYSBF SB1 1 (B1) = 1
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00263 M01S00014.ns2339 +++| COPYSBF BSS 0 ENTRY 00264 M01S00015.ns2339 +++| SB1 1 (B1) = 1 00265 M00S00232.copyc +++| RJ PRS PRESET PROGRAM
| Line S00233 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00266 M01S00233.ns2339 ---| ZR B7,CFS0.1 IF NO ADDITIONAL ARGUMENTS 00267 M00S00234.copyc ---| RJ CNA CHECK FOR *NO ABORT* PARAMETER 00268 M01S00235.ns2339 ---| CFS0.1 SX6 -1 SET CHARACTER -1
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00269 M01S00016.ns2339 +++| NZ B7,ERR3 IF TOO MANY PARAMETERS 00270 M01S00017.ns2339 +++| SX6 -1 SET CHARACTER -1 00271 M00S00236.copyc +++| SA6 FC 00272 M00S00237.copyc +++| SX7 LINL SET MAXIMUM LINE LENGTH 00273 M00S00238.copyc +++| SA7 LC 00274 M00S00239.copyc +++| SA1 I SET BINARY OPERATION 00275 M00S00240.copyc +++| SA2 O 00276 M00S00241.copyc +++| SX3 2 00277 M00S00242.copyc +++| BX6 X1+X3 00278 M00S00243.copyc +++| BX7 X2+X3 00279 M00S00244.copyc +++| SA6 A1 00280 M00S00245.copyc +++| SA7 A2
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00281 M01S00005.ns2701 +++| SX0 0 INITIALIZE LINE TRANSFER COUNT 00282 M00S00246.copyc +++| 00283 M00S00247.copyc +++| CSF1 READ I BEGIN READ 00284 M00S00248.copyc +++| RECALL O 00285 M00S00249.copyc +++| READS I,BUF,-BUFL 00286 M00S00250.copyc +++| NZ X1,CSF3 IF EOR, EOF, OR EOI 00287 M00S00251.copyc +++| SA2 SK 00288 M00S00252.copyc +++| NZ X2,CSF2 IF SKIP SET 00289 M00S00253.copyc +++| SB7 BUF+BUFL LWA+1 OF BUFFER 00290 M00S00254.copyc +++| NE B6,B7,CSF1.1 IF BUFFER NOT FULL 00291 M00S00255.copyc +++| SA1 LTC INCREMENT TRUNCATION COUNT 00292 M00S00256.copyc +++| SX3 B1 00293 M00S00257.copyc +++| IX7 X1+X3 00294 M00S00258.copyc +++| SA7 A1 UPDATE COUNT 00295 M00S00259.copyc +++| SB6 B6-B1 DECREMENT CHARACTER COUNT 00296 M00S00260.copyc +++| CSF1.1 SX6 1R1 SET PAGE EJECT 00297 M00S00261.copyc +++| SB5 B6-BUF+1 GET NUMBER OF CHARACTERS IN BUFFER 00298 M00S00262.copyc +++| SA6 BUF-1 00299 M00S00263.copyc +++| WRITES O,BUF-1,B5 OUTPUT LINE 00300 M00S00264.copyc +++| SX6 1R CLEAR EJECT 00301 M00S00265.copyc +++| SA6 BUF-1
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
M02 (Removed by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00302 M02S00006.copyc1 ---| SX0 X0+1 SHOW LINE WRITTEN OUT ALREADY
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00303 M01S00001.copyc1 +++| SX1 B1 00304 M01S00002.copyc1 +++| IX0 X0+X1 SHOW LINE WRITTEN OUT ALREADY 00305 M00S00266.copyc +++| CSF2 READS I,BUF,-BUFL COPY REMAINDER OF RECORD 00306 M00S00267.copyc +++| CSF3 RJ CPR 00307 M00S00268.copyc +++| NG X1,ITM IF EOI 00308 M00S00269.copyc +++| ZR X1,CSF1 LOOP TO EOF 00309 M00S00270.copyc +++| SA2 CT DECREMENT COUNT 00310 M00S00271.copyc +++| SX6 X2-1 00311 M00S00272.copyc +++| SA6 A2 00312 M00S00273.copyc +++| NZ X6,CSF1 LOOP FOR ALL FILES 00313 M00S00274.copyc +++| EQ ITM TERMINATE PROGRAM
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00314 M01S00018.ns2339 +++| SCOPY SPACE 4,25 00315 M01S00019.ns2339 +++|*** SCOPY(IFILE,OFILE,N,FCAR,LCAR,NA,R,FCS,FLINE,LLINE,NS) 00316 M01S00020.ns2339 +++|* 00317 M01S00021.ns2339 +++|* 00318 M01S00022.ns2339 +++|* *SCOPY* (STRUCTURE COPY) IS SIMILAR TO *COPYCF*, WITH EXTRA 00319 M01S00023.ns2339 +++|* PARAMETERS. THE FIRST SIX PARAMETERS ARE EXPLAINED IN THE 00320 M01S00024.ns2339 +++|* *COPYCF* HEADER. THE EXTRA PARAMETERS ARE AS FOLLOWS. 00321 M01S00025.ns2339 +++|* 00322 M01S00026.ns2339 +++|* R REWIND BOTH INPUT AND OUTPUT FILES. 00323 M01S00027.ns2339 +++|* FCS FILE CHARACTER SET - 00324 M01S00028.ns2339 +++|* D, BLANK, OR OMITTED = 6/12 DISPLAY CODE. 00325 M01S00029.ns2339 +++|* FLINE LINE NUMBER OF FIRST LINE TO COPY. 00326 M01S00030.ns2339 +++|* LLINE LINE NUMBER OF LAST LINE TO COPY. 00327 M01S00031.ns2339 +++|* NS NO STRUCTURE REPORTING. 00328 M01S00032.ns2339 +++|* 00329 M01S00033.ns2339 +++|* DEFAULT VALUES (IF PARAMETER OMITTED) - 00330 M01S00034.ns2339 +++|* 00331 M01S00035.ns2339 +++|* N -1 (COPY TO EOI). 00332 M01S00036.ns2339 +++|* LCHAR 500 (250 6/12 CHARACTERS). 00333 M01S00037.ns2339 +++|* R DO NOT REWIND FILES. 00334 M01S00038.ns2339 +++|* FCS 6/12 DISPLAY CODE. 00335 M01S00039.ns2339 +++|* FLINE PRESENT POSITION, BOI IF REWIND SPECIFIED. 00336 M01S00040.ns2339 +++|* LLINE EOI OR END OF FILE COUNT. 00337 M01S00041.ns2339 +++|* NS REPORT FILE STRUCTURE. 00338 M01S00042.ns2339 +++| 00339 M01S00043.ns2339 +++| 00340 M01S00044.ns2339 +++| SCOPY BSS 0 ENTRY 00341 M01S00045.ns2339 +++| SB1 1 00342 M01S00046.ns2339 +++| SX6 B1 SET *SCOPY* FLAG 00343 M01S00047.ns2339 +++| SX7 B1 SET STRUCTURE REPORTING 00344 M01S00048.ns2339 +++| SA6 SC 00345 M01S00049.ns2339 +++| SA7 NS 00346 M01S00050.ns2339 +++| SX6 500D SET 250-CHARACTER LINE LENGTH 00347 M01S00051.ns2339 +++| SX7 -1 SET TO COPY TO EOI 00348 M01S00052.ns2339 +++| SA6 LC 00349 M01S00053.ns2339 +++| SA7 CT 00350 M01S00054.ns2339 +++| RJ PRS PRESET PROGRAM 00351 M01S00055.ns2339 +++| RJ SCC SET CHARACTER COUNTS 00352 M01S00056.ns2339 +++| RJ SXP SET EXTRA PARAMETERS 00353 M01S00057.ns2339 +++| EQ CCF1 PROCESS FILE 00354 M00S00275.copyc +++| TITLE SUBROUTINES.
| Line S00276 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00355 M01S00276.ns2339 ---| CPR SPACE 4
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00356 M01S00058.ns2339 +++| CPR SPACE 4,20 00357 M00S00277.copyc +++|** CPR - COPY RECORD. 00358 M00S00278.copyc +++|* 00359 M00S00279.copyc +++|* ENTRY (X1) = FIRST BLOCK STATUS.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00360 M01S00007.ns2701 +++|* (X0) = NUMBER OF LINES COPIED. 00361 M00S00280.copyc +++|* (B6) = ADDRESS PLUS ONE OF LAST CHARACTER IN BUFFER. 00362 M00S00281.copyc +++|* 00363 M00S00282.copyc +++|* EXIT (X1) .LT. 0, IF EOI ENCOUNTERED. 00364 M00S00283.copyc +++|* (X1) .NE. 0, IF EOF ENCOUNTERED. 00365 M00S00284.copyc +++|* (X1) = 0, IF EOR ENCOUNTERED. 00366 M00S00285.copyc +++|*
| Line S00286 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00367 M01S00286.ns2701 ---|* USES X - 1, 2, 3, 6, 7.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00368 M01S00008.ns2701 +++|* USES X - 0, 1, 2, 3, 6, 7. 00369 M00S00287.copyc +++|* B - 5, 7. 00370 M00S00288.copyc +++|* A - 1, 2, 3, 7. 00371 M00S00289.copyc +++|*
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00372 M01S00059.ns2339 +++|* CALLS SLR. 00373 M00S00290.copyc +++|*
| Line S00291 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00374 M01S00291.ns2339 ---|* CALLS SLR. 00375 M00S00292.copyc ---|* MACROS ABORT, READS, MESSAGE, WRITEF, WRITER, WRITEW. 00376 M00S00293.copyc ---| 00377 M00S00294.copyc ---| 00378 M01S00295.ns2339 ---| CPR PS ENTRY/EXIT
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00379 M01S00060.ns2339 +++| CPR SUBR ENTRY/EXIT 00380 M00S00296.copyc +++| BX7 X1 00381 M00S00297.copyc +++| SA7 CPRA SAVE READ STATUS 00382 M00S00298.copyc +++| NZ X1,CPR4 IF EOR, EOF, OR EOI 00383 M00S00299.copyc +++| CPR1 SA2 SK
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
M02 (Removed by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00384 M02S00009.copyc1 ---| SX0 X0+1 SHOW LINE COPIED
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00385 M01S00003.copyc1 +++| SX3 B1 00386 M01S00004.copyc1 +++| IX0 X0+X3 SHOW LINE COPIED 00387 M00S00300.copyc +++| NZ X2,CPR3 IF SKIP SET 00388 M00S00301.copyc +++| SB7 BUF+BUFL LWA+1 OF BUFFER 00389 M00S00302.copyc +++| NE B6,B7,CPR1.1 IF BUFFER NOT FULL 00390 M00S00303.copyc +++| SA1 LTC INCREMENT TRUNCATION COUNT
| Line S00304 Modification History | |
|---|---|
M01 (Removed by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00391 M01S00304.copyc1 ---| SX3 B1 00392 M00S00305.copyc ---| IX7 X1+X3 00393 M01S00306.copyc1 ---| SA7 A1 UPDATE COUNT
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00394 M01S00005.copyc1 +++| SA7 A1+ UPDATE COUNT 00395 M00S00307.copyc +++| SB6 B6-B1 DECREMENT CHARACTER COUNT 00396 M00S00308.copyc +++| CPR1.1 SA1 FC 00397 M00S00309.copyc +++| SA3 LC 00398 M00S00310.copyc +++| SB5 X1+BUF ADDRESS OF FIRST CHARACTER TO BE OUTPUT 00399 M00S00311.copyc +++| GE B5,B6,CPR9 IF FIRST CHARACTER TO COPY AFTER EOL 00400 M00S00312.copyc +++| SB5 X3+BUF ADDRESS OF LAST CHARACTER TO BE OUTPUT 00401 M00S00313.copyc +++| LE B5,B6,CPR2 IF LAST CHARACTER TO COPY BEFORE EOL 00402 M00S00314.copyc +++| SX3 B6-BUF RESET LAST CHARACTER 00403 M00S00315.copyc +++| CPR2 IX6 X3-X1 NUMBER OF CHARACTERS TO BE OUTPUT 00404 M00S00316.copyc +++| RJ SLR SELECT LINE RANGE 00405 M00S00317.copyc +++| NG X6,CPR3 IF LINE NOT TO BE PRINTED 00406 M00S00318.copyc +++| WRITES O,X1+BUF,X6 00407 M00S00319.copyc +++| CPR3 SA1 CPRA 00408 M00S00320.copyc +++| NZ X1,CPR4.1 IF LAST READ STATUS WAS EOR/EOF/EOI 00409 M00S00321.copyc +++| READS I,BUF,-BUFL 00410 M00S00322.copyc +++| BX7 X1 00411 M00S00323.copyc +++| SA7 CPRA SAVE READ STATUS 00412 M00S00324.copyc +++| ZR X1,CPR1 LOOP IF NO EOR/EOF 00413 M00S00325.copyc +++| CPR4 SB5 B6-BUF 00414 M00S00326.copyc +++| NZ B5,CPR8 IF UNTERMINATED LINE 00415 M00S00327.copyc +++| CPR4.1 NG X1,CPR6 IF EOF OR EOI 00416 M00S00328.copyc +++| 00417 M00S00329.copyc +++|* PROCESS EOR. 00418 M00S00330.copyc +++| 00419 M00S00331.copyc +++| SA2 NS CHECK STRUCTURE PARAMETER 00420 M00S00332.copyc +++| ZR X2,CPR4.2 IF STRUCTURE NOT REQUESTED 00421 M00S00333.copyc +++| WRITEW O,CPRB,2 00422 M00S00334.copyc +++| CPR4.2 SA2 SK 00423 M00S00335.copyc +++| NZ X2,CPR5 IF SKIP SET 00424 M00S00336.copyc +++| WRITER O END RECORD 00425 M00S00337.copyc +++| CPR5 SX1 B0 SET EOR STATUS
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00426 M01S00010.ns2701 +++| SA3 RCNT INCREMENT RECORD COUNT 00427 M01S00011.ns2701 +++| SX7 X3+B1 00428 M01S00012.ns2701 +++| SA7 A3
| Line S00338 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00429 M01S00338.ns2339 ---| EQ CPR RETURN
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00430 M01S00061.ns2339 +++| EQ CPRX RETURN 00431 M00S00339.copyc +++| 00432 M00S00340.copyc +++|* PROCESS EOF AND EOI. 00433 M00S00341.copyc +++| 00434 M00S00342.copyc +++| CPR6 SA2 NS 00435 M00S00343.copyc +++| ZR X2,CPR6.1 IF STRUCTURE NOT REQUESTED 00436 M00S00344.copyc +++| WRITEW O,CPRC,2 00437 M00S00345.copyc +++| CPR6.1 SA2 SK 00438 M00S00346.copyc +++| NZ X2,CPR7 IF SKIP SET 00439 M00S00347.copyc +++| WRITEF O 00440 M00S00348.copyc +++| CPR7 SA2 I CHECK FILE STATUS 00441 M00S00349.copyc +++| LX2 59-9 00442 M00S00350.copyc +++| SX1 B1 SET EOF
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00443 M01S00013.ns2701 +++| SA3 FCNT INCREMENT FILE COUNT 00444 M01S00014.ns2701 +++| SX6 X3+B1 00445 M01S00015.ns2701 +++| SA6 A3
| Line S00351 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00446 M01S00351.ns2339 ---| PL X2,CPR IF NOT EOI
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00447 M01S00062.ns2339 +++| PL X2,CPRX IF NOT EOI
| Line S00352 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00448 M01S00352.ns2701 ---| SX7 1 00449 M01S00353.ns2701 ---| SA7 EI 00450 M00S00354.copyc ---| SX1 -B1 SET EOI STATUS
| Line S00355 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00451 M01S00355.ns2339 ---| EQ CPR RETURN
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00452 M01S00063.ns2339 +++| EQ CPRX RETURN 00453 M00S00356.copyc +++| 00454 M00S00357.copyc +++| CPR8 SX7 B1 SET NON Z-TYPE DATA FLAG 00455 M00S00358.copyc +++| SA7 NZ 00456 M00S00359.copyc +++| SA1 NA 00457 M00S00360.copyc +++| NZ X1,CPR1 IF NO-ABORT SPECIFIED 00458 M00S00361.copyc +++| MESSAGE ITMD,0 ISSUE NO LINE TERMINATOR MESSAGE 00459 M00S00362.copyc +++| ABORT 00460 M00S00363.copyc +++| 00461 M00S00364.copyc +++| CPR9 WRITEW O,(=1L ),B1 ISSUE NULL LINE 00462 M00S00365.copyc +++| EQ CPR3 CONTINUE RECORD COPY 00463 M00S00366.copyc +++| 00464 M00S00367.copyc +++| 00465 M00S00368.copyc +++| CPRA CON 0 LAST READ STATUS 00466 M00S00369.copyc +++| CPRB DATA C*--EOR-- * 00467 M00S00370.copyc +++| CPRC DATA C*--EOF-- * 00468 M00S00371.copyc +++| ITM SPACE 4,15 00469 M00S00372.copyc +++|** ITM - ISSUE TERMINATION MESSAGES. 00470 M00S00373.copyc +++|* 00471 M00S00374.copyc +++|* ENTRY (LTC) = NUMBER OF LINES TRUNCATED.
| Line S00375 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00472 M01S00375.ns2701 ---|* (EI) .NE. 0 IF EOI ENCOUNTERED.
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00473 M01S00016.ns2701 +++|* (X1) = -1 IF EOI ENCOUNTERED. 00474 M01S00017.ns2701 +++|* = 0 IF EOR ENCOUNTERED. 00475 M01S00018.ns2701 +++|* = 1 IF EOF ENCOUNTERED. 00476 M00S00376.copyc +++|* 00477 M00S00377.copyc +++|* EXIT APPROPRIATE MESSAGES ISSUED TO DAYFILE. 00478 M00S00378.copyc +++|*
| Line S00379 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00479 M01S00379.ns2701 ---|* USES A - 1, 2. 00480 M01S00380.ns2701 ---|* X - 1, 2.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00481 M01S00019.ns2701 +++|* USES X - 1, 2, 5, 7. 00482 M01S00020.ns2701 +++|* A - 1, 2, 7. 00483 M00S00381.copyc +++|* B - 2, 5. 00484 M00S00382.copyc +++|* 00485 M00S00383.copyc +++|* CALLS CDD, SNM. 00486 M00S00384.copyc +++|* 00487 M00S00385.copyc +++|* MACROS ENDRUN, MESSAGE. 00488 M00S00386.copyc +++| 00489 M00S00387.copyc +++|
| Line S00388 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00490 M01S00388.ns2339 ---| ITM SA1 LTC GET TRUNCATION COUNT
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00491 M01S00064.ns2339 +++| ITM BSS 0 ENTRY
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00492 M01S00021.ns2701 +++| SX7 X1+ SAVE TERMINATION TYPE 00493 M01S00022.ns2701 +++| SA7 ITME 00494 M01S00023.ns2701 +++| SA1 X1+ITMG+1 TERMINATION TYPE 00495 M01S00024.ns2701 +++| SB5 ITMF 00496 M01S00025.ns2701 +++| SB2 1R/ 00497 M01S00026.ns2701 +++| RJ SNM SET TERMINATION TYPE INTO MESSAGE
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00498 M01S00065.ns2339 +++| SA1 LTC GET TRUNCATION COUNT 00499 M00S00389.copyc +++| ZR X1,ITM1 IF NO LINES TRUNCATED 00500 M00S00390.copyc +++| RJ CDD CONVERT TO DECIMAL DISPLAY CODE 00501 M00S00391.copyc +++| MX1 1 ENTER COUNT IN MESSAGE 00502 M00S00392.copyc +++| SB2 B2-B1 00503 M00S00393.copyc +++| AX1 B2 00504 M00S00394.copyc +++| BX1 X1*X4 00505 M00S00395.copyc +++| SB2 1RX 00506 M00S00396.copyc +++| SB5 ITMA 00507 M00S00397.copyc +++| RJ SNM 00508 M00S00398.copyc +++| MESSAGE ITMA,3 ISSUE LINES TRUNCATED MESSAGE 00509 M00S00399.copyc +++| ITM1 SA1 NZ 00510 M00S00400.copyc +++| ZR X1,ITM2 IF Z-TYPE DATA 00511 M00S00401.copyc +++| MESSAGE ITMD,0 ISSUE NO LINE TERMINATOR MESSAGE 00512 M00S00402.copyc +++| ITM2 SX1 ITMB * EOI ENCOUNTERED.*
| Line S00403 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00513 M01S00403.ns2701 ---| SA2 EI 00514 M01S00404.ns2701 ---| NZ X2,ITM3 IF EOI ENCOUNTERED
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00515 M01S00027.ns2701 +++| SA2 ITME 00516 M01S00028.ns2701 +++| NG X2,ITM3 IF EOI ENCOUNTERED 00517 M00S00405.copyc +++| SX1 ITMC * COPY COMPLETE.* 00518 M00S00406.copyc +++| ITM3 MESSAGE X1,0 ISSUE COMPLETION MESSAGE 00519 M01S00029.ns2701 +++| SA1 FCNT FILE COUNT 00520 M01S00030.ns2701 +++| RJ CDD CONVERT TO DISPLAY 00521 M01S00031.ns2701 +++| SB2 B2-B1 00522 M01S00032.ns2701 +++| MX5 1 00523 M01S00033.ns2701 +++| AX1 X5,B2 00524 M01S00034.ns2701 +++| BX1 X1*X4 ZERO FILL 00525 M01S00035.ns2701 +++| SB5 ITMF 00526 M01S00036.ns2701 +++| SB2 1R+ 00527 M01S00037.ns2701 +++| RJ SNM SET FILE COUNT INTO MESSAGE 00528 M01S00038.ns2701 +++| SA1 FCNT 00529 M01S00039.ns2701 +++| SX1 X1-1 00530 M01S00040.ns2701 +++| ZR X1,ITM3.1 IF JUST ONE FILE 00531 M01S00041.ns2701 +++| SA1 =1LS 00532 M01S00042.ns2701 +++| ITM3.1 SB2 1R# 00533 M01S00043.ns2701 +++| RJ SNM SET PLURAL INTO MESSAGE 00534 M01S00044.ns2701 +++| SA1 RCNT RECORD COUNT 00535 M01S00045.ns2701 +++| RJ CDD CONVERT TO DISPLAY 00536 M01S00046.ns2701 +++| SB2 B2-B1 00537 M01S00047.ns2701 +++| AX1 X5,B2 00538 M01S00048.ns2701 +++| BX1 X1*X4 ZERO FILL 00539 M01S00049.ns2701 +++| SB2 1R- 00540 M01S00050.ns2701 +++| RJ SNM SET RECORD COUNT INTO MESSAGE 00541 M01S00051.ns2701 +++| SA1 RCNT 00542 M01S00052.ns2701 +++| SX1 X1-1 00543 M01S00053.ns2701 +++| ZR X1,ITM3.2 IF JUST ONE RECORD 00544 M01S00054.ns2701 +++| SA1 =1LS 00545 M01S00055.ns2701 +++| ITM3.2 SB2 1R$ 00546 M01S00056.ns2701 +++| RJ SNM SET PLURAL INTO MESSAGE 00547 M01S00057.ns2701 +++| BX1 X0 LINE COUNT 00548 M01S00058.ns2701 +++| RJ CDD CONVERT TO DISPLAY 00549 M01S00059.ns2701 +++| SB2 B2-B1 00550 M01S00060.ns2701 +++| AX1 X5,B2 00551 M01S00061.ns2701 +++| BX1 X1*X4 ZERO FILL 00552 M01S00062.ns2701 +++| SB2 1R, 00553 M01S00063.ns2701 +++| RJ SNM SET LINE COUNT INTO MESSAGE
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
M02 (Removed by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00554 M02S00064.copyc1 ---| SX1 X0-1
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00555 M01S00006.copyc1 +++| SX1 B1 00556 M01S00007.copyc1 +++| IX1 X0-X1
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00557 M01S00065.ns2701 +++| ZR X1,ITM3.3 IF JUST ONE LINE 00558 M01S00066.ns2701 +++| SA1 =1LS 00559 M01S00067.ns2701 +++| ITM3.3 SB2 1R= 00560 M01S00068.ns2701 +++| RJ SNM SET PLURAL INTO MESSAGE 00561 M01S00069.ns2701 +++| MESSAGE ITMF 00562 M00S00407.copyc +++| SA2 SC CHECK CALL 00563 M00S00408.copyc +++| ZR X2,ITM4 IF NOT *SCOPY* 00564 M00S00409.copyc +++| MESSAGE =0,1 CLEAR *MS1W* FOR INTERACTIVE USERS 00565 M00S00410.copyc +++| ITM4 ENDRUN 00566 M00S00411.copyc +++| 00567 M00S00412.copyc +++| 00568 M00S00413.copyc +++| ITMA DATA C* XXXXXXXXXX LINE(S) TRUNCATED.* 00569 M00S00414.copyc +++| ITMB DATA C* EOI ENCOUNTERED.* 00570 M00S00415.copyc +++| ITMC DATA C* COPY COMPLETE.* 00571 M00S00416.copyc +++| ITMD DATA C* NO LINE TERMINATOR AT EOR(S).* 00572 M01S00070.ns2701 +++| ITME BSS 1 TERMINATION TYPE 00573 M01S00071.ns2701 +++| ITMF DATA C* ///. ++++++++++ FILE#; ---------- RECORD$; ,,,,,,,,, 00574 M01S00072.ns2701 +++|,, LINE=.* 00575 M01S00073.ns2701 +++| ITMG DATA L*EOI* 00576 M01S00074.ns2701 +++| DATA L*EOR* 00577 M01S00075.ns2701 +++| DATA L*EOF* 00578 M00S00417.copyc +++| SLR SPACE 4,15 00579 M00S00418.copyc +++|** SLR - SELECT LINE RANGE. 00580 M00S00419.copyc +++|* 00581 M00S00420.copyc +++|* ENTRY (X1) = OFFSET INTO BUF OF FIRST CHARACTER OF LINE. 00582 M00S00421.copyc +++|* (X6) = NUMBER OF CHARACTERS IN LINE. 00583 M00S00422.copyc +++|* 00584 M00S00423.copyc +++|* EXIT (X1) = UNCHANGED. 00585 M00S00424.copyc +++|* (X6) = UNCHANGED IF LINE TO BE COPIED. 00586 M00S00425.copyc +++|* = -1 IF LINE TO BE SKIPPED. 00587 M00S00426.copyc +++|* 00588 M00S00427.copyc +++|* USES X - 1, 2, 3, 4, 5, 6. 00589 M00S00428.copyc +++|* A - 1, 2, 3, 4, 6. 00590 M00S00429.copyc +++|* B - 6, 7. 00591 M00S00430.copyc +++|* 00592 M00S00431.copyc +++|* CALLS DXB. 00593 M00S00432.copyc +++| 00594 M00S00433.copyc +++| 00595 M00S00434.copyc +++| SLR SUBR ENTRY/EXIT 00596 M00S00435.copyc +++| SA2 FL CHECK LINE RANGE 00597 M00S00436.copyc +++| SA3 LL 00598 M00S00437.copyc +++| IX2 X2+X3 00599 M00S00438.copyc +++| NG X2,SLRX IF NO LINE RANGE SPECIFIED 00600 M00S00439.copyc +++| SB7 X6 SET CHARACTER COUNT 00601 M00S00440.copyc +++| SA6 SLRB SAVE ENTRY CONDITION 00602 M00S00441.copyc +++| BX6 X1 00603 M00S00442.copyc +++| SA6 A6-B1 00604 M00S00443.copyc +++| SA1 X1+BUF GET FIRST CHARACTER 00605 M00S00444.copyc +++| BX5 X5-X5 CLEAR ASSEMBLY WORD 00606 M00S00445.copyc +++| SB6 60 00607 M00S00446.copyc +++| 00608 M00S00447.copyc +++|* PROCESS DISPLAY CODE FILE. 00609 M00S00448.copyc +++| 00610 M00S00449.copyc +++| SLR1 SX2 X1-1R0 CHECK CHARACTER 00611 M00S00450.copyc +++| NG X2,SLR2 IF NOT NUMERIC 00612 M00S00451.copyc +++| SX2 X1-1R+ 00613 M00S00452.copyc +++| PL X2,SLR2 IF NOT NUMERIC 00614 M00S00453.copyc +++| SB6 B6-6 00615 M00S00454.copyc +++| LX1 X1,B6 00616 M00S00455.copyc +++| BX5 X1+X5 MERGE DIGIT 00617 M00S00456.copyc +++| ZR B6,SLR2 IF TEN DIGITS PROCESSED 00618 M00S00457.copyc +++| SB7 B7-B1 00619 M00S00458.copyc +++| SA1 A1+B1 00620 M00S00459.copyc +++| ZR B7,SLR2 IF END OF LINE 00621 M00S00460.copyc +++| EQ SLR1 CONTINUE PROCESSING 00622 M00S00461.copyc +++| 00623 M00S00462.copyc +++| SLR2 ZR X5,SLR3 IF NO DIGITS FOUND 00624 M00S00463.copyc +++| RJ DXB TRANSLATE LINE NUMBER 00625 M00S00464.copyc +++| SA2 SLRB 00626 M00S00465.copyc +++| SA3 FL 00627 M00S00466.copyc +++| SA4 LL 00628 M00S00467.copyc +++| IX5 X6-X3 00629 M00S00468.copyc +++| SA1 SLRA 00630 M00S00469.copyc +++| IX3 X4-X6 00631 M00S00470.copyc +++| NG X5,SLR3 IF LINE NOT IN RANGE 00632 M00S00471.copyc +++| BX6 X2 00633 M00S00472.copyc +++| NG X4,SLRX IF NO END OF RANGE SPECIFIEC 00634 M00S00473.copyc +++| PL X3,SLRX IF IN RANGE 00635 M00S00474.copyc +++| SLR3 SX6 -1 00636 M00S00475.copyc +++| EQ SLRX EXIT 00637 M00S00476.copyc +++| 00638 M00S00477.copyc +++| 00639 M00S00478.copyc +++| SLRA CON 0 SAVE (X1) 00640 M00S00479.copyc +++| SLRB CON 0 SAVE (X6) 00641 M00S00480.copyc +++| SPACE 4 00642 M00S00481.copyc +++|* COMMON DECKS. 00643 M00S00482.copyc +++| 00644 M00S00483.copyc +++| 00645 M00S00484.copyc +++|*CALL COMCCDD 00646 M00S00485.copyc +++|*CALL COMCCIO 00647 M00S00486.copyc +++|*CALL COMCDXB 00648 M00S00487.copyc +++|*CALL COMCRDS 00649 M00S00488.copyc +++|*CALL COMCRDW 00650 M00S00489.copyc +++|*CALL COMCSNM 00651 M00S00490.copyc +++|*CALL COMCSYS 00652 M00S00491.copyc +++|*CALL COMCWTS 00653 M00S00492.copyc +++|*CALL COMCWTW 00654 M00S00493.copyc +++| SPACE 4 00655 M00S00494.copyc +++|** BUFFERS. 00656 M00S00495.copyc +++| 00657 M00S00496.copyc +++| 00658 M00S00497.copyc +++| BUFFERS BSS 0 00659 M00S00498.copyc +++| USE // 00660 M00S00499.copyc +++| SEG 00661 M00S00500.copyc +++| BSS 1 00662 M00S00501.copyc +++| BUF BSS BUFL 00663 M00S00502.copyc +++| IBUF BSS IBUFL 00664 M00S00503.copyc +++| OBUF BSS OBUFL 00665 M00S00504.copyc +++| RFL= BSS 0 00666 M00S00505.copyc +++| PRS TITLE PRESET. 00667 M00S00506.copyc +++|** PRS - PRESET PROGRAM. 00668 M00S00507.copyc +++|* 00669 M00S00508.copyc +++|* EXIT (B7) = REMAINDER ARGUMENT COUNT. 00670 M00S00509.copyc +++|* (A5) = LAST ARGUMENT ADDRESS. 00671 M00S00510.copyc +++| 00672 M00S00511.copyc +++| 00673 M00S00512.copyc +++| ORG BUF
| Line S00513 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00674 M01S00513.ns2339 ---| PRS PS ENTRY/EXIT
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00675 M01S00066.ns2339 +++| PRS SUBR ENTRY/EXIT 00676 M00S00514.copyc +++| SX6 IBUF ENTER POINTER TO INPUT BUFFER 00677 M00S00515.copyc +++| SA6 0 00678 M00S00516.copyc +++| SA1 ACTR CHECK ARGUMENT COUNT 00679 M00S00517.copyc +++| MX4 42 00680 M00S00518.copyc +++| SB7 X1
| Line S00519 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00681 M01S00519.ns2339 ---| ZR B7,PRS RETURN IF NO ARGUMENTS
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00682 M01S00067.ns2339 +++| ZR B7,PRSX IF NO ARGUMENTS 00683 M00S00520.copyc +++| 00684 M00S00521.copyc +++|* PROCESS IFILE NAME. 00685 M00S00522.copyc +++| 00686 M00S00523.copyc +++| SA5 ARGR SET IFILE NAME 00687 M00S00524.copyc +++| SA2 I 00688 M00S00525.copyc +++| BX7 X4*X5 00689 M00S00526.copyc +++| SX3 X2 00690 M00S00527.copyc +++| ZR X7,PRS1 IF BLANK ARGUMENT 00691 M00S00528.copyc +++| IX7 X7+X3 00692 M00S00529.copyc +++| SA7 A2 00693 M00S00530.copyc +++| 00694 M00S00531.copyc +++|* PROCESS OFILE NAME. 00695 M00S00532.copyc +++| 00696 M00S00533.copyc +++| PRS1 SB7 B7-B1 00697 M00S00534.copyc +++| ZR B7,PRS2 IF 1 ARGUMENT 00698 M00S00535.copyc +++| SA5 A5+B1 SET OFILE NAME 00699 M00S00536.copyc +++| SA2 O 00700 M00S00537.copyc +++| BX7 X4*X5 00701 M00S00538.copyc +++| SB7 B7-B1 00702 M00S00539.copyc +++| ZR X7,PRS2 IF BLANK ARGUMENT 00703 M00S00540.copyc +++| IX7 X7+X3 00704 M00S00541.copyc +++| SA7 A2 00705 M00S00542.copyc +++| 00706 M00S00543.copyc +++|* CHECK FILE NAMES. 00707 M00S00544.copyc +++| 00708 M00S00545.copyc +++| PRS2 SA1 I CHECK FILE NAMES 00709 M00S00546.copyc +++| SA2 O 00710 M00S00547.copyc +++| IX7 X1-X2 00711 M00S00548.copyc +++| NZ X7,PRS3 IF IFILE .NE. OFILE 00712 M00S00549.copyc +++| SX6 B1 SET SKIP FLAG 00713 M00S00550.copyc +++| SA6 SK 00714 M00S00551.copyc +++| 00715 M00S00552.copyc +++|* PROCESS COUNT. 00716 M00S00553.copyc +++|
| Line S00554 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00717 M01S00554.ns2339 ---| PRS3 ZR B7,PRS IF NO ADDITIONAL ARGUMENTS
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00718 M01S00068.ns2339 +++| PRS3 ZR B7,PRSX IF NO ADDITIONAL ARGUMENTS 00719 M00S00555.copyc +++| SA5 A5+1 00720 M00S00556.copyc +++| ZR X5,PRS4 IF BLANK ARGUMENT 00721 M00S00557.copyc +++| RJ DXB CONVERT NUMBER
| Line S00558 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00722 M01S00558.v23l617 ---| NZ X4,ERR1 IF ILLEGAL COUNT
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00723 M01S00009.v23l617 +++| NZ X4,ERR1 IF INCORRECT COUNT 00724 M00S00559.copyc +++| ZR X6,ERR1 IF COUNT = 0 00725 M00S00560.copyc +++| SA6 CT 00726 M00S00561.copyc +++| PRS4 SB7 B7-1
| Line S00562 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00727 M01S00562.ns2339 ---| EQ PRS RETURN
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00728 M01S00069.ns2339 +++| EQ PRSX RETURN 00729 M00S00563.copyc +++| SPACE 4,15 00730 M00S00564.copyc +++|** SCC - SET CHARACTER COUNTS. 00731 M00S00565.copyc +++|* 00732 M00S00566.copyc +++|* ENTRY (A5) = ADDRESS OF LAST ARGUMENT PROCESSED. 00733 M00S00567.copyc +++|* (B7) = REMAINING ARGUMENT COUNT. 00734 M00S00568.copyc +++|* 00735 M00S00569.copyc +++|* EXIT (A5) = ADDRESS-1 OF NEXT ARGUMENT. 00736 M00S00570.copyc +++|* (B7) = REMAINING ARGUMENT COUNT. 00737 M00S00571.copyc +++|* (NA) = 1 IF NO-ABORT SPECIFIED. 00738 M00S00572.copyc +++|* 00739 M00S00573.copyc +++|* USES X - 1, 2, 5, 6. 00740 M00S00574.copyc +++|* A - 1, 2, 5, 6. 00741 M00S00575.copyc +++|* B - 2, 7. 00742 M00S00576.copyc +++|* 00743 M00S00577.copyc +++|* CALLS CNA, DXB. 00744 M00S00578.copyc +++| 00745 M00S00579.copyc +++|
| Line S00580 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00746 M01S00580.ns2339 ---| SCC PS ENTRY/EXIT
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00747 M01S00070.ns2339 +++| SCC SUBR ENTRY/EXIT 00748 M01S00071.ns2339 +++| ZR B7,SCCX IF NO REMAINING ARGUMENTS 00749 M00S00581.copyc +++| SA5 A5+B1 CHECK START CHARACTER 00750 M00S00582.copyc +++| ZR X5,SCC2 IF BLANK 00751 M00S00583.copyc +++| RJ DXB
| Line S00584 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00752 M01S00584.v23l617 ---| NZ X4,ERR2 IF ILLEGAL COUNT
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00753 M01S00010.v23l617 +++| NZ X4,ERR2 IF INCORRECT COUNT 00754 M00S00585.copyc +++| ZR X6,ERR2 IF FIRST CHARACTER COUNT = ZERO 00755 M00S00586.copyc +++| SB2 X6-BUFL-1 00756 M00S00587.copyc +++| PL B2,ERR2 IF FIRST OUT OF RANGE 00757 M00S00588.copyc +++| SX6 X6-1 00758 M00S00589.copyc +++| SA6 FC 00759 M00S00590.copyc +++| SCC2 SB7 B7-B1 00760 M00S00591.copyc +++| ZR B7,SCC3 IF NO ADDITIONAL COUNTS 00761 M00S00592.copyc +++| SA5 A5+B1 CHECK TERMINAL CHARACTER 00762 M00S00593.copyc +++| ZR X5,SCC2.1 IF BLANK 00763 M00S00594.copyc +++| RJ DXB
| Line S00595 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00764 M01S00595.v23l617 ---| NZ X4,ERR2 IF ILLEGAL COUNT
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00765 M01S00011.v23l617 +++| NZ X4,ERR2 IF INCORRECT COUNT 00766 M00S00596.copyc +++| SB2 X6-BUFL-1 00767 M00S00597.copyc +++| PL B2,ERR2 IF LAST OUT OF RANGE 00768 M00S00598.copyc +++| SA6 LC 00769 M00S00599.copyc +++| SCC2.1 SB7 B7-B1 DECREMENT ARGUMENT COUNT 00770 M00S00600.copyc +++| SCC3 SA1 FC CHECK CHARACTER LIMITS 00771 M00S00601.copyc +++| SA2 LC 00772 M00S00602.copyc +++| IX6 X2-X1 00773 M00S00603.copyc +++| NG X6,ERR2 IF FIRST .GT. LAST
| Line S00604 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00774 M01S00604.ns2339 ---| ZR B7,SCC IF NO ADDITIONAL ARGUMENTS 00775 M00S00605.copyc ---| RJ CNA CHECK FOR *NA* PARAMETER 00776 M01S00606.ns2339 ---| SA1 SC 00777 M01S00607.ns2339 ---| NZ X1,SCC IF *SCOPY* CALL 00778 M01S00608.ns2339 ---| NZ B7,ERR3 IF TOO MANY PARAMETERS 00779 M01S00609.ns2339 ---| EQ SCC RETURN
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00780 M01S00072.ns2339 +++| EQ SCCX RETURN 00781 M00S00610.copyc +++| CNA SPACE 4,10 00782 M00S00611.copyc +++|** CNA - CHECK FOR *NA* PARAMETER (NO ABORT). 00783 M00S00612.copyc +++|* 00784 M00S00613.copyc +++|* ENTRY (A5) = ADDRESS OF LAST ARGUMENT PROCESSED. 00785 M01S00073.ns2339 +++|* (B7) = REMAINING ARGUMENT COUNT. 00786 M00S00614.copyc +++|* 00787 M00S00615.copyc +++|* EXIT (NA) = 1 IF NO-ABORT SPECIFIED. 00788 M00S00616.copyc +++|* (B7) = REMAINING ARGUMENT COUNT. 00789 M00S00617.copyc +++|* 00790 M00S00618.copyc +++|* USES X - 5, 6. 00791 M00S00619.copyc +++|* A - 5, 6. 00792 M00S00620.copyc +++|* B - 7. 00793 M00S00621.copyc +++| 00794 M00S00622.copyc +++| 00795 M00S00623.copyc +++| CNA SUBR ENTRY/EXIT 00796 M01S00074.ns2339 +++| ZR B7,CNAX IF NO REMAINING ARGUMENTS 00797 M00S00624.copyc +++| SA5 A5+B1 CHECK *NA* PARAMETER 00798 M00S00625.copyc +++| SB7 B7-B1 00799 M00S00626.copyc +++| ZR X5,CNAX IF BLANK 00800 M00S00627.copyc +++| SX6 B1 00801 M00S00628.copyc +++| SA6 NA SET *NA* FLAG 00802 M00S00629.copyc +++| EQ CNAX RETURN 00803 M00S00630.copyc +++| SXP SPACE 4,15 00804 M00S00631.copyc +++|** SXP - SET EXTRA PARAMETERS. 00805 M00S00632.copyc +++|* 00806 M00S00633.copyc +++|* ENTRY (A5) = ADDRESS OF LAST ARGUMENT PROCESSED. 00807 M00S00634.copyc +++|* (B7) = ARGUMENT COUNT. 00808 M00S00635.copyc +++|* 00809 M00S00636.copyc +++|* USES X - 0, 1, 2, 4, 5, 6. 00810 M00S00637.copyc +++|* A - 1, 2, 5, 6. 00811 M00S00638.copyc +++|* B - 7. 00812 M00S00639.copyc +++|* 00813 M00S00640.copyc +++|* CALLS CCS, DXB, ERR. 00814 M00S00641.copyc +++|* 00815 M00S00642.copyc +++|* MACROS REWIND. 00816 M00S00643.copyc +++| 00817 M00S00644.copyc +++| 00818 M00S00645.copyc +++| SXP SUBR ENTRY/EXIT 00819 M01S00075.ns2339 +++| ZR B7,SXPX IF NO REMAINING ARGUMENTS 00820 M00S00646.copyc +++| 00821 M00S00647.copyc +++|* PROCESS REWIND PARAMETER. 00822 M00S00648.copyc +++| 00823 M00S00649.copyc +++| SA5 A5+B1 00824 M00S00650.copyc +++| ZR X5,SXP1 IF NULL PARAMETER 00825 M00S00651.copyc +++| AX5 54 00826 M00S00652.copyc +++| SX6 X5-1RR
| Line S00653 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00827 M01S00653.v23l617 ---| NZ X6,ERR4 IF ILLEGAL PARAMETER
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00828 M01S00012.v23l617 +++| NZ X6,ERR4 IF INCORRECT PARAMETER 00829 M00S00654.copyc +++| REWIND I 00830 M00S00655.copyc +++| REWIND O 00831 M00S00656.copyc +++| SXP1 SB7 B7-B1
| Line S00657 Modification History | |
|---|---|
M01 (Removed by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00832 M01S00657.ns2339 ---| ZR B7,SXPX IF NO MORE PARAMETERS 00833 M00S00658.copyc ---| RJ CCS CHECK CHARACTER SET 00834 M00S00659.copyc ---| ZR B7,SXPX IF NO MORE PARAMETERS 00835 M00S00660.copyc ---| 00836 M00S00661.copyc ---|* PROCESS LINE NUMBER PARAMETERS. 00837 M00S00662.copyc ---| 00838 M00S00663.copyc ---| SA5 A5+B1 GET FIRST LINE NUMBER 00839 M00S00664.copyc ---| ZR X5,SXP2 IF NULL PARAMETER 00840 M00S00665.copyc ---| RJ DXB TRANSLATE PARAMETER 00841 M00S00666.copyc ---| NZ X4,ERR5 IF ERROR DETECTED 00842 M00S00667.copyc ---| SA6 FL 00843 M00S00668.copyc ---| SXP2 SB7 B7-B1 00844 M00S00669.copyc ---| ZR B7,SXPX IF NO MORE PARAMETERS 00845 M00S00670.copyc ---| SA5 A5+B1 00846 M00S00671.copyc ---| ZR X5,SXP3 IF NULL PARAMETER 00847 M00S00672.copyc ---| RJ DXB TRANSLATE PARAMETER 00848 M00S00673.copyc ---| NZ X4,ERR5 IF ERROR DETECTED 00849 M00S00674.copyc ---| SA6 LL 00850 M00S00675.copyc ---| ZR X6,SXP3 IF EOI SPECIFIED 00851 M00S00676.copyc ---| SA1 FL 00852 M00S00677.copyc ---| IX6 X6-X1 00853 M00S00678.copyc ---| NG X6,ERR5 IF FIRST .GT. LAST 00854 M00S00679.copyc ---| SXP3 SB7 B7-B1 00855 M00S00680.copyc ---| ZR B7,SXPX IF NO MORE PARAMETERS 00856 M00S00681.copyc ---| 00857 M00S00682.copyc ---|* PROCESS STRUCTURE PARAMETER. 00858 M00S00683.copyc ---| 00859 M00S00684.copyc ---| SA5 A5+B1 00860 M00S00685.copyc ---| ZR X5,SXP4 IF NULL PARAMETER 00861 M00S00686.copyc ---| AX5 48 00862 M00S00687.copyc ---| BX6 X6-X6 00863 M00S00688.copyc ---| SX5 X5-2RNS 00864 M00S00689.copyc ---| NZ X5,ERR6 IF NOT *NS* 00865 M00S00690.copyc ---| SA6 NS 00866 M00S00691.copyc ---| SXP4 SB7 B7-B1 00867 M00S00692.copyc ---| NZ B7,ERR3 IF TOO MANY PARAMETERS 00868 M00S00693.copyc ---| EQ SXPX EXIT 00869 M00S00694.copyc ---| CCS SPACE 4,15 00870 M00S00695.copyc ---|** CCS - CHECK CHARACTER SET. 00871 M00S00696.copyc ---|* 00872 M00S00697.copyc ---|* ENTRY (A5) = ADDRESS OF LAST ARGUMENT PROCESSED. 00873 M00S00698.copyc ---|* (B7) = NUMBER OF PARAMETERS LEFT TO PROCESS. 00874 M00S00699.copyc ---|* 00875 M00S00700.copyc ---|* EXIT (A5) = UPDATED. 00876 M00S00701.copyc ---|* (B7) = UPDATED. 00877 M00S00702.copyc ---|* 00878 M00S00703.copyc ---|* USES X - 1, 2, 5. 00879 M00S00704.copyc ---|* A - 5. 00880 M00S00705.copyc ---|* B - 7. 00881 M00S00706.copyc ---|* 00882 M00S00707.copyc ---|* CALLS ERR. 00883 M00S00708.copyc ---| 00884 M00S00709.copyc ---| 00885 M00S00710.copyc ---| CCS SUBR ENTRY/EXIT
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00886 M01S00076.ns2339 +++| ZR B7,CCSX IF NO REMAINING ARGUMENTS 00887 M00S00711.copyc +++| SA5 A5+B1 00888 M00S00712.copyc +++| SB7 B7-B1 00889 M00S00713.copyc +++| ZR X5,CCSX IF NULL PARAMETER 00890 M00S00714.copyc +++| MX2 48 00891 M00S00715.copyc +++| BX5 X2*X5 00892 M00S00716.copyc +++| LX5 6 00893 M00S00717.copyc +++| SX1 X5-1RD 00894 M00S00718.copyc +++| NZ X1,ERR7 IF NOT 6/12 DISPLAY CODE 00895 M00S00719.copyc +++| EQ CCSX EXIT 00896 M00S00720.copyc +++| ERR SPACE 4 00897 M00S00721.copyc +++|** ERR - PROCESS ERRORS. 00898 M00S00722.copyc +++| 00899 M00S00723.copyc +++| 00900 M00S00724.copyc +++| ERR1 SX0 ERRA 00901 M00S00725.copyc +++| EQ ERR 00902 M00S00726.copyc +++| 00903 M00S00727.copyc +++| ERR2 SX0 ERRB 00904 M00S00728.copyc +++| EQ ERR EXIT 00905 M00S00729.copyc +++| 00906 M00S00730.copyc +++| ERR3 SX0 ERRC 00907 M00S00731.copyc +++| EQ ERR EXIT 00908 M00S00732.copyc +++| 00909 M00S00733.copyc +++| ERR4 SX0 ERRD 00910 M00S00734.copyc +++| EQ ERR EXIT 00911 M00S00735.copyc +++| 00912 M00S00736.copyc +++| ERR5 SX0 ERRE 00913 M00S00737.copyc +++| EQ ERR EXIT 00914 M00S00738.copyc +++| 00915 M00S00739.copyc +++| ERR6 SX0 ERRF 00916 M00S00740.copyc +++| EQ ERR EXIT 00917 M00S00741.copyc +++| 00918 M00S00742.copyc +++| ERR7 SX0 ERRG 00919 M00S00743.copyc +++| 00920 M00S00744.copyc +++| ERR MESSAGE X0 00921 M00S00745.copyc +++| ABORT 00922 M00S00746.copyc +++|
| Line S00747 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00923 M01S00747.v23l617 ---| ERRA DATA C*ILLEGAL COUNT.* 00924 M01S00748.v23l617 ---| ERRB DATA C*ILLEGAL CHARACTER NUMBER.*
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00925 M01S00013.v23l617 +++| ERRA DATA C*INCORRECT COUNT.* 00926 M01S00014.v23l617 +++| ERRB DATA C*INCORRECT CHARACTER NUMBER.* 00927 M00S00749.copyc +++| ERRC DATA C*TOO MANY PARAMETERS.*
| Line S00750 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00928 M01S00750.v23l617 ---| ERRD DATA C*ILLEGAL REWIND SPECIFICATION.* 00929 M01S00751.v23l617 ---| ERRE DATA C*ILLEGAL LINE NUMBER SPECIFICATION.* 00930 M01S00752.v23l617 ---| ERRF DATA C*ILLEGAL STRUCTURE SPECIFICATION.* 00931 M01S00753.v23l617 ---| ERRG DATA C*ILLEGAL CHARACTER SET SPECIFICATION.*
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00932 M01S00015.v23l617 +++| ERRD DATA C*INCORRECT REWIND SPECIFICATION.* 00933 M01S00016.v23l617 +++| ERRE DATA C*INCORRECT LINE NUMBER SPECIFICATION.* 00934 M01S00017.v23l617 +++| ERRF DATA C*INCORRECT STRUCTURE SPECIFICATION.* 00935 M01S00018.v23l617 +++| ERRG DATA C*INCORRECT CHARACTER SET SPECIFICATION.* 00936 M00S00754.copyc +++| SPACE 4 00937 M00S00755.copyc +++| END
cdc/nos2.source/opl.opl871/deck/copyc.txt · Last modified: (external edit)