cdc:nos2.source:opl.opl871:deck:copyc
Deck COPYC
6 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.copyc +++| IDENT COPYC,FETS 00002 M01S00002.copyc +++| ABS 00003 M01S00003.copyc +++| ENTRY COPYSBF 00004 M01S00004.copyc +++| ENTRY COPYCF 00005 M01S00005.copyc +++| ENTRY SCOPY 00006 M01S00006.copyc +++| ENTRY COPYCR 00007 M01S00001.ns2402 +++| ENTRY NPC= 00008 M01S00007.copyc +++| ENTRY RFL= 00009 M01S00008.copyc +++| ENTRY SSM= 00010 M01S00009.copyc +++| SYSCOM B1 DEFINE (B1) = 1 00011 M01S00010.copyc +++|*COMMENT COPYC - CODED FILE COPIES.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M02S00011.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00013 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00014 M01S00012.copyc +++| TITLE COPYC - CODED FILE COPIES. 00015 M01S00013.copyc +++| SPACE 4 00016 M01S00014.copyc +++|*** COPYC - CODED FILE COPIES. 00017 M01S00015.copyc +++|* G. R. MANSFIELD. 70/11/25. 00018 M01S00016.copyc +++| SPACE 4 00019 M01S00017.copyc +++|*** DAYFILE MESSAGES. 00020 M01S00018.copyc +++|* 00021 M01S00019.copyc +++|* * COPY COMPLETE.* = INFORMATIVE MESSAGE INDICATING COPY 00022 M01S00020.copyc +++|* COUNT WAS EXHAUSTED BEFORE EOI REACHED. 00023 M01S00021.copyc +++|* 00024 M01S00022.copyc +++|* * EOI ENCOUNTERED.* = INFORMATIVE MESSAGE INDICATING END 00025 M01S00023.copyc +++|* OF INFORMATION WAS ENCOUNTED BEFORE THE COPY COUNT WAS 00026 M01S00024.copyc +++|* EXHAUSTED. 00027 M01S00025.copyc +++|*
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00028 M02S00026.v23l617 ---|* *ILLEGAL CHARACTER NUMBER.* = ILLEGAL FIRST/LAST CHARACTER
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00029 M02S00027.v23l617 ---|* NUMBER SPECIFIED. 00030 M01S00001.v23l617 +++|* *INCORRECT CHARACTER NUMBER.* = INCORRECT FIRST/LAST 00031 M01S00002.v23l617 +++|* CHARACTER NUMBER SPECIFIED. 00032 M01S00028.copyc +++|*
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00033 M02S00029.v23l617 ---|* *ILLEGAL COUNT.* = OPTIONAL RECORD/FILE COUNT ILLEGAL FORMAT. 00034 M01S00003.v23l617 +++|* *INCORRECT COUNT.* = OPTIONAL RECORD/FILE COUNT INCORRECT 00035 M01S00004.v23l617 +++|* FORMAT. 00036 M01S00030.copyc +++|* 00037 M01S00031.copyc +++|* * NO LINE TERMINATOR AT EOR(S).* = NO LINE TERMINATOR WAS 00038 M01S00032.copyc +++|* FOUND FOR THE LAST LINE OF A RECORD(S) (RECORD NOT Z-TYPE 00039 M01S00033.copyc +++|* DATA). THE LINE TERMINATOR IS ADDED, AND THE JOB IS ABORTED 00040 M01S00034.copyc +++|* IF THE *NA* PARAMETER IS NOT SPECIFIED. 00041 M01S00035.copyc +++|* 00042 M01S00036.copyc +++|* * NNNN LINE(S) TRUNCATED.* = INFORMATIVE MESSAGE INDICATING 00043 M01S00037.copyc +++|* NNNN LINES WERE TRUNCATED DURING COPYING. 00044 M01S00038.copyc +++|* 00045 M01S00039.copyc +++|* *TOO MANY PARAMETERS.* = MORE THAN SIX PARAMETERS WERE
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00046 M02S00040.ns2339 ---|* SPECIFIED ON A *COPYCF* CALL, OR MORE THAN 00047 M01S00001.ns2339 +++|* SPECIFIED ON A *COPYCF* OR *COPYCR* CALL, OR MORE THAN 00048 M01S00041.copyc +++|* ELEVEN ON AN *SCOPY* CALL. 00049 M01S00042.copyc +++|*
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00050 M02S00043.v23l617 ---|* *ILLEGAL LINE NUMBER SPECIFICATION.* = ILLEGAL 00051 M01S00005.v23l617 +++|* *INCORRECT LINE NUMBER SPECIFICATION.* = INCORRECT 00052 M01S00044.copyc +++|* FIRST/LAST LINE NUMBER SPECIFIED. 00053 M01S00045.copyc +++|*
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00054 M02S00046.v23l617 ---|* *ILLEGAL REWIND SPECIFICATION.* = REWIND PARAMETER 00055 M01S00006.v23l617 +++|* *INCORRECT REWIND SPECIFICATION.* = REWIND PARAMETER 00056 M01S00047.copyc +++|* NOT *R* OR OMITTED. 00057 M01S00048.copyc +++|*
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00058 M02S00049.v23l617 ---|* *ILLEGAL STRUCTURE SPECIFICATION.* = STRUCTURE 00059 M01S00007.v23l617 +++|* *INCORRECT STRUCTURE SPECIFICATION.* = STRUCTURE 00060 M01S00050.copyc +++|* PARAMETER NOT *NS* OR OMITTED. 00061 M01S00051.copyc +++|*
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00062 M02S00052.v23l617 ---|* *ILLEGAL CHARACTER SET SPECIFICATION.* = CHARACTER 00063 M01S00008.v23l617 +++|* *INCORRECT CHARACTER SET SPECIFICATION.* = CHARACTER 00064 M01S00053.copyc +++|* SET PARAMETER NOT *D* OR OMITTED. 00065 M01S00054.copyc +++| SPACE 4 00066 M01S00055.copyc +++|**** ASSEMBLY CONSTANTS. 00067 M01S00056.copyc +++| 00068 M01S00057.copyc +++|
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00069 M02S00058.ns2339 ---| LINL EQU 160 WORKING BUFFER LENGTH (6-BIT CHARACTERS) 00070 M01S00002.ns2339 +++| LINL EQU 500D WORKING BUFFER LENGTH (6-BIT CHARACTERS) 00071 M01S00059.copyc +++| BUFL EQU LINL+1 WORKING BUFFER LENGTH + 1 00072 M01S00060.copyc +++| IBUFL EQU 2001B IFILE BUFFER LENGTH 00073 M01S00061.copyc +++| OBUFL EQU 2001B OFILE BUFFER LENGTH 00074 M01S00062.copyc +++|**** 00075 M01S00063.copyc +++| 00076 M01S00064.copyc +++|
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2402 |
Seq # *Modification Id* Act ----------------------------+ 00077 M02S00065.ns2402 ---|* SPECIAL ENTRY POINT.
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2402 |
Seq # *Modification Id* Act ----------------------------+ 00078 M02S00066.ns2402 ---| 00079 M01S00002.ns2402 +++|* SPECIAL ENTRY POINTS. 00080 M01S00003.ns2402 +++| 00081 M01S00004.ns2402 +++| NPC= EQU 0 FORCE OPERATING SYSTEM PARAMETER FORMAT 00082 M01S00005.ns2402 +++| 00083 M01S00067.copyc +++| SSM= EQU 0 SUPPRESS DUMPS OF FIELD LENGTH 00084 M01S00068.copyc +++| 00085 M01S00069.copyc +++|*CALL COMCMAC 00086 M01S00070.copyc +++| TITLE COMMON DATA 00087 M01S00071.copyc +++| DATA SPACE 4 00088 M01S00072.copyc +++| 00089 M01S00073.copyc +++| 00090 M01S00074.copyc +++| ORG 120B 00091 M01S00075.copyc +++| FETS BSS 0 00092 M01S00076.copyc +++| 00093 M01S00077.copyc +++| I BSS 0 00094 M01S00078.copyc +++| INPUT RFILEC IBUF,IBUFL,(FET=8) 00095 M01S00079.copyc +++| 00096 M01S00080.copyc +++| O BSS 0 00097 M01S00081.copyc +++| OUTPUT RFILEC OBUF,OBUFL,(FET=8) 00098 M01S00082.copyc +++| 00099 M01S00083.copyc +++| CT CON 1 COUNT
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00100 M02S00084.ns2701 ---| EI CON 0 EOI MESSAGE SENT FLAG 00101 M01S00085.copyc +++| SK CON 0 SKIP FLAG 00102 M01S00086.copyc +++| FC CON 0 FIRST CHARACTER 00103 M01S00087.copyc +++| LC CON 136 LAST CHARACTER 00104 M01S00088.copyc +++| LTC CON 0 COUNT OF LINES TRUNCATED 00105 M01S00089.copyc +++| NA CON 0 NO-ABORT FLAG 00106 M01S00090.copyc +++| NZ CON 0 NON Z-TYPE DATA FLAG 00107 M01S00091.copyc +++| FL CON 0 FIRST LINE NUMBER 00108 M01S00092.copyc +++| LL CON -1 LAST LINE NUMBER 00109 M01S00093.copyc +++| NS CON 0 STRUCTURE REPORTING FLAG 00110 M01S00094.copyc +++| AS CON 0 ASCII8 FLAG 00111 M01S00095.copyc +++| AF CON 0 ASCII8 WITH FORMAT EFFECTORS FLAG 00112 M01S00096.copyc +++| LN CON 0 LINE NUMBER ERROR MESSAGE FLAG 00113 M01S00097.copyc +++| SC CON 0 *SCOPY* FLAG 00114 M01S00001.ns2701 +++| FCNT CON 0 FILE COUNT 00115 M01S00002.ns2701 +++| RCNT CON 0 RECORD COUNT 00116 M01S00098.copyc +++| TITLE MAIN PROGRAMS. 00117 M01S00003.ns2339 +++| COPYCF SPACE 4,25 00118 M01S00099.copyc +++|*** COPYCF (IFILE,OFILE,N,FCHAR,LCHAR,NA) 00119 M01S00100.copyc +++|* 00120 M01S00101.copyc +++|* 00121 M01S00102.copyc +++|* COPYCF COPIES FILES FROM MEDIUM TO MEDIUM IN CODED MODE. 00122 M01S00103.copyc +++|* FILES ARE TREATED AS 6-BIT CHARACTER DATA WITH A MAXIMUM
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00123 M02S00104.ns2339 ---|* LINE LENGTH DEFINED BY THE CONSTANT *LINL* (160) . 00124 M01S00004.ns2339 +++|* LINE LENGTH DEFINED BY THE CONSTANT *LINL* (500) . 00125 M01S00105.copyc +++|* 00126 M01S00106.copyc +++|* IFILE INPUT FILE NAME. 00127 M01S00107.copyc +++|* OFILE OUTPUT FILE NAME. 00128 M01S00108.copyc +++|* N NUMBER OF FILES TO COPY. 00129 M01S00109.copyc +++|* FCHAR FIRST CHARACTER TO COPY. 00130 M01S00110.copyc +++|* LCHAR LAST CHARACTER TO COPY. 00131 M01S00111.copyc +++|* NA DO NOT ABORT IF RECORD NOT Z-TYPE DATA. 00132 M01S00112.copyc +++|* 00133 M01S00113.copyc +++|* IF IFILE = OFILE, FILES ON IFILE ARE SKIPPED. 00134 M01S00114.copyc +++|* 00135 M01S00115.copyc +++|* ASSUMED PARAMETERS. 00136 M01S00116.copyc +++|* IFILE = *INPUT* 00137 M01S00117.copyc +++|* OFILE = *OUTPUT* 00138 M01S00118.copyc +++|* N = 1 00139 M01S00119.copyc +++|* FCHAR = 1 00140 M01S00120.copyc +++|* LCHAR = 136 00141 M01S00121.copyc +++|* NA NOT SPECIFIED. 00142 M01S00122.copyc +++| 00143 M01S00123.copyc +++|
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00144 M02S00124.ns2339 ---| COPYCF SB1 1 (B1) = 1 00145 M01S00005.ns2339 +++| COPYCF BSS 0 ENTRY 00146 M01S00006.ns2339 +++| SB1 1 (B1) = 1 00147 M01S00125.copyc +++| RJ PRS PRESET PROGRAM
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00148 M02S00126.ns2339 ---| ZR B7,CCF1 IF NO ADDITIONAL ARGUMENTS 00149 M01S00127.copyc +++| RJ SCC SET CHARACTER COUNTS
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00150 M02S00128.ns2339 ---| ZR B7,CCF1 IF NO ADDITIONAL ARGUMENTS
| Line S00129 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00151 M02S00129.ns2339 ---| RJ SXP SET EXTRA PARAMETERS 00152 M01S00007.ns2339 +++| NZ B7,ERR3 IF TOO MANY ARGUMENTS 00153 M01S00003.ns2701 +++| SX0 0 INITIALIZE LINE TRANSFER COUNT 00154 M01S00130.copyc +++| 00155 M01S00131.copyc +++| CCF1 READ I BEGIN READ 00156 M01S00132.copyc +++| RECALL O 00157 M01S00133.copyc +++| READS I,BUF,-BUFL 00158 M01S00134.copyc +++| RJ CPR COPY RECORD 00159 M01S00135.copyc +++| NG X1,ITM IF EOI 00160 M01S00136.copyc +++| ZR X1,CCF1 LOOP TO EOF 00161 M01S00137.copyc +++| SA2 CT DECREMENT COUNT 00162 M01S00138.copyc +++| SX6 X2-1 00163 M01S00139.copyc +++| SA6 A2 00164 M01S00140.copyc +++| NZ X6,CCF1 LOOP FOR ALL FILES 00165 M01S00141.copyc +++| EQ ITM TERMINATE PROGRAM
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00166 M02S00142.ns2339 ---| COPYCFX SPACE 4,25
| Line S00143 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00167 M02S00143.ns2339 ---|*** SCOPY(IFILE,OFILE,N,FCAR,LCAR,NA,R,FCS,FLINE,LLINE,NS)
| Line S00144 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00168 M02S00144.ns2339 ---|*
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00169 M02S00145.ns2339 ---|* SCOPY (STRUCTURE COPY) IS SIMILAR TO COPYCF, WITH EXTRA
| Line S00146 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00170 M02S00146.ns2339 ---|* OPTIONS. THE FIRST SIX PARAMETERS ARE EXPLAINED IN THE
| Line S00147 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00171 M02S00147.ns2339 ---|* COPYCF HEADER. THE EXTRA PARAMETERS ARE AS FOLLOWS.
| Line S00148 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00172 M02S00148.ns2339 ---|*
| Line S00149 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00173 M02S00149.ns2339 ---|* R REWIND BOTH INPUT AND OUTPUT FILES.
| Line S00150 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00174 M02S00150.ns2339 ---|* FCS FILE CHARACTER SET -
| Line S00151 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00175 M02S00151.ns2339 ---|* D, BLANK, OR OMITTED = 6/12 DISPLAY CODE.
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00176 M02S00152.ns2339 ---|* FLINE LINE NUMBER OF FIRST LINE TO COPY.
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00177 M02S00153.ns2339 ---|* LLINE LINE NUMBER OF LAST LINE TO COPY.
| Line S00154 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00178 M02S00154.ns2339 ---|* NS NO STRUCTURE REPORTING.
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00179 M02S00155.ns2339 ---|*
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00180 M02S00156.ns2339 ---|* DEFAULT VALUES (IF PARAMETER OMITTED) -
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00181 M02S00157.ns2339 ---|*
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00182 M02S00158.ns2339 ---|* R DO NOT REWIND FILES.
| Line S00159 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00183 M02S00159.ns2339 ---|* FCS 6/12 DISPLAY CODE.
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00184 M02S00160.ns2339 ---|* FLINE PRESENT POSITION, BOI IF REWIND SPECIFIED.
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00185 M02S00161.ns2339 ---|* LLINE EOI OR END OF FILE COUNT.
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00186 M02S00162.ns2339 ---|* NS REPORT FILE STRUCTURE.
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00187 M02S00163.ns2339 ---|
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00188 M02S00164.ns2339 ---|
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00189 M02S00165.ns2339 ---| SCOPY SX6 1 SET *SCOPY* FLAG
| Line S00166 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00190 M02S00166.ns2339 ---| SA6 SC
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00191 M02S00167.ns2339 ---| SA6 NS
| Line S00168 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00192 M02S00168.ns2339 ---| EQ COPYCF PROCESS FILE
| Line S00169 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00193 M02S00169.ns2339 ---| COPYCR SPACE 4 00194 M01S00008.ns2339 +++| COPYCR SPACE 4,25 00195 M01S00170.copyc +++|*** COPYCR (IFILE,OFILE,N,FCHAR,LCHAR,NA) 00196 M01S00171.copyc +++|* 00197 M01S00172.copyc +++|* 00198 M01S00173.copyc +++|* COPYCR COPIES RECORDS FROM MEDIUM TO MEDIUM IN CODED MODE. 00199 M01S00174.copyc +++|* FILES ARE TREATED AS 6-BIT CHARACTER DATA WITH A MAXIMUM
| Line S00175 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00200 M02S00175.ns2339 ---|* LINE LENGTH DEFINED BY THE CONSTANT *LINL* (160) . 00201 M01S00009.ns2339 +++|* LINE LENGTH DEFINED BY THE CONSTANT *LINL* (500) . 00202 M01S00176.copyc +++|* 00203 M01S00177.copyc +++|* IFILE INPUT FILE NAME. 00204 M01S00178.copyc +++|* OFILE OUTPUT FILE NAME. 00205 M01S00179.copyc +++|* N NUMBER OF RECORDS TO COPY. 00206 M01S00180.copyc +++|* FCHAR FIRST CHARACTER TO COPY. 00207 M01S00181.copyc +++|* LCHAR LAST CHARACTER TO COPY. 00208 M01S00182.copyc +++|* NA DO NOT ABORT IF RECORD NOT Z-TYPE DATA. 00209 M01S00183.copyc +++|* 00210 M01S00184.copyc +++|* IF IFILE = OFILE, RECORDS ON IFILE ARE SKIPPED. 00211 M01S00185.copyc +++|* 00212 M01S00186.copyc +++|* ASSUMED PARAMETERS. 00213 M01S00187.copyc +++|* IFILE = *INPUT* 00214 M01S00188.copyc +++|* OFILE = *OUTPUT* 00215 M01S00189.copyc +++|* N = 1 00216 M01S00190.copyc +++|* FCHAR = 1 00217 M01S00191.copyc +++|* LCHAR = 136 00218 M01S00192.copyc +++|* NA NOT SPECIFIED. 00219 M01S00193.copyc +++| 00220 M01S00194.copyc +++|
| Line S00195 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00221 M02S00195.ns2339 ---| COPYCR SB1 1 (B1) = 1 00222 M01S00010.ns2339 +++| COPYCR BSS 0 ENTRY 00223 M01S00011.ns2339 +++| SB1 1 (B1) = 1 00224 M01S00196.copyc +++| RJ PRS PRESET PROGRAM
| Line S00197 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00225 M02S00197.ns2339 ---| ZR B7,CCR1 IF NO ADDITIONAL ARGUMENTS 00226 M01S00198.copyc +++| RJ SCC SET CHARACTER COUNTS 00227 M01S00012.ns2339 +++| NZ B7,ERR3 IF TOO MANY ARGUMENTS 00228 M01S00004.ns2701 +++| SX0 0 INITIALIZE LINE TRANSFER COUNT 00229 M01S00199.copyc +++| 00230 M01S00200.copyc +++| CCR1 READ I BEGIN READ 00231 M01S00201.copyc +++| RECALL O 00232 M01S00202.copyc +++| READS I,BUF,-BUFL 00233 M01S00203.copyc +++| RJ CPR COPY RECORD 00234 M01S00204.copyc +++| NG X1,ITM IF EOI 00235 M01S00205.copyc +++| SA2 CT DECREMENT COUNT 00236 M01S00206.copyc +++| SX6 X2-1 00237 M01S00207.copyc +++| SA6 A2 00238 M01S00208.copyc +++| NZ X6,CCR1 LOOP FOR ALL RECORDS 00239 M01S00209.copyc +++| EQ ITM TERMINATE PROGRAM
| Line S00210 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00240 M02S00210.ns2339 ---| COPYSBF SPACE 4 00241 M01S00013.ns2339 +++| COPYSBF SPACE 4,20 00242 M01S00211.copyc +++|*** COPYSBF (IFILE,OFILE,N,NA) 00243 M01S00212.copyc +++|* 00244 M01S00213.copyc +++|* 00245 M01S00214.copyc +++|* COPYSBF COPIES FILES FROM MEDIUM TO MEDIUM IN BINARY MODE, 00246 M01S00215.copyc +++|* SHIFTING EACH LINE IMAGE 1 CHARACTER TO THE RIGHT AND ADDING 00247 M01S00216.copyc +++|* A LEADING SPACE. A PAGE EJECT IS WRITTEN AT THE BEGINNING 00248 M01S00217.copyc +++|* OF EACH RECORD. 00249 M01S00218.copyc +++|* 00250 M01S00219.copyc +++|* IFILE INPUT FILE NAME. 00251 M01S00220.copyc +++|* OFILE OUTPUT FILE NAME. 00252 M01S00221.copyc +++|* N NUMBER OF FILES TO COPY. 00253 M01S00222.copyc +++|* NA DO NOT ABORT IF RECORD NOT Z-TYPE DATA. 00254 M01S00223.copyc +++|* 00255 M01S00224.copyc +++|* ASSUMED PARAMETERS. 00256 M01S00225.copyc +++|* IFILE = *INPUT* 00257 M01S00226.copyc +++|* OFILE = *OUTPUT* 00258 M01S00227.copyc +++|* N = 1 00259 M01S00228.copyc +++|* NA NOT SPECIFIED. 00260 M01S00229.copyc +++| 00261 M01S00230.copyc +++|
| Line S00231 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00262 M02S00231.ns2339 ---| COPYSBF SB1 1 (B1) = 1 00263 M01S00014.ns2339 +++| COPYSBF BSS 0 ENTRY 00264 M01S00015.ns2339 +++| SB1 1 (B1) = 1 00265 M01S00232.copyc +++| RJ PRS PRESET PROGRAM
| Line S00233 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00266 M02S00233.ns2339 ---| ZR B7,CFS0.1 IF NO ADDITIONAL ARGUMENTS 00267 M01S00234.copyc +++| RJ CNA CHECK FOR *NO ABORT* PARAMETER
| Line S00235 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00268 M02S00235.ns2339 ---| CFS0.1 SX6 -1 SET CHARACTER -1 00269 M01S00016.ns2339 +++| NZ B7,ERR3 IF TOO MANY PARAMETERS 00270 M01S00017.ns2339 +++| SX6 -1 SET CHARACTER -1 00271 M01S00236.copyc +++| SA6 FC 00272 M01S00237.copyc +++| SX7 LINL SET MAXIMUM LINE LENGTH 00273 M01S00238.copyc +++| SA7 LC 00274 M01S00239.copyc +++| SA1 I SET BINARY OPERATION 00275 M01S00240.copyc +++| SA2 O 00276 M01S00241.copyc +++| SX3 2 00277 M01S00242.copyc +++| BX6 X1+X3 00278 M01S00243.copyc +++| BX7 X2+X3 00279 M01S00244.copyc +++| SA6 A1 00280 M01S00245.copyc +++| SA7 A2 00281 M01S00005.ns2701 +++| SX0 0 INITIALIZE LINE TRANSFER COUNT 00282 M01S00246.copyc +++| 00283 M01S00247.copyc +++| CSF1 READ I BEGIN READ 00284 M01S00248.copyc +++| RECALL O 00285 M01S00249.copyc +++| READS I,BUF,-BUFL 00286 M01S00250.copyc +++| NZ X1,CSF3 IF EOR, EOF, OR EOI 00287 M01S00251.copyc +++| SA2 SK 00288 M01S00252.copyc +++| NZ X2,CSF2 IF SKIP SET 00289 M01S00253.copyc +++| SB7 BUF+BUFL LWA+1 OF BUFFER 00290 M01S00254.copyc +++| NE B6,B7,CSF1.1 IF BUFFER NOT FULL 00291 M01S00255.copyc +++| SA1 LTC INCREMENT TRUNCATION COUNT 00292 M01S00256.copyc +++| SX3 B1 00293 M01S00257.copyc +++| IX7 X1+X3 00294 M01S00258.copyc +++| SA7 A1 UPDATE COUNT 00295 M01S00259.copyc +++| SB6 B6-B1 DECREMENT CHARACTER COUNT 00296 M01S00260.copyc +++| CSF1.1 SX6 1R1 SET PAGE EJECT 00297 M01S00261.copyc +++| SB5 B6-BUF+1 GET NUMBER OF CHARACTERS IN BUFFER 00298 M01S00262.copyc +++| SA6 BUF-1 00299 M01S00263.copyc +++| WRITES O,BUF-1,B5 OUTPUT LINE 00300 M01S00264.copyc +++| SX6 1R CLEAR EJECT 00301 M01S00265.copyc +++| SA6 BUF-1
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
M02 (Updated by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00302 M02S00006.copyc1 ---| SX0 X0+1 SHOW LINE WRITTEN OUT ALREADY 00303 M01S00001.copyc1 +++| SX1 B1 00304 M01S00002.copyc1 +++| IX0 X0+X1 SHOW LINE WRITTEN OUT ALREADY 00305 M01S00266.copyc +++| CSF2 READS I,BUF,-BUFL COPY REMAINDER OF RECORD 00306 M01S00267.copyc +++| CSF3 RJ CPR 00307 M01S00268.copyc +++| NG X1,ITM IF EOI 00308 M01S00269.copyc +++| ZR X1,CSF1 LOOP TO EOF 00309 M01S00270.copyc +++| SA2 CT DECREMENT COUNT 00310 M01S00271.copyc +++| SX6 X2-1 00311 M01S00272.copyc +++| SA6 A2 00312 M01S00273.copyc +++| NZ X6,CSF1 LOOP FOR ALL FILES 00313 M01S00274.copyc +++| EQ ITM TERMINATE PROGRAM 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 M01S00275.copyc +++| TITLE SUBROUTINES.
| Line S00276 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00355 M02S00276.ns2339 ---| CPR SPACE 4 00356 M01S00058.ns2339 +++| CPR SPACE 4,20 00357 M01S00277.copyc +++|** CPR - COPY RECORD. 00358 M01S00278.copyc +++|* 00359 M01S00279.copyc +++|* ENTRY (X1) = FIRST BLOCK STATUS. 00360 M01S00007.ns2701 +++|* (X0) = NUMBER OF LINES COPIED. 00361 M01S00280.copyc +++|* (B6) = ADDRESS PLUS ONE OF LAST CHARACTER IN BUFFER. 00362 M01S00281.copyc +++|* 00363 M01S00282.copyc +++|* EXIT (X1) .LT. 0, IF EOI ENCOUNTERED. 00364 M01S00283.copyc +++|* (X1) .NE. 0, IF EOF ENCOUNTERED. 00365 M01S00284.copyc +++|* (X1) = 0, IF EOR ENCOUNTERED. 00366 M01S00285.copyc +++|*
| Line S00286 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00367 M02S00286.ns2701 ---|* USES X - 1, 2, 3, 6, 7. 00368 M01S00008.ns2701 +++|* USES X - 0, 1, 2, 3, 6, 7. 00369 M01S00287.copyc +++|* B - 5, 7. 00370 M01S00288.copyc +++|* A - 1, 2, 3, 7. 00371 M01S00289.copyc +++|* 00372 M01S00059.ns2339 +++|* CALLS SLR. 00373 M01S00290.copyc +++|*
| Line S00291 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00374 M02S00291.ns2339 ---|* CALLS SLR. 00375 M01S00292.copyc +++|* MACROS ABORT, READS, MESSAGE, WRITEF, WRITER, WRITEW. 00376 M01S00293.copyc +++| 00377 M01S00294.copyc +++|
| Line S00295 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00378 M02S00295.ns2339 ---| CPR PS ENTRY/EXIT 00379 M01S00060.ns2339 +++| CPR SUBR ENTRY/EXIT 00380 M01S00296.copyc +++| BX7 X1 00381 M01S00297.copyc +++| SA7 CPRA SAVE READ STATUS 00382 M01S00298.copyc +++| NZ X1,CPR4 IF EOR, EOF, OR EOI 00383 M01S00299.copyc +++| CPR1 SA2 SK
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
M02 (Updated by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00384 M02S00009.copyc1 ---| SX0 X0+1 SHOW LINE COPIED 00385 M01S00003.copyc1 +++| SX3 B1 00386 M01S00004.copyc1 +++| IX0 X0+X3 SHOW LINE COPIED 00387 M01S00300.copyc +++| NZ X2,CPR3 IF SKIP SET 00388 M01S00301.copyc +++| SB7 BUF+BUFL LWA+1 OF BUFFER 00389 M01S00302.copyc +++| NE B6,B7,CPR1.1 IF BUFFER NOT FULL 00390 M01S00303.copyc +++| SA1 LTC INCREMENT TRUNCATION COUNT
| Line S00304 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00391 M02S00304.copyc1 ---| SX3 B1 00392 M01S00305.copyc +++| IX7 X1+X3
| Line S00306 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00393 M02S00306.copyc1 ---| SA7 A1 UPDATE COUNT 00394 M01S00005.copyc1 +++| SA7 A1+ UPDATE COUNT 00395 M01S00307.copyc +++| SB6 B6-B1 DECREMENT CHARACTER COUNT 00396 M01S00308.copyc +++| CPR1.1 SA1 FC 00397 M01S00309.copyc +++| SA3 LC 00398 M01S00310.copyc +++| SB5 X1+BUF ADDRESS OF FIRST CHARACTER TO BE OUTPUT 00399 M01S00311.copyc +++| GE B5,B6,CPR9 IF FIRST CHARACTER TO COPY AFTER EOL 00400 M01S00312.copyc +++| SB5 X3+BUF ADDRESS OF LAST CHARACTER TO BE OUTPUT 00401 M01S00313.copyc +++| LE B5,B6,CPR2 IF LAST CHARACTER TO COPY BEFORE EOL 00402 M01S00314.copyc +++| SX3 B6-BUF RESET LAST CHARACTER 00403 M01S00315.copyc +++| CPR2 IX6 X3-X1 NUMBER OF CHARACTERS TO BE OUTPUT 00404 M01S00316.copyc +++| RJ SLR SELECT LINE RANGE 00405 M01S00317.copyc +++| NG X6,CPR3 IF LINE NOT TO BE PRINTED 00406 M01S00318.copyc +++| WRITES O,X1+BUF,X6 00407 M01S00319.copyc +++| CPR3 SA1 CPRA 00408 M01S00320.copyc +++| NZ X1,CPR4.1 IF LAST READ STATUS WAS EOR/EOF/EOI 00409 M01S00321.copyc +++| READS I,BUF,-BUFL 00410 M01S00322.copyc +++| BX7 X1 00411 M01S00323.copyc +++| SA7 CPRA SAVE READ STATUS 00412 M01S00324.copyc +++| ZR X1,CPR1 LOOP IF NO EOR/EOF 00413 M01S00325.copyc +++| CPR4 SB5 B6-BUF 00414 M01S00326.copyc +++| NZ B5,CPR8 IF UNTERMINATED LINE 00415 M01S00327.copyc +++| CPR4.1 NG X1,CPR6 IF EOF OR EOI 00416 M01S00328.copyc +++| 00417 M01S00329.copyc +++|* PROCESS EOR. 00418 M01S00330.copyc +++| 00419 M01S00331.copyc +++| SA2 NS CHECK STRUCTURE PARAMETER 00420 M01S00332.copyc +++| ZR X2,CPR4.2 IF STRUCTURE NOT REQUESTED 00421 M01S00333.copyc +++| WRITEW O,CPRB,2 00422 M01S00334.copyc +++| CPR4.2 SA2 SK 00423 M01S00335.copyc +++| NZ X2,CPR5 IF SKIP SET 00424 M01S00336.copyc +++| WRITER O END RECORD 00425 M01S00337.copyc +++| CPR5 SX1 B0 SET EOR STATUS 00426 M01S00010.ns2701 +++| SA3 RCNT INCREMENT RECORD COUNT 00427 M01S00011.ns2701 +++| SX7 X3+B1 00428 M01S00012.ns2701 +++| SA7 A3
| Line S00338 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00429 M02S00338.ns2339 ---| EQ CPR RETURN 00430 M01S00061.ns2339 +++| EQ CPRX RETURN 00431 M01S00339.copyc +++| 00432 M01S00340.copyc +++|* PROCESS EOF AND EOI. 00433 M01S00341.copyc +++| 00434 M01S00342.copyc +++| CPR6 SA2 NS 00435 M01S00343.copyc +++| ZR X2,CPR6.1 IF STRUCTURE NOT REQUESTED 00436 M01S00344.copyc +++| WRITEW O,CPRC,2 00437 M01S00345.copyc +++| CPR6.1 SA2 SK 00438 M01S00346.copyc +++| NZ X2,CPR7 IF SKIP SET 00439 M01S00347.copyc +++| WRITEF O 00440 M01S00348.copyc +++| CPR7 SA2 I CHECK FILE STATUS 00441 M01S00349.copyc +++| LX2 59-9 00442 M01S00350.copyc +++| SX1 B1 SET EOF 00443 M01S00013.ns2701 +++| SA3 FCNT INCREMENT FILE COUNT 00444 M01S00014.ns2701 +++| SX6 X3+B1 00445 M01S00015.ns2701 +++| SA6 A3
| Line S00351 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00446 M02S00351.ns2339 ---| PL X2,CPR IF NOT EOI 00447 M01S00062.ns2339 +++| PL X2,CPRX IF NOT EOI
| Line S00352 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00448 M02S00352.ns2701 ---| SX7 1
| Line S00353 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00449 M02S00353.ns2701 ---| SA7 EI 00450 M01S00354.copyc +++| SX1 -B1 SET EOI STATUS
| Line S00355 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00451 M02S00355.ns2339 ---| EQ CPR RETURN 00452 M01S00063.ns2339 +++| EQ CPRX RETURN 00453 M01S00356.copyc +++| 00454 M01S00357.copyc +++| CPR8 SX7 B1 SET NON Z-TYPE DATA FLAG 00455 M01S00358.copyc +++| SA7 NZ 00456 M01S00359.copyc +++| SA1 NA 00457 M01S00360.copyc +++| NZ X1,CPR1 IF NO-ABORT SPECIFIED 00458 M01S00361.copyc +++| MESSAGE ITMD,0 ISSUE NO LINE TERMINATOR MESSAGE 00459 M01S00362.copyc +++| ABORT 00460 M01S00363.copyc +++| 00461 M01S00364.copyc +++| CPR9 WRITEW O,(=1L ),B1 ISSUE NULL LINE 00462 M01S00365.copyc +++| EQ CPR3 CONTINUE RECORD COPY 00463 M01S00366.copyc +++| 00464 M01S00367.copyc +++| 00465 M01S00368.copyc +++| CPRA CON 0 LAST READ STATUS 00466 M01S00369.copyc +++| CPRB DATA C*--EOR-- * 00467 M01S00370.copyc +++| CPRC DATA C*--EOF-- * 00468 M01S00371.copyc +++| ITM SPACE 4,15 00469 M01S00372.copyc +++|** ITM - ISSUE TERMINATION MESSAGES. 00470 M01S00373.copyc +++|* 00471 M01S00374.copyc +++|* ENTRY (LTC) = NUMBER OF LINES TRUNCATED.
| Line S00375 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00472 M02S00375.ns2701 ---|* (EI) .NE. 0 IF EOI ENCOUNTERED. 00473 M01S00016.ns2701 +++|* (X1) = -1 IF EOI ENCOUNTERED. 00474 M01S00017.ns2701 +++|* = 0 IF EOR ENCOUNTERED. 00475 M01S00018.ns2701 +++|* = 1 IF EOF ENCOUNTERED. 00476 M01S00376.copyc +++|* 00477 M01S00377.copyc +++|* EXIT APPROPRIATE MESSAGES ISSUED TO DAYFILE. 00478 M01S00378.copyc +++|*
| Line S00379 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00479 M02S00379.ns2701 ---|* USES A - 1, 2.
| Line S00380 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00480 M02S00380.ns2701 ---|* X - 1, 2. 00481 M01S00019.ns2701 +++|* USES X - 1, 2, 5, 7. 00482 M01S00020.ns2701 +++|* A - 1, 2, 7. 00483 M01S00381.copyc +++|* B - 2, 5. 00484 M01S00382.copyc +++|* 00485 M01S00383.copyc +++|* CALLS CDD, SNM. 00486 M01S00384.copyc +++|* 00487 M01S00385.copyc +++|* MACROS ENDRUN, MESSAGE. 00488 M01S00386.copyc +++| 00489 M01S00387.copyc +++|
| Line S00388 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00490 M02S00388.ns2339 ---| ITM SA1 LTC GET TRUNCATION COUNT 00491 M01S00064.ns2339 +++| ITM BSS 0 ENTRY 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 00498 M01S00065.ns2339 +++| SA1 LTC GET TRUNCATION COUNT 00499 M01S00389.copyc +++| ZR X1,ITM1 IF NO LINES TRUNCATED 00500 M01S00390.copyc +++| RJ CDD CONVERT TO DECIMAL DISPLAY CODE 00501 M01S00391.copyc +++| MX1 1 ENTER COUNT IN MESSAGE 00502 M01S00392.copyc +++| SB2 B2-B1 00503 M01S00393.copyc +++| AX1 B2 00504 M01S00394.copyc +++| BX1 X1*X4 00505 M01S00395.copyc +++| SB2 1RX 00506 M01S00396.copyc +++| SB5 ITMA 00507 M01S00397.copyc +++| RJ SNM 00508 M01S00398.copyc +++| MESSAGE ITMA,3 ISSUE LINES TRUNCATED MESSAGE 00509 M01S00399.copyc +++| ITM1 SA1 NZ 00510 M01S00400.copyc +++| ZR X1,ITM2 IF Z-TYPE DATA 00511 M01S00401.copyc +++| MESSAGE ITMD,0 ISSUE NO LINE TERMINATOR MESSAGE 00512 M01S00402.copyc +++| ITM2 SX1 ITMB * EOI ENCOUNTERED.*
| Line S00403 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00513 M02S00403.ns2701 ---| SA2 EI
| Line S00404 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 00514 M02S00404.ns2701 ---| NZ X2,ITM3 IF EOI ENCOUNTERED 00515 M01S00027.ns2701 +++| SA2 ITME 00516 M01S00028.ns2701 +++| NG X2,ITM3 IF EOI ENCOUNTERED 00517 M01S00405.copyc +++| SX1 ITMC * COPY COMPLETE.* 00518 M01S00406.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 (Updated by) | copyc1 |
Seq # *Modification Id* Act ----------------------------+ 00554 M02S00064.copyc1 ---| SX1 X0-1 00555 M01S00006.copyc1 +++| SX1 B1 00556 M01S00007.copyc1 +++| IX1 X0-X1 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 M01S00407.copyc +++| SA2 SC CHECK CALL 00563 M01S00408.copyc +++| ZR X2,ITM4 IF NOT *SCOPY* 00564 M01S00409.copyc +++| MESSAGE =0,1 CLEAR *MS1W* FOR INTERACTIVE USERS 00565 M01S00410.copyc +++| ITM4 ENDRUN 00566 M01S00411.copyc +++| 00567 M01S00412.copyc +++| 00568 M01S00413.copyc +++| ITMA DATA C* XXXXXXXXXX LINE(S) TRUNCATED.* 00569 M01S00414.copyc +++| ITMB DATA C* EOI ENCOUNTERED.* 00570 M01S00415.copyc +++| ITMC DATA C* COPY COMPLETE.* 00571 M01S00416.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 M01S00417.copyc +++| SLR SPACE 4,15 00579 M01S00418.copyc +++|** SLR - SELECT LINE RANGE. 00580 M01S00419.copyc +++|* 00581 M01S00420.copyc +++|* ENTRY (X1) = OFFSET INTO BUF OF FIRST CHARACTER OF LINE. 00582 M01S00421.copyc +++|* (X6) = NUMBER OF CHARACTERS IN LINE. 00583 M01S00422.copyc +++|* 00584 M01S00423.copyc +++|* EXIT (X1) = UNCHANGED. 00585 M01S00424.copyc +++|* (X6) = UNCHANGED IF LINE TO BE COPIED. 00586 M01S00425.copyc +++|* = -1 IF LINE TO BE SKIPPED. 00587 M01S00426.copyc +++|* 00588 M01S00427.copyc +++|* USES X - 1, 2, 3, 4, 5, 6. 00589 M01S00428.copyc +++|* A - 1, 2, 3, 4, 6. 00590 M01S00429.copyc +++|* B - 6, 7. 00591 M01S00430.copyc +++|* 00592 M01S00431.copyc +++|* CALLS DXB. 00593 M01S00432.copyc +++| 00594 M01S00433.copyc +++| 00595 M01S00434.copyc +++| SLR SUBR ENTRY/EXIT 00596 M01S00435.copyc +++| SA2 FL CHECK LINE RANGE 00597 M01S00436.copyc +++| SA3 LL 00598 M01S00437.copyc +++| IX2 X2+X3 00599 M01S00438.copyc +++| NG X2,SLRX IF NO LINE RANGE SPECIFIED 00600 M01S00439.copyc +++| SB7 X6 SET CHARACTER COUNT 00601 M01S00440.copyc +++| SA6 SLRB SAVE ENTRY CONDITION 00602 M01S00441.copyc +++| BX6 X1 00603 M01S00442.copyc +++| SA6 A6-B1 00604 M01S00443.copyc +++| SA1 X1+BUF GET FIRST CHARACTER 00605 M01S00444.copyc +++| BX5 X5-X5 CLEAR ASSEMBLY WORD 00606 M01S00445.copyc +++| SB6 60 00607 M01S00446.copyc +++| 00608 M01S00447.copyc +++|* PROCESS DISPLAY CODE FILE. 00609 M01S00448.copyc +++| 00610 M01S00449.copyc +++| SLR1 SX2 X1-1R0 CHECK CHARACTER 00611 M01S00450.copyc +++| NG X2,SLR2 IF NOT NUMERIC 00612 M01S00451.copyc +++| SX2 X1-1R+ 00613 M01S00452.copyc +++| PL X2,SLR2 IF NOT NUMERIC 00614 M01S00453.copyc +++| SB6 B6-6 00615 M01S00454.copyc +++| LX1 X1,B6 00616 M01S00455.copyc +++| BX5 X1+X5 MERGE DIGIT 00617 M01S00456.copyc +++| ZR B6,SLR2 IF TEN DIGITS PROCESSED 00618 M01S00457.copyc +++| SB7 B7-B1 00619 M01S00458.copyc +++| SA1 A1+B1 00620 M01S00459.copyc +++| ZR B7,SLR2 IF END OF LINE 00621 M01S00460.copyc +++| EQ SLR1 CONTINUE PROCESSING 00622 M01S00461.copyc +++| 00623 M01S00462.copyc +++| SLR2 ZR X5,SLR3 IF NO DIGITS FOUND 00624 M01S00463.copyc +++| RJ DXB TRANSLATE LINE NUMBER 00625 M01S00464.copyc +++| SA2 SLRB 00626 M01S00465.copyc +++| SA3 FL 00627 M01S00466.copyc +++| SA4 LL 00628 M01S00467.copyc +++| IX5 X6-X3 00629 M01S00468.copyc +++| SA1 SLRA 00630 M01S00469.copyc +++| IX3 X4-X6 00631 M01S00470.copyc +++| NG X5,SLR3 IF LINE NOT IN RANGE 00632 M01S00471.copyc +++| BX6 X2 00633 M01S00472.copyc +++| NG X4,SLRX IF NO END OF RANGE SPECIFIEC 00634 M01S00473.copyc +++| PL X3,SLRX IF IN RANGE 00635 M01S00474.copyc +++| SLR3 SX6 -1 00636 M01S00475.copyc +++| EQ SLRX EXIT 00637 M01S00476.copyc +++| 00638 M01S00477.copyc +++| 00639 M01S00478.copyc +++| SLRA CON 0 SAVE (X1) 00640 M01S00479.copyc +++| SLRB CON 0 SAVE (X6) 00641 M01S00480.copyc +++| SPACE 4 00642 M01S00481.copyc +++|* COMMON DECKS. 00643 M01S00482.copyc +++| 00644 M01S00483.copyc +++| 00645 M01S00484.copyc +++|*CALL COMCCDD 00646 M01S00485.copyc +++|*CALL COMCCIO 00647 M01S00486.copyc +++|*CALL COMCDXB 00648 M01S00487.copyc +++|*CALL COMCRDS 00649 M01S00488.copyc +++|*CALL COMCRDW 00650 M01S00489.copyc +++|*CALL COMCSNM 00651 M01S00490.copyc +++|*CALL COMCSYS 00652 M01S00491.copyc +++|*CALL COMCWTS 00653 M01S00492.copyc +++|*CALL COMCWTW 00654 M01S00493.copyc +++| SPACE 4 00655 M01S00494.copyc +++|** BUFFERS. 00656 M01S00495.copyc +++| 00657 M01S00496.copyc +++| 00658 M01S00497.copyc +++| BUFFERS BSS 0 00659 M01S00498.copyc +++| USE // 00660 M01S00499.copyc +++| SEG 00661 M01S00500.copyc +++| BSS 1 00662 M01S00501.copyc +++| BUF BSS BUFL 00663 M01S00502.copyc +++| IBUF BSS IBUFL 00664 M01S00503.copyc +++| OBUF BSS OBUFL 00665 M01S00504.copyc +++| RFL= BSS 0 00666 M01S00505.copyc +++| PRS TITLE PRESET. 00667 M01S00506.copyc +++|** PRS - PRESET PROGRAM. 00668 M01S00507.copyc +++|* 00669 M01S00508.copyc +++|* EXIT (B7) = REMAINDER ARGUMENT COUNT. 00670 M01S00509.copyc +++|* (A5) = LAST ARGUMENT ADDRESS. 00671 M01S00510.copyc +++| 00672 M01S00511.copyc +++| 00673 M01S00512.copyc +++| ORG BUF
| Line S00513 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00674 M02S00513.ns2339 ---| PRS PS ENTRY/EXIT 00675 M01S00066.ns2339 +++| PRS SUBR ENTRY/EXIT 00676 M01S00514.copyc +++| SX6 IBUF ENTER POINTER TO INPUT BUFFER 00677 M01S00515.copyc +++| SA6 0 00678 M01S00516.copyc +++| SA1 ACTR CHECK ARGUMENT COUNT 00679 M01S00517.copyc +++| MX4 42 00680 M01S00518.copyc +++| SB7 X1
| Line S00519 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00681 M02S00519.ns2339 ---| ZR B7,PRS RETURN IF NO ARGUMENTS 00682 M01S00067.ns2339 +++| ZR B7,PRSX IF NO ARGUMENTS 00683 M01S00520.copyc +++| 00684 M01S00521.copyc +++|* PROCESS IFILE NAME. 00685 M01S00522.copyc +++| 00686 M01S00523.copyc +++| SA5 ARGR SET IFILE NAME 00687 M01S00524.copyc +++| SA2 I 00688 M01S00525.copyc +++| BX7 X4*X5 00689 M01S00526.copyc +++| SX3 X2 00690 M01S00527.copyc +++| ZR X7,PRS1 IF BLANK ARGUMENT 00691 M01S00528.copyc +++| IX7 X7+X3 00692 M01S00529.copyc +++| SA7 A2 00693 M01S00530.copyc +++| 00694 M01S00531.copyc +++|* PROCESS OFILE NAME. 00695 M01S00532.copyc +++| 00696 M01S00533.copyc +++| PRS1 SB7 B7-B1 00697 M01S00534.copyc +++| ZR B7,PRS2 IF 1 ARGUMENT 00698 M01S00535.copyc +++| SA5 A5+B1 SET OFILE NAME 00699 M01S00536.copyc +++| SA2 O 00700 M01S00537.copyc +++| BX7 X4*X5 00701 M01S00538.copyc +++| SB7 B7-B1 00702 M01S00539.copyc +++| ZR X7,PRS2 IF BLANK ARGUMENT 00703 M01S00540.copyc +++| IX7 X7+X3 00704 M01S00541.copyc +++| SA7 A2 00705 M01S00542.copyc +++| 00706 M01S00543.copyc +++|* CHECK FILE NAMES. 00707 M01S00544.copyc +++| 00708 M01S00545.copyc +++| PRS2 SA1 I CHECK FILE NAMES 00709 M01S00546.copyc +++| SA2 O 00710 M01S00547.copyc +++| IX7 X1-X2 00711 M01S00548.copyc +++| NZ X7,PRS3 IF IFILE .NE. OFILE 00712 M01S00549.copyc +++| SX6 B1 SET SKIP FLAG 00713 M01S00550.copyc +++| SA6 SK 00714 M01S00551.copyc +++| 00715 M01S00552.copyc +++|* PROCESS COUNT. 00716 M01S00553.copyc +++|
| Line S00554 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00717 M02S00554.ns2339 ---| PRS3 ZR B7,PRS IF NO ADDITIONAL ARGUMENTS 00718 M01S00068.ns2339 +++| PRS3 ZR B7,PRSX IF NO ADDITIONAL ARGUMENTS 00719 M01S00555.copyc +++| SA5 A5+1 00720 M01S00556.copyc +++| ZR X5,PRS4 IF BLANK ARGUMENT 00721 M01S00557.copyc +++| RJ DXB CONVERT NUMBER
| Line S00558 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00722 M02S00558.v23l617 ---| NZ X4,ERR1 IF ILLEGAL COUNT 00723 M01S00009.v23l617 +++| NZ X4,ERR1 IF INCORRECT COUNT 00724 M01S00559.copyc +++| ZR X6,ERR1 IF COUNT = 0 00725 M01S00560.copyc +++| SA6 CT 00726 M01S00561.copyc +++| PRS4 SB7 B7-1
| Line S00562 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00727 M02S00562.ns2339 ---| EQ PRS RETURN 00728 M01S00069.ns2339 +++| EQ PRSX RETURN 00729 M01S00563.copyc +++| SPACE 4,15 00730 M01S00564.copyc +++|** SCC - SET CHARACTER COUNTS. 00731 M01S00565.copyc +++|* 00732 M01S00566.copyc +++|* ENTRY (A5) = ADDRESS OF LAST ARGUMENT PROCESSED. 00733 M01S00567.copyc +++|* (B7) = REMAINING ARGUMENT COUNT. 00734 M01S00568.copyc +++|* 00735 M01S00569.copyc +++|* EXIT (A5) = ADDRESS-1 OF NEXT ARGUMENT. 00736 M01S00570.copyc +++|* (B7) = REMAINING ARGUMENT COUNT. 00737 M01S00571.copyc +++|* (NA) = 1 IF NO-ABORT SPECIFIED. 00738 M01S00572.copyc +++|* 00739 M01S00573.copyc +++|* USES X - 1, 2, 5, 6. 00740 M01S00574.copyc +++|* A - 1, 2, 5, 6. 00741 M01S00575.copyc +++|* B - 2, 7. 00742 M01S00576.copyc +++|* 00743 M01S00577.copyc +++|* CALLS CNA, DXB. 00744 M01S00578.copyc +++| 00745 M01S00579.copyc +++|
| Line S00580 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00746 M02S00580.ns2339 ---| SCC PS ENTRY/EXIT 00747 M01S00070.ns2339 +++| SCC SUBR ENTRY/EXIT 00748 M01S00071.ns2339 +++| ZR B7,SCCX IF NO REMAINING ARGUMENTS 00749 M01S00581.copyc +++| SA5 A5+B1 CHECK START CHARACTER 00750 M01S00582.copyc +++| ZR X5,SCC2 IF BLANK 00751 M01S00583.copyc +++| RJ DXB
| Line S00584 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00752 M02S00584.v23l617 ---| NZ X4,ERR2 IF ILLEGAL COUNT 00753 M01S00010.v23l617 +++| NZ X4,ERR2 IF INCORRECT COUNT 00754 M01S00585.copyc +++| ZR X6,ERR2 IF FIRST CHARACTER COUNT = ZERO 00755 M01S00586.copyc +++| SB2 X6-BUFL-1 00756 M01S00587.copyc +++| PL B2,ERR2 IF FIRST OUT OF RANGE 00757 M01S00588.copyc +++| SX6 X6-1 00758 M01S00589.copyc +++| SA6 FC 00759 M01S00590.copyc +++| SCC2 SB7 B7-B1 00760 M01S00591.copyc +++| ZR B7,SCC3 IF NO ADDITIONAL COUNTS 00761 M01S00592.copyc +++| SA5 A5+B1 CHECK TERMINAL CHARACTER 00762 M01S00593.copyc +++| ZR X5,SCC2.1 IF BLANK 00763 M01S00594.copyc +++| RJ DXB
| Line S00595 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00764 M02S00595.v23l617 ---| NZ X4,ERR2 IF ILLEGAL COUNT 00765 M01S00011.v23l617 +++| NZ X4,ERR2 IF INCORRECT COUNT 00766 M01S00596.copyc +++| SB2 X6-BUFL-1 00767 M01S00597.copyc +++| PL B2,ERR2 IF LAST OUT OF RANGE 00768 M01S00598.copyc +++| SA6 LC 00769 M01S00599.copyc +++| SCC2.1 SB7 B7-B1 DECREMENT ARGUMENT COUNT 00770 M01S00600.copyc +++| SCC3 SA1 FC CHECK CHARACTER LIMITS 00771 M01S00601.copyc +++| SA2 LC 00772 M01S00602.copyc +++| IX6 X2-X1 00773 M01S00603.copyc +++| NG X6,ERR2 IF FIRST .GT. LAST
| Line S00604 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00774 M02S00604.ns2339 ---| ZR B7,SCC IF NO ADDITIONAL ARGUMENTS 00775 M01S00605.copyc +++| RJ CNA CHECK FOR *NA* PARAMETER
| Line S00606 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00776 M02S00606.ns2339 ---| SA1 SC
| Line S00607 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00777 M02S00607.ns2339 ---| NZ X1,SCC IF *SCOPY* CALL
| Line S00608 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00778 M02S00608.ns2339 ---| NZ B7,ERR3 IF TOO MANY PARAMETERS
| Line S00609 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00779 M02S00609.ns2339 ---| EQ SCC RETURN 00780 M01S00072.ns2339 +++| EQ SCCX RETURN 00781 M01S00610.copyc +++| CNA SPACE 4,10 00782 M01S00611.copyc +++|** CNA - CHECK FOR *NA* PARAMETER (NO ABORT). 00783 M01S00612.copyc +++|* 00784 M01S00613.copyc +++|* ENTRY (A5) = ADDRESS OF LAST ARGUMENT PROCESSED. 00785 M01S00073.ns2339 +++|* (B7) = REMAINING ARGUMENT COUNT. 00786 M01S00614.copyc +++|* 00787 M01S00615.copyc +++|* EXIT (NA) = 1 IF NO-ABORT SPECIFIED. 00788 M01S00616.copyc +++|* (B7) = REMAINING ARGUMENT COUNT. 00789 M01S00617.copyc +++|* 00790 M01S00618.copyc +++|* USES X - 5, 6. 00791 M01S00619.copyc +++|* A - 5, 6. 00792 M01S00620.copyc +++|* B - 7. 00793 M01S00621.copyc +++| 00794 M01S00622.copyc +++| 00795 M01S00623.copyc +++| CNA SUBR ENTRY/EXIT 00796 M01S00074.ns2339 +++| ZR B7,CNAX IF NO REMAINING ARGUMENTS 00797 M01S00624.copyc +++| SA5 A5+B1 CHECK *NA* PARAMETER 00798 M01S00625.copyc +++| SB7 B7-B1 00799 M01S00626.copyc +++| ZR X5,CNAX IF BLANK 00800 M01S00627.copyc +++| SX6 B1 00801 M01S00628.copyc +++| SA6 NA SET *NA* FLAG 00802 M01S00629.copyc +++| EQ CNAX RETURN 00803 M01S00630.copyc +++| SXP SPACE 4,15 00804 M01S00631.copyc +++|** SXP - SET EXTRA PARAMETERS. 00805 M01S00632.copyc +++|* 00806 M01S00633.copyc +++|* ENTRY (A5) = ADDRESS OF LAST ARGUMENT PROCESSED. 00807 M01S00634.copyc +++|* (B7) = ARGUMENT COUNT. 00808 M01S00635.copyc +++|* 00809 M01S00636.copyc +++|* USES X - 0, 1, 2, 4, 5, 6. 00810 M01S00637.copyc +++|* A - 1, 2, 5, 6. 00811 M01S00638.copyc +++|* B - 7. 00812 M01S00639.copyc +++|* 00813 M01S00640.copyc +++|* CALLS CCS, DXB, ERR. 00814 M01S00641.copyc +++|* 00815 M01S00642.copyc +++|* MACROS REWIND. 00816 M01S00643.copyc +++| 00817 M01S00644.copyc +++| 00818 M01S00645.copyc +++| SXP SUBR ENTRY/EXIT 00819 M01S00075.ns2339 +++| ZR B7,SXPX IF NO REMAINING ARGUMENTS 00820 M01S00646.copyc +++| 00821 M01S00647.copyc +++|* PROCESS REWIND PARAMETER. 00822 M01S00648.copyc +++| 00823 M01S00649.copyc +++| SA5 A5+B1 00824 M01S00650.copyc +++| ZR X5,SXP1 IF NULL PARAMETER 00825 M01S00651.copyc +++| AX5 54 00826 M01S00652.copyc +++| SX6 X5-1RR
| Line S00653 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00827 M02S00653.v23l617 ---| NZ X6,ERR4 IF ILLEGAL PARAMETER 00828 M01S00012.v23l617 +++| NZ X6,ERR4 IF INCORRECT PARAMETER 00829 M01S00654.copyc +++| REWIND I 00830 M01S00655.copyc +++| REWIND O 00831 M01S00656.copyc +++| SXP1 SB7 B7-B1
| Line S00657 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | ns2339 |
Seq # *Modification Id* Act ----------------------------+ 00832 M02S00657.ns2339 ---| ZR B7,SXPX IF NO MORE PARAMETERS 00833 M01S00658.copyc +++| RJ CCS CHECK CHARACTER SET 00834 M01S00659.copyc +++| ZR B7,SXPX IF NO MORE PARAMETERS 00835 M01S00660.copyc +++| 00836 M01S00661.copyc +++|* PROCESS LINE NUMBER PARAMETERS. 00837 M01S00662.copyc +++| 00838 M01S00663.copyc +++| SA5 A5+B1 GET FIRST LINE NUMBER 00839 M01S00664.copyc +++| ZR X5,SXP2 IF NULL PARAMETER 00840 M01S00665.copyc +++| RJ DXB TRANSLATE PARAMETER 00841 M01S00666.copyc +++| NZ X4,ERR5 IF ERROR DETECTED 00842 M01S00667.copyc +++| SA6 FL 00843 M01S00668.copyc +++| SXP2 SB7 B7-B1 00844 M01S00669.copyc +++| ZR B7,SXPX IF NO MORE PARAMETERS 00845 M01S00670.copyc +++| SA5 A5+B1 00846 M01S00671.copyc +++| ZR X5,SXP3 IF NULL PARAMETER 00847 M01S00672.copyc +++| RJ DXB TRANSLATE PARAMETER 00848 M01S00673.copyc +++| NZ X4,ERR5 IF ERROR DETECTED 00849 M01S00674.copyc +++| SA6 LL 00850 M01S00675.copyc +++| ZR X6,SXP3 IF EOI SPECIFIED 00851 M01S00676.copyc +++| SA1 FL 00852 M01S00677.copyc +++| IX6 X6-X1 00853 M01S00678.copyc +++| NG X6,ERR5 IF FIRST .GT. LAST 00854 M01S00679.copyc +++| SXP3 SB7 B7-B1 00855 M01S00680.copyc +++| ZR B7,SXPX IF NO MORE PARAMETERS 00856 M01S00681.copyc +++| 00857 M01S00682.copyc +++|* PROCESS STRUCTURE PARAMETER. 00858 M01S00683.copyc +++| 00859 M01S00684.copyc +++| SA5 A5+B1 00860 M01S00685.copyc +++| ZR X5,SXP4 IF NULL PARAMETER 00861 M01S00686.copyc +++| AX5 48 00862 M01S00687.copyc +++| BX6 X6-X6 00863 M01S00688.copyc +++| SX5 X5-2RNS 00864 M01S00689.copyc +++| NZ X5,ERR6 IF NOT *NS* 00865 M01S00690.copyc +++| SA6 NS 00866 M01S00691.copyc +++| SXP4 SB7 B7-B1 00867 M01S00692.copyc +++| NZ B7,ERR3 IF TOO MANY PARAMETERS 00868 M01S00693.copyc +++| EQ SXPX EXIT 00869 M01S00694.copyc +++| CCS SPACE 4,15 00870 M01S00695.copyc +++|** CCS - CHECK CHARACTER SET. 00871 M01S00696.copyc +++|* 00872 M01S00697.copyc +++|* ENTRY (A5) = ADDRESS OF LAST ARGUMENT PROCESSED. 00873 M01S00698.copyc +++|* (B7) = NUMBER OF PARAMETERS LEFT TO PROCESS. 00874 M01S00699.copyc +++|* 00875 M01S00700.copyc +++|* EXIT (A5) = UPDATED. 00876 M01S00701.copyc +++|* (B7) = UPDATED. 00877 M01S00702.copyc +++|* 00878 M01S00703.copyc +++|* USES X - 1, 2, 5. 00879 M01S00704.copyc +++|* A - 5. 00880 M01S00705.copyc +++|* B - 7. 00881 M01S00706.copyc +++|* 00882 M01S00707.copyc +++|* CALLS ERR. 00883 M01S00708.copyc +++| 00884 M01S00709.copyc +++| 00885 M01S00710.copyc +++| CCS SUBR ENTRY/EXIT 00886 M01S00076.ns2339 +++| ZR B7,CCSX IF NO REMAINING ARGUMENTS 00887 M01S00711.copyc +++| SA5 A5+B1 00888 M01S00712.copyc +++| SB7 B7-B1 00889 M01S00713.copyc +++| ZR X5,CCSX IF NULL PARAMETER 00890 M01S00714.copyc +++| MX2 48 00891 M01S00715.copyc +++| BX5 X2*X5 00892 M01S00716.copyc +++| LX5 6 00893 M01S00717.copyc +++| SX1 X5-1RD 00894 M01S00718.copyc +++| NZ X1,ERR7 IF NOT 6/12 DISPLAY CODE 00895 M01S00719.copyc +++| EQ CCSX EXIT 00896 M01S00720.copyc +++| ERR SPACE 4 00897 M01S00721.copyc +++|** ERR - PROCESS ERRORS. 00898 M01S00722.copyc +++| 00899 M01S00723.copyc +++| 00900 M01S00724.copyc +++| ERR1 SX0 ERRA 00901 M01S00725.copyc +++| EQ ERR 00902 M01S00726.copyc +++| 00903 M01S00727.copyc +++| ERR2 SX0 ERRB 00904 M01S00728.copyc +++| EQ ERR EXIT 00905 M01S00729.copyc +++| 00906 M01S00730.copyc +++| ERR3 SX0 ERRC 00907 M01S00731.copyc +++| EQ ERR EXIT 00908 M01S00732.copyc +++| 00909 M01S00733.copyc +++| ERR4 SX0 ERRD 00910 M01S00734.copyc +++| EQ ERR EXIT 00911 M01S00735.copyc +++| 00912 M01S00736.copyc +++| ERR5 SX0 ERRE 00913 M01S00737.copyc +++| EQ ERR EXIT 00914 M01S00738.copyc +++| 00915 M01S00739.copyc +++| ERR6 SX0 ERRF 00916 M01S00740.copyc +++| EQ ERR EXIT 00917 M01S00741.copyc +++| 00918 M01S00742.copyc +++| ERR7 SX0 ERRG 00919 M01S00743.copyc +++| 00920 M01S00744.copyc +++| ERR MESSAGE X0 00921 M01S00745.copyc +++| ABORT 00922 M01S00746.copyc +++|
| Line S00747 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00923 M02S00747.v23l617 ---| ERRA DATA C*ILLEGAL COUNT.*
| Line S00748 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00924 M02S00748.v23l617 ---| ERRB DATA C*ILLEGAL CHARACTER NUMBER.* 00925 M01S00013.v23l617 +++| ERRA DATA C*INCORRECT COUNT.* 00926 M01S00014.v23l617 +++| ERRB DATA C*INCORRECT CHARACTER NUMBER.* 00927 M01S00749.copyc +++| ERRC DATA C*TOO MANY PARAMETERS.*
| Line S00750 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00928 M02S00750.v23l617 ---| ERRD DATA C*ILLEGAL REWIND SPECIFICATION.*
| Line S00751 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00929 M02S00751.v23l617 ---| ERRE DATA C*ILLEGAL LINE NUMBER SPECIFICATION.*
| Line S00752 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00930 M02S00752.v23l617 ---| ERRF DATA C*ILLEGAL STRUCTURE SPECIFICATION.*
| Line S00753 Modification History | |
|---|---|
M01 (Added by) | copyc |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00931 M02S00753.v23l617 ---| ERRG DATA C*ILLEGAL CHARACTER SET SPECIFICATION.* 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 M01S00754.copyc +++| SPACE 4 00937 M01S00755.copyc +++| END
cdc/nos2.source/opl.opl871/deck/copyc.txt · Last modified: by 127.0.0.1