Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:libedit
Deck LIBEDIT
20 Modifications
Listing Sections
- Deck LIBEDIT Start
- Deck LIBEDIT Part 1 (Line 1591)
- Deck LIBEDIT Part 2 (Line 3472)
- Deck LIBEDIT Part 3 (Line 5154)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00001 M02S00001.libed6 ---| IDENT LIBEDIT,LIB 00002 M01S00001.libed6 +++| IDENT LIBEDIT,LIBEDIT,LIBEDIT 00003 M01S00002.libedit +++| ABS 00004 M01S00003.libedit +++| ENTRY LIBEDIT 00005 M01S00004.libedit +++| ENTRY SSM= 00006 M01S00005.libedit +++| ENTRY MFL= 00007 M01S00006.libedit +++| SYSCOM B1 00008 M01S00007.libedit +++|*COMMENT LIBEDIT - LIBRARY EDITING PROGRAM.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M02S00008.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. ,1971. 00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M01S00009.libedit +++| TITLE LIBEDIT - LIBRARY EDITING PROGRAM. 00012 M01S00010.libedit +++| SPACE 4 00013 M01S00011.libedit +++|*** LIBEDIT - LIBRARY EDITING PROGRAM. 00014 M01S00012.libedit +++|* D. A. CAHLANDER. 69/02/13. 00015 M01S00013.libedit +++|* P. D. HAAS. 73/07/29. 00016 M01S00014.libedit +++| SPACE 4,10 00017 M01S00015.libedit +++|*** LIBEDIT PROVIDES EDITING AND REPLACEMENT OF RECORDS ON 00018 M01S00016.libedit +++|* A BINARY FILE BY RECORDS FROM ONE OR MORE SECONDARY FILES. 00019 M01S00017.libedit +++| SPACE 4
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00020 M02S00018.v23l617 ---|*** CONTROL STATEMENT CALL - 00021 M01S00001.v23l617 +++|*** COMMAND CALL - 00022 M01S00019.libedit +++|* 00023 M01S00020.libedit +++|* LIBEDIT(P1,P2,P3,P4,.....,PN) 00024 M01S00021.libedit +++|* 00025 M01S00022.libedit +++|* WHERE PARAMETER KEYWORDS ARE ORDER INDEPENDENT, 00026 M01S00023.libedit +++|* AND ARE ONE OR MORE OF THE FOLLOWING - 00027 M01S00024.libedit +++|* 00028 M01S00025.libedit +++|* I OMITTED, USE *INPUT* FOR INPUT DIRECTIVES FILE. 00029 M01S00026.libedit +++|* I , USE *INPUT* FOR INPUT DIRECTIVES FILE. 00030 M01S00027.libedit +++|* I=0 , NO INPUT DIRECTIVE FILE IS TO BE USED. 00031 M01S00028.libedit +++|* I=FN , USE *FN* FOR INPUT DIRECTIVES FILE. 00032 M01S00029.libedit +++|* 00033 M01S00030.libedit +++|* P OMITTED, USE *OLD* FOR OLD FILE. 00034 M01S00031.libedit +++|* P , USE *OLD* FOR OLD FILE. 00035 M01S00032.libedit +++|* P=0 , NO OLD FILE TO BE USED. 00036 M01S00033.libedit +++|* P=FN , USE *FN* FOR OLD FILE. 00037 M01S00034.libedit +++|* 00038 M01S00035.libedit +++|* N OMITTED, USE *NEW* FOR NEW FILE. 00039 M01S00036.libedit +++|* N , USE *NEW* FOR NEW FILE. 00040 M01S00037.libedit +++|* N=FN , USE *FN* FOR NEW FILE. 00041 M01S00038.libedit +++|* 00042 M01S00039.libedit +++|* B OMITTED, USE *LGO* FOR CORRECTION FILE. 00043 M01S00040.libedit +++|* B , USE *LGO* FOR CORRECTION FILE. 00044 M01S00041.libedit +++|* B=0 , NO CORRECTION FILE TO BE USED. 00045 M01S00042.libedit +++|* B=FN , USE *FN* FOR CORRECTION FILE. 00046 M01S00043.libedit +++|* 00047 M01S00044.libedit +++|* L OMITTED, USE *OUTPUT* FOR LISTING FILE. 00048 M01S00045.libedit +++|* L , USE *OUTPUT* FOR LISTING FILE. 00049 M01S00046.libedit +++|* L=0 , NO LISTING FILE TO BE WRITTEN. 00050 M01S00047.libedit +++|* L=FN , USE *FN* FOR LISTING FILE. 00051 M01S00048.libedit +++|* 00052 M01S00049.libedit +++|* LO=E , LIST PROCESSING ERRORS. 00053 M01S00050.libedit +++|* LO=C , LIST INPUT DIRECTIVES. 00054 M01S00051.libedit +++|* LO=M , LIST MODIFICATIONS MADE. 00055 M01S00052.libedit +++|* LO=N , LIST RECORDS WRITTEN TO NEW FILE. 00056 M01S00053.libedit +++|* LO=F , FULL LIST INCLUDING PROCESSING ERRORS, INPUT 00057 M01S00054.libedit +++|* DIRECTIVES, MODIFICATIONS MADE AND RECORDS 00058 M01S00055.libedit +++|* WRITTEN TO NEW FILE. 00059 M01S00056.libedit +++|* (NOTE - ANY COMBINATION MAY BE SPECIFIED FOR *LO*.) 00060 M01S00057.libedit +++|* 00061 M01S00058.libedit +++|* LO OMITTED --- 00062 M01S00059.libedit +++|* LO=EM , TIME SHARING JOB, LISTING FILE ASSIGNED 00063 M01S00060.libedit +++|* TO EQUIPMENT *TT*. 00064 M01S00061.libedit +++|* LO=ECF , ALL OTHER CASES. 00065 M01S00062.libedit +++|* 00066 M01S00063.libedit +++|* U OMITTED, NO USER LIBRARY TO BE GENERATED. 00067 M01S00064.libedit +++|* U , GENERATE USER LIBRARY *ULIB* ON FILE *NEW*. 00068 M01S00065.libedit +++|* U=0 , NO USER LIBRARY TO BE GENERATED. 00069 M01S00066.libedit +++|* U=LN , GENERATE USER LIBRARY *LN* ON FILE *NEW*. 00070 M01S00067.libedit +++|* (NOTE - *LIBGEN* IS CALLED TO GENERATE USER LIBRARY.) 00071 M01S00068.libedit +++|* 00072 M01S00069.libedit +++|* NX OMITTED, PASS *NX=0* TO *LIBGEN*. 00073 M01S00070.libedit +++|* NX , PASS *NX=1* TO *LIBGEN*. 00074 M01S00071.libedit +++|* NX=0 , PASS *NX=0* TO *LIBGEN*. 00075 M01S00072.libedit +++|* NX=N , PASS *NX=N* TO *LIBGEN*. 00076 M01S00073.libedit +++|* 00077 M01S00074.libedit +++|* C OMITTED, DO NOT RECOPY NEW FILE TO OLD FILE. 00078 M01S00075.libedit +++|* C , RECOPY NEW FILE TO OLD FILE AFTER EDITING. 00079 M01S00076.libedit +++|* 00080 M01S00077.libedit +++|* D , SAME AS *NA* (INCLUDED FOR UPWARD COMPATABILITY). 00081 M01S00078.libedit +++|* 00082 M01S00079.libedit +++|* V OMITTED, DO NOT VERIFY OLD FILE AGAINST NEW FILE. 00083 M01S00080.libedit +++|* V , VERIFY NEW FILE AGAINST NEW FILE. 00084 M01S00081.libedit +++|* (NOTE - *VFYLIB* IS CALLED TO PERFORM THE VERIFY.) 00085 M01S00082.libedit +++|* 00086 M01S00083.libedit +++|* NA OMITTED, ABORT ON DIRECTIVE ERRORS. 00087 M01S00084.libedit +++|* NA , DO NOT ABORT ON DIRECTIVE ERRORS. 00088 M01S00085.libedit +++|* (NOTE - TIME SHARING JOBS WITH DIRECTIVE INPUT FILE 00089 M01S00086.libedit +++|* ASSIGNED TO *TT* SET *NA* AUTOMATICALLY.) 00090 M01S00087.libedit +++|* 00091 M01S00088.libedit +++|* NI OMITTED, INSERT NEW RECORDS FROM CORRECTION FILE AT EOF. 00092 M01S00089.libedit +++|* NI , DO NOT INSERT NEW RECORDS AT EOF. 00093 M01S00090.libedit +++|* (NOTE - ONLY THOSE RECORDS NOT RERERENCED BY ANY DIRECTIVE 00094 M01S00091.libedit +++|* ARE ADDED AT EOF. ANY DIRECTIVE SUCH AS *INSERT 00095 M01S00092.libedit +++|* *NOREP, OR *IGNORE TAKES PRECEDENCE. 00096 M01S00093.libedit +++|* 00097 M01S00094.libedit +++|* NR OMITTED, REWIND *OLD* AND *NEW* BEFORE AND AFTER EDITING. 00098 M01S00095.libedit +++|* NR , DO NOT REWIND *OLD* OR *NEW* FILES. 00099 M01S00096.libedit +++|*
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00100 M02S00097.v23l617 ---|* Z OMITTED, NO DIRECTIVE INPUT ON CONTROL STATEMENT.
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00101 M02S00098.v23l617 ---|* Z , GET DIRECTIVE INPUT FROM CONTROL STATEMENT. 00102 M01S00002.v23l617 +++|* Z OMITTED, NO DIRECTIVE INPUT ON COMMAND. 00103 M01S00003.v23l617 +++|* Z , GET DIRECTIVE INPUT FROM COMMAND. 00104 M01S00099.libedit +++|* (NOTE - *Z* PARAMETER WILL OVERRIDE *I* PARAMETER.) 00105 M01S00100.libedit +++|* 00106 M01S00101.libedit +++|* 00107 M01S00102.libedit +++|* SINCE THE *U* AND *V* OPTIONS ARE PERFORMED BY LOADING 00108 M01S00103.libedit +++|* DIFFERENT UTILITIES, IF BOTH ARE SPECIFIED, *U* WILL 00109 M01S00104.libedit +++|* TAKE PRECEDENCE. 00110 M01S00105.libedit +++| SPACE 4,10 00111 M01S00106.libedit +++|*** DAYFILE MESSAGES. 00112 M01S00107.libedit +++|* 00113 M01S00108.libedit +++|* * DIRECTIVE ERRORS.* = A *LIBEDIT* DIRECTIVE HAS INCORRECT 00114 M01S00109.libedit +++|* SYNTAX. 00115 M01S00110.libedit +++|* 00116 M01S00111.libedit +++|* * EDITING COMPLETE.* = INFORMATIVE MESSAGE INDICATING THAT 00117 M01S00112.libedit +++|* THE LIBRARY EDITING HAS COMPLETED. 00118 M01S00113.libedit +++|* 00119 M01S00114.libedit +++|* * FILE NAME CONFLICT.* = THE SAME FILE NAME HAS BEEN 00120 M01S00115.libedit +++|* SPECIFIED FOR MORE THAN ONE PARAMETER. 00121 M01S00116.libedit +++|* 00122 M01S00117.libedit +++|* * FILENAM NOT DECLARED NRANDOM.* = AN EOF WAS ENCOUNTERED 00123 M01S00118.libedit +++|* ON THE NONRANDOM FILE, FILENAM. 00124 M01S00119.libedit +++|*
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00125 M02S00120.v23l617 ---|* * ILLEGAL DEVICE TYPE - LFN.* = A NON-MASS STORAGE FILE WAS
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00126 M02S00121.v23l617 ---|* ILLEGALLY SPECIFIED AS EITHER THE OLD FILE OR THE 00127 M01S00004.v23l617 +++|* * INCORRECT DEVICE TYPE - LFN.* = A NON-MASS STORAGE FILE WAS 00128 M01S00005.v23l617 +++|* INCORRECTLY SPECIFIED AS EITHER THE OLD FILE OR THE 00129 M01S00122.libedit +++|* CORRECTION FILE. 00130 M01S00123.libedit +++|*
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00131 M02S00124.v23l617 ---|* * LIBEDIT ARGUMENT ERROR(S).* = THE *LIBEDIT* CONTROL
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00132 M02S00125.v23l617 ---|* STATEMENT CONTAINS AN INCORRECT PARAMETER. 00133 M01S00006.v23l617 +++|* * LIBEDIT ARGUMENT ERROR(S).* = THE *LIBEDIT* COMMAND 00134 M01S00007.v23l617 +++|* CONTAINS AN INCORRECT PARAMETER. 00135 M01S00126.libedit +++|*
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00136 M02S00127.v23l617 ---|* * LIST OPTION ERROR.* = AN ILLEGAL OPTION WAS SPECIFIED 00137 M01S00008.v23l617 +++|* * LIST OPTION ERROR.* = AN INCORRECT OPTION WAS SPECIFIED 00138 M01S00128.libedit +++|* FOR THE *LO* PARAMETER. 00139 M01S00129.libedit +++|* 00140 M01S00130.libedit +++|* * N DIRECTIVE ERRORS.* = *LIBEDIT* COULD NOT INTERPRET 00141 M01S00131.libedit +++|* N NUMBER OF DIRECTIVES. 00142 M01S00132.libedit +++|* 00143 M01S00133.libedit +++|* * N RECORDS NOT REPLACED.* = AN INFORMATIVE MESSAGE. 00144 M01S00134.libedit +++|* *LIBEDIT* ENCOUNTERED N NUMBER OF RECORDS ON A 00145 M01S00135.libedit +++|* REPLACEMENT FILE THAT WERE NOT NAMED IN THE DIRECTIVES 00146 M01S00136.libedit +++|* AND DID NOT REPLACE OLD FILE RECORDS. 00147 M01S00137.libedit +++|*
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00148 M02S00138.v23l617 ---|* * NO NEW FILE.* = N=0 WAS ILLEGALLY SPECIFIED FOR THE 00149 M01S00009.v23l617 +++|* * NO NEW FILE.* = N=0 WAS INCORRECTLY SPECIFIED FOR THE 00150 M01S00139.libedit +++|* *N* PARAMETER. 00151 M01S00140.libedit +++|* 00152 M01S00141.libedit +++|* * OVERLAPPING INSERT OR DELETE.* = *LIBEDIT* ENCOUNTERED AN 00153 M01S00142.libedit +++|* OVERLAP IN THE RECORD NAMES SPECIFIED IN THE 00154 M01S00143.libedit +++|* DIRECTIVES. 00155 M01S00144.libedit +++|*
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed2 |
Seq # *Modification Id* Act ----------------------------+ 00156 M02S00145.libed2 ---|* * RENAME OF PROC TYPE NOT ALLOWED.* = ATTEMPT TO RENAME
| Line S00146 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed2 |
Seq # *Modification Id* Act ----------------------------+ 00157 M02S00146.libed2 ---|* A PROC TYPE RECORD WAS NOT ALLOWED. 00158 M01S00001.libed2 +++|* * RENAME NOT ALLOWED FOR PROC OR TEXT RECORD.* = ATTEMPT TO 00159 M01S00002.libed2 +++|* RENAME A PROC OR TEXT TYPE RECORD WAS NOT ALLOWED. 00160 M01S00147.libedit +++|* 00161 M01S00148.libedit +++|* * REQUIRED FL EXCEEDS VALIDATED LIMIT.* = THE JOB FIELD 00162 M01S00149.libedit +++|* LENGTH REQUIRED FOR *LIBEDIT* IS GREATER THAN THE 00163 M01S00150.libedit +++|* MAXIMUM FOR WHICH THE USER IS VALIDATED. 00164 M01S00151.libedit +++|* 00165 M01S00152.libedit +++| SPACE 4 00166 M01S00153.libedit +++|**** ASSEMBLY CONSTANTS. 00167 M01S00154.libedit +++| 00168 M01S00155.libedit +++|
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00169 M02S00156.274l797 ---| BUFL EQU 1000B MINIMUM BUFFER REQUIRED 00170 M01S00001.274l797 +++| BUFL EQU 4020B MINIMUM BUFFER REQUIRED 00171 M01S00157.libedit +++| DCBL EQU 16 DIRECTIVE BUFFER LENGTH 00172 M01S00158.libedit +++| INPL EQU 2010B *INPUT* *CIO* BUFFER LENGTH
| Line S00159 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00173 M02S00159.274l797 ---| LGOL EQU 2010B *LGO* *CIO* BUFFER LENGTH
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns22000 |
M03 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00174 M03S00160.274l797 ---| LNCNT EQU LINP NUMBER OF LINES/PAGE
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00175 M02S00161.274l797 ---| NEWL EQU 10021B *NEW* *CIO* BUFFER LENGTH
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
M03 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00176 M03S00162.274l797 ---| NLIB EQU 63 NUMBER OF LIBRARIES
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00177 M02S00163.274l797 ---| OLDL EQU 10021B *OLD* *CIO* BUFFER LENGTH 00178 M01S00002.274l797 +++| LGOL EQU 10021B *LGO* *CIO* BUFFER LENGTH 00179 M01S00003.274l797 +++| NEWL EQU 20041B *NEW* *CIO* BUFFER LENGTH 00180 M01S00004.274l797 +++| OLDL EQU 20041B *OLD* *CIO* BUFFER LENGTH 00181 M01S00164.libedit +++| OUTL EQU 4020B *OUTPUT* *CIO* BUFFER LENGTH
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00182 M02S00165.274l797 ---| SBUFL EQU 2010B *SCR* BUFFER LENGTH 00183 M01S00005.274l797 +++| SBUFL EQU 4020B *SCR* BUFFER LENGTH 00184 M01S00166.libedit +++| TTYL EQU 301B *TTYOUT* *CIO* BUFFER LENGTH 00185 M01S00167.libedit +++| TWIDE EQU 80+1 WIDTH LIMIT FOR TERMINAL OUTPUT 00186 M01S00006.274l797 +++| ODEBL EQU 16 00187 M01S00168.libedit +++| 00188 M01S00169.libedit +++|**** 00189 M01S00170.libedit +++| 00190 M01S00171.libedit +++| 00191 M01S00172.libedit +++|* SPECIAL ENTRY POINT. 00192 M01S00173.libedit +++| 00193 M01S00174.libedit +++| SSM= EQU 0 SUPPRESS DUMPS OF FIELD LENGTH 00194 M01S00175.libedit +++| TITLE INPUT DIRECTIVES. 00195 M01S00176.libedit +++|*** INPUT DIRECTIVES. 00196 M01S00177.libedit +++|* 00197 M01S00178.libedit +++|* ON ALL DIRECTIVE DESCRIPTIONS, THE PARAMETERS ARE - 00198 M01S00179.libedit +++|* FN FILE NAME. 00199 M01S00180.libedit +++|* NAME RECORD NAME. 00200 M01S00181.libedit +++|* N NUMERIC PARAMETER. 00201 M01S00182.libedit +++|* ABCD ALPHANUMERIC PARAMETER. 00202 M01S00183.libedit +++|* TYPE LIBRARY TYPE - (MAY BE ONE OF THE FOLLOWING)
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00203 M02S00184.251l664 ---|* *PP* PERIPHERAL PROCESSOR PROGRAM.
| Line S00185 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00204 M02S00185.251l664 ---|* *REL* RELOCATABLE CPU PROGRAM.
| Line S00186 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00205 M02S00186.251l664 ---|* *OVL* SCOPE CPU OVERLAY PROGRAM.
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00206 M02S00187.251l664 ---|* *TEXT* UNRECOGNIZED AS A PROGRAM.
| Line S00188 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00207 M02S00188.251l664 ---|* *ULIB* USER LIBRARY. 00208 M01S00001.251l664 +++|* *ABS* ABSOLUTE PROGRAM. 00209 M01S00002.251l664 +++|* *CAP* FAST DYNAMIC LOAD CAPSULES. 00210 M01S00189.libedit +++|* *OPL* OLD PROGRAM LIBRARY. 00211 M01S00190.libedit +++|* *OPLC* OLD PROGRAM LIBRARY COMMON DECK. 00212 M01S00191.libedit +++|* *OPLD* OPL DIRECTORY.
| Line S00192 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00213 M02S00192.251l664 ---|* *ABS* ABSOLUTE PROGRAM. 00214 M01S00003.251l664 +++|* *OVL* SCOPE CPU OVERLAY PROGRAM. 00215 M01S00004.251l664 +++|* *PP* PERIPHERAL PROCESSOR PROGRAM. 00216 M01S00005.251l664 +++|* *PPL* 16-BIT PERIPHERAL PROCESSOR PROGRAM. 00217 M01S00193.libedit +++|* *PPU* 7600 PPU PROGRAM.
| Line S00194 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00218 M02S00194.251l664 ---|* *CAP* FAST DYNAMIC LOAD CAPSULES. 00219 M01S00195.libedit +++|* *PROC* PROCEDURE TYPE RECORD. 00220 M01S00006.251l664 +++|* *REL* RELOCATABLE CPU PROGRAM. 00221 M01S00007.251l664 +++|* *TEXT* UNRECOGNIZED AS A PROGRAM. 00222 M01S00008.251l664 +++|* *ULIB* USER LIBRARY. 00223 M01S00196.libedit +++|* 00224 M01S00197.libedit +++|* 00225 M01S00198.libedit +++|* FOR THOSE DIRECTIVES REQUIRING RECORD NAME(S), THE 00226 M01S00199.libedit +++|* FOLLOWING CONVENTIONS ARE USED - 00227 M01S00200.libedit +++|* 00228 M01S00201.libedit +++|* RID RECORD IDENTIFIER 00229 M01S00202.libedit +++|* TYPE/NAME RECORD *NAME* OF TYPE *TYPE*. 00230 M01S00203.libedit +++|* NAME RECORD *NAME*, USING DEFAULT TYPE. 00231 M01S00204.libedit +++|* * EOF (USED ONLY WITH *BEFORE). 00232 M01S00205.libedit +++|* 00233 M01S00206.libedit +++|* GID RECORD GROUP IDENTIFIER 00234 M01S00207.libedit +++|* TYPE/NAME RECORD *NAME* OF TYPE *TYPE*. 00235 M01S00208.libedit +++|* NAME RECORD *NAME*, USING DEFAULT TYPE. 00236 M01S00209.libedit +++|* TYPE1/NAME1- GROUP OF RECORDS STARTING WITH 00237 M01S00210.libedit +++|* TYPE2/NAME2 *RID1* AND ENDING WITH *RID2*. 00238 M01S00211.libedit +++|* TYPE/NAME1- GROUP OF *TYPE* RECORDS STARTING WITH 00239 M01S00212.libedit +++|* NAME2 *NAME1* AND ENDING WITH *NAME2*. 00240 M01S00213.libedit +++|* NAME1-NAME2 GROUP OF DEFAULT TYPE RECORDS STARTING 00241 M01S00214.libedit +++|* WITH *NAME1* AND ENDING WITH *NAME2*. 00242 M01S00215.libedit +++|* TYPE/NAME-* ALL *TYPE* RECORDS STARTING WITH *NAME* 00243 M01S00216.libedit +++|* NAME-* ALL DEFAULT TYPE RECORDS STARTING 00244 M01S00217.libedit +++|* WITH *NAME*. 00245 M01S00218.libedit +++|* TYPE/* ALL RECORDS OF THE SPECIFIED *TYPE*. 00246 M01S00219.libedit +++|* * ALL DEFAULT TYPE RECORDS. 00247 M01S00220.libedit +++|* 0 ZERO LENGTH RECORD (USED ONLY 00248 M01S00221.libedit +++|* WITH *INSERT). 00249 M01S00222.libedit +++|* 00250 M01S00223.libedit +++|* 00251 M01S00224.libedit +++|* DIRECTIVES - 00252 M01S00225.libedit +++|* 00253 M01S00226.libedit +++|* *AFTER RID,GID1,GID2,....GIDN 00254 M01S00227.libedit +++|* *A RID,GID1,GID2,...,GIDN 00255 M01S00228.libedit +++|* *INSERT RID,GID1,GID2,...,GIDN 00256 M01S00229.libedit +++|* *I RID,GID1,GID2,...,GIDN 00257 M01S00230.libedit +++|* INSERT *GID1* THROUGH *GID2* FROM CURRENT CORRECTION 00258 M01S00231.libedit +++|* FILE AFTER *RID* ON FILE *NEW*. 00259 M01S00232.libedit +++|* (NOTE - ANY RECORDS ON *OLD* WITH SAME NAME ARE DELETED.) 00260 M01S00233.libedit +++|* 00261 M01S00234.libedit +++|* *BEFORE RID,GID1,GID2,...,GIDN 00262 M01S00235.libedit +++|* *B RID,GID1,GID2,...,GIDN 00263 M01S00236.libedit +++|* INSERT *GID1* THROUGH *GID2* FROM CURRENT CORRECTION 00264 M01S00237.libedit +++|* FILE BEFORE *RID* ON FILE *NEW*. 00265 M01S00238.libedit +++|* (NOTE - ANY RECORDS ON *OLD* WITH SAME NAME ARE DELETED.) 00266 M01S00239.libedit +++|* 00267 M01S00240.libedit +++|* *DELETE GID1,GID2,...,GIDN 00268 M01S00241.libedit +++|* *D GID1,GID2,...,GIDN 00269 M01S00242.libedit +++|* DELETE *GID1* THROUGH *GIDN*. 00270 M01S00243.libedit +++|* 00271 M01S00244.libedit +++|* *NAME TYPE 00272 M01S00245.libedit +++|* *TYPE TYPE 00273 M01S00246.libedit +++|* CHANGE DEFAULT RECORD TYPE TO *TYPE*. 00274 M01S00247.libedit +++|* 00275 M01S00248.libedit +++|* *ADD LIB,GID1,GID2,...,GIDN. 00276 M01S00249.libedit +++|* ADD *GID1* THROUGH *GIDN* AT END OF LIBRARY *LIB*. 00277 M01S00250.libedit +++|* *LIB* CAN BE ANY OF THE FOLLOWING - 00278 M01S00251.libedit +++|* 1. *DDS* DEADSTART LIBRARY. 00279 M01S00252.libedit +++|* 2. *MOV* MONITOR OVERLAY. 00280 M01S00253.libedit +++|* 3. *RPL* RESIDENT PERIPHERAL OVERLAY. 00281 M01S00254.libedit +++|* 4. *RSL* RESIDENT *SCOPE* LIBRARY. 00282 M01S00255.libedit +++|* 5. *SLD* *SCOPE* LIBRARY DIRECTORY.
| Line S00256 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 00283 M02S00256.libed8 ---|* 6. ANY NAME FROM *LIB1* TO *LIB63*. 00284 M01S00001.libed8 +++|* 6. ANY NAME FROM *LIB1* TO *LIB9999*. 00285 M01S00257.libedit +++|* (A LIBRARY IS DEFINED AS A GROUP OF RECORDS 00286 M01S00258.libedit +++|* TERMINATED BY A ZERO-LENGTH RECORD.) 00287 M01S00259.libedit +++|* 00288 M01S00260.libedit +++|* *IGNORE GID1,GID2,...,GIDN 00289 M01S00261.libedit +++|* IGNORE *GID1* THROUGH *GIDN* WHEN READING CORRECTION 00290 M01S00262.libedit +++|* FILE(S). THESE RECORDS ARE NOT REPLACED. 00291 M01S00263.libedit +++|* 00292 M01S00264.libedit +++|* *RENAME RID1,RID2 00293 M01S00265.libedit +++|* CHANGE THE NAME OF *RID1* TO *RID2*. 00294 M01S00266.libedit +++|* 00295 M01S00267.libedit +++|* *REPLACE GID1,GID2,...GIDN 00296 M01S00268.libedit +++|* REPLACE ONLY *GID1* THROUGH *GIDN* WHEN READING CORRECTION 00297 M01S00269.libedit +++|* FILE. THE REST OF THE RECORDS ARE IGNORED. 00298 M01S00270.libedit +++|* 00299 M01S00271.libedit +++|* *LIBGEN UN 00300 M01S00272.libedit +++|* CALL *LIBGEN* AT END OF EDITING TO GENERATE USER LIBRARY 00301 M01S00273.libedit +++|* *UN* ON FILE *NEW*. IF *UN* IS OMITTED, 00302 M01S00274.libedit +++|* USE *UN* = *ULIB*. 00303 M01S00275.libedit +++|* (OVERRIDES *U* PARAMETER IF *UN* IS SPECIFIED). 00304 M01S00276.libedit +++|* 00305 M01S00277.libedit +++|* *OLD FN 00306 M01S00278.libedit +++|* USE *FN* AS OLD FILE (OVERRIDES *P* PARAMETER). 00307 M01S00279.libedit +++|* 00308 M01S00280.libedit +++|* *NEW FN 00309 M01S00281.libedit +++|* USE *FN* AS NEW FILE (OVERRIDES *N* PARAMETER). 00310 M01S00282.libedit +++|* 00311 M01S00283.libedit +++|* *LGO FN1,FN2,...,FNN 00312 M01S00284.libedit +++|* *FILE FN1,FN2,...,FNN 00313 M01S00285.libedit +++|* ADD *FN1* THROUGH *FNN* TO LIST OF CORRECTION FILES. 00314 M01S00286.libedit +++|* 00315 M01S00287.libedit +++|* *NOREP FN1,FN2,...,FNN 00316 M01S00288.libedit +++|* DO NOT REPLACE RECORDS FROM FILES *FN1* THROUGH *FNN*. 00317 M01S00289.libedit +++|* 00318 M01S00290.libedit +++|* *REWIND FN1,FN2,...,FNN 00319 M01S00291.libedit +++|* REWIND *FN1* THROUGH *FN2* BEFORE AND AFTER EDITING. 00320 M01S00292.libedit +++|* 00321 M01S00293.libedit +++|* *BUILD ABCD 00322 M01S00294.libedit +++|* BUILD AN *OPLD* INDEX AT THE END OF FILE *NEW*. 00323 M01S00295.libedit +++|* THE NAME GIVEN TO THIS RECORD IS *ABCD*. 00324 M01S00296.libedit +++|* 00325 M01S00297.libedit +++|* *COMMENT RID,ABCD 00326 M01S00298.libedit +++|* ADDS 70 CHARACTER COMMENT *ABCD* TO THE 7700 00327 M01S00299.libedit +++|* TABLE OF *RID* FROM *OLD* OR CORRECTION FILE. 00328 M01S00300.libedit +++|* 00329 M01S00301.libedit +++|* *DATE RID,ABCD 00330 M01S00302.libedit +++|* ADDS THE CURRENT DATE AND 70 CHARACTER COMMENT *ABCD* 00331 M01S00303.libedit +++|* TO THE 7700 TABLE OF *RID* FROM *OLD* OR CORRECTION FILE. 00332 M01S00304.libedit +++|* 00333 M01S00305.libedit +++|* *LIST FN,ABCD 00334 M01S00306.libedit +++|* CHANGES LISTING FILE TO *FN*, AND LIST OPTIONS TO *ABCD* 00335 M01S00307.libedit +++|* (SEE *LO* PARAMETER). IF EITHER PARAMETER IS OMITTED, 00336 M01S00308.libedit +++|* IT IS NOT CHANGED (OVERRIDES *L* AND *LO* PARAMETERS). 00337 M01S00309.libedit +++|* 00338 M01S00310.libedit +++|* *COPY 00339 M01S00311.libedit +++|* COPY *NEW* TO *OLD* AFTER EDITING
| Line S00312 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00340 M02S00312.v23l617 ---|* (EQUIVALENT TO *C* CONTROL STATEMENT PARAMETER). 00341 M01S00010.v23l617 +++|* (EQUIVALENT TO *C* COMMAND PARAMETER). 00342 M01S00313.libedit +++|* 00343 M01S00314.libedit +++|* *DEBUG 00344 M01S00315.libedit +++|* IGNORE SUBSEQUENT DIRECTIVE ERRORS (EQUIVALENT TO 00345 M01S00316.libedit +++|* *NA* PARAMETER, SET AUTOMATICALLY IF OUTPUT ASSIGNED 00346 M01S00317.libedit +++|* TO EQUIPMENT *TT*. 00347 M01S00318.libedit +++|* 00348 M01S00319.libedit +++|* *NOINS 00349 M01S00320.libedit +++|* DO NOT INSERT UNREPLACEABLE RECORDS AT EOF. 00350 M01S00321.libedit +++|* (EQUIVALENT TO *NI* PARAMETER.) 00351 M01S00322.libedit +++|* 00352 M01S00323.libedit +++|* *NOREW 00353 M01S00324.libedit +++|* DO NOT REWIND *OLD* OR *NEW * FILES. 00354 M01S00325.libedit +++|* (EQUIVALENT TO *NR* PARAMETER) 00355 M01S00326.libedit +++|* 00356 M01S00327.libedit +++|* *VERIFY 00357 M01S00328.libedit +++|* *VFYLIB 00358 M01S00329.libedit +++|* VERIFY *NEW* AGAINST *OLD* AFTER EDITING. 00359 M01S00330.libedit +++|* (EQUIVALENT TO *V* PARAMETER, USES *VFYLIB*.) 00360 M01S00331.libedit +++|* 00361 M01S00001.libed7 +++|* */ TEXT 00362 M01S00002.libed7 +++|* COMMENT CARD, *TEXT* IS COPIED TO LISTING FILE. 00363 M01S00003.libed7 +++|* 00364 M01S00332.libedit +++|* 00365 M01S00333.libedit +++|* 00366 M01S00334.libedit +++|* CARDS WITHOUT AN *** IN COLUMN 1 ARE TREATED AS A CONTINUATION 00367 M01S00335.libedit +++|* OF THE PREVIOUS CARD. IF NO CARD PRECEEDS THIS CARD, 00368 M01S00336.libedit +++|* (*BEFORE *,LIB/PN) IS ASSUMED. 00369 M01S00337.libedit +++| TITLE TABLE STRUCTURE. 00370 M01S00338.libedit +++|** TABLE STRUCTURE. 00371 M01S00339.libedit +++|* ALL TABLES ARE VARIABLE LENGTH, MANAGED TABLES. POINTERS 00372 M01S00340.libedit +++|* TO THE TABLE ABC ARE 00373 M01S00341.libedit +++|* P.ABC = FWA OF TABLE ABC. 00374 M01S00342.libedit +++|* L.ABC = LENGTH OF TABLE ABC. 00375 M01S00343.libedit +++|* N.ABC = NUMBER OF WORDS/ENTRY. 00376 M01S00344.libedit +++|* D.ABC = NUMBER OF WORDS THE LENGTH OF TABLE IS 00377 M01S00345.libedit +++|* INCREASED IF TABLE IS FULL. 00378 M01S00346.libedit +++|* 00379 M01S00347.libedit +++|* FNT - NAME TABLE. 00380 M01S00348.libedit +++|* 42/FILE,18/RANDOM 00381 M01S00349.libedit +++|* 1. FILE = FILE NAME LEFT JUSTIFIED 00382 M01S00350.libedit +++|* 2. RANDOM = 0 IF FILE IS RANDOM. 00383 M01S00351.libedit +++|* RANDOM = CURRENT POSITION IF FILE IS NON RANDOM. 00384 M01S00352.libedit +++|* 00385 M01S00353.libedit +++|* PNT - PROGRAM NAME TABLE. 00386 M01S00354.libedit +++|* 00387 M01S00355.libedit +++|* 42/PROGRAM,18/TYPE 00388 M01S00356.libedit +++|* 42/FILE,18/0 00389 M01S00357.libedit +++|* 60/POSITION 00390 M01S00358.libedit +++|* 1. PROGRAM = PROGRAM NAME LEFT JUSTIFIED. 00391 M01S00359.libedit +++|* 2. TYPE = PROGRAM TYPE. 00392 M01S00360.libedit +++|* 0 = *TEXT* 00393 M01S00361.libedit +++|* 1 = *PP* 00394 M01S00362.libedit +++|* 3 = *REL* RELOCATABLE 00395 M01S00363.libedit +++|* 4 = *OVL* OVERLAY 00396 M01S00364.libedit +++|* 5 = *ULIB* USER LIBRARY 00397 M01S00365.libedit +++|* 6 = *OPL* OLD PROGRAM LIBRARY 00398 M01S00366.libedit +++|* 7 = *OPLC* OLD PROGRAM LIBRARY COMMON DECK 00399 M01S00367.libedit +++|* 8 = *OPLD* OPL DIRECTORY 00400 M01S00368.libedit +++|* 9 = *ABS* ABSOLUTE PROGRAM
| Line S00369 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00401 M02S00369.251l664 ---|* 0 = *PPU* 7600 PPU PROGRAM
| Line S00370 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00402 M02S00370.251l664 ---|* 4 = *CAP* FAST DYNAMIC LOAD CAPSULES
| Line S00371 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00403 M02S00371.251l664 ---|* 6 = *PROC* PROCEDURE TYPE RECORDS 00404 M01S00009.251l664 +++|* 10 = *PPU* 7600 PPU PROGRAM 00405 M01S00010.251l664 +++|* 14 = *CAP* FAST DYNAMIC LOAD CAPSULE 00406 M01S00011.251l664 +++|* 16 = *PROC* PROCEDURE TYPE RECORD 00407 M01S00012.251l664 +++|* 20 = *PPL* 16-BIT PP PROGRAM 00408 M01S00372.libedit +++|* 3. FILE = CORRECTION FILE NAME. 00409 M01S00373.libedit +++|* 4. POSITION = RANDOM INDEX. 00410 M01S00374.libedit +++|* 00411 M01S00375.libedit +++|* DPT - DELETE PROGRAM TABLE. 00412 M01S00376.libedit +++|* 00413 M01S00377.libedit +++|* 42/PROGRAM1,6/IP,12/TYPE 00414 M01S00378.libedit +++|* 42/PROGRAM2,6/0,12/TYPE 00415 M01S00379.libedit +++|* 1. PROGRAM1 = START OF DELETE. 00416 M01S00380.libedit +++|* 2. PROGRAM2 = END OF DELETE. 00417 M01S00381.libedit +++|* 3. IP = 0, IF DELETE NOT IN PROGRESS. 00418 M01S00382.libedit +++|* = 1, IF DELETE IN PROGRESS. 00419 M01S00383.libedit +++|* 00420 M01S00384.libedit +++|* IDT - IMPLIED DELETE TABLE. 00421 M01S00385.libedit +++|* 00422 M01S00386.libedit +++|* 42/PROGRAM, 18/TYPE 00423 M01S00387.libedit +++|* 42/FILE,18/0 00424 M01S00388.libedit +++|* 1. PROGRAM = PROGRAM DELETED IF PRESENT. 00425 M01S00389.libedit +++|* 2. TYPE = PROGRAM TYPE. 00426 M01S00390.libedit +++|* 3. FILE = CORRECTION FILE NAME. 00427 M01S00391.libedit +++|* 00428 M01S00392.libedit +++|* PIT - PROGRAM IGNORE TABLE. 00429 M01S00393.libedit +++|* 00430 M01S00394.libedit +++|* 42/FILE,18/0 00431 M01S00395.libedit +++|* 42/PROGRAM1,18/TYPE1 00432 M01S00396.libedit +++|* 42/PROGRAM2,18/TYPE2 00433 M01S00397.libedit +++|* 1. FILE = FILE NAME LEFT JUSTIFIED. 00434 M01S00398.libedit +++|* 2. PROGRAM1 = START OF IGNORE. 00435 M01S00399.libedit +++|* 3. PROGRAM2 = END OF IGNORE. 00436 M01S00400.libedit +++|* 00437 M01S00401.libedit +++|* 00438 M01S00402.libedit +++|* RFT - REWIND FILE TABLE. 00439 M01S00403.libedit +++|* 00440 M01S00404.libedit +++|* 42/FILE,18/0 00441 M01S00405.libedit +++|* 1. FILE = FILE NAME LEFT JUSTIFIED. 00442 M01S00406.libedit +++|* 00443 M01S00407.libedit +++|* 00444 M01S00408.libedit +++|* IPT - INSERT PROGRAM TABLE. 00445 M01S00409.libedit +++|* 00446 M01S00410.libedit +++|* 42/PROG1,1/BEFORE,17/TYPE1 00447 M01S00411.libedit +++|* 42/FILE,18/0 00448 M01S00412.libedit +++|* 42/PROG2,18/TYPE2 00449 M01S00413.libedit +++|* 42/PROG3,18/TYPE3 00450 M01S00414.libedit +++|* 1. PROG1 = PROGRAM NAME ON FILE *OLD*. 00451 M01S00415.libedit +++|* PROG1 = LIBRARY NUMBER OF FILE *OLD*. 00452 M01S00416.libedit +++|* 2. BEFORE = 0 IF INSERT AFTER PROG1. 00453 M01S00417.libedit +++|* BEFORE = 1 IF INSERT BEFORE PROG1. 00454 M01S00418.libedit +++|* 3. FILE = CORRECTION FILE NAME. 00455 M01S00419.libedit +++|* 4. PROG2 = PROGRAM NAME FOR START OF INSERT. 00456 M01S00420.libedit +++|* 5. PROG3 = PROGRAM NAME FOR END OF INSERT. 00457 M01S00421.libedit +++|* 00458 M01S00422.libedit +++|* 00459 M01S00423.libedit +++|* CDT - COMMENT AND DATE TABLE. 00460 M01S00424.libedit +++|* 00461 M01S00425.libedit +++|* 42/PROGRAM,1/DATE,17/TYPE 00462 M01S00426.libedit +++|* 60/COMMENT TEXT 00463 M01S00427.libedit +++|* 60/COMMENT TEXT 00464 M01S00428.libedit +++|* 60/COMMENT TEXT 00465 M01S00429.libedit +++|* 60/COMMENT TEXT 00466 M01S00430.libedit +++|* 60/COMMENT TEXT 00467 M01S00431.libedit +++|* 60/COMMENT TEXT 00468 M01S00432.libedit +++|* 60/COMMENT TEXT 00469 M01S00433.libedit +++|* 1. PROGRAM = PROGRAM NAME ON FILE *NEW*. 00470 M01S00434.libedit +++|* 2. DATE = 1 IF DATE IS INSERTED IN 7700 TABLE. 00471 M01S00435.libedit +++|* 3. COMMENT TEXT = 70-CHARACTERS OF TEXT. 00472 M01S00436.libedit +++|* 00473 M01S00437.libedit +++|* 00474 M01S00438.libedit +++|* NRT - NO REPLACE TABLE. 00475 M01S00439.libedit +++|* 00476 M01S00440.libedit +++|* 42/FILE,18/0 00477 M01S00441.libedit +++|* 1. FILE = FILE NAME LEFT JUSTIFIED. 00478 M01S00442.libedit +++|* 00479 M01S00443.libedit +++|* 00480 M01S00444.libedit +++|* NPT - NEW PROGRAM TABLE. 00481 M01S00445.libedit +++|* 00482 M01S00446.libedit +++|* 42/PROGRAM,18/TYPE 00483 M01S00447.libedit +++|* 60/POSITION 00484 M01S00448.libedit +++|* 1. PROGRAM = PROGRAM NAME. 00485 M01S00449.libedit +++|* 2. TYPE = PROGRAM TYPE. 00486 M01S00450.libedit +++|* 3. POSITION = RANDOM FILE INDEX. 00487 M01S00451.libedit +++|* 00488 M01S00452.libedit +++|* 00489 M01S00453.libedit +++|* RNT - RENAME TABLE. 00490 M01S00454.libedit +++|* 00491 M01S00455.libedit +++|* 42/PROG1,18/TYPE1 00492 M01S00456.libedit +++|* 42/PROG2,18/TYPE2 00493 M01S00457.libedit +++|* 1. PROG1 = OLD PROGRAM NAME. 00494 M01S00458.libedit +++|* 2. PROG2 = NEW PROGRAM NAME. 00495 M01S00459.libedit +++| TITLE MACRO DEFINITIONS. 00496 M01S00460.libedit +++|* MACROS. 00497 M01S00461.libedit +++| 00498 M01S00462.libedit +++|*CALL COMCMAC 00499 M01S00463.libedit +++|*CALL COMCCMD 00500 M01S00013.251l664 +++|*CALL COMSSRT 00501 M01S00464.libedit +++|*CALL COMSTCM
| Line S00465 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00502 M02S00465.libed6 ---| NAME SPACE 4,10
| Line S00466 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00503 M02S00466.libed6 ---|** NAME - ROUTINE NAME HEADER.
| Line S00467 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00504 M02S00467.libed6 ---|* THIS MACRO DEFINES *.NAME* = (LOCATION COUNTER) AND
| Line S00468 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00505 M02S00468.libed6 ---|* GENERATES ONE LINE OF CODE CONTAINING THE SUBROUTINE
| Line S00469 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00506 M02S00469.libed6 ---|* NAME AND A LINK TO THE NEXT SUBROUTINE HEADER.
| Line S00470 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00507 M02S00470.libed6 ---|
| Line S00471 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00508 M02S00471.libed6 ---|
| Line S00472 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00509 M02S00472.libed6 ---| NAME MACRO TITLE,LWA
| Line S00473 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00510 M02S00473.libed6 ---| BSS 0
| Line S00474 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00511 M02S00474.libed6 ---| .NAME SET *
| Line S00475 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00512 M02S00475.libed6 ---| VFD 42/0L_TITLE,18/LWA
| Line S00476 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00513 M02S00476.libed6 ---| ENDM 00514 M01S00477.libedit +++| SPACE 4 00515 M01S00478.libedit +++|** CALL - SUBROUTINE CALL. 00516 M01S00479.libedit +++|* THIS MACRO SETS UP A STANDARD CALLING SEQUENCE. 00517 M01S00480.libedit +++|* CALL SUB,P1,P2,P3,P4,P5,P6 00518 M01S00481.libedit +++|* ENTRY SUB = SUBROUTINE NAME. 00519 M01S00482.libedit +++|* PI = ADDRESS OF I-TH PARAMETER. 00520 M01S00483.libedit +++|* PARAMETER ADDRESSES ARE PASSED IN B-REGISTERS (AS IN FORTRAN) 00521 M01S00484.libedit +++|* WITH THE FIRST PARAMETER ADDRESS IN B2, SECOND IN B3, ETC.
| Line S00485 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00522 M02S00485.libed6 ---|* TRACEBACK INFORMATION IS ASSEMBLED IN THE LOWER HALF OF
| Line S00486 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00523 M02S00486.libed6 ---|* THE RETURN JUMP INSTRUCTION. 00524 M01S00487.libedit +++| 00525 M01S00488.libedit +++| 00526 M01S00489.libedit +++| CALL MACRO SUB,P1,P2,P3,P4,P5,P6 00527 M01S00490.libedit +++| IFC NE,$P1$$,1 00528 M01S00491.libedit +++| R= B2,P1 00529 M01S00492.libedit +++| IFC NE,$P2$$,1 00530 M01S00493.libedit +++| R= B3,P2 00531 M01S00494.libedit +++| IFC NE,$P3$$,1 00532 M01S00495.libedit +++| R= B4,P3 00533 M01S00496.libedit +++| IFC NE,$P4$$,1 00534 M01S00497.libedit +++| R= B5,P4 00535 M01S00498.libedit +++| IFC NE,$P5$$,1 00536 M01S00499.libedit +++| R= B6,P5 00537 M01S00500.libedit +++| IFC NE,$P6$$,1 00538 M01S00501.libedit +++| R= B7,P6 00539 M01S00502.libedit +++| ENDIF
| Line S00503 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00540 M02S00503.libed6 ---| + RJ SUB
| Line S00504 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00541 M02S00504.libed6 ---| - LT B0,.NAME 00542 M01S00002.libed6 +++| RJ SUB 00543 M01S00505.libedit +++| ENDM 00544 M01S00506.libedit +++| SPACE 4 00545 M01S00507.libedit +++|** ADDWRD - ADD WORD TO MANAGED TABLE. 00546 M01S00508.libedit +++|* THIS MACRO SETS UP A CALL TO ADD AN ENTRY TO A MANAGED TABLE: 00547 M01S00509.libedit +++|* ADDWRD TABLE,ENTRY 00548 M01S00510.libedit +++|* ENTRY TABLE = NAME OF MANAGED TABLE. 00549 M01S00511.libedit +++|* ENTRY = ADDRESS OF ENTRY. 00550 M01S00512.libedit +++| 00551 M01S00513.libedit +++| 00552 M01S00514.libedit +++| ADDWRD MACRO TABLE,ENTRY 00553 M01S00515.libedit +++| CALL ADD,P.TABLE,ENTRY 00554 M01S00516.libedit +++| ENDM 00555 M01S00517.libedit +++| SPACE 4 00556 M01S00518.libedit +++|** TABLE - DEFINE MANAGED TABLE POINTERS. 00557 M01S00519.libedit +++|* MANAGED TABLES HAVE 4 POINTERS ASSOCIATED WITH THEM: 00558 M01S00520.libedit +++|* (P.NAME) = FWA OF MANAGED TABLE. 00559 M01S00521.libedit +++|* (L.NAME) = LENGTH OF MANAGED TABLE. 00560 M01S00522.libedit +++|* (N.NAME) = NUMBER OF WORDS IN AN ENTRY. 00561 M01S00523.libedit +++|* (D.NAME) = NUMBER OF WORDS TABLE LENGTH IS INCREASED AT 00562 M01S00524.libedit +++|* A TIME. 00563 M01S00525.libedit +++|* TABLE NAME,WORD,DELTA 00564 M01S00526.libedit +++|* ENTRY NAME = NAME OF TABLE. 00565 M01S00527.libedit +++|* WORD = NUMBER OF WORDS/ENTRY. 00566 M01S00528.libedit +++|* DELTA = SIZE OF TABLE INCREASE (NUMBER OF ENTRIES). 00567 M01S00529.libedit +++| 00568 M01S00530.libedit +++| 00569 M01S00531.libedit +++| TABLE MACRO NAME,WORD,DELTA 00570 M01S00532.libedit +++| LOCAL NW,DW 00571 M01S00533.libedit +++| NW SET WORD 1 00572 M01S00534.libedit +++| DW SET DELTA 4 00573 M01S00535.libedit +++| P.NAME VFD 42D/0L_NAME,18D/BUF 00574 M01S00536.libedit +++| L.NAME VFD 60D/0 00575 M01S00537.libedit +++| N.NAME VFD 60D/NW 00576 M01S00538.libedit +++| D.NAME VFD 60D/NW*DW 00577 M01S00539.libedit +++| ENDM 00578 M01S00540.libedit +++| SPACE 4 00579 M01S00541.libedit +++|** SEARCH - SEARCH FOR ENTRY IN MANAGED TABLE. 00580 M01S00542.libedit +++|* THIS MACRO SETS UP A CALL TO SEARCH FOR AN ENTRY 00581 M01S00543.libedit +++|* IN A MANAGED TABLE 00582 M01S00544.libedit +++|* SEARCH TABLE,ENTRY,MASK,INDEX,RETURN 00583 M01S00545.libedit +++|* ENTRY TABLE = NAME OF MANAGED TABLE. 00584 M01S00546.libedit +++|* ENTRY = ADDRESS OF ENTRY. 00585 M01S00547.libedit +++|* MASK = ADDRESS OF SEARCH MASK. 00586 M01S00548.libedit +++|* INDEX = INDEX INTO TABLE. 00587 M01S00549.libedit +++|* RETURN = ADDRESS OF RETURN PARAMETER. 00588 M01S00550.libedit +++| 00589 M01S00551.libedit +++| 00590 M01S00552.libedit +++| SEARCH MACRO TABLE,ENTRY,MASK,INDEX,RETURN 00591 M01S00553.libedit +++| SB2 P.TABLE 00592 M01S00554.libedit +++| SB3 ENTRY 00593 M01S00555.libedit +++| SB4 MASK =77777777777777777777B 00594 M01S00556.libedit +++| SB5 INDEX B0 00595 M01S00557.libedit +++| SB6 RETURN SMTA
| Line S00558 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00596 M02S00558.libed6 ---| + RJ SMT
| Line S00559 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00597 M02S00559.libed6 ---| - LT B0,.NAME 00598 M01S00003.libed6 +++| RJ SMT 00599 M01S00560.libedit +++| ENDM 00600 M01S00561.libedit +++| READW SPACE 4 00601 M01S00562.libedit +++|** READW - REDEFINE READ WORDS MACRO TO USE CONTROL WORDS. 00602 M01S00563.libedit +++| 00603 M01S00564.libedit +++| 00604 M01S00565.libedit +++| PURGMAC READW 00605 M01S00566.libedit +++| 00606 M01S00567.libedit +++| READW MACRO F,S,N 00607 M01S00568.libedit +++| R= B6,S 00608 M01S00569.libedit +++| R= B7,N 00609 M01S00570.libedit +++| R= X2,F 00610 M01S00571.libedit +++| RJ RDA 00611 M01S00572.libedit +++| ENDM 00612 M01S00573.libedit +++| WRCW SPACE 4 00613 M01S00574.libedit +++|** WRCW - WRITE WORKING STORAGE WITH CONTROL WORDS. 00614 M01S00575.libedit +++| 00615 M01S00576.libedit +++| 00616 M01S00577.libedit +++| WRCW MACRO F,S,N,E 00617 M01S00578.libedit +++| R= B6,S 00618 M01S00579.libedit +++| R= B7,N 00619 M01S00580.libedit +++| R= X2,F 00620 M01S00581.libedit +++| RJ WDA 00621 M01S00582.libedit +++| IFC NE,*E**,2 00622 M01S00583.libedit +++| + NZ B7,*+1 00623 M01S00584.libedit +++| - RJ WDA 00624 M01S00585.libedit +++| ENDM 00625 M01S00586.libedit +++| TITLE 00626 M01S00587.libedit +++|** LIBEDIT - LIBRARY EDITING PROGRAM. 00627 M01S00588.libedit +++|* 00628 M01S00589.libedit +++|* 1. FILE INPUT IS READ TO DETERMINE DIRECTIVES. 00629 M01S00590.libedit +++|* 2. ALL FILES WITH REWIND SELECTED ARE REWOUND. 00630 M01S00591.libedit +++|* 3. ALL CORRECTION FILES ARE READ TO DETERMINE PROGRAM 00631 M01S00592.libedit +++|* NAMES AND BUILD AN INDEX. 00632 M01S00593.libedit +++|* 4. CORRECTION FILES WITH REWIND SELECTED ARE REWOUND. 00633 M01S00594.libedit +++|* 5. FILE OLD IS READ. 00634 M01S00595.libedit +++|* 6. INSERT BEFORE IS CHECKED. 00635 M01S00596.libedit +++|* 7. IMPLIED DELETE IS CHECKED. 00636 M01S00597.libedit +++|* 8. REPLACEMENT IS CHECKED. 00637 M01S00598.libedit +++|* 9. INSERT AFTER IS CHECKED. 00638 M01S00599.libedit +++|* 10. FILE NEW IS WRITTEN. 00639 M01S00600.libedit +++|* 11. REPEAT STEPS 5.-11. 00640 M01S00601.libedit +++|* 12. COPY ADDED PROGRAMS ONTO *NEW*, IF APPLICABLE. 00641 M01S00602.libedit +++|* 13. REWIND ALL FILES WITH REWIND SELECTED. 00642 M01S00603.libedit +++|* 14. CALL *VFYLIB* IF VERIFY REQUESTED. 00643 M01S00604.libedit +++|* 15. CALL *LIBGEN* IF USER LIBRARY REQUESTED. 00644 M01S00605.libedit +++| 00645 M01S00606.libedit +++|
| Line S00607 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed7 |
Seq # *Modification Id* Act ----------------------------+ 00646 M02S00607.libed7 ---| ORG 110B 00647 M01S00004.libed7 +++| ORG 104B 00648 M01S00608.libedit +++|
| Line S00609 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00649 M02S00609.libed6 ---| LIB NAME LIBEDIT,LIBL
| Line S00610 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
M03 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00650 M03S00610.libed6 ---| LIBEDT RJ RDC READ DIRECTIVE CARDS
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00651 M02S00011.libed6 ---| LIBEDT RJ RDC READ DIRECTIVES 00652 M01S00004.libed6 +++| LIBEDIT BSS 0 ENTRY 00653 M01S00005.libed6 +++| SB1 1 (B1) = CONSTANT ONE 00654 M01S00006.libed6 +++| RJ PRS PRESET 00655 M01S00007.libed6 +++| RJ RDC READ DIRECTIVES 00656 M01S00611.libedit +++| CALL RWF REWIND ALL FILES 00657 M01S00612.libedit +++| CALL RCF READ ALL CORRECTION FILES 00658 M01S00613.libedit +++| CALL RWS REWIND SEQUENTIAL CORRECTION FILES 00659 M01S00614.libedit +++| CALL BID BUILD IMPLIED DELETE TABLE
| Line S00615 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed9 |
Seq # *Modification Id* Act ----------------------------+ 00660 M02S00615.libed9 ---| SA1 CULB
| Line S00616 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed9 |
Seq # *Modification Id* Act ----------------------------+ 00661 M02S00616.libed9 ---| ZR X1,LIB0 IF NO *U* OPTION
| Line S00617 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed9 |
Seq # *Modification Id* Act ----------------------------+ 00662 M02S00617.libed9 ---| SA1 CCPY
| Line S00618 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed9 |
Seq # *Modification Id* Act ----------------------------+ 00663 M02S00618.libed9 ---| NZ X1,LIB0 IF *COPY* OPTION
| Line S00619 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed9 |
Seq # *Modification Id* Act ----------------------------+ 00664 M02S00619.libed9 ---| SA1 GULF
| Line S00620 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed9 |
Seq # *Modification Id* Act ----------------------------+ 00665 M02S00620.libed9 ---| EQ LIB0.1 SET NEW FILE NAME
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | libed6 |
M02 (Updated by) | libed9 |
Seq # *Modification Id* Act ----------------------------+ 00666 M02S00008.libed9 ---|
| Line S00621 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed9 |
Seq # *Modification Id* Act ----------------------------+ 00667 M02S00621.libed9 ---| LIB0 SA1 N
| Line S00622 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed9 |
Seq # *Modification Id* Act ----------------------------+ 00668 M02S00622.libed9 ---| LIB0.1 MX0 42 00669 M01S00001.libed9 +++| SA2 CCPY 00670 M01S00002.libed9 +++| SA1 P SET *OLD* IN HEADER 00671 M01S00003.libed9 +++| NZ X2,LIB0 IF *C* OPTION 00672 M01S00004.libed9 +++| SA2 CULB 00673 M01S00005.libed9 +++| SA1 N SET *NEW* IN HEADER 00674 M01S00006.libed9 +++| ZR X2,LIB0 IF NO *U* OPTION 00675 M01S00007.libed9 +++| SA1 GULF SET *NEW* IN HEADER 00676 M01S00008.libed9 +++| LIB0 MX0 42 00677 M01S00623.libedit +++| BX6 X0*X1 00678 M01S00624.libedit +++| SA6 LIBF+3 00679 M01S00625.libedit +++| SB6 B0+ 00680 M01S00626.libedit +++| CALL STB,LIBF SET TITLE OF PAGE 00681 M01S00627.libedit +++| SB6 B1 00682 M01S00628.libedit +++| CALL STB,LIBG 00683 M01S00629.libedit +++| WRITECW N,* SET FILE STATUS 00684 M01S00630.libedit +++| SA4 N+4 00685 M01S00631.libedit +++| AX4 18 00686 M01S00632.libedit +++| SX6 X4 SET SECTOR WORD COUNT 00687 M01S00633.libedit +++| SA1 OLD 00688 M01S00634.libedit +++| SA6 N-1 00689 M01S00635.libedit +++| ZR X1,LIB19 IF NO FILE *OLD* 00690 M01S00636.libedit +++| OPEN A1,READNR,R 00691 M01S00637.libedit +++| SA1 P+1 CHECK DEVICE TYPE 00692 M01S00638.libedit +++| RJ CVD
| Line S00639 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00693 M02S00639.v23l617 ---| ZR X7,IDT IF ILLEGAL DEVICE 00694 M01S00012.v23l617 +++| ZR X7,IDT IF INCORRECT DEVICE 00695 M01S00640.libedit +++| READCW P,17B 00696 M01S00641.libedit +++| LIB1 READW P,WSA,WSAL 00697 M01S00642.libedit +++| BX6 X1 SET EOR INDICATOR 00698 M01S00643.libedit +++| SA6 LIBA 00699 M01S00644.libedit +++| PL X1,LIB2 IF NOT EOF ON FILE *OLD* 00700 M01S00645.libedit +++| SB5 WSA 00701 M01S00646.libedit +++| EQ B5,B6,LIB19 IF NO DATA READ 00702 M01S00647.libedit +++| EQ LIB2.1 PROCESS DATA 00703 M01S00648.libedit +++| 00704 M01S00649.libedit +++| LIB2 SA1 LIBA CHECK EOR INDICATOR 00705 M01S00650.libedit +++| NG X1,LIB19 IF EOF ON FILE OLD 00706 M01S00651.libedit +++| LIB2.1 SB6 WSA 00707 M01S00652.libedit +++| SB7 X1+ 00708 M01S00653.libedit +++| EQ B6,B7,LIB17 IF 0-LENGTH RECORD 00709 M01S00654.libedit +++| SA1 P-LWP LWA+1 OF DATA TRANSFERED FROM OLD FILE 00710 M01S00655.libedit +++| SX2 WSA 00711 M01S00656.libedit +++| RJ SRT SET RECORD TYPE 00712 M01S00657.libedit +++| SA6 LIBB 00713 M01S00658.libedit +++| SA6 LIBH 00714 M01S00001.libed1 +++| MX0 -18 CREATE -TYPE/*- PSEUDO-ENTRY 00715 M01S00002.libed1 +++| SX7 1R* 00716 M01S00003.libed1 +++| BX6 -X0*X6 EXTRACT RECORD TYPE 00717 M01S00004.libed1 +++| LX7 54 00718 M01S00005.libed1 +++| BX7 X7+X6 MERGE TYPE AND -*- 00719 M01S00006.libed1 +++| SA7 LIBB+2
| Line S00659 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00720 M02S00659.251l664 ---| SX3 X6-8 00721 M01S00014.251l664 +++| SX3 X6-ODRT 00722 M01S00660.libedit +++| SA2 CULB 00723 M01S00661.libedit +++| BX4 X3+X2 00724 M01S00662.libedit +++| ZR X4,LIB19 IF OPLD AND NOT *ULIB* MODE 00725 M01S00663.libedit +++| ZR X2,LIB2.3 IF NOT *ULIB* MODE 00726 M01S00664.libedit +++| SA1 LIBA 00727 M01S00665.libedit +++| ZR X3,LIB2.2 IF OPLD
| Line S00666 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00728 M02S00666.251l664 ---| SX4 X6-5 00729 M01S00015.251l664 +++| SX4 X6-ULRT 00730 M01S00667.libedit +++| NZ X4,LIB2.3 IF NOT *ULIB* RECORD 00731 M01S00668.libedit +++| LIB2.2 NZ X1,LIB1 IF END OF RECORD 00732 M01S00669.libedit +++| READW P,WSA,WSAL 00733 M01S00670.libedit +++| EQ LIB2.2 SKIP RECORD 00734 M01S00671.libedit +++| 00735 M01S00672.libedit +++|* CHECK INSERT BEFORE. 00736 M01S00673.libedit +++| 00737 M01S00674.libedit +++| LIB2.3 SA1 LIBB SET SEARCH NAME 00738 M01S00675.libedit +++| MX6 1 00739 M01S00676.libedit +++| LX6 18 00740 M01S00677.libedit +++| BX6 X6+X1 00741 M01S00678.libedit +++| SA6 A1+B1 00742 M01S00679.libedit +++| LIB3 SEARCH IPT,(LIBB+1) 00743 M01S00680.libedit +++| ZR X6,LIB4 IF NO MORE INSERT BEFORE 00744 M01S00681.libedit +++| SA1 P.IPT SET IPT INDEX 00745 M01S00682.libedit +++| SX1 X1 00746 M01S00683.libedit +++| IX6 X6-X1 00747 M01S00684.libedit +++| 00748 M01S00685.libedit +++|* INSERT PROGRAMS BEFORE SPECIFIED PROGRAM. 00749 M01S00686.libedit +++| 00750 M01S00687.libedit +++| CALL CPP,X6 00751 M01S00688.libedit +++| EQ LIB3 CHECK FOR ANOTHER INSERT 00752 M01S00689.libedit +++| 00753 M01S00690.libedit +++|* CHECK FOR DELETE. 00754 M01S00691.libedit +++| 00755 M01S00692.libedit +++| LIB4 SEARCH DPT,LIBN,LIBP SEARCH FOR DELETE IN PROGRESS 00756 M01S00693.libedit +++| NZ X6,LIB6 IF DELETE IN PROGRESS 00757 M01S00694.libedit +++| SEARCH DPT,LIBB 00758 M01S00695.libedit +++| NZ X6,LIB5 IF START OF DELETE 00759 M01S00007.libed1 +++| SEARCH DPT,LIBB+2 CHECK FOR -TYPE/*- 00760 M01S00008.libed1 +++| SX7 X6 00761 M01S00009.libed1 +++| BX6 X6-X6 00762 M01S00010.libed1 +++| NZ X7,LIB6 IF DELETING ALL OF THIS TYPE 00763 M01S00696.libedit +++| SEARCH IDT,LIBB 00764 M01S00697.libedit +++| ZR X6,LIB9 IF PROGRAM IS NOT INSERTED 00765 M01S00698.libedit +++| SX6 B0 00766 M01S00699.libedit +++| EQ LIB6 ISSUE OUTPUT MESSAGE 00767 M01S00700.libedit +++|
| Line S00701 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed3 |
Seq # *Modification Id* Act ----------------------------+ 00768 M02S00701.libed3 ---| LIB5 SA1 LIBP SET START OF DELETE 00769 M01S00001.libed3 +++| LIB5 SA1 X6+B1 CHECK FOR /*DELETE NAME-*/ FORM 00770 M01S00002.libed3 +++| SA2 LIBB+2 00771 M01S00003.libed3 +++| BX7 X1-X2 00772 M01S00004.libed3 +++| NZ X7,LIB5.1 IF NORMAL DELETE RANGE 00773 M01S00005.libed3 +++| BX7 X1 00774 M01S00006.libed3 +++| SA7 X6 UPDATE *DPT* 00775 M01S00007.libed3 +++| BX6 X6-X6 00776 M01S00008.libed3 +++| EQ LIB6 CONTINUE PROCESSING 00777 M01S00009.libed3 +++| 00778 M01S00010.libed3 +++| LIB5.1 SA1 LIBP SET START OF DELETE 00779 M01S00702.libedit +++| SA2 X6 00780 M01S00703.libedit +++| BX7 -X1*X2 00781 M01S00704.libedit +++| SA3 LIBN 00782 M01S00705.libedit +++| BX7 X3+X7 00783 M01S00706.libedit +++| SA7 X6 00784 M01S00707.libedit +++| LIB6 SA6 LIBC SET DPT ADDRESS 00785 M01S00708.libedit +++| CALL ODP,LIBB OUTPUT DELETED PROGRAM 00786 M01S00709.libedit +++| 00787 M01S00710.libedit +++|* SKIP RECORD FROM FILE *OLD*. 00788 M01S00711.libedit +++| 00789 M01S00712.libedit +++| CALL DIS,LIBB,(=H*SKIPPING *) 00790 M01S00713.libedit +++| SA1 LIBA 00791 M01S00714.libedit +++| LIB7 NZ X1,LIB8 IF EOR OR EOF 00792 M01S00715.libedit +++| READW OLD,WSA,WSAL 00793 M01S00716.libedit +++| EQ LIB7 LOOP TO END OF RECORD 00794 M01S00717.libedit +++| LIB8 CALL SUL,LIBB,LIBA 00795 M01S00718.libedit +++| SA1 LIBC CHECK FOR END OF DELETE 00796 M01S00719.libedit +++| ZR X1,LIB16 IF IMPLIED DELETE 00797 M01S00720.libedit +++| SA2 X1+B1 00798 M01S00721.libedit +++| SA3 LIBB 00799 M01S00722.libedit +++| BX6 X2-X3 00800 M01S00723.libedit +++| NZ X6,LIB16 IF NOT END OF DELETE 00801 M01S00011.libed1 +++| SX6 7777B DELETE FLAG 00802 M01S00724.libedit +++| SA6 X1 CLEAR DPT ENTRY 00803 M01S00725.libedit +++| SA6 X1+B1 00804 M01S00726.libedit +++| EQ LIB16 CHECK INSERT AFTER 00805 M01S00727.libedit +++| 00806 M01S00728.libedit +++|* CHECK FOR REPLACEMENT. 00807 M01S00729.libedit +++| 00808 M01S00730.libedit +++| LIB9 SEARCH PNT,LIBB 00809 M01S00731.libedit +++| ZR X6,LIB12 IF NO REPLACEMENT 00810 M01S00732.libedit +++| SA1 P.PNT 00811 M01S00733.libedit +++| SX1 X1 00812 M01S00734.libedit +++| IX6 X6-X1 00813 M01S00735.libedit +++| SA6 LIBE 00814 M01S00736.libedit +++| CALL CNR,X6 CHECK FOR NO REPLACE 00815 M01S00737.libedit +++| NZ X6,LIB9 IF NO REPLACE 00816 M01S00738.libedit +++| CALL DIS,LIBB,(=H*REPLACING *) 00817 M01S00739.libedit +++| SA1 LIBE 00818 M01S00740.libedit +++| CALL CPY,X1 COPY REPLACEMENT RECORD 00819 M01S00741.libedit +++| CALL ORW,(=8HREPLACED),LGO 00820 M01S00742.libedit +++| SA1 LIBA 00821 M01S00743.libedit +++| NZ X1,LIB11 IF EOR ON PREVIOUS READ 00822 M01S00744.libedit +++| LIB10 READW OLD,WSA,WSAL SKIP RECORD ON *OLD* 00823 M01S00745.libedit +++| LIB11 ZR X1,LIB10 IF NOT EOR 00824 M01S00746.libedit +++| CALL SUL,LIBB,LIBA 00825 M01S00747.libedit +++| EQ LIB16 CHECK INSERT AFTER 00826 M01S00748.libedit +++| 00827 M01S00749.libedit +++|* COPY FROM *OLD* TO *NEW*. 00828 M01S00750.libedit +++| 00829 M01S00751.libedit +++| LIB12 CALL DIS,LIBB,(=H*COPYING *) 00830 M01S00752.libedit +++| CALL CCM,WSA,LIBB 00831 M01S00753.libedit +++| SB6 X6 00832 M01S00754.libedit +++| SA1 LIBA CHECK FOR EOR 00833 M01S00755.libedit +++| NZ X1,LIB14 IF EOR/EOF/EOI 00834 M01S00756.libedit +++| LIB13 SB7 WSA+WSAL 00835 M01S00757.libedit +++| WRCW N,B6,B7-B6 00836 M01S00758.libedit +++| READW OLD,WSA,WSAL 00837 M01S00759.libedit +++| SB6 WSA 00838 M01S00760.libedit +++| ZR X1,LIB13 IF NOT EOR/EOF/EOI 00839 M01S00761.libedit +++| LIB14 SA1 P-LWP LWA + 1 OF DATA TRANSFERED 00840 M01S00762.libedit +++| SB7 X1 00841 M01S00763.libedit +++| WRCW N,B6,B7-B6,R WRITE LAST PORTION OF RECORD 00842 M01S00764.libedit +++| SA1 N-2 00843 M01S00765.libedit +++| NG X1,LIB15 IF *WRITECW* NOT DISABLED 00844 M01S00766.libedit +++| RJ RCW 00845 M01S00767.libedit +++| 00846 M01S00768.libedit +++| LIB15 ADDWRD NPT,NIND 00847 M01S00769.libedit +++| CALL ORW,(=1H ),OLD 00848 M01S00770.libedit +++| CALL CPL,LIBB,LIBA 00849 M01S00771.libedit +++| 00850 M01S00772.libedit +++|* CHECK INSERT AFTER. 00851 M01S00773.libedit +++| 00852 M01S00774.libedit +++| LIB16 SEARCH IPT,LIBB 00853 M01S00775.libedit +++| ZR X6,LIB2 IF NO INSERT 00854 M01S00776.libedit +++| SA1 P.IPT SET IPT INDEX 00855 M01S00777.libedit +++| SX1 X1 00856 M01S00778.libedit +++| IX6 X6-X1 00857 M01S00779.libedit +++| 00858 M01S00780.libedit +++|* INSERT PROGRAMS AFTER SPECIFIED PROGRAM. 00859 M01S00781.libedit +++| 00860 M01S00782.libedit +++| CALL CPP,X6 00861 M01S00783.libedit +++| EQ LIB16 LOOP 00862 M01S00784.libedit +++| 00863 M01S00785.libedit +++|* PROCESS ZERO LENGTH RECORD. 00864 M01S00786.libedit +++| 00865 M01S00787.libedit +++| LIB17 SEARCH IPT,LIBI 00866 M01S00788.libedit +++| ZR X6,LIB18 IF NO ADD 00867 M01S00789.libedit +++| SA1 P.IPT SET IPT INDEX 00868 M01S00790.libedit +++| SX1 X1 00869 M01S00791.libedit +++| IX6 X6-X1 00870 M01S00792.libedit +++| CALL CPP,X6 00871 M01S00793.libedit +++| EQ LIB17 LOOP 00872 M01S00794.libedit +++|
| Line S00795 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns2037 |
Seq # *Modification Id* Act ----------------------------+ 00873 M02S00795.ns2037 ---| LIB18 WRCW N,B0,B0 00874 M01S00001.ns2037 +++| LIB18 SB2 =0 ENTER ZERO LENGTH RECORD NAME AND TYPE 00875 M01S00002.ns2037 +++| RJ EPN 00876 M01S00003.ns2037 +++| ADDWRD NPT,NIND 00877 M01S00004.ns2037 +++| WRCW N,B0,B0 WRITE ZERO LENGTH RECORD 00878 M01S00796.libedit +++| SA1 LIBI INCREMENT LIBRARY NUMBER 00879 M01S00797.libedit +++| SX6 B1
| Line S00798 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 00880 M02S00798.libed8 ---| LX6 48 00881 M01S00002.libed8 +++| LX6 42 00882 M01S00799.libedit +++| IX6 X6+X1 00883 M01S00800.libedit +++| SA6 A1 00884 M01S00801.libedit +++| CALL OZR,(=1H ),OLD,(=2H00) 00885 M01S00802.libedit +++| JP LIB1 READ NEXT RECORD 00886 M01S00803.libedit +++| 00887 M01S00804.libedit +++|* CHECK INSERT BEFORE EOF. 00888 M01S00805.libedit +++| 00889 M01S00806.libedit +++| LIB19 SEARCH IPT,LIBD,(=77777777777777400000B) 00890 M01S00807.libedit +++| ZR X6,LIB20 IF NO INSERT 00891 M01S00808.libedit +++| SA1 P.IPT SET IPT INDEX 00892 M01S00809.libedit +++| SX1 X1 00893 M01S00810.libedit +++| IX6 X6-X1 00894 M01S00811.libedit +++| 00895 M01S00812.libedit +++|* INSERT PROGRAM(S) BEFORE EOF. 00896 M01S00813.libedit +++| 00897 M01S00814.libedit +++| CALL CPP,X6 00898 M01S00815.libedit +++| EQ LIB19 CHECK FOR ANOTHER INSERT 00899 M01S00816.libedit +++| 00900 M01S00817.libedit +++|* PROCESS EOF ON FILE OLD. 00901 M01S00818.libedit +++| 00902 M01S00819.libedit +++| LIB20 RJ CAP COPY ADDED PROGRAMS 00903 M01S00820.libedit +++| SB2 LIBH 00904 M01S00821.libedit +++| SA1 LIBA GET EOR INDICATOR 00905 M01S00822.libedit +++| RJ WPD WRITE PROGRAM DIRECTORY 00906 M01S00823.libedit +++| CALL RWF REWIND FILES 00907 M01S00824.libedit +++| CALL CRR CHECK RECORDS REPLACED 00908 M01S00825.libedit +++| CALL CNO COPY NEW TO OLD 00909 M01S00826.libedit +++| MESSAGE (=C* EDITING COMPLETE.*),,R 00910 M01S00827.libedit +++| RETURN S RETURN SCRATCH FILE 00911 M01S00828.libedit +++| SA1 OUTPUT+2 CLOSE OUT FILE *OUTPUT* 00912 M01S00829.libedit +++| SA2 A1+B1 00913 M01S00830.libedit +++| BX6 X1-X2 00914 M01S00831.libedit +++| ZR X6,LIB21 IF NO OUTPUT
| Line S00832 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | ns2371a |
Seq # *Modification Id* Act ----------------------------+ 00915 M02S00832.ns2371a ---| WRITER OUTPUT 00916 M01S00001.ns2371a +++| WRITER OUTPUT,R
| Line S00833 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed4 |
Seq # *Modification Id* Act ----------------------------+ 00917 M02S00833.libed4 ---| LIB21 CALL VFY VERIFY *OLD* AND *NEW*
| Line S00834 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed4 |
Seq # *Modification Id* Act ----------------------------+ 00918 M02S00834.libed4 ---| RJ GUL GENERATE USER LIBRARY 00919 M01S00001.libed4 +++| LIB21 RJ GUL GENERATE USER LIBRARY 00920 M01S00002.libed4 +++| RJ VFY VERIFY *OLD* AND *NEW* 00921 M01S00835.libedit +++| ENDRUN 00922 M01S00836.libedit +++| 00923 M01S00837.libedit +++| 00924 M01S00838.libedit +++| LIBA DATA 0 EOR INDICATOR 00925 M01S00839.libedit +++| LIBB DATA 0 PROGRAM NAME 00926 M01S00840.libedit +++| DATA 0 PROGRAM NAME WITH INSERT BEFORE SET 00927 M01S00012.libed1 +++| BSSZ 1 TYPE/* PSUEDO-ENTRY 00928 M01S00841.libedit +++| LIBC DATA 0 ADDRESS OF DPT ENTRY 00929 M01S00842.libedit +++| LIBD VFD 42/1L*,1/1,17/ 00930 M01S00843.libedit +++| LIBE DATA 0 PROGRAM NAME TABLE INDEX 00931 M01S00844.libedit +++| LIBF DATA C* RECORDS WRITTEN ON FILE XXX* 00932 M01S00845.libedit +++| LIBG DATA H* RECORD TYPE FILE * 00933 M01S00846.libedit +++| DATA C* DATE COMMENT* 00934 M01S00847.libedit +++| LIBH DATA 0 OPL DIRECTORY NAME
| Line S00848 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 00935 M02S00848.libed8 ---| LIBI DATA 1S48 LIBRARY NUMBER 00936 M01S00003.libed8 +++| LIBI DATA 1S42 LIBRARY NUMBER 00937 M01S00849.libedit +++| LIBN VFD 42/0,6/1,12/0 DELETE IN PROGRESS FLAG 00938 M01S00850.libedit +++| LIBP VFD 42/0,6/77B,12/0 DELETE IN PROGRESS MASK
| Line S00851 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00939 M02S00851.libed6 ---| LIBL BSS 0 LWA OF *LIBEDIT* ROUTINE 00940 M01S00852.libedit +++| TITLE DIRECTIVE CARD PROCESSING.
| Line S00853 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00941 M02S00853.v23l617 ---|** RDC - READ DIRECTIVE CARDS. 00942 M01S00013.v23l617 +++|** RDC - READ DIRECTIVES. 00943 M01S00854.libedit +++| 00944 M01S00855.libedit +++|
| Line S00856 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed6 |
Seq # *Modification Id* Act ----------------------------+ 00945 M02S00856.libed6 ---| NAME RDC,RDCL 00946 M01S00857.libedit +++| RDC SUBR ENTRY/EXIT 00947 M01S00858.libedit +++| SA1 INPUT CHECK FOR NO INPUT FILE 00948 M01S00859.libedit +++| SA2 CZOP CHECK FOR *Z* OPTION 00949 M01S00860.libedit +++| NZ X2,RDC1 IF *Z* OPTION SELECTED 00950 M01S00861.libedit +++| ZR X1,RDC12 IF NO INPUT FILE 00951 M01S00862.libedit +++| SA1 TTYI 00952 M01S00863.libedit +++| NZ X1,RDC0.1 IF NOT TTY INPUT 00953 M01S00864.libedit +++| WRITEC TTYOUT,(=C*ENTER DIRECTIVES -*) 00954 M01S00865.libedit +++| RDC0.1 READ I 00955 M01S00866.libedit +++| RDC1 READH I,DCB,DCBL
| Line S00867 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00956 M02S00867.v23l617 ---| SB2 DCB UNPACK DIRECTIVE CARD BUFFER 00957 M01S00014.v23l617 +++| SB2 DCB UNPACK DIRECTIVE COMMAND BUFFER 00958 M01S00868.libedit +++| SB3 DCB+DCBL 00959 M01S00869.libedit +++| SB4 DSB 00960 M01S00870.libedit +++| MX0 54 00961 M01S00871.libedit +++| NZ X1,RDC12 IF END-OF-RECORD 00962 M01S00872.libedit +++| RDC2 SB5 B4+10 00963 M01S00873.libedit +++| SA1 B2 00964 M01S00874.libedit +++| RDC3 LX1 6 00965 M01S00875.libedit +++| BX6 -X0*X1 00966 M01S00876.libedit +++| SA6 B4 00967 M01S00877.libedit +++| SB4 B4+B1 00968 M01S00878.libedit +++| NE B4,B5,RDC3 LOOP FOR 10 CHARACTERS 00969 M01S00879.libedit +++| SB2 B2+B1 00970 M01S00880.libedit +++| SX6 B0 00971 M01S00881.libedit +++| NE B2,B3,RDC2 LOOP FOR END OF BUFFER 00972 M01S00882.libedit +++| SB4 DSB SUPPRESS TRAILING BLANKS 00973 M01S00883.libedit +++| RDC4 SA6 B5 00974 M01S00884.libedit +++| EQ B4,B5,RDC5 IF START OF BUFFER 00975 M01S00885.libedit +++| SB5 B5-B1 00976 M01S00886.libedit +++| SA1 B5 00977 M01S00887.libedit +++| SX6 X1-1R 00978 M01S00888.libedit +++| ZR X6,RDC4 IF CHARACTER IS * * 00979 M01S00889.libedit +++| 00980 M01S00890.libedit +++|* ASSEMBLE DIRECTIVE AND GO TO DIRECTIVE PROCESSOR. 00981 M01S00891.libedit +++| 00982 M01S00892.libedit +++| RDC5 SX6 DSB SET COLUMN POINTER AT COLUMN 1 00983 M01S00893.libedit +++| SA6 RDCA 00984 M01S00894.libedit +++| SA1 X6 CHECK COLUMN 1 00985 M01S00005.libed7 +++| SA3 A1+B1 CHECK COLUMN 2 00986 M01S00895.libedit +++| SX2 X1-1R* 00987 M01S00896.libedit +++| NZ X2,RDC11 IF NOT *** IN COLUMN 1 00988 M01S00006.libed7 +++| SX6 X3-1R/ 00989 M01S00007.libed7 +++| ZR X6,LST IF COMMENT TEXT 00990 M01S00897.libedit +++| CALL AFN,RDCA,RDCB 00991 M01S00898.libedit +++| SA1 RDCA IGNORE TRAILING BLANKS 00992 M01S00899.libedit +++| SA2 X1 00993 M01S00900.libedit +++| + SA2 A2+B1 00994 M01S00901.libedit +++| SX6 X2-1R 00995 M01S00902.libedit +++| ZR X6,*-1 LOOP 00996 M01S00903.libedit +++| SX6 A2-B1 00997 M01S00904.libedit +++| SA6 B2 00998 M01S00905.libedit +++| SA1 RDCC SEARCH FOR LEGAL DIRECTIVE 00999 M01S00906.libedit +++| SA2 RDCB
| Line S00907 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01000 M02S00907.v23l617 ---| RDC6 ZR X1,RDC14 IF DIRECTIVE ILLEGAL 01001 M01S00015.v23l617 +++| RDC6 ZR X1,RDC14 IF DIRECTIVE INCORRECT 01002 M01S00908.libedit +++| MX0 42 01003 M01S00909.libedit +++| BX6 X1-X2 01004 M01S00910.libedit +++| BX6 X0*X6 01005 M01S00911.libedit +++| SX7 X1 01006 M01S00912.libedit +++| LX7 30 01007 M01S00913.libedit +++| SA1 A1+B1 01008 M01S00914.libedit +++| NZ X6,RDC6 LOOP 01009 M01S00915.libedit +++| SA7 SDA SET DIRECTIVE ADDRESS 01010 M01S00916.libedit +++| LX7 30 01011 M01S00917.libedit +++| SX6 X7+COPY 01012 M01S00918.libedit +++| ZR X6,COPY IF *COPY DIRECTIVE 01013 M01S00919.libedit +++| SX6 X7+DEBUG 01014 M01S00920.libedit +++| ZR X6,DEBUG IF *DEBUG DIRECTIVE 01015 M01S00921.libedit +++| SX6 X7+VFYLIB 01016 M01S00922.libedit +++| ZR X6,VFYLIB IF *VFYLIB DIRECTIVE 01017 M01S00923.libedit +++| SX6 X7+LSTDR 01018 M01S00924.libedit +++| ZR X6,LSTDR IF *LIST DIRECTIVE 01019 M01S00925.libedit +++| SX6 X7+NOREW 01020 M01S00926.libedit +++| ZR X6,NOREW IF *NOREW DIRECTIVE 01021 M01S00927.libedit +++| SX6 X7+NOINS 01022 M01S00928.libedit +++| ZR X6,NOINS IF *NOINS DIRECTIVE 01023 M01S00929.libedit +++| SX6 X7+LIBGEN 01024 M01S00930.libedit +++| ZR X6,LIBGEN IF *LIBGEN DIRECTIVE 01025 M01S00931.libedit +++| 01026 M01S00932.libedit +++|** PROCESS DIRECTIVE. 01027 M01S00933.libedit +++| 01028 M01S00934.libedit +++| RDC7 SA1 RDCA CHECK SERARATOR CHARACTER 01029 M01S00935.libedit +++| SA2 X1 01030 M01S00936.libedit +++| SB5 X2+B1 01031 M01S00937.libedit +++| SA1 =20000000000005000000B 01032 M01S00938.libedit +++| LX7 X1,B5 01033 M01S00939.libedit +++| NG X7,ERR9 IF CHARACTER = EOL */* *-* 01034 M01S00940.libedit +++| SA3 SDA 01035 M01S00941.libedit +++| RDC8 PL X3,RDC9 IF LIBRARY/PROGRAM TO BE ASSEMBLED 01036 M01S00942.libedit +++| CALL AFN,RDCA,RDCD 01037 M01S00943.libedit +++| SA3 SDA 01038 M01S00944.libedit +++| BX3 -X3 01039 M01S00945.libedit +++| AX3 30 01040 M01S00946.libedit +++| SB7 X3 01041 M01S00947.libedit +++| EQ RDC10 CHECK FILE NAME 01042 M01S00948.libedit +++| 01043 M01S00949.libedit +++| RDC9 CALL APN,RDCA,RDCD 01044 M01S00950.libedit +++| SA3 SDA 01045 M01S00951.libedit +++| AX3 30 01046 M01S00952.libedit +++| SB7 X3 01047 M01S00953.libedit +++| RDC10 MX0 42 CHECK FILE NAME 01048 M01S00954.libedit +++| SA1 RDCD 01049 M01S00955.libedit +++| BX1 X0*X1 01050 M01S00956.libedit +++| SX7 =C* REQUIRED PARAMETER(S) NOT SPECIFIED.* 01051 M01S00957.libedit +++| ZR X1,ERR IF FILE NAME = 0 01052 M01S00958.libedit +++| SA1 RDCA 01053 M01S00959.libedit +++| SA2 X1+ (X2) = CHARACTER 01054 M01S00960.libedit +++| SB5 X2-1R, (B5) = CHARACTER - *,* 01055 M01S00961.libedit +++| JP B7 GO TO DIRECTIVE PROCESSOR. 01056 M01S00962.libedit +++| 01057 M01S00963.libedit +++|* PROCESS DIRECTIVE CONTINUATION. 01058 M01S00964.libedit +++| 01059 M01S00965.libedit +++| RDC11 SX6 DSB-1 SET STRING BUFFER POINTER 01060 M01S00966.libedit +++| SA6 RDCA 01061 M01S00967.libedit +++| SA3 SDA 01062 M01S00968.libedit +++| EQ RDC8 CHECK DIRECTIVE FORMAT 01063 M01S00969.libedit +++|
| Line S00970 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01064 M02S00970.v23l617 ---|* END OF CORRECTION CARDS. CHECK FOR ERRORS. 01065 M01S00016.v23l617 +++|* END OF DIRECTIVES. CHECK FOR ERRORS. 01066 M01S00971.libedit +++| 01067 M01S00972.libedit +++| RDC12 RETURN TTYOUT 01068 M01S00973.libedit +++| RJ SUM SET *ULIB* MODE 01069 M01S00974.libedit +++| SA1 TTYI 01070 M01S00975.libedit +++| SA2 RDCF 01071 M01S00976.libedit +++| ZR X1,RDCX IF TTY INPUT 01072 M01S00977.libedit +++| ZR X2,RDCX IF NO DIRECTIVE ERRORS 01073 M01S00978.libedit +++| MESSAGE (=C* DIRECTIVE ERRORS.*),3 01074 M01S00979.libedit +++| SA1 CDOP 01075 M01S00980.libedit +++| NZ X1,RDCX IF DEBUG OPTION ON 01076 M01S00981.libedit +++| RJ ABT ABORT 01077 M01S00982.libedit +++| 01078 M01S00983.libedit +++| RDC14 SX7 =C* UNRECOGNIZED KEYWORD IN DIRECTIVE.* 01079 M01S00984.libedit +++| EQ ERR LIST ERROR MESSAGE 01080 M01S00985.libedit +++| SPACE 4 01081 M01S00986.libedit +++|** SET NEW DIRECTIVE ADDRESS. 01082 M01S00987.libedit +++|* RJ SDA TO SET NEW ADDRESS. LIBRARY/PROGRAM WILL 01083 M01S00988.libedit +++|* BE ASSEMBLED. 01084 M01S00989.libedit +++| 01085 M01S00990.libedit +++| 01086 M01S00991.libedit +++| SDA EQ INS5 PROCESS NEXT FIELD 01087 M01S00992.libedit +++| SPACE 4 01088 M01S00993.libedit +++|** RET - RETURN FOR PROCESSING DUPLICATE FIELD. 01089 M01S00994.libedit +++| 01090 M01S00995.libedit +++| 01091 M01S00996.libedit +++| RET SA1 RDCA CHECK SEPARATOR CHARACTER 01092 M01S00997.libedit +++| SA2 X1 01093 M01S00998.libedit +++| ZR X2,LST IF END-OF-LINE 01094 M01S00999.libedit +++| SB5 X2-1R 01095 M01S01000.libedit +++| ZR B5,LST IF CHARACTER = * * 01096 M01S01001.libedit +++| EQ RDC7 IF MORE PARAMETERS 01097 M01S01002.libedit +++| 01098 M01S01003.libedit +++| RDCA VFD 60/DSB DIRECTIVE STRING BUFFER POINTER 01099 M01S01004.libedit +++| RDCB DATA 0 DIRECTIVE 01100 M01S01005.libedit +++| 01101 M01S01006.libedit +++| RDCC VFD 42/0LAFTER,18/INSERT 01102 M01S01007.libedit +++| VFD 42/0LA,18/INSERT 01103 M01S01008.libedit +++| VFD 42/0LADD,18/-ADP 01104 M01S01009.libedit +++| VFD 42/0LBEFORE,18/BEFORE 01105 M01S01010.libedit +++| VFD 42/0LB,18/BEFORE 01106 M01S01011.libedit +++| VFD 42/0LBUILD,18/BUILD 01107 M01S01012.libedit +++| VFD 42/0LCOMMENT,18/COMMENT 01108 M01S01013.libedit +++| VFD 42/0LCOPY,18/-COPY 01109 M01S01014.libedit +++| VFD 42/0LDATE,18/DATE 01110 M01S01015.libedit +++| VFD 42/0LDEBUG,18/-DEBUG 01111 M01S01016.libedit +++| VFD 42/0LDELETE,18/DELETE 01112 M01S01017.libedit +++| VFD 42/0LD,18/DELETE 01113 M01S01018.libedit +++| VFD 42/0LFILE,18/-FILE 01114 M01S01019.libedit +++| VFD 42/0LIGNORE,18/IGNORE 01115 M01S01020.libedit +++| VFD 42/0LINSERT,18/INSERT 01116 M01S01021.libedit +++| VFD 42/0LI,18/INSERT 01117 M01S01022.libedit +++| VFD 42/0LLIBGEN,18/-LIBGEN 01118 M01S01023.libedit +++| VFD 42/0LLIST,18/-LSTDR 01119 M01S01024.libedit +++| VFD 42/0LLGO,18/-FILE 01120 M01S01025.libedit +++| VFD 42/0LNAME,18/-NAME 01121 M01S01026.libedit +++| VFD 42/0LNEW,18/-NEWF 01122 M01S01027.libedit +++| VFD 42/0LNOINS,18/-NOINS 01123 M01S01028.libedit +++| VFD 42/0LNOREP,18/-NOREP 01124 M01S01029.libedit +++| VFD 42/0LNOREW,18/-NOREW 01125 M01S01030.libedit +++| VFD 42/0LOLD,18/-OLDF 01126 M01S01031.libedit +++| VFD 42/0LRENAME,18/RENAME 01127 M01S01032.libedit +++| VFD 42/0LREPLACE,18/REPLACE 01128 M01S01033.libedit +++| VFD 42/0LREWIND,18/-REWIND 01129 M01S01034.libedit +++| VFD 42/0LTYPE,18/-NAME 01130 M01S01035.libedit +++| VFD 42/0LVERIFY,18/-VFYLIB 01131 M01S01036.libedit +++| VFD 42/0LVFYLIB,18/-VFYLIB 01132 M01S01037.libedit +++| VFD 60/0 01133 M01S01038.libedit +++| 01134 M01S01039.libedit +++| RDCD DATA 0 ASSEMBLED NAME 01135 M01S01040.libedit +++| RDCE DATA 0LTEXT DEFAULT RECORD TYPE
| Line S01041 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01136 M02S01041.v23l617 ---| RDCF DATA 0 DIRECTIVE CARD ERROR COUNT 01137 M01S00017.v23l617 +++| RDCF DATA 0 DIRECTIVE ERROR COUNT 01138 M01S01042.libedit +++| SPACE 4 01139 M01S01043.libedit +++|** ERR - ERROR DETECTED IN DIRECTIVE SCAN. 01140 M01S01044.libedit +++|* 01141 M01S01045.libedit +++|* ENTRY (X7) = 0 IF NO EXTRA ERROR MESSAGE TO BE ISSUED. 01142 M01S01046.libedit +++|* (X7) = ADDRESS OF EXPLANATORY ERROR MESSAGE. 01143 M01S01047.libedit +++| 01144 M01S01048.libedit +++| 01145 M01S01049.libedit +++| ERR SA1 TTYI 01146 M01S01050.libedit +++| SA7 ERRB SAVE ERROR MESSAGE ADDRESS 01147 M01S01051.libedit +++| ZR X1,ERR2 IF TTY INPUT 01148 M01S01052.libedit +++| SA1 =10H ERROR* 01149 M01S01053.libedit +++| BX6 X1 01150 M01S01054.libedit +++| SA6 OUTPUTB 01151 M01S01055.libedit +++| CALL LOL LIST ONE LINE 01152 M01S01056.libedit +++| WRITEC OUTPUT,(=C* *) 01153 M01S01057.libedit +++| SA1 RDCF INCREMENT ERROR COUNT 01154 M01S01058.libedit +++| SX6 X1+B1 01155 M01S01059.libedit +++| SA6 A1 01156 M01S01060.libedit +++| SA1 ERRB 01157 M01S01061.libedit +++| ERR1 ZR X1,RDC1 IF NO ERROR MESSAGE TO BE ISSUED 01158 M01S01062.libedit +++| WRITEC OUTPUT,X1 01159 M01S01063.libedit +++| EQ RDC1 READ NEXT DIRECTIVE 01160 M01S01064.libedit +++| 01161 M01S01065.libedit +++| ERR2 SX2 1R BLANK FILL LINE 01162 M01S01066.libedit +++| SB6 OUTPUTB+1 01163 M01S01067.libedit +++| SB7 OUTPUTB+DCBL+1 01164 M01S01068.libedit +++| SA1 B6 01165 M01S01069.libedit +++| MX0 54 01166 M01S01070.libedit +++| ERR3 BX6 X1 01167 M01S01071.libedit +++| SA6 A1 01168 M01S01072.libedit +++| EQ B6,B7,ERR5 IF END OF LINE 01169 M01S01073.libedit +++| SA1 B6 01170 M01S01074.libedit +++| SB6 B6+B1 01171 M01S01075.libedit +++| SB5 10D 01172 M01S01076.libedit +++| ERR4 ZR B5,ERR3 IF END OF WORD 01173 M01S01077.libedit +++| LX0 6 01174 M01S01078.libedit +++| LX2 6 01175 M01S01079.libedit +++| BX6 -X0*X1 01176 M01S01080.libedit +++| SB5 B5-B1 01177 M01S01081.libedit +++| NZ X6,ERR4 IF CHARACTER .NE. 00 01178 M01S01082.libedit +++| BX1 X1+X2 01179 M01S01083.libedit +++| EQ ERR4 LOOP 01180 M01S01084.libedit +++| 01181 M01S01085.libedit +++| ERR5 WRITEW TTYOUT,ERRA,ERRAL 01182 M01S01086.libedit +++| WRITEH TTYOUT,OUTPUTB+1,DCBL 01183 M01S01087.libedit +++| SA1 ERRB 01184 M01S01088.libedit +++| ZR X1,ERR1 IF NO EXPLANATORY MESSAGE 01185 M01S01089.libedit +++| WRITEC TTYOUT,X1 01186 M01S01090.libedit +++| WRITEC TTYOUT,ERRC 01187 M01S01091.libedit +++| SA1 TTYO 01188 M01S01092.libedit +++| ZR X1,RDC1 IF TTY OUTPUT 01189 M01S01093.libedit +++| SA1 ERRB 01190 M01S01094.libedit +++| EQ ERR1 ISSUE EXPLANATION 01191 M01S01095.libedit +++| 01192 M01S01096.libedit +++| ERR9 SX7 =C* -- UNRECOGNIZED SEPARATOR CHARACTER.* 01193 M01S01097.libedit +++| EQ ERR ISSUE ERROR MESSAGE 01194 M01S01098.libedit +++| 01195 M01S01099.libedit +++|
| Line S01100 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01196 M02S01100.v23l617 ---| ERRA DATA 20HILLEGAL DIRECTIVE - 01197 M01S00018.v23l617 +++| ERRA DATA 22HINCORRECT DIRECTIVE - 01198 M01S01101.libedit +++| ERRAL EQU *-ERRA 01199 M01S01102.libedit +++| 01200 M01S01103.libedit +++| ERRB CON 0 01201 M01S01104.libedit +++| ERRC DATA C* (CORRECTED DIRECTIVE MAY BE RE-ENTERED...)* 01202 M01S01105.libedit +++| SPACE 4
| Line S01106 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01203 M02S01106.v23l617 ---|** LST - LIST DIRECTIVE CARD. 01204 M01S00019.v23l617 +++|** LST - LIST DIRECTIVE. 01205 M01S01107.libedit +++|* 01206 M01S01108.libedit +++|* USES A - 1, 6. 01207 M01S01109.libedit +++|* X - 1, 2, 6. 01208 M01S01110.libedit +++| 01209 M01S01111.libedit +++| 01210 M01S01112.libedit +++| LST SA1 =10H 01211 M01S01113.libedit +++| BX6 X1 01212 M01S01114.libedit +++| SA6 OUTPUTB 01213 M01S01115.libedit +++| SA1 LIST 01214 M01S01116.libedit +++| SX2 4B 01215 M01S01117.libedit +++| BX1 X1*X2 01216 M01S01118.libedit +++| ZR X1,RDC1 IF DIRECTIVE LIST OPTION OFF 01217 M01S01119.libedit +++| CALL LOL LIST ONE LINE
| Line S01120 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01218 M02S01120.v23l617 ---| EQ RDC1 LOOP TO READ NEXT CARD 01219 M01S00020.v23l617 +++| EQ RDC1 LOOP TO READ NEXT DIRECTIVE 01220 M01S01121.libedit +++| SPACE 4 01221 M01S01122.libedit +++|** *ADD LIB,LIB1/PN1 01222 M01S01123.libedit +++|* 01223 M01S01124.libedit +++|* ADD PROGRAM(S) AT END OF SPECIFIED LIBRARY. 01224 M01S01125.libedit +++|* ENTRY (X2) = SEPARATOR CHARACTER. 01225 M01S01126.libedit +++| 01226 M01S01127.libedit +++| 01227 M01S01128.libedit +++| ADP SA1 RDCD CHECK LIBRARY NAME 01228 M01S01129.libedit +++| SA3 ADPA 01229 M01S01130.libedit +++| MX0 42
| Line S01131 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01230 M02S01131.v23l617 ---| ADP1 ZR X3,ADP2 IF ILLEGAL LIBRARY
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01231 M02S00021.libed8 ---| ADP1 ZR X3,ADP2 IF INCORRECT LIBRARY
| Line S01132 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01232 M02S01132.libed8 ---| BX6 X1-X3
| Line S01133 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01233 M02S01133.libed8 ---| BX7 X0*X6 01234 M01S00004.libed8 +++| ADP1 BX3 X3-X1 01235 M01S00005.libed8 +++| BX6 -X0*X3 01236 M01S00006.libed8 +++| ZR X6,ADP3 IF NO MATCH ON LIBRARY NAME 01237 M01S00007.libed8 +++| BX7 X0*X3 01238 M01S01134.libedit +++| SA3 A3+B1 01239 M01S01135.libedit +++| NZ X7,ADP1 IF NOT FOUND
| Line S01136 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01240 M02S01136.libed8 ---| LX6 48 SET LIBRARY NUMBER
| Line S01137 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01241 M02S01137.libed8 ---| SA6 RDCD 01242 M01S00008.libed8 +++| ADP2 LX6 42 SET LIBRARY NUMBER 01243 M01S00009.libed8 +++| SA6 A1 01244 M01S01138.libedit +++| EQ INSERT PROCESS INSERT 01245 M01S01139.libedit +++|
| Line S01140 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01246 M02S01140.libed8 ---| ADP2 SX7 =C* UNRECOGNIZED LIBRARY NAME.* 01247 M01S00010.libed8 +++| ADP3 MX0 18 01248 M01S00011.libed8 +++| BX7 X0*X3 01249 M01S00012.libed8 +++| NZ X7,ADP4 IF NOT *LIBN..N* 01250 M01S00013.libed8 +++| BX5 -X0*X1 01251 M01S00014.libed8 +++| LX5 18 01252 M01S00015.libed8 +++| SB7 B1+ SET DECIMAL BASE 01253 M01S00016.libed8 +++| RJ DXB CONVERT DECIMAL TO BINARY 01254 M01S00017.libed8 +++| SA2 RDCA RESTORE SEPARATOR CHARACTER 01255 M01S00018.libed8 +++| SA2 X2+ (X2) = CHARACTER 01256 M01S00019.libed8 +++| ZR X4,ADP2 IF CORRECT CONVERSION 01257 M01S00020.libed8 +++| ADP4 SX7 =C* UNRECOGNIZED LIBRARY NAME.* 01258 M01S01141.libedit +++| EQ ERR ISSUE ERROR MESSAGE 01259 M01S01142.libedit +++| 01260 M01S01143.libedit +++| 01261 M01S01144.libedit +++| ADPA BSS 0 01262 M01S01145.libedit +++| CON 0LDDS+1 01263 M01S01146.libedit +++| CON 0LIDS+2 01264 M01S01147.libedit +++| CON 0LMOV+3 01265 M01S01148.libedit +++| CON 0LRPL+4 01266 M01S01149.libedit +++| CON 0LRSL+5 01267 M01S01150.libedit +++| CON 0LSLD+6
| Line S01151 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01268 M02S01151.libed8 ---|
| Line S01152 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01269 M02S01152.libed8 ---| B SET 0
| Line S01153 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01270 M02S01153.libed8 ---|
| Line S01154 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01271 M02S01154.libed8 ---| ADPB BSS 0
| Line S01155 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01272 M02S01155.libed8 ---| DUP NLIB,3
| Line S01156 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01273 M02S01156.libed8 ---| B SET B+1
| Line S01157 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01274 M02S01157.libed8 ---| .A DECMIC B
| Line S01158 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01275 M02S01158.libed8 ---| CON 0LLIB_".A"+".A"
| Line S01159 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | libed8 |
Seq # *Modification Id* Act ----------------------------+ 01276 M02S01159.libed8 ---| CON 0 01277 M01S00021.libed8 +++| ADPB CON 0LLIB 01278 M01S01160.libedit +++| SPACE 4 01279 M01S01161.libedit +++|** *BEFORE LIB1/PN1,LIB2/PN2-LIB3/PN3,LIB4/PN4 01280 M01S01162.libedit +++|* 01281 M01S01163.libedit +++|* INSERT PROGRAM(S) BEFORE SPECIFIED PROGRAM. 01282 M01S01164.libedit +++|* ENTRY (X2) = SEPARATOR CHARACTER. 01283 M01S01165.libedit +++| 01284 M01S01166.libedit +++| 01285 M01S01167.libedit +++| BEFORE MX6 1 SET INSERT BEFORE FLAG 01286 M01S01168.libedit +++| LX6 18 01287 M01S01169.libedit +++| EQ INS1 01288 M01S01170.libedit +++| SPACE 4 01289 M01S01171.libedit +++|** *BUILD PN 01290 M01S01172.libedit +++|* 01291 M01S01173.libedit +++|* BUILD A DIRECTORY OF FILE *NEW* WITH NAME *PN*. 01292 M01S01174.libedit +++| 01293 M01S01175.libedit +++| 01294 M01S01176.libedit +++| BUILD SA1 RDCD 01295 M01S01177.libedit +++| BX6 X1 01296 M01S01178.libedit +++| SA6 NPLN 01297 M01S01179.libedit +++| EQ LST 01298 M01S01180.libedit +++| SPACE 4 01299 M01S01181.libedit +++|** *COMMENT LIB/PN COMMENT 01300 M01S01182.libedit +++|* 01301 M01S01183.libedit +++|* ADD A 70-CHARACTER COMMENT TO THE 7700 TABLE OF THE 01302 M01S01184.libedit +++|* SPECIFIED RECORD. 01303 M01S01185.libedit +++| 01304 M01S01186.libedit +++| 01305 M01S01187.libedit +++| COMMENT SX6 B0 01306 M01S01188.libedit +++| COM1 SA1 RDCD SET PROGRAM NAME 01307 M01S01189.libedit +++| SB5 X2-1R CHECK SEPARATOR 01308 M01S01190.libedit +++| ZR B5,COM2 IF CHARACTER = * * 01309 M01S01191.libedit +++| SB5 X2-1R, 01310 M01S01192.libedit +++| ZR B5,COM2 IF CHARACTER = *,* 01311 M01S01193.libedit +++| NZ X2,ERR9 IF NOT EOL 01312 M01S01194.libedit +++| COM2 BX6 X6+X1 01313 M01S01195.libedit +++| SA1 RDCA 01314 M01S01196.libedit +++| SA2 X1+B1 01315 M01S01197.libedit +++| SA6 COMA 01316 M01S01198.libedit +++| SB2 COMA 01317 M01S01199.libedit +++| SB3 COMA+7 01318 M01S01200.libedit +++| COM3 SX6 B0 ASSEMBLE COMMENT 01319 M01S01201.libedit +++| SB7 60 01320 M01S01202.libedit +++| SB2 B2+B1 01321 M01S01203.libedit +++| COM4 SB7 B7-6 01322 M01S01204.libedit +++| LX6 6 01323 M01S01205.libedit +++| BX6 X6+X2 01324 M01S01206.libedit +++| ZR X2,COM6 IF END-OF-LINE 01325 M01S01207.libedit +++| LX6 6 01326 M01S01208.libedit +++| SA2 A2+B1 01327 M01S01209.libedit +++| SB7 B7-6 01328 M01S01210.libedit +++| NZ X2,COM5 IF NOT END-OF-LINE 01329 M01S01211.libedit +++| SX2 1R 01330 M01S01212.libedit +++| COM5 BX6 X6+X2 01331 M01S01213.libedit +++| SA2 A2+B1 01332 M01S01214.libedit +++| NZ B7,COM4 LOOP FOR 1 WORD 01333 M01S01215.libedit +++| COM6 LX6 X6,B7 STORE 10-CHARACTERS OF COMMENT 01334 M01S01216.libedit +++| SA6 B2 01335 M01S01217.libedit +++| NE B2,B3,COM3 LOOP FOR 7 WORDS 01336 M01S01218.libedit +++| ADDWRD CDT,COMA
| Line S01219 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01337 M02S01219.v23l617 ---| EQ LST LIST CARD 01338 M01S00022.v23l617 +++| EQ LST LIST DIRECTIVE 01339 M01S01220.libedit +++| 01340 M01S01221.libedit +++| COMA VFD 42/,1/,17/ 42/PROGRAM,1/DATE,17/TYPE 01341 M01S01222.libedit +++| DATA 0 420/COMMENT 01342 M01S01223.libedit +++| DATA 0 01343 M01S01224.libedit +++| DATA 0 01344 M01S01225.libedit +++| DATA 0 01345 M01S01226.libedit +++| DATA 0 01346 M01S01227.libedit +++| DATA 0 01347 M01S01228.libedit +++| DATA 0 01348 M01S01229.libedit +++| SPACE 4 01349 M01S01230.libedit +++|** *COPY 01350 M01S01231.libedit +++|* 01351 M01S01232.libedit +++|* COPY FILE *NEW* TO FILE *OLD* AFTER EDITING. 01352 M01S01233.libedit +++| 01353 M01S01234.libedit +++| 01354 M01S01235.libedit +++| COPY SX6 B1 SET COPY FLAG 01355 M01S01236.libedit +++| SA6 CCPY 01356 M01S01237.libedit +++| EQ LST 01357 M01S01238.libedit +++| SPACE 4 01358 M01S01239.libedit +++|** *DATE LIB/PN COMMENT 01359 M01S01240.libedit +++|* 01360 M01S01241.libedit +++|* ADD A 70-CHARACTER COMMENT AND THE DATE TO THE 7700 01361 M01S01242.libedit +++|* TABLE OF THE SPECIFIED PROGRAM. 01362 M01S01243.libedit +++| 01363 M01S01244.libedit +++| 01364 M01S01245.libedit +++| DATE MX6 1 SET DATE FLAG 01365 M01S01246.libedit +++| LX6 18 01366 M01S01247.libedit +++| EQ COM1 GO ASSEMBLE COMMENT 01367 M01S01248.libedit +++| DEBUG SPACE 4,10 01368 M01S01249.libedit +++|** *DEBUG 01369 M01S01250.libedit +++|* 01370 M01S01251.libedit +++|* IGNORE SUBSEQUENT DIRECTIVE ERRORS. 01371 M01S01252.libedit +++| 01372 M01S01253.libedit +++| 01373 M01S01254.libedit +++| DEBUG SX6 B1+ SET DEBUG FLAG 01374 M01S01255.libedit +++| SA6 CDOP 01375 M01S01256.libedit +++| EQ LST LIST DIRECTIVE 01376 M01S01257.libedit +++| SPACE 4 01377 M01S01258.libedit +++|** *DELETE LIB1/PN1,LIB2/PN2-LIB3/PN3 01378 M01S01259.libedit +++|* 01379 M01S01260.libedit +++|* DELETE SELECTED PROGRAM(S) FROM FILE *OLD*. 01380 M01S01261.libedit +++|* ENTRY (X2) = SEPARATOR CHARACTER. 01381 M01S01262.libedit +++| 01382 M01S01263.libedit +++| 01383 M01S01264.libedit +++| DELETE SB5 X2-1R- 01384 M01S01265.libedit +++| SA1 RDCD SET DELETE START AND STOP 01385 M01S01266.libedit +++| BX6 X1 01386 M01S01267.libedit +++| SA6 DELA 01387 M01S01268.libedit +++| SA6 A6+B1 01388 M01S01269.libedit +++| NZ B5,DEL1 IF NO CONTINUATION FIELD 01389 M01S01270.libedit +++| 01390 M01S01271.libedit +++|* ASSEMBLE SECOND FIELD 01391 M01S01272.libedit +++| 01392 M01S01273.libedit +++| CALL APN,RDCA,(DELA+1) 01393 M01S01274.libedit +++| DEL1 ADDWRD DPT,DELA 01394 M01S01275.libedit +++| EQ RET RETURN 01395 M01S01276.libedit +++| 01396 M01S01277.libedit +++| 01397 M01S01278.libedit +++| DELA VFD 42/,6/,12/ 42/PROGRAM,6/IP,12/TYPE 01398 M01S01279.libedit +++| VFD 42/,6/,12/ 42/PROGRAM,6/0,12/TYPE 01399 M01S01280.libedit +++| SPACE 4 01400 M01S01281.libedit +++|** *FILE FN,FN,FN 01401 M01S01282.libedit +++|* 01402 M01S01283.libedit +++|* DECLARE ADDITIONAL CORRECTION FILES. 01403 M01S01284.libedit +++| 01404 M01S01285.libedit +++| 01405 M01S01286.libedit +++| FILE SA1 RDCD 01406 M01S01287.libedit +++| BX6 X1 01407 M01S01288.libedit +++| SA6 LGO. 01408 M01S01289.libedit +++| SEARCH FNT,RDCD,FILA 01409 M01S01290.libedit +++| NZ X6,RET IF FILE IN FNT 01410 M01S01291.libedit +++| ADDWRD FNT,RDCD 01411 M01S01292.libedit +++| EQ RET RETURN 01412 M01S01293.libedit +++| 01413 M01S01294.libedit +++| 01414 M01S01295.libedit +++| FILA DATA 77777777777777000000B 01415 M01S01296.libedit +++| SPACE 4 01416 M01S01297.libedit +++|** *IGNORE LIB/PN 01417 M01S01298.libedit +++|* *IGNORE LIB1/PN1-LIB2/PN2 01418 M01S01299.libedit +++|* 01419 M01S01300.libedit +++|* IGNORE PROGRAM(S) WHEN CORRECTION FILE IS READ. 01420 M01S01301.libedit +++|* ENTRY (X2) = SEPARATOR CHARACTER. 01421 M01S01302.libedit +++| 01422 M01S01303.libedit +++| 01423 M01S01304.libedit +++| IGNORE SA1 LGO. SET CORRECTION FILE NAME 01424 M01S01305.libedit +++| SA3 RDCD SET PROGRAM NAME 01425 M01S01306.libedit +++| BX6 X1 01426 M01S01307.libedit +++| LX7 X3 01427 M01S01308.libedit +++| SA6 IGNA 01428 M01S01309.libedit +++| SA7 A6+B1 01429 M01S01310.libedit +++| SA7 A7+B1 01430 M01S01311.libedit +++| SB5 X2-1R- CHECK FOR CONTINUATION FIELD 01431 M01S01312.libedit +++| NZ B5,IGN1 IF NO CONTINUATION FIELD 01432 M01S01313.libedit +++| 01433 M01S01314.libedit +++|* ASSEMBLE SECOND FIELD. 01434 M01S01315.libedit +++| 01435 M01S01316.libedit +++| CALL APN,RDCA,(IGNA+2) 01436 M01S01317.libedit +++| IGN1 ADDWRD PIT,IGNA 01437 M01S01318.libedit +++| EQ RET RETURN 01438 M01S01319.libedit +++| 01439 M01S01320.libedit +++| 01440 M01S01321.libedit +++| IGNA VFD 42/,18/ 42/FILE,18/ 01441 M01S01322.libedit +++| VFD 42/,18/ 42/PROGRAM,18/TYPE 01442 M01S01323.libedit +++| VFD 42/,18/ 42/PROGRAM,18/TYPE 01443 M01S01324.libedit +++| SPACE 4 01444 M01S01325.libedit +++|** *INSERT LIB1/PN1,LIB2/PN2,LIB3/PN3 01445 M01S01326.libedit +++|* 01446 M01S01327.libedit +++|* INSERT PROGRAMS AFTER SPECIFIED PROGRAM. 01447 M01S01328.libedit +++|* ENTRY (X2) = SEPARATOR CHARACTER. 01448 M01S01329.libedit +++| 01449 M01S01330.libedit +++| INSERT SX6 B0 SET INSERT AFTER FLAG 01450 M01S01331.libedit +++| INS1 SB5 X2-1R, 01451 M01S01332.libedit +++| ZR B5,INS2 IF SEPARATOR = *,* 01452 M01S01333.libedit +++| SB5 X2-1R 01453 M01S01334.libedit +++| NZ B5,ERR9 IF SEPARATOR NOT * * OR *,* 01454 M01S01335.libedit +++| INS2 SA1 RDCA CHECK FOR SECOND FIELD 01455 M01S01336.libedit +++| SA3 X1+1 01456 M01S01337.libedit +++| SX7 =C* RECORD(S) TO BE INSERTED NOT SPECIFIED.* 01457 M01S01338.libedit +++| ZR X3,ERR IF NO SECOND FIELD 01458 M01S01339.libedit +++| SA3 RDCD SET INSERT POINT 01459 M01S01340.libedit +++| BX6 X6+X3 01460 M01S01341.libedit +++| SA6 INSA 01461 M01S01342.libedit +++| 01462 M01S01343.libedit +++|* ASSEMBLE PROGRAM NAME OF START. 01463 M01S01344.libedit +++| 01464 M01S01345.libedit +++| CALL APN,RDCA,(INSA+2) 01465 M01S01346.libedit +++| INS3 SB5 X2-1R- 01466 M01S01347.libedit +++| SA1 INSA+2 01467 M01S01348.libedit +++| SA4 LGO. SET FILE NAME 01468 M01S01349.libedit +++| LX7 X4 01469 M01S01350.libedit +++| SA7 A1-B1 01470 M01S01351.libedit +++| BX6 X1 01471 M01S01352.libedit +++| SA6 A1+B1 01472 M01S01353.libedit +++| NZ B5,INS4 IF NO CONTINUATION FIELD 01473 M01S01354.libedit +++| 01474 M01S01355.libedit +++|* PROCESS CONTINUATION FIELD 01475 M01S01356.libedit +++| 01476 M01S01357.libedit +++| CALL APN,RDCA,(INSA+3) 01477 M01S01358.libedit +++| INS4 ADDWRD IPT,INSA 01478 M01S01359.libedit +++| RJ SDA SET DIRECTIVE ADDRESS AND READ NEXT FIELD 01479 M01S01360.libedit +++| 01480 M01S01361.libedit +++|* PROCESS NEXT FIELD. 01481 M01S01362.libedit +++| 01482 M01S01363.libedit +++| INS5 SA3 RDCD 01483 M01S01364.libedit +++| BX6 X3 01484 M01S01365.libedit +++| SA6 INSA+2 01485 M01S01366.libedit +++| EQ INS3 LOOP TO END OF CARD 01486 M01S01367.libedit +++| 01487 M01S01368.libedit +++| 01488 M01S01369.libedit +++| INSA VFD 42/1L*,1/1,17/ 42/PROG1,1/BEFORE,17/TYPE1 01489 M01S01370.libedit +++| VFD 42/,18/ 42/FILE,18/ 01490 M01S01371.libedit +++| VFD 42/,18/ 42/PROG2,18/TYPE2 01491 M01S01372.libedit +++| VFD 42/,18/ 42/PROG3,18/TYPE3 01492 M01S01373.libedit +++| LIBGEN SPACE 4,10 01493 M01S01374.libedit +++|** *LIBGEN UN 01494 M01S01375.libedit +++|* 01495 M01S01376.libedit +++|* SET *ULIB* MODE, CALLING *LIBGEN* AFTER EDITING 01496 M01S01377.libedit +++|* TO GENERATE A USER LIBRARY *UN* ON FILE *NEW*. 01497 M01S01378.libedit +++|* IF *UN* IS OMITTED, *UN* = *ULIB* IS USED. 01498 M01S01379.libedit +++| 01499 M01S01380.libedit +++| 01500 M01S01381.libedit +++| LIBGEN SA1 RDCA 01501 M01S01382.libedit +++| SA2 X1+ 01502 M01S01383.libedit +++| ZR X2,LIBG2 IF EOL 01503 M01S01384.libedit +++| SB5 X2+1 01504 M01S01385.libedit +++| SA2 =20000000000005000000B 01505 M01S01386.libedit +++| LX7 X2,B5 01506 M01S01387.libedit +++| NG X7,ERR9 IF ERROR 01507 M01S01388.libedit +++| SB2 RDCA 01508 M01S01389.libedit +++| SB3 RDCD 01509 M01S01390.libedit +++| RJ AFN ASSEMBLE *UN* NAME 01510 M01S01391.libedit +++| SA1 RDCD 01511 M01S01392.libedit +++| MX0 42 01512 M01S01393.libedit +++| BX6 X0*X1 01513 M01S01394.libedit +++| ZR X1,LIBG2 IF NULL *UN* NAME 01514 M01S01395.libedit +++| LIBG1 SA6 CULB 01515 M01S01396.libedit +++| EQ LST LIST DIRECTIVE 01516 M01S01397.libedit +++| LIBG2 SA1 LIBGA 01517 M01S01398.libedit +++| BX6 X1 01518 M01S01399.libedit +++| EQ LIBG1 LIST DIRECTIVE 01519 M01S01400.libedit +++| 01520 M01S01401.libedit +++| 01521 M01S01402.libedit +++| LIBGA VFD 24/4LULIB,36/0 DEFAULT USER LIBRARY NAME 01522 M01S01403.libedit +++| LSTDR SPACE 4,10 01523 M01S01404.libedit +++|** *LIST LFN,OPT 01524 M01S01405.libedit +++|* 01525 M01S01406.libedit +++|* DECLARE LISTING FILE AND LIST OPTIONS. 01526 M01S01407.libedit +++| 01527 M01S01408.libedit +++| 01528 M01S01409.libedit +++| LSTDR SA1 RDCA CHECK SEPARATOR CHARACTER 01529 M01S01410.libedit +++| SA2 X1 01530 M01S01411.libedit +++| SB5 X2+B1 01531 M01S01412.libedit +++| SA2 =20000000000005000000B 01532 M01S01413.libedit +++| LX7 X2,B5 01533 M01S01414.libedit +++| NG X7,ERR9 IF ERROR 01534 M01S01415.libedit +++| SB2 RDCA 01535 M01S01416.libedit +++| SB3 RDCD 01536 M01S01417.libedit +++| RJ AFN ASSEMBLE LIST FILE NAME 01537 M01S01418.libedit +++| MX0 42 01538 M01S01419.libedit +++| SA1 RDCD 01539 M01S01420.libedit +++| BX6 X1*X0 01540 M01S01421.libedit +++| ZR X6,LSTDR1 IF FILE NAME NULL 01541 M01S01422.libedit +++| SA1 FLST+/FLST/OUTPUT 01542 M01S01423.libedit +++| RJ RFN REPLACE FILE NAME 01543 M01S01424.libedit +++| LSTDR1 SA1 RDCA 01544 M01S01425.libedit +++| SA2 X1+ 01545 M01S01426.libedit +++| ZR X2,LST IF EOL 01546 M01S01427.libedit +++| SB2 RDCA 01547 M01S01428.libedit +++| SB3 RDCD 01548 M01S01429.libedit +++| RJ AFN ASSEMBLE LIST OPTIONS 01549 M01S01430.libedit +++| SA2 RDCD 01550 M01S01431.libedit +++| SA1 LIST 01551 M01S01432.libedit +++| MX0 42 01552 M01S01433.libedit +++| BX1 X2*X0 01553 M01S01434.libedit +++| ZR X1,LST IF LIST OPTIONS NULL 01554 M01S01435.libedit +++| RJ ILO INTERPRET LIST OPTIONS 01555 M01S01436.libedit +++| SX7 =C* UNRECOGNIZED LIST OPTION(S).* 01556 M01S01437.libedit +++| NZ X1,ERR IF ERRORS 01557 M01S01438.libedit +++| EQ LST LIST DIRECTIVE 01558 M01S01439.libedit +++| SPACE 4 01559 M01S01440.libedit +++|** *NAME LIB 01560 M01S01441.libedit +++|* 01561 M01S01442.libedit +++|* SET DEFAULT LIBRARY NAME. 01562 M01S01443.libedit +++| 01563 M01S01444.libedit +++| 01564 M01S01445.libedit +++| NAME SA1 RDCD CHECK LIBRARY NAME 01565 M01S01446.libedit +++| SA2 NAMA
| Line S01447 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01566 M02S01447.v23l617 ---| NAM1 ZR X2,NAM2 IF ILLEGAL LIBRARY 01567 M01S00023.v23l617 +++| NAM1 ZR X2,NAM2 IF INCORRECT LIBRARY 01568 M01S01448.libedit +++| BX6 X1-X2 01569 M01S01449.libedit +++| SA2 A2+B1 01570 M01S01450.libedit +++| NZ X6,NAM1 IF NOT FOUND 01571 M01S01451.libedit +++| BX6 X1 01572 M01S01452.libedit +++| SA6 RDCE 01573 M01S01453.libedit +++| EQ LST LIST LINE 01574 M01S01454.libedit +++| 01575 M01S01455.libedit +++| NAM2 SX7 =C* UNRECOGNIZED RECORD TYPE.* 01576 M01S01456.libedit +++| EQ ERR ISSUE ERROR MESSAGE 01577 M01S01457.libedit +++| 01578 M01S01458.libedit +++|
| Line S01459 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01579 M02S01459.251l664 ---| NAMA DATA 0LTEXT 0
| Line S01460 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01580 M02S01460.251l664 ---| DATA 0LPP 1
| Line S01461 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01581 M02S01461.251l664 ---| CON 1 2 (UNDEFINED RECORD TYPE)
| Line S01462 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01582 M02S01462.251l664 ---| DATA 0LREL 3
| Line S01463 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01583 M02S01463.251l664 ---| DATA 0LOVL 4
| Line S01464 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01584 M02S01464.251l664 ---| DATA 0LULIB 5
| Line S01465 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01585 M02S01465.251l664 ---| DATA 0LOPL 6
| Line S01466 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01586 M02S01466.251l664 ---| DATA 0LOPLC 7
| Line S01467 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01587 M02S01467.251l664 ---| DATA 0LOPLD 8
| Line S01468 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01588 M02S01468.251l664 ---| DATA 0LABS 9
| Line S01469 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01589 M02S01469.251l664 ---| DATA 0LPPU 10
| Line S01470 Modification History | |
|---|---|
M01 (Added by) | libedit |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01590 M02S01470.251l664 ---| CON 1 11 (UNDEFINED RECORD TYPE)
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/libedit.txt · Last modified: by 127.0.0.1