cdc:nos2.source:opl.opl871:deck:iedit
Deck IEDIT
Library Member Format: MODIFY
Listing Sections
- Deck IEDIT Start
- Deck IEDIT Part 1 (Line 1996)
- Deck IEDIT Part 2 (Line 3851)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.iedit +++| IDENT IEDIT,FWA,IEDIT 00002 M00S00002.iedit +++| ABS 00003 M00S00003.iedit +++| SST 00004 M00S00004.iedit +++| ENTRY IEDIT 00005 M00S00005.iedit +++| ENTRY MFL= 00006 M00S00006.iedit +++| ENTRY CLB= 00007 M00S00007.iedit +++| ENTRY SSM= 00008 M00S00008.iedit +++| SYSCOM B1 DEFINE (B1) = 1 00009 M00S00009.iedit +++| LIST F 00010 M00S00010.iedit +++| TITLE IEDIT - IN-LINE EDITOR. 00011 M00S00011.iedit +++| SPACE 4,10 00012 M00S00012.iedit +++|*COMMENT IEDIT - IN-LINE EDITOR.
| Line S00013 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00013 M01S00013.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00014 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00015 M00S00014.iedit +++| SPACE 4,10 00016 M00S00015.iedit +++|***** IEDIT - IN-LINE EDITOR. 00017 M00S00016.iedit +++|* 00018 M00S00017.iedit +++|* J. W. YOCUM. 79/12/17. 00019 M00S00018.iedit +++|* C. S. MEAGHER. 80/04/22. 00020 M00S00019.iedit +++|* S. P. BOOTH. 80/05/31. 00021 M00S00020.iedit +++|* K. F. REHM. 81/08/10. 00022 M00S00021.iedit +++|* S. D. PAINTER. 81/08/10. 00023 M00S00022.iedit +++| SPACE 4,10 00024 M00S00023.iedit +++|*** *IEDIT* IS A *CPU* PROGRAM WHICH IS CALLED BY *IAF* 00025 M00S00024.iedit +++|* TO PERFORM AN EDITING FUNCTION ON A LINE NUMBERED FILE. 00026 M00S00025.iedit +++|* IT IS DESIGNED TO BE EXECUTED THROUGH THE *IAF* INTERFACE. 00027 M00S00026.iedit +++|* THE EDIT COMMAND IS PLACED INTO THE COMMAND LINE BUFFER, 00028 M00S00027.iedit +++|* THROUGH THE USE OF THE *CLB=* ENTRY POINT. 00029 M00S00028.iedit +++| SPACE 4,10
| Line S00029 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00030 M01S00029.v23l617 ---|*** CONTROL STATEMENT CALL.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00031 M01S00001.v23l617 +++|*** COMMAND FORMAT. 00032 M00S00030.iedit +++|* 00033 M00S00031.iedit +++|* 00034 M00S00032.iedit +++|* IEDIT (FN=LFN,OP=OPTIONS,CS=CHARTYPE) 00035 M00S00033.iedit +++|* 00036 M00S00034.iedit +++|* LFN NAME OF EDIT FILE. THIS PARAMETER 00037 M00S00035.iedit +++|* IS REQUIRED. 00038 M00S00036.iedit +++|* 00039 M00S00037.iedit +++|* OPTIONS B, F, L (ANY COMBINATION MAY BE USED). 00040 M00S00038.iedit +++|* 00041 M00S00039.iedit +++|* B - BASIC SUBSYSTEM FLAG INDICATING BASIC 00042 M00S00040.iedit +++|* RESEQUENCING SHOULD BE PERFORMED AS 00043 M00S00041.iedit +++|* REQUIRED (OMITTED WHEN TERMINAL IS NOT 00044 M00S00042.iedit +++|* IN BASIC SUBSYSTEM). 00045 M00S00043.iedit +++|* 00046 M00S00044.iedit +++|* F - FORTRAN SUBSYSTEM FLAG INDICATING 00047 M00S00045.iedit +++|* TERMINAL IS IN FORTRAN SUBSYSTEM 00048 M00S00046.iedit +++|* (OMITTED WHEN TERMINAL IS NOT IN 00049 M00S00047.iedit +++|* FORTRAN SUBSYSTEM). 00050 M00S00048.iedit +++|* 00051 M00S00049.iedit +++|* L - LIST FLAG. IF PRESENT, ALL LINES 00052 M00S00050.iedit +++|* CHANGED WILL BE ECHOED TO THE 00053 M00S00051.iedit +++|* TERMINAL. 00054 M00S00052.iedit +++|* IF OMITTED CHANGED LINES ARE NOT 00055 M00S00053.iedit +++|* ECHOED. (TERMINAL USER MAY SUSPEND 00056 M00S00054.iedit +++|* ECHO CAPABILITIES BY ENTERING A USER 00057 M00S00055.iedit +++|* BREAK.) 00058 M00S00056.iedit +++|* 00059 M00S00057.iedit +++|* 00060 M00S00058.iedit +++|* CHARTYPE CHARACTER TYPE DEFINITION 00061 M00S00059.iedit +++|* NORMAL - DISPLAY CODE. ( DEFAULT ) 00062 M00S00060.iedit +++|* ASCII - 6/12 ASCII. 00063 M00S00061.iedit +++| SPACE 4,10
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 00064 M01S00001.iedit2 +++|*** ERROR MESSAGES. 00065 M01S00002.iedit2 +++|* 00066 M01S00003.iedit2 +++|* THE FOLLOWING ERROR MESSAGES WILL BE ISSUED WHEN AN ERROR 00067 M01S00004.iedit2 +++|* IS ENCOUNTERED, CAUSING *IEDIT* TO ABORT WITHOUT EXECUTING 00068 M01S00005.iedit2 +++|* THE COMMAND. 00069 M01S00006.iedit2 +++|* 00070 M01S00007.iedit2 +++|* *BUFFER SPACE ERROR (TOV).* - INTERNAL ERROR. 00071 M01S00008.iedit2 +++|* 00072 M01S00009.iedit2 +++|* *COMMAND ARGUMENT ERROR.* - AN INCORRECT PARAMETER 00073 M01S00010.iedit2 +++|* WAS ENTERED ON THE COMMAND. 00074 M01S00011.iedit2 +++|* 00075 M01S00012.iedit2 +++|* *COMMAND NOT PROCESSED DUE TO OVERLAP.* - YOU HAVE SPECIFIED 00076 M01S00013.iedit2 +++|* THAT THE SELECTED EDIT COMMAND SHOULD NOT BE 00077 M01S00014.iedit2 +++|* PROCESSED DUE TO OVERLAPPING LINE NUMBERS. 00078 M01S00015.iedit2 +++|* 00079 M01S00016.iedit2 +++|* *DUPLICATE FILE NAME.* - A DUPLICATE FILE NAME WAS 00080 M01S00017.iedit2 +++|* ENCOUNTERED ON A SINGLE DIRECTIVE. 00081 M01S00018.iedit2 +++|* 00082 M01S00019.iedit2 +++|* *EMPTY FILE (SSF).* - INTERNAL ERROR. 00083 M01S00020.iedit2 +++|* 00084 M01S00021.iedit2 +++|* *FILE NAME ERROR.* - THE FILE NAME SPECIFIED CONTAINS MORE 00085 M01S00022.iedit2 +++|* THAN SEVEN CHARACTERS OR NON-ALPHANUMERIC CHARACTERS. 00086 M01S00023.iedit2 +++|* 00087 M01S00024.iedit2 +++|* *INCORRECT SYNTAX.* - A REQUIRED PARAMETER IS MISSING, 00088 M01S00025.iedit2 +++|* PARAMETERS ARE GIVEN IN THE WRONG ORDER, OR AN 00089 M01S00026.iedit2 +++|* INCORRECT SEPARATOR HAS BEEN ENCOUNTERED. 00090 M01S00027.iedit2 +++|* 00091 M01S00028.iedit2 +++|* *LINE NUMBER INCREMENT ERROR.* - THE LINE NUMBER INCREMENT 00092 M01S00029.iedit2 +++|* SPECIFIED IS LESS THAN ONE OR GREATER THAN 4095. 00093 M01S00030.iedit2 +++|* 00094 M01S00031.iedit2 +++|* *LINE NUMBER LIMIT EXCEEDED.* - AN ATTEMPT TO MOVE, 00095 M01S00032.iedit2 +++|* DUPLICATE, OR READ A GROUP OF LINES IN THE EDIT FILE 00096 M01S00033.iedit2 +++|* REQUIRED A LINE NUMBER GREATER THAN 99999 TO BE 00097 M01S00034.iedit2 +++|* ASSIGNED. 00098 M01S00035.iedit2 +++|* 00099 M01S00036.iedit2 +++|* *LINE NUMBER OVERLAP ERROR.* - TWO OR MORE LINE RANGES HAVE 00100 M01S00037.iedit2 +++|* AT LEAST ONE LINE NUMBER IN COMMON. 00101 M01S00038.iedit2 +++|* 00102 M01S00039.iedit2 +++|* *LINE RANGE ERROR.* - AN INCORRECT LINE NUMBER WAS SPECIFIED 00103 M01S00040.iedit2 +++|* IN A LINE RANGE. 00104 M01S00041.iedit2 +++|* 00105 M01S00042.iedit2 +++|* *NO LINE NUMBER ON LINE.* - EITHER THE PRIMARY FILE OR A 00106 M01S00043.iedit2 +++|* SEQUENCED READ FILE CONTAINS A LINE WITHOUT A LINE 00107 M01S00044.iedit2 +++|* NUMBER. 00108 M01S00045.iedit2 +++|* 00109 M01S00046.iedit2 +++|* *NO LINES FOUND.* - NO LINE IN THE EDIT FILE MEETS THE 00110 M01S00047.iedit2 +++|* CRITERIA SPECIFIED BY THE EDIT COMMAND. 00111 M01S00048.iedit2 +++|* 00112 M01S00049.iedit2 +++|* *NO READ/DESTINATION FILE SPECIFIED.* - NO READ OR 00113 M01S00050.iedit2 +++|* DESTINATION FILE WAS SPECIFIED IN THE EDIT COMMAND. 00114 M01S00051.iedit2 +++|* 00115 M01S00052.iedit2 +++|* *NON-EXISTENT EDIT VERB SPECIFIED.* - INTERNAL ERROR. 00116 M01S00053.iedit2 +++|* 00117 M01S00054.iedit2 +++|* *READ FILE EMPTY.* - THE READ FILE SPECIFIED DOES NOT EXIST 00118 M01S00055.iedit2 +++|* OR CONTAINS NO DATA. 00119 M01S00056.iedit2 +++|* 00120 M01S00057.iedit2 +++|* *RESERVED FILE NAME.* - A RESERVED FILE NAME WAS INCORRECTLY 00121 M01S00058.iedit2 +++|* USED. 00122 M01S00059.iedit2 +++|* 00123 M01S00060.iedit2 +++|* *TOO SMALL BUFFER SPACE.* - INTERNAL ERROR. 00124 M01S00061.iedit2 +++|* 00125 M01S00062.iedit2 +++|* THE FOLLOWING MESSAGES ARE ISSUED TO NOTIFY THE USER OF AN 00126 M01S00063.iedit2 +++|* UNUSUAL CONDITION. THE *IEDIT* COMMAND IS PROCESSED TO 00127 M01S00064.iedit2 +++|* COMPLETION. 00128 M01S00065.iedit2 +++|* 00129 M01S00066.iedit2 +++|* *NO CLOSING DELIMITER FOUND.* - NO CLOSING DELIMITER WAS 00130 M01S00067.iedit2 +++|* FOUND ON A STRING. A STRING IS CONSIDERED TO END 00131 M01S00068.iedit2 +++|* AFTER THE LAST NON BLANK CHARACTER. 00132 M01S00069.iedit2 +++|* 00133 M01S00070.iedit2 +++|* *ZZZZZ LINES TRUNCATED ON FILE QQQQQQQ.* - ZZZZZ LINES WERE 00134 M01S00071.iedit2 +++|* TRUNCATED ON FILE QQQQQQQ. 00135 M01S00072.iedit2 +++| 00136 M01S00073.iedit2 +++| 00137 M00S00062.iedit +++|* ESTABLISH QUAL BLOCK ORDER. 00138 M00S00063.iedit +++| 00139 M00S00064.iedit +++| QUAL IEDIT1 00140 M00S00065.iedit +++| QUAL COMCBLP 00141 M00S00066.iedit +++| QUAL COMCSNF 00142 M00S00067.iedit +++| QUAL MACRO$ 00143 M00S00068.iedit +++| QUAL 00144 M00S00069.iedit +++| TITLE MACRO DEFINITIONS. 00145 M00S00070.iedit +++| DAC SPACE 4,15 00146 M00S00071.iedit +++|** DAC - DECLARE ATTRIBUTES FOR CHARACTER POSITION. 00147 M00S00072.iedit +++|* 00148 M00S00073.iedit +++|* DAC GENERATES A WORD WHICH STORES ATTRIBUTES FOR TWO 00149 M00S00074.iedit +++|* CHARACTERS. THE HIGH 30 BITS HOLD THE CHARACTER ATTRIBUTES 00150 M00S00075.iedit +++|* FOR AN ASCII 6/12 CHARACTER. THE LOW 30 BITS HOLD THE SAME 00151 M00S00076.iedit +++|* DATA FOR AN ASCII8 CHARACTER. EACH HALF ALSO CONTAINS THE 00152 M00S00077.iedit +++|* DISPLAY CODE EQUIVALENT OF ITS CHARACTER IF ONE EXISTS. 00153 M00S00078.iedit +++|* 00154 M00S00079.iedit +++|* DAC DI,DC,DA,AI,AC,AA 00155 M00S00080.iedit +++|* 00156 M00S00081.iedit +++|* ENTRY DI - IF SPECIFIED, NO DISPLAY CODE EQUIVALENT OF 00157 M00S00082.iedit +++|* ASCII 6/12 CHARACTER. 00158 M00S00083.iedit +++|* DC - DISPLAY CODE EQUIVALENT OF 6/12 ASCII 00159 M00S00084.iedit +++|* CHARACTER. 00160 M00S00085.iedit +++|* DA - ATTRIBUTES FOR ASCII 6/12 CHARACTER. 00161 M00S00086.iedit +++|* AI - IF SPECIFIED, NO DISPLAY CODE EQUIVALENT OF 00162 M00S00087.iedit +++|* ASCII8 CHARACTER. 00163 M00S00088.iedit +++|* AC - DISPLAY CODE EQUIVALENT OF ASCII8 CHARACTER. 00164 M00S00089.iedit +++|* AA - ATTRIBUTES FOR ASCII8 CHARACTER. 00165 M00S00090.iedit +++|* 00166 M00S00091.iedit +++|* EXIT ENTRIES GENERATED IN THE FOLLOWING FORMAT - 00167 M00S00092.iedit +++|* 00168 M00S00093.iedit +++|*T 1/DI,NBIC/DC,DIST/0,MXNA/DA,1/AI,NBIC/AC,DIST/0,MXNA/AA
Figure 1/DI,N
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "AA", "bits": MXNA, "type": 0 }, { "name": "0", "bits": DIST, "type": 6 }, { "name": "AC", "bits": NBIC, "type": 5 }, { "name": "AI", "bits": 1, "type": 4 }, { "name": "DA", "bits": MXNA, "type": 3 }, { "name": "0", "bits": DIST, "type": 2 }, { "name": "DC", "bits": BIC, "type": 1 } ] is invalid. Please check your syntax and try again.
00169 M00S00094.iedit +++|* 00170 M00S00095.iedit +++|* WHERE - 00171 M00S00096.iedit +++|* NBIC - NUMBER OF BITS IN DISPLAY CODE CHARACTER. 00172 M00S00097.iedit +++|* MXNA - MAXIMUM NUMBER OF ATTRIBUTES PER CHARACTER. 00173 M00S00098.iedit +++|* DIST - PROPER NUMBER OF BITS TO ENSURE THAT CHARACTER 00174 M00S00099.iedit +++|* DATA FITS EXACTLY IN 30 BITS. 00175 M00S00100.iedit +++|* 00176 M00S00101.iedit +++| 00177 M00S00102.iedit +++| 00178 M00S00103.iedit +++| PURGMAC DAC 00179 M00S00104.iedit +++| DAC MACRO DI,DC,DA,AI,AC,AA 00180 M00S00105.iedit +++| MACREF DAC 00181 M00S00106.iedit +++| DIST EQU 30-1-NBIC-MXNA 00182 M00S00107.iedit +++| .A IFC EQ,*DA** 00183 M00S00108.iedit +++| VFD 30/7777777777B 00184 M00S00109.iedit +++| .A ELSE 00185 M00S00110.iedit +++| .B IFC NE,*DI** 00186 M00S00111.iedit +++| VFD 1/1,NBIC/0,DIST/0,MXNA/DA 00187 M00S00112.iedit +++| .B ELSE 00188 M00S00113.iedit +++| VFD 1/0,NBIC/DC_B,DIST/0,MXNA/DA 00189 M00S00114.iedit +++| .B ENDIF 00190 M00S00115.iedit +++| .A ENDIF 00191 M00S00116.iedit +++| .A IFC EQ,*AA** 00192 M00S00117.iedit +++| VFD 30/7777777777B 00193 M00S00118.iedit +++| .A ELSE 00194 M00S00119.iedit +++| .B IFC NE,*AI** 00195 M00S00120.iedit +++| VFD 1/1,NBIC/0,DIST/0,MXNA/AA 00196 M00S00121.iedit +++| .B ELSE 00197 M00S00122.iedit +++| VFD 1/0,NBIC/AC_B,DIST/0,MXNA/AA 00198 M00S00123.iedit +++| .B ENDIF 00199 M00S00124.iedit +++| .A ENDIF 00200 M00S00125.iedit +++| DAC ENDM 00201 M00S00126.iedit +++| FIELD SPACE 4,20 00202 M00S00127.iedit +++|** FIELD - DEFINE FIELDS. 00203 M00S00128.iedit +++|* 00204 M00S00129.iedit +++|* TAGS ARE GENERATED TO GIVE THE WORD LOCATION, BIT 00205 M00S00130.iedit +++|* LOCATION, AND NUMBER OF BITS IN FIELD. 00206 M00S00131.iedit +++|* 00207 M00S00132.iedit +++|* ENTRY TAG FIELD WP,LB,RP 00208 M00S00133.iedit +++|* TAG = NAME OF FIELD (1-6 LEGAL COMPASS CHARACTERS) 00209 M00S00134.iedit +++|* = *, USE CURRENT VALUE OF PSEUDO ORG COUNTER ORLOC1$ 00210 M00S00135.iedit +++|* LB = LEFT-MOST BIT POSITION WITHIN A WORD (BIT 59 BEING 00211 M00S00136.iedit +++|* SIGN BIT). 00212 M00S00137.iedit +++|* RB = RIGHT-MOST BIT POSITION WITHIN A WORD. 00213 M00S00138.iedit +++|* 00214 M00S00139.iedit +++|* EXIT TAGW = WORD LOCATION OF FIELD. 00215 M00S00140.iedit +++|* TAGS = LEFT BIT POSITION OF FIELD. 00216 M00S00141.iedit +++|* TAGN = NUMBER OF BITS IN FIELD. 00217 M00S00142.iedit +++| 00218 M00S00143.iedit +++| 00219 M00S00144.iedit +++| PURGMAC FIELD 00220 M00S00145.iedit +++| 00221 M00S00146.iedit +++| MACRO FIELD,TAG,WP,LB,RB 00222 M00S00147.iedit +++| MACREF FIELD 00223 M00S00148.iedit +++| IFC NE,/WP//,4 00224 M00S00149.iedit +++| IFC EQ,/WP/*/,2 00225 M00S00150.iedit +++| _TAG_W EQU ORLOC1$ 00226 M00S00151.iedit +++| SKIP 1 00227 M00S00152.iedit +++| _TAG_W EQU WP 00228 M00S00153.iedit +++| _TAG_S EQU LB 00229 M00S00154.iedit +++| _TAG_N EQU LB-RB+1 00230 M00S00155.iedit +++| ENDM 00231 M00S00156.iedit +++| BASE * 00232 M00S00157.iedit +++| ENDX 00233 M00S00158.iedit +++| MXB SPACE 4,15 00234 M00S00159.iedit +++|** MXB - MASK WITH B REGISTER 00235 M00S00160.iedit +++|* 00236 M00S00161.iedit +++|* ENTRY I - X REGISTER TO PLACE MASK IN. 00237 M00S00162.iedit +++|* J - B REGISTER SPECIFING SIZE OF MASK. 00238 M00S00163.iedit +++|* 0 .LE. (B(J)) .LE. 60. 00239 M00S00164.iedit +++|* 00240 M00S00165.iedit +++|* EXIT MX(I) CONTAINS MASK OF SIZE SPECIFIED IN B(J). 00241 M00S00166.iedit +++|* B(J) SAME AS ON ENTRY. 00242 M00S00167.iedit +++|* 00243 M00S00168.iedit +++|* MXB PROVIDES A MASK INSTRUCTION USING A B REGISTER. 00244 M00S00169.iedit +++|* RESTRICTION - 0 .LE. (B) .LE. 60 00245 M00S00170.iedit +++| 00246 M00S00171.iedit +++| 00247 M00S00172.iedit +++| MXB OPDEF I,J 00248 M00S00173.iedit +++| BX.I X.I-X.I CLEAR X REGISTER 00249 M00S00174.iedit +++| SB.J B.J-B1 00250 M00S00175.iedit +++| PX.I X.I,B.J 00251 M00S00176.iedit +++| AX.I 58 00252 M00S00177.iedit +++| LX.I 59-0 00253 M00S00178.iedit +++| AX.I B.J A BIT MASK 00254 M00S00179.iedit +++| SB.J B.J+B1 RESTORE BJ 00255 M00S00180.iedit +++| ENDM 00256 M00S00181.iedit +++| OVLDEF SPACE 4,10 00257 M00S00182.iedit +++|** OVLDEF - DEFINE IEDIT OVERLAY. 00258 M00S00183.iedit +++|* 00259 M00S00184.iedit +++|* OVLDEF LA,EA,LEVEL,TITLE 00260 M00S00185.iedit +++|* 00261 M00S00186.iedit +++|* LA = LOAD ADDRESS. 00262 M00S00187.iedit +++|* EA = ENTRY ADDRESS. 00263 M00S00188.iedit +++|* LEVEL = LEVEL OF OVERLAY. 00264 M00S00189.iedit +++|* TITLE = TITLE OF OVERLAY. 00265 M00S00190.iedit +++| 00266 M00S00191.iedit +++| 00267 M00S00192.iedit +++| PURGMAC OVLDEF 00268 M00S00193.iedit +++| 00269 M00S00194.iedit +++| OVLDEF MACRO LA,EA,LVL,TEXT 00270 M00S00195.iedit +++| MACREF OVLDEF 00271 M00S00196.iedit +++| QUAL IEDIT_LVL 00272 M00S00197.iedit +++| TTL IEDIT_LVL - TEXT 00273 M00S00198.iedit +++| TITLE 00274 M00S00199.iedit +++| IDENT IEDIT_LVL,LA,EA,LVL,0 00275 M00S00200.iedit +++|*COMMENT IEDIT - TEXT
| Line S00201 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00276 M01S00201.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00277 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00278 M00S00202.iedit +++| ORG LA 00279 M00S00203.iedit +++| ENDM OVLDEF 00280 M00S00204.iedit +++| VERB SPACE 4,40 00281 M00S00205.iedit +++|** VERB - DECLARE VERB. 00282 M00S00206.iedit +++|* 00283 M00S00207.iedit +++|* VERB V,AL,P,FP DECLARE VERB 00284 M00S00208.iedit +++|* VERB DECLARE END OF VERB DECLARATIONS. 00285 M00S00209.iedit +++|* 00286 M00S00210.iedit +++|* ENTRY V - IEDIT VERB. 00287 M00S00211.iedit +++|* AL - * IF ALL ABBREVIATIONS OF THE VERB ARE TO BE 00288 M00S00212.iedit +++|* GENERATED; OTHERWISE NULL(OR ANY OTHER SYMBOL). 00289 M00S00213.iedit +++|* P - ORDERED LIST OF PROCESSOR DESCRIPTORS IN THE FORM 00290 M00S00214.iedit +++|* (AD,CON) - 00291 M00S00215.iedit +++|* AD - ENTRY ADDRESS OF PROCESSOR. 00292 M00S00216.iedit +++|* CON - R, IF SYNTACTIC ELEMENT REQUIRED. 00293 M00S00217.iedit +++|* O, IF SYNTACTIC ELEMENT IS OPTIONAL 00294 M00S00218.iedit +++|* (0 OR 1 OCCURRENCES). 00295 M00S00219.iedit +++|* A, IF ALTERNATE SYNTAX FOR COMMAND 00296 M00S00220.iedit +++|* FOLLOWS. 00297 M00S00221.iedit +++|* FP - FUNCTION PROCESSOR NUMBER. 00298 M00S00222.iedit +++|* 00299 M00S00223.iedit +++|* EXIT ENTRIES GENERATED ARE OF THREE TYPES, TYPE1, TYPE2 00300 M00S00224.iedit +++|* AND TYPE3. 00301 M00S00225.iedit +++|*T TYPE1 42/CV,6/0,6/P,6/V
Figure TYPE1
00302 M00S00226.iedit +++|*T,TYPE2 2/OP,40/OFFSET,18/ADR
Figure TYPE2
00303 M00S00227.iedit +++|*T,TYPE3 2/0,1/1,39/0,18/FP
Figure TYPE3
00304 M00S00228.iedit +++|* WHERE - 00305 M00S00229.iedit +++|* CV - V OR ALLOWED ABBREVIATION OF V IN DISPLAY CODE. 00306 M00S00230.iedit +++|* P - NUMBER OF WORDS INCREMENT TO START OF LIST 00307 M00S00231.iedit +++|* OF PROCESSORS. 00308 M00S00232.iedit +++|* V - NUMBER OF WORDS INCREMENT TO NEXT VERB. 00309 M00S00233.iedit +++|* OP - 1, IF PROCESSOR RECOGNITION OF AN ELEMENT IS 00310 M00S00234.iedit +++|* OPTIONAL. I.E. 0 OR 1 OCCURRENCES ARE 00311 M00S00235.iedit +++|* TO BE ACCEPTED. 00312 M00S00236.iedit +++|* - 2 IF PROCESSOR MUST PROCESS AN OCCURENCE OF 00313 M00S00237.iedit +++|* THE SYNTACTIC ELEMENT 00314 M00S00238.iedit +++|* ( I.E. THIS FUNCTION IS REQUIRED). 00315 M00S00239.iedit +++|* OFFSET - OFFSET TO ALTERNATE SYNTAX FROM 00316 M00S00240.iedit +++|* START OF TABLE. 00317 M00S00241.iedit +++|* ADR - ENTRY ADDRESS OF SYNTAX PROCESSOR. 00318 M00S00242.iedit +++|* 00319 M00S00243.iedit +++|* MACROS DSUB. 00320 M00S00244.iedit +++| 00321 M00S00245.iedit +++| 00322 M00S00246.iedit +++| PURGMAC VERB 00323 M00S00247.iedit +++| 00324 M00S00248.iedit +++| VERB MACRO V,AL,P,FP 00325 M00S00249.iedit +++| LOCAL S,L,NM1,R,CV,LIST 00326 M00S00250.iedit +++| MACREF VERB 00327 M00S00251.iedit +++| 00328 M00S00252.iedit +++| .A IFC NE,$_V_AL_P_$$ 00329 M00S00253.iedit +++| 00330 M00S00254.iedit +++| S MICRO 1,,$V$ 00331 M00S00255.iedit +++| L MICCNT S 00332 M00S00256.iedit +++| .B IFLT L,3
| Line S00257 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00333 M01S00257.v23l617 ---| ERR ILLEGAL VERB SPECIFIED
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00334 M01S00002.v23l617 +++| ERR INCORRECT VERB SPECIFIED 00335 M00S00258.iedit +++| .B ENDIF 00336 M00S00259.iedit +++| 00337 M00S00260.iedit +++| .B IFC EQ,$AL$*$ 00338 M00S00261.iedit +++| R SET L-3+1 REPETITION COUNT 00339 M00S00262.iedit +++| .B ELSE 00340 M00S00263.iedit +++| R SET 1 00341 M00S00264.iedit +++| .B ENDIF 00342 M00S00265.iedit +++| 00343 M00S00266.iedit +++| VERB DUP R 00344 M00S00267.iedit +++| .B IF -DEF,VERBA 00345 M00S00268.iedit +++| N1 SET 1 00346 M00S00269.iedit +++| LASTNM1 MICRO 1,,$VERBA$ 00347 M00S00270.iedit +++| .B ELSE 00348 M00S00271.iedit +++| N1 SET N1+1 00349 M00S00272.iedit +++| .B ENDIF 00350 M00S00273.iedit +++| NM1 MICRO N1,1,$BCDEFGHIJKLMNOPQRSTUVWXYZ0123456789$ 00351 M00S00274.iedit +++| CV MICRO 1,L,$"S"$ 00352 M00S00275.iedit +++| "LASTNM1" VFD TDVNN/0L_"CV",TDXXN/0,TDISN/LIST-*,TDIVN/VERB_"NM1"-* 00353 M00S00276.iedit +++| LASTNM1 MICRO 1,,$VERB_"NM1"$ 00354 M00S00277.iedit +++| L SET L-1 00355 M00S00278.iedit +++| VERB ENDD 00356 M00S00279.iedit +++| 00357 M00S00280.iedit +++| N2 SET 1 00358 M00S00281.iedit +++| NM2 MICRO N2,1,$1234567890$ 00359 M00S00282.iedit +++| ALTM MICRO 1,,$."NM1"_"NM2"$ 00360 M00S00283.iedit +++| 00361 M00S00284.iedit +++|LIST BSS 0 00362 M00S00285.iedit +++| IRP P 00363 M00S00286.iedit +++| NWDS SET * 00364 M00S00287.iedit +++| DSUB P,"ALTM" 00365 M00S00288.iedit +++| .B IFEQ *-NWDS,0 00366 M00S00289.iedit +++| VFD TDRQN/0 00367 M00S00290.iedit +++| VFD TDOPN/0 00368 M00S00291.iedit +++| VFD TDFPN/1 00369 M00S00292.iedit +++| VFD TDRSN/0 00370 M00S00293.iedit +++| VFD TDASN/0 00371 M00S00294.iedit +++| VFD TDSAN/FP 00372 M00S00295.iedit +++| "ALTM" BSS 0 00373 M00S00296.iedit +++| N2 SET N2+1 00374 M00S00297.iedit +++| NM2 MICRO N2,1,$1234567890$ 00375 M00S00298.iedit +++| ALTM MICRO 1,,$."NM1"_"NM2"$ 00376 M00S00299.iedit +++| .B ENDIF 00377 M00S00300.iedit +++| IRP 00378 M00S00301.iedit +++| "ALTM" EQU 0 00379 M00S00302.iedit +++| VFD TDRQN/0 00380 M00S00303.iedit +++| VFD TDOPN/0 00381 M00S00304.iedit +++| VFD TDFPN/1 00382 M00S00305.iedit +++| VFD TDRSN/0 00383 M00S00306.iedit +++| VFD TDASN/0 00384 M00S00307.iedit +++| VFD TDSAN/FP 00385 M00S00308.iedit +++| 00386 M00S00309.iedit +++| .A ELSE 00387 M00S00310.iedit +++| 00388 M00S00311.iedit +++| "LASTNM1" BSSZ 1 00389 M00S00312.iedit +++| .A ENDIF 00390 M00S00313.iedit +++| VERB ENDM 00391 M00S00314.iedit +++| DSUB SPACE 4,10 00392 M00S00315.iedit +++|** DSUB - DECLARE SUBROUTINE (HELPER MACRO). 00393 M00S00316.iedit +++|* 00394 M00S00317.iedit +++| 00395 M00S00318.iedit +++| 00396 M00S00319.iedit +++| PURGMAC DSUB 00397 M00S00320.iedit +++| 00398 M00S00321.iedit +++| DSUB MACRO AD,C,ALT 00399 M00S00322.iedit +++| LOCAL F 00400 M00S00323.iedit +++| MACREF DSUB 00401 M00S00324.iedit +++| 00402 M00S00325.iedit +++| .A IFC NE,$AD$$ 00403 M00S00326.iedit +++| F EQU * 00404 M00S00327.iedit +++| .B IFC EQ,$C$R$ 00405 M00S00328.iedit +++| VFD TDRQN/1 00406 M00S00329.iedit +++| VFD TDOPN/0 00407 M00S00330.iedit +++| VFD TDFPN/0 00408 M00S00331.iedit +++| VFD TDRSN/0 00409 M00S00332.iedit +++| VFD TDASN/ALT 00410 M00S00333.iedit +++| VFD TDSAN/AD 00411 M00S00334.iedit +++| .B ENDIF 00412 M00S00335.iedit +++| .B IFC EQ,$C$O$ 00413 M00S00336.iedit +++| VFD TDRQN/0 00414 M00S00337.iedit +++| VFD TDOPN/1 00415 M00S00338.iedit +++| VFD TDFPN/0 00416 M00S00339.iedit +++| VFD TDRSN/0 00417 M00S00340.iedit +++| VFD TDASN/ALT 00418 M00S00341.iedit +++| VFD TDSAN/AD 00419 M00S00342.iedit +++| .B ENDIF 00420 M00S00343.iedit +++| .B IFEQ F-*,0 00421 M00S00344.iedit +++| ERR SECOND PARAMETER WRONG 00422 M00S00345.iedit +++| .B ENDIF 00423 M00S00346.iedit +++| .A ELSE 00424 M00S00347.iedit +++| .B IFC NE,$C$A$ 00425 M00S00348.iedit +++| ERR 00426 M00S00349.iedit +++| .B ENDIF 00427 M00S00350.iedit +++| .A ENDIF 00428 M00S00351.iedit +++| DSUB ENDM 00429 M00S00352.iedit +++| TITLE COMMON DECKS. 00430 M00S00353.iedit +++|** DEFINITION COMMON DECKS. 00431 M00S00354.iedit +++|* 00432 M00S00355.iedit +++|*CALL COMCMAC 00433 M00S00356.iedit +++|*CALL COMCCMD 00434 M00S00357.iedit +++|*CALL COMCMTM 00435 M00S00358.iedit +++| TITLE WORKING STORAGE. 00436 M00S00359.iedit +++| ORG 111B 00437 M00S00360.iedit +++| FWA BSS 0 00438 M00S00361.iedit +++| 00439 M00S00362.iedit +++|** ASSEMBLY CONSTANTS. 00440 M00S00363.iedit +++| 00441 M00S00364.iedit +++| CLRL1 EQU 1 CLEAR LINE 1 OF CONTROL POINT 00442 M00S00365.iedit +++| EC1 EQU 74B ESCAPE CODE 1 00443 M00S00366.iedit +++| EC2 EQU 76B ESCAPE CODE 2 00444 M00S00367.iedit +++| LBINC EQU 250 LINE BUFFER TABLE INCREMENT 00445 M00S00368.iedit +++| LNTINC EQU 50 LINE NUMBER TABLE INCREMENT 00446 M00S00369.iedit +++| MINCR EQU 2000B MEMORY INCREMENT 00447 M00S00370.iedit +++| SNF$ SET 0 SNF WILL RETURN NUMBER OF SORTED LINES 00448 M00S00371.iedit +++| TRIM SET 0 TRIM MODE DESELECTED 00449 M00S00372.iedit +++| USBL$ SET 1 00450 M00S00373.iedit +++| USBA$ SET 1 00451 M00S00374.iedit +++| RDX$ SET 1 SUPPRESS HALF-BUFFER CIO THRESHOLD 00452 M00S00375.iedit +++| WTX$ SET 1 SUPPRESS HALF-BUFFER CIO THRESHOLD 00453 M00S00376.iedit +++| MXWL EQU 32D MAXIMUM CM WORDS IN LINE 00454 M00S00377.iedit +++| MXCIL EQU MXWL*10D/2 MAXIMUM CHARACTERS IN LINE 00455 M00S00378.iedit +++| MXIC EQU 4095 MAXIMUM INCREMENT SIZE 00456 M00S00379.iedit +++| MXLN EQU 99999 MAXIMUM LINE NUMBER 00457 M00S00380.iedit +++| MXWS EQU 7 MAXIMUM WORD SIZE IS SEVEN CHARACTERS 00458 M00S00381.iedit +++| NBIC EQU 6 NUMBER OF BITS IN CHARACTER 00459 M00S00382.iedit +++| NUMD EQU 5 MAXIMUM DIGITS IN LINE NUMBER 00460 M00S00383.iedit +++| NWIF EQU 7 NUMBER OF WORDS IN FET 00461 M00S00384.iedit +++| 00462 M00S00385.iedit +++|* THE MAIN AND LINE BUFFERS EACH CONTAIN THREE EXTRA 00463 M00S00386.iedit +++|* WORDS TO ALLOW *COMCSNF* TO SPLIT EACH BUFFER IN HALF 00464 M00S00387.iedit +++|* AND STILL HAVE TWO EXTRA WORDS IN THE SECOND HALF. 00465 M00S00388.iedit +++|* FOR MORE INFORMATION SEE *COMCSNF*. 00466 M00S00389.iedit +++| 00467 M00S00390.iedit +++| EBSZ EQU 4004B MAIN BUFFER SIZE 00468 M00S00391.iedit +++| LNTSZ EQU 201B LINE NUMBER TABLE SIZE 00469 M00S00392.iedit +++| LBSZ EQU 1404B LINE BUFFER SIZE 00470 M00S00393.iedit +++| SCRASZ EQU 1401B FIRST SCRATCH BUFFER SIZE 00471 M00S00394.iedit +++| SCRBSZ EQU 1401B SECOND SCRATCH BUFFER SIZE 00472 M00S00395.iedit +++| SCRCSZ EQU 4401B SEQUENTIAL FILE-REBUILD BUFFER SIZE 00473 M00S00396.iedit +++| OTSZ EQU 1001B OUTPUT BUFFER SIZE 00474 M00S00397.iedit +++| INSZ EQU 101B INPUT/CLB= BUFFER SIZE 00475 M00S00398.iedit +++| BUFL EQU EBSZ+LNTSZ+LBSZ+SCRASZ+SCRBSZ 00476 M00S00399.iedit +++| BUFL2 EQU EBSZ+SCRCSZ 00477 M00S00400.iedit +++|
| Line S00401 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00478 M01S00401.v23l617 ---|** CONTROL STATEMENT PARAMETERS.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00479 M01S00003.v23l617 +++|** COMMAND PARAMETERS. 00480 M00S00402.iedit +++| 00481 M00S00403.iedit +++| EFN CON 0 EDIT FILE NAME 00482 M00S00404.iedit +++| BOP CON 0 B OPTION 00483 M00S00405.iedit +++| LOP CON 0 L OPTION 00484 M00S00406.iedit +++| FOP CON 0 F OPTION 00485 M00S00407.iedit +++| 00486 M00S00408.iedit +++|** VARIABLES SET BY PRESET. 00487 M00S00409.iedit +++| 00488 M00S00410.iedit +++| BLNK CON 0 SET TO A BLANK IN CURRENT CHARACTER SET 00489 M00S00411.iedit +++| CSTI CON 0 CHARACTER SET TYPE INDICATOR 00490 M00S00412.iedit +++| FILEN CON 0 FILE NAME OF SECONDARY FILE 00491 M00S00413.iedit +++| FLNGTH CON 0 LENGTH OF ORIGINAL EDIT FILE 00492 M00S00414.iedit +++| FNUM CON 0 FUNCTION NUMBER 00493 M00S00415.iedit +++| INCR CON 1 RESEQUENCING INCREMENT 00494 M00S00416.iedit +++| LNIA CON MXLN+1 LINE NUMBER TO INSERT AFTER 00495 M00S00417.iedit +++| LSTFIL CON 0 LIST OPTION 00496 M00S00418.iedit +++| MSTAT VFD 30/-1,30/0 MEMORY STATUS WORD 00497 M00S00419.iedit +++| NCIS CON 0 NUMBER OF CHARACTERS IN SEARCH STRING 00498 M00S00420.iedit +++| NCIR CON 0 NUMBER OF CHARACTERS IN REPLACEMENT STRING 00499 M00S00421.iedit +++| NELR CON 0 NUMBER OF ENTRIES IN LINE RANGE TABLE 00500 M00S00422.iedit +++| 00501 M00S00423.iedit +++|** VARIABLES SET BY LINE SELECT/PROCESSING PHASE. 00502 M00S00424.iedit +++| 00503 M00S00425.iedit +++| APPFLG CON 0 CHANGE RECORDS APPENDED FLAG 00504 M00S00426.iedit +++| CMAX CON 0 MAXIMUM AMOUNT OF MEMORY AVAILABLE 00505 M00S00427.iedit +++| CMEM CON 0 CURRENT AMOUNT OF MEMORY BEING USED 00506 M00S00428.iedit +++| DYNST CON 0 AMOUNT OF DYNAMIC STORAGE 00507 M00S00429.iedit +++| FLAGS CON 0 *LNTBUF* ENTRY FLAGS 00508 M00S00430.iedit +++| FNAI CON MXLN+1 FIRST LINE NUMBER AFTER INSERTION 00509 M00S00431.iedit +++| INTFLG CON 0 SET IF NOT INTERRUPTIBLE 00510 M00S00432.iedit +++| LSRA CON 0 NUMBER TO ASSIGN TO FIRST INSERTED LINE 00511 M00S00433.iedit +++| LTFILE CON 0 *LNT* FILE FLAG 00512 M00S00434.iedit +++| LBFILE CON 0 LINE BUFFER FULL FLAG 00513 M00S00435.iedit +++| LBFET CON E FET ADDRESS OF CURRENT LINE BUFFER 00514 M00S00436.iedit +++| LB2FET CON L FET ADDRESS OF SCRATCH LINE BUFFER 00515 M00S00437.iedit +++| LTFET CON LNT1 FET ADDRESS OF SORT/MERGED *LNT* FILE 00516 M00S00438.iedit +++| LT2FET CON LNT2 FET ADDRESS OF A FREE SCRATCH BUFFER 00517 M00S00439.iedit +++| NBLN CON 0 NEW BINARY LINE NUMBER 00518 M00S00440.iedit +++| NCOL CON 0 NUMBER OF CHARACTERS ON A LINE 00519 M00S00441.iedit +++| NMLS CON 0 NUMBER *LNT* ENTRIES CURRENTLY IN BUFFER 00520 M00S00442.iedit +++| NNOL CON 0 NUMBER OF NON-OVERLAPPED LINES 00521 M00S00443.iedit +++| NTBL CON 0 NUMBER OF TRAILING BLANKS IN LINE 00522 M00S00444.iedit +++| NTL CON 0 NUMBER OF TRUNCATED LINES 00523 M00S00445.iedit +++| OBLN CON -1 OLD BINARY LINE NUMBER 00524 M00S00446.iedit +++| OLLE CON 0 OVERLAPPED LINES LINE RANGE TABLE ENTRY 00525 M00S00447.iedit +++| OVLPFG CON 0 OVERLAP PROCESSING FLAG 00526 M00S00448.iedit +++| OUT DATA C*OUTPUT* FILE NAME TO WRITE TO 00527 M00S00449.iedit +++| SCRFIL CON 0 SCRATCH BUFFER FLAG 00528 M00S00450.iedit +++| TRNC CON 0 TRUNCATED LINE FLAG 00529 M00S00451.iedit +++| UNRF CON 0 UNNUMBERED *READ* FILE FLAG 00530 M00S00452.iedit +++| SPACE 4,15 00531 M00S00453.iedit +++|** TABLE OF FUNCTION NUMBERS. 00532 M00S00454.iedit +++| 00533 M00S00455.iedit +++| TOFN BSS 0 BEGINNING OF FUNCTION TABLE 00534 M00S00456.iedit +++| LOC 1 00535 M00S00457.iedit +++| 00536 M00S00458.iedit +++| FNDU VFD 18/EFN,42/0 DUP 00537 M00S00459.iedit +++| FNMO VFD 18/EFN,42/0 MOVE 00538 M00S00460.iedit +++| FNRE VFD 18/EFN,42/0 READ 00539 M00S00461.iedit +++| MXIL EQU *-1 MAXIMUM FUNCTION TO CAUSE OVERLAP 00540 M00S00462.iedit +++| 00541 M00S00463.iedit +++| FNAL VFD 18/EFN,42/0 ALTER 00542 M00S00464.iedit +++| FNDE VFD 18/EFN,42/0 DELETE 00543 M00S00465.iedit +++| FNLI VFD 18/OUT,42/0 LIST/LNH 00544 M00S00466.iedit +++| MXNW EQU *-1 MAXIMUM NON-*WRITE(N)* FUNCTION 00545 M00S00467.iedit +++| 00546 M00S00468.iedit +++| FNWR VFD 18/FILEN,42/0 WRITE 00547 M00S00469.iedit +++| FNWN VFD 18/FILEN,42/0 WRITEN 00548 M00S00470.iedit +++| LOC *O 00549 M00S00471.iedit +++| SPACE 4 00550 M00S00472.iedit +++|** TABLE OF SCRATCH FILES. 00551 M00S00473.iedit +++| 00552 M00S00474.iedit +++| TSF BSS 0 00553 M00S00475.iedit +++| VFD 42/0LZZZZZG0,18/0 LINE BUFFER FILES 00554 M00S00476.iedit +++| VFD 42/0LZZZZZG1,18/0 00555 M00S00477.iedit +++| VFD 42/0LZZZZZG2,18/0 LINE NUMBER TABLE FILES 00556 M00S00478.iedit +++| VFD 42/0LZZZZZG3,18/0 00557 M00S00479.iedit +++| VFD 42/0LZZZZZG4,18/0 SORT FILES 00558 M00S00480.iedit +++| VFD 42/0LZZZZZG5,18/0 00559 M00S00481.iedit +++| VFD 42/0LZZZZZG6,18/0 DELETED LINE NUMBER FILE 00560 M00S00482.iedit +++| VFD 42/0LZZZZZG7,18/0 TRUNCATED LINE FILE 00561 M00S00483.iedit +++| CON 0 00562 M00S00484.iedit +++| SPACE 4,5 00563 M00S00485.iedit +++|** *FILINFO* PARAMETER BLOCK. 00564 M00S00486.iedit +++| 00565 M00S00487.iedit +++| FIPB VFD 42/0,6/5,12/1 00566 M00S00488.iedit +++| BSSZ 4 00567 M00S00489.iedit +++| SPACE 4,5 00568 M00S00490.iedit +++|** *LOF* PARAMETER BLOCK. 00569 M00S00491.iedit +++| 00570 M00S00492.iedit +++| LOFPRM VFD 12/0,18/PRMW2,30/0 00571 M00S00493.iedit +++| PRMW2 VFD 42/0,18/3 00572 M00S00494.iedit +++| VFD 42/0LOUTPUT,18/O 00573 M00S00495.iedit +++| VFD 60/0 00574 M00S00496.iedit +++| SPACE 4,5 00575 M00S00497.iedit +++|** *REPRIEVE* PARAMETER BLOCK. 00576 M00S00498.iedit +++| 00577 M00S00499.iedit +++| RPB BSS 0 00578 M00S00500.iedit +++| VFD 36/0,12/RPBL,12/0 00579 M00S00501.iedit +++| VFD 30/0,30/PIT 00580 M00S00502.iedit +++| BSSZ 7 00581 M00S00503.iedit +++| BSSZ 16 EXCHANGE PACKAGE 00582 M00S00504.iedit +++| RPBL EQU *-RPB 00583 M00S00505.iedit +++| TITLE TABLES. 00584 M00S00506.iedit +++| SPACE 4,10 00585 M00S00507.iedit +++|** FIELD DEFINITIONS FOR VERB TABLE. 00586 M00S00508.iedit +++| 00587 M00S00509.iedit +++| 00588 M00S00510.iedit +++| TDVN FIELD ,59,18 VERB NAME 00589 M00S00511.iedit +++| TDXX FIELD ,17,12 RESERVED FOR CDC 00590 M00S00512.iedit +++| TDIS FIELD ,11,6 INCREMENT TO START OF PROCESSES FOR VERB 00591 M00S00513.iedit +++| TDIV FIELD ,5,0 INCREMENT TO NEXT VERB 00592 M00S00514.iedit +++| TDRQ FIELD ,59,59 REQUIRED ATTRIBUTE (SET IF YES) 00593 M00S00515.iedit +++| TDOP FIELD ,58,58 OPTIONAL 00594 M00S00516.iedit +++| TDFP FIELD ,57,57 SET IF AT END OF PROCESSORS FOR VERB 00595 M00S00517.iedit +++| TDRS FIELD ,56,36 RESERVED FOR CDC 00596 M00S00518.iedit +++| TDAS FIELD ,35,18 OFFSET TO FWA OF ALTERNATE SYNTAX 00597 M00S00519.iedit +++| TDSA FIELD ,17,0 SUBROUTINE ADDRESS TO PROCESS 00598 M00S00520.iedit +++| 00599 M00S00521.iedit +++|** CHARACTER ATTRIBUTE BIT LOCATIONS. 00600 M00S00522.iedit +++| 00601 M00S00523.iedit +++| 00602 M00S00524.iedit +++| LETA EQU 1S0 LETTER ATTRIBUTE 00603 M00S00525.iedit +++| DIGA EQU 1S1 DIGIT (NUMBER) ATTRIBUTE 00604 M00S00526.iedit +++| DLMA EQU 1S2 DELIMITER ATTRIBUTE 00605 M00S00527.iedit +++| CHAA EQU 1S3 CHARACTER ATTRIBUTE 00606 M00S00528.iedit +++| SEPA EQU 1S4 SEPARATOR ATTRIBUTE 00607 M00S00529.iedit +++| TERA EQU 1S5 TERMINATOR ATTRIBUTE 00608 M00S00530.iedit +++| MXNA EQU 6 MAXIMUM NUMBER OF ATTRIBUTES PER CHARACTER 00609 M00S00531.iedit +++| SEDE EQU SEPA+DLMA 00610 M00S00532.iedit +++| *LNT* SPACE 4,10 ATTRIBUTE BIT LOCATIONS DEFINED 00611 M00S00533.iedit +++|** THE *LNT* CONSISTS OF ONE WORD ENTRIES EITHER IN A BUFFER 00612 M00S00534.iedit +++|* OR WRITTEN OUT TO A LOCAL DISK FILE. THE FORMAT OF A 00613 M00S00535.iedit +++|* *LNT* ENTRY IS - 00614 M00S00536.iedit +++|* 00615 M00S00537.iedit +++|*T 18/NLN, 18/OLN, 1/O, 23/
Figure
00616 M00S00538.iedit +++|* 00617 M00S00539.iedit +++|* NLN = NEW LINE NUMBER. 00618 M00S00540.iedit +++|* OLN = OLD LINE NUMBER. 00619 M00S00541.iedit +++|* O = OVERLAP PROCESSING FLAG. 00620 M00S00542.iedit +++| 00621 M00S00543.iedit +++| 00622 M00S00544.iedit +++| FOVL EQU 23 OVERLAPPED LINE FLAG 00623 M00S00545.iedit +++| BUFFERS SPACE 4,10 00624 M00S00546.iedit +++|** BUFFER DEFINITIONS. 00625 M00S00547.iedit +++| 00626 M00S00548.iedit +++| LRT BSS MXWL+1 LINE RANGE TABLE 00627 M00S00549.iedit +++| CLIN BSS 0 CURRENT EDIT FILE LINE BEING WORKED 00628 M00S00550.iedit +++| USBB BSS MXCIL+1 STRING BUFFER USED BY *USB* 00629 M00S00551.iedit +++| INBUF BSS INSZ INPUT BUFFER 00630 M00S00552.iedit +++| OTBUF BSS OTSZ OUTPUT BUFFER 00631 M00S00553.iedit +++| PCKDBF BSSZ MXWL+1 PACKED LINE BUFFER 00632 M00S00554.iedit +++| RBUF BSSZ MXCIL REPLACEMENT BUFFER 00633 M00S00555.iedit +++| SBUF BSSZ MXCIL SEARCH STRING BUFFER 00634 M00S00556.iedit +++| TRBUF BSS 204B TRUNCATED LINE BUFFER 00635 M00S00557.iedit +++| EFBUF TABLE EDIT FILE BUFFER 00636 M00S00558.iedit +++| SCRBA TABLE SCRATCH 1 / REBUILD BUFFER 00637 M00S00559.iedit +++| SCRBB TABLE SCRATCH BUFFER 2 00638 M00S00560.iedit +++| LNBUF TABLE LINE BUFFER 00639 M00S00561.iedit +++| LNTBUF TABLE LINE NUMBER TABLE BUFFER 00640 M00S00562.iedit +++| SPACE 4,10 INTERFACE FILE FETS 00641 M00S00563.iedit +++|** FET DEFINITIONS. 00642 M00S00564.iedit +++| 00643 M00S00565.iedit +++| E BSS 0 EDIT FILE BUFFER 00644 M00S00566.iedit +++| EFB FILEB 0,0,(FET=NWIF) 00645 M00S00567.iedit +++| 00646 M00S00568.iedit +++| I BSS 0 INPUT BUFFER 00647 M00S00569.iedit +++| INPUT FILEB INBUF,INSZ,(FET=NWIF) 00648 M00S00570.iedit +++| 00649 M00S00571.iedit +++| O BSS 0 OUTPUT BUFFER 00650 M00S00572.iedit +++| OUTPUT FILEB OTBUF,OTSZ,(FET=NWIF) 00651 M00S00573.iedit +++| 00652 M00S00574.iedit +++| L BSS 0 LINE BUFFER FILE 00653 M00S00575.iedit +++| ZZZZZG0 FILEB 0,0,(FET=NWIF) 00654 M00S00576.iedit +++| 00655 M00S00577.iedit +++| LNT1 BSS 0 LINE NUMBER TABLE FILE 00656 M00S00578.iedit +++| ZZZZZG2 FILEB 0,0,(FET=NWIF) 00657 M00S00579.iedit +++| 00658 M00S00580.iedit +++| LNT2 BSS 0 *LNT* SCRATCH FILE 00659 M00S00581.iedit +++| ZZZZZG3 FILEB 0,0,(FET=NWIF) 00660 M00S00582.iedit +++| 00661 M00S00583.iedit +++| SCR BSS 0 SCRATCH FILE 0 00662 M00S00584.iedit +++| ZZZZZG4 FILEB 0,0,(FET=NWIF) 00663 M00S00585.iedit +++| 00664 M00S00586.iedit +++| SCR1 BSS 0 SCRATCH FILE 1 00665 M00S00587.iedit +++| ZZZZZG5 FILEB 0,0,(FET=NWIF) 00666 M00S00588.iedit +++| 00667 M00S00589.iedit +++| TRNCFET BSS 0 TRUNCATED LINE BUFFER 00668 M00S00590.iedit +++| ZZZZZG7 FILEB TRBUF,204B,(FET=NWIF) 00669 M00S00591.iedit +++| TITLE MAIN PROGRAM. 00670 M00S00592.iedit +++| MAIN SPACE 4,20 00671 M00S00593.iedit +++|** IED - MAIN LOOP OF PROGRAM. 00672 M00S00594.iedit +++|* 00673 M00S00595.iedit +++|* ENTRY NONE. 00674 M00S00596.iedit +++|* 00675 M00S00597.iedit +++|* EXIT *IEDIT* PROCESSING COMPLETED. 00676 M00S00598.iedit +++|* TO *ERR* - IF A FATAL ERROR IS DETECTED. 00677 M00S00599.iedit +++|* 00678 M00S00600.iedit +++|* USES X - 0, 1, 2, 3, 5, 6. 00679 M00S00601.iedit +++|* A - 1, 2, 3, 6. 00680 M00S00602.iedit +++|* B - 2, 5. 00681 M00S00603.iedit +++|* 00682 M00S00604.iedit +++|* CALLS ABS, CDD, ERT, MRD, PRS, PSC, RSF, SFI, SNM. 00683 M00S00605.iedit +++|* 00684 M00S00606.iedit +++|* MACROS ENDRUN, FILINFO, RETURN, SYSTEM, WRITEC, WRITER. 00685 M00S00607.iedit +++| 00686 M00S00608.iedit +++| 00687 M00S00609.iedit +++| IEDIT BSS 0 ENTRY 00688 M00S00610.iedit +++| RJ PRS 00689 M00S00611.iedit +++| SA1 EFBUF ALLOCATE SPACE FOR MAIN BUFFER 00690 M00S00612.iedit +++| SX2 EBSZ 00691 M00S00613.iedit +++| RJ ABS 00692 M00S00614.iedit +++| NG X6,IED9 IF NOT ENOUGH ROOM FOR MAIN BUFFER 00693 M00S00615.iedit +++| SA1 SCRBA ALLOCATE SPACE FOR SCRATCH/REBUILD 00694 M00S00616.iedit +++| SX2 SCRASZ 00695 M00S00617.iedit +++| SA3 FNUM 00696 M00S00618.iedit +++| SX3 X3-MXIL-1 00697 M00S00619.iedit +++| NG X3,IED1 IF NON-SEQUENTIAL COMMAND 00698 M00S00620.iedit +++| SX2 SCRCSZ 00699 M00S00621.iedit +++| RJ ABS 00700 M00S00622.iedit +++| NG X6,IED9 IF NOT ENOUGH SPACE FOR SEQUENTIAL COMMAND 00701 M00S00623.iedit +++| EQ IED2 PROCESS SEQUENTIAL COMMAND 00702 M00S00624.iedit +++| 00703 M00S00625.iedit +++| IED1 RJ ABS 00704 M00S00626.iedit +++| NG X6,IED9 IF NOT ENOUGH SPACE FOR SCRATCH BUFFER 00705 M00S00627.iedit +++| SA1 SCRBB ALLOCATE SECOND SCRATCH BUFFER 00706 M00S00628.iedit +++| SX2 SCRBSZ 00707 M00S00629.iedit +++| RJ ABS 00708 M00S00630.iedit +++| NG X6,IED9 IF NOT ENOUGH SPACE FOR *SCRBB* 00709 M00S00631.iedit +++| SA1 LNBUF ALLOCATE SPACE FOR LINE BUFFER 00710 M00S00632.iedit +++| SX2 LBSZ 00711 M00S00633.iedit +++| RJ ABS 00712 M00S00634.iedit +++| NG X6,IED9 IF NOT ENOUGH SPACE FOR *LBUF* 00713 M00S00635.iedit +++| SA1 BOP 00714 M00S00636.iedit +++| ZR X1,IED2 IF *LNT* NOT NEEDED 00715 M00S00637.iedit +++| SA1 LNTBUF 00716 M00S00638.iedit +++| SX2 LNTSZ 00717 M00S00639.iedit +++| RJ ABS ALLOCATE BUFFER 00718 M00S00640.iedit +++| NG X6,IED9 IF NOT ENOUGH ROOM FOR *LNT* 00719 M00S00641.iedit +++| IED2 RJ SFI UPDATE FET POINTERS FOR ALLOCATED TABLES 00720 M00S00642.iedit +++| SA1 EFN 00721 M00S00643.iedit +++| SA2 FIPB 00722 M00S00644.iedit +++| MX3 42 00723 M00S00645.iedit +++| BX1 X1*X3 00724 M00S00646.iedit +++| BX2 -X3*X2 00725 M00S00647.iedit +++| BX6 X1+X2 00726 M00S00648.iedit +++| SA6 A2 00727 M00S00649.iedit +++| FILINFO FIPB GET LENGTH OF EDIT FILE 00728 M00S00650.iedit +++| SA2 FIPB+3 00729 M00S00651.iedit +++| MX3 24 00730 M00S00652.iedit +++| BX6 X2*X3 00731 M00S00653.iedit +++| LX6 24 00732 M00S00654.iedit +++| SA6 FLNGTH 00733 M00S00655.iedit +++| SA1 FNUM 00734 M00S00656.iedit +++| SX2 X1-MXIL-1 00735 M00S00657.iedit +++| PL X2,IED3 IF A SEQUENTIAL COMMAND 00736 M00S00658.iedit +++| SX7 B0+ 00737 M00S00659.iedit +++| RJ RSF REWIND SCRATCH FILES 00738 M00S00660.iedit +++| RJ MRD PROCESS A *MOVE*, *READ*, OR *DUP* 00739 M00S00661.iedit +++| EQ IED4 POST PROCESS COMMAND 00740 M00S00662.iedit +++| 00741 M00S00663.iedit +++| IED3 RJ PSC PROCESS A SEQUENTIAL COMMAND 00742 M00S00664.iedit +++| IED4 SA1 NTL 00743 M00S00665.iedit +++| ZR X1,IED6 IF NO TRUNCATED LINES 00744 M00S00666.iedit +++| RJ CDD REPORT TRUNCATIONS 00745 M00S00667.iedit +++| MX0 B2 DELETE TRAILING SPACES 00746 M00S00668.iedit +++| BX1 X0*X4 00747 M00S00669.iedit +++| SB2 1RZ 00748 M00S00670.iedit +++| SB5 ERRLTF 00749 M00S00671.iedit +++| RJ SNM SET NAME IN MESSAGE 00750 M00S00672.iedit +++| SB5 ERRLTF 00751 M00S00673.iedit +++| SB2 1RQ 00752 M00S00674.iedit +++| SA2 FNUM 00753 M00S00675.iedit +++| SA1 X2+TOFN-1 00754 M00S00676.iedit +++| LX1 18 00755 M00S00677.iedit +++| SA1 X1 00756 M00S00678.iedit +++| RJ SNM SET NAME IN MESSAGE
| Line S00679 Modification History | |
|---|---|
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 00757 M01S00679.iedit2 ---| WRITEC O,ERRLTF
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 00758 M01S00074.iedit2 +++| WRITEC O,ERRLTF *ZZZZZ LINES TRUNCATED ON FILE QQQQQQQ.* 00759 M00S00680.iedit +++| SA3 TRNCFET PREPARE TO PRINT TRUNCATED NUMBERS 00760 M00S00681.iedit +++| MX2 42 00761 M00S00682.iedit +++| BX3 -X2*X3 00762 M00S00683.iedit +++| SX2 A3 00763 M00S00684.iedit +++| SX3 X3-3 00764 M00S00685.iedit +++| ZR X3,IED5 IF BUFFER NEVER WRITTEN TO DISK 00765 M00S00686.iedit +++| SX3 B1+ INDICATE ON-DISK STATUS 00766 M00S00687.iedit +++| RJ ERT 00767 M00S00688.iedit +++| RETURN TRNCFET 00768 M00S00689.iedit +++| EQ IED6 PERFORM FINAL PROCESSING 00769 M00S00690.iedit +++| 00770 M00S00691.iedit +++| IED5 RJ ERT ECHO RECORD TO TERMINAL 00771 M00S00692.iedit +++| IED6 SA1 FNUM 00772 M00S00693.iedit +++| SX1 X1-MXIL-1 00773 M00S00694.iedit +++| PL X1,IED8 IF SEQUENTIAL COMMAND 00774 M00S00695.iedit +++| SA1 APPFLG SET SORT FLAG IN TERMINAL TABLE 00775 M00S00696.iedit +++| ZR X1,IED7 IF SORT STATUS DID NOT CHANGE 00776 M00S00697.iedit +++| SYSTEM TLX,R,X1,1000B 00777 M00S00698.iedit +++| IED7 SX7 B1 00778 M00S00699.iedit +++| RJ RSF RETURN SCRATCH FILES 00779 M00S00700.iedit +++| IED8 WRITER O 00780 M00S00701.iedit +++| ENDRUN 00781 M00S00702.iedit +++| 00782 M00S00703.iedit +++| IED9 SX5 ERRNES *NOT ENOUGH BUFFER SPACE AVAILABLE.* 00783 M00S00704.iedit +++| EQ ERR EXIT TO ERROR PROCESSOR 00784 M00S00705.iedit +++| TITLE FUNCTION PROCESSORS. 00785 M00S00706.iedit +++| MRD SPACE 4,15 00786 M00S00707.iedit +++|** MRD - *MOVE*, *READ*, AND *DUP* FUNCTION PROCESSOR. 00787 M00S00708.iedit +++|* 00788 M00S00709.iedit +++|* ENTRY (FILEN) = NAME OF *READ* FILE IF *READ* COMMAND. 00789 M00S00710.iedit +++|* 00790 M00S00711.iedit +++|* EXIT CHANGE RECORDS APPENDED TO END OF EDIT FILE. 00791 M00S00712.iedit +++|* 00792 M00S00713.iedit +++|* USES X - 1, 2, 3, 5, 6, 7. 00793 M00S00714.iedit +++|* A - 1, 2, 3, 5, 6, 7. 00794 M00S00715.iedit +++|* 00795 M00S00716.iedit +++|* CALLS AEC, CBR, PLO, RLN, SLF, SLN, SLT. 00796 M00S00717.iedit +++|* 00797 M00S00718.iedit +++|* NOTES ALL LINES FROM THE *READ* FILE ARE IMPLICITLY 00798 M00S00719.iedit +++|* SELECTED FOR INSERTION INTO THE EDIT FILE. 00799 M00S00720.iedit +++| 00800 M00S00721.iedit +++| 00801 M00S00722.iedit +++| MRD SUBR ENTRY/EXIT 00802 M00S00723.iedit +++| RJ SLF SELECT LINES FROM FILE 00803 M00S00724.iedit +++| SA1 FNUM 00804 M00S00725.iedit +++| SX1 X1-FNRE 00805 M00S00726.iedit +++| NZ X1,MRD1 IF NOT A *READ* COMMAND 00806 M00S00727.iedit +++| SX2 L SET *READ* FILE NAME INTO FET *L* 00807 M00S00728.iedit +++| SA5 FILEN 00808 M00S00729.iedit +++| RJ SLN 00809 M00S00730.iedit +++| SX7 B1+ 00810 M00S00731.iedit +++| SA7 LBFILE 00811 M00S00732.iedit +++| MRD1 SA5 TSF+6 00812 M00S00733.iedit +++| SX2 SCR1 00813 M00S00734.iedit +++| RJ SLN RESTORE *ZZZZZG6* INTO FET *SCR1* 00814 M00S00735.iedit +++| SX5 B0+ 00815 M00S00736.iedit +++| RJ SBE SET *SCR1* EMPTY 00816 M00S00737.iedit +++| SX7 B0+ 00817 M00S00738.iedit +++| RJ RLN REPLACE LINE NUMBER ON LINE 00818 M00S00739.iedit +++| SA2 FNUM 00819 M00S00740.iedit +++| SX2 X2-FNRE 00820 M00S00741.iedit +++| NZ X2,MRD2 IF NOT A *READ* COMMAND 00821 M00S00742.iedit +++| SX2 L SET *ZZZZZG0* INTO FET *L* 00822 M00S00743.iedit +++| SA5 TSF+0 00823 M00S00744.iedit +++| RJ SLN 00824 M00S00745.iedit +++| MRD2 RJ PLO PROCESS LINE OVERLAP 00825 M00S00746.iedit +++| SA1 BOP 00826 M00S00747.iedit +++| ZR X1,MRD3 IF NOT IN *BASIC* SUBSYSTEM 00827 M00S00748.iedit +++| SA1 UNRF CHECK FOR AN UNNUMBERED *READ* FILE 00828 M00S00749.iedit +++| SA2 OVLPFG CHECK FOR NO OVERLAPPED LINES 00829 M00S00750.iedit +++| BX1 -X2*X1 00830 M00S00751.iedit +++| NZ X1,MRD3 IF BOTH CONDITIONS TRUE 00831 M00S00752.iedit +++| RJ SLT SORT LINE NUMBER TABLE 00832 M00S00753.iedit +++| RJ CBR CALL *BASIC* RESEQUENCER 00833 M00S00754.iedit +++| MRD3 SA1 SCRFIL 00834 M00S00755.iedit +++| ZR X1,MRD4 IF NOTHING WRITTEN TO DELETED LINES FILE 00835 M00S00756.iedit +++| SX2 SCR 00836 M00S00757.iedit +++| SA5 TSF+6 00837 M00S00758.iedit +++| RJ SLN PUT DELETED LINES RECORD FILE NAME IN FET 00838 M00S00759.iedit +++| SA5 EFN 00839 M00S00760.iedit +++| SX3 B1 00840 M00S00761.iedit +++| SX6 B0 00841 M00S00762.iedit +++| SA6 LSTFIL 00842 M00S00763.iedit +++| RJ AEC APPEND LINE NUMBERS TO EDIT FILE 00843 M00S00764.iedit +++| SA1 LOP 00844 M00S00765.iedit +++| SX6 X1+ 00845 M00S00766.iedit +++| SA6 LSTFIL 00846 M00S00767.iedit +++| MRD4 SA5 EFN 00847 M00S00768.iedit +++| SA2 LBFET 00848 M00S00769.iedit +++| SA3 LBFILE 00849 M00S00770.iedit +++| RJ AEC APPEND AND ECHO RECORD 00850 M00S00771.iedit +++| EQ MRDX RETURN 00851 M00S00772.iedit +++| TITLE SUBROUTINES. 00852 M00S00773.iedit +++| ABL SPACE 4,10 00853 M00S00774.iedit +++|** ABL - ADD BLANKS TO LINE. 00854 M00S00775.iedit +++|* 00855 M00S00776.iedit +++|* ENTRY (X2) = NUMBER OF DIGITS IN LINE NUMBER. 00856 M00S00777.iedit +++|* (NCOL) = NUMBER OF CHARACTERS IN LINE. 00857 M00S00778.iedit +++|* (BLNK) = BLANK CHARACTER TO BE APPENDED. 00858 M00S00779.iedit +++|* CLIN = ADDRESS OF THE BEGINNING OF THE LINE. 00859 M00S00780.iedit +++|* 00860 M00S00781.iedit +++|* EXIT (NCOL) = X7 = NUMBER OF CHARACTERS IN LINE. 00861 M00S00782.iedit +++|* PROPER NUMBER OF BLANKS APPENDED TO LINE, NOT 00862 M00S00783.iedit +++|* TO EXCEED *MXCIL*. 00863 M00S00784.iedit +++|* 00864 M00S00785.iedit +++|* USES X - 1, 2, 3, 4, 6, 7. 00865 M00S00786.iedit +++|* A - 1, 3, 4, 6, 7. 00866 M00S00787.iedit +++| 00867 M00S00788.iedit +++| 00868 M00S00789.iedit +++| ABL SUBR ENTRY/EXIT 00869 M00S00790.iedit +++| SA1 NCOL 00870 M00S00791.iedit +++| SA4 BLNK 00871 M00S00792.iedit +++| ABL1 SA3 X1+CLIN-1 00872 M00S00793.iedit +++| SX1 X1-1 00873 M00S00794.iedit +++| BX3 X3-X4 00874 M00S00795.iedit +++| ZR X3,ABL1 IF CHARACTER A BLANK 00875 M00S00796.iedit +++| SX7 X1+B1 00876 M00S00797.iedit +++| SX1 MXCIL 00877 M00S00798.iedit +++| SA3 X7+CLIN-1 00878 M00S00799.iedit +++| BX6 X4 00879 M00S00800.iedit +++| IX4 X7-X1 00880 M00S00801.iedit +++| PL X4,ABL4 IF LINE HAS REACHED *MXCIL* 00881 M00S00802.iedit +++| NZ X3,ABL2 IF LINE DOES NOT END IN A COLON 00882 M00S00803.iedit +++| SA6 X7+CLIN ADD A BLANK AFTER THE COLON 00883 M00S00804.iedit +++| SX7 X7+B1 UPDATE *NCOL* 00884 M00S00805.iedit +++| IX4 X7-X1 00885 M00S00806.iedit +++| PL X4,ABL4 IF LINE HAS REACHED *MXCIL* 00886 M00S00807.iedit +++| ABL2 IX2 X2-X7 00887 M00S00808.iedit +++| NZ X2,ABL3 IF LINE CONTAINS MORE THAN A LINE NUMBER 00888 M00S00809.iedit +++| SA6 X7+CLIN 00889 M00S00810.iedit +++| SX7 X7+2 00890 M00S00811.iedit +++| SA6 A6+1 00891 M00S00812.iedit +++| ABL3 BX2 X7 00892 M00S00813.iedit +++| LX2 59-0 00893 M00S00814.iedit +++| PL X2,ABL4 IF LINE HAS AN EVEN NUMBER OF CHARACTERS 00894 M00S00815.iedit +++| SA6 X7+CLIN 00895 M00S00816.iedit +++| SX7 X7+1 00896 M00S00817.iedit +++| ABL4 SA7 NCOL 00897 M00S00818.iedit +++| EQ ABLX RETURN 00898 M00S00819.iedit +++| ABS SPACE 4,20 00899 M00S00820.iedit +++|** ABS - ALLOCATE BUFFER SPACE. 00900 M00S00821.iedit +++|* 00901 M00S00822.iedit +++|* ENTRY (A1) = TABLE NUMBER BEING ALLOCATED. 00902 M00S00823.iedit +++|* (X2) = WORD COUNT (+ OR -) TO BE ALLOCATED. 00903 M00S00824.iedit +++|* (DYNST) = AMOUNT OF DYNAMIC STORAGE LEFT. 00904 M00S00825.iedit +++|* 00905 M00S00826.iedit +++|* EXIT (DYNST) = AMOUNT OF DYNAMIC STORAGE LEFT. 00906 M00S00827.iedit +++|* (X6) .LT. 0, IF NOT ENOUGH MEMORY AVAILABLE. 00907 M00S00828.iedit +++|* 00908 M00S00829.iedit +++|* USES X - 1, 2, 3, 6, 7. 00909 M00S00830.iedit +++|* A - 0, 1, 2, 3, 6, 7. 00910 M00S00831.iedit +++|* 00911 M00S00832.iedit +++|* CALLS RAF. 00912 M00S00833.iedit +++|* 00913 M00S00834.iedit +++|* MACROS ALLOC, MEMORY. 00914 M00S00835.iedit +++|* 00915 M00S00836.iedit +++|* NOTES THERE MUST BE NO *CIO* ACTIVITY (ALL FETS MUST BE 00916 M00S00837.iedit +++|* *RECALLED*) BEFORE CALLING *ALLOC*. 00917 M00S00838.iedit +++| 00918 M00S00839.iedit +++| 00919 M00S00840.iedit +++| ABS3 BX6 X1 00920 M00S00841.iedit +++| SA6 CMEM 00921 M00S00842.iedit +++| SX6 -B1 00922 M00S00843.iedit +++| 00923 M00S00844.iedit +++| ABS SUBR ENTRY/EXIT 00924 M00S00845.iedit +++| SX6 A1 SAVE ENTRY CONDITIONS 00925 M00S00846.iedit +++| SX7 X2 00926 M00S00847.iedit +++| SA6 ABSA 00927 M00S00848.iedit +++| SA7 ABSB 00928 M00S00849.iedit +++| RJ RAF RECALL ALL FETS 00929 M00S00850.iedit +++| ABS1 SA2 ABSA RESTORE ENTRY CONDITIONS 00930 M00S00851.iedit +++| SA1 ABSB 00931 M00S00852.iedit +++| SA0 X2 00932 M00S00853.iedit +++| SA3 DYNST AMOUNT OF DYNAMIC STORAGE LEFT 00933 M00S00854.iedit +++| IX6 X3-X1 00934 M00S00855.iedit +++| NG X6,ABS2 IF NOT ENOUGH DYNAMIC STORAGE 00935 M00S00856.iedit +++| SA6 DYNST 00936 M00S00857.iedit +++| ALLOC A0,X1 00937 M00S00858.iedit +++| BX6 X6-X6 INDICATE SUCCESSFUL REALLOCATION 00938 M00S00859.iedit +++| EQ ABSX RETURN 00939 M00S00860.iedit +++| 00940 M00S00861.iedit +++|* SET UP MEMORY REQUEST. 00941 M00S00862.iedit +++| 00942 M00S00863.iedit +++| ABS2 SA1 CMEM GET CURRENT MEMORY 00943 M00S00864.iedit +++| SX3 MINCR 00944 M00S00865.iedit +++| IX2 X1+X3 00945 M00S00866.iedit +++| SA3 CMAX 00946 M00S00867.iedit +++| IX6 X3-X2 00947 M00S00868.iedit +++| NG X6,ABSX IF REQUEST WOULD EXCEED VALIDATION LIMITS 00948 M00S00869.iedit +++| BX6 X2 00949 M00S00870.iedit +++| SA6 A1 UPDATE *CMEM* 00950 M00S00871.iedit +++| LX6 30-0 00951 M00S00872.iedit +++| SA6 MSTAT 00952 M00S00873.iedit +++| MEMORY CM,MSTAT,R,,NA REQUEST ADDITIONAL MEMORY 00953 M00S00874.iedit +++| SA1 MSTAT 00954 M00S00875.iedit +++| SA2 CMEM 00955 M00S00876.iedit +++| AX1 30 00956 M00S00877.iedit +++| BX2 X1-X2 00957 M00S00878.iedit +++| NZ X2,ABS3 IF REQUEST NOT HONORED 00958 M00S00879.iedit +++| SA3 F.TEND UPDATE LWA OF TABLE 00959 M00S00880.iedit +++| SX2 MINCR 00960 M00S00881.iedit +++| SA1 DYNST 00961 M00S00882.iedit +++| IX6 X3+X2 00962 M00S00883.iedit +++| IX7 X1+X2 00963 M00S00884.iedit +++| SA6 A3 00964 M00S00885.iedit +++| SA7 A1 00965 M00S00886.iedit +++| EQ ABS1 ALLOCATE SPACE FOR TABLE 00966 M00S00887.iedit +++| 00967 M00S00888.iedit +++| ABSA CON 0 ENTRY CONDITIONS 00968 M00S00889.iedit +++| ABSB CON 0 00969 M00S00890.iedit +++| AEC SPACE 4,20 00970 M00S00891.iedit +++|** AEC - APPEND AND ECHO CHANGE RECORD. 00971 M00S00892.iedit +++|* 00972 M00S00893.iedit +++|* ENTRY (X5) = NAME OF THE FILE TO APPEND TO. 00973 M00S00894.iedit +++|* (X2) = FET ADDRESS OF BUFFER CONTAINING RECORD. 00974 M00S00895.iedit +++|* (X3) = 0, IF CHANGE RECORD IS BUFFER RESIDENT. 00975 M00S00896.iedit +++|* 1, IF CHANGE RECORD IS DISK RESIDENT. 00976 M00S00897.iedit +++|* (LSTFIL) = 0, IF LIST OPTION IS OFF. 00977 M00S00898.iedit +++|* 1, IF LIST OPTION IS ON. 00978 M00S00899.iedit +++|* 00979 M00S00900.iedit +++|* EXIT (X2) = UNCHANGED. 00980 M00S00901.iedit +++|* RECORD APPENDED TO FILE AND ECHOED TO TERMINAL. 00981 M00S00902.iedit +++|* 00982 M00S00903.iedit +++|* USES X - 1, 2, 3, 5, 6, 7. 00983 M00S00904.iedit +++|* A - 1, 2, 3, 5, 6, 7. 00984 M00S00905.iedit +++|* 00985 M00S00906.iedit +++|* CALLS CBO, SBE, SLN. 00986 M00S00907.iedit +++|* 00987 M00S00908.iedit +++|* MACROS READEI, REWIND, WRITE, WRITER. 00988 M00S00909.iedit +++| 00989 M00S00910.iedit +++| 00990 M00S00911.iedit +++| AEC SUBR ENTRY/EXIT 00991 M00S00912.iedit +++| BX7 X2 00992 M00S00913.iedit +++| BX6 X5 00993 M00S00914.iedit +++| SA7 AECC 00994 M00S00915.iedit +++| SA6 A7-B1 SAVE APPENDED FILE NAME 00995 M00S00916.iedit +++| SA1 X2+3 *OUT* WILL BE FIRST CBO PARAMETER 00996 M00S00917.iedit +++| BX6 X1 00997 M00S00918.iedit +++| SA6 AECD 00998 M00S00919.iedit +++| ZR X3,AEC4 IF RECORD IS BUFFER RESIDENT 00999 M00S00920.iedit +++| MX3 42 01000 M00S00921.iedit +++| SA1 X2 01001 M00S00922.iedit +++| BX6 X1*X3 01002 M00S00923.iedit +++| SA6 AECA STORE ORIGINAL FILE NAME 01003 M00S00924.iedit +++| REWIND X2,R 01004 M00S00925.iedit +++| SA1 X2+3 *OUT* WILL BE FIRST CBO PARAMETER 01005 M00S00926.iedit +++| BX6 X1 01006 M00S00927.iedit +++| SA6 AECD 01007 M00S00928.iedit +++| AEC1 READEI X2,R 01008 M00S00929.iedit +++| SA1 LSTFIL 01009 M00S00930.iedit +++| NZ X1,AEC2 IF LIST OPTION IS ON 01010 M00S00931.iedit +++| SX2 O 01011 M00S00932.iedit +++| SX5 B0 01012 M00S00933.iedit +++| RJ SBE SET *OUTPUT* BUFFER EMPTY 01013 M00S00934.iedit +++| SA2 AECC 01014 M00S00935.iedit +++| AEC2 SA1 X2 01015 M00S00936.iedit +++| LX1 59-9 01016 M00S00937.iedit +++| NG X1,AEC4 IF LAST BUFFER OF DATA 01017 M00S00938.iedit +++| SA5 AECB 01018 M00S00939.iedit +++| RJ SLN PUT APPENDED FILE NAME IN FET 01019 M00S00940.iedit +++| SA1 LSTFIL 01020 M00S00941.iedit +++| ZR X1,AEC3 IF LINES NOT TO BE ECHOED TO TERMINAL 01021 M00S00942.iedit +++| SA3 AECD 01022 M00S00943.iedit +++| RJ CBO COPY BUFFER TO OUTPUT FROM (X3) 01023 M00S00944.iedit +++| BX6 X3 SAVE UPDATED CBO PARAMETER 01024 M00S00945.iedit +++| SA6 AECD 01025 M00S00946.iedit +++| SA2 AECC 01026 M00S00947.iedit +++| AEC3 SX6 B1+ 01027 M00S00948.iedit +++| SA6 APPFLG 01028 M00S00949.iedit +++| WRITE X2,R APPEND LINES TO FILE 01029 M00S00950.iedit +++| SA5 AECA 01030 M00S00951.iedit +++| RJ SLN PUT ORIGINAL FILE NAME BACK IN FET 01031 M00S00952.iedit +++| EQ AEC1 READ IN NEXT SEGMENT 01032 M00S00953.iedit +++| 01033 M00S00954.iedit +++| AEC4 SA2 AECC 01034 M00S00955.iedit +++| SA5 AECB 01035 M00S00956.iedit +++| RJ SLN PUT APPENDED FILE NAME IN FET 01036 M00S00957.iedit +++| SA1 LSTFIL 01037 M00S00958.iedit +++| ZR X1,AEC5 IF LINES NOT TO BE ECHOED TO TERMINAL 01038 M00S00959.iedit +++| SA3 AECD 01039 M00S00960.iedit +++| RJ CBO COPY BUFFER TO OUTPUT 01040 M00S00961.iedit +++| AEC5 SX6 B1+ 01041 M00S00962.iedit +++| SA6 APPFLG 01042 M00S00963.iedit +++| WRITER X2,R FLUSH BUFFER TO APPENDED FILE 01043 M00S00964.iedit +++| EQ AECX RETURN 01044 M00S00965.iedit +++| 01045 M00S00966.iedit +++| AECA CON 0 ORIGINAL FILE NAME 01046 M00S00967.iedit +++| AECB CON 0 FILE NAME OF FILE TO APPEND TO 01047 M00S00968.iedit +++| AECC CON 0 FET ADDRESS 01048 M00S00969.iedit +++| AECD CON 0 CBO START POINTER 01049 M00S00970.iedit +++| CBO SPACE 4,15 01050 M00S00971.iedit +++|** CBO - COPY BUFFER TO OUTPUT. 01051 M00S00972.iedit +++|* 01052 M00S00973.iedit +++|* ENTRY (X2) = FET WHOSE BUFFER IS TO BE PRINTED. 01053 M00S00974.iedit +++|* (X3) = FIRST LOCATION TO TRANSMIT, INITIALLY *OUT*. 01054 M00S00975.iedit +++|* 01055 M00S00976.iedit +++|* EXIT (X2) = UNCHANGED. 01056 M00S00977.iedit +++|* (X3) = LAST LOCATION TRANSMITTED + 1. 01057 M00S00978.iedit +++|* 01058 M00S00979.iedit +++|* USES X - 1, 2, 3, 4, 6. 01059 M00S00980.iedit +++|* A - 1, 2, 3, 4, 6. 01060 M00S00981.iedit +++|* B - 6, 7. 01061 M00S00982.iedit +++|* 01062 M00S00983.iedit +++|* CALLS WTO. 01063 M00S00984.iedit +++| 01064 M00S00985.iedit +++| 01065 M00S00986.iedit +++| CBO SUBR ENTRY/EXIT 01066 M00S00987.iedit +++| BX6 X2 01067 M00S00988.iedit +++| SA6 CBOA SAVE FET ADDRESS 01068 M00S00989.iedit +++| SA1 X2+B1 FIRST 01069 M00S00990.iedit +++| SA4 X2+4 LIMIT 01070 M00S00991.iedit +++| SA2 A1+B1 IN 01071 M00S00992.iedit +++| SB6 X3 FIRST LOCATION TO OUTPUT 01072 M00S00993.iedit +++| SB7 X2+ *IN* POINTER 01073 M00S00994.iedit +++| SB7 B7-B6 01074 M00S00995.iedit +++| ZR B7,CBO2 IF BUFFER EMPTY 01075 M00S00996.iedit +++| NG B7,CBO1 IF BUFFER WRAPS AROUND 01076 M00S00997.iedit +++| RJ WTO 01077 M00S00998.iedit +++| EQ CBO2 EXIT 01078 M00S00999.iedit +++| 01079 M00S01000.iedit +++|* PROCESS BUFFER WRAPAROUND. 01080 M00S01001.iedit +++| 01081 M00S01002.iedit +++| CBO1 SB7 X4 LIMIT 01082 M00S01003.iedit +++| SB7 B7-B6 COPY FIRST PART OF DATA 01083 M00S01004.iedit +++| RJ WTO 01084 M00S01005.iedit +++| SA2 CBOA 01085 M00S01006.iedit +++| SA1 X2+B1 FIRST 01086 M00S01007.iedit +++| SA2 A1+B1 IN 01087 M00S01008.iedit +++| SB6 X1 01088 M00S01009.iedit +++| SB7 X2 01089 M00S01010.iedit +++| SB7 B7-B6 COPY SECOND PART OF DATA 01090 M00S01011.iedit +++| RJ WTO 01091 M00S01012.iedit +++| CBO2 SA2 CBOA RESTORE FET ADDRESS 01092 M00S01013.iedit +++| SA3 X2+2 01093 M00S01014.iedit +++| EQ CBOX RETURN 01094 M00S01015.iedit +++| 01095 M00S01016.iedit +++| CBOA CON 0 FET ADDRESS OF BUFFER TO OUTPUT 01096 M00S01017.iedit +++| CBR SPACE 4,15 01097 M00S01018.iedit +++|** CBR - CALL *BASIC* RESEQUENCER. 01098 M00S01019.iedit +++|* 01099 M00S01020.iedit +++|* EXIT *BASIC* RESEQUENCING COMPLETED. 01100 M00S01021.iedit +++|* 01101 M00S01022.iedit +++|* USES X - 0, 1, 2, 3, 6, 7. 01102 M00S01023.iedit +++|* A - 1, 2, 3. 01103 M00S01024.iedit +++|* 01104 M00S01025.iedit +++|* CALLS OVL=, PBR. 01105 M00S01026.iedit +++| 01106 M00S01027.iedit +++| 01107 M00S01028.iedit +++| CBR SUBR ENTRY/EXIT 01108 M00S01029.iedit +++| SA1 =0LIEDIT1 01109 M00S01030.iedit +++| SA2 ACTR GET FILE NAME 01110 M00S01031.iedit +++| SA3 LWPR GET FILE/SYSTEM LOAD FLAG 01111 M00S01032.iedit +++| SX6 B1+ 01112 M00S01033.iedit +++| SX0 B1 01113 M00S01034.iedit +++| MX7 42 01114 M00S01035.iedit +++| LX3 59-18 01115 M00S01036.iedit +++| LX0 12-0 01116 M00S01037.iedit +++| NG X3,CBR1 IF LOADED FROM SYSTEM 01117 M00S01038.iedit +++| BX1 X2*X7 01118 M00S01039.iedit +++| SX6 B0 01119 M00S01040.iedit +++| CBR1 BX6 X0+X6 01120 M00S01041.iedit +++| SX2 B0 01121 M00S01042.iedit +++| RJ OVL= LOAD THE *BASIC* OVERLAY 01122 M00S01043.iedit +++| RJ /IEDIT1/PBR 01123 M00S01044.iedit +++| EQ CBRX RETURN 01124 M00S01045.iedit +++| CLN SPACE 4,20 01125 M00S01046.iedit +++|** CLN - CHECK IF LINE NUMBER IS IN LINE RANGE TABLE. 01126 M00S01047.iedit +++|* 01127 M00S01048.iedit +++|* ENTRY ((A5)) = (X5) = PACKED LINE NUMBER TO BE EVALUATED. 01128 M00S01049.iedit +++|* 01129 M00S01050.iedit +++|* EXIT (X4) = 0, IF LINE NUMBER NOT IN *LRT* 01130 M00S01051.iedit +++|* .NE. 0, IF LINE NUMBER IS IN *LRT*. 01131 M00S01052.iedit +++|* (X3) = 0, IF LINE NOT FOLLOWED BY AT LEAST TWO 01132 M00S01053.iedit +++|* BLANKS OR A NON-BLANK CHARACTER. 01133 M00S01054.iedit +++|* (X6) = LINE NUMBER OF LINE IN BINARY FORM. 01134 M00S01055.iedit +++|* (X7) = NUMBER OF DIGITS IN LINE NUMBER. 01135 M00S01056.iedit +++|* 01136 M00S01057.iedit +++|* USES X - 1, 4, 5. 01137 M00S01058.iedit +++|* A - 5. 01138 M00S01059.iedit +++|* B - 3, 4, 5. 01139 M00S01060.iedit +++|* 01140 M00S01061.iedit +++|* CALLS VPL. 01141 M00S01062.iedit +++|* 01142 M00S01063.iedit +++|* NOTES IF *LRT* (LINE RANGE TABLE) IS EMPTY, ALL LINES 01143 M00S01064.iedit +++|* ARE ASSUMED TO HAVE BEEN SELECTED. 01144 M00S01065.iedit +++| 01145 M00S01066.iedit +++| 01146 M00S01067.iedit +++| CLN SUBR ENTRY/EXIT 01147 M00S01068.iedit +++| RJ VPL GET LINE NUMBER 01148 M00S01069.iedit +++| SX5 ERRNLN *NO LINE NUMBER ON LINE.* 01149 M00S01070.iedit +++| ZR X7,ERR IF NO LINE NUMBER ON LINE 01150 M00S01071.iedit +++| SA5 NELR 01151 M00S01072.iedit +++| MX4 1 01152 M00S01073.iedit +++| SB5 X6 01153 M00S01074.iedit +++| ZR X5,CLNX IF NO LINE NUMBERS IN *LRT* 01154 M00S01075.iedit +++| SA5 LRT-1 INITIALIZE POINTER TO BEFORE *LRT* 01155 M00S01076.iedit +++| CLN1 SA5 A5+B1 CHECK *LRT* ENTRY 01156 M00S01077.iedit +++| SB4 X5 CHECK LOW ORDER VALUE 01157 M00S01078.iedit +++| LT B5,B4,CLN2 IF LINE NUMBER NOT IN TABLE 01158 M00S01079.iedit +++| SB3 -18 SET HIGH ORDER VALUE 01159 M00S01080.iedit +++| LX1 X5,B3 01160 M00S01081.iedit +++| SB3 X1 01161 M00S01082.iedit +++| LE B5,B3,CLNX IF LINE NUMBER IN *LRT* 01162 M00S01083.iedit +++| PL X5,CLN1 IF NOT AT END OF *LRT* 01163 M00S01084.iedit +++| CLN2 SX4 B0+ NUMBER NOT IN *LRT* 01164 M00S01085.iedit +++| EQ CLNX RETURN 01165 M00S01086.iedit +++| CNL SPACE 4,15 01166 M00S01087.iedit +++|** CNL - CONVERT AND NORMALIZE LINE NUMBER. 01167 M00S01088.iedit +++|* 01168 M00S01089.iedit +++|* ENTRY (X1) = LINE NUMBER, RIGHT JUSTIFIED, IN BINARY. 01169 M00S01090.iedit +++|* 01170 M00S01091.iedit +++|* EXIT (X6) = LINE NUMBER IN DISPLAY CODE. 01171 M00S01092.iedit +++|* 01172 M00S01093.iedit +++|* USES X - 1, 4, 6. 01173 M00S01094.iedit +++|* 01174 M00S01095.iedit +++|* CALLS CDD. 01175 M00S01096.iedit +++| 01176 M00S01097.iedit +++| 01177 M00S01098.iedit +++| CNL SUBR ENTRY/EXIT 01178 M00S01099.iedit +++| SX4 100000 01179 M00S01100.iedit +++| IX1 X1+X4 ENSURE LEADING ZEROES 01180 M00S01101.iedit +++| RJ CDD CONVERT TO DECIMAL DISPLAY CODE 01181 M00S01102.iedit +++| MX6 NBIC*NUMD 01182 M00S01103.iedit +++| LX4 NBIC TRUNCATE LEADING *1* DIGIT 01183 M00S01104.iedit +++| BX6 X4*X6 01184 M00S01105.iedit +++| EQ CNLX RETURN 01185 M00S01106.iedit +++| ERT SPACE 4,20 01186 M00S01107.iedit +++|** ERT - ECHO RECORD TO TERMINAL. 01187 M00S01108.iedit +++|* 01188 M00S01109.iedit +++|* ENTRY (X2) = FET ADDRESS OF BUFFER CONTAINING RECORD. 01189 M00S01110.iedit +++|* (X3) = 0, IF RECORD IS BUFFER RESIDENT. 01190 M00S01111.iedit +++|* 1, IF RECORD IS DISK RESIDENT. 01191 M00S01112.iedit +++|* (LSTFIL) = 0, IF LIST OPTION IS OFF. 01192 M00S01113.iedit +++|* 1, IF LIST OPTION IS ON. 01193 M00S01114.iedit +++|* 01194 M00S01115.iedit +++|* USES X - 1, 3, 5, 6. 01195 M00S01116.iedit +++|* A - 1, 3, 6. 01196 M00S01117.iedit +++|* 01197 M00S01118.iedit +++|* CALLS CBO, SBE. 01198 M00S01119.iedit +++|* 01199 M00S01120.iedit +++|* MACROS READEI, REWIND. 01200 M00S01121.iedit +++| 01201 M00S01122.iedit +++| 01202 M00S01123.iedit +++| ERT SUBR ENTRY/EXIT 01203 M00S01124.iedit +++| SA1 LSTFIL 01204 M00S01125.iedit +++| ZR X1,ERTX IF LIST OPTION IS OFF 01205 M00S01126.iedit +++| ZR X3,ERT2 IF RECORD IS BUFFER RESIDENT 01206 M00S01127.iedit +++| MX3 42 01207 M00S01128.iedit +++| SA1 X2 01208 M00S01129.iedit +++| BX6 X1*X3 01209 M00S01130.iedit +++| SA6 ERTA SAVE ORIGINAL FILE NAME 01210 M00S01131.iedit +++| REWIND X2 01211 M00S01132.iedit +++| ERT1 READEI X2,R 01212 M00S01133.iedit +++| SA1 LSTFIL 01213 M00S01134.iedit +++| ZR X1,ERTX IF LINES NOT TO BE ECHOED 01214 M00S01135.iedit +++| SA1 X2 01215 M00S01136.iedit +++| LX1 59-9 01216 M00S01137.iedit +++| NG X1,ERT2 IF LAST BUFFER OF DATA 01217 M00S01138.iedit +++| SA3 X2+3 COPY BUFFER TO OUTPUT 01218 M00S01139.iedit +++| RJ CBO 01219 M00S01140.iedit +++| SX5 B0+ 01220 M00S01141.iedit +++| RJ SBE 01221 M00S01142.iedit +++| EQ ERT1 READ IN NEXT SEGMENT 01222 M00S01143.iedit +++| 01223 M00S01144.iedit +++| ERT2 SA3 X2+3 COPY BUFFER TO OUTPUT 01224 M00S01145.iedit +++| RJ CBO 01225 M00S01146.iedit +++| EQ ERTX RETURN 01226 M00S01147.iedit +++| 01227 M00S01148.iedit +++| ERTA CON 0 ORIGINAL FILE NAME 01228 M00S01149.iedit +++| ERR SPACE 4,10 01229 M00S01150.iedit +++|** ERR - ERROR PROCESSOR. 01230 M00S01151.iedit +++|* 01231 M00S01152.iedit +++|* ENTRY (X5) = FWA OF ERROR MESSAGE. 01232 M00S01153.iedit +++|* 01233 M00S01154.iedit +++|* EXIT ABORTS AFTER ISSUING APPROPRIATE MESSAGE. 01234 M00S01155.iedit +++|* 01235 M00S01156.iedit +++|* USES X - 1. 01236 M00S01157.iedit +++|* A - 1. 01237 M00S01158.iedit +++|* 01238 M00S01159.iedit +++|* CALLS RSF. 01239 M00S01160.iedit +++|* 01240 M00S01161.iedit +++|* MACROS ABORT, SYSTEM, WRITEC. 01241 M00S01162.iedit +++| 01242 M00S01163.iedit +++| 01243 M00S01164.iedit +++| ERR BSS 0 ENTRY 01244 M00S01165.iedit +++| ZR X5,ERR1 IF NO MESSAGE TO ISSUE 01245 M00S01166.iedit +++| WRITEC O,X5 01246 M00S01167.iedit +++| ERR1 SA1 APPFLG 01247 M00S01168.iedit +++| ZR X1,ERR2 IF SORT STATUS DID NOT CHANGE 01248 M00S01169.iedit +++| SYSTEM TLX,R,X1,1000B 01249 M00S01170.iedit +++| ERR2 RJ RAF RECALL ALL FETS 01250 M00S01171.iedit +++| SX7 B1+ 01251 M00S01172.iedit +++| RJ RSF RETURN SCRATCH FILES 01252 M00S01173.iedit +++| ABORT 01253 M00S01174.iedit +++| 01254 M00S01175.iedit +++| 01255 M00S01176.iedit +++|** FATAL ERRORS - ERRORS WHICH WHEN ENCOUNTERED CAUSE *IEDIT* 01256 M00S01177.iedit +++|* TO ABORT WITHOUT EXECUTING THE COMMAND. 01257 M00S01178.iedit +++| 01258 M00S01179.iedit +++| 01259 M00S01180.iedit +++| ERRBSE DATA C*BUFFER SPACE ERROR (TOV).* 01260 M00S01181.iedit +++| ERRCNP DATA C*COMMAND NOT PROCESSED DUE TO OVERLAP.*
| Line S01182 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01261 M01S01182.v23l617 ---| ERRCSE DATA C*CONTROL STATEMENT ARGUMENT ERROR.*
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01262 M01S00004.v23l617 +++| ERRCSE DATA C*COMMAND ARGUMENT ERROR.* 01263 M00S01183.iedit +++| ERRDFN DATA C*DUPLICATE FILE NAME.* 01264 M00S01184.iedit +++| ERREEF DATA C*EMPTY FILE (SSF).* 01265 M00S01185.iedit +++| ERREIE DATA C*LINE NUMBER OVERLAP ERROR.* 01266 M00S01186.iedit +++| ERREIF DATA C*FILE NAME ERROR.* 01267 M00S01187.iedit +++| ERREII DATA C*LINE NUMBER INCREMENT ERROR.*
| Line S01188 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01268 M01S01188.v23l617 ---| ERREIS DATA C*INVALID SYNTAX.*
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01269 M01S00005.v23l617 +++| ERREIS DATA C*INCORRECT SYNTAX.* 01270 M00S01189.iedit +++| ERRELR DATA C*LINE RANGE ERROR.* 01271 M00S01190.iedit +++| ERRNES DATA C*TOO SMALL BUFFER SPACE.* 01272 M00S01191.iedit +++| ERRNIV DATA C*NON-EXISTENT EDIT VERB SPECIFIED.* 01273 M00S01192.iedit +++| ERRNLF DATA C*NO LINES FOUND.* 01274 M00S01193.iedit +++| ERRNLN DATA C*NO LINE NUMBER ON LINE.* 01275 M00S01194.iedit +++| ERRNRF DATA C*READ FILE EMPTY.* 01276 M00S01195.iedit +++| ERRNRS DATA C*NO READ/DESTINATION FILE SPECIFIED.* 01277 M00S01196.iedit +++| ERRNTL DATA C*LINE NUMBER LIMIT EXCEEDED.* 01278 M00S01197.iedit +++| ERRRFN DATA C*RESERVED FILE NAME.* 01279 M00S01198.iedit +++| 01280 M00S01199.iedit +++| 01281 M00S01200.iedit +++|** INFORMATIVE MESSAGES - ISSUED TO NOTIFY THE USER OF AN 01282 M00S01201.iedit +++|* UNUSUAL CONDITION. THE *IEDIT* COMMAND IS PROCESSED TO 01283 M00S01202.iedit +++|* COMPLETION. 01284 M00S01203.iedit +++| 01285 M00S01204.iedit +++| 01286 M00S01205.iedit +++| ERRLTF DATA C*ZZZZZ LINES TRUNCATED ON FILE QQQQQQQ.* 01287 M00S01206.iedit +++| ERRNDF DATA C*NO CLOSING DELIMITER FOUND.* 01288 M00S01207.iedit +++| MLB SPACE 4,20 01289 M00S01208.iedit +++|** MLB - MANAGE LINE BUFFER. 01290 M00S01209.iedit +++|* 01291 M00S01210.iedit +++|* ENTRY (X2) = ADDRESS OF LINE TO ADD TO INPUT BUFFER. 01292 M00S01211.iedit +++|* .LT. 0, IF LINE IS IN CHARACTER BUFFER. 01293 M00S01212.iedit +++|* (B3) = ADDRESS OF FET TO ADD LINE TO. 01294 M00S01213.iedit +++|* (NCOL) = NUMBER OF CHARACTERS TO BE WRITTEN. 01295 M00S01214.iedit +++|* 01296 M00S01215.iedit +++|* EXIT LINE ADDED TO LINE BUFFER. 01297 M00S01216.iedit +++|* 01298 M00S01217.iedit +++|* USES X - 1, 2, 3, 6, 7. 01299 M00S01218.iedit +++|* A - 1, 2, 3, 6, 7. 01300 M00S01219.iedit +++|* B - 2, 4. 01301 M00S01220.iedit +++|* 01302 M00S01221.iedit +++|* CALLS ABS, PLB, SFI. 01303 M00S01222.iedit +++|* 01304 M00S01223.iedit +++|* MACROS WRITER. 01305 M00S01224.iedit +++| 01306 M00S01225.iedit +++| 01307 M00S01226.iedit +++| MLB SUBR ENTRY/EXIT 01308 M00S01227.iedit +++| SX6 B3 SAVE FET ADDRESS 01309 M00S01228.iedit +++| BX7 X2 01310 M00S01229.iedit +++| SA6 MLBB 01311 M00S01230.iedit +++| SA7 MLBA 01312 M00S01231.iedit +++| SX3 MXWL+1 MAXIMUM WORDS IN A LINE 01313 M00S01232.iedit +++| MX6 -18 01314 M00S01233.iedit +++| SA1 B3+2 GET *IN* POINTER 01315 M00S01234.iedit +++| BX1 -X6*X1 01316 M00S01235.iedit +++| IX1 X1+X3 01317 M00S01236.iedit +++| SA2 B3+4 GET *LIMIT* 01318 M00S01237.iedit +++| BX2 -X6*X2 01319 M00S01238.iedit +++| SX2 X2-1 01320 M00S01239.iedit +++| IX2 X1-X2 01321 M00S01240.iedit +++| SB2 X2 01322 M00S01241.iedit +++| LT B2,MLB2 IF ENOUGH ROOM LEFT IN BUFFER 01323 M00S01242.iedit +++| SB2 L 01324 M00S01243.iedit +++| NE B2,B3,MLB1 IF NOT *LNBUF* 01325 M00S01244.iedit +++| SA1 LBFILE 01326 M00S01245.iedit +++| NZ X1,MLB1 IF BUFFER PREVIOUSLY WRITTEN OUT 01327 M00S01246.iedit +++| SA1 LNBUF 01328 M00S01247.iedit +++| SX2 LBINC 01329 M00S01248.iedit +++| RJ ABS ALLOCATE MORE LINEBUF SPACE 01330 M00S01249.iedit +++| NZ X6,MLB1 IF NOT ENOUGH DYNAMIC STORAGE LEFT 01331 M00S01250.iedit +++| RJ SFI UPDATE FET POINTERS FOR ALLOCATED BUFFERS 01332 M00S01251.iedit +++| EQ MLB2 BUFFER HAS SPACE ENOUGH FOR THE LINE 01333 M00S01252.iedit +++| 01334 M00S01253.iedit +++| MLB1 SX7 B1 SET LINE BUFFER FULL FLAG 01335 M00S01254.iedit +++| SA7 LBFILE 01336 M00S01255.iedit +++| WRITER B3,R WRITE LINE BUFFER TO FILE 01337 M00S01256.iedit +++| SA1 B3+B1 SET LINE BUFFER TO EMPTY 01338 M00S01257.iedit +++| SX6 X1 01339 M00S01258.iedit +++| SA6 A1+B1 01340 M00S01259.iedit +++| SA6 A6+B1 01341 M00S01260.iedit +++| MLB2 SA3 MLBA RESTORE ADDRESS OF LINE TO INSERT 01342 M00S01261.iedit +++| SA2 MLBB RESTORE FET ADDRESS 01343 M00S01262.iedit +++| SA1 X2+2 SET *IN* POINTER 01344 M00S01263.iedit +++| NG X3,MLB4 IF LINE IS UNPACKED 01345 M00S01264.iedit +++| SA3 X3 GET FIRST WORD OF LINE TO BE MOVED 01346 M00S01265.iedit +++| SX7 X1 01347 M00S01266.iedit +++| MX1 -12 01348 M00S01267.iedit +++| MLB3 BX6 X3 01349 M00S01268.iedit +++| SA6 X7+ MOVE WORD 01350 M00S01269.iedit +++| SX7 X7+B1 01351 M00S01270.iedit +++| SA3 A3+B1 GET NEXT WORD 01352 M00S01271.iedit +++| BX6 -X1*X6 01353 M00S01272.iedit +++| NZ X6,MLB3 IF NOT END OF LINE 01354 M00S01273.iedit +++| SA7 X2+2 UPDATE THE *IN* POINTER 01355 M00S01274.iedit +++| EQ MLBX RETURN 01356 M00S01275.iedit +++| 01357 M00S01276.iedit +++| MLB4 SA3 NCOL NUMBER OF CHARACTERS IN LINE 01358 M00S01277.iedit +++| SA1 MLBB 01359 M00S01278.iedit +++| SB2 60 01360 M00S01279.iedit +++| SB4 X3+ 01361 M00S01280.iedit +++| SA1 X1+2 SET UP PARAMETERS FOR *PLB* 01362 M00S01281.iedit +++| SA2 CLIN 01363 M00S01282.iedit +++| SA1 X1 01364 M00S01283.iedit +++| RJ PLB PACK THE LINE INTO THE LINE BUFFER 01365 M00S01284.iedit +++| SX7 A1+1 01366 M00S01285.iedit +++| SA2 MLBB 01367 M00S01286.iedit +++| SA7 X2+2 UPDATE THE *IN* POINTER 01368 M00S01287.iedit +++| EQ MLBX RETURN 01369 M00S01288.iedit +++| 01370 M00S01289.iedit +++| MLBA CON 0 ADDRESS OF LINE TO INSERT 01371 M00S01290.iedit +++| MLBB CON 0 FET ADDRESS 01372 M00S01291.iedit +++| PIT SPACE 4,25 01373 M00S01292.iedit +++|** PIT - PROCESS TERMINAL INTERRUPT. 01374 M00S01293.iedit +++|* 01375 M00S01294.iedit +++|* ENTRY OPERATING SYSTEM HAS DETECTED A USER BREAK 1 OR USER 01376 M00S01295.iedit +++|* BREAK 2. 01377 M00S01296.iedit +++|* 01378 M00S01297.iedit +++|* EXIT IF USER BREAK 1 OCCURRED, CHANGED RECORDS WILL NO 01379 M00S01298.iedit +++|* LONGER BE ECHOED TO THE OUTPUT FILE. 01380 M00S01299.iedit +++|* 01381 M00S01300.iedit +++|* IF USER BREAK 2 OCCURRED, *IEDIT* PROCESSING WILL 01382 M00S01301.iedit +++|* TERMINATE AFTER RESTORING THE EDIT FILE TO ITS 01383 M00S01302.iedit +++|* ORIGINAL CONDITION IF NECESSARY. THE COMPLETE 01384 M00S01303.iedit +++|* BIT IN THE INPUT FET MUST ALSO BE SET SINCE AN 01385 M00S01304.iedit +++|* INPUT REQUEST MAY HAVE BEEN LEFT PENDING AT 01386 M00S01305.iedit +++|* AT THE TIME OF THE INTERRUPT. 01387 M00S01306.iedit +++|* 01388 M00S01307.iedit +++|* USES X - 1, 2, 3, 5, 6, 7. 01389 M00S01308.iedit +++|* A - 1, 3, 5, 6, 7. 01390 M00S01309.iedit +++|* 01391 M00S01310.iedit +++|* CALLS SBE, SLN. 01392 M00S01311.iedit +++|* 01393 M00S01312.iedit +++|* MACROS REPRIEVE, RPHR, WRITEF. 01394 M00S01313.iedit +++| 01395 M00S01314.iedit +++| 01396 M00S01315.iedit +++| PIT BSS 0 ENTRY 01397 M00S01316.iedit +++| SA1 INTFLG 01398 M00S01317.iedit +++| SX6 B1 SET *NOT INTERRRUPTIBLE* 01399 M00S01318.iedit +++| SA6 A1 01400 M00S01319.iedit +++| NZ X1,PIT3 IF NOT INTERRUPTIBLE 01401 M00S01320.iedit +++| SA1 RPB+7 CHECK WHICH USER BREAK OCCURED 01402 M00S01321.iedit +++| MX2 -12 01403 M00S01322.iedit +++| BX2 -X2*X1 01404 M00S01323.iedit +++| SX2 X2-TIET 01405 M00S01324.iedit +++| SX6 B0+ 01406 M00S01325.iedit +++| ZR X2,PIT2 IF USER BREAK ONE 01407 M00S01326.iedit +++| SA1 APPFLG 01408 M00S01327.iedit +++| ZR X1,PIT1 IF NOTHING APPENDED TO EDIT FILE 01409 M00S01328.iedit +++| SX2 E SET FET ADDRESS 01410 M00S01329.iedit +++| SA5 EFN 01411 M00S01330.iedit +++| SA6 A1 CLEAR APPEND FLAG 01412 M00S01331.iedit +++| RJ SLN SET EDIT FILE NAME INTO FET 01413 M00S01332.iedit +++| BX5 X5-X5 01414 M00S01333.iedit +++| RJ SBE SET EDIT BUFFER TO EMPTY 01415 M00S01334.iedit +++| SA1 FLNGTH 01416 M00S01335.iedit +++| MX6 1 SET *RANDOM* BIT IN FET 01417 M00S01336.iedit +++| SA3 X2+B1 FET+1 01418 M00S01337.iedit +++| LX6 47-59 01419 M00S01338.iedit +++| BX7 X6+X3 01420 M00S01339.iedit +++| BX6 X1 LOAD LAST SECTOR OF ORIGINAL FILE 01421 M00S01340.iedit +++| SA7 A3 01422 M00S01341.iedit +++| SA6 X2+6 01423 M00S01342.iedit +++| RPHR X2 SET FET FOR *WRITEF* 01424 M00S01343.iedit +++| BX5 X5-X5 01425 M00S01344.iedit +++| RJ SBE SET BUFFER EMPTY 01426 M00S01345.iedit +++| WRITEF X2,R WRITE *EOF* AFTER LAST ORIGINAL SECTOR 01427 M00S01346.iedit +++| PIT1 SA1 I SET COMPLETE BIT IN INPUT FET 01428 M00S01347.iedit +++| SX7 B1 01429 M00S01348.iedit +++| BX7 X1+X7 01430 M00S01349.iedit +++| SA7 A1 01431 M00S01350.iedit +++| SX5 B0 SET NO MESSAGE TO ISSUE 01432 M00S01351.iedit +++| EQ ERR EXIT TO ERROR PROCESSOR 01433 M00S01352.iedit +++| 01434 M00S01353.iedit +++| PIT2 SA6 LOP TURN OFF LIST OPTION 01435 M00S01354.iedit +++| SA6 LSTFIL 01436 M00S01355.iedit +++| PIT3 REPRIEVE RPB,RESUME,200B RESUME PRIOR EXECUTION 01437 M00S01356.iedit +++| PLB SPACE 4,15 01438 M00S01357.iedit +++|** PLB - PACK LINE INTO A BUFFER. 01439 M00S01358.iedit +++|* 01440 M00S01359.iedit +++|* ENTRY ((A1)) = (X1) = WORD TO START PACKING IN. 01441 M00S01360.iedit +++|* (A2) = ADDRESS OF STRING BUFFER TO PACK. 01442 M00S01361.iedit +++|* (B2) = FIRST FREE BIT IN WORD. 01443 M00S01362.iedit +++|* (B4) = LENGTH OF STRING TO PACK. 01444 M00S01363.iedit +++|* (CSTI) = CHARACTER SET IN USE. 01445 M00S01364.iedit +++|* 01446 M00S01365.iedit +++|* EXIT ((A1)) = LAST WORD PACKED. 01447 M00S01366.iedit +++|* 01448 M00S01367.iedit +++|* USES X - 1, 2, 3, 4, 5, 7. 01449 M00S01368.iedit +++|* A - 1, 2, 3, 7. 01450 M00S01369.iedit +++|* B - 2, 3, 4, 5, 6, 7. 01451 M00S01370.iedit +++| 01452 M00S01371.iedit +++| 01453 M00S01372.iedit +++| PLB5 LX7 B2 LEFT ADJUST FINAL PACKED WORD 01454 M00S01373.iedit +++| SA7 A1+B7 STORE PACKED WORD 01455 M00S01374.iedit +++| SA1 A7+ 01456 M00S01375.iedit +++| SB5 12 01457 M00S01376.iedit +++| GE B2,B5,PLBX IF EOL GUARANTEED IN LAST WORD 01458 M00S01377.iedit +++| SA1 A1+B1 01459 M00S01378.iedit +++| SX7 B0+ 01460 M00S01379.iedit +++| SA7 A1 01461 M00S01380.iedit +++| 01462 M00S01381.iedit +++| PLB SUBR 01463 M00S01382.iedit +++| MX4 54 01464 M00S01383.iedit +++| SA3 CSTI 01465 M00S01384.iedit +++| SB6 X3 01466 M00S01385.iedit +++| SB5 12 01467 M00S01386.iedit +++| GT B6,PLB1 IF *ASCII8* CHARACTER SET 01468 M00S01387.iedit +++| SB5 6 01469 M00S01388.iedit +++| SX3 X3+1 01470 M00S01389.iedit +++| PLB1 NZ B2,PLB2 IF ROOM LEFT IN CURRENT WORD 01471 M00S01390.iedit +++| SB2 60 01472 M00S01391.iedit +++| SA1 A1+1 01473 M00S01392.iedit +++| PLB2 SB7 B0+ 01474 M00S01393.iedit +++| SB3 60 01475 M00S01394.iedit +++| SB3 B3-B2 01476 M00S01395.iedit +++| LX7 X1,B3 ADJUST FIRST WORD FOR ADDING CHARACTERS 01477 M00S01396.iedit +++| SA2 A2-1 01478 M00S01397.iedit +++| NZ B3,PLB3 IF FIRST WORD PARTIALLY FILLED 01479 M00S01398.iedit +++| SX7 B0+ 01480 M00S01399.iedit +++| PLB3 ZR B4,PLB5 IF ALL CHARACTERS HAVE BEEN PACKED 01481 M00S01400.iedit +++| SA2 A2+B1 GET NEXT CHARACTER 01482 M00S01401.iedit +++| BX5 X4*X2 01483 M00S01402.iedit +++| NZ X3,PLB4 IF NOT *ASCII* CHARACTER SET 01484 M00S01403.iedit +++| ZR X5,PLB4 IF NOT A TWELVE BIT CHARACTER 01485 M00S01404.iedit +++| AX5 6 01486 M00S01405.iedit +++| LX7 X7,B5 01487 M00S01406.iedit +++| BX7 X7+X5 PACK ESCAPE PART OF CHARACTER 01488 M00S01407.iedit +++| SB2 B2-B5 01489 M00S01408.iedit +++| BX2 -X4*X2 GET LOW SIX BITS OF CHARACTER 01490 M00S01409.iedit +++| GT B2,PLB4 IF ROOM LEFT FOR CHARACTER 01491 M00S01410.iedit +++| SA7 A1+B7 01492 M00S01411.iedit +++| SB7 B7+B1 01493 M00S01412.iedit +++| SX7 B0 01494 M00S01413.iedit +++| SB2 60 01495 M00S01414.iedit +++| PLB4 LX7 X7,B5 01496 M00S01415.iedit +++| BX7 X7+X2 ADD NEW CHARACTER 01497 M00S01416.iedit +++| SB2 B2-B5 01498 M00S01417.iedit +++| SB4 B4-B1 01499 M00S01418.iedit +++| GT B2,PLB3 IF ROOM LEFT FOR MORE CHARACTERS 01500 M00S01419.iedit +++| SA7 A1+B7 STORE PACKED WORD 01501 M00S01420.iedit +++| SB7 B7+B1 01502 M00S01421.iedit +++| SX7 B0+ 01503 M00S01422.iedit +++| SB2 60 01504 M00S01423.iedit +++| EQ PLB3 CONTINUE WITH NEXT CHARACTER 01505 M00S01424.iedit +++| RAF SPACE 4,10 01506 M00S01425.iedit +++|** RAF - RECALL ALL FETS. 01507 M00S01426.iedit +++|* 01508 M00S01427.iedit +++|* EXIT ALL FETS RECALLED. 01509 M00S01428.iedit +++|* 01510 M00S01429.iedit +++|* MACROS RECALL. 01511 M00S01430.iedit +++| 01512 M00S01431.iedit +++| 01513 M00S01432.iedit +++| RAF SUBR ENTRY/EXIT 01514 M00S01433.iedit +++| RECALL E RECALL ALL FETS 01515 M00S01434.iedit +++| RECALL L 01516 M00S01435.iedit +++| RECALL LNT1 01517 M00S01436.iedit +++| RECALL LNT2 01518 M00S01437.iedit +++| RECALL SCR 01519 M00S01438.iedit +++| RECALL SCR1 01520 M00S01439.iedit +++| EQ RAFX RETURN 01521 M00S01440.iedit +++| RSF SPACE 4,10 01522 M00S01441.iedit +++|** RSF - REWIND/RETURN SCRATCH FILES. 01523 M00S01442.iedit +++|* 01524 M00S01443.iedit +++|* ENTRY (X7) = 0, REWIND ALL SCRATCH FILES. 01525 M00S01444.iedit +++|* = 1, RETURN ALL SCRATCH FILES. 01526 M00S01445.iedit +++|* 01527 M00S01446.iedit +++|* EXIT SCRATCH FILES REWOUND/RETURNED. 01528 M00S01447.iedit +++|* *READ* FILE REWOUND IF PRESENT. 01529 M00S01448.iedit +++|* 01530 M00S01449.iedit +++|* USES X - 1, 2, 5, 7. 01531 M00S01450.iedit +++|* A - 1, 5, 7. 01532 M00S01451.iedit +++|* 01533 M00S01452.iedit +++|* CALLS SLN. 01534 M00S01453.iedit +++|* 01535 M00S01454.iedit +++|* MACROS RETURN, REWIND. 01536 M00S01455.iedit +++| 01537 M00S01456.iedit +++| 01538 M00S01457.iedit +++| RSF SUBR ENTRY/EXIT 01539 M00S01458.iedit +++| SA7 RSFC SAVE REWIND/RETURN FLAG 01540 M00S01459.iedit +++| SX7 TSF 01541 M00S01460.iedit +++| SA7 RSFA STORE ADDRESS OF FILE NAMES 01542 M00S01461.iedit +++| SA1 I 01543 M00S01462.iedit +++| BX7 X1 01544 M00S01463.iedit +++| SX2 A1 01545 M00S01464.iedit +++| SA7 RSFB PRESERVE THE ORIGINAL FILE NAME 01546 M00S01465.iedit +++| RSF1 SA5 RSFA 01547 M00S01466.iedit +++| SA5 X5 LOAD NEXT FILE NAME 01548 M00S01467.iedit +++| ZR X5,RSF3 IF END OF TABLE 01549 M00S01468.iedit +++| SX7 A5+1 01550 M00S01469.iedit +++| SA7 RSFA 01551 M00S01470.iedit +++| RJ SLN SET SCRATCH FILE NAME INTO FET 01552 M00S01471.iedit +++| SA1 RSFC 01553 M00S01472.iedit +++| ZR X1,RSF2 IF REWIND RATHER THAN RETURN 01554 M00S01473.iedit +++| RETURN X2 01555 M00S01474.iedit +++| EQ RSF1 GET NEXT FILE NAME 01556 M00S01475.iedit +++| 01557 M00S01476.iedit +++| RSF2 REWIND X2,R 01558 M00S01477.iedit +++| EQ RSF1 GET NEXT FILE NAME 01559 M00S01478.iedit +++| 01560 M00S01479.iedit +++| RSF3 SA1 FNUM 01561 M00S01480.iedit +++| SX1 X1-FNRE 01562 M00S01481.iedit +++| NZ X1,RSF4 IF NO *READ* FILE EXISTS 01563 M00S01482.iedit +++| SA5 FILEN 01564 M00S01483.iedit +++| RJ SLN SET *READ* FILE NAME INTO FET 01565 M00S01484.iedit +++| REWIND X2 01566 M00S01485.iedit +++| RSF4 SA5 RSFB RESTORE ORIGINAL FET NAME 01567 M00S01486.iedit +++| RJ SLN 01568 M00S01487.iedit +++| EQ RSFX RETURN 01569 M00S01488.iedit +++| 01570 M00S01489.iedit +++| RSFA CON 0 ADDRESS OF FILE NAMES 01571 M00S01490.iedit +++| RSFB CON 0 ORIGINAL FET NAME 01572 M00S01491.iedit +++| RSFC CON 0 REWIND/RETURN FLAG 01573 M00S01492.iedit +++| SBE SPACE 4,10 01574 M00S01493.iedit +++|** SBE - SET BUFFER EMPTY. 01575 M00S01494.iedit +++|* 01576 M00S01495.iedit +++|* ENTRY (X2) = FET ADDRESS OF BUFFER. 01577 M00S01496.iedit +++|* (X5) .NE. 0, IF FILE IS TO BE REWOUND. 01578 M00S01497.iedit +++|* 01579 M00S01498.iedit +++|* EXIT BUFFER IS SET TO EMPTY. 01580 M00S01499.iedit +++|* 01581 M00S01500.iedit +++|* USES X - 0, 3, 6. 01582 M00S01501.iedit +++|* A - 3, 6. 01583 M00S01502.iedit +++|* 01584 M00S01503.iedit +++|* MACROS RECALL, REWIND. 01585 M00S01504.iedit +++| 01586 M00S01505.iedit +++| 01587 M00S01506.iedit +++| SBE SUBR ENTRY/EXIT 01588 M00S01507.iedit +++| ZR X5,SBE1 IF NO REWIND SPECIFIED 01589 M00S01508.iedit +++| REWIND X2,R 01590 M00S01509.iedit +++| EQ SBEX RETURN 01591 M00S01510.iedit +++| 01592 M00S01511.iedit +++| SBE1 RECALL X2 01593 M00S01512.iedit +++| MX0 -18 SET FIRST=IN=OUT 01594 M00S01513.iedit +++| SA3 X2+B1 01595 M00S01514.iedit +++| BX6 -X0*X3 01596 M00S01515.iedit +++| SA6 A3+B1 01597 M00S01516.iedit +++| SA6 A6+B1 01598 M00S01517.iedit +++| EQ SBEX RETURN 01599 M00S01518.iedit +++| SFI SPACE 4,15 01600 M00S01519.iedit +++|** SFI - SET FET INFORMATION. 01601 M00S01520.iedit +++|* 01602 M00S01521.iedit +++|* ENTRY FWA OF EACH MANAGED TABLE. 01603 M00S01522.iedit +++|* LENGTH OF EACH MANGED TABLE. 01604 M00S01523.iedit +++|* 01605 M00S01524.iedit +++|* EXIT FETS WILL BE SET ACCORDING TO FWA AND LENGTH OF 01606 M00S01525.iedit +++|* BUFFERS AS DETERMINED BY MANAGED TABLE PROCESSORS. 01607 M00S01526.iedit +++|* 01608 M00S01527.iedit +++|* USES X - 1, 2, 4. 01609 M00S01528.iedit +++|* A - 2, 4. 01610 M00S01529.iedit +++|* 01611 M00S01530.iedit +++|* CALLS SFP. 01612 M00S01531.iedit +++| 01613 M00S01532.iedit +++| 01614 M00S01533.iedit +++| SFI SUBR ENTRY/EXIT 01615 M00S01534.iedit +++| SA4 F.EFBUF 01616 M00S01535.iedit +++| SX1 E 01617 M00S01536.iedit +++| SA2 L.EFBUF 01618 M00S01537.iedit +++| RJ SFP 01619 M00S01538.iedit +++| SA4 F.LNBUF 01620 M00S01539.iedit +++| SX1 L 01621 M00S01540.iedit +++| SA2 L.LNBUF 01622 M00S01541.iedit +++| RJ SFP 01623 M00S01542.iedit +++| SA4 F.SCRBA 01624 M00S01543.iedit +++| SX1 LNT1 01625 M00S01544.iedit +++| SA2 L.SCRBA 01626 M00S01545.iedit +++| RJ SFP 01627 M00S01546.iedit +++| SA4 F.SCRBB 01628 M00S01547.iedit +++| SX1 LNT2 01629 M00S01548.iedit +++| SA2 L.SCRBB 01630 M00S01549.iedit +++| RJ SFP 01631 M00S01550.iedit +++| SA4 F.SCRBA 01632 M00S01551.iedit +++| SX1 SCR 01633 M00S01552.iedit +++| SA2 L.SCRBA 01634 M00S01553.iedit +++| RJ SFP 01635 M00S01554.iedit +++| SA4 F.SCRBB 01636 M00S01555.iedit +++| SX1 SCR1 01637 M00S01556.iedit +++| SA2 L.SCRBB 01638 M00S01557.iedit +++| RJ SFP 01639 M00S01558.iedit +++| EQ SFIX RETURN 01640 M00S01559.iedit +++| SFP SPACE 4,15 01641 M00S01560.iedit +++|** SFP - SET FET POINTERS. 01642 M00S01561.iedit +++|* 01643 M00S01562.iedit +++|* ENTRY (X1) = FWA OF FET TO BE SET. 01644 M00S01563.iedit +++|* (X2) = BUFFER LENGTH TO BE USED IN THIS FET. 01645 M00S01564.iedit +++|* (X4) = FIRST WORD ADDRESS OF BUFFER. 01646 M00S01565.iedit +++|* 01647 M00S01566.iedit +++|* EXIT FET POINTERS ARE RESET. INITIALLY A FET IS SET 01648 M00S01567.iedit +++|* TO EMPTY (FIRST=IN=OUT). 01649 M00S01568.iedit +++|* 01650 M00S01569.iedit +++|* USES X - 0, 2, 3, 5, 6, 7. 01651 M00S01570.iedit +++|* A - 3, 5, 6. 01652 M00S01571.iedit +++|* B - 2. 01653 M00S01572.iedit +++| 01654 M00S01573.iedit +++| 01655 M00S01574.iedit +++| SFP SUBR ENTRY/EXIT 01656 M00S01575.iedit +++| SA3 X1+B1 CHECK *FIRST* POINTER 01657 M00S01576.iedit +++| MX0 -18 01658 M00S01577.iedit +++| BX5 -X0*X3 01659 M00S01578.iedit +++| IX7 X4-X5 CALCULATE MOVEMENT OF TABLE 01660 M00S01579.iedit +++| BX3 X3*X0 SET *FIRST* POINTER 01661 M00S01580.iedit +++| BX6 X3+X4 01662 M00S01581.iedit +++| SA6 A3 01663 M00S01582.iedit +++| SA5 A3+B1 UPDATE *IN* POINTER 01664 M00S01583.iedit +++| BX5 -X0*X5 01665 M00S01584.iedit +++| ZR X5,SFP1 IF *IN* POINTER HAS NOT BEEN SET 01666 M00S01585.iedit +++| 01667 M00S01586.iedit +++|* RESET FET POINTERS 01668 M00S01587.iedit +++| 01669 M00S01588.iedit +++| SB2 X7 MOVEMENT OF TABLE 01670 M00S01589.iedit +++| SX6 X5+B2 NEW *IN* POINTER 01671 M00S01590.iedit +++| SA6 A3+B1 01672 M00S01591.iedit +++| SA3 X1+3 RETRIEVE *OUT* POINTER 01673 M00S01592.iedit +++| BX6 -X0*X3 01674 M00S01593.iedit +++| SX6 X6+B2 SET NEW *OUT* POINTER 01675 M00S01594.iedit +++| SA6 A6+1 01676 M00S01595.iedit +++| EQ SFP2 SET *LIMIT* POINTER 01677 M00S01596.iedit +++| 01678 M00S01597.iedit +++| SFP1 BX6 -X0*X6 SET *IN* POINTER IN FET TO *FIRST* 01679 M00S01598.iedit +++| SA6 A6+B1 01680 M00S01599.iedit +++| SA6 A6+1 SET *OUT* POINTER IN FET TO *FIRST* 01681 M00S01600.iedit +++| SFP2 SA3 A6+B1 SET *LIMIT* POINTER IN FET 01682 M00S01601.iedit +++| BX3 X0*X3 01683 M00S01602.iedit +++| SX2 X2+B1 01684 M00S01603.iedit +++| IX2 X2+X4 01685 M00S01604.iedit +++| BX6 X2+X3 01686 M00S01605.iedit +++| SA6 A3 01687 M00S01606.iedit +++| EQ SFPX RETURN 01688 M00S01607.iedit +++| SLN SPACE 4,15 01689 M00S01608.iedit +++|** SLN - SET LOCAL FILE NAME. 01690 M00S01609.iedit +++|* 01691 M00S01610.iedit +++|* ENTRY (X2) = FET ADDRESS. 01692 M00S01611.iedit +++|* (X5) = FILE NAME TO PUT IN FET. 01693 M00S01612.iedit +++|* 01694 M00S01613.iedit +++|* EXIT FILE NAME HAS BEEN INSERTED IN THE SPECFIED FET. 01695 M00S01614.iedit +++|* (X2) = FET ADDRESS. 01696 M00S01615.iedit +++|* (X5) = FET+0 WITH ORIGINAL FILE NAME AFTER *RECALL*. 01697 M00S01616.iedit +++|* 01698 M00S01617.iedit +++|* USES X - 3, 5, 7. 01699 M00S01618.iedit +++|* A - 5, 7. 01700 M00S01619.iedit +++|* 01701 M00S01620.iedit +++|* MACROS RECALL. 01702 M00S01621.iedit +++| 01703 M00S01622.iedit +++| 01704 M00S01623.iedit +++| SLN SUBR ENTRY/EXIT 01705 M00S01624.iedit +++| RECALL X2 01706 M00S01625.iedit +++| SX3 B1 01707 M00S01626.iedit +++| BX7 X3+X5 01708 M00S01627.iedit +++| SA5 X2 01709 M00S01628.iedit +++| SA7 X2 01710 M00S01629.iedit +++| EQ SLNX RETURN 01711 M00S01630.iedit +++| SSF SPACE 4,15 01712 M00S01631.iedit +++|** SSF - SORT SELECTED FILE. 01713 M00S01632.iedit +++|* 01714 M00S01633.iedit +++|* ENTRY (B2) = FET ADDRESS OF FILE TO BE SORTED. 01715 M00S01634.iedit +++|* 01716 M00S01635.iedit +++|* EXIT (X2) = FET ADDRESS OF SORTED FILE. 01717 M00S01636.iedit +++|* (X6) = NUMBER OF LINES IN SORTED FILE. 01718 M00S01637.iedit +++|* 01719 M00S01638.iedit +++|* USES X - 1, 2, 4, 5, 6, 7. 01720 M00S01639.iedit +++|* A - 1, 2, 5, 6. 01721 M00S01640.iedit +++|* 01722 M00S01641.iedit +++|* CALLS SLN, SNF. 01723 M00S01642.iedit +++|* 01724 M00S01643.iedit +++|* MACROS FILINFO. 01725 M00S01644.iedit +++| 01726 M00S01645.iedit +++| 01727 M00S01646.iedit +++| SSF SUBR ENTRY/EXIT 01728 M00S01647.iedit +++| SX6 B2+ ADDRESS OF FET OF FILE TO SORT 01729 M00S01648.iedit +++| SA6 SSFA 01730 M00S01649.iedit +++| SA5 TSF+4 RESET SCRATCH FILE NAME 01731 M00S01650.iedit +++| SX2 SCR 01732 M00S01651.iedit +++| RJ SLN 01733 M00S01652.iedit +++| SA5 TSF+5 RESET SCRATCH FILE NAME 01734 M00S01653.iedit +++| SX2 SCR1 01735 M00S01654.iedit +++| RJ SLN 01736 M00S01655.iedit +++| SX1 B1+ INDIRECT ACCESS FILES BEING WORKED WITH 01737 M00S01656.iedit +++| SX6 NUMD NUMBER OF DIGITS TO SORT ON 01738 M00S01657.iedit +++| SA5 CSTI CHARACTER TYPE FOR *COMCSNF* 01739 M00S01658.iedit +++| SX4 X5-1 01740 M00S01659.iedit +++| ZR X4,SSF1 IF CHARACTER SET IS ASCII8 01741 M00S01660.iedit +++| SX5 B0+ 01742 M00S01661.iedit +++| SSF1 BX7 X5 01743 M00S01662.iedit +++| SA2 SSFA EDIT FILE FET ADDRESS FOR *COMCSNF* 01744 M00S01663.iedit +++| RJ SNF SORT LINE NUMBERED FILE 01745 M00S01664.iedit +++| ZR X1,SSF2 IF SORT SUCCESSFUL
| Line S01665 Modification History | |
|---|---|
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 01746 M01S01665.iedit2 ---| SX5 ERRNLN
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 01747 M01S00075.iedit2 +++| SX5 ERRNLN *NO LINE NUMBER ON LINE.* 01748 M00S01666.iedit +++| ZR B2,ERR IF NO LINE NUMBER
| Line S01667 Modification History | |
|---|---|
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 01749 M01S01667.iedit2 ---| SX5 ERREEF
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 01750 M01S00076.iedit2 +++| SX5 ERREEF *EMPTY FILE (SSF).* 01751 M00S01668.iedit +++| NG B2,ERR IF SORT FILE EMPTY
| Line S01669 Modification History | |
|---|---|
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 01752 M01S01669.iedit2 ---| SX5 ERRNES
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 01753 M01S00077.iedit2 +++| SX5 ERRNES *TOO SMALL BUFFER SPACE.* 01754 M00S01670.iedit +++| EQ ERR NOT ENOUGH BUFFER SPACE AVAILABLE 01755 M00S01671.iedit +++| 01756 M00S01672.iedit +++| SSF2 SA1 EFN GET EDIT FILE NAME 01757 M00S01673.iedit +++| SA5 SSFA GET SORT FILE NAME 01758 M00S01674.iedit +++| SA5 X5 01759 M00S01675.iedit +++| MX4 42 01760 M00S01676.iedit +++| BX5 X5*X4 01761 M00S01677.iedit +++| BX1 X5-X1 01762 M00S01678.iedit +++| NZ X1,SSFX IF NOT SORTING EDIT FILE 01763 M00S01679.iedit +++| SA6 SSFB SAVE NUMBER OF LINES 01764 M00S01680.iedit +++| SA1 EFN 01765 M00S01681.iedit +++| SA2 FIPB 01766 M00S01682.iedit +++| BX1 X1*X4 01767 M00S01683.iedit +++| BX2 -X4*X2 01768 M00S01684.iedit +++| BX6 X1+X2 01769 M00S01685.iedit +++| SA6 A2 01770 M00S01686.iedit +++| FILINFO FIPB GET NEW LENGTH OF EDIT FILE 01771 M00S01687.iedit +++| SA2 FIPB+3 01772 M00S01688.iedit +++| MX4 24 01773 M00S01689.iedit +++| BX6 X2*X4 01774 M00S01690.iedit +++| LX6 24 01775 M00S01691.iedit +++| SA2 SSFA 01776 M00S01692.iedit +++| SA6 FLNGTH 01777 M00S01693.iedit +++| SA1 SSFB 01778 M00S01694.iedit +++| BX6 X1 01779 M00S01695.iedit +++| EQ SSFX RETURN 01780 M00S01696.iedit +++| 01781 M00S01697.iedit +++| SSFA CON 0 FET ADDRESS OF FILE TO SORT 01782 M00S01698.iedit +++| SSFB CON 0 NUMBER OF LINES IN FILE 01783 M00S01699.iedit +++| TOV SPACE 4,20 01784 M00S01700.iedit +++|** TOV - TABLE OVERFLOW. 01785 M00S01701.iedit +++|* 01786 M00S01702.iedit +++|* THIS ROUTINE IS REQUIRED BY THE MANAGED TABLE PROCESSORS 01787 M00S01703.iedit +++|* AND IS USED WHEN TABLES BECOME LARGER THAN THE 01788 M00S01704.iedit +++|* CURRENT FIELD LENGTH. BECAUSE OF CODE IN *ABS* WHICH 01789 M00S01705.iedit +++|* INCREASES THE FIELD LENGTH WHEN NECESSARY, THIS ROUTINE 01790 M00S01706.iedit +++|* SHOULD NEVER BE CALLED. 01791 M00S01707.iedit +++|* 01792 M00S01708.iedit +++|* ENTRY THE CURRENT FIELD LENGTH IS NOT LARGE ENOUGH 01793 M00S01709.iedit +++|* TO HANDLE THE INCREASE OF A TABLE THAT WAS REQUESTED. 01794 M00S01710.iedit +++|* 01795 M00S01711.iedit +++|* EXIT TO *ERR*. 01796 M00S01712.iedit +++|* 01797 M00S01713.iedit +++|* USES X - 5. 01798 M00S01714.iedit +++| 01799 M00S01715.iedit +++| 01800 M00S01716.iedit +++| TOV BSS 0 ENTRY
| Line S01717 Modification History | |
|---|---|
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 01801 M01S01717.iedit2 ---| SX5 ERRBSE
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 01802 M01S00078.iedit2 +++| SX5 ERRBSE *BUFFER SPACE ERROR (TOV).* 01803 M00S01718.iedit +++| EQ ERR ISSUE ERROR MESSAGE AND ABORT 01804 M00S01719.iedit +++| VPL SPACE 4,15 01805 M00S01720.iedit +++|** VPL - EVALUATE PACKED LINE NUMBER. 01806 M00S01721.iedit +++|* 01807 M00S01722.iedit +++|* ENTRY ((A5)) = (X5) = PACKED WORD TO BE EVALUATED. 01808 M00S01723.iedit +++|* (CSTI) = CHARACTER SET. 01809 M00S01724.iedit +++|* 01810 M00S01725.iedit +++|* EXIT (X6) = LINE NUMBER IN BINARY FORM. 01811 M00S01726.iedit +++|* (X7) = NUMBER OF DIGITS IN LINE NUMBER. 01812 M00S01727.iedit +++|* (X3) = 0, IF LINE NOT FOLLOWED BY AT LEAST TWO 01813 M00S01728.iedit +++|* BLANKS OR ONE NON-BLANK CHARACTER. 01814 M00S01729.iedit +++|* 01815 M00S01730.iedit +++|* USES X - ALL. 01816 M00S01731.iedit +++|* A - 2, 5. 01817 M00S01732.iedit +++|* B - 3, 4, 5, 6, 7. 01818 M00S01733.iedit +++| 01819 M00S01734.iedit +++| 01820 M00S01735.iedit +++| VPL SUBR ENTRY/EXIT 01821 M00S01736.iedit +++| SA2 CSTI GET CHARACTER SET 01822 M00S01737.iedit +++| SX1 10D 01823 M00S01738.iedit +++| SB5 60 01824 M00S01739.iedit +++| SX0 NUMD 01825 M00S01740.iedit +++| SB6 60B ZERO IN *ASCII8* 01826 M00S01741.iedit +++| SB7 71B NINE IN *ASCII8* 01827 M00S01742.iedit +++| SX2 X2-1 01828 M00S01743.iedit +++| SB3 12 01829 M00S01744.iedit +++| SX6 B0 INITIALIZE LINE NUMBER TO ZERO 01830 M00S01745.iedit +++| MX3 -12 01831 M00S01746.iedit +++| PL X2,VPL1 IF *ASCII8* CHARACTER SET 01832 M00S01747.iedit +++| SB6 1R0 01833 M00S01748.iedit +++| SB7 1R9 01834 M00S01749.iedit +++| SB3 6 01835 M00S01750.iedit +++| MX3 -6 01836 M00S01751.iedit +++| VPL1 NZ B5,VPL2 IF MORE CHARACTERS REMAIN IN WORD 01837 M00S01752.iedit +++| SB5 60 01838 M00S01753.iedit +++| SA5 A5+1 01839 M00S01754.iedit +++| VPL2 LX5 X5,B3 01840 M00S01755.iedit +++| BX4 -X3*X5 GET NEXT CHARACTER 01841 M00S01756.iedit +++| BX5 X3*X5 ISOLATE CHARACTER 01842 M00S01757.iedit +++| SB5 B5-B3 01843 M00S01758.iedit +++| ZR X4,VPL3 IF COLON OR EOL FOUND 01844 M00S01759.iedit +++| ZR X0,VPL3 IF *NUMD* DIGITS FOUND 01845 M00S01760.iedit +++| SB4 X4+ 01846 M00S01761.iedit +++| LT B4,B6,VPL3 IF ALPHABETIC CHARACTER 01847 M00S01762.iedit +++| GT B4,B7,VPL3 IF NOT DIGIT 01848 M00S01763.iedit +++| SB4 B4-B6 CONVERT DIGIT TO BINARY 01849 M00S01764.iedit +++| IX6 X6*X1 01850 M00S01765.iedit +++| SX0 X0-1 01851 M00S01766.iedit +++| SX6 X6+B4 ADD DIGIT TO RUNNING TOTAL 01852 M00S01767.iedit +++| EQ VPL1 PROCESS NEXT CHARACTER 01853 M00S01768.iedit +++| 01854 M00S01769.iedit +++| VPL3 SX1 NUMD 01855 M00S01770.iedit +++| SA2 BLNK 01856 M00S01771.iedit +++| IX7 X1-X0 01857 M00S01772.iedit +++| ZR X4,VPL5 IF COLON OF EOL FOUND 01858 M00S01773.iedit +++| IX4 X4-X2 01859 M00S01774.iedit +++| NZ X4,VPLX IF NOT BLANK CHARACTER 01860 M00S01775.iedit +++| NZ B5,VPL4 IF MORE CHARACTERS LEFT IN WORD 01861 M00S01776.iedit +++| SB5 60 01862 M00S01777.iedit +++| SA5 A5+1 01863 M00S01778.iedit +++| VPL4 LX5 X5,B3 01864 M00S01779.iedit +++| BX4 -X3*X5 GET NEXT CHARACTER 01865 M00S01780.iedit +++| BX5 X3*X5 01866 M00S01781.iedit +++| SB5 B5-B3 01867 M00S01782.iedit +++| NZ X4,VPLX IF AT LEAST TWO CHARACTERS AFTER NUMBER 01868 M00S01783.iedit +++| VPL5 NZ B5,VPL6 IF MORE CHARACTERS LEFT IN WORD 01869 M00S01784.iedit +++| SB5 60 01870 M00S01785.iedit +++| SA5 A5+1 01871 M00S01786.iedit +++| VPL6 NZ X5,VPLX IF CHARACTERS FOLLOW LINE NUMBER 01872 M00S01787.iedit +++| SB6 12 01873 M00S01788.iedit +++| GE B5,B6,VPL7 IF ZERO BYTE IN BOTTOM OF WORD 01874 M00S01789.iedit +++| SA5 A5+1 01875 M00S01790.iedit +++| NZ X5,VPLX IF NEXT WORD CONTAINS A CHARACTER 01876 M00S01791.iedit +++| VPL7 SX3 B0 A LINE TO BE DELETED 01877 M00S01792.iedit +++| EQ VPLX RETURN 01878 M00S01793.iedit +++| WTL SPACE 4,15 01879 M00S01794.iedit +++|** WTL - WRITE TRUNCATED LINE. 01880 M00S01795.iedit +++|* 01881 M00S01796.iedit +++|* ENTRY (X1) = BINARY LINE NUMBER OF TRUNCATED LINE. 01882 M00S01797.iedit +++|* 01883 M00S01798.iedit +++|* EXIT LINE NUMBER OF TRUNCATED LINE WILL BE WRITTEN 01884 M00S01799.iedit +++|* TO A SCRATCH FILE. 01885 M00S01800.iedit +++|* 01886 M00S01801.iedit +++|* USES X - 1, 6. 01887 M00S01802.iedit +++|* A - 1, 6. 01888 M00S01803.iedit +++|* 01889 M00S01804.iedit +++|* CALLS CNL. 01890 M00S01805.iedit +++|* 01891 M00S01806.iedit +++|* MACROS WRITEO. 01892 M00S01807.iedit +++| 01893 M00S01808.iedit +++| 01894 M00S01809.iedit +++| WTL SUBR ENTRY/EXIT 01895 M00S01810.iedit +++| RJ CNL CONVERT LINE NUMBER TO DISPLAY 01896 M00S01811.iedit +++| SX1 2R PAD BLANKS TO ALLOW SORTING 01897 M00S01812.iedit +++| LX1 18 01898 M00S01813.iedit +++| BX6 X1+X6 01899 M00S01814.iedit +++| WRITEO TRNCFET 01900 M00S01815.iedit +++| SA1 NTL 01901 M00S01816.iedit +++| SX6 X1+B1 01902 M00S01817.iedit +++| SA6 A1 01903 M00S01818.iedit +++| EQ WTLX RETURN 01904 M00S01819.iedit +++| WTO SPACE 4,25 01905 M00S01820.iedit +++|** WTO - WRITE DATA TO OUTPUT. 01906 M00S01821.iedit +++|* 01907 M00S01822.iedit +++|* ENTRY (B6) = FWA OF DATA TO WRITE OUT. 01908 M00S01823.iedit +++|* (B7) = LENGTH OF DATA IN WORDS. 01909 M00S01824.iedit +++|* 01910 M00S01825.iedit +++|* EXIT DATA WRITTEN TO *OUTPUT*. 01911 M00S01826.iedit +++|* 01912 M00S01827.iedit +++|* USES X - 1, 6. 01913 M00S01828.iedit +++|* A - 1, 6. 01914 M00S01829.iedit +++|* B - 7. 01915 M00S01830.iedit +++|* 01916 M00S01831.iedit +++|* MACROS WRITEW. 01917 M00S01832.iedit +++|* 01918 M00S01833.iedit +++|* NOTES *WTO* IS EQUIVALENT TO *WRITEW O,B6,B7* EXCEPT 01919 M00S01834.iedit +++|* THAT THE WRITE WILL NOT BE PERFORMED IF THE 01920 M00S01835.iedit +++|* LIST FLAG HAS BEEN CLEARED (THIS MAY HAPPEN AT 01921 M00S01836.iedit +++|* ANY TIME DUE TO A *USER BREAK ONE*). NOTE THAT 01922 M00S01837.iedit +++|* *B6* IS UPDATED BY *COMCWTW*. 01923 M00S01838.iedit +++| 01924 M00S01839.iedit +++| WTO SUBR ENTRY/EXIT 01925 M00S01840.iedit +++| WTO1 SA1 LSTFIL 01926 M00S01841.iedit +++| ZR X1,WTOX IF LISTING DISABLED (USER BREAK 1) 01927 M00S01842.iedit +++| SX6 B7 01928 M00S01843.iedit +++| SA6 WTOA SAVE NUMBER OF WORDS TO WRITE 01929 M00S01844.iedit +++| SX6 X6-100B 01930 M00S01845.iedit +++| NG X6,WTO2 IF LESS THAN 100B WORDS LEFT TO WRITE 01931 M00S01846.iedit +++| WRITEW O,B6,100B 01932 M00S01847.iedit +++| SA1 WTOA DECREMENT NUMBER OF WORDS TO WRITE 01933 M00S01848.iedit +++| SB7 X1-100B 01934 M00S01849.iedit +++| EQ WTO1 PROCESS THE NEXT BLOCK OF DATA 01935 M00S01850.iedit +++| 01936 M00S01851.iedit +++| WTO2 WRITEW O,B6,B7 01937 M00S01852.iedit +++| EQ WTOX RETURN 01938 M00S01853.iedit +++| 01939 M00S01854.iedit +++| WTOA CON 0 NUMBER OF WORDS TO WRITE 01940 M00S01855.iedit +++| TITLE COMMON DECKS. 01941 M00S01856.iedit +++| SPACE 4,10 01942 M00S01857.iedit +++|** EXECUTABLE COMMON DECKS. 01943 M00S01858.iedit +++| 01944 M00S01859.iedit +++|*CALL COMCCDD 01945 M00S01860.iedit +++|*CALL COMCCIO 01946 M00S01861.iedit +++|*CALL COMCCPM 01947 M00S01862.iedit +++|*CALL COMCDXB 01948 M00S01863.iedit +++|*CALL COMCLFM 01949 M00S01864.iedit +++|*CALL COMCMTP 01950 M00S01865.iedit +++|*CALL COMCMVE 01951 M00S01866.iedit +++|*CALL COMCOVL 01952 M00S01867.iedit +++|*CALL COMCRDC 01953 M00S01868.iedit +++|*CALL COMCRDO 01954 M00S01869.iedit +++|*CALL COMCRDW 01955 M00S01870.iedit +++| LIST X 01956 M00S01871.iedit +++|*CALL COMCSNF 01957 M00S01872.iedit +++| LIST -X 01958 M00S01873.iedit +++|*CALL COMCSNM 01959 M00S01874.iedit +++|*CALL COMCSST 01960 M00S01875.iedit +++|*CALL COMCSYS 01961 M00S01876.iedit +++|*CALL COMCUSB 01962 M00S01877.iedit +++|*CALL COMCWTC 01963 M00S01878.iedit +++|*CALL COMCWTW 01964 M00S01879.iedit +++|*CALL COMCWTO 01965 M00S01880.iedit +++| USE LITERALS 01966 M00S01881.iedit +++| OVLY EQU * 01967 M00S01882.iedit +++| TITLE OVERLAYABLE FUNCTION PROCESSORS. 01968 M00S01883.iedit +++| PSC SPACE 4,15 01969 M00S01884.iedit +++|** PSC - PROCESS SEQUENTIAL COMMANDS. 01970 M00S01885.iedit +++|* 01971 M00S01886.iedit +++|* *PSC* PROCESSES THE CLASS OF COMMANDS WHICH READ A CLEAN 01972 M00S01887.iedit +++|* SOURCE FILE AND POTENTIALLY WRITE A NEW CLEAN FILE. 01973 M00S01888.iedit +++|* 01974 M00S01889.iedit +++|* EXIT EDIT FILE REWRITTEN IF NECESSARY AND LINES ECHOED 01975 M00S01890.iedit +++|* TO THE TERMINAL. 01976 M00S01891.iedit +++|* 01977 M00S01892.iedit +++|* USES X - ALL. 01978 M00S01893.iedit +++|* A - 1, 2, 3, 4, 5, 6, 7. 01979 M00S01894.iedit +++|* B - 2, 3, 4, 5, 6, 7. 01980 M00S01895.iedit +++|* 01981 M00S01896.iedit +++|* CALLS ABL, CLN, CSL, FSL, PLB, PWN, SLN, USB, WTL. 01982 M00S01897.iedit +++|* 01983 M00S01898.iedit +++|* MACROS READC, READEI, READO, RENAME, WRITEC, WRITER. 01984 M00S01899.iedit +++| 01985 M00S01900.iedit +++| 01986 M00S01901.iedit +++| PSC SUBR ENTRY/EXIT 01987 M00S01902.iedit +++| SA1 FNUM 01988 M00S01903.iedit +++| SX1 X1-MXNW-1 01989 M00S01904.iedit +++| NG X1,PSC1 IF NOT A *WRITE* OR *WRITEN* FUNCTION 01990 M00S01905.iedit +++| SA5 FILEN SET *WRITE(N)* FILE NAME INTO FET 01991 M00S01906.iedit +++| SX2 SCR 01992 M00S01907.iedit +++| RJ SLN 01993 M00S01908.iedit +++| EQ PSC2 AVOID REWIND OF *WRITE(N)* FILE 01994 M00S01909.iedit +++| 01995 M00S01910.iedit +++| PSC1 REWIND SCR
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/iedit.txt · Last modified: (external edit)