Seq # *Modification Id* Act
----------------------------+
00013 M02S00013.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
00014 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00015 M01S00014.iedit +++| SPACE 4,10
00016 M01S00015.iedit +++|***** IEDIT - IN-LINE EDITOR.
00017 M01S00016.iedit +++|*
00018 M01S00017.iedit +++|* J. W. YOCUM. 79/12/17.
00019 M01S00018.iedit +++|* C. S. MEAGHER. 80/04/22.
00020 M01S00019.iedit +++|* S. P. BOOTH. 80/05/31.
00021 M01S00020.iedit +++|* K. F. REHM. 81/08/10.
00022 M01S00021.iedit +++|* S. D. PAINTER. 81/08/10.
00023 M01S00022.iedit +++| SPACE 4,10
00024 M01S00023.iedit +++|*** *IEDIT* IS A *CPU* PROGRAM WHICH IS CALLED BY *IAF*
00025 M01S00024.iedit +++|* TO PERFORM AN EDITING FUNCTION ON A LINE NUMBERED FILE.
00026 M01S00025.iedit +++|* IT IS DESIGNED TO BE EXECUTED THROUGH THE *IAF* INTERFACE.
00027 M01S00026.iedit +++|* THE EDIT COMMAND IS PLACED INTO THE COMMAND LINE BUFFER,
00028 M01S00027.iedit +++|* THROUGH THE USE OF THE *CLB=* ENTRY POINT.
00029 M01S00028.iedit +++| SPACE 4,10
Line S00029 Modification History
M01(Added by)
iedit
M02(Updated by)
v23l617
Seq # *Modification Id* Act
----------------------------+
00030 M02S00029.v23l617 ---|*** CONTROL STATEMENT CALL.
00031 M01S00001.v23l617 +++|*** COMMAND FORMAT.
00032 M01S00030.iedit +++|*
00033 M01S00031.iedit +++|*
00034 M01S00032.iedit +++|* IEDIT (FN=LFN,OP=OPTIONS,CS=CHARTYPE)
00035 M01S00033.iedit +++|*
00036 M01S00034.iedit +++|* LFN NAME OF EDIT FILE. THIS PARAMETER
00037 M01S00035.iedit +++|* IS REQUIRED.
00038 M01S00036.iedit +++|*
00039 M01S00037.iedit +++|* OPTIONS B, F, L (ANY COMBINATION MAY BE USED).
00040 M01S00038.iedit +++|*
00041 M01S00039.iedit +++|* B - BASIC SUBSYSTEM FLAG INDICATING BASIC
00042 M01S00040.iedit +++|* RESEQUENCING SHOULD BE PERFORMED AS
00043 M01S00041.iedit +++|* REQUIRED (OMITTED WHEN TERMINAL IS NOT
00044 M01S00042.iedit +++|* IN BASIC SUBSYSTEM).
00045 M01S00043.iedit +++|*
00046 M01S00044.iedit +++|* F - FORTRAN SUBSYSTEM FLAG INDICATING
00047 M01S00045.iedit +++|* TERMINAL IS IN FORTRAN SUBSYSTEM
00048 M01S00046.iedit +++|* (OMITTED WHEN TERMINAL IS NOT IN
00049 M01S00047.iedit +++|* FORTRAN SUBSYSTEM).
00050 M01S00048.iedit +++|*
00051 M01S00049.iedit +++|* L - LIST FLAG. IF PRESENT, ALL LINES
00052 M01S00050.iedit +++|* CHANGED WILL BE ECHOED TO THE
00053 M01S00051.iedit +++|* TERMINAL.
00054 M01S00052.iedit +++|* IF OMITTED CHANGED LINES ARE NOT
00055 M01S00053.iedit +++|* ECHOED. (TERMINAL USER MAY SUSPEND
00056 M01S00054.iedit +++|* ECHO CAPABILITIES BY ENTERING A USER
00057 M01S00055.iedit +++|* BREAK.)
00058 M01S00056.iedit +++|*
00059 M01S00057.iedit +++|*
00060 M01S00058.iedit +++|* CHARTYPE CHARACTER TYPE DEFINITION
00061 M01S00059.iedit +++|* NORMAL - DISPLAY CODE. ( DEFAULT )
00062 M01S00060.iedit +++|* ASCII - 6/12 ASCII.
00063 M01S00061.iedit +++| SPACE 4,10
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 M01S00062.iedit +++|* ESTABLISH QUAL BLOCK ORDER.
00138 M01S00063.iedit +++|
00139 M01S00064.iedit +++| QUAL IEDIT1
00140 M01S00065.iedit +++| QUAL COMCBLP
00141 M01S00066.iedit +++| QUAL COMCSNF
00142 M01S00067.iedit +++| QUAL MACRO$
00143 M01S00068.iedit +++| QUAL
00144 M01S00069.iedit +++| TITLE MACRO DEFINITIONS.
00145 M01S00070.iedit +++| DAC SPACE 4,15
00146 M01S00071.iedit +++|** DAC - DECLARE ATTRIBUTES FOR CHARACTER POSITION.
00147 M01S00072.iedit +++|*
00148 M01S00073.iedit +++|* DAC GENERATES A WORD WHICH STORES ATTRIBUTES FOR TWO
00149 M01S00074.iedit +++|* CHARACTERS. THE HIGH 30 BITS HOLD THE CHARACTER ATTRIBUTES
00150 M01S00075.iedit +++|* FOR AN ASCII 6/12 CHARACTER. THE LOW 30 BITS HOLD THE SAME
00151 M01S00076.iedit +++|* DATA FOR AN ASCII8 CHARACTER. EACH HALF ALSO CONTAINS THE
00152 M01S00077.iedit +++|* DISPLAY CODE EQUIVALENT OF ITS CHARACTER IF ONE EXISTS.
00153 M01S00078.iedit +++|*
00154 M01S00079.iedit +++|* DAC DI,DC,DA,AI,AC,AA
00155 M01S00080.iedit +++|*
00156 M01S00081.iedit +++|* ENTRY DI - IF SPECIFIED, NO DISPLAY CODE EQUIVALENT OF
00157 M01S00082.iedit +++|* ASCII 6/12 CHARACTER.
00158 M01S00083.iedit +++|* DC - DISPLAY CODE EQUIVALENT OF 6/12 ASCII
00159 M01S00084.iedit +++|* CHARACTER.
00160 M01S00085.iedit +++|* DA - ATTRIBUTES FOR ASCII 6/12 CHARACTER.
00161 M01S00086.iedit +++|* AI - IF SPECIFIED, NO DISPLAY CODE EQUIVALENT OF
00162 M01S00087.iedit +++|* ASCII8 CHARACTER.
00163 M01S00088.iedit +++|* AC - DISPLAY CODE EQUIVALENT OF ASCII8 CHARACTER.
00164 M01S00089.iedit +++|* AA - ATTRIBUTES FOR ASCII8 CHARACTER.
00165 M01S00090.iedit +++|*
00166 M01S00091.iedit +++|* EXIT ENTRIES GENERATED IN THE FOLLOWING FORMAT -
00167 M01S00092.iedit +++|*
00168 M01S00093.iedit +++|*T 1/DI,NBIC/DC,DIST/0,MXNA/DA,1/AI,NBIC/AC,DIST/0,MXNA/AA
00169 M01S00094.iedit +++|*
00170 M01S00095.iedit +++|* WHERE -
00171 M01S00096.iedit +++|* NBIC - NUMBER OF BITS IN DISPLAY CODE CHARACTER.
00172 M01S00097.iedit +++|* MXNA - MAXIMUM NUMBER OF ATTRIBUTES PER CHARACTER.
00173 M01S00098.iedit +++|* DIST - PROPER NUMBER OF BITS TO ENSURE THAT CHARACTER
00174 M01S00099.iedit +++|* DATA FITS EXACTLY IN 30 BITS.
00175 M01S00100.iedit +++|*
00176 M01S00101.iedit +++|
00177 M01S00102.iedit +++|
00178 M01S00103.iedit +++| PURGMAC DAC
00179 M01S00104.iedit +++| DAC MACRO DI,DC,DA,AI,AC,AA
00180 M01S00105.iedit +++| MACREF DAC
00181 M01S00106.iedit +++| DIST EQU 30-1-NBIC-MXNA
00182 M01S00107.iedit +++| .A IFC EQ,*DA**
00183 M01S00108.iedit +++| VFD 30/7777777777B
00184 M01S00109.iedit +++| .A ELSE
00185 M01S00110.iedit +++| .B IFC NE,*DI**
00186 M01S00111.iedit +++| VFD 1/1,NBIC/0,DIST/0,MXNA/DA
00187 M01S00112.iedit +++| .B ELSE
00188 M01S00113.iedit +++| VFD 1/0,NBIC/DC_B,DIST/0,MXNA/DA
00189 M01S00114.iedit +++| .B ENDIF
00190 M01S00115.iedit +++| .A ENDIF
00191 M01S00116.iedit +++| .A IFC EQ,*AA**
00192 M01S00117.iedit +++| VFD 30/7777777777B
00193 M01S00118.iedit +++| .A ELSE
00194 M01S00119.iedit +++| .B IFC NE,*AI**
00195 M01S00120.iedit +++| VFD 1/1,NBIC/0,DIST/0,MXNA/AA
00196 M01S00121.iedit +++| .B ELSE
00197 M01S00122.iedit +++| VFD 1/0,NBIC/AC_B,DIST/0,MXNA/AA
00198 M01S00123.iedit +++| .B ENDIF
00199 M01S00124.iedit +++| .A ENDIF
00200 M01S00125.iedit +++| DAC ENDM
00201 M01S00126.iedit +++| FIELD SPACE 4,20
00202 M01S00127.iedit +++|** FIELD - DEFINE FIELDS.
00203 M01S00128.iedit +++|*
00204 M01S00129.iedit +++|* TAGS ARE GENERATED TO GIVE THE WORD LOCATION, BIT
00205 M01S00130.iedit +++|* LOCATION, AND NUMBER OF BITS IN FIELD.
00206 M01S00131.iedit +++|*
00207 M01S00132.iedit +++|* ENTRY TAG FIELD WP,LB,RP
00208 M01S00133.iedit +++|* TAG = NAME OF FIELD (1-6 LEGAL COMPASS CHARACTERS)
00209 M01S00134.iedit +++|* = *, USE CURRENT VALUE OF PSEUDO ORG COUNTER ORLOC1$
00210 M01S00135.iedit +++|* LB = LEFT-MOST BIT POSITION WITHIN A WORD (BIT 59 BEING
00211 M01S00136.iedit +++|* SIGN BIT).
00212 M01S00137.iedit +++|* RB = RIGHT-MOST BIT POSITION WITHIN A WORD.
00213 M01S00138.iedit +++|*
00214 M01S00139.iedit +++|* EXIT TAGW = WORD LOCATION OF FIELD.
00215 M01S00140.iedit +++|* TAGS = LEFT BIT POSITION OF FIELD.
00216 M01S00141.iedit +++|* TAGN = NUMBER OF BITS IN FIELD.
00217 M01S00142.iedit +++|
00218 M01S00143.iedit +++|
00219 M01S00144.iedit +++| PURGMAC FIELD
00220 M01S00145.iedit +++|
00221 M01S00146.iedit +++| MACRO FIELD,TAG,WP,LB,RB
00222 M01S00147.iedit +++| MACREF FIELD
00223 M01S00148.iedit +++| IFC NE,/WP//,4
00224 M01S00149.iedit +++| IFC EQ,/WP/*/,2
00225 M01S00150.iedit +++| _TAG_W EQU ORLOC1$
00226 M01S00151.iedit +++| SKIP 1
00227 M01S00152.iedit +++| _TAG_W EQU WP
00228 M01S00153.iedit +++| _TAG_S EQU LB
00229 M01S00154.iedit +++| _TAG_N EQU LB-RB+1
00230 M01S00155.iedit +++| ENDM
00231 M01S00156.iedit +++| BASE *
00232 M01S00157.iedit +++| ENDX
00233 M01S00158.iedit +++| MXB SPACE 4,15
00234 M01S00159.iedit +++|** MXB - MASK WITH B REGISTER
00235 M01S00160.iedit +++|*
00236 M01S00161.iedit +++|* ENTRY I - X REGISTER TO PLACE MASK IN.
00237 M01S00162.iedit +++|* J - B REGISTER SPECIFING SIZE OF MASK.
00238 M01S00163.iedit +++|* 0 .LE. (B(J)) .LE. 60.
00239 M01S00164.iedit +++|*
00240 M01S00165.iedit +++|* EXIT MX(I) CONTAINS MASK OF SIZE SPECIFIED IN B(J).
00241 M01S00166.iedit +++|* B(J) SAME AS ON ENTRY.
00242 M01S00167.iedit +++|*
00243 M01S00168.iedit +++|* MXB PROVIDES A MASK INSTRUCTION USING A B REGISTER.
00244 M01S00169.iedit +++|* RESTRICTION - 0 .LE. (B) .LE. 60
00245 M01S00170.iedit +++|
00246 M01S00171.iedit +++|
00247 M01S00172.iedit +++| MXB OPDEF I,J
00248 M01S00173.iedit +++| BX.I X.I-X.I CLEAR X REGISTER
00249 M01S00174.iedit +++| SB.J B.J-B1
00250 M01S00175.iedit +++| PX.I X.I,B.J
00251 M01S00176.iedit +++| AX.I 58
00252 M01S00177.iedit +++| LX.I 59-0
00253 M01S00178.iedit +++| AX.I B.J A BIT MASK
00254 M01S00179.iedit +++| SB.J B.J+B1 RESTORE BJ
00255 M01S00180.iedit +++| ENDM
00256 M01S00181.iedit +++| OVLDEF SPACE 4,10
00257 M01S00182.iedit +++|** OVLDEF - DEFINE IEDIT OVERLAY.
00258 M01S00183.iedit +++|*
00259 M01S00184.iedit +++|* OVLDEF LA,EA,LEVEL,TITLE
00260 M01S00185.iedit +++|*
00261 M01S00186.iedit +++|* LA = LOAD ADDRESS.
00262 M01S00187.iedit +++|* EA = ENTRY ADDRESS.
00263 M01S00188.iedit +++|* LEVEL = LEVEL OF OVERLAY.
00264 M01S00189.iedit +++|* TITLE = TITLE OF OVERLAY.
00265 M01S00190.iedit +++|
00266 M01S00191.iedit +++|
00267 M01S00192.iedit +++| PURGMAC OVLDEF
00268 M01S00193.iedit +++|
00269 M01S00194.iedit +++| OVLDEF MACRO LA,EA,LVL,TEXT
00270 M01S00195.iedit +++| MACREF OVLDEF
00271 M01S00196.iedit +++| QUAL IEDIT_LVL
00272 M01S00197.iedit +++| TTL IEDIT_LVL - TEXT
00273 M01S00198.iedit +++| TITLE
00274 M01S00199.iedit +++| IDENT IEDIT_LVL,LA,EA,LVL,0
00275 M01S00200.iedit +++|*COMMENT IEDIT - TEXT
Line S00201 Modification History
M01(Added by)
iedit
M02(Updated by)
281l803
Seq # *Modification Id* Act
----------------------------+
00276 M02S00201.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
00277 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00278 M01S00202.iedit +++| ORG LA
00279 M01S00203.iedit +++| ENDM OVLDEF
00280 M01S00204.iedit +++| VERB SPACE 4,40
00281 M01S00205.iedit +++|** VERB - DECLARE VERB.
00282 M01S00206.iedit +++|*
00283 M01S00207.iedit +++|* VERB V,AL,P,FP DECLARE VERB
00284 M01S00208.iedit +++|* VERB DECLARE END OF VERB DECLARATIONS.
00285 M01S00209.iedit +++|*
00286 M01S00210.iedit +++|* ENTRY V - IEDIT VERB.
00287 M01S00211.iedit +++|* AL - * IF ALL ABBREVIATIONS OF THE VERB ARE TO BE
00288 M01S00212.iedit +++|* GENERATED; OTHERWISE NULL(OR ANY OTHER SYMBOL).
00289 M01S00213.iedit +++|* P - ORDERED LIST OF PROCESSOR DESCRIPTORS IN THE FORM
00290 M01S00214.iedit +++|* (AD,CON) -
00291 M01S00215.iedit +++|* AD - ENTRY ADDRESS OF PROCESSOR.
00292 M01S00216.iedit +++|* CON - R, IF SYNTACTIC ELEMENT REQUIRED.
00293 M01S00217.iedit +++|* O, IF SYNTACTIC ELEMENT IS OPTIONAL
00294 M01S00218.iedit +++|* (0 OR 1 OCCURRENCES).
00295 M01S00219.iedit +++|* A, IF ALTERNATE SYNTAX FOR COMMAND
00296 M01S00220.iedit +++|* FOLLOWS.
00297 M01S00221.iedit +++|* FP - FUNCTION PROCESSOR NUMBER.
00298 M01S00222.iedit +++|*
00299 M01S00223.iedit +++|* EXIT ENTRIES GENERATED ARE OF THREE TYPES, TYPE1, TYPE2
00300 M01S00224.iedit +++|* AND TYPE3.
00301 M01S00225.iedit +++|*T TYPE1 42/CV,6/0,6/P,6/V
00304 M01S00228.iedit +++|* WHERE -
00305 M01S00229.iedit +++|* CV - V OR ALLOWED ABBREVIATION OF V IN DISPLAY CODE.
00306 M01S00230.iedit +++|* P - NUMBER OF WORDS INCREMENT TO START OF LIST
00307 M01S00231.iedit +++|* OF PROCESSORS.
00308 M01S00232.iedit +++|* V - NUMBER OF WORDS INCREMENT TO NEXT VERB.
00309 M01S00233.iedit +++|* OP - 1, IF PROCESSOR RECOGNITION OF AN ELEMENT IS
00310 M01S00234.iedit +++|* OPTIONAL. I.E. 0 OR 1 OCCURRENCES ARE
00311 M01S00235.iedit +++|* TO BE ACCEPTED.
00312 M01S00236.iedit +++|* - 2 IF PROCESSOR MUST PROCESS AN OCCURENCE OF
00313 M01S00237.iedit +++|* THE SYNTACTIC ELEMENT
00314 M01S00238.iedit +++|* ( I.E. THIS FUNCTION IS REQUIRED).
00315 M01S00239.iedit +++|* OFFSET - OFFSET TO ALTERNATE SYNTAX FROM
00316 M01S00240.iedit +++|* START OF TABLE.
00317 M01S00241.iedit +++|* ADR - ENTRY ADDRESS OF SYNTAX PROCESSOR.
00318 M01S00242.iedit +++|*
00319 M01S00243.iedit +++|* MACROS DSUB.
00320 M01S00244.iedit +++|
00321 M01S00245.iedit +++|
00322 M01S00246.iedit +++| PURGMAC VERB
00323 M01S00247.iedit +++|
00324 M01S00248.iedit +++| VERB MACRO V,AL,P,FP
00325 M01S00249.iedit +++| LOCAL S,L,NM1,R,CV,LIST
00326 M01S00250.iedit +++| MACREF VERB
00327 M01S00251.iedit +++|
00328 M01S00252.iedit +++| .A IFC NE,$_V_AL_P_$$
00329 M01S00253.iedit +++|
00330 M01S00254.iedit +++| S MICRO 1,,$V$
00331 M01S00255.iedit +++| L MICCNT S
00332 M01S00256.iedit +++| .B IFLT L,3
Line S00257 Modification History
M01(Added by)
iedit
M02(Updated by)
v23l617
Seq # *Modification Id* Act
----------------------------+
00333 M02S00257.v23l617 ---| ERR ILLEGAL VERB SPECIFIED
00334 M01S00002.v23l617 +++| ERR INCORRECT VERB SPECIFIED
00335 M01S00258.iedit +++| .B ENDIF
00336 M01S00259.iedit +++|
00337 M01S00260.iedit +++| .B IFC EQ,$AL$*$
00338 M01S00261.iedit +++| R SET L-3+1 REPETITION COUNT
00339 M01S00262.iedit +++| .B ELSE
00340 M01S00263.iedit +++| R SET 1
00341 M01S00264.iedit +++| .B ENDIF
00342 M01S00265.iedit +++|
00343 M01S00266.iedit +++| VERB DUP R
00344 M01S00267.iedit +++| .B IF -DEF,VERBA
00345 M01S00268.iedit +++| N1 SET 1
00346 M01S00269.iedit +++| LASTNM1 MICRO 1,,$VERBA$
00347 M01S00270.iedit +++| .B ELSE
00348 M01S00271.iedit +++| N1 SET N1+1
00349 M01S00272.iedit +++| .B ENDIF
00350 M01S00273.iedit +++| NM1 MICRO N1,1,$BCDEFGHIJKLMNOPQRSTUVWXYZ0123456789$
00351 M01S00274.iedit +++| CV MICRO 1,L,$"S"$
00352 M01S00275.iedit +++| "LASTNM1" VFD TDVNN/0L_"CV",TDXXN/0,TDISN/LIST-*,TDIVN/VERB_"NM1"-*
00353 M01S00276.iedit +++| LASTNM1 MICRO 1,,$VERB_"NM1"$
00354 M01S00277.iedit +++| L SET L-1
00355 M01S00278.iedit +++| VERB ENDD
00356 M01S00279.iedit +++|
00357 M01S00280.iedit +++| N2 SET 1
00358 M01S00281.iedit +++| NM2 MICRO N2,1,$1234567890$
00359 M01S00282.iedit +++| ALTM MICRO 1,,$."NM1"_"NM2"$
00360 M01S00283.iedit +++|
00361 M01S00284.iedit +++|LIST BSS 0
00362 M01S00285.iedit +++| IRP P
00363 M01S00286.iedit +++| NWDS SET *
00364 M01S00287.iedit +++| DSUB P,"ALTM"
00365 M01S00288.iedit +++| .B IFEQ *-NWDS,0
00366 M01S00289.iedit +++| VFD TDRQN/0
00367 M01S00290.iedit +++| VFD TDOPN/0
00368 M01S00291.iedit +++| VFD TDFPN/1
00369 M01S00292.iedit +++| VFD TDRSN/0
00370 M01S00293.iedit +++| VFD TDASN/0
00371 M01S00294.iedit +++| VFD TDSAN/FP
00372 M01S00295.iedit +++| "ALTM" BSS 0
00373 M01S00296.iedit +++| N2 SET N2+1
00374 M01S00297.iedit +++| NM2 MICRO N2,1,$1234567890$
00375 M01S00298.iedit +++| ALTM MICRO 1,,$."NM1"_"NM2"$
00376 M01S00299.iedit +++| .B ENDIF
00377 M01S00300.iedit +++| IRP
00378 M01S00301.iedit +++| "ALTM" EQU 0
00379 M01S00302.iedit +++| VFD TDRQN/0
00380 M01S00303.iedit +++| VFD TDOPN/0
00381 M01S00304.iedit +++| VFD TDFPN/1
00382 M01S00305.iedit +++| VFD TDRSN/0
00383 M01S00306.iedit +++| VFD TDASN/0
00384 M01S00307.iedit +++| VFD TDSAN/FP
00385 M01S00308.iedit +++|
00386 M01S00309.iedit +++| .A ELSE
00387 M01S00310.iedit +++|
00388 M01S00311.iedit +++| "LASTNM1" BSSZ 1
00389 M01S00312.iedit +++| .A ENDIF
00390 M01S00313.iedit +++| VERB ENDM
00391 M01S00314.iedit +++| DSUB SPACE 4,10
00392 M01S00315.iedit +++|** DSUB - DECLARE SUBROUTINE (HELPER MACRO).
00393 M01S00316.iedit +++|*
00394 M01S00317.iedit +++|
00395 M01S00318.iedit +++|
00396 M01S00319.iedit +++| PURGMAC DSUB
00397 M01S00320.iedit +++|
00398 M01S00321.iedit +++| DSUB MACRO AD,C,ALT
00399 M01S00322.iedit +++| LOCAL F
00400 M01S00323.iedit +++| MACREF DSUB
00401 M01S00324.iedit +++|
00402 M01S00325.iedit +++| .A IFC NE,$AD$$
00403 M01S00326.iedit +++| F EQU *
00404 M01S00327.iedit +++| .B IFC EQ,$C$R$
00405 M01S00328.iedit +++| VFD TDRQN/1
00406 M01S00329.iedit +++| VFD TDOPN/0
00407 M01S00330.iedit +++| VFD TDFPN/0
00408 M01S00331.iedit +++| VFD TDRSN/0
00409 M01S00332.iedit +++| VFD TDASN/ALT
00410 M01S00333.iedit +++| VFD TDSAN/AD
00411 M01S00334.iedit +++| .B ENDIF
00412 M01S00335.iedit +++| .B IFC EQ,$C$O$
00413 M01S00336.iedit +++| VFD TDRQN/0
00414 M01S00337.iedit +++| VFD TDOPN/1
00415 M01S00338.iedit +++| VFD TDFPN/0
00416 M01S00339.iedit +++| VFD TDRSN/0
00417 M01S00340.iedit +++| VFD TDASN/ALT
00418 M01S00341.iedit +++| VFD TDSAN/AD
00419 M01S00342.iedit +++| .B ENDIF
00420 M01S00343.iedit +++| .B IFEQ F-*,0
00421 M01S00344.iedit +++| ERR SECOND PARAMETER WRONG
00422 M01S00345.iedit +++| .B ENDIF
00423 M01S00346.iedit +++| .A ELSE
00424 M01S00347.iedit +++| .B IFC NE,$C$A$
00425 M01S00348.iedit +++| ERR
00426 M01S00349.iedit +++| .B ENDIF
00427 M01S00350.iedit +++| .A ENDIF
00428 M01S00351.iedit +++| DSUB ENDM
00429 M01S00352.iedit +++| TITLE COMMON DECKS.
00430 M01S00353.iedit +++|** DEFINITION COMMON DECKS.
00431 M01S00354.iedit +++|*
00432 M01S00355.iedit +++|*CALL COMCMAC
00433 M01S00356.iedit +++|*CALL COMCCMD
00434 M01S00357.iedit +++|*CALL COMCMTM
00435 M01S00358.iedit +++| TITLE WORKING STORAGE.
00436 M01S00359.iedit +++| ORG 111B
00437 M01S00360.iedit +++| FWA BSS 0
00438 M01S00361.iedit +++|
00439 M01S00362.iedit +++|** ASSEMBLY CONSTANTS.
00440 M01S00363.iedit +++|
00441 M01S00364.iedit +++| CLRL1 EQU 1 CLEAR LINE 1 OF CONTROL POINT
00442 M01S00365.iedit +++| EC1 EQU 74B ESCAPE CODE 1
00443 M01S00366.iedit +++| EC2 EQU 76B ESCAPE CODE 2
00444 M01S00367.iedit +++| LBINC EQU 250 LINE BUFFER TABLE INCREMENT
00445 M01S00368.iedit +++| LNTINC EQU 50 LINE NUMBER TABLE INCREMENT
00446 M01S00369.iedit +++| MINCR EQU 2000B MEMORY INCREMENT
00447 M01S00370.iedit +++| SNF$ SET 0 SNF WILL RETURN NUMBER OF SORTED LINES
00448 M01S00371.iedit +++| TRIM SET 0 TRIM MODE DESELECTED
00449 M01S00372.iedit +++| USBL$ SET 1
00450 M01S00373.iedit +++| USBA$ SET 1
00451 M01S00374.iedit +++| RDX$ SET 1 SUPPRESS HALF-BUFFER CIO THRESHOLD
00452 M01S00375.iedit +++| WTX$ SET 1 SUPPRESS HALF-BUFFER CIO THRESHOLD
00453 M01S00376.iedit +++| MXWL EQU 32D MAXIMUM CM WORDS IN LINE
00454 M01S00377.iedit +++| MXCIL EQU MXWL*10D/2 MAXIMUM CHARACTERS IN LINE
00455 M01S00378.iedit +++| MXIC EQU 4095 MAXIMUM INCREMENT SIZE
00456 M01S00379.iedit +++| MXLN EQU 99999 MAXIMUM LINE NUMBER
00457 M01S00380.iedit +++| MXWS EQU 7 MAXIMUM WORD SIZE IS SEVEN CHARACTERS
00458 M01S00381.iedit +++| NBIC EQU 6 NUMBER OF BITS IN CHARACTER
00459 M01S00382.iedit +++| NUMD EQU 5 MAXIMUM DIGITS IN LINE NUMBER
00460 M01S00383.iedit +++| NWIF EQU 7 NUMBER OF WORDS IN FET
00461 M01S00384.iedit +++|
00462 M01S00385.iedit +++|* THE MAIN AND LINE BUFFERS EACH CONTAIN THREE EXTRA
00463 M01S00386.iedit +++|* WORDS TO ALLOW *COMCSNF* TO SPLIT EACH BUFFER IN HALF
00464 M01S00387.iedit +++|* AND STILL HAVE TWO EXTRA WORDS IN THE SECOND HALF.
00465 M01S00388.iedit +++|* FOR MORE INFORMATION SEE *COMCSNF*.
00466 M01S00389.iedit +++|
00467 M01S00390.iedit +++| EBSZ EQU 4004B MAIN BUFFER SIZE
00468 M01S00391.iedit +++| LNTSZ EQU 201B LINE NUMBER TABLE SIZE
00469 M01S00392.iedit +++| LBSZ EQU 1404B LINE BUFFER SIZE
00470 M01S00393.iedit +++| SCRASZ EQU 1401B FIRST SCRATCH BUFFER SIZE
00471 M01S00394.iedit +++| SCRBSZ EQU 1401B SECOND SCRATCH BUFFER SIZE
00472 M01S00395.iedit +++| SCRCSZ EQU 4401B SEQUENTIAL FILE-REBUILD BUFFER SIZE
00473 M01S00396.iedit +++| OTSZ EQU 1001B OUTPUT BUFFER SIZE
00474 M01S00397.iedit +++| INSZ EQU 101B INPUT/CLB= BUFFER SIZE
00475 M01S00398.iedit +++| BUFL EQU EBSZ+LNTSZ+LBSZ+SCRASZ+SCRBSZ
00476 M01S00399.iedit +++| BUFL2 EQU EBSZ+SCRCSZ
00477 M01S00400.iedit +++|
Line S00401 Modification History
M01(Added by)
iedit
M02(Updated by)
v23l617
Seq # *Modification Id* Act
----------------------------+
00478 M02S00401.v23l617 ---|** CONTROL STATEMENT PARAMETERS.
00479 M01S00003.v23l617 +++|** COMMAND PARAMETERS.
00480 M01S00402.iedit +++|
00481 M01S00403.iedit +++| EFN CON 0 EDIT FILE NAME
00482 M01S00404.iedit +++| BOP CON 0 B OPTION
00483 M01S00405.iedit +++| LOP CON 0 L OPTION
00484 M01S00406.iedit +++| FOP CON 0 F OPTION
00485 M01S00407.iedit +++|
00486 M01S00408.iedit +++|** VARIABLES SET BY PRESET.
00487 M01S00409.iedit +++|
00488 M01S00410.iedit +++| BLNK CON 0 SET TO A BLANK IN CURRENT CHARACTER SET
00489 M01S00411.iedit +++| CSTI CON 0 CHARACTER SET TYPE INDICATOR
00490 M01S00412.iedit +++| FILEN CON 0 FILE NAME OF SECONDARY FILE
00491 M01S00413.iedit +++| FLNGTH CON 0 LENGTH OF ORIGINAL EDIT FILE
00492 M01S00414.iedit +++| FNUM CON 0 FUNCTION NUMBER
00493 M01S00415.iedit +++| INCR CON 1 RESEQUENCING INCREMENT
00494 M01S00416.iedit +++| LNIA CON MXLN+1 LINE NUMBER TO INSERT AFTER
00495 M01S00417.iedit +++| LSTFIL CON 0 LIST OPTION
00496 M01S00418.iedit +++| MSTAT VFD 30/-1,30/0 MEMORY STATUS WORD
00497 M01S00419.iedit +++| NCIS CON 0 NUMBER OF CHARACTERS IN SEARCH STRING
00498 M01S00420.iedit +++| NCIR CON 0 NUMBER OF CHARACTERS IN REPLACEMENT STRING
00499 M01S00421.iedit +++| NELR CON 0 NUMBER OF ENTRIES IN LINE RANGE TABLE
00500 M01S00422.iedit +++|
00501 M01S00423.iedit +++|** VARIABLES SET BY LINE SELECT/PROCESSING PHASE.
00502 M01S00424.iedit +++|
00503 M01S00425.iedit +++| APPFLG CON 0 CHANGE RECORDS APPENDED FLAG
00504 M01S00426.iedit +++| CMAX CON 0 MAXIMUM AMOUNT OF MEMORY AVAILABLE
00505 M01S00427.iedit +++| CMEM CON 0 CURRENT AMOUNT OF MEMORY BEING USED
00506 M01S00428.iedit +++| DYNST CON 0 AMOUNT OF DYNAMIC STORAGE
00507 M01S00429.iedit +++| FLAGS CON 0 *LNTBUF* ENTRY FLAGS
00508 M01S00430.iedit +++| FNAI CON MXLN+1 FIRST LINE NUMBER AFTER INSERTION
00509 M01S00431.iedit +++| INTFLG CON 0 SET IF NOT INTERRUPTIBLE
00510 M01S00432.iedit +++| LSRA CON 0 NUMBER TO ASSIGN TO FIRST INSERTED LINE
00511 M01S00433.iedit +++| LTFILE CON 0 *LNT* FILE FLAG
00512 M01S00434.iedit +++| LBFILE CON 0 LINE BUFFER FULL FLAG
00513 M01S00435.iedit +++| LBFET CON E FET ADDRESS OF CURRENT LINE BUFFER
00514 M01S00436.iedit +++| LB2FET CON L FET ADDRESS OF SCRATCH LINE BUFFER
00515 M01S00437.iedit +++| LTFET CON LNT1 FET ADDRESS OF SORT/MERGED *LNT* FILE
00516 M01S00438.iedit +++| LT2FET CON LNT2 FET ADDRESS OF A FREE SCRATCH BUFFER
00517 M01S00439.iedit +++| NBLN CON 0 NEW BINARY LINE NUMBER
00518 M01S00440.iedit +++| NCOL CON 0 NUMBER OF CHARACTERS ON A LINE
00519 M01S00441.iedit +++| NMLS CON 0 NUMBER *LNT* ENTRIES CURRENTLY IN BUFFER
00520 M01S00442.iedit +++| NNOL CON 0 NUMBER OF NON-OVERLAPPED LINES
00521 M01S00443.iedit +++| NTBL CON 0 NUMBER OF TRAILING BLANKS IN LINE
00522 M01S00444.iedit +++| NTL CON 0 NUMBER OF TRUNCATED LINES
00523 M01S00445.iedit +++| OBLN CON -1 OLD BINARY LINE NUMBER
00524 M01S00446.iedit +++| OLLE CON 0 OVERLAPPED LINES LINE RANGE TABLE ENTRY
00525 M01S00447.iedit +++| OVLPFG CON 0 OVERLAP PROCESSING FLAG
00526 M01S00448.iedit +++| OUT DATA C*OUTPUT* FILE NAME TO WRITE TO
00527 M01S00449.iedit +++| SCRFIL CON 0 SCRATCH BUFFER FLAG
00528 M01S00450.iedit +++| TRNC CON 0 TRUNCATED LINE FLAG
00529 M01S00451.iedit +++| UNRF CON 0 UNNUMBERED *READ* FILE FLAG
00530 M01S00452.iedit +++| SPACE 4,15
00531 M01S00453.iedit +++|** TABLE OF FUNCTION NUMBERS.
00532 M01S00454.iedit +++|
00533 M01S00455.iedit +++| TOFN BSS 0 BEGINNING OF FUNCTION TABLE
00534 M01S00456.iedit +++| LOC 1
00535 M01S00457.iedit +++|
00536 M01S00458.iedit +++| FNDU VFD 18/EFN,42/0 DUP
00537 M01S00459.iedit +++| FNMO VFD 18/EFN,42/0 MOVE
00538 M01S00460.iedit +++| FNRE VFD 18/EFN,42/0 READ
00539 M01S00461.iedit +++| MXIL EQU *-1 MAXIMUM FUNCTION TO CAUSE OVERLAP
00540 M01S00462.iedit +++|
00541 M01S00463.iedit +++| FNAL VFD 18/EFN,42/0 ALTER
00542 M01S00464.iedit +++| FNDE VFD 18/EFN,42/0 DELETE
00543 M01S00465.iedit +++| FNLI VFD 18/OUT,42/0 LIST/LNH
00544 M01S00466.iedit +++| MXNW EQU *-1 MAXIMUM NON-*WRITE(N)* FUNCTION
00545 M01S00467.iedit +++|
00546 M01S00468.iedit +++| FNWR VFD 18/FILEN,42/0 WRITE
00547 M01S00469.iedit +++| FNWN VFD 18/FILEN,42/0 WRITEN
00548 M01S00470.iedit +++| LOC *O
00549 M01S00471.iedit +++| SPACE 4
00550 M01S00472.iedit +++|** TABLE OF SCRATCH FILES.
00551 M01S00473.iedit +++|
00552 M01S00474.iedit +++| TSF BSS 0
00553 M01S00475.iedit +++| VFD 42/0LZZZZZG0,18/0 LINE BUFFER FILES
00554 M01S00476.iedit +++| VFD 42/0LZZZZZG1,18/0
00555 M01S00477.iedit +++| VFD 42/0LZZZZZG2,18/0 LINE NUMBER TABLE FILES
00556 M01S00478.iedit +++| VFD 42/0LZZZZZG3,18/0
00557 M01S00479.iedit +++| VFD 42/0LZZZZZG4,18/0 SORT FILES
00558 M01S00480.iedit +++| VFD 42/0LZZZZZG5,18/0
00559 M01S00481.iedit +++| VFD 42/0LZZZZZG6,18/0 DELETED LINE NUMBER FILE
00560 M01S00482.iedit +++| VFD 42/0LZZZZZG7,18/0 TRUNCATED LINE FILE
00561 M01S00483.iedit +++| CON 0
00562 M01S00484.iedit +++| SPACE 4,5
00563 M01S00485.iedit +++|** *FILINFO* PARAMETER BLOCK.
00564 M01S00486.iedit +++|
00565 M01S00487.iedit +++| FIPB VFD 42/0,6/5,12/1
00566 M01S00488.iedit +++| BSSZ 4
00567 M01S00489.iedit +++| SPACE 4,5
00568 M01S00490.iedit +++|** *LOF* PARAMETER BLOCK.
00569 M01S00491.iedit +++|
00570 M01S00492.iedit +++| LOFPRM VFD 12/0,18/PRMW2,30/0
00571 M01S00493.iedit +++| PRMW2 VFD 42/0,18/3
00572 M01S00494.iedit +++| VFD 42/0LOUTPUT,18/O
00573 M01S00495.iedit +++| VFD 60/0
00574 M01S00496.iedit +++| SPACE 4,5
00575 M01S00497.iedit +++|** *REPRIEVE* PARAMETER BLOCK.
00576 M01S00498.iedit +++|
00577 M01S00499.iedit +++| RPB BSS 0
00578 M01S00500.iedit +++| VFD 36/0,12/RPBL,12/0
00579 M01S00501.iedit +++| VFD 30/0,30/PIT
00580 M01S00502.iedit +++| BSSZ 7
00581 M01S00503.iedit +++| BSSZ 16 EXCHANGE PACKAGE
00582 M01S00504.iedit +++| RPBL EQU *-RPB
00583 M01S00505.iedit +++| TITLE TABLES.
00584 M01S00506.iedit +++| SPACE 4,10
00585 M01S00507.iedit +++|** FIELD DEFINITIONS FOR VERB TABLE.
00586 M01S00508.iedit +++|
00587 M01S00509.iedit +++|
00588 M01S00510.iedit +++| TDVN FIELD ,59,18 VERB NAME
00589 M01S00511.iedit +++| TDXX FIELD ,17,12 RESERVED FOR CDC
00590 M01S00512.iedit +++| TDIS FIELD ,11,6 INCREMENT TO START OF PROCESSES FOR VERB
00591 M01S00513.iedit +++| TDIV FIELD ,5,0 INCREMENT TO NEXT VERB
00592 M01S00514.iedit +++| TDRQ FIELD ,59,59 REQUIRED ATTRIBUTE (SET IF YES)
00593 M01S00515.iedit +++| TDOP FIELD ,58,58 OPTIONAL
00594 M01S00516.iedit +++| TDFP FIELD ,57,57 SET IF AT END OF PROCESSORS FOR VERB
00595 M01S00517.iedit +++| TDRS FIELD ,56,36 RESERVED FOR CDC
00596 M01S00518.iedit +++| TDAS FIELD ,35,18 OFFSET TO FWA OF ALTERNATE SYNTAX
00597 M01S00519.iedit +++| TDSA FIELD ,17,0 SUBROUTINE ADDRESS TO PROCESS
00598 M01S00520.iedit +++|
00599 M01S00521.iedit +++|** CHARACTER ATTRIBUTE BIT LOCATIONS.
00600 M01S00522.iedit +++|
00601 M01S00523.iedit +++|
00602 M01S00524.iedit +++| LETA EQU 1S0 LETTER ATTRIBUTE
00603 M01S00525.iedit +++| DIGA EQU 1S1 DIGIT (NUMBER) ATTRIBUTE
00604 M01S00526.iedit +++| DLMA EQU 1S2 DELIMITER ATTRIBUTE
00605 M01S00527.iedit +++| CHAA EQU 1S3 CHARACTER ATTRIBUTE
00606 M01S00528.iedit +++| SEPA EQU 1S4 SEPARATOR ATTRIBUTE
00607 M01S00529.iedit +++| TERA EQU 1S5 TERMINATOR ATTRIBUTE
00608 M01S00530.iedit +++| MXNA EQU 6 MAXIMUM NUMBER OF ATTRIBUTES PER CHARACTER
00609 M01S00531.iedit +++| SEDE EQU SEPA+DLMA
00610 M01S00532.iedit +++| *LNT* SPACE 4,10 ATTRIBUTE BIT LOCATIONS DEFINED
00611 M01S00533.iedit +++|** THE *LNT* CONSISTS OF ONE WORD ENTRIES EITHER IN A BUFFER
00612 M01S00534.iedit +++|* OR WRITTEN OUT TO A LOCAL DISK FILE. THE FORMAT OF A
00613 M01S00535.iedit +++|* *LNT* ENTRY IS -
00614 M01S00536.iedit +++|*
00615 M01S00537.iedit +++|*T 18/NLN, 18/OLN, 1/O, 23/
Figure
00616 M01S00538.iedit +++|*
00617 M01S00539.iedit +++|* NLN = NEW LINE NUMBER.
00618 M01S00540.iedit +++|* OLN = OLD LINE NUMBER.
00619 M01S00541.iedit +++|* O = OVERLAP PROCESSING FLAG.
00620 M01S00542.iedit +++|
00621 M01S00543.iedit +++|
00622 M01S00544.iedit +++| FOVL EQU 23 OVERLAPPED LINE FLAG
00623 M01S00545.iedit +++| BUFFERS SPACE 4,10
00624 M01S00546.iedit +++|** BUFFER DEFINITIONS.
00625 M01S00547.iedit +++|
00626 M01S00548.iedit +++| LRT BSS MXWL+1 LINE RANGE TABLE
00627 M01S00549.iedit +++| CLIN BSS 0 CURRENT EDIT FILE LINE BEING WORKED
00628 M01S00550.iedit +++| USBB BSS MXCIL+1 STRING BUFFER USED BY *USB*
00629 M01S00551.iedit +++| INBUF BSS INSZ INPUT BUFFER
00630 M01S00552.iedit +++| OTBUF BSS OTSZ OUTPUT BUFFER
00631 M01S00553.iedit +++| PCKDBF BSSZ MXWL+1 PACKED LINE BUFFER
00632 M01S00554.iedit +++| RBUF BSSZ MXCIL REPLACEMENT BUFFER
00633 M01S00555.iedit +++| SBUF BSSZ MXCIL SEARCH STRING BUFFER
00634 M01S00556.iedit +++| TRBUF BSS 204B TRUNCATED LINE BUFFER
00635 M01S00557.iedit +++| EFBUF TABLE EDIT FILE BUFFER
00636 M01S00558.iedit +++| SCRBA TABLE SCRATCH 1 / REBUILD BUFFER
00637 M01S00559.iedit +++| SCRBB TABLE SCRATCH BUFFER 2
00638 M01S00560.iedit +++| LNBUF TABLE LINE BUFFER
00639 M01S00561.iedit +++| LNTBUF TABLE LINE NUMBER TABLE BUFFER
00640 M01S00562.iedit +++| SPACE 4,10 INTERFACE FILE FETS
00641 M01S00563.iedit +++|** FET DEFINITIONS.
00642 M01S00564.iedit +++|
00643 M01S00565.iedit +++| E BSS 0 EDIT FILE BUFFER
00644 M01S00566.iedit +++| EFB FILEB 0,0,(FET=NWIF)
00645 M01S00567.iedit +++|
00646 M01S00568.iedit +++| I BSS 0 INPUT BUFFER
00647 M01S00569.iedit +++| INPUT FILEB INBUF,INSZ,(FET=NWIF)
00648 M01S00570.iedit +++|
00649 M01S00571.iedit +++| O BSS 0 OUTPUT BUFFER
00650 M01S00572.iedit +++| OUTPUT FILEB OTBUF,OTSZ,(FET=NWIF)
00651 M01S00573.iedit +++|
00652 M01S00574.iedit +++| L BSS 0 LINE BUFFER FILE
00653 M01S00575.iedit +++| ZZZZZG0 FILEB 0,0,(FET=NWIF)
00654 M01S00576.iedit +++|
00655 M01S00577.iedit +++| LNT1 BSS 0 LINE NUMBER TABLE FILE
00656 M01S00578.iedit +++| ZZZZZG2 FILEB 0,0,(FET=NWIF)
00657 M01S00579.iedit +++|
00658 M01S00580.iedit +++| LNT2 BSS 0 *LNT* SCRATCH FILE
00659 M01S00581.iedit +++| ZZZZZG3 FILEB 0,0,(FET=NWIF)
00660 M01S00582.iedit +++|
00661 M01S00583.iedit +++| SCR BSS 0 SCRATCH FILE 0
00662 M01S00584.iedit +++| ZZZZZG4 FILEB 0,0,(FET=NWIF)
00663 M01S00585.iedit +++|
00664 M01S00586.iedit +++| SCR1 BSS 0 SCRATCH FILE 1
00665 M01S00587.iedit +++| ZZZZZG5 FILEB 0,0,(FET=NWIF)
00666 M01S00588.iedit +++|
00667 M01S00589.iedit +++| TRNCFET BSS 0 TRUNCATED LINE BUFFER
00668 M01S00590.iedit +++| ZZZZZG7 FILEB TRBUF,204B,(FET=NWIF)
00669 M01S00591.iedit +++| TITLE MAIN PROGRAM.
00670 M01S00592.iedit +++| MAIN SPACE 4,20
00671 M01S00593.iedit +++|** IED - MAIN LOOP OF PROGRAM.
00672 M01S00594.iedit +++|*
00673 M01S00595.iedit +++|* ENTRY NONE.
00674 M01S00596.iedit +++|*
00675 M01S00597.iedit +++|* EXIT *IEDIT* PROCESSING COMPLETED.
00676 M01S00598.iedit +++|* TO *ERR* - IF A FATAL ERROR IS DETECTED.
00677 M01S00599.iedit +++|*
00678 M01S00600.iedit +++|* USES X - 0, 1, 2, 3, 5, 6.
00679 M01S00601.iedit +++|* A - 1, 2, 3, 6.
00680 M01S00602.iedit +++|* B - 2, 5.
00681 M01S00603.iedit +++|*
00682 M01S00604.iedit +++|* CALLS ABS, CDD, ERT, MRD, PRS, PSC, RSF, SFI, SNM.
00683 M01S00605.iedit +++|*
00684 M01S00606.iedit +++|* MACROS ENDRUN, FILINFO, RETURN, SYSTEM, WRITEC, WRITER.
00685 M01S00607.iedit +++|
00686 M01S00608.iedit +++|
00687 M01S00609.iedit +++| IEDIT BSS 0 ENTRY
00688 M01S00610.iedit +++| RJ PRS
00689 M01S00611.iedit +++| SA1 EFBUF ALLOCATE SPACE FOR MAIN BUFFER
00690 M01S00612.iedit +++| SX2 EBSZ
00691 M01S00613.iedit +++| RJ ABS
00692 M01S00614.iedit +++| NG X6,IED9 IF NOT ENOUGH ROOM FOR MAIN BUFFER
00693 M01S00615.iedit +++| SA1 SCRBA ALLOCATE SPACE FOR SCRATCH/REBUILD
00694 M01S00616.iedit +++| SX2 SCRASZ
00695 M01S00617.iedit +++| SA3 FNUM
00696 M01S00618.iedit +++| SX3 X3-MXIL-1
00697 M01S00619.iedit +++| NG X3,IED1 IF NON-SEQUENTIAL COMMAND
00698 M01S00620.iedit +++| SX2 SCRCSZ
00699 M01S00621.iedit +++| RJ ABS
00700 M01S00622.iedit +++| NG X6,IED9 IF NOT ENOUGH SPACE FOR SEQUENTIAL COMMAND
00701 M01S00623.iedit +++| EQ IED2 PROCESS SEQUENTIAL COMMAND
00702 M01S00624.iedit +++|
00703 M01S00625.iedit +++| IED1 RJ ABS
00704 M01S00626.iedit +++| NG X6,IED9 IF NOT ENOUGH SPACE FOR SCRATCH BUFFER
00705 M01S00627.iedit +++| SA1 SCRBB ALLOCATE SECOND SCRATCH BUFFER
00706 M01S00628.iedit +++| SX2 SCRBSZ
00707 M01S00629.iedit +++| RJ ABS
00708 M01S00630.iedit +++| NG X6,IED9 IF NOT ENOUGH SPACE FOR *SCRBB*
00709 M01S00631.iedit +++| SA1 LNBUF ALLOCATE SPACE FOR LINE BUFFER
00710 M01S00632.iedit +++| SX2 LBSZ
00711 M01S00633.iedit +++| RJ ABS
00712 M01S00634.iedit +++| NG X6,IED9 IF NOT ENOUGH SPACE FOR *LBUF*
00713 M01S00635.iedit +++| SA1 BOP
00714 M01S00636.iedit +++| ZR X1,IED2 IF *LNT* NOT NEEDED
00715 M01S00637.iedit +++| SA1 LNTBUF
00716 M01S00638.iedit +++| SX2 LNTSZ
00717 M01S00639.iedit +++| RJ ABS ALLOCATE BUFFER
00718 M01S00640.iedit +++| NG X6,IED9 IF NOT ENOUGH ROOM FOR *LNT*
00719 M01S00641.iedit +++| IED2 RJ SFI UPDATE FET POINTERS FOR ALLOCATED TABLES
00720 M01S00642.iedit +++| SA1 EFN
00721 M01S00643.iedit +++| SA2 FIPB
00722 M01S00644.iedit +++| MX3 42
00723 M01S00645.iedit +++| BX1 X1*X3
00724 M01S00646.iedit +++| BX2 -X3*X2
00725 M01S00647.iedit +++| BX6 X1+X2
00726 M01S00648.iedit +++| SA6 A2
00727 M01S00649.iedit +++| FILINFO FIPB GET LENGTH OF EDIT FILE
00728 M01S00650.iedit +++| SA2 FIPB+3
00729 M01S00651.iedit +++| MX3 24
00730 M01S00652.iedit +++| BX6 X2*X3
00731 M01S00653.iedit +++| LX6 24
00732 M01S00654.iedit +++| SA6 FLNGTH
00733 M01S00655.iedit +++| SA1 FNUM
00734 M01S00656.iedit +++| SX2 X1-MXIL-1
00735 M01S00657.iedit +++| PL X2,IED3 IF A SEQUENTIAL COMMAND
00736 M01S00658.iedit +++| SX7 B0+
00737 M01S00659.iedit +++| RJ RSF REWIND SCRATCH FILES
00738 M01S00660.iedit +++| RJ MRD PROCESS A *MOVE*, *READ*, OR *DUP*
00739 M01S00661.iedit +++| EQ IED4 POST PROCESS COMMAND
00740 M01S00662.iedit +++|
00741 M01S00663.iedit +++| IED3 RJ PSC PROCESS A SEQUENTIAL COMMAND
00742 M01S00664.iedit +++| IED4 SA1 NTL
00743 M01S00665.iedit +++| ZR X1,IED6 IF NO TRUNCATED LINES
00744 M01S00666.iedit +++| RJ CDD REPORT TRUNCATIONS
00745 M01S00667.iedit +++| MX0 B2 DELETE TRAILING SPACES
00746 M01S00668.iedit +++| BX1 X0*X4
00747 M01S00669.iedit +++| SB2 1RZ
00748 M01S00670.iedit +++| SB5 ERRLTF
00749 M01S00671.iedit +++| RJ SNM SET NAME IN MESSAGE
00750 M01S00672.iedit +++| SB5 ERRLTF
00751 M01S00673.iedit +++| SB2 1RQ
00752 M01S00674.iedit +++| SA2 FNUM
00753 M01S00675.iedit +++| SA1 X2+TOFN-1
00754 M01S00676.iedit +++| LX1 18
00755 M01S00677.iedit +++| SA1 X1
00756 M01S00678.iedit +++| RJ SNM SET NAME IN MESSAGE
Line S00679 Modification History
M01(Added by)
iedit
M02(Updated by)
iedit2
Seq # *Modification Id* Act
----------------------------+
00757 M02S00679.iedit2 ---| WRITEC O,ERRLTF
00758 M01S00074.iedit2 +++| WRITEC O,ERRLTF *ZZZZZ LINES TRUNCATED ON FILE QQQQQQQ.*
00759 M01S00680.iedit +++| SA3 TRNCFET PREPARE TO PRINT TRUNCATED NUMBERS
00760 M01S00681.iedit +++| MX2 42
00761 M01S00682.iedit +++| BX3 -X2*X3
00762 M01S00683.iedit +++| SX2 A3
00763 M01S00684.iedit +++| SX3 X3-3
00764 M01S00685.iedit +++| ZR X3,IED5 IF BUFFER NEVER WRITTEN TO DISK
00765 M01S00686.iedit +++| SX3 B1+ INDICATE ON-DISK STATUS
00766 M01S00687.iedit +++| RJ ERT
00767 M01S00688.iedit +++| RETURN TRNCFET
00768 M01S00689.iedit +++| EQ IED6 PERFORM FINAL PROCESSING
00769 M01S00690.iedit +++|
00770 M01S00691.iedit +++| IED5 RJ ERT ECHO RECORD TO TERMINAL
00771 M01S00692.iedit +++| IED6 SA1 FNUM
00772 M01S00693.iedit +++| SX1 X1-MXIL-1
00773 M01S00694.iedit +++| PL X1,IED8 IF SEQUENTIAL COMMAND
00774 M01S00695.iedit +++| SA1 APPFLG SET SORT FLAG IN TERMINAL TABLE
00775 M01S00696.iedit +++| ZR X1,IED7 IF SORT STATUS DID NOT CHANGE
00776 M01S00697.iedit +++| SYSTEM TLX,R,X1,1000B
00777 M01S00698.iedit +++| IED7 SX7 B1
00778 M01S00699.iedit +++| RJ RSF RETURN SCRATCH FILES
00779 M01S00700.iedit +++| IED8 WRITER O
00780 M01S00701.iedit +++| ENDRUN
00781 M01S00702.iedit +++|
00782 M01S00703.iedit +++| IED9 SX5 ERRNES *NOT ENOUGH BUFFER SPACE AVAILABLE.*
00783 M01S00704.iedit +++| EQ ERR EXIT TO ERROR PROCESSOR
00784 M01S00705.iedit +++| TITLE FUNCTION PROCESSORS.
00785 M01S00706.iedit +++| MRD SPACE 4,15
00786 M01S00707.iedit +++|** MRD - *MOVE*, *READ*, AND *DUP* FUNCTION PROCESSOR.
00787 M01S00708.iedit +++|*
00788 M01S00709.iedit +++|* ENTRY (FILEN) = NAME OF *READ* FILE IF *READ* COMMAND.
00789 M01S00710.iedit +++|*
00790 M01S00711.iedit +++|* EXIT CHANGE RECORDS APPENDED TO END OF EDIT FILE.
00791 M01S00712.iedit +++|*
00792 M01S00713.iedit +++|* USES X - 1, 2, 3, 5, 6, 7.
00793 M01S00714.iedit +++|* A - 1, 2, 3, 5, 6, 7.
00794 M01S00715.iedit +++|*
00795 M01S00716.iedit +++|* CALLS AEC, CBR, PLO, RLN, SLF, SLN, SLT.
00796 M01S00717.iedit +++|*
00797 M01S00718.iedit +++|* NOTES ALL LINES FROM THE *READ* FILE ARE IMPLICITLY
00798 M01S00719.iedit +++|* SELECTED FOR INSERTION INTO THE EDIT FILE.
00799 M01S00720.iedit +++|
00800 M01S00721.iedit +++|
00801 M01S00722.iedit +++| MRD SUBR ENTRY/EXIT
00802 M01S00723.iedit +++| RJ SLF SELECT LINES FROM FILE
00803 M01S00724.iedit +++| SA1 FNUM
00804 M01S00725.iedit +++| SX1 X1-FNRE
00805 M01S00726.iedit +++| NZ X1,MRD1 IF NOT A *READ* COMMAND
00806 M01S00727.iedit +++| SX2 L SET *READ* FILE NAME INTO FET *L*
00807 M01S00728.iedit +++| SA5 FILEN
00808 M01S00729.iedit +++| RJ SLN
00809 M01S00730.iedit +++| SX7 B1+
00810 M01S00731.iedit +++| SA7 LBFILE
00811 M01S00732.iedit +++| MRD1 SA5 TSF+6
00812 M01S00733.iedit +++| SX2 SCR1
00813 M01S00734.iedit +++| RJ SLN RESTORE *ZZZZZG6* INTO FET *SCR1*
00814 M01S00735.iedit +++| SX5 B0+
00815 M01S00736.iedit +++| RJ SBE SET *SCR1* EMPTY
00816 M01S00737.iedit +++| SX7 B0+
00817 M01S00738.iedit +++| RJ RLN REPLACE LINE NUMBER ON LINE
00818 M01S00739.iedit +++| SA2 FNUM
00819 M01S00740.iedit +++| SX2 X2-FNRE
00820 M01S00741.iedit +++| NZ X2,MRD2 IF NOT A *READ* COMMAND
00821 M01S00742.iedit +++| SX2 L SET *ZZZZZG0* INTO FET *L*
00822 M01S00743.iedit +++| SA5 TSF+0
00823 M01S00744.iedit +++| RJ SLN
00824 M01S00745.iedit +++| MRD2 RJ PLO PROCESS LINE OVERLAP
00825 M01S00746.iedit +++| SA1 BOP
00826 M01S00747.iedit +++| ZR X1,MRD3 IF NOT IN *BASIC* SUBSYSTEM
00827 M01S00748.iedit +++| SA1 UNRF CHECK FOR AN UNNUMBERED *READ* FILE
00828 M01S00749.iedit +++| SA2 OVLPFG CHECK FOR NO OVERLAPPED LINES
00829 M01S00750.iedit +++| BX1 -X2*X1
00830 M01S00751.iedit +++| NZ X1,MRD3 IF BOTH CONDITIONS TRUE
00831 M01S00752.iedit +++| RJ SLT SORT LINE NUMBER TABLE
00832 M01S00753.iedit +++| RJ CBR CALL *BASIC* RESEQUENCER
00833 M01S00754.iedit +++| MRD3 SA1 SCRFIL
00834 M01S00755.iedit +++| ZR X1,MRD4 IF NOTHING WRITTEN TO DELETED LINES FILE
00835 M01S00756.iedit +++| SX2 SCR
00836 M01S00757.iedit +++| SA5 TSF+6
00837 M01S00758.iedit +++| RJ SLN PUT DELETED LINES RECORD FILE NAME IN FET
00838 M01S00759.iedit +++| SA5 EFN
00839 M01S00760.iedit +++| SX3 B1
00840 M01S00761.iedit +++| SX6 B0
00841 M01S00762.iedit +++| SA6 LSTFIL
00842 M01S00763.iedit +++| RJ AEC APPEND LINE NUMBERS TO EDIT FILE
00843 M01S00764.iedit +++| SA1 LOP
00844 M01S00765.iedit +++| SX6 X1+
00845 M01S00766.iedit +++| SA6 LSTFIL
00846 M01S00767.iedit +++| MRD4 SA5 EFN
00847 M01S00768.iedit +++| SA2 LBFET
00848 M01S00769.iedit +++| SA3 LBFILE
00849 M01S00770.iedit +++| RJ AEC APPEND AND ECHO RECORD
00850 M01S00771.iedit +++| EQ MRDX RETURN
00851 M01S00772.iedit +++| TITLE SUBROUTINES.
00852 M01S00773.iedit +++| ABL SPACE 4,10
00853 M01S00774.iedit +++|** ABL - ADD BLANKS TO LINE.
00854 M01S00775.iedit +++|*
00855 M01S00776.iedit +++|* ENTRY (X2) = NUMBER OF DIGITS IN LINE NUMBER.
00856 M01S00777.iedit +++|* (NCOL) = NUMBER OF CHARACTERS IN LINE.
00857 M01S00778.iedit +++|* (BLNK) = BLANK CHARACTER TO BE APPENDED.
00858 M01S00779.iedit +++|* CLIN = ADDRESS OF THE BEGINNING OF THE LINE.
00859 M01S00780.iedit +++|*
00860 M01S00781.iedit +++|* EXIT (NCOL) = X7 = NUMBER OF CHARACTERS IN LINE.
00861 M01S00782.iedit +++|* PROPER NUMBER OF BLANKS APPENDED TO LINE, NOT
00862 M01S00783.iedit +++|* TO EXCEED *MXCIL*.
00863 M01S00784.iedit +++|*
00864 M01S00785.iedit +++|* USES X - 1, 2, 3, 4, 6, 7.
00865 M01S00786.iedit +++|* A - 1, 3, 4, 6, 7.
00866 M01S00787.iedit +++|
00867 M01S00788.iedit +++|
00868 M01S00789.iedit +++| ABL SUBR ENTRY/EXIT
00869 M01S00790.iedit +++| SA1 NCOL
00870 M01S00791.iedit +++| SA4 BLNK
00871 M01S00792.iedit +++| ABL1 SA3 X1+CLIN-1
00872 M01S00793.iedit +++| SX1 X1-1
00873 M01S00794.iedit +++| BX3 X3-X4
00874 M01S00795.iedit +++| ZR X3,ABL1 IF CHARACTER A BLANK
00875 M01S00796.iedit +++| SX7 X1+B1
00876 M01S00797.iedit +++| SX1 MXCIL
00877 M01S00798.iedit +++| SA3 X7+CLIN-1
00878 M01S00799.iedit +++| BX6 X4
00879 M01S00800.iedit +++| IX4 X7-X1
00880 M01S00801.iedit +++| PL X4,ABL4 IF LINE HAS REACHED *MXCIL*
00881 M01S00802.iedit +++| NZ X3,ABL2 IF LINE DOES NOT END IN A COLON
00882 M01S00803.iedit +++| SA6 X7+CLIN ADD A BLANK AFTER THE COLON
00883 M01S00804.iedit +++| SX7 X7+B1 UPDATE *NCOL*
00884 M01S00805.iedit +++| IX4 X7-X1
00885 M01S00806.iedit +++| PL X4,ABL4 IF LINE HAS REACHED *MXCIL*
00886 M01S00807.iedit +++| ABL2 IX2 X2-X7
00887 M01S00808.iedit +++| NZ X2,ABL3 IF LINE CONTAINS MORE THAN A LINE NUMBER
00888 M01S00809.iedit +++| SA6 X7+CLIN
00889 M01S00810.iedit +++| SX7 X7+2
00890 M01S00811.iedit +++| SA6 A6+1
00891 M01S00812.iedit +++| ABL3 BX2 X7
00892 M01S00813.iedit +++| LX2 59-0
00893 M01S00814.iedit +++| PL X2,ABL4 IF LINE HAS AN EVEN NUMBER OF CHARACTERS
00894 M01S00815.iedit +++| SA6 X7+CLIN
00895 M01S00816.iedit +++| SX7 X7+1
00896 M01S00817.iedit +++| ABL4 SA7 NCOL
00897 M01S00818.iedit +++| EQ ABLX RETURN
00898 M01S00819.iedit +++| ABS SPACE 4,20
00899 M01S00820.iedit +++|** ABS - ALLOCATE BUFFER SPACE.
00900 M01S00821.iedit +++|*
00901 M01S00822.iedit +++|* ENTRY (A1) = TABLE NUMBER BEING ALLOCATED.
00902 M01S00823.iedit +++|* (X2) = WORD COUNT (+ OR -) TO BE ALLOCATED.
00903 M01S00824.iedit +++|* (DYNST) = AMOUNT OF DYNAMIC STORAGE LEFT.
00904 M01S00825.iedit +++|*
00905 M01S00826.iedit +++|* EXIT (DYNST) = AMOUNT OF DYNAMIC STORAGE LEFT.
00906 M01S00827.iedit +++|* (X6) .LT. 0, IF NOT ENOUGH MEMORY AVAILABLE.
00907 M01S00828.iedit +++|*
00908 M01S00829.iedit +++|* USES X - 1, 2, 3, 6, 7.
00909 M01S00830.iedit +++|* A - 0, 1, 2, 3, 6, 7.
00910 M01S00831.iedit +++|*
00911 M01S00832.iedit +++|* CALLS RAF.
00912 M01S00833.iedit +++|*
00913 M01S00834.iedit +++|* MACROS ALLOC, MEMORY.
00914 M01S00835.iedit +++|*
00915 M01S00836.iedit +++|* NOTES THERE MUST BE NO *CIO* ACTIVITY (ALL FETS MUST BE
00916 M01S00837.iedit +++|* *RECALLED*) BEFORE CALLING *ALLOC*.
00917 M01S00838.iedit +++|
00918 M01S00839.iedit +++|
00919 M01S00840.iedit +++| ABS3 BX6 X1
00920 M01S00841.iedit +++| SA6 CMEM
00921 M01S00842.iedit +++| SX6 -B1
00922 M01S00843.iedit +++|
00923 M01S00844.iedit +++| ABS SUBR ENTRY/EXIT
00924 M01S00845.iedit +++| SX6 A1 SAVE ENTRY CONDITIONS
00925 M01S00846.iedit +++| SX7 X2
00926 M01S00847.iedit +++| SA6 ABSA
00927 M01S00848.iedit +++| SA7 ABSB
00928 M01S00849.iedit +++| RJ RAF RECALL ALL FETS
00929 M01S00850.iedit +++| ABS1 SA2 ABSA RESTORE ENTRY CONDITIONS
00930 M01S00851.iedit +++| SA1 ABSB
00931 M01S00852.iedit +++| SA0 X2
00932 M01S00853.iedit +++| SA3 DYNST AMOUNT OF DYNAMIC STORAGE LEFT
00933 M01S00854.iedit +++| IX6 X3-X1
00934 M01S00855.iedit +++| NG X6,ABS2 IF NOT ENOUGH DYNAMIC STORAGE
00935 M01S00856.iedit +++| SA6 DYNST
00936 M01S00857.iedit +++| ALLOC A0,X1
00937 M01S00858.iedit +++| BX6 X6-X6 INDICATE SUCCESSFUL REALLOCATION
00938 M01S00859.iedit +++| EQ ABSX RETURN
00939 M01S00860.iedit +++|
00940 M01S00861.iedit +++|* SET UP MEMORY REQUEST.
00941 M01S00862.iedit +++|
00942 M01S00863.iedit +++| ABS2 SA1 CMEM GET CURRENT MEMORY
00943 M01S00864.iedit +++| SX3 MINCR
00944 M01S00865.iedit +++| IX2 X1+X3
00945 M01S00866.iedit +++| SA3 CMAX
00946 M01S00867.iedit +++| IX6 X3-X2
00947 M01S00868.iedit +++| NG X6,ABSX IF REQUEST WOULD EXCEED VALIDATION LIMITS
00948 M01S00869.iedit +++| BX6 X2
00949 M01S00870.iedit +++| SA6 A1 UPDATE *CMEM*
00950 M01S00871.iedit +++| LX6 30-0
00951 M01S00872.iedit +++| SA6 MSTAT
00952 M01S00873.iedit +++| MEMORY CM,MSTAT,R,,NA REQUEST ADDITIONAL MEMORY
00953 M01S00874.iedit +++| SA1 MSTAT
00954 M01S00875.iedit +++| SA2 CMEM
00955 M01S00876.iedit +++| AX1 30
00956 M01S00877.iedit +++| BX2 X1-X2
00957 M01S00878.iedit +++| NZ X2,ABS3 IF REQUEST NOT HONORED
00958 M01S00879.iedit +++| SA3 F.TEND UPDATE LWA OF TABLE
00959 M01S00880.iedit +++| SX2 MINCR
00960 M01S00881.iedit +++| SA1 DYNST
00961 M01S00882.iedit +++| IX6 X3+X2
00962 M01S00883.iedit +++| IX7 X1+X2
00963 M01S00884.iedit +++| SA6 A3
00964 M01S00885.iedit +++| SA7 A1
00965 M01S00886.iedit +++| EQ ABS1 ALLOCATE SPACE FOR TABLE
00966 M01S00887.iedit +++|
00967 M01S00888.iedit +++| ABSA CON 0 ENTRY CONDITIONS
00968 M01S00889.iedit +++| ABSB CON 0
00969 M01S00890.iedit +++| AEC SPACE 4,20
00970 M01S00891.iedit +++|** AEC - APPEND AND ECHO CHANGE RECORD.
00971 M01S00892.iedit +++|*
00972 M01S00893.iedit +++|* ENTRY (X5) = NAME OF THE FILE TO APPEND TO.
00973 M01S00894.iedit +++|* (X2) = FET ADDRESS OF BUFFER CONTAINING RECORD.
00974 M01S00895.iedit +++|* (X3) = 0, IF CHANGE RECORD IS BUFFER RESIDENT.
00975 M01S00896.iedit +++|* 1, IF CHANGE RECORD IS DISK RESIDENT.
00976 M01S00897.iedit +++|* (LSTFIL) = 0, IF LIST OPTION IS OFF.
00977 M01S00898.iedit +++|* 1, IF LIST OPTION IS ON.
00978 M01S00899.iedit +++|*
00979 M01S00900.iedit +++|* EXIT (X2) = UNCHANGED.
00980 M01S00901.iedit +++|* RECORD APPENDED TO FILE AND ECHOED TO TERMINAL.
00981 M01S00902.iedit +++|*
00982 M01S00903.iedit +++|* USES X - 1, 2, 3, 5, 6, 7.
00983 M01S00904.iedit +++|* A - 1, 2, 3, 5, 6, 7.
00984 M01S00905.iedit +++|*
00985 M01S00906.iedit +++|* CALLS CBO, SBE, SLN.
00986 M01S00907.iedit +++|*
00987 M01S00908.iedit +++|* MACROS READEI, REWIND, WRITE, WRITER.
00988 M01S00909.iedit +++|
00989 M01S00910.iedit +++|
00990 M01S00911.iedit +++| AEC SUBR ENTRY/EXIT
00991 M01S00912.iedit +++| BX7 X2
00992 M01S00913.iedit +++| BX6 X5
00993 M01S00914.iedit +++| SA7 AECC
00994 M01S00915.iedit +++| SA6 A7-B1 SAVE APPENDED FILE NAME
00995 M01S00916.iedit +++| SA1 X2+3 *OUT* WILL BE FIRST CBO PARAMETER
00996 M01S00917.iedit +++| BX6 X1
00997 M01S00918.iedit +++| SA6 AECD
00998 M01S00919.iedit +++| ZR X3,AEC4 IF RECORD IS BUFFER RESIDENT
00999 M01S00920.iedit +++| MX3 42
01000 M01S00921.iedit +++| SA1 X2
01001 M01S00922.iedit +++| BX6 X1*X3
01002 M01S00923.iedit +++| SA6 AECA STORE ORIGINAL FILE NAME
01003 M01S00924.iedit +++| REWIND X2,R
01004 M01S00925.iedit +++| SA1 X2+3 *OUT* WILL BE FIRST CBO PARAMETER
01005 M01S00926.iedit +++| BX6 X1
01006 M01S00927.iedit +++| SA6 AECD
01007 M01S00928.iedit +++| AEC1 READEI X2,R
01008 M01S00929.iedit +++| SA1 LSTFIL
01009 M01S00930.iedit +++| NZ X1,AEC2 IF LIST OPTION IS ON
01010 M01S00931.iedit +++| SX2 O
01011 M01S00932.iedit +++| SX5 B0
01012 M01S00933.iedit +++| RJ SBE SET *OUTPUT* BUFFER EMPTY
01013 M01S00934.iedit +++| SA2 AECC
01014 M01S00935.iedit +++| AEC2 SA1 X2
01015 M01S00936.iedit +++| LX1 59-9
01016 M01S00937.iedit +++| NG X1,AEC4 IF LAST BUFFER OF DATA
01017 M01S00938.iedit +++| SA5 AECB
01018 M01S00939.iedit +++| RJ SLN PUT APPENDED FILE NAME IN FET
01019 M01S00940.iedit +++| SA1 LSTFIL
01020 M01S00941.iedit +++| ZR X1,AEC3 IF LINES NOT TO BE ECHOED TO TERMINAL
01021 M01S00942.iedit +++| SA3 AECD
01022 M01S00943.iedit +++| RJ CBO COPY BUFFER TO OUTPUT FROM (X3)
01023 M01S00944.iedit +++| BX6 X3 SAVE UPDATED CBO PARAMETER
01024 M01S00945.iedit +++| SA6 AECD
01025 M01S00946.iedit +++| SA2 AECC
01026 M01S00947.iedit +++| AEC3 SX6 B1+
01027 M01S00948.iedit +++| SA6 APPFLG
01028 M01S00949.iedit +++| WRITE X2,R APPEND LINES TO FILE
01029 M01S00950.iedit +++| SA5 AECA
01030 M01S00951.iedit +++| RJ SLN PUT ORIGINAL FILE NAME BACK IN FET
01031 M01S00952.iedit +++| EQ AEC1 READ IN NEXT SEGMENT
01032 M01S00953.iedit +++|
01033 M01S00954.iedit +++| AEC4 SA2 AECC
01034 M01S00955.iedit +++| SA5 AECB
01035 M01S00956.iedit +++| RJ SLN PUT APPENDED FILE NAME IN FET
01036 M01S00957.iedit +++| SA1 LSTFIL
01037 M01S00958.iedit +++| ZR X1,AEC5 IF LINES NOT TO BE ECHOED TO TERMINAL
01038 M01S00959.iedit +++| SA3 AECD
01039 M01S00960.iedit +++| RJ CBO COPY BUFFER TO OUTPUT
01040 M01S00961.iedit +++| AEC5 SX6 B1+
01041 M01S00962.iedit +++| SA6 APPFLG
01042 M01S00963.iedit +++| WRITER X2,R FLUSH BUFFER TO APPENDED FILE
01043 M01S00964.iedit +++| EQ AECX RETURN
01044 M01S00965.iedit +++|
01045 M01S00966.iedit +++| AECA CON 0 ORIGINAL FILE NAME
01046 M01S00967.iedit +++| AECB CON 0 FILE NAME OF FILE TO APPEND TO
01047 M01S00968.iedit +++| AECC CON 0 FET ADDRESS
01048 M01S00969.iedit +++| AECD CON 0 CBO START POINTER
01049 M01S00970.iedit +++| CBO SPACE 4,15
01050 M01S00971.iedit +++|** CBO - COPY BUFFER TO OUTPUT.
01051 M01S00972.iedit +++|*
01052 M01S00973.iedit +++|* ENTRY (X2) = FET WHOSE BUFFER IS TO BE PRINTED.
01053 M01S00974.iedit +++|* (X3) = FIRST LOCATION TO TRANSMIT, INITIALLY *OUT*.
01054 M01S00975.iedit +++|*
01055 M01S00976.iedit +++|* EXIT (X2) = UNCHANGED.
01056 M01S00977.iedit +++|* (X3) = LAST LOCATION TRANSMITTED + 1.
01057 M01S00978.iedit +++|*
01058 M01S00979.iedit +++|* USES X - 1, 2, 3, 4, 6.
01059 M01S00980.iedit +++|* A - 1, 2, 3, 4, 6.
01060 M01S00981.iedit +++|* B - 6, 7.
01061 M01S00982.iedit +++|*
01062 M01S00983.iedit +++|* CALLS WTO.
01063 M01S00984.iedit +++|
01064 M01S00985.iedit +++|
01065 M01S00986.iedit +++| CBO SUBR ENTRY/EXIT
01066 M01S00987.iedit +++| BX6 X2
01067 M01S00988.iedit +++| SA6 CBOA SAVE FET ADDRESS
01068 M01S00989.iedit +++| SA1 X2+B1 FIRST
01069 M01S00990.iedit +++| SA4 X2+4 LIMIT
01070 M01S00991.iedit +++| SA2 A1+B1 IN
01071 M01S00992.iedit +++| SB6 X3 FIRST LOCATION TO OUTPUT
01072 M01S00993.iedit +++| SB7 X2+ *IN* POINTER
01073 M01S00994.iedit +++| SB7 B7-B6
01074 M01S00995.iedit +++| ZR B7,CBO2 IF BUFFER EMPTY
01075 M01S00996.iedit +++| NG B7,CBO1 IF BUFFER WRAPS AROUND
01076 M01S00997.iedit +++| RJ WTO
01077 M01S00998.iedit +++| EQ CBO2 EXIT
01078 M01S00999.iedit +++|
01079 M01S01000.iedit +++|* PROCESS BUFFER WRAPAROUND.
01080 M01S01001.iedit +++|
01081 M01S01002.iedit +++| CBO1 SB7 X4 LIMIT
01082 M01S01003.iedit +++| SB7 B7-B6 COPY FIRST PART OF DATA
01083 M01S01004.iedit +++| RJ WTO
01084 M01S01005.iedit +++| SA2 CBOA
01085 M01S01006.iedit +++| SA1 X2+B1 FIRST
01086 M01S01007.iedit +++| SA2 A1+B1 IN
01087 M01S01008.iedit +++| SB6 X1
01088 M01S01009.iedit +++| SB7 X2
01089 M01S01010.iedit +++| SB7 B7-B6 COPY SECOND PART OF DATA
01090 M01S01011.iedit +++| RJ WTO
01091 M01S01012.iedit +++| CBO2 SA2 CBOA RESTORE FET ADDRESS
01092 M01S01013.iedit +++| SA3 X2+2
01093 M01S01014.iedit +++| EQ CBOX RETURN
01094 M01S01015.iedit +++|
01095 M01S01016.iedit +++| CBOA CON 0 FET ADDRESS OF BUFFER TO OUTPUT
01096 M01S01017.iedit +++| CBR SPACE 4,15
01097 M01S01018.iedit +++|** CBR - CALL *BASIC* RESEQUENCER.
01098 M01S01019.iedit +++|*
01099 M01S01020.iedit +++|* EXIT *BASIC* RESEQUENCING COMPLETED.
01100 M01S01021.iedit +++|*
01101 M01S01022.iedit +++|* USES X - 0, 1, 2, 3, 6, 7.
01102 M01S01023.iedit +++|* A - 1, 2, 3.
01103 M01S01024.iedit +++|*
01104 M01S01025.iedit +++|* CALLS OVL=, PBR.
01105 M01S01026.iedit +++|
01106 M01S01027.iedit +++|
01107 M01S01028.iedit +++| CBR SUBR ENTRY/EXIT
01108 M01S01029.iedit +++| SA1 =0LIEDIT1
01109 M01S01030.iedit +++| SA2 ACTR GET FILE NAME
01110 M01S01031.iedit +++| SA3 LWPR GET FILE/SYSTEM LOAD FLAG
01111 M01S01032.iedit +++| SX6 B1+
01112 M01S01033.iedit +++| SX0 B1
01113 M01S01034.iedit +++| MX7 42
01114 M01S01035.iedit +++| LX3 59-18
01115 M01S01036.iedit +++| LX0 12-0
01116 M01S01037.iedit +++| NG X3,CBR1 IF LOADED FROM SYSTEM
01117 M01S01038.iedit +++| BX1 X2*X7
01118 M01S01039.iedit +++| SX6 B0
01119 M01S01040.iedit +++| CBR1 BX6 X0+X6
01120 M01S01041.iedit +++| SX2 B0
01121 M01S01042.iedit +++| RJ OVL= LOAD THE *BASIC* OVERLAY
01122 M01S01043.iedit +++| RJ /IEDIT1/PBR
01123 M01S01044.iedit +++| EQ CBRX RETURN
01124 M01S01045.iedit +++| CLN SPACE 4,20
01125 M01S01046.iedit +++|** CLN - CHECK IF LINE NUMBER IS IN LINE RANGE TABLE.
01126 M01S01047.iedit +++|*
01127 M01S01048.iedit +++|* ENTRY ((A5)) = (X5) = PACKED LINE NUMBER TO BE EVALUATED.
01128 M01S01049.iedit +++|*
01129 M01S01050.iedit +++|* EXIT (X4) = 0, IF LINE NUMBER NOT IN *LRT*
01130 M01S01051.iedit +++|* .NE. 0, IF LINE NUMBER IS IN *LRT*.
01131 M01S01052.iedit +++|* (X3) = 0, IF LINE NOT FOLLOWED BY AT LEAST TWO
01132 M01S01053.iedit +++|* BLANKS OR A NON-BLANK CHARACTER.
01133 M01S01054.iedit +++|* (X6) = LINE NUMBER OF LINE IN BINARY FORM.
01134 M01S01055.iedit +++|* (X7) = NUMBER OF DIGITS IN LINE NUMBER.
01135 M01S01056.iedit +++|*
01136 M01S01057.iedit +++|* USES X - 1, 4, 5.
01137 M01S01058.iedit +++|* A - 5.
01138 M01S01059.iedit +++|* B - 3, 4, 5.
01139 M01S01060.iedit +++|*
01140 M01S01061.iedit +++|* CALLS VPL.
01141 M01S01062.iedit +++|*
01142 M01S01063.iedit +++|* NOTES IF *LRT* (LINE RANGE TABLE) IS EMPTY, ALL LINES
01143 M01S01064.iedit +++|* ARE ASSUMED TO HAVE BEEN SELECTED.
01144 M01S01065.iedit +++|
01145 M01S01066.iedit +++|
01146 M01S01067.iedit +++| CLN SUBR ENTRY/EXIT
01147 M01S01068.iedit +++| RJ VPL GET LINE NUMBER
01148 M01S01069.iedit +++| SX5 ERRNLN *NO LINE NUMBER ON LINE.*
01149 M01S01070.iedit +++| ZR X7,ERR IF NO LINE NUMBER ON LINE
01150 M01S01071.iedit +++| SA5 NELR
01151 M01S01072.iedit +++| MX4 1
01152 M01S01073.iedit +++| SB5 X6
01153 M01S01074.iedit +++| ZR X5,CLNX IF NO LINE NUMBERS IN *LRT*
01154 M01S01075.iedit +++| SA5 LRT-1 INITIALIZE POINTER TO BEFORE *LRT*
01155 M01S01076.iedit +++| CLN1 SA5 A5+B1 CHECK *LRT* ENTRY
01156 M01S01077.iedit +++| SB4 X5 CHECK LOW ORDER VALUE
01157 M01S01078.iedit +++| LT B5,B4,CLN2 IF LINE NUMBER NOT IN TABLE
01158 M01S01079.iedit +++| SB3 -18 SET HIGH ORDER VALUE
01159 M01S01080.iedit +++| LX1 X5,B3
01160 M01S01081.iedit +++| SB3 X1
01161 M01S01082.iedit +++| LE B5,B3,CLNX IF LINE NUMBER IN *LRT*
01162 M01S01083.iedit +++| PL X5,CLN1 IF NOT AT END OF *LRT*
01163 M01S01084.iedit +++| CLN2 SX4 B0+ NUMBER NOT IN *LRT*
01164 M01S01085.iedit +++| EQ CLNX RETURN
01165 M01S01086.iedit +++| CNL SPACE 4,15
01166 M01S01087.iedit +++|** CNL - CONVERT AND NORMALIZE LINE NUMBER.
01167 M01S01088.iedit +++|*
01168 M01S01089.iedit +++|* ENTRY (X1) = LINE NUMBER, RIGHT JUSTIFIED, IN BINARY.
01169 M01S01090.iedit +++|*
01170 M01S01091.iedit +++|* EXIT (X6) = LINE NUMBER IN DISPLAY CODE.
01171 M01S01092.iedit +++|*
01172 M01S01093.iedit +++|* USES X - 1, 4, 6.
01173 M01S01094.iedit +++|*
01174 M01S01095.iedit +++|* CALLS CDD.
01175 M01S01096.iedit +++|
01176 M01S01097.iedit +++|
01177 M01S01098.iedit +++| CNL SUBR ENTRY/EXIT
01178 M01S01099.iedit +++| SX4 100000
01179 M01S01100.iedit +++| IX1 X1+X4 ENSURE LEADING ZEROES
01180 M01S01101.iedit +++| RJ CDD CONVERT TO DECIMAL DISPLAY CODE
01181 M01S01102.iedit +++| MX6 NBIC*NUMD
01182 M01S01103.iedit +++| LX4 NBIC TRUNCATE LEADING *1* DIGIT
01183 M01S01104.iedit +++| BX6 X4*X6
01184 M01S01105.iedit +++| EQ CNLX RETURN
01185 M01S01106.iedit +++| ERT SPACE 4,20
01186 M01S01107.iedit +++|** ERT - ECHO RECORD TO TERMINAL.
01187 M01S01108.iedit +++|*
01188 M01S01109.iedit +++|* ENTRY (X2) = FET ADDRESS OF BUFFER CONTAINING RECORD.
01189 M01S01110.iedit +++|* (X3) = 0, IF RECORD IS BUFFER RESIDENT.
01190 M01S01111.iedit +++|* 1, IF RECORD IS DISK RESIDENT.
01191 M01S01112.iedit +++|* (LSTFIL) = 0, IF LIST OPTION IS OFF.
01192 M01S01113.iedit +++|* 1, IF LIST OPTION IS ON.
01193 M01S01114.iedit +++|*
01194 M01S01115.iedit +++|* USES X - 1, 3, 5, 6.
01195 M01S01116.iedit +++|* A - 1, 3, 6.
01196 M01S01117.iedit +++|*
01197 M01S01118.iedit +++|* CALLS CBO, SBE.
01198 M01S01119.iedit +++|*
01199 M01S01120.iedit +++|* MACROS READEI, REWIND.
01200 M01S01121.iedit +++|
01201 M01S01122.iedit +++|
01202 M01S01123.iedit +++| ERT SUBR ENTRY/EXIT
01203 M01S01124.iedit +++| SA1 LSTFIL
01204 M01S01125.iedit +++| ZR X1,ERTX IF LIST OPTION IS OFF
01205 M01S01126.iedit +++| ZR X3,ERT2 IF RECORD IS BUFFER RESIDENT
01206 M01S01127.iedit +++| MX3 42
01207 M01S01128.iedit +++| SA1 X2
01208 M01S01129.iedit +++| BX6 X1*X3
01209 M01S01130.iedit +++| SA6 ERTA SAVE ORIGINAL FILE NAME
01210 M01S01131.iedit +++| REWIND X2
01211 M01S01132.iedit +++| ERT1 READEI X2,R
01212 M01S01133.iedit +++| SA1 LSTFIL
01213 M01S01134.iedit +++| ZR X1,ERTX IF LINES NOT TO BE ECHOED
01214 M01S01135.iedit +++| SA1 X2
01215 M01S01136.iedit +++| LX1 59-9
01216 M01S01137.iedit +++| NG X1,ERT2 IF LAST BUFFER OF DATA
01217 M01S01138.iedit +++| SA3 X2+3 COPY BUFFER TO OUTPUT
01218 M01S01139.iedit +++| RJ CBO
01219 M01S01140.iedit +++| SX5 B0+
01220 M01S01141.iedit +++| RJ SBE
01221 M01S01142.iedit +++| EQ ERT1 READ IN NEXT SEGMENT
01222 M01S01143.iedit +++|
01223 M01S01144.iedit +++| ERT2 SA3 X2+3 COPY BUFFER TO OUTPUT
01224 M01S01145.iedit +++| RJ CBO
01225 M01S01146.iedit +++| EQ ERTX RETURN
01226 M01S01147.iedit +++|
01227 M01S01148.iedit +++| ERTA CON 0 ORIGINAL FILE NAME
01228 M01S01149.iedit +++| ERR SPACE 4,10
01229 M01S01150.iedit +++|** ERR - ERROR PROCESSOR.
01230 M01S01151.iedit +++|*
01231 M01S01152.iedit +++|* ENTRY (X5) = FWA OF ERROR MESSAGE.
01232 M01S01153.iedit +++|*
01233 M01S01154.iedit +++|* EXIT ABORTS AFTER ISSUING APPROPRIATE MESSAGE.
01234 M01S01155.iedit +++|*
01235 M01S01156.iedit +++|* USES X - 1.
01236 M01S01157.iedit +++|* A - 1.
01237 M01S01158.iedit +++|*
01238 M01S01159.iedit +++|* CALLS RSF.
01239 M01S01160.iedit +++|*
01240 M01S01161.iedit +++|* MACROS ABORT, SYSTEM, WRITEC.
01241 M01S01162.iedit +++|
01242 M01S01163.iedit +++|
01243 M01S01164.iedit +++| ERR BSS 0 ENTRY
01244 M01S01165.iedit +++| ZR X5,ERR1 IF NO MESSAGE TO ISSUE
01245 M01S01166.iedit +++| WRITEC O,X5
01246 M01S01167.iedit +++| ERR1 SA1 APPFLG
01247 M01S01168.iedit +++| ZR X1,ERR2 IF SORT STATUS DID NOT CHANGE
01248 M01S01169.iedit +++| SYSTEM TLX,R,X1,1000B
01249 M01S01170.iedit +++| ERR2 RJ RAF RECALL ALL FETS
01250 M01S01171.iedit +++| SX7 B1+
01251 M01S01172.iedit +++| RJ RSF RETURN SCRATCH FILES
01252 M01S01173.iedit +++| ABORT
01253 M01S01174.iedit +++|
01254 M01S01175.iedit +++|
01255 M01S01176.iedit +++|** FATAL ERRORS - ERRORS WHICH WHEN ENCOUNTERED CAUSE *IEDIT*
01256 M01S01177.iedit +++|* TO ABORT WITHOUT EXECUTING THE COMMAND.
01257 M01S01178.iedit +++|
01258 M01S01179.iedit +++|
01259 M01S01180.iedit +++| ERRBSE DATA C*BUFFER SPACE ERROR (TOV).*
01260 M01S01181.iedit +++| ERRCNP DATA C*COMMAND NOT PROCESSED DUE TO OVERLAP.*
Line S01182 Modification History
M01(Added by)
iedit
M02(Updated by)
v23l617
Seq # *Modification Id* Act
----------------------------+
01261 M02S01182.v23l617 ---| ERRCSE DATA C*CONTROL STATEMENT ARGUMENT ERROR.*
01262 M01S00004.v23l617 +++| ERRCSE DATA C*COMMAND ARGUMENT ERROR.*
01263 M01S01183.iedit +++| ERRDFN DATA C*DUPLICATE FILE NAME.*
01264 M01S01184.iedit +++| ERREEF DATA C*EMPTY FILE (SSF).*
01265 M01S01185.iedit +++| ERREIE DATA C*LINE NUMBER OVERLAP ERROR.*
01266 M01S01186.iedit +++| ERREIF DATA C*FILE NAME ERROR.*
01267 M01S01187.iedit +++| ERREII DATA C*LINE NUMBER INCREMENT ERROR.*
Line S01188 Modification History
M01(Added by)
iedit
M02(Updated by)
v23l617
Seq # *Modification Id* Act
----------------------------+
01268 M02S01188.v23l617 ---| ERREIS DATA C*INVALID SYNTAX.*
01269 M01S00005.v23l617 +++| ERREIS DATA C*INCORRECT SYNTAX.*
01270 M01S01189.iedit +++| ERRELR DATA C*LINE RANGE ERROR.*
01271 M01S01190.iedit +++| ERRNES DATA C*TOO SMALL BUFFER SPACE.*
01272 M01S01191.iedit +++| ERRNIV DATA C*NON-EXISTENT EDIT VERB SPECIFIED.*
01273 M01S01192.iedit +++| ERRNLF DATA C*NO LINES FOUND.*
01274 M01S01193.iedit +++| ERRNLN DATA C*NO LINE NUMBER ON LINE.*
01275 M01S01194.iedit +++| ERRNRF DATA C*READ FILE EMPTY.*
01276 M01S01195.iedit +++| ERRNRS DATA C*NO READ/DESTINATION FILE SPECIFIED.*
01277 M01S01196.iedit +++| ERRNTL DATA C*LINE NUMBER LIMIT EXCEEDED.*
01278 M01S01197.iedit +++| ERRRFN DATA C*RESERVED FILE NAME.*
01279 M01S01198.iedit +++|
01280 M01S01199.iedit +++|
01281 M01S01200.iedit +++|** INFORMATIVE MESSAGES - ISSUED TO NOTIFY THE USER OF AN
01282 M01S01201.iedit +++|* UNUSUAL CONDITION. THE *IEDIT* COMMAND IS PROCESSED TO
01283 M01S01202.iedit +++|* COMPLETION.
01284 M01S01203.iedit +++|
01285 M01S01204.iedit +++|
01286 M01S01205.iedit +++| ERRLTF DATA C*ZZZZZ LINES TRUNCATED ON FILE QQQQQQQ.*
01287 M01S01206.iedit +++| ERRNDF DATA C*NO CLOSING DELIMITER FOUND.*
01288 M01S01207.iedit +++| MLB SPACE 4,20
01289 M01S01208.iedit +++|** MLB - MANAGE LINE BUFFER.
01290 M01S01209.iedit +++|*
01291 M01S01210.iedit +++|* ENTRY (X2) = ADDRESS OF LINE TO ADD TO INPUT BUFFER.
01292 M01S01211.iedit +++|* .LT. 0, IF LINE IS IN CHARACTER BUFFER.
01293 M01S01212.iedit +++|* (B3) = ADDRESS OF FET TO ADD LINE TO.
01294 M01S01213.iedit +++|* (NCOL) = NUMBER OF CHARACTERS TO BE WRITTEN.
01295 M01S01214.iedit +++|*
01296 M01S01215.iedit +++|* EXIT LINE ADDED TO LINE BUFFER.
01297 M01S01216.iedit +++|*
01298 M01S01217.iedit +++|* USES X - 1, 2, 3, 6, 7.
01299 M01S01218.iedit +++|* A - 1, 2, 3, 6, 7.
01300 M01S01219.iedit +++|* B - 2, 4.
01301 M01S01220.iedit +++|*
01302 M01S01221.iedit +++|* CALLS ABS, PLB, SFI.
01303 M01S01222.iedit +++|*
01304 M01S01223.iedit +++|* MACROS WRITER.
01305 M01S01224.iedit +++|
01306 M01S01225.iedit +++|
01307 M01S01226.iedit +++| MLB SUBR ENTRY/EXIT
01308 M01S01227.iedit +++| SX6 B3 SAVE FET ADDRESS
01309 M01S01228.iedit +++| BX7 X2
01310 M01S01229.iedit +++| SA6 MLBB
01311 M01S01230.iedit +++| SA7 MLBA
01312 M01S01231.iedit +++| SX3 MXWL+1 MAXIMUM WORDS IN A LINE
01313 M01S01232.iedit +++| MX6 -18
01314 M01S01233.iedit +++| SA1 B3+2 GET *IN* POINTER
01315 M01S01234.iedit +++| BX1 -X6*X1
01316 M01S01235.iedit +++| IX1 X1+X3
01317 M01S01236.iedit +++| SA2 B3+4 GET *LIMIT*
01318 M01S01237.iedit +++| BX2 -X6*X2
01319 M01S01238.iedit +++| SX2 X2-1
01320 M01S01239.iedit +++| IX2 X1-X2
01321 M01S01240.iedit +++| SB2 X2
01322 M01S01241.iedit +++| LT B2,MLB2 IF ENOUGH ROOM LEFT IN BUFFER
01323 M01S01242.iedit +++| SB2 L
01324 M01S01243.iedit +++| NE B2,B3,MLB1 IF NOT *LNBUF*
01325 M01S01244.iedit +++| SA1 LBFILE
01326 M01S01245.iedit +++| NZ X1,MLB1 IF BUFFER PREVIOUSLY WRITTEN OUT
01327 M01S01246.iedit +++| SA1 LNBUF
01328 M01S01247.iedit +++| SX2 LBINC
01329 M01S01248.iedit +++| RJ ABS ALLOCATE MORE LINEBUF SPACE
01330 M01S01249.iedit +++| NZ X6,MLB1 IF NOT ENOUGH DYNAMIC STORAGE LEFT
01331 M01S01250.iedit +++| RJ SFI UPDATE FET POINTERS FOR ALLOCATED BUFFERS
01332 M01S01251.iedit +++| EQ MLB2 BUFFER HAS SPACE ENOUGH FOR THE LINE
01333 M01S01252.iedit +++|
01334 M01S01253.iedit +++| MLB1 SX7 B1 SET LINE BUFFER FULL FLAG
01335 M01S01254.iedit +++| SA7 LBFILE
01336 M01S01255.iedit +++| WRITER B3,R WRITE LINE BUFFER TO FILE
01337 M01S01256.iedit +++| SA1 B3+B1 SET LINE BUFFER TO EMPTY
01338 M01S01257.iedit +++| SX6 X1
01339 M01S01258.iedit +++| SA6 A1+B1
01340 M01S01259.iedit +++| SA6 A6+B1
01341 M01S01260.iedit +++| MLB2 SA3 MLBA RESTORE ADDRESS OF LINE TO INSERT
01342 M01S01261.iedit +++| SA2 MLBB RESTORE FET ADDRESS
01343 M01S01262.iedit +++| SA1 X2+2 SET *IN* POINTER
01344 M01S01263.iedit +++| NG X3,MLB4 IF LINE IS UNPACKED
01345 M01S01264.iedit +++| SA3 X3 GET FIRST WORD OF LINE TO BE MOVED
01346 M01S01265.iedit +++| SX7 X1
01347 M01S01266.iedit +++| MX1 -12
01348 M01S01267.iedit +++| MLB3 BX6 X3
01349 M01S01268.iedit +++| SA6 X7+ MOVE WORD
01350 M01S01269.iedit +++| SX7 X7+B1
01351 M01S01270.iedit +++| SA3 A3+B1 GET NEXT WORD
01352 M01S01271.iedit +++| BX6 -X1*X6
01353 M01S01272.iedit +++| NZ X6,MLB3 IF NOT END OF LINE
01354 M01S01273.iedit +++| SA7 X2+2 UPDATE THE *IN* POINTER
01355 M01S01274.iedit +++| EQ MLBX RETURN
01356 M01S01275.iedit +++|
01357 M01S01276.iedit +++| MLB4 SA3 NCOL NUMBER OF CHARACTERS IN LINE
01358 M01S01277.iedit +++| SA1 MLBB
01359 M01S01278.iedit +++| SB2 60
01360 M01S01279.iedit +++| SB4 X3+
01361 M01S01280.iedit +++| SA1 X1+2 SET UP PARAMETERS FOR *PLB*
01362 M01S01281.iedit +++| SA2 CLIN
01363 M01S01282.iedit +++| SA1 X1
01364 M01S01283.iedit +++| RJ PLB PACK THE LINE INTO THE LINE BUFFER
01365 M01S01284.iedit +++| SX7 A1+1
01366 M01S01285.iedit +++| SA2 MLBB
01367 M01S01286.iedit +++| SA7 X2+2 UPDATE THE *IN* POINTER
01368 M01S01287.iedit +++| EQ MLBX RETURN
01369 M01S01288.iedit +++|
01370 M01S01289.iedit +++| MLBA CON 0 ADDRESS OF LINE TO INSERT
01371 M01S01290.iedit +++| MLBB CON 0 FET ADDRESS
01372 M01S01291.iedit +++| PIT SPACE 4,25
01373 M01S01292.iedit +++|** PIT - PROCESS TERMINAL INTERRUPT.
01374 M01S01293.iedit +++|*
01375 M01S01294.iedit +++|* ENTRY OPERATING SYSTEM HAS DETECTED A USER BREAK 1 OR USER
01376 M01S01295.iedit +++|* BREAK 2.
01377 M01S01296.iedit +++|*
01378 M01S01297.iedit +++|* EXIT IF USER BREAK 1 OCCURRED, CHANGED RECORDS WILL NO
01379 M01S01298.iedit +++|* LONGER BE ECHOED TO THE OUTPUT FILE.
01380 M01S01299.iedit +++|*
01381 M01S01300.iedit +++|* IF USER BREAK 2 OCCURRED, *IEDIT* PROCESSING WILL
01382 M01S01301.iedit +++|* TERMINATE AFTER RESTORING THE EDIT FILE TO ITS
01383 M01S01302.iedit +++|* ORIGINAL CONDITION IF NECESSARY. THE COMPLETE
01384 M01S01303.iedit +++|* BIT IN THE INPUT FET MUST ALSO BE SET SINCE AN
01385 M01S01304.iedit +++|* INPUT REQUEST MAY HAVE BEEN LEFT PENDING AT
01386 M01S01305.iedit +++|* AT THE TIME OF THE INTERRUPT.
01387 M01S01306.iedit +++|*
01388 M01S01307.iedit +++|* USES X - 1, 2, 3, 5, 6, 7.
01389 M01S01308.iedit +++|* A - 1, 3, 5, 6, 7.
01390 M01S01309.iedit +++|*
01391 M01S01310.iedit +++|* CALLS SBE, SLN.
01392 M01S01311.iedit +++|*
01393 M01S01312.iedit +++|* MACROS REPRIEVE, RPHR, WRITEF.
01394 M01S01313.iedit +++|
01395 M01S01314.iedit +++|
01396 M01S01315.iedit +++| PIT BSS 0 ENTRY
01397 M01S01316.iedit +++| SA1 INTFLG
01398 M01S01317.iedit +++| SX6 B1 SET *NOT INTERRRUPTIBLE*
01399 M01S01318.iedit +++| SA6 A1
01400 M01S01319.iedit +++| NZ X1,PIT3 IF NOT INTERRUPTIBLE
01401 M01S01320.iedit +++| SA1 RPB+7 CHECK WHICH USER BREAK OCCURED
01402 M01S01321.iedit +++| MX2 -12
01403 M01S01322.iedit +++| BX2 -X2*X1
01404 M01S01323.iedit +++| SX2 X2-TIET
01405 M01S01324.iedit +++| SX6 B0+
01406 M01S01325.iedit +++| ZR X2,PIT2 IF USER BREAK ONE
01407 M01S01326.iedit +++| SA1 APPFLG
01408 M01S01327.iedit +++| ZR X1,PIT1 IF NOTHING APPENDED TO EDIT FILE
01409 M01S01328.iedit +++| SX2 E SET FET ADDRESS
01410 M01S01329.iedit +++| SA5 EFN
01411 M01S01330.iedit +++| SA6 A1 CLEAR APPEND FLAG
01412 M01S01331.iedit +++| RJ SLN SET EDIT FILE NAME INTO FET
01413 M01S01332.iedit +++| BX5 X5-X5
01414 M01S01333.iedit +++| RJ SBE SET EDIT BUFFER TO EMPTY
01415 M01S01334.iedit +++| SA1 FLNGTH
01416 M01S01335.iedit +++| MX6 1 SET *RANDOM* BIT IN FET
01417 M01S01336.iedit +++| SA3 X2+B1 FET+1
01418 M01S01337.iedit +++| LX6 47-59
01419 M01S01338.iedit +++| BX7 X6+X3
01420 M01S01339.iedit +++| BX6 X1 LOAD LAST SECTOR OF ORIGINAL FILE
01421 M01S01340.iedit +++| SA7 A3
01422 M01S01341.iedit +++| SA6 X2+6
01423 M01S01342.iedit +++| RPHR X2 SET FET FOR *WRITEF*
01424 M01S01343.iedit +++| BX5 X5-X5
01425 M01S01344.iedit +++| RJ SBE SET BUFFER EMPTY
01426 M01S01345.iedit +++| WRITEF X2,R WRITE *EOF* AFTER LAST ORIGINAL SECTOR
01427 M01S01346.iedit +++| PIT1 SA1 I SET COMPLETE BIT IN INPUT FET
01428 M01S01347.iedit +++| SX7 B1
01429 M01S01348.iedit +++| BX7 X1+X7
01430 M01S01349.iedit +++| SA7 A1
01431 M01S01350.iedit +++| SX5 B0 SET NO MESSAGE TO ISSUE
01432 M01S01351.iedit +++| EQ ERR EXIT TO ERROR PROCESSOR
01433 M01S01352.iedit +++|
01434 M01S01353.iedit +++| PIT2 SA6 LOP TURN OFF LIST OPTION
01435 M01S01354.iedit +++| SA6 LSTFIL
01436 M01S01355.iedit +++| PIT3 REPRIEVE RPB,RESUME,200B RESUME PRIOR EXECUTION
01437 M01S01356.iedit +++| PLB SPACE 4,15
01438 M01S01357.iedit +++|** PLB - PACK LINE INTO A BUFFER.
01439 M01S01358.iedit +++|*
01440 M01S01359.iedit +++|* ENTRY ((A1)) = (X1) = WORD TO START PACKING IN.
01441 M01S01360.iedit +++|* (A2) = ADDRESS OF STRING BUFFER TO PACK.
01442 M01S01361.iedit +++|* (B2) = FIRST FREE BIT IN WORD.
01443 M01S01362.iedit +++|* (B4) = LENGTH OF STRING TO PACK.
01444 M01S01363.iedit +++|* (CSTI) = CHARACTER SET IN USE.
01445 M01S01364.iedit +++|*
01446 M01S01365.iedit +++|* EXIT ((A1)) = LAST WORD PACKED.
01447 M01S01366.iedit +++|*
01448 M01S01367.iedit +++|* USES X - 1, 2, 3, 4, 5, 7.
01449 M01S01368.iedit +++|* A - 1, 2, 3, 7.
01450 M01S01369.iedit +++|* B - 2, 3, 4, 5, 6, 7.
01451 M01S01370.iedit +++|
01452 M01S01371.iedit +++|
01453 M01S01372.iedit +++| PLB5 LX7 B2 LEFT ADJUST FINAL PACKED WORD
01454 M01S01373.iedit +++| SA7 A1+B7 STORE PACKED WORD
01455 M01S01374.iedit +++| SA1 A7+
01456 M01S01375.iedit +++| SB5 12
01457 M01S01376.iedit +++| GE B2,B5,PLBX IF EOL GUARANTEED IN LAST WORD
01458 M01S01377.iedit +++| SA1 A1+B1
01459 M01S01378.iedit +++| SX7 B0+
01460 M01S01379.iedit +++| SA7 A1
01461 M01S01380.iedit +++|
01462 M01S01381.iedit +++| PLB SUBR
01463 M01S01382.iedit +++| MX4 54
01464 M01S01383.iedit +++| SA3 CSTI
01465 M01S01384.iedit +++| SB6 X3
01466 M01S01385.iedit +++| SB5 12
01467 M01S01386.iedit +++| GT B6,PLB1 IF *ASCII8* CHARACTER SET
01468 M01S01387.iedit +++| SB5 6
01469 M01S01388.iedit +++| SX3 X3+1
01470 M01S01389.iedit +++| PLB1 NZ B2,PLB2 IF ROOM LEFT IN CURRENT WORD
01471 M01S01390.iedit +++| SB2 60
01472 M01S01391.iedit +++| SA1 A1+1
01473 M01S01392.iedit +++| PLB2 SB7 B0+
01474 M01S01393.iedit +++| SB3 60
01475 M01S01394.iedit +++| SB3 B3-B2
01476 M01S01395.iedit +++| LX7 X1,B3 ADJUST FIRST WORD FOR ADDING CHARACTERS
01477 M01S01396.iedit +++| SA2 A2-1
01478 M01S01397.iedit +++| NZ B3,PLB3 IF FIRST WORD PARTIALLY FILLED
01479 M01S01398.iedit +++| SX7 B0+
01480 M01S01399.iedit +++| PLB3 ZR B4,PLB5 IF ALL CHARACTERS HAVE BEEN PACKED
01481 M01S01400.iedit +++| SA2 A2+B1 GET NEXT CHARACTER
01482 M01S01401.iedit +++| BX5 X4*X2
01483 M01S01402.iedit +++| NZ X3,PLB4 IF NOT *ASCII* CHARACTER SET
01484 M01S01403.iedit +++| ZR X5,PLB4 IF NOT A TWELVE BIT CHARACTER
01485 M01S01404.iedit +++| AX5 6
01486 M01S01405.iedit +++| LX7 X7,B5
01487 M01S01406.iedit +++| BX7 X7+X5 PACK ESCAPE PART OF CHARACTER
01488 M01S01407.iedit +++| SB2 B2-B5
01489 M01S01408.iedit +++| BX2 -X4*X2 GET LOW SIX BITS OF CHARACTER
01490 M01S01409.iedit +++| GT B2,PLB4 IF ROOM LEFT FOR CHARACTER
01491 M01S01410.iedit +++| SA7 A1+B7
01492 M01S01411.iedit +++| SB7 B7+B1
01493 M01S01412.iedit +++| SX7 B0
01494 M01S01413.iedit +++| SB2 60
01495 M01S01414.iedit +++| PLB4 LX7 X7,B5
01496 M01S01415.iedit +++| BX7 X7+X2 ADD NEW CHARACTER
01497 M01S01416.iedit +++| SB2 B2-B5
01498 M01S01417.iedit +++| SB4 B4-B1
01499 M01S01418.iedit +++| GT B2,PLB3 IF ROOM LEFT FOR MORE CHARACTERS
01500 M01S01419.iedit +++| SA7 A1+B7 STORE PACKED WORD
01501 M01S01420.iedit +++| SB7 B7+B1
01502 M01S01421.iedit +++| SX7 B0+
01503 M01S01422.iedit +++| SB2 60
01504 M01S01423.iedit +++| EQ PLB3 CONTINUE WITH NEXT CHARACTER
01505 M01S01424.iedit +++| RAF SPACE 4,10
01506 M01S01425.iedit +++|** RAF - RECALL ALL FETS.
01507 M01S01426.iedit +++|*
01508 M01S01427.iedit +++|* EXIT ALL FETS RECALLED.
01509 M01S01428.iedit +++|*
01510 M01S01429.iedit +++|* MACROS RECALL.
01511 M01S01430.iedit +++|
01512 M01S01431.iedit +++|
01513 M01S01432.iedit +++| RAF SUBR ENTRY/EXIT
01514 M01S01433.iedit +++| RECALL E RECALL ALL FETS
01515 M01S01434.iedit +++| RECALL L
01516 M01S01435.iedit +++| RECALL LNT1
01517 M01S01436.iedit +++| RECALL LNT2
01518 M01S01437.iedit +++| RECALL SCR
01519 M01S01438.iedit +++| RECALL SCR1
01520 M01S01439.iedit +++| EQ RAFX RETURN
01521 M01S01440.iedit +++| RSF SPACE 4,10
01522 M01S01441.iedit +++|** RSF - REWIND/RETURN SCRATCH FILES.
01523 M01S01442.iedit +++|*
01524 M01S01443.iedit +++|* ENTRY (X7) = 0, REWIND ALL SCRATCH FILES.
01525 M01S01444.iedit +++|* = 1, RETURN ALL SCRATCH FILES.
01526 M01S01445.iedit +++|*
01527 M01S01446.iedit +++|* EXIT SCRATCH FILES REWOUND/RETURNED.
01528 M01S01447.iedit +++|* *READ* FILE REWOUND IF PRESENT.
01529 M01S01448.iedit +++|*
01530 M01S01449.iedit +++|* USES X - 1, 2, 5, 7.
01531 M01S01450.iedit +++|* A - 1, 5, 7.
01532 M01S01451.iedit +++|*
01533 M01S01452.iedit +++|* CALLS SLN.
01534 M01S01453.iedit +++|*
01535 M01S01454.iedit +++|* MACROS RETURN, REWIND.
01536 M01S01455.iedit +++|
01537 M01S01456.iedit +++|
01538 M01S01457.iedit +++| RSF SUBR ENTRY/EXIT
01539 M01S01458.iedit +++| SA7 RSFC SAVE REWIND/RETURN FLAG
01540 M01S01459.iedit +++| SX7 TSF
01541 M01S01460.iedit +++| SA7 RSFA STORE ADDRESS OF FILE NAMES
01542 M01S01461.iedit +++| SA1 I
01543 M01S01462.iedit +++| BX7 X1
01544 M01S01463.iedit +++| SX2 A1
01545 M01S01464.iedit +++| SA7 RSFB PRESERVE THE ORIGINAL FILE NAME
01546 M01S01465.iedit +++| RSF1 SA5 RSFA
01547 M01S01466.iedit +++| SA5 X5 LOAD NEXT FILE NAME
01548 M01S01467.iedit +++| ZR X5,RSF3 IF END OF TABLE
01549 M01S01468.iedit +++| SX7 A5+1
01550 M01S01469.iedit +++| SA7 RSFA
01551 M01S01470.iedit +++| RJ SLN SET SCRATCH FILE NAME INTO FET
01552 M01S01471.iedit +++| SA1 RSFC
01553 M01S01472.iedit +++| ZR X1,RSF2 IF REWIND RATHER THAN RETURN
01554 M01S01473.iedit +++| RETURN X2
01555 M01S01474.iedit +++| EQ RSF1 GET NEXT FILE NAME
01556 M01S01475.iedit +++|
01557 M01S01476.iedit +++| RSF2 REWIND X2,R
01558 M01S01477.iedit +++| EQ RSF1 GET NEXT FILE NAME
01559 M01S01478.iedit +++|
01560 M01S01479.iedit +++| RSF3 SA1 FNUM
01561 M01S01480.iedit +++| SX1 X1-FNRE
01562 M01S01481.iedit +++| NZ X1,RSF4 IF NO *READ* FILE EXISTS
01563 M01S01482.iedit +++| SA5 FILEN
01564 M01S01483.iedit +++| RJ SLN SET *READ* FILE NAME INTO FET
01565 M01S01484.iedit +++| REWIND X2
01566 M01S01485.iedit +++| RSF4 SA5 RSFB RESTORE ORIGINAL FET NAME
01567 M01S01486.iedit +++| RJ SLN
01568 M01S01487.iedit +++| EQ RSFX RETURN
01569 M01S01488.iedit +++|
01570 M01S01489.iedit +++| RSFA CON 0 ADDRESS OF FILE NAMES
01571 M01S01490.iedit +++| RSFB CON 0 ORIGINAL FET NAME
01572 M01S01491.iedit +++| RSFC CON 0 REWIND/RETURN FLAG
01573 M01S01492.iedit +++| SBE SPACE 4,10
01574 M01S01493.iedit +++|** SBE - SET BUFFER EMPTY.
01575 M01S01494.iedit +++|*
01576 M01S01495.iedit +++|* ENTRY (X2) = FET ADDRESS OF BUFFER.
01577 M01S01496.iedit +++|* (X5) .NE. 0, IF FILE IS TO BE REWOUND.
01578 M01S01497.iedit +++|*
01579 M01S01498.iedit +++|* EXIT BUFFER IS SET TO EMPTY.
01580 M01S01499.iedit +++|*
01581 M01S01500.iedit +++|* USES X - 0, 3, 6.
01582 M01S01501.iedit +++|* A - 3, 6.
01583 M01S01502.iedit +++|*
01584 M01S01503.iedit +++|* MACROS RECALL, REWIND.
01585 M01S01504.iedit +++|
01586 M01S01505.iedit +++|
01587 M01S01506.iedit +++| SBE SUBR ENTRY/EXIT
01588 M01S01507.iedit +++| ZR X5,SBE1 IF NO REWIND SPECIFIED
01589 M01S01508.iedit +++| REWIND X2,R
01590 M01S01509.iedit +++| EQ SBEX RETURN
01591 M01S01510.iedit +++|
01592 M01S01511.iedit +++| SBE1 RECALL X2
01593 M01S01512.iedit +++| MX0 -18 SET FIRST=IN=OUT
01594 M01S01513.iedit +++| SA3 X2+B1
01595 M01S01514.iedit +++| BX6 -X0*X3
01596 M01S01515.iedit +++| SA6 A3+B1
01597 M01S01516.iedit +++| SA6 A6+B1
01598 M01S01517.iedit +++| EQ SBEX RETURN
01599 M01S01518.iedit +++| SFI SPACE 4,15
01600 M01S01519.iedit +++|** SFI - SET FET INFORMATION.
01601 M01S01520.iedit +++|*
01602 M01S01521.iedit +++|* ENTRY FWA OF EACH MANAGED TABLE.
01603 M01S01522.iedit +++|* LENGTH OF EACH MANGED TABLE.
01604 M01S01523.iedit +++|*
01605 M01S01524.iedit +++|* EXIT FETS WILL BE SET ACCORDING TO FWA AND LENGTH OF
01606 M01S01525.iedit +++|* BUFFERS AS DETERMINED BY MANAGED TABLE PROCESSORS.
01607 M01S01526.iedit +++|*
01608 M01S01527.iedit +++|* USES X - 1, 2, 4.
01609 M01S01528.iedit +++|* A - 2, 4.
01610 M01S01529.iedit +++|*
01611 M01S01530.iedit +++|* CALLS SFP.
01612 M01S01531.iedit +++|
01613 M01S01532.iedit +++|
01614 M01S01533.iedit +++| SFI SUBR ENTRY/EXIT
01615 M01S01534.iedit +++| SA4 F.EFBUF
01616 M01S01535.iedit +++| SX1 E
01617 M01S01536.iedit +++| SA2 L.EFBUF
01618 M01S01537.iedit +++| RJ SFP
01619 M01S01538.iedit +++| SA4 F.LNBUF
01620 M01S01539.iedit +++| SX1 L
01621 M01S01540.iedit +++| SA2 L.LNBUF
01622 M01S01541.iedit +++| RJ SFP
01623 M01S01542.iedit +++| SA4 F.SCRBA
01624 M01S01543.iedit +++| SX1 LNT1
01625 M01S01544.iedit +++| SA2 L.SCRBA
01626 M01S01545.iedit +++| RJ SFP
01627 M01S01546.iedit +++| SA4 F.SCRBB
01628 M01S01547.iedit +++| SX1 LNT2
01629 M01S01548.iedit +++| SA2 L.SCRBB
01630 M01S01549.iedit +++| RJ SFP
01631 M01S01550.iedit +++| SA4 F.SCRBA
01632 M01S01551.iedit +++| SX1 SCR
01633 M01S01552.iedit +++| SA2 L.SCRBA
01634 M01S01553.iedit +++| RJ SFP
01635 M01S01554.iedit +++| SA4 F.SCRBB
01636 M01S01555.iedit +++| SX1 SCR1
01637 M01S01556.iedit +++| SA2 L.SCRBB
01638 M01S01557.iedit +++| RJ SFP
01639 M01S01558.iedit +++| EQ SFIX RETURN
01640 M01S01559.iedit +++| SFP SPACE 4,15
01641 M01S01560.iedit +++|** SFP - SET FET POINTERS.
01642 M01S01561.iedit +++|*
01643 M01S01562.iedit +++|* ENTRY (X1) = FWA OF FET TO BE SET.
01644 M01S01563.iedit +++|* (X2) = BUFFER LENGTH TO BE USED IN THIS FET.
01645 M01S01564.iedit +++|* (X4) = FIRST WORD ADDRESS OF BUFFER.
01646 M01S01565.iedit +++|*
01647 M01S01566.iedit +++|* EXIT FET POINTERS ARE RESET. INITIALLY A FET IS SET
01648 M01S01567.iedit +++|* TO EMPTY (FIRST=IN=OUT).
01649 M01S01568.iedit +++|*
01650 M01S01569.iedit +++|* USES X - 0, 2, 3, 5, 6, 7.
01651 M01S01570.iedit +++|* A - 3, 5, 6.
01652 M01S01571.iedit +++|* B - 2.
01653 M01S01572.iedit +++|
01654 M01S01573.iedit +++|
01655 M01S01574.iedit +++| SFP SUBR ENTRY/EXIT
01656 M01S01575.iedit +++| SA3 X1+B1 CHECK *FIRST* POINTER
01657 M01S01576.iedit +++| MX0 -18
01658 M01S01577.iedit +++| BX5 -X0*X3
01659 M01S01578.iedit +++| IX7 X4-X5 CALCULATE MOVEMENT OF TABLE
01660 M01S01579.iedit +++| BX3 X3*X0 SET *FIRST* POINTER
01661 M01S01580.iedit +++| BX6 X3+X4
01662 M01S01581.iedit +++| SA6 A3
01663 M01S01582.iedit +++| SA5 A3+B1 UPDATE *IN* POINTER
01664 M01S01583.iedit +++| BX5 -X0*X5
01665 M01S01584.iedit +++| ZR X5,SFP1 IF *IN* POINTER HAS NOT BEEN SET
01666 M01S01585.iedit +++|
01667 M01S01586.iedit +++|* RESET FET POINTERS
01668 M01S01587.iedit +++|
01669 M01S01588.iedit +++| SB2 X7 MOVEMENT OF TABLE
01670 M01S01589.iedit +++| SX6 X5+B2 NEW *IN* POINTER
01671 M01S01590.iedit +++| SA6 A3+B1
01672 M01S01591.iedit +++| SA3 X1+3 RETRIEVE *OUT* POINTER
01673 M01S01592.iedit +++| BX6 -X0*X3
01674 M01S01593.iedit +++| SX6 X6+B2 SET NEW *OUT* POINTER
01675 M01S01594.iedit +++| SA6 A6+1
01676 M01S01595.iedit +++| EQ SFP2 SET *LIMIT* POINTER
01677 M01S01596.iedit +++|
01678 M01S01597.iedit +++| SFP1 BX6 -X0*X6 SET *IN* POINTER IN FET TO *FIRST*
01679 M01S01598.iedit +++| SA6 A6+B1
01680 M01S01599.iedit +++| SA6 A6+1 SET *OUT* POINTER IN FET TO *FIRST*
01681 M01S01600.iedit +++| SFP2 SA3 A6+B1 SET *LIMIT* POINTER IN FET
01682 M01S01601.iedit +++| BX3 X0*X3
01683 M01S01602.iedit +++| SX2 X2+B1
01684 M01S01603.iedit +++| IX2 X2+X4
01685 M01S01604.iedit +++| BX6 X2+X3
01686 M01S01605.iedit +++| SA6 A3
01687 M01S01606.iedit +++| EQ SFPX RETURN
01688 M01S01607.iedit +++| SLN SPACE 4,15
01689 M01S01608.iedit +++|** SLN - SET LOCAL FILE NAME.
01690 M01S01609.iedit +++|*
01691 M01S01610.iedit +++|* ENTRY (X2) = FET ADDRESS.
01692 M01S01611.iedit +++|* (X5) = FILE NAME TO PUT IN FET.
01693 M01S01612.iedit +++|*
01694 M01S01613.iedit +++|* EXIT FILE NAME HAS BEEN INSERTED IN THE SPECFIED FET.
01695 M01S01614.iedit +++|* (X2) = FET ADDRESS.
01696 M01S01615.iedit +++|* (X5) = FET+0 WITH ORIGINAL FILE NAME AFTER *RECALL*.
01697 M01S01616.iedit +++|*
01698 M01S01617.iedit +++|* USES X - 3, 5, 7.
01699 M01S01618.iedit +++|* A - 5, 7.
01700 M01S01619.iedit +++|*
01701 M01S01620.iedit +++|* MACROS RECALL.
01702 M01S01621.iedit +++|
01703 M01S01622.iedit +++|
01704 M01S01623.iedit +++| SLN SUBR ENTRY/EXIT
01705 M01S01624.iedit +++| RECALL X2
01706 M01S01625.iedit +++| SX3 B1
01707 M01S01626.iedit +++| BX7 X3+X5
01708 M01S01627.iedit +++| SA5 X2
01709 M01S01628.iedit +++| SA7 X2
01710 M01S01629.iedit +++| EQ SLNX RETURN
01711 M01S01630.iedit +++| SSF SPACE 4,15
01712 M01S01631.iedit +++|** SSF - SORT SELECTED FILE.
01713 M01S01632.iedit +++|*
01714 M01S01633.iedit +++|* ENTRY (B2) = FET ADDRESS OF FILE TO BE SORTED.
01715 M01S01634.iedit +++|*
01716 M01S01635.iedit +++|* EXIT (X2) = FET ADDRESS OF SORTED FILE.
01717 M01S01636.iedit +++|* (X6) = NUMBER OF LINES IN SORTED FILE.
01718 M01S01637.iedit +++|*
01719 M01S01638.iedit +++|* USES X - 1, 2, 4, 5, 6, 7.
01720 M01S01639.iedit +++|* A - 1, 2, 5, 6.
01721 M01S01640.iedit +++|*
01722 M01S01641.iedit +++|* CALLS SLN, SNF.
01723 M01S01642.iedit +++|*
01724 M01S01643.iedit +++|* MACROS FILINFO.
01725 M01S01644.iedit +++|
01726 M01S01645.iedit +++|
01727 M01S01646.iedit +++| SSF SUBR ENTRY/EXIT
01728 M01S01647.iedit +++| SX6 B2+ ADDRESS OF FET OF FILE TO SORT
01729 M01S01648.iedit +++| SA6 SSFA
01730 M01S01649.iedit +++| SA5 TSF+4 RESET SCRATCH FILE NAME
01731 M01S01650.iedit +++| SX2 SCR
01732 M01S01651.iedit +++| RJ SLN
01733 M01S01652.iedit +++| SA5 TSF+5 RESET SCRATCH FILE NAME
01734 M01S01653.iedit +++| SX2 SCR1
01735 M01S01654.iedit +++| RJ SLN
01736 M01S01655.iedit +++| SX1 B1+ INDIRECT ACCESS FILES BEING WORKED WITH
01737 M01S01656.iedit +++| SX6 NUMD NUMBER OF DIGITS TO SORT ON
01738 M01S01657.iedit +++| SA5 CSTI CHARACTER TYPE FOR *COMCSNF*
01739 M01S01658.iedit +++| SX4 X5-1
01740 M01S01659.iedit +++| ZR X4,SSF1 IF CHARACTER SET IS ASCII8
01741 M01S01660.iedit +++| SX5 B0+
01742 M01S01661.iedit +++| SSF1 BX7 X5
01743 M01S01662.iedit +++| SA2 SSFA EDIT FILE FET ADDRESS FOR *COMCSNF*
01744 M01S01663.iedit +++| RJ SNF SORT LINE NUMBERED FILE
01745 M01S01664.iedit +++| ZR X1,SSF2 IF SORT SUCCESSFUL
Line S01665 Modification History
M01(Added by)
iedit
M02(Updated by)
iedit2
Seq # *Modification Id* Act
----------------------------+
01746 M02S01665.iedit2 ---| SX5 ERRNLN
01747 M01S00075.iedit2 +++| SX5 ERRNLN *NO LINE NUMBER ON LINE.*
01748 M01S01666.iedit +++| ZR B2,ERR IF NO LINE NUMBER