Seq # *Modification Id* Act
----------------------------+
01996 M00S01911.iedit +++| PSC2 READEI E
01997 M00S01912.iedit +++| REWIND TRNCFET
01998 M00S01913.iedit +++|
01999 M00S01914.iedit +++|* COUNT NUMBER OF TRAILING BLANKS IN SEARCH STRING AND
02000 M00S01915.iedit +++|* PUT COUNT IN *PSCB*.
02001 M00S01916.iedit +++|
02002 M00S01917.iedit +++| SA5 NCIS
02003 M00S01918.iedit +++| SA4 BLNK
02004 M00S01919.iedit +++| SB6 X5+
02005 M00S01920.iedit +++| PSC3 ZR B6,PSC4 IF NO SEARCH STRING
02006 M00S01921.iedit +++| SA3 B6+SBUF-1
02007 M00S01922.iedit +++| BX3 X3-X4
02008 M00S01923.iedit +++| NZ X3,PSC4 IF CHARACTER NOT A BLANK
02009 M00S01924.iedit +++| SB6 B6-B1
02010 M00S01925.iedit +++| EQ PSC3 CHECK NEXT CHARACTER
02011 M00S01926.iedit +++|
02012 M00S01927.iedit +++| PSC4 SB6 -B6
02013 M00S01928.iedit +++| SX6 X5+B6
02014 M00S01929.iedit +++| SA6 PSCB
02015 M00S01930.iedit +++|
02016 M00S01931.iedit +++|* THIS MARKS THE BEGINNING OF THE MAIN LOOP.
02017 M00S01932.iedit +++|* CLEAR ALL FLAGS AND READ A LINE INTO THE WORKING BUFFER.
02018 M00S01933.iedit +++|
02019 M00S01934.iedit +++| PSC5 SX7 B0+
02020 M00S01935.iedit +++| SA7 TRNC
02021 M00S01936.iedit +++| READC E,PCKDBF,MXWL+1
02022 M00S01937.iedit +++| NZ X1,PSC28 IF END OF EDIT FILE REACHED
02023 M00S01938.iedit +++| BX6 X4
02024 M00S01939.iedit +++| PSC6 MX0 -12
02025 M00S01940.iedit +++| BX6 -X0*X6
02026 M00S01941.iedit +++| ZR X6,PSC7 IF NO MORE WORDS IN LINE
02027 M00S01942.iedit +++| READO X2
02028 M00S01943.iedit +++| EQ PSC6 CHECK FOR END OF LINE
02029 M00S01944.iedit +++|
02030 M00S01945.iedit +++|* CRACK THE LINE NUMBER AND STORE ITS VALUE AND LENGTH.
02031 M00S01946.iedit +++|
02032 M00S01947.iedit +++| PSC7 SA5 PCKDBF CHECK LINE NUMBER
02033 M00S01948.iedit +++| RJ CLN
| Line S01949 Modification History |
M01 (Removed by) | iedit3 |
Seq # *Modification Id* Act
----------------------------+
02034 M01S01949.iedit3 ---| ZR X3,PSC5 IF LINE IS TO BE IGNORED
02035 M00S01950.iedit ---| SA7 PSCA
02036 M00S01951.iedit ---| SA6 OBLN
02037 M00S01952.iedit ---| SA6 NBLN
02038 M00S01953.iedit ---| BX0 X4 SAVE THE LINE SELECT PARAMETER
02039 M00S01954.iedit ---|
02040 M00S01955.iedit ---|* UNPACK THE LINE INTO *CLIN* AND CHECK FOR TRUNCATION.
02041 M00S01956.iedit ---|
02042 M00S01957.iedit ---| SB2 PCKDBF
02043 M00S01958.iedit ---| SA1 CSTI
02044 M00S01959.iedit ---| SB6 MXCIL+1
02045 M00S01960.iedit ---| SB3 X1+
02046 M00S01961.iedit ---| RJ USB UNPACK LINE INTO STRING BUFFER
02047 M00S01962.iedit ---| SB4 B7-B6
02048 M00S01963.iedit ---| SB4 B4+B1
02049 M00S01964.iedit ---|
02050 M00S01965.iedit ---|* FIND THE LAST NON-BLANK CHARACTER.
02051 M00S01966.iedit ---|
02052 M00S01967.iedit ---| SA4 BLNK
02053 M00S01968.iedit ---| SB2 MXCIL
02054 M00S01969.iedit ---| GE B2,B4,PSC8 IF LINE NOT TOO LONG
02055 M00S01970.iedit ---| SX7 B2
02056 M00S01971.iedit ---| SA7 NCOL
02057 M00S01972.iedit ---| SX7 B1
02058 M00S01973.iedit ---| SA7 TRNC
02059 M00S01974.iedit ---| EQ PSC10 TRUNCATE FLAG IS SET
02060 M00S01975.iedit ---|
02061 M00S01976.iedit ---| PSC8 SA3 B4+CLIN-1
02062 M01S01977.iedit3 ---| BX3 X3-X4
02063 M01S01978.iedit3 ---| NZ X3,PSC9 IF CHARACTER IS NOT A BLANK
| Line S00001 Modification History |
M01 (Added by) | iedit3 |
Seq # *Modification Id* Act
----------------------------+
02064 M01S00001.iedit3 +++| BX7 X3-X4
02065 M01S00002.iedit3 +++| NZ X7,PSC8.1 IF CHARACTER IS NOT A BLANK
02066 M00S01979.iedit +++| SB4 B4-1
02067 M00S01980.iedit +++| EQ PSC8 CHECK NEXT CHARACTER
02068 M00S01981.iedit +++|
02069 M01S00003.iedit3 +++|
02070 M01S00004.iedit3 +++| PSC8.1 NZ X3,PSC9 IF NOT A 64 CHARACTER SET COLON
02071 M01S00005.iedit3 +++| GE B4,B2,PSC9 IF ALREADY AT END OF LINE
02072 M01S00006.iedit3 +++| SB4 B4+1 INSURE A BLANK AFTER THE COLON
02073 M00S01982.iedit +++| PSC9 SX7 B4+
02074 M00S01983.iedit +++| SA7 NCOL
02075 M00S01984.iedit +++|
02076 M00S01985.iedit +++|* PERFORM ANY CHARACTER STRING REPLACEMENT
02077 M00S01986.iedit +++|* NECESSARY FOR THE *ALTER* COMMAND.
02078 M00S01987.iedit +++|
02079 M00S01988.iedit +++| PSC10 ZR X0,PSC27 IF LINE NOT SELECTED
02080 M00S01989.iedit +++| SA5 NCIS
02081 M00S01990.iedit +++| NZ X5,PSC13 IF NON-NULL SEARCH STRING
02082 M00S01991.iedit +++| SA2 NCIR
02083 M00S01992.iedit +++| ZR X2,PSC22 IF REPLACEMENT STRING ALSO NULL
02084 M00S01993.iedit +++|
02085 M00S01994.iedit +++|* PROCESS THE *ALTER* COMMAND FORMAT IN
02086 M00S01995.iedit +++|* WHICH A REPLACEMENT STRING IS SPECIFIED,
02087 M00S01996.iedit +++|* BUT A SEARCH STRING IS NOT.
02088 M00S01997.iedit +++|* (ALTER,//STRING2/)
02089 M00S01998.iedit +++|
02090 M00S01999.iedit +++| SA1 NCOL
02091 M00S02000.iedit +++| SB3 MXCIL MAXIMUM NUMBER OF CHARACTERS PER LINE
02092 M00S02001.iedit +++| SB4 X2 LENGTH OF REPLACEMENT STRING
02093 M00S02002.iedit +++| SB2 X1 CURRENT NUMBER OF CHARACTERS IN LINE
02094 M00S02003.iedit +++| SB5 B0+
02095 M00S02004.iedit +++| PSC11 GE B2,B3,PSC12 IF NEW LINE IS TOO LONG
02096 M00S02005.iedit +++| SA1 B5+RBUF
02097 M00S02006.iedit +++| SB5 B5+B1
02098 M00S02007.iedit +++| BX7 X1
02099 M00S02008.iedit +++| SA7 B2+CLIN
02100 M00S02009.iedit +++| SB2 B2+B1
02101 M00S02010.iedit +++| LT B5,B4,PSC11 IF MORE CHARACTERS ARE TO BE ADDED
02102 M00S02011.iedit +++| SX7 B2
02103 M00S02012.iedit +++| SA7 NCOL
02104 M00S02013.iedit +++| EQ PSC22 COMPLETE PROCESSING SELECTED LINE
02105 M00S02014.iedit +++|
02106 M00S02015.iedit +++| PSC12 SX6 B1
02107 M00S02016.iedit +++| SX7 B3
02108 M00S02017.iedit +++| SA6 TRNC
02109 M00S02018.iedit +++| SA7 NCOL
02110 M00S02019.iedit +++| EQ PSC22 COMPLETE PROCESSING SELECTED LINE
02111 M00S02020.iedit +++|
02112 M00S02021.iedit +++|* PROCESS THE *ALTER* COMMAND FORMAT IN WHICH THE SEARCH
02113 M00S02022.iedit +++|* STRING IS SPECIFIED.
02114 M00S02023.iedit +++|* (ALTER,/STRING1/STRING2/ OR ALTER,/STRING1//)
02115 M00S02024.iedit +++|
02116 M00S02025.iedit +++| PSC13 BSS 0
02117 M00S02026.iedit +++| .TRIM IFEQ TRIM,0
02118 M00S02027.iedit +++| SA2 PSCB
02119 M00S02028.iedit +++| ZR X2,PSC16 IF NO TRAILING BLANKS IN SEARCH STRING
02120 M00S02029.iedit +++| IFEQ TRIM,0
02121 M00S02030.iedit +++| SA1 NCOL
02122 M00S02031.iedit +++| SA3 BLNK
02123 M00S02032.iedit +++| SB3 MXCIL
| Line S02033 Modification History |
M01 (Removed by) | iedit3 |
Seq # *Modification Id* Act
----------------------------+
02124 M01S02033.iedit3 ---| SB2 X1
| Line S00007 Modification History |
M01 (Added by) | iedit3 |
Seq # *Modification Id* Act
----------------------------+
02125 M01S00007.iedit3 +++| SB2 X1+
02126 M00S02034.iedit +++| BX7 X3
02127 M01S00008.iedit3 +++| SA1 B2+CLIN-1 GET LAST CHARACTER
02128 M01S00009.iedit3 +++| BX1 X1-X3
02129 M01S00010.iedit3 +++| NZ X1,PSC14 IF NOT A BLANK PROTECTING A COLON
02130 M01S00011.iedit3 +++| SB2 B2-1 POINT TO THE COLON
02131 M00S02035.iedit +++| PSC14 EQ B2,B3,PSC15 IF NO MORE ROOM IN STRING BUFFER
02132 M00S02036.iedit +++| SA7 B2+CLIN
02133 M00S02037.iedit +++| SB2 B2+1
02134 M00S02038.iedit +++| SX2 X2-1
02135 M00S02039.iedit +++| NZ X2,PSC14 IF ALL BLANKS NOT YET ADDED
02136 M00S02040.iedit +++| PSC15 SX7 B2+
02137 M00S02041.iedit +++| SA7 NCOL
02138 M00S02042.iedit +++| .TRIM ENDIF
02139 M00S02043.iedit +++|
02140 M00S02044.iedit +++|* STORE THE NUMBER OF TRAILING BLANKS IN LINE INTO *NTBL*.
02141 M00S02045.iedit +++|* CHECK FOR SEARCH STRING PRESENT IN LINE.
02142 M00S02046.iedit +++|
02143 M00S02047.iedit +++| PSC16 SA1 NCOL
02144 M00S02048.iedit +++| SA2 PSCA
02145 M00S02049.iedit +++| SX4 MXCIL
02146 M00S02050.iedit +++| IX6 X4-X1
02147 M00S02051.iedit +++| BX7 X2
02148 M00S02052.iedit +++| SA6 NTBL
02149 M00S02053.iedit +++| SB6 X1+
02150 M00S02054.iedit +++| RJ FSL FIND STRING IN LINE
02151 M00S02055.iedit +++| NG X4,PSC27 IF STRING NOT FOUND, DE-SELECT
02152 M00S02056.iedit +++|
02153 M00S02057.iedit +++|* REPLACE ALL OCCURENCES OF SEARCH STRING IN LINE
02154 M00S02058.iedit +++|* WITH THE REPLACEMENT STRING.
02155 M00S02059.iedit +++|
02156 M00S02060.iedit +++| SA1 FNUM
02157 M00S02061.iedit +++| SX1 X1-FNAL
02158 M00S02062.iedit +++| NZ X1,PSC22 IF FUNCTION NOT *ALTER*
02159 M00S02063.iedit +++| PSC17 RJ CSL CHANGE STRING IN LINE
02160 M00S02064.iedit +++| SA5 NCIR
02161 M00S02065.iedit +++| IX7 X4+X5
02162 M00S02066.iedit +++| SA4 NCOL
02163 M00S02067.iedit +++| SB6 X4+
02164 M00S02068.iedit +++| RJ FSL
02165 M00S02069.iedit +++| PL X4,PSC17 IF ANOTHER SEARCH STRING OCCURENCE FOUND
02166 M00S02070.iedit +++| SA2 NCIS
02167 M00S02071.iedit +++| SA1 PSCB
02168 M00S02072.iedit +++| IX1 X1-X2
02169 M00S02073.iedit +++| NZ X1,PSC22 IF SEARCH STRING IS NOT ALL BLANKS
02170 M00S02074.iedit +++|
02171 M00S02075.iedit +++|* PROCESS THE SPECIAL CASE WHERE THE USER SPECIFIED
02172 M00S02076.iedit +++|* AN ALL BLANK SEARCH STRING IN AN *ALTER* COMMAND.
02173 M00S02077.iedit +++|* (ALTER,/ /STRING2/)
02174 M00S02078.iedit +++|
02175 M00S02079.iedit +++| .TRIM IFEQ TRIM,0
02176 M00S02080.iedit +++| SA3 NCOL
02177 M00S02081.iedit +++| SB7 X3+ CURRENT NUMBER OF CHARACTERS IN LINE
02178 M00S02082.iedit +++| SA1 NTBL
02179 M00S02083.iedit +++| SA4 NCIR
02180 M00S02084.iedit +++| SB2 X1 ORIGINAL NUMBER OF TRAILING BLANKS
02181 M00S02085.iedit +++| SB3 X2 NUMBER OF CHARACTERS IN SEARCH STRING
02182 M00S02086.iedit +++| SB6 MXCIL
02183 M00S02087.iedit +++| SB4 X4+ NUMBER OF CHARACTERS IN REPLACEMENT STRING
02184 M00S02088.iedit +++| PSC18 LT B2,B3,PSC21 IF LESS THAN *NCIS* BLANKS REMAIN
02185 M00S02089.iedit +++| SB2 B2-B3
02186 M00S02090.iedit +++| SB5 B0
02187 M00S02091.iedit +++| PSC19 EQ B5,B4,PSC18 IF ENTIRE REPLACE STRING ADDED
02188 M00S02092.iedit +++| EQ B7,B6,PSC20 IF NEW LINE IS TOO LONG
02189 M00S02093.iedit +++| SA1 B5+RBUF
02190 M00S02094.iedit +++| SX7 X1+
02191 M00S02095.iedit +++| SA7 B7+CLIN
02192 M00S02096.iedit +++| SB7 B7+B1
02193 M00S02097.iedit +++| SB5 B5+B1
02194 M00S02098.iedit +++| EQ PSC19 ADD THE NEXT CHARACTER
02195 M00S02099.iedit +++|
02196 M00S02100.iedit +++| PSC20 SX7 B1+
02197 M00S02101.iedit +++| SA7 TRNC
02198 M00S02102.iedit +++| PSC21 SX7 B7+
02199 M00S02103.iedit +++| SA7 NCOL
02200 M00S02104.iedit +++| .TRIM ENDIF
02201 M00S02105.iedit +++|
02202 M00S02106.iedit +++|* PROCESS SELECTED LINES. THE FOLLOWING CODE REPACKS,
02203 M00S02107.iedit +++|* ECHOS TO OUTPUT, AND COPIES THE POTENTIALLY ALTERED
02204 M00S02108.iedit +++|* LINE TO THE NEW SOURCE FILE.
02205 M00S02109.iedit +++|
02206 M00S02110.iedit +++| PSC22 SA1 NMLS
02207 M00S02111.iedit +++| SX6 X1+B1
02208 M00S02112.iedit +++| SA6 A1
02209 M00S02113.iedit +++| SA1 FNUM
02210 M00S02114.iedit +++| SX1 X1-FNAL
02211 M00S02115.iedit +++| NZ X1,PSC23 IF NOT AN *ALTER* COMMAND
02212 M00S02116.iedit +++| SA2 PSCA ADD BLANKS AND REPACK
02213 M00S02117.iedit +++| RJ ABL
02214 M00S02118.iedit +++| SB2 60
02215 M00S02119.iedit +++| SA1 PCKDBF
02216 M00S02120.iedit +++| SA2 CLIN
02217 M00S02121.iedit +++| SA3 NCOL
02218 M00S02122.iedit +++| SB4 X3
02219 M00S02123.iedit +++| RJ PLB
02220 M00S02124.iedit +++| PSC23 SA1 FNUM
02221 M00S02125.iedit +++| SX1 X1-MXNW-1
02222 M00S02126.iedit +++| PL X1,PSC24 IF A *WRITE(N)* FUNCTION
02223 M00S02127.iedit +++| SA1 LOP
02224 M00S02128.iedit +++| ZR X1,PSC24 IF LIST FLAG NOT SET
02225 M00S02129.iedit +++| WRITEC O,PCKDBF ECHO SELECTED LINES
02226 M00S02130.iedit +++| PSC24 SA1 FNUM
02227 M00S02131.iedit +++| SX2 X1-FNLI
02228 M00S02132.iedit +++| ZR X2,PSC26 IF A *LIST* COMMAND
02229 M00S02133.iedit +++| SX2 X1-FNDE
02230 M00S02134.iedit +++| ZR X2,PSC26 IF A *DELETE* COMMAND
02231 M00S02135.iedit +++| SX1 X1-FNWN
02232 M00S02136.iedit +++| NZ X1,PSC25 IF NOT A *WRITE(N)* COMMAND
02233 M00S02137.iedit +++| SA1 PSCA
02234 M00S02138.iedit +++| RJ PWN SHIFT TEXT FOR *WRITEN*
02235 M00S02139.iedit +++| PSC25 WRITEC SCR,PCKDBF BUILD NEW FILE
02236 M00S02140.iedit +++| PSC26 SA1 TRNC
02237 M00S02141.iedit +++| ZR X1,PSC5 IF LINE NOT TRUNCATED
02238 M00S02142.iedit +++| SA1 OBLN
02239 M00S02143.iedit +++| RJ WTL
02240 M00S02144.iedit +++| EQ PSC5 PROCESS NEXT LINE
02241 M00S02145.iedit +++|
02242 M00S02146.iedit +++|* PROCESS UNSELECTED LINES.
02243 M00S02147.iedit +++|* THE FOLLOWING CODE SUPPRESSES PACKING AND ECHOING AND
02244 M00S02148.iedit +++|* AS SUCH IS FOR THE SIMPLE COPYING OF UNSELECTED LINES.
02245 M00S02149.iedit +++|
02246 M00S02150.iedit +++| PSC27 SA1 FNUM
02247 M00S02151.iedit +++| SX2 X1-FNAL
02248 M00S02152.iedit +++| ZR X2,PSC25 IF AN *ALTER* COMMAND
02249 M00S02153.iedit +++| SX2 X1-FNDE
02250 M00S02154.iedit +++| ZR X2,PSC25 IF A *DELETE* COMMAND
02251 M00S02155.iedit +++| EQ PSC5 PROCESS NEXT LINE
02252 M00S02156.iedit +++|
02253 M00S02157.iedit +++|* FINISH UP AFTER SCAN OF EDIT FILE IS COMPLETED.
02254 M00S02158.iedit +++|
02255 M00S02159.iedit +++| PSC28 SA2 NMLS
02256 M00S02160.iedit +++| SA1 FNUM
02257 M00S02161.iedit +++| NZ X2,PSC29 IF AT LEAST ONE LINE WAS SELECTED
02258 M00S02162.iedit +++| SX2 X1-FNLI
02259 M00S02163.iedit +++| SX5 ERRNLF *NO LINES FOUND.*
02260 M00S02164.iedit +++| NZ X2,ERR IF NOT A *LIST* COMMAND
02261 M00S02165.iedit +++| SX5 B0+
02262 M00S02166.iedit +++| EQ ERR NO LINES FOUND AND A *LIST* COMMAND
02263 M00S02167.iedit +++|
02264 M00S02168.iedit +++|* FLUSH TRUNCATED LINES IF NECESSARY
02265 M00S02169.iedit +++|
02266 M00S02170.iedit +++| PSC29 SA3 TRNCFET CHECK FET STATUS
02267 M00S02171.iedit +++| MX2 -18
02268 M00S02172.iedit +++| BX3 -X2*X3
02269 M00S02173.iedit +++| SX2 A3+
02270 M00S02174.iedit +++| SX3 X3-3
02271 M00S02175.iedit +++| ZR X3,PSC30 IF BUFFER NEVER WRITTEN TO DISK
02272 M00S02176.iedit +++| WRITER X2
02273 M00S02177.iedit +++| PSC30 SA1 FNUM
02274 M00S02178.iedit +++| SX2 X1-FNLI
02275 M00S02179.iedit +++| ZR X2,PSCX IF A *LIST* COMMAND
02276 M00S02180.iedit +++| WRITER SCR COMPLETE *ALTER*, *DELETE*, OR *WRITE(N)*
02277 M00S02181.iedit +++| SA1 FNUM
02278 M00S02182.iedit +++| SX1 X1-MXNW-1
02279 M00S02183.iedit +++| PL X1,PSCX IF A *WRITE(N)* COMMAND
02280 M00S02184.iedit +++| RENAME SCR,E COMPLETE *ALTER* OR *DELETE*
02281 M00S02185.iedit +++| EQ PSCX RETURN
02282 M00S02186.iedit +++|
02283 M00S02187.iedit +++| PSCA CON 0 NUMBER OF DIGITS IN LINE NUMBER
02284 M00S02188.iedit +++| PSCB CON 0 NUMBER OF TRAILING BLANKS IN SEARCH STRING
02285 M00S02189.iedit +++| TITLE OVERLAYABLE SUBROUTINES.
02286 M00S02190.iedit +++| CSL SPACE 4,25
02287 M00S02191.iedit +++|** CSL - CHANGE STRING IN LINE.
02288 M00S02192.iedit +++|*
02289 M00S02193.iedit +++|* *CSL* CHANGES A STRING IN A LINE TO ANOTHER
02290 M00S02194.iedit +++|* STRING OF CHARACTERS.
02291 M00S02195.iedit +++|*
02292 M00S02196.iedit +++|* ENTRY (NCOL) = NUMBER OF CHARACTERS ON LINE.
02293 M00S02197.iedit +++|* (CLIN) = FWA OF UNPACKED LINE.
02294 M00S02198.iedit +++|* (RBUF) = FWA OF REPLACEMENT BUFFER.
02295 M00S02199.iedit +++|* (X4) = CHARACTER POSITION WHERE SEARCH STRING WAS
02296 M00S02200.iedit +++|* FOUND.
02297 M00S02201.iedit +++|*
02298 M00S02202.iedit +++|* EXIT (X4) = CHARACTER POSITION POINTER.
02299 M00S02203.iedit +++|* *CLIN* CHANGED TO INCLUDE THE STRING TO REPLACE
02300 M00S02204.iedit +++|* WITH THE NEW STRING.
02301 M00S02205.iedit +++|* (NCOL) CHANGED TO REFLECT NEW LENGTH OF LINE
02302 M00S02206.iedit +++|* AFTER CHANGE HAS BEEN MADE.
02303 M00S02207.iedit +++|*
02304 M00S02208.iedit +++|* USES X - 1, 2, 3, 4, 5, 6, 7.
02305 M00S02209.iedit +++|* A - 1, 4, 5, 7.
02306 M00S02210.iedit +++|* B - 3, 5, 6.
02307 M00S02211.iedit +++|*
02308 M00S02212.iedit +++|* MACROS MOVE.
02309 M00S02213.iedit +++|
02310 M00S02214.iedit +++|
02311 M00S02215.iedit +++| CSL SUBR ENTRY/EXIT
02312 M00S02216.iedit +++| SA5 NCIS FIND DIFFERENCE IN STRING LENGTHS
02313 M00S02217.iedit +++| SA1 NCIR
02314 M00S02218.iedit +++| SX7 X4
02315 M00S02219.iedit +++| IX3 X1-X5 NUMBER OF CHARACTERS TO INCREASE HOLE BY
02316 M00S02220.iedit +++| SA7 CSLA
02317 M00S02221.iedit +++| SX2 CLIN+X4 FIND BEGINNING OF SEARCH STRING
02318 M00S02222.iedit +++| SA4 NCOL
02319 M00S02223.iedit +++| IX7 X4+X3 COMPUTED LENGTH OF NEW STRING
02320 M00S02224.iedit +++| SA7 A4 UPDATE *NCOL* TO ITS NEW LENGTH
02321 M00S02225.iedit +++| ZR X3,CSL2 IF STRINGS ARE SAME SIZE
02322 M00S02226.iedit +++| IX2 X2+X5 GET STARTING ADDRESS FOR MOVE
02323 M00S02227.iedit +++| SX4 X4+CLIN ENDING ADDRESS OF OLD LINE PLUS ONE
02324 M00S02228.iedit +++| IX3 X2+X3 DESTINATION ADDRESS FOR MOVE
02325 M00S02229.iedit +++| IX1 X4-X2 COMPUTE LENGTH OF STRING TO MOVE
02326 M00S02230.iedit +++| SB5 X7-MXCIL-1
02327 M00S02231.iedit +++| SX7 B1
02328 M00S02232.iedit +++| NG B5,CSL1 IF NO TRUNCATION
02329 M00S02233.iedit +++| SA7 TRNC
02330 M00S02234.iedit +++| SX7 MXCIL
02331 M00S02235.iedit +++| SX6 X3-CLIN-MXCIL
02332 M00S02236.iedit +++| SA7 NCOL CORRECT LENGTH OF NEW LINE TO *MXCIL*
02333 M00S02237.iedit +++| PL X6,CSL2 IF DESTINATION ADDRESS BEYOND *MXCIL*
02334 M00S02238.iedit +++| SX4 X7-MXCIL AMOUNT OF TRUNCATION
02335 M00S02239.iedit +++| IX1 X1-X4 ADJUST NUMBER OF CHARACTERS TO MOVE
02336 M00S02240.iedit +++|
02337 M00S02241.iedit +++|* ADJUST SEARCH STRING HOLE TO FIT REPLACEMENT STRING.
02338 M00S02242.iedit +++|
02339 M00S02243.iedit +++| CSL1 MOVE X1,X2,X3
02340 M00S02244.iedit +++|
02341 M00S02245.iedit +++|* MOVE REPLACEMENT STRING TO SEARCH STRING HOLE.
02342 M00S02246.iedit +++|
02343 M00S02247.iedit +++| CSL2 SA4 CSLA
02344 M00S02248.iedit +++| SA5 NCIR
02345 M00S02249.iedit +++| SB5 CLIN+X4 ADDR TO START REPLACEMENT
02346 M00S02250.iedit +++| SB6 MXCIL+1
02347 M00S02251.iedit +++| SB3 X4
02348 M00S02252.iedit +++| SB6 B6-B3
02349 M00S02253.iedit +++| SB3 X5+
02350 M00S02254.iedit +++| LE B3,B6,CSL3 IF ROOM FOR ENTIRE REPLACEMENT STRING
02351 M00S02255.iedit +++| SB3 B6+
02352 M00S02256.iedit +++| CSL3 SB6 B0+ CHARACTER REPLACEMENT COUNT
02353 M00S02257.iedit +++| SA1 RBUF-1
02354 M00S02258.iedit +++| CSL4 GE B6,B3,CSLX IF DONE MOVING STRING, RETURN
02355 M00S02259.iedit +++| SA1 A1+B1 GET NEXT CHARACTER
02356 M00S02260.iedit +++| SX7 X1
02357 M00S02261.iedit +++| SA7 B5+B6
02358 M00S02262.iedit +++| SB6 B6+B1
02359 M00S02263.iedit +++| EQ CSL4 MOVE NEXT CHARACTER
02360 M00S02264.iedit +++|
02361 M00S02265.iedit +++| CSLA CON 0 SEARCH STRING POSITION
02362 M00S02266.iedit +++| FSL SPACE 4,20
02363 M00S02267.iedit +++|** FSL - FIND STRING IN LINE.
02364 M00S02268.iedit +++|*
02365 M00S02269.iedit +++|* ENTRY (CLIN) = FIRST CHARACTER OF LINE
02366 M00S02270.iedit +++|* (LINE UNPACKED - 1 CHARACTER PER WORD).
02367 M00S02271.iedit +++|* (X7) = NUMBER OF CHARACTERS ON LINE TO SKIP
02368 M00S02272.iedit +++|* OVER BEFORE STARTING SEARCH.
02369 M00S02273.iedit +++|* (B6) = COUNT OF CHARACTERS IN LINE.
02370 M00S02274.iedit +++|* (SBUF) = UNPACKED SEARCH STRING.
02371 M00S02275.iedit +++|* (NCIS) = NUMBER OF CHARACTERS IN SEARCH STRING.
02372 M00S02276.iedit +++|*
02373 M00S02277.iedit +++|* EXIT (X4) = CHARACTER POSITION IN LINE WHERE
02374 M00S02278.iedit +++|* MATCH WAS FOUND.
02375 M00S02279.iedit +++|* .LT. 0, IF CHARACTER STRING NOT IN LINE.
02376 M00S02280.iedit +++|*
02377 M00S02281.iedit +++|* USES X - 1, 4, 5, 7.
02378 M00S02282.iedit +++|* A - 1, 5.
02379 M00S02283.iedit +++|* B - 2, 3, 4, 7.
02380 M00S02284.iedit +++|
02381 M00S02285.iedit +++|
02382 M00S02286.iedit +++| FSL SUBR ENTRY/EXIT
02383 M00S02287.iedit +++| MX4 1
02384 M00S02288.iedit +++| SA5 NCIS NUMBER OF CHARACTERS IN SEARCH STRING
02385 M00S02289.iedit +++| SB4 X7 OFFSET TO START SEARCH AT
02386 M00S02290.iedit +++| SB3 X5+
02387 M00S02291.iedit +++| SB7 B6-B3
02388 M00S02292.iedit +++| SB2 B0+ COUNT OF CHARACTERS FOUND
02389 M00S02293.iedit +++| GT B4,B7,FSLX IF ALREADY AT END OF LINE
02390 M00S02294.iedit +++| FSL1 SA5 CLIN+B4 GET CHARACTER FROM LINE
02391 M00S02295.iedit +++| SA1 SBUF+B2 GET CHARACTER FROM *SBUF*
02392 M00S02296.iedit +++| BX5 X5-X1
02393 M00S02297.iedit +++| SB4 B4+B1 INCREMENT OFFSET OF *CLIN*
02394 M00S02298.iedit +++| ZR X5,FSL2 IF CHARACTERS MATCH
02395 M00S02299.iedit +++| SB4 X7+B1
02396 M00S02300.iedit +++| SB2 B0+ RESET COUNT OF CHARACTERS FOUND
02397 M00S02301.iedit +++| SX7 B4
02398 M00S02302.iedit +++| LE B4,B7,FSL1 IF NOT AT END OF LINE
02399 M00S02303.iedit +++| EQ FSLX RETURN
02400 M00S02304.iedit +++|
02401 M00S02305.iedit +++| FSL2 SB2 B2+B1 INCREMENT COUNT OF CHARACTERS FOUND
02402 M00S02306.iedit +++| NE B2,B3,FSL1 IF MORE CHARACTERS TO MATCH
02403 M00S02307.iedit +++| SX4 B4-B3
02404 M00S02308.iedit +++| EQ FSLX RETURN - MATCH SUCCESSFUL
02405 M00S02309.iedit +++| ICE SPACE 4,10
02406 M00S02310.iedit +++|** ICE - INDEXED CODE EXECUTION.
02407 M00S02311.iedit +++|*
02408 M00S02312.iedit +++|* ENTRY (B7) = SUBROUTINE ADDRESS.
02409 M00S02313.iedit +++|*
02410 M00S02314.iedit +++|* EXIT TO SUBROUTINE WITH RETURN ADDRESS SET.
02411 M00S02315.iedit +++|*
02412 M00S02316.iedit +++|* USES X - 2, 7.
02413 M00S02317.iedit +++|* A - 2, 7.
02414 M00S02318.iedit +++|
02415 M00S02319.iedit +++|
02416 M00S02320.iedit +++| ICE SUBR ENTRY/ EXIT
02417 M00S02321.iedit +++| SA2 ICEX SET RETURN ADDRESS
02418 M00S02322.iedit +++| BX7 X2
02419 M00S02323.iedit +++| SA7 B7
02420 M00S02324.iedit +++| JP B7+1 JUMP TO SUBROUTINE
02421 M00S02325.iedit +++| MLT SPACE 4,20
02422 M00S02326.iedit +++|** MLT - MANAGE LINE NUMBER TABLE.
02423 M00S02327.iedit +++|*
02424 M00S02328.iedit +++|* ENTRY (FLAGS) = FLAGS FOR *LNT* ENTRY.
02425 M00S02329.iedit +++|* (OBLN) = OLD BINARY LINE NUMBER.
02426 M00S02330.iedit +++|* (NBLN) = NEW BINARY LINE NUMBER.
02427 M00S02331.iedit +++|*
02428 M00S02332.iedit +++|* EXIT AN ENTRY IS MADE TO THE LINE NUMBER TABLE.
02429 M00S02333.iedit +++|* IF *LNT* BUFFER IS FULL, THE *LNT* IS FLUSHED TO
02430 M00S02334.iedit +++|* *ZZZZZG2* AND *NMLS* IS RESET TO ZERO BEFORE ADDING
02431 M00S02335.iedit +++|* THE NEW ENTRY.
02432 M00S02336.iedit +++|*
02433 M00S02337.iedit +++|* USES X - 1, 2, 3, 5, 7.
02434 M00S02338.iedit +++|* A - 1, 2, 3, 5, 7.
02435 M00S02339.iedit +++|* B - 2.
02436 M00S02340.iedit +++|*
02437 M00S02341.iedit +++|* CALLS ABS, SFI.
02438 M00S02342.iedit +++|*
02439 M00S02343.iedit +++|* MACROS WRITEW.
02440 M00S02344.iedit +++|
02441 M00S02345.iedit +++|
02442 M00S02346.iedit +++| MLT SUBR ENTRY/EXIT
02443 M00S02347.iedit +++| SA1 NMLS
02444 M00S02348.iedit +++| SA3 L.LNTBUF
02445 M00S02349.iedit +++| SX1 X1+B1
02446 M00S02350.iedit +++| IX3 X3-X1
02447 M00S02351.iedit +++| PL X3,MLT2 IF BUFFER NOT FULL
02448 M00S02352.iedit +++| SA1 LNTBUF
02449 M00S02353.iedit +++| SX2 LNTINC
02450 M00S02354.iedit +++| RJ ABS TRY TO ALLOCATE MORE SPACE
02451 M00S02355.iedit +++| NZ X6,MLT1 IF NOT ENOUGH SPACE LEFT
02452 M00S02356.iedit +++| RJ SFI UPDATE FET POINTERS FOR ALLOCATED BUFFER
02453 M00S02357.iedit +++| EQ MLT2 PROCESS *LNT*
02454 M00S02358.iedit +++|
02455 M00S02359.iedit +++| MLT1 SX7 B1+
02456 M00S02360.iedit +++| SA7 LTFILE
02457 M00S02361.iedit +++| SX2 LNT1
02458 M00S02362.iedit +++| SA1 F.LNTBUF
02459 M00S02363.iedit +++| SA3 NMLS
02460 M00S02364.iedit +++| WRITEW X2,X1,X3 WRITE *LNT* OUT TO FILE
02461 M00S02365.iedit +++| SX7 B0+
02462 M00S02366.iedit +++| SA7 NMLS
02463 M00S02367.iedit +++| MLT2 SA3 NBLN NEW BINARY LINE NUMBER
02464 M00S02368.iedit +++| SB2 59-17 ALIGN NEW LINE NUMBER
02465 M00S02369.iedit +++| SA1 NMLS NUMBER OF LINES SELECTED
02466 M00S02370.iedit +++| SA2 OBLN
02467 M00S02371.iedit +++| LX7 X3,B2
02468 M00S02372.iedit +++| LX2 41-17 ALIGN OLD LINE NUMBER
02469 M00S02373.iedit +++| BX7 X7+X2
02470 M00S02374.iedit +++| SA5 FLAGS
02471 M00S02375.iedit +++| BX7 X5+X7
02472 M00S02376.iedit +++| SA5 F.LNTBUF
02473 M00S02377.iedit +++| IX5 X5+X1
02474 M00S02378.iedit +++| SA7 X5+
02475 M00S02379.iedit +++| SX7 X1+1 UPDATE NUMBER OF LINES SELECTED
02476 M00S02380.iedit +++| SA7 NMLS
02477 M00S02381.iedit +++| EQ MLTX RETURN
02478 M00S02382.iedit +++| PLO SPACE 4,25
02479 M00S02383.iedit +++|** PLO - PROCESS LINE OVERLAP.
02480 M00S02384.iedit +++|*
02481 M00S02385.iedit +++|* ENTRY SEE EXIT CONDITIONS FOR *RLN*.
02482 M00S02386.iedit +++|*
02483 M00S02387.iedit +++|* EXIT (LBFILE) = 0, ALL SELECTED AND OVERLAPPED LINES ARE
02484 M00S02388.iedit +++|* RESEQUENCED AND IN *EFBUF*.
02485 M00S02389.iedit +++|* 1, ALL SELECTED AND OVERLAPPED LINES ARE
02486 M00S02390.iedit +++|* RESEQUENCED AND WRITTEN TO *ZZZZZG1*.
02487 M00S02391.iedit +++|* (LTFILE) = 0, ALL *LNT* ENTRIES ARE IN *LNTBUF*, IF
02488 M00S02392.iedit +++|* ANY EXIST.
02489 M00S02393.iedit +++|* 1, ALL *LNT* ENTRIES ARE WRITTEN TO FILE
02490 M00S02394.iedit +++|* *ZZZZZG2*.
02491 M00S02395.iedit +++|* (SCRFIL) = 0, NO LINES HAVE BEEN DELETED FROM THEIR
02492 M00S02396.iedit +++|* ORIGINAL POSITIONS.
02493 M00S02397.iedit +++|* 1, THE LINE NUMBERS OF LINES TO BE DELETED
02494 M00S02398.iedit +++|* FROM THEIR ORIGINAL POSITIONS ARE
02495 M00S02399.iedit +++|* WRITTEN TO FILE *ZZZZZG6*.
02496 M00S02400.iedit +++|*
02497 M00S02401.iedit +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
02498 M00S02402.iedit +++|* A - 1, 2, 3, 5, 6, 7.
02499 M00S02403.iedit +++|* B - 2, 3, 4, 5, 6.
02500 M00S02404.iedit +++|*
02501 M00S02405.iedit +++|* CALLS CDD, CLN, MLB, RLN, SLN, SNM, USB.
02502 M00S02406.iedit +++|*
02503 M00S02407.iedit +++|* MACROS READ, READC, READEI, READO, REWIND, SKIPEI, WRITEC,
02504 M00S02408.iedit +++|* WRITER, WRITEW.
02505 M00S02409.iedit +++|
02506 M00S02410.iedit +++|
02507 M00S02411.iedit +++| PLO SUBR ENTRY/EXIT
02508 M00S02412.iedit +++| SA3 INCR
02509 M00S02413.iedit +++| SA2 NBLN
02510 M00S02414.iedit +++| SA1 FNAI
02511 M00S02415.iedit +++| BX6 X2
02512 M00S02416.iedit +++| IX2 X2-X1
02513 M00S02417.iedit +++| SA6 PLOA SET BOUNDARY FOR OVERLAP CHECKING
02514 M00S02418.iedit +++| NG X2,PLO16 IF NO LINE OVERLAP
02515 M00S02419.iedit +++| RJ CDD
02516 M00S02420.iedit +++| MX2 B2
02517 M00S02421.iedit +++| BX1 X2*X4
02518 M00S02422.iedit +++| SB2 1RQ
02519 M00S02423.iedit +++| SB5 PLOD
02520 M00S02424.iedit +++| RJ SNM SET NAME IN MESSAGE
02521 M00S02425.iedit +++|
02522 M00S02426.iedit +++|* QUERY USER WITH REGARD TO STOPPING.
02523 M00S02427.iedit +++|
02524 M00S02428.iedit +++| WRITEC O,PLOD
02525 M00S02429.iedit +++| PLO1 WRITEC O,PLOE
02526 M00S02430.iedit +++| READ I READ IN REPLY
02527 M00S02431.iedit +++| READC I,PCKDBF,MXWL+1 READ REPLY INTO BUFFER
02528 M00S02432.iedit +++| NZ X1,PLO1 IF UNEXPECTED RESPONSE
02529 M00S02433.iedit +++| SA2 CSTI
02530 M00S02434.iedit +++| SB2 PCKDBF
02531 M00S02435.iedit +++| SB6 MXCIL+1
02532 M00S02436.iedit +++| SB3 X2
02533 M00S02437.iedit +++| RJ USB UNPACK REPLY, ONE CHARACTER PER WORD
02534 M00S02438.iedit +++| SB4 B7-B6
02535 M00S02439.iedit +++| SA2 BLNK
02536 M00S02440.iedit +++| PLO2 SA3 B4+CLIN GET NEXT CHARACTER
02537 M00S02441.iedit +++| BX3 X3-X2
02538 M00S02442.iedit +++| NZ X3,PLO3 IF CHARACTER NOT A BLANK
02539 M00S02443.iedit +++| SB4 B4-1
02540 M00S02444.iedit +++| PL B4,PLO2 IF MORE CHARACTERS TO CHECK
02541 M00S02445.iedit +++| PLO3 NZ B4,PLO1 IF MORE THAN ONE CHARACTER
02542 M00S02446.iedit +++| SA5 CLIN
02543 M00S02447.iedit +++| SA1 CSTI GET THE CHARACTER SET
02544 M00S02448.iedit +++| SA2 X1+PLOB+1 CHECK FOR *Y*
02545 M00S02449.iedit +++| SX3 X2
02546 M00S02450.iedit +++| BX3 X3-X5
02547 M00S02451.iedit +++| ZR X3,PLO5 IF UPPER CASE *Y*
02548 M00S02452.iedit +++| AX2 18
02549 M00S02453.iedit +++| BX3 X2-X5
02550 M00S02454.iedit +++| ZR X3,PLO5 IF LOWER CASE *Y*
02551 M00S02455.iedit +++| SA2 X1+PLOC+1 CHECK FOR *N*
02552 M00S02456.iedit +++| SX3 X2
02553 M00S02457.iedit +++| BX3 X3-X5
02554 M00S02458.iedit +++| ZR X3,PLO4 IF UPPER CASE *N*
02555 M00S02459.iedit +++| AX2 18
02556 M00S02460.iedit +++| BX3 X2-X5
02557 M00S02461.iedit +++| NZ X3,PLO1 IF NOT LOWER CASE *N*
02558 M00S02462.iedit +++| PLO4 SX5 ERRCNP *COMMAND NOT PROCESSED DUE TO OVERLAP.*
02559 M00S02463.iedit +++| EQ ERR TERMINATE IEDIT PROCESSING
02560 M00S02464.iedit +++|
02561 M00S02465.iedit +++| PLO5 SX6 B1+
02562 M00S02466.iedit +++| SA6 OVLPFG
02563 M00S02467.iedit +++| WRITER E,R FLUSH *EFBUF* TO *ZZZZZG1*
02564 M00S02468.iedit +++| SX6 B0+
02565 M00S02469.iedit +++| SA6 LBFILE
02566 M00S02470.iedit +++| SX2 L
02567 M00S02471.iedit +++| SA5 TSF+0
02568 M00S02472.iedit +++| RJ SLN PUT *ZZZZZG0* IN LINE BUFFER FET
02569 M00S02473.iedit +++| REWIND X2
02570 M00S02474.iedit +++| SA5 EFN SET EDIT FILE NAME
02571 M00S02475.iedit +++| SX2 E
02572 M00S02476.iedit +++| RJ SLN
02573 M00S02477.iedit +++| REWIND X2,R
02574 M00S02478.iedit +++| READEI X2
02575 M00S02479.iedit +++| PLO6 READC E,PCKDBF,MXWL+1 SET LINE INTO BUFFER
02576 M00S02480.iedit +++| NZ X1,PLO10 IF EOI ENCOUNTERED
02577 M00S02481.iedit +++| BX6 X4
02578 M00S02482.iedit +++| EQ PLO8 CHECK FOR END OF LINE
02579 M00S02483.iedit +++|
02580 M00S02484.iedit +++| PLO7 READO X2
02581 M00S02485.iedit +++| PLO8 MX0 -12
02582 M00S02486.iedit +++| BX6 -X0*X6
02583 M00S02487.iedit +++| NZ X6,PLO7 IF NOT END OF LINE
02584 M00S02488.iedit +++| SA5 PCKDBF
02585 M00S02489.iedit +++| RJ CLN EVALUATE THE LINE NUMBER
02586 M00S02490.iedit +++| SA2 FNAI
02587 M00S02491.iedit +++| IX2 X6-X2
02588 M00S02492.iedit +++| NG X2,PLO6 IF NOT POSITIONED AT OVERLAP POINT
02589 M00S02493.iedit +++| SA1 FNUM
02590 M00S02494.iedit +++| SX1 X1-FNMO
02591 M00S02495.iedit +++| NZ X1,PLO9 IF NOT A *MOVE* FUNCTION
02592 M00S02496.iedit +++| NZ X4,PLO6 IF LINE IS TO BE DELETED
02593 M00S02497.iedit +++| PLO9 SA1 PLOA
02594 M00S02498.iedit +++| IX2 X1-X6
02595 M00S02499.iedit +++| NG X2,PLO10 IF NO MORE OVERLAP
02596 M00S02500.iedit +++| SA2 INCR
02597 M00S02501.iedit +++| IX6 X1+X2
02598 M00S02502.iedit +++| SA6 PLOA UPDATE OVERLAP BOUNDARY
02599 M00S02503.iedit +++| SX2 PCKDBF
02600 M00S02504.iedit +++| SB3 L
02601 M00S02505.iedit +++| RJ MLB INSTALL OVERLAP LINE INTO BUFFER
02602 M00S02506.iedit +++| EQ PLO6 GET NEXT LINE
02603 M00S02507.iedit +++|
02604 M00S02508.iedit +++| PLO10 SKIPEI E
02605 M00S02509.iedit +++| SA1 LBFILE
02606 M00S02510.iedit +++| ZR X1,PLO11 IF LINE BUFFER NOT ON FILE
02607 M00S02511.iedit +++| WRITER L
02608 M00S02512.iedit +++| REWIND X2
02609 M00S02513.iedit +++| PLO11 SX7 B1+
02610 M00S02514.iedit +++| RJ RLN REPLACE OVERLAPPED LINE NUMBERS
02611 M00S02515.iedit +++| SX7 B1+
02612 M00S02516.iedit +++| SA7 LBFILE
02613 M00S02517.iedit +++| PLO12 WRITER E,R WRITE LINES TO *ZZZZZG1*
02614 M00S02518.iedit +++| PLO13 SA1 SCRFIL
02615 M00S02519.iedit +++| ZR X1,PLO14 IF NO LINES DELETED FROM ORIGINAL POSITION
02616 M00S02520.iedit +++| WRITER SCR1,R WRITE DELETED LINES TO *ZZZZZG6*
02617 M00S02521.iedit +++|
02618 M00S02522.iedit +++|* FLUSH TRUNCATED LINES IF NECESSARY
02619 M00S02523.iedit +++|
02620 M00S02524.iedit +++| PLO14 SA3 TRNCFET CHECK FET STATUS
02621 M00S02525.iedit +++| MX2 -18
02622 M00S02526.iedit +++| BX3 -X2*X3
02623 M00S02527.iedit +++| SX2 A3+
02624 M00S02528.iedit +++| SX3 X3-3
02625 M00S02529.iedit +++| ZR X3,PLO15 IF BUFFER NEVER WRITTEN TO DISK
02626 M00S02530.iedit +++| WRITER X2
02627 M00S02531.iedit +++| PLO15 SA1 BOP
02628 M00S02532.iedit +++| ZR X1,PLOX IF NO *LNT* WAS GENERATED
02629 M00S02533.iedit +++| SA1 LTFILE
02630 M00S02534.iedit +++| ZR X1,PLOX IF *LNT* ENTIRELY IN BUFFER
02631 M00S02535.iedit +++| SX2 LNT1
02632 M00S02536.iedit +++| SA1 F.LNTBUF
02633 M00S02537.iedit +++| SA3 NMLS
02634 M00S02538.iedit +++| WRITEW X2,X1,X3 WRITE REMAINDER OF *LNT* TO DISK
02635 M00S02539.iedit +++| WRITER X2,R
02636 M00S02540.iedit +++| EQ PLOX RETURN
02637 M00S02541.iedit +++|
02638 M00S02542.iedit +++| PLO16 SA1 LBFILE
02639 M00S02543.iedit +++| ZR X1,PLO13 IF NO NEED TO WRITE OUT SELECTED LINES
02640 M00S02544.iedit +++| EQ PLO12 WRITE LINES TO *ZZZZZG1*
02641 M00S02545.iedit +++|
02642 M00S02546.iedit +++| PLOA CON 0 LINE WITH WHICH RESEQUENCING BEGINS
02643 M00S02547.iedit +++|
02644 M00S02548.iedit +++| PLOB BSS 0 TABLE OF *YES* RESPONSES
02645 M00S02549.iedit +++| VFD 24/0,18/7631B,18/1RY *ASCII*
02646 M00S02550.iedit +++| VFD 24/0,18/1RY,18/1RY *NORMAL*
02647 M00S02551.iedit +++| VFD 24/0,18/171B,18/131B *ASCII8*
02648 M00S02552.iedit +++|
02649 M00S02553.iedit +++| PLOC BSS 0 TABLE OF *NO* RESPONSES
02650 M00S02554.iedit +++| VFD 24/0,18/7616B,18/1RN *ASCII*
02651 M00S02555.iedit +++| VFD 24/0,18/1RN,18/1RN *NORMAL*
02652 M00S02556.iedit +++| VFD 24/0,18/156B,18/116B *ASCII8
02653 M00S02557.iedit +++|
02654 M00S02558.iedit +++| PLOD BSS 0
02655 M00S02559.iedit +++| DATA C*INSERT LINES OVERLAP EXISTING LINES, AT QQQQQ.*
02656 M00S02560.iedit +++| PLOE DATA C*ENTER Y TO CONTINUE OR N TO STOP*
02657 M00S02561.iedit +++| PWN SPACE 4,20
02658 M00S02562.iedit +++|** PWN - PROCESS *WRITEN*.
02659 M00S02563.iedit +++|*
02660 M00S02564.iedit +++|* *PWN* PACKS THE LINE IN THE STRING BUFFER INTO *PCKDBF*
02661 M00S02565.iedit +++|* AFTER STRIPPING OFF THE LINE NUMBER. IF THE FORTRAN
02662 M00S02566.iedit +++|* OPTION IS NOT SELECTED, A BLANK IS ALSO STRIPPED OFF.
02663 M00S02567.iedit +++|*
02664 M00S02568.iedit +++|* ENTRY CLIN = ADDRESS OF UNPACKED LINE.
02665 M00S02569.iedit +++|* (FOP) = FORTRAN OPTION.
02666 M00S02570.iedit +++|* (X1) = NUMBER OF LINE NUMBER DIGITS.
02667 M00S02571.iedit +++|*
02668 M00S02572.iedit +++|* EXIT PCKDBF CONTAINS SHIFTED, PACKED LINE.
02669 M00S02573.iedit +++|*
02670 M00S02574.iedit +++|* USES X - 1, 2, 3.
02671 M00S02575.iedit +++|* A - 1, 2, 3.
02672 M00S02576.iedit +++|* B - 2, 4.
02673 M00S02577.iedit +++|*
02674 M00S02578.iedit +++|* CALLS PLB.
02675 M00S02579.iedit +++|
02676 M00S02580.iedit +++|
02677 M00S02581.iedit +++| PWN SUBR ENTRY/EXIT
02678 M00S02582.iedit +++| SA3 FOP
02679 M00S02583.iedit +++| NZ X3,PWN1 IF FORTRAN SUBSYSTEM
| Line S00001 Modification History |
M01 (Added by) | iedit1 |
Seq # *Modification Id* Act
----------------------------+
02680 M01S00001.iedit1 +++| SA3 NCOL
02681 M01S00002.iedit1 +++| IX3 X3-X1
02682 M01S00003.iedit1 +++| ZR X3,PWN1 IF LINE CONSISTS OF A LINE NUMBER ONLY
02683 M00S02584.iedit +++| SA3 X1+CLIN
02684 M00S02585.iedit +++| SA2 BLNK
02685 M00S02586.iedit +++| BX2 X2-X3
02686 M00S02587.iedit +++| NZ X2,PWN1 IF NOT BLANK
02687 M00S02588.iedit +++| SX1 X1+B1 INCREMENT STRIPOFF COUNT
02688 M00S02589.iedit +++| PWN1 SA3 NCOL
02689 M00S02590.iedit +++| SA2 X1+CLIN FIRST USABLE CHARACTER
02690 M00S02591.iedit +++| SB2 60 PACK LINE INTO BUFFER
02691 M00S02592.iedit +++| IX3 X3-X1
02692 M00S02593.iedit +++| SB4 X3
02693 M00S02594.iedit +++| SA1 PCKDBF
02694 M00S02595.iedit +++| RJ PLB
02695 M00S02596.iedit +++| EQ PWNX RETURN
02696 M00S02597.iedit +++| RLN SPACE 4,25
02697 M00S02598.iedit +++|** RLN - REPLACE LINE NUMBER.
02698 M00S02599.iedit +++|*
02699 M00S02600.iedit +++|* ENTRY (X7) = 0, IF USER SELECTED LINES TO BE RENUMBERED.
02700 M00S02601.iedit +++|* .NE. 0, IF OVERLAPPED LINES TO BE RENUMBERED.
02701 M00S02602.iedit +++|* (LBFILE) = 0, ALL LINES TO BE RESEQUENCED ARE IN
02702 M00S02603.iedit +++|* *LNBUF*.
02703 M00S02604.iedit +++|* 1, LINES TO BE RESEQUENCED MUST BE READ
02704 M00S02605.iedit +++|* FROM THE FILE POINTED TO BY FET *L*
02705 M00S02606.iedit +++|* (*ZZZZZG0* OR THE *READ* FILE).
02706 M00S02607.iedit +++|* EXIT (LBFILE) = 0, ALL RESEQUENCED LINES ARE IN *EFBUF*.
02707 M00S02608.iedit +++|* 1, AT LEAST SOME OF THE RESEQUENCED LINES
02708 M00S02609.iedit +++|* HAVE BEEN WRITTEN TO FILE *ZZZZZG1*
02709 M00S02610.iedit +++|* USING FET *E*.
02710 M00S02611.iedit +++|* (LTFILE) = 0, ALL *LNT* ENTRIES ARE IN *LNTBUF, IF
02711 M00S02612.iedit +++|* ANY EXIST.
02712 M00S02613.iedit +++|* 1, AT LEAST SOME OF THE *LNT* ENTRIES HAVE
02713 M00S02614.iedit +++|* BEEN WRITTEN TO FILE *ZZZZZG2* USING
02714 M00S02615.iedit +++|* FET *LNT1*.
02715 M00S02616.iedit +++|* (SCRFIL) = 0, NO LINES HAVE BEEN DELETED FROM THEIR
02716 M00S02617.iedit +++|* ORIGINAL POSITIONS.
02717 M00S02618.iedit +++|* 1, THE LINE NUMBERS OF LINES TO BE DELETED
02718 M00S02619.iedit +++|* FROM THEIR ORIGINAL POSITIONS HAVE BEEN
02719 M00S02620.iedit +++|* WRITTEN INTO *SCRBB* USING FET *SCR1*.
02720 M00S02621.iedit +++|* SOME OF THE ENTRIES MAY HAVE BEEN
02721 M00S02622.iedit +++|* FLUSHED TO FILE *ZZZZZG6*.
02722 M00S02623.iedit +++|*
02723 M00S02624.iedit +++|* USES X - ALL.
02724 M00S02625.iedit +++|* A - 1, 2, 3, 4, 5, 6, 7.
02725 M00S02626.iedit +++|* B - 2, 3, 4, 5, 6.
02726 M00S02627.iedit +++|*
02727 M00S02628.iedit +++|* CALLS ABL, CNL, MLB, MLT, SBE, SLN, USB, VPL, WTL.
02728 M00S02629.iedit +++|*
02729 M00S02630.iedit +++|* MACROS MOVE, READC, READEI, READO, WRITEO.
02730 M00S02631.iedit +++|
02731 M00S02632.iedit +++|
02732 M00S02633.iedit +++| RLN SUBR ENTRY/EXIT
02733 M00S02634.iedit +++| SA7 RLNA
02734 M00S02635.iedit +++| SX6 B0+
02735 M00S02636.iedit +++| SA6 RLNB INITIALIZE NUMBER OF CHAR TO MOVE
02736 M00S02637.iedit +++| SA5 TSF+1
02737 M00S02638.iedit +++| SX2 E
02738 M00S02639.iedit +++| RJ SLN
02739 M00S02640.iedit +++| SX5 B0+
02740 M00S02641.iedit +++| RJ SBE SET *EFBUF* TO EMPTY
02741 M00S02642.iedit +++| SA3 LBFILE
02742 M00S02643.iedit +++| NZ X3,RLN1 IF LINE BUFFER ON FILE
02743 M00S02644.iedit +++| SA5 L SET EOI STATUS INTO FET
02744 M00S02645.iedit +++| SX6 741031B
02745 M00S02646.iedit +++| MX4 42
02746 M00S02647.iedit +++| BX6 -X4*X6
02747 M00S02648.iedit +++| BX5 X4*X5
02748 M00S02649.iedit +++| BX6 X5+X6
02749 M00S02650.iedit +++| SA6 A5+
02750 M00S02651.iedit +++| EQ RLN2 DO NOT READ FILE
02751 M00S02652.iedit +++|
02752 M00S02653.iedit +++| RLN1 READEI L
02753 M00S02654.iedit +++| SX6 B0+
02754 M00S02655.iedit +++| SA6 LBFILE RESET *LBFILE* TO ZERO
02755 M00S02656.iedit +++| RLN2 SX2 L
02756 M00S02657.iedit +++| SX6 B0+
02757 M00S02658.iedit +++| SA6 FLAGS
02758 M00S02659.iedit +++| SA6 TRNC
02759 M00S02660.iedit +++| READC X2,PCKDBF,MXWL+1
02760 M00S02661.iedit +++| NZ X1,RLN21 IF EOI ENCOUNTERED
02761 M00S02662.iedit +++| BX6 X4
02762 M00S02663.iedit +++| RLN3 MX0 -12
02763 M00S02664.iedit +++| BX6 -X0*X6
02764 M00S02665.iedit +++| ZR X6,RLN4 IF EOL ENCOUNTERED
02765 M00S02666.iedit +++| READO X2
02766 M00S02667.iedit +++| EQ RLN3 CHECK FOR END OF LINE
02767 M00S02668.iedit +++|
02768 M00S02669.iedit +++|* GET THE LINE NUMBER.
02769 M00S02670.iedit +++|
02770 M00S02671.iedit +++| RLN4 SA5 PCKDBF
02771 M00S02672.iedit +++| RJ VPL EVALUATE THE PACKED LINE NUMBER
02772 M00S02673.iedit +++| SA6 OBLN
02773 M00S02674.iedit +++| SA7 RLNC
02774 M00S02675.iedit +++| ZR X3,RLN2 IF A DELETED LINE FOUND ON THE *READ* FILE
02775 M00S02676.iedit +++|
02776 M00S02677.iedit +++|* IF THE FIRST LINE IN THE FILE, THEN CHECK FOR A
02777 M00S02678.iedit +++|* LINE NUMBER.
02778 M00S02679.iedit +++|
02779 M00S02680.iedit +++| SA2 RLNB
02780 M00S02681.iedit +++| NZ X2,RLN7 IF NOT THE FIRST LINE IN THE FILE
02781 M00S02682.iedit +++| SA3 RLNA
02782 M00S02683.iedit +++| ZR X3,RLN5 IF NOT OVERLAPPED LINES
02783 M00S02684.iedit +++| SA6 OLLE STORE LOWER BOUNDARY FOR OVERLAPPED LINES
02784 M00S02685.iedit +++| RLN5 BX3 X7
02785 M00S02686.iedit +++| MX7 1
02786 M00S02687.iedit +++| NZ X3,RLN6 IF LINE NUMBER PRESENT
02787 M00S02688.iedit +++| SX6 B1+ SET UNNUMBERED *READ* FILE FLAG
02788 M00S02689.iedit +++| SA6 UNRF
02789 M00S02690.iedit +++| SX7 NUMD
02790 M00S02691.iedit +++| SA2 FOP
02791 M00S02692.iedit +++| SX7 X7+CLIN
02792 M00S02693.iedit +++| NZ X2,RLN6 IF FORTRAN SUBSYSTEM
02793 M00S02694.iedit +++| SX7 X7+1
02794 M00S02695.iedit +++| RLN6 SA7 RLNB
02795 M00S02696.iedit +++|
02796 M00S02697.iedit +++|* UNPACK THE LINE AND SET THE TRUNCATE BIT IF NECESSARY.
02797 M00S02698.iedit +++|
02798 M00S02699.iedit +++| RLN7 SB2 PCKDBF
02799 M00S02700.iedit +++| SA2 CSTI
02800 M00S02701.iedit +++| SB6 MXCIL+1
02801 M00S02702.iedit +++| SB3 X2+
02802 M00S02703.iedit +++| RJ USB UNPACK LINE INTO STRING BUFFER
02803 M00S02704.iedit +++| SB4 B7-B6
02804 M00S02705.iedit +++| SB4 B4+B1
02805 M00S02706.iedit +++|
02806 M00S02707.iedit +++|* FIND THE LAST NON-BLANK CHARACTER.
02807 M00S02708.iedit +++|
02808 M00S02709.iedit +++| SB2 MXCIL
02809 M00S02710.iedit +++| SA4 BLNK
02810 M00S02711.iedit +++| GE B2,B4,RLN8 IF LINE NOT TOO LONG
02811 M00S02712.iedit +++| SB4 MXCIL
02812 M00S02713.iedit +++| SX7 B1
02813 M00S02714.iedit +++| SA7 TRNC FLAG LINE AS TRUNCATED
02814 M00S02715.iedit +++| EQ RLN9 SET NUMBER OF CHARACTERS IN LINE
02815 M00S02716.iedit +++|
02816 M00S02717.iedit +++| RLN8 SA3 B4+CLIN-1
02817 M00S02718.iedit +++| BX3 X3-X4
02818 M00S02719.iedit +++| NZ X3,RLN9 IF CHARACTER NOT A BLANK
02819 M00S02720.iedit +++| SB4 B4-1
02820 M00S02721.iedit +++| EQ RLN8 CHECK THE NEXT CHARACTER
02821 M00S02722.iedit +++|
02822 M00S02723.iedit +++| RLN9 SX7 B4+
02823 M00S02724.iedit +++| SA7 NCOL
02824 M00S02725.iedit +++|
02825 M00S02726.iedit +++|* IF FUNCTION IS A *MOVE* COMMAND OR THE LINE IS AN OVERLAP
02826 M00S02727.iedit +++|* LINE, THEN INSTALL THE DELETED LINE NUMBER IN (SCR1).
02827 M00S02728.iedit +++|
02828 M00S02729.iedit +++| SA3 RLNA
02829 M00S02730.iedit +++| SA1 FNUM
02830 M00S02731.iedit +++| SX2 X1-FNMO
02831 M00S02732.iedit +++| NZ X3,RLN10 IF AN OVERLAPPED LINE
02832 M00S02733.iedit +++| NZ X2,RLN11 IF NOT A *MOVE* COMMAND
02833 M00S02734.iedit +++| RLN10 SA1 PCKDBF
02834 M00S02735.iedit +++| SA2 RLNC
02835 M00S02736.iedit +++| SX6 6 CALCULATE MASK SIZE
02836 M00S02737.iedit +++| IX2 X2*X6
02837 M00S02738.iedit +++| SB4 X2
02838 M00S02739.iedit +++| MX2 B4 FORM MASK INTO (X2)
02839 M00S02740.iedit +++| BX6 X2*X1
02840 M00S02741.iedit +++| WRITEO SCR1 WRITE LINE NUMBER TO SCRATCH FILE
02841 M00S02742.iedit +++| SX6 B1+
02842 M00S02743.iedit +++| SA6 SCRFIL
02843 M00S02744.iedit +++|
02844 M00S02745.iedit +++|* GET NEW LINE NUMBER FOR LINE AND CHECK IF NEW LINE
02845 M00S02746.iedit +++|* NUMBER VALUE WOULD BE TOO LARGE.
02846 M00S02747.iedit +++|
02847 M00S02748.iedit +++| RLN11 SA1 LSRA SET VALUE (BINARY) OF NEW LINE NUMBER
02848 M00S02749.iedit +++| SA2 INCR
02849 M00S02750.iedit +++| IX7 X1+X2 INCREMENT FOR NEXT LINE NUMBER
02850 M00S02751.iedit +++| SX4 MXLN+1
02851 M00S02752.iedit +++| SA7 A1
02852 M00S02753.iedit +++| IX7 X1-X4 COMPARE WITH LARGEST POSSIBLE NUMBER
| Line S02754 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
02853 M01S02754.iedit2 ---| SX5 ERRNTL
| Line S00079 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
02854 M01S00079.iedit2 +++| SX5 ERRNTL *LINE NUMBER LIMIT EXCEEDED.*
02855 M00S02755.iedit +++| PL X7,ERR IF NUMBER TOO LARGE, ISSUE ERROR MESSAGE
02856 M00S02756.iedit +++| SX7 X1+
02857 M00S02757.iedit +++| SA7 NBLN
02858 M00S02758.iedit +++|
02859 M00S02759.iedit +++|* CONVERT NEW LINE NUMBER TO DISPLAY CODE.
02860 M00S02760.iedit +++|
02861 M00S02761.iedit +++| RJ CNL CONVERT AND NORMALIZE LINE NUMBER
02862 M00S02762.iedit +++| SA6 RLND SAVE LINE NUMBER
02863 M00S02763.iedit +++|
02864 M00S02764.iedit +++|* MOVE LINE OVER IF NECESSARY.
02865 M00S02765.iedit +++|
02866 M00S02766.iedit +++| SX2 CLIN
02867 M00S02767.iedit +++| SA3 RLNB
02868 M00S02768.iedit +++| PL X3,RLN12 IF NO LINE NUMBERS ON LINES
02869 M00S02769.iedit +++| SA1 NCOL
02870 M00S02770.iedit +++| SA2 RLNC NUMBER OF CHARACTERS IN OLD LINE NUMBER
| Line S02771 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
02871 M01S02771.iedit2 ---| SX5 ERRNLN
| Line S00080 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
02872 M01S00080.iedit2 +++| SX5 ERRNLN *NO LINE NUMBER ON LINE.*
02873 M00S02772.iedit +++| ZR X2,ERR IF NO LINE NUMBER PRESENT
02874 M00S02773.iedit +++| SX3 NUMD+CLIN
02875 M00S02774.iedit +++| SX2 X2+CLIN
02876 M00S02775.iedit +++| RLN12 IX1 X3-X2
02877 M00S02776.iedit +++| ZR X1,RLN14 IF LINE NUMBERS ARE THE SAME LENGTH
02878 M00S02777.iedit +++| SA4 NCOL
02879 M00S02778.iedit +++| SB3 MXCIL+1
02880 M00S02779.iedit +++| IX7 X4+X1
02881 M00S02780.iedit +++| SB2 X7
02882 M00S02781.iedit +++| GT B3,B2,RLN13 IF LINE WILL NOT BE TRUNCATED
02883 M00S02782.iedit +++| SX6 B1+
02884 M00S02783.iedit +++| SA6 TRNC
02885 M00S02784.iedit +++| SX7 MXCIL
02886 M00S02785.iedit +++| RLN13 SA7 NCOL UPDATE LENGTH OF MOVED LINE
02887 M00S02786.iedit +++| SX7 X7+CLIN COMPUTE STRING LENGTH TO MOVE
02888 M00S02787.iedit +++| IX1 X7-X3
02889 M00S02788.iedit +++| ZR X1,RLN14 IF NO CHARACTERS TO MOVE
02890 M00S02789.iedit +++| MOVE X1,X2,X3 MOVE LINE OVER
02891 M00S02790.iedit +++|
02892 M00S02791.iedit +++|* REPLACE LINE NUMBER ON LINE WITH NEW NUMBER.
02893 M00S02792.iedit +++|
02894 M00S02793.iedit +++| RLN14 SA1 RLND
02895 M00S02794.iedit +++| SA2 CSTI
02896 M00S02795.iedit +++| MX0 -NBIC
02897 M00S02796.iedit +++| SB4 B0
02898 M00S02797.iedit +++| SB5 30
02899 M00S02798.iedit +++| SB2 X2+
02900 M00S02799.iedit +++| SB3 B0+
02901 M00S02800.iedit +++| RLN15 SB4 B4+6
02902 M00S02801.iedit +++| LX6 X1,B4
02903 M00S02802.iedit +++| BX6 -X0*X6
02904 M00S02803.iedit +++| LE B2,RLN16 IF NOT *ASCII8* CHARACTER SET
02905 M00S02804.iedit +++| SX6 X6+25B CONVERT CHARACTER TO *ASCII8*
02906 M00S02805.iedit +++| RLN16 SA6 CLIN+B3
02907 M00S02806.iedit +++| SB3 B3+1
02908 M00S02807.iedit +++| NE B4,B5,RLN15 IF NOT THROUGH INSERTING LINE NUMBER
02909 M00S02808.iedit +++| SA4 BLNK
02910 M00S02809.iedit +++| SA2 FOP
02911 M00S02810.iedit +++| SA1 RLNB
02912 M00S02811.iedit +++| NZ X2,RLN17 IF BLANK NOT TO FOLLOW LINE NUMBER
02913 M00S02812.iedit +++| NG X1,RLN17 IF REPLACING EXISTING LINE NUMBER
02914 M00S02813.iedit +++| SX7 X4+
02915 M00S02814.iedit +++| SA7 B3+CLIN
02916 M00S02815.iedit +++|
02917 M00S02816.iedit +++|* ADD PROPER NUMBER OF TRAILING BLANKS TO LINE AND
02918 M00S02817.iedit +++|* INSTALL LINE WITH NEW LINE NUMBER INTO *EFBUF*.
02919 M00S02818.iedit +++|
02920 M00S02819.iedit +++| RLN17 SX2 NUMD
02921 M00S02820.iedit +++| RJ ABL
02922 M00S02821.iedit +++| SB3 E
02923 M00S02822.iedit +++| MX2 1 LINE IS IN CHARACTER BUFFER
02924 M00S02823.iedit +++| RJ MLB PUT LINE INTO *EFBUF*
02925 M00S02824.iedit +++| SA2 TRNC
02926 M00S02825.iedit +++| ZR X2,RLN18 IF LINE WAS NOT TRUNCATED
02927 M00S02826.iedit +++| SA1 NBLN
02928 M00S02827.iedit +++| RJ WTL WRITE TRUNCATED LINE NUMBER
02929 M00S02828.iedit +++| RLN18 SA2 RLNA
02930 M00S02829.iedit +++| ZR X2,RLN20 IF NOT AN OVERLAP LINE
02931 M00S02830.iedit +++| SA2 FLAGS
02932 M00S02831.iedit +++| SX1 B1+
02933 M00S02832.iedit +++| LX1 FOVL-0
02934 M00S02833.iedit +++| BX6 X1+X2
02935 M00S02834.iedit +++| SA6 A2+ SET OVERLAP BIT
02936 M00S02835.iedit +++| RLN19 SA2 BOP
02937 M00S02836.iedit +++| ZR X2,RLN2 IF *LNT* NOT NEEDED
02938 M00S02837.iedit +++| RJ MLT BUILD *LNT* ENTRY
02939 M00S02838.iedit +++| EQ RLN2 PROCESS NEXT LINE
02940 M00S02839.iedit +++|
02941 M00S02840.iedit +++| RLN20 SA1 NNOL
02942 M00S02841.iedit +++| SX6 X1+B1
02943 M00S02842.iedit +++| SA6 A1 INCREMENT NUMBER OF NON-OVERLAPPED LINES
02944 M00S02843.iedit +++| SA1 FNUM
02945 M00S02844.iedit +++| SX1 X1-FNRE
02946 M00S02845.iedit +++| NZ X1,RLN19 IF NOT A *READ* FUNCTION
02947 M00S02846.iedit +++| SA1 RLNB
02948 M00S02847.iedit +++| NG X1,RLN19 IF *READ* FILE HAD LINE NUMBERS
02949 M00S02848.iedit +++| EQ RLN2 PROCESS NEXT LINE
02950 M00S02849.iedit +++|
02951 M00S02850.iedit +++| RLN21 SA1 RLNA
02952 M00S02851.iedit +++| ZR X1,RLNX IF NOT PROCESSING OVERLAPPED LINES
02953 M00S02852.iedit +++| SA1 OBLN
02954 M00S02853.iedit +++| SA2 OLLE
02955 M00S02854.iedit +++| LX1 18
02956 M00S02855.iedit +++| MX3 1
02957 M00S02856.iedit +++| BX6 X1+X2 ADD UPPER BOUNDARY FOR OVERLAPPED LINES
02958 M00S02857.iedit +++| BX6 X3+X6 SET END OF LINE RANGE TABLE
02959 M00S02858.iedit +++| SA6 A2
02960 M00S02859.iedit +++| EQ RLNX RETURN
02961 M00S02860.iedit +++|
02962 M00S02861.iedit +++| RLNA CON 0 OVERLAP PARAMETER
02963 M00S02862.iedit +++| RLNB CON 0 NUMBER OF CHARACTERS TO MOVE LINES OVER
02964 M00S02863.iedit +++| RLNC CON 0 NUMBER OF CHAR IN ORIGINAL LINE NUMBER
02965 M00S02864.iedit +++| RLND CON 0 NEW LINE NUMBER IN DISPLAY CODE
02966 M00S02865.iedit +++| SLF SPACE 4,25
02967 M00S02866.iedit +++|** SLF - SELECT LINES FROM FILE.
02968 M00S02867.iedit +++|*
02969 M00S02868.iedit +++|* *SLF* SELECTS ALL LINES FROM THE EDIT FILE WHICH
02970 M00S02869.iedit +++|* SATISFY THE USER SPECIFIED CRITERIA.
02971 M00S02870.iedit +++|*
02972 M00S02871.iedit +++|* ENTRY E = FET POINTING TO THE EDIT FILE.
02973 M00S02872.iedit +++|* (LNIA) = LINE NUMBER SPECIFIED BY THE USER AFTER
02974 M00S02873.iedit +++|* WHICH SELECTED LINES ARE TO BE INSERTED.
02975 M00S02874.iedit +++|*
02976 M00S02875.iedit +++|* EXIT (LBFILE) = 0, ALL SELECTED LINES ARE IN *LNBUF*.
02977 M00S02876.iedit +++|* 1, ALL SELECTED LINES HAVE BEEN WRITTEN TO
02978 M00S02877.iedit +++|* FILE *ZZZZZG0* USING FET *L*. THE FILE
02979 M00S02878.iedit +++|* IS LEFT REWOUND.
02980 M00S02879.iedit +++|* (FNAI) = FIRST LINE NUMBER FOLLOWING USER SPECIFIED
02981 M00S02880.iedit +++|* INSERT POINT.
02982 M00S02881.iedit +++|* (LSRA) = LINE NUMBER TO BE ASSIGNED TO THE
02983 M00S02882.iedit +++|* FIRST INSERTED LINE.
02984 M00S02883.iedit +++|*
02985 M00S02884.iedit +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
02986 M00S02885.iedit +++|* A - 1, 2, 3, 5, 6, 7.
02987 M00S02886.iedit +++|* B - 2, 3, 5, 7.
02988 M00S02887.iedit +++|*
02989 M00S02888.iedit +++|* CALLS CLN, MLB, SBE, SSF.
02990 M00S02889.iedit +++|*
02991 M00S02890.iedit +++|* MACROS READEI, READC, READO, REWIND, WRITER.
02992 M00S02891.iedit +++|
02993 M00S02892.iedit +++|
02994 M00S02893.iedit +++| SLF SUBR ENTRY/EXIT
02995 M00S02894.iedit +++| SLF1 READEI E
02996 M00S02895.iedit +++|
02997 M00S02896.iedit +++|* THIS MARKS THE BEGINNING OF THE MAIN LOOP.
02998 M00S02897.iedit +++|* CLEAR ALL FLAGS AND READ A LINE INTO THE WORKING BUFFER.
02999 M00S02898.iedit +++|
03000 M00S02899.iedit +++| SLF2 READC E,PCKDBF,MXWL+1
03001 M00S02900.iedit +++| NZ X1,SLF8 IF EOI ENCOUNTERED
03002 M00S02901.iedit +++| BX6 X4
03003 M00S02902.iedit +++| SLF3 MX0 -12
03004 M00S02903.iedit +++| BX6 -X0*X6
03005 M00S02904.iedit +++| ZR X6,SLF4 IF END OF LINE ENCOUNTERED
03006 M00S02905.iedit +++| READO X2
03007 M00S02906.iedit +++| EQ SLF3 CHECK FOR END OF LINE
03008 M00S02907.iedit +++|
03009 M00S02908.iedit +++|* CRACK THE LINE NUMBER AND STORE ITS VALUE AND LENGTH.
03010 M00S02909.iedit +++|
03011 M00S02910.iedit +++| SLF4 SA5 PCKDBF
03012 M00S02911.iedit +++| RJ CLN
03013 M00S02912.iedit +++| SA2 OBLN
03014 M00S02913.iedit +++| IX2 X2-X6
03015 M00S02914.iedit +++| PL X2,SLF9 IF NUMBER .LT. PREVIOUS LINE NUMBER
03016 M00S02915.iedit +++| ZR X3,SLF9 IF LINE A NUMBER ONLY
03017 M00S02916.iedit +++| SA6 OBLN
03018 M00S02917.iedit +++| SA6 NBLN
03019 M00S02918.iedit +++| SA1 FNUM
03020 M00S02919.iedit +++| SX2 X1-FNMO
03021 M00S02920.iedit +++| NZ X2,SLF5 IF A *READ* OR *DUP* FUNCTION
03022 M00S02921.iedit +++| NZ X4,SLF7 IF LINE SELECTED BY *MOVE* COMMAND
03023 M00S02922.iedit +++|
03024 M00S02923.iedit +++|* IF NECESSARY, UPDATE THE LAST LINE NUMBER IN THE FILE.
03025 M00S02924.iedit +++|
03026 M00S02925.iedit +++| SLF5 SA5 LNIA
03027 M00S02926.iedit +++| SX2 X5-MXLN-1
03028 M00S02927.iedit +++| NG X2,SLF6 IF USER SPECIFIED A LINE NUMBER
03029 M00S02928.iedit +++| SA6 SLFB
03030 M00S02929.iedit +++| EQ SLF7 CHECK IF LINE IS SELECTED
03031 M00S02930.iedit +++|
03032 M00S02931.iedit +++|* IF NECESSARY, UPDATE THE FIRST LINE NUMBER AFTER
03033 M00S02932.iedit +++|* THE INSERT POINT.
03034 M00S02933.iedit +++|
03035 M00S02934.iedit +++| SLF6 SA3 FNAI
03036 M00S02935.iedit +++| SB3 X6+
03037 M00S02936.iedit +++| SB5 X5 GET LINE NUMBER TO INSERT AFTER
03038 M00S02937.iedit +++| SB7 X3 GET FIRST LINE NUMBER AFTER INSERT POINT
03039 M00S02938.iedit +++| GE B5,B3,SLF7 IF CURRENT LINE BEFORE INSERT POINT
03040 M00S02939.iedit +++| LT B7,B3,SLF7 IF CURRENT LINE BEYOND INSERT POINT
03041 M00S02940.iedit +++| SA6 FNAI
03042 M00S02941.iedit +++|
03043 M00S02942.iedit +++|* IF LINE IS SELECTED BASED UPON ITS LINE NUMBER,
03044 M00S02943.iedit +++|* PUT THE LINE IN *LNBUF*.
03045 M00S02944.iedit +++|
03046 M00S02945.iedit +++| SLF7 SA1 FNUM
03047 M00S02946.iedit +++| SX1 X1-FNRE
03048 M00S02947.iedit +++| ZR X1,SLF2 IF *READ*, PROCESS NEXT LINE
03049 M00S02948.iedit +++| ZR X4,SLF2 IF LINE NOT SELECTED
03050 M00S02949.iedit +++| SX7 B1+
03051 M00S02950.iedit +++| SA7 SLFA A LINE WAS FOUND
03052 M00S02951.iedit +++| SX2 PCKDBF
03053 M00S02952.iedit +++| SB3 L
03054 M00S02953.iedit +++| RJ MLB ADD LINE TO LINE BUFFER
03055 M00S02954.iedit +++| EQ SLF2 PROCESS THE NEXT LINE
03056 M00S02955.iedit +++|
03057 M00S02956.iedit +++|* FINISH UP AFTER SCAN OF EDIT FILE IS COMPLETED.
03058 M00S02957.iedit +++|
03059 M00S02958.iedit +++| SLF8 SA1 FNUM
03060 M00S02959.iedit +++| SX1 X1-FNRE
03061 M00S02960.iedit +++| ZR X1,SLF10 IF A *READ* FUNCTION
03062 M00S02961.iedit +++| SA1 SLFA
03063 M00S02962.iedit +++| NZ X1,SLF10 IF AT LEAST ONE LINE SELECTED
| Line S02963 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03064 M01S02963.iedit2 ---| SX5 ERRNLF
| Line S00081 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03065 M01S00081.iedit2 +++| SX5 ERRNLF *NO LINES FOUND.*
03066 M00S02964.iedit +++| EQ ERR NO LINES FOUND
03067 M00S02965.iedit +++|
03068 M00S02966.iedit +++|* SORT EDIT FILE WHEN NECESSARY.
03069 M00S02967.iedit +++|
03070 M00S02968.iedit +++| SLF9 SX2 L
03071 M00S02969.iedit +++| SA5 LBFILE
03072 M00S02970.iedit +++| RJ SBE
03073 M00S02971.iedit +++| SX6 B0+
03074 M00S02972.iedit +++| SA6 LBFILE
03075 M00S02973.iedit +++| SA6 SLFA
03076 M00S02974.iedit +++| SX7 -1
03077 M00S02975.iedit +++| SA7 SLFB
03078 M00S02976.iedit +++| SA7 OBLN
03079 M00S02977.iedit +++| SX6 MXLN+1
03080 M00S02978.iedit +++| SA6 FNAI
03081 M00S02979.iedit +++| SB2 E
03082 M00S02980.iedit +++| RJ SSF SORT THE EDIT FILE
03083 M00S02981.iedit +++| EQ SLF1 BEGIN SELECTION PHASE AGAIN
03084 M00S02982.iedit +++|
03085 M00S02983.iedit +++|* IF NECESSARY, UPDATE THE LINE NUMBER TO INSERT AFTER.
03086 M00S02984.iedit +++|* DETERMINE THE LINE NUMBER TO START RESEQUENCING AT.
03087 M00S02985.iedit +++|
03088 M00S02986.iedit +++| SLF10 SA1 LNIA
03089 M00S02987.iedit +++| SX2 X1-MXLN-1
03090 M00S02988.iedit +++| NZ X2,SLF11 IF INSERT POINT WAS SPECIFIED BY USER
03091 M00S02989.iedit +++| SA1 SLFB
03092 M00S02990.iedit +++| SX7 X1+
03093 M00S02991.iedit +++| SA7 LNIA
03094 M00S02992.iedit +++| SLF11 SA2 INCR
03095 M00S02993.iedit +++| IX7 X1+X2
03096 M00S02994.iedit +++| SA7 LSRA
03097 M00S02995.iedit +++| SA1 LBFILE
03098 M00S02996.iedit +++| ZR X1,SLFX IF LINE BUFFER NOT WRITTEN TO FILE
03099 M00S02997.iedit +++| WRITER L WRITE REST OF *LBUF* OUT TO FILE
03100 M00S02998.iedit +++| REWIND X2
03101 M00S02999.iedit +++| EQ SLFX RETURN
03102 M00S03000.iedit +++|
03103 M00S03001.iedit +++| SLFA CON 0 LINES SELECTED FLAG
03104 M00S03002.iedit +++| SLFB CON -1 LARGEST LINE NUMBER IN THE FILE
03105 M00S03003.iedit +++| SLE SPACE 4,15
03106 M00S03004.iedit +++|** SLE - SORT *LNT* ENTRIES.
03107 M00S03005.iedit +++|*
03108 M00S03006.iedit +++|* ENTRY (X1) = NUMBER OF ENTRIES TO SORT.
03109 M00S03007.iedit +++|* (B7) = FWA OF *LNT*
03110 M00S03008.iedit +++|*
03111 M00S03009.iedit +++|* EXIT *LNT* SORTED.
03112 M00S03010.iedit +++|*
03113 M00S03011.iedit +++|* USES X - 0, 1, 2, 3, 4, 6.
03114 M00S03012.iedit +++|* A - 1, 2, 6.
03115 M00S03013.iedit +++|* B - 5, 6.
03116 M00S03014.iedit +++|
03117 M00S03015.iedit +++|
03118 M00S03016.iedit +++| SLE SUBR ENTRY/EXIT
03119 M00S03017.iedit +++| MX0 18
03120 M00S03018.iedit +++| LX0 -18
03121 M00S03019.iedit +++| SB5 X1+B7 LWA+1
03122 M00S03020.iedit +++| SB6 X1
03123 M00S03021.iedit +++| LE B6,B1,SLEX IF NOT AT LEAST TWO ENTRIES
03124 M00S03022.iedit +++| SA2 B7+ GET FIRST ENTRY
03125 M00S03023.iedit +++| SA1 A2+B1 GET SECOND ENTRY
03126 M00S03024.iedit +++| BX3 X0*X1
03127 M00S03025.iedit +++| SLE1 BX4 X0*X2
03128 M00S03026.iedit +++| IX4 X3-X4
03129 M00S03027.iedit +++| PL X4,SLE2 IF PROPER INSERT POINT FOUND
03130 M00S03028.iedit +++| BX6 X2
03131 M00S03029.iedit +++| SA6 A2+1
03132 M00S03030.iedit +++| SA2 A2-B1
03133 M00S03031.iedit +++| SB6 A2-B7
03134 M00S03032.iedit +++| PL B6,SLE1 IF MORE ENTRIES TO CHECK
03135 M00S03033.iedit +++| SLE2 BX6 X1
03136 M00S03034.iedit +++| SA6 A2+B1 PLACE ENTRY IN ITS PROPER SLOT
03137 M00S03035.iedit +++| SA1 A1+B1
03138 M00S03036.iedit +++| BX3 X0*X1
03139 M00S03037.iedit +++| SA2 A1-B1
03140 M00S03038.iedit +++| SB6 A1-B5
03141 M00S03039.iedit +++| NG B6,SLE1 IF MORE ENTRIES TO SORT
03142 M00S03040.iedit +++| EQ SLEX EXIT
03143 M00S03041.iedit +++| SLT SPACE 4,20
03144 M00S03042.iedit +++|** SLT - SORT LINE NUMBER TABLE.
03145 M00S03043.iedit +++|*
03146 M00S03044.iedit +++|* *SLT* SORTS THE *LNT* INTO ASCENDING ORDER
03147 M00S03045.iedit +++|* BASED UPON THE OLD LINE NUMBER FIELD.
03148 M00S03046.iedit +++|*
03149 M00S03047.iedit +++|* ENTRY (LTFILE) = 0, IF *LNT* IS NOT WRITTEN TO DISK.
03150 M00S03048.iedit +++|* 1, IF *LNT* IS WRITTEN TO DISK.
03151 M00S03049.iedit +++|*
03152 M00S03050.iedit +++|* EXIT *LNT* IS SORTED.
03153 M00S03051.iedit +++|*
03154 M00S03052.iedit +++|* USES X - 1, 2, 5.
03155 M00S03053.iedit +++|* A - 1, 2, 5.
03156 M00S03054.iedit +++|* B - 7.
03157 M00S03055.iedit +++|*
03158 M00S03056.iedit +++|* CALLS SBE, SLE, SLN, SMT.
03159 M00S03057.iedit +++|*
03160 M00S03058.iedit +++|* MACROS READEI, RENAME, REWIND.
03161 M00S03059.iedit +++|
03162 M00S03060.iedit +++|
03163 M00S03061.iedit +++| SLT1 SA5 TSF+2 PUT *ZZZZZG2* INTO FET *L*
03164 M00S03062.iedit +++| SX2 L
03165 M00S03063.iedit +++| RJ SLN
03166 M00S03064.iedit +++| RENAME X2,TSF+4 RENAME *ZZZZZG2* TO *ZZZZZG4*
03167 M00S03065.iedit +++| REWIND X2,R
03168 M00S03066.iedit +++| SLT2 READEI X2 READ A SEGMENT INTO *LNBUF*
03169 M00S03067.iedit +++| SA2 X2+B1
03170 M00S03068.iedit +++| SX2 X2
03171 M00S03069.iedit +++| SA1 A2+B1 GET *IN*
03172 M00S03070.iedit +++| IX1 X1-X2
03173 M00S03071.iedit +++| RJ SMT MERGE SEGMENT WITH NEW *LNT* FILE
03174 M00S03072.iedit +++| SX2 L
03175 M00S03073.iedit +++| SX5 B0+
03176 M00S03074.iedit +++| RJ SBE
03177 M00S03075.iedit +++| SA1 X2
03178 M00S03076.iedit +++| LX1 59-9
03179 M00S03077.iedit +++| PL X1,SLT2 IF MORE ENTRIES TO PROCESS
03180 M00S03078.iedit +++| SA5 TSF+0
03181 M00S03079.iedit +++| RJ SLN RESTORE *ZZZZZG0* INTO FET *L*
03182 M00S03080.iedit +++|
03183 M00S03081.iedit +++| SLT SUBR ENTRY/EXIT
03184 M00S03082.iedit +++| SA1 LTFILE
03185 M00S03083.iedit +++| NZ X1,SLT1 IF *LNT* WRITTEN TO MASS STORAGE
03186 M00S03084.iedit +++| SA2 F.LNTBUF
03187 M00S03085.iedit +++| SA1 NMLS
03188 M00S03086.iedit +++| SB7 X2+
03189 M00S03087.iedit +++| RJ SLE SORT *LNT*
03190 M00S03088.iedit +++| EQ SLTX RETURN
03191 M00S03089.iedit +++| SMT SPACE 4,25
03192 M00S03090.iedit +++|** SMT - SORT AND MERGE LINE NUMBER TABLE.
03193 M00S03091.iedit +++|*
03194 M00S03092.iedit +++|* WHEN THE LINE NUMBER TABLE BECOMES FULL, IT IS
03195 M00S03093.iedit +++|* SORTED AND MERGED WITH THE LINE NUMBER TABLE SCRATCH
03196 M00S03094.iedit +++|* FILE.
03197 M00S03095.iedit +++|*
03198 M00S03096.iedit +++|* ENTRY (X1) = NUMBER OF ENTRIES IN TABLE.
03199 M00S03097.iedit +++|* (X2) = FWA OF TABLE TO BE SORT/MERGED.
03200 M00S03098.iedit +++|* (LTFET) = FET ADDRESS OF SORT/MERGED *LNT* FILE.
03201 M00S03099.iedit +++|* (LT2FET) = FET ADDRESS OF SCRATCH FILE.
03202 M00S03100.iedit +++|*
03203 M00S03101.iedit +++|* EXIT (LTFET) = FET ADDRESS OF SORTED *LNT* FILE.
03204 M00S03102.iedit +++|* (LT2FET) = FET ADDRESS OF SCRATCH FILE.
03205 M00S03103.iedit +++|*
03206 M00S03104.iedit +++|* USES X - ALL.
03207 M00S03105.iedit +++|* A - 1, 2, 4, 5, 6, 7.
03208 M00S03106.iedit +++|* B - 6, 7.
03209 M00S03107.iedit +++|*
03210 M00S03108.iedit +++|* CALLS SLE.
03211 M00S03109.iedit +++|*
03212 M00S03110.iedit +++|* MACROS READEI, READO, REWIND, WRITEO, WRITER.
03213 M00S03111.iedit +++|
03214 M00S03112.iedit +++|
03215 M00S03113.iedit +++| SMT SUBR ENTRY/EXIT
03216 M00S03114.iedit +++| ZR X1,SMTX IF NO ENTRIES IN TABLE
03217 M00S03115.iedit +++| SX6 X2
03218 M00S03116.iedit +++| SX7 X1
03219 M00S03117.iedit +++| SA6 SMTA STORE FWA OF TABLE
03220 M00S03118.iedit +++| SA7 SMTB STORE NUMBER OF TABLE ENTRIES
03221 M00S03119.iedit +++| SA2 LT2FET
03222 M00S03120.iedit +++| REWIND X2,R
03223 M00S03121.iedit +++| SA2 LTFET
03224 M00S03122.iedit +++| REWIND X2,R
03225 M00S03123.iedit +++| READEI X2 PREPARE THE TWO FILES
03226 M00S03124.iedit +++| SA2 SMTA
03227 M00S03125.iedit +++| SA1 SMTB
03228 M00S03126.iedit +++| SB7 X2 FWA OF TABLE
03229 M00S03127.iedit +++| IX6 X1+X2
03230 M00S03128.iedit +++| SA6 SMTB LWA+1 OF TABLE
03231 M00S03129.iedit +++| RJ SLE SORT THE *LNT*
03232 M00S03130.iedit +++| MX0 18
03233 M00S03131.iedit +++| LX0 -18
03234 M00S03132.iedit +++| SA1 SMTA
03235 M00S03133.iedit +++| SA5 X1 GET THE FIRST TABLE ENTRY
03236 M00S03134.iedit +++| SA2 LTFET
03237 M00S03135.iedit +++| READO X2
03238 M00S03136.iedit +++| NZ X1,SMT4 IF NO ENTRIES ON THE FILE
03239 M00S03137.iedit +++| SMT1 BX3 X0*X5
03240 M00S03138.iedit +++| BX4 X0*X6
03241 M00S03139.iedit +++| IX3 X3-X4 COMPARE THE TWO ENTRIES
03242 M00S03140.iedit +++| PL X3,SMT3 IF TABLE ENTRY .GE. THAN FILE ENTRY
03243 M00S03141.iedit +++| BX5 X5-X6
03244 M00S03142.iedit +++| BX6 X5-X6
03245 M00S03143.iedit +++| BX5 X5-X6 REVERSE X5 AND X6
03246 M00S03144.iedit +++| SA2 LT2FET
03247 M00S03145.iedit +++| WRITEO X2 WRITE TABLE ENTRY TO NEW FILE
03248 M00S03146.iedit +++| BX6 X5
03249 M00S03147.iedit +++| SA5 A5+B1 GET NEXT TABLE ENTRY
03250 M00S03148.iedit +++| SA4 SMTB
03251 M00S03149.iedit +++| SB6 A5
03252 M00S03150.iedit +++| SB7 X4
03253 M00S03151.iedit +++| GT B7,B6,SMT1 IF A VALID TABLE ENTRY
03254 M00S03152.iedit +++| SMT2 SA2 LT2FET EMPTY *LNT* FILE TO NEW FILE
03255 M00S03153.iedit +++| WRITEO X2
03256 M00S03154.iedit +++| SA2 LTFET
03257 M00S03155.iedit +++| READO X2
03258 M00S03156.iedit +++| ZR X1,SMT2 IF ENTRIES REMAINING ON FILE
03259 M00S03157.iedit +++| EQ SMT5 FINISH THE SORT
03260 M00S03158.iedit +++|
03261 M00S03159.iedit +++| SMT3 SA2 LT2FET WRITE FILE ENTRY TO NEW FILE
03262 M00S03160.iedit +++| WRITEO X2
03263 M00S03161.iedit +++| SA2 LTFET
03264 M00S03162.iedit +++| READO X2
03265 M00S03163.iedit +++| ZR X1,SMT1 IF MORE ENTRIES ON FILE
03266 M00S03164.iedit +++| SMT4 BX6 X5 EMPTY THE LINE NUMBER TABLE TO FILE
03267 M00S03165.iedit +++| SA2 LT2FET
03268 M00S03166.iedit +++| WRITEO X2 WRITE TABLE ENTRY TO FILE
03269 M00S03167.iedit +++| SA5 A5+B1
03270 M00S03168.iedit +++| SA4 SMTB
03271 M00S03169.iedit +++| SB6 A5
03272 M00S03170.iedit +++| SB7 X4
03273 M00S03171.iedit +++| GT B7,B6,SMT4 IF ENTRIES REMAINING IN TABLE
03274 M00S03172.iedit +++| SMT5 SA2 LT2FET
03275 M00S03173.iedit +++| WRITER X2 FLUSH BUFFER TO FILE
03276 M00S03174.iedit +++| SA1 LTFET
03277 M00S03175.iedit +++| SA2 LT2FET
03278 M00S03176.iedit +++| BX6 X1
03279 M00S03177.iedit +++| BX7 X2
03280 M00S03178.iedit +++| SA6 A2
03281 M00S03179.iedit +++| SA7 A1 SWITCH (LTFET) AND (LT2FET)
03282 M00S03180.iedit +++| EQ SMTX RETURN
03283 M00S03181.iedit +++|
03284 M00S03182.iedit +++| SMTA CON 0 FWA OF TABLE
03285 M00S03183.iedit +++| SMTB CON 0 LWA OF TABLE
03286 M00S03184.iedit +++| TITLE MEMORY ALLOCATION.
03287 M00S03185.iedit +++| SPACE 4,10
03288 M00S03186.iedit +++| MEM EQU * MANAGED TABLES START ADDRESS
03289 M00S03187.iedit +++| TITLE PRESET.
03290 M00S03188.iedit +++| PRS SPACE 4,55
03291 M00S03189.iedit +++|** PRS - PRESET ARGUMENT PROCESSING.
03292 M00S03190.iedit +++|*
| Line S03191 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03293 M02S03191.iedit2 ---|* *PRS* ANALYZES THE CONTROL STATEMENT AND COMMAND LINE
| Line S00006 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03294 M02S00006.iedit2 ---|* *PRS* ANALYZES THE COMMAND AND COMMAND LINE
| Line S03192 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03295 M01S03192.iedit2 ---|* BUFFER. THE FOLLOWING INFORMATION IS EXTRACTED AND
03296 M01S03193.iedit2 ---|* STORED.
| Line S00082 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03297 M01S00082.iedit2 +++|* *PRS* ANALYZES THE COMMAND AND COMMAND LINE BUFFER. THE
03298 M01S00083.iedit2 +++|* FOLLOWING INFORMATION IS EXTRACTED AND STORED.
03299 M00S03194.iedit +++|* 1. FILE NAME IN EFN (FOR EDIT FILE NAME)
03300 M00S03195.iedit +++|* 2. FLAGS DENOTING OPTIONS SPECIFIED
03301 M00S03196.iedit +++|* 3. CHARACTER SET TYPE SPECIFIED
03302 M00S03197.iedit +++|* 4. INFORMATION EXTRACTED FROM COMMAND LINE BUFFER
03303 M00S03198.iedit +++|*
03304 M00S03199.iedit +++|* CELLS FOR THE SPECIFIED OPTIONS ARE SET OR LEFT ZERO
03305 M00S03200.iedit +++|* DEPENDING ON THEIR PRESENCES OR ABSENCE, RESPECTIVELY
03306 M00S03201.iedit +++|* IN *COPT*. THESE FLAGS ARE SET IN THE FOLLOWING
03307 M00S03202.iedit +++|* LOCATIONS -
03308 M00S03203.iedit +++|* BOP = FOR B OPTION (BASIC SUB-SYSTEM)
03309 M00S03204.iedit +++|* LOP = FOR L OPTION (LIST OPTION)
03310 M00S03205.iedit +++|* FOP = FOR F OPTION (FORTRAN SUB-SYSTEM)
03311 M00S03206.iedit +++|*
| Line S03207 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03312 M02S03207.iedit2 ---|* AFTER THE BREAKING UP AND STORING OF THE CONTROL STATEMENT
| Line S00007 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03313 M02S00007.iedit2 ---|* AFTER THE BREAKING UP AND STORING OF THE COMMAND
| Line S03208 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03314 M01S03208.iedit2 ---|* *FVT* IS EXECUTED TO FIND VERB IN TABLE (I.E. MATCH
03315 M01S03209.iedit2 ---|* THE VERB IN THE COMMAND LINE TO A VERB IN THE
03316 M01S03210.iedit2 ---|* TABLE OF DEFINED VERBS (TDVB))
03317 M01S03211.iedit2 ---|* WHEN A MATCH IS FOUND, *PVA* IS CALLED TO
03318 M01S03212.iedit2 ---|* PROCESS THE VERB ARGUMENTS. THIS ROUTINE
03319 M01S03213.iedit2 ---|* EXECUTES THE ROUTINES ASSOCIATED -VIA TDVB- WITH
03320 M01S03214.iedit2 ---|* THE VERB.
| Line S00084 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03321 M01S00084.iedit2 +++|* AFTER THE BREAKING UP AND STORING OF THE COMMAND, *FVT* IS
03322 M01S00085.iedit2 +++|* EXECUTED TO FIND VERB IN TABLE (I.E. MATCH THE VERB IN THE
03323 M01S00086.iedit2 +++|* COMMAND LINE TO A VERB IN THE TABLE OF DEFINED VERBS (TDVB)).
03324 M01S00087.iedit2 +++|* WHEN A MATCH IS FOUND, *PVA* IS CALLED TO PROCESS THE VERB
03325 M01S00088.iedit2 +++|* ARGUMENTS. THIS ROUTINE EXECUTES THE ROUTINES ASSOCIATED
03326 M01S00089.iedit2 +++|* -VIA TDVB- WITH THE VERB.
03327 M00S03215.iedit +++|*
| Line S03216 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03328 M02S03216.iedit2 ---|* ENTRY CONTROL STATEMENT STARTING IN RA+2 IN NORMAL DISPLAY
| Line S00008 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03329 M02S00008.iedit2 ---|* ENTRY COMMAND STARTING IN RA+2 IN NORMAL DISPLAY
| Line S03217 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03330 M01S03217.iedit2 ---|* CODE, IN STANDARD SYSTEM FORMAT.
| Line S00090 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03331 M01S00090.iedit2 +++|* ENTRY COMMAND STARTING IN RA+2 IN NORMAL DISPLAY CODE, IN
03332 M01S00091.iedit2 +++|* STANDARD SYSTEM FORMAT.
03333 M00S03218.iedit +++|* (CLB=) = FWA OF FET FOR COMMAND TO BE PROCESSED
03334 M00S03219.iedit +++|* BY IEDIT.
03335 M00S03220.iedit +++|* (I) = FWA OF FET FOR INPUT FILE
03336 M00S03221.iedit +++|* (WHICH CONTAINS THE FILE TO EDIT).
03337 M00S03222.iedit +++|*
| Line S03223 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03338 M02S03223.iedit2 ---|* EXIT IEDIT CONTROL STATEMENT ANALYZED, INFORMATION
| Line S00009 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03339 M02S00009.iedit2 ---|* EXIT IEDIT COMMAND ANALYZED, INFORMATION
| Line S03224 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03340 M01S03224.iedit2 ---|* EXTRACTED AND STORED.
| Line S00092 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03341 M01S00092.iedit2 +++|* EXIT *IEDIT* COMMAND ANALYZED, INFORMATION EXTRACTED
03342 M01S00093.iedit2 +++|* AND STORED.
03343 M00S03225.iedit +++|* COMMAND LINE BUFFER INFORMATION EXTRACTED AND
03344 M00S03226.iedit +++|* STORED IN APPROPRIATE CELLS AND TABLES.
03345 M00S03227.iedit +++|* FUNCTION TO BE PERFORMED ESTABLISHED
03346 M00S03228.iedit +++|* (FUNCTION NUMBER RETURNED IN FNUM).
03347 M00S03229.iedit +++|* TO ERR - IF A FATAL ERROR CONDITION IS DETECTED.
03348 M00S03230.iedit +++|*
03349 M00S03231.iedit +++|* USES X - ALL.
03350 M00S03232.iedit +++|* A - 1, 2, 3, 4, 5, 6, 7.
03351 M00S03233.iedit +++|* B - 1, 2, 3, 4, 5, 6, 7.
03352 M00S03234.iedit +++|*
03353 M00S03235.iedit +++|* CALLS ARG, FVT, PVA, SST, USB.
03354 M00S03236.iedit +++|*
03355 M00S03237.iedit +++|* MACROS FILINFO, MEMORY, MESSAGE, READ, REPRIEVE, SETLOF.
03356 M00S03238.iedit +++|
03357 M00S03239.iedit +++|
03358 M00S03240.iedit +++| PRS SUBR ENTRY/EXIT
03359 M00S03241.iedit +++| MX6 1
03360 M00S03242.iedit +++| SA2 O+1 SET *FLUSH* BIT
03361 M00S03243.iedit +++| LX6 36-59
03362 M00S03244.iedit +++| SB1 1
03363 M00S03245.iedit +++| BX6 X6+X2
03364 M00S03246.iedit +++| SA6 A2
03365 M00S03247.iedit +++| SETLOF LOFPRM
03366 M00S03248.iedit +++| SA1 ACTR SET UP FOR CALL TO *ARG*
03367 M00S03249.iedit +++| SA4 ARGR
03368 M00S03250.iedit +++| SB5 PRSA
03369 M00S03251.iedit +++| SB4 X1
03370 M00S03252.iedit +++| RJ ARG PROCESS ARGUMENTS
| Line S03253 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03371 M01S03253.iedit2 ---| SX5 ERRCSE
| Line S00094 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03372 M01S00094.iedit2 +++| SX5 ERRCSE *COMMAND ARGUMENT ERROR.*
03373 M00S03254.iedit +++| NZ X1,ERR IF ARGUMENT ERROR
03374 M00S03255.iedit +++| SA1 COPT PROCESS *OP* LIST
03375 M00S03256.iedit +++| ZR X1,PRS5 IF NO OPTIONS SPECIFIED
| Line S03257 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03376 M01S03257.v23l617 ---| MX0 60-18 CHECK FOR ILLEGAL *OP=*
| Line S00010 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03377 M01S00010.v23l617 +++| MX0 60-18 CHECK FOR INCORRECT *OP=*
03378 M00S03258.iedit +++| BX7 X1*X0 ERROR IF 60-18 ALL ZEROES
| Line S03259 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03379 M01S03259.iedit2 ---| SX5 ERRCSE SET ERROR MESSAGE
| Line S00095 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03380 M01S00095.iedit2 +++| SX5 ERRCSE *COMMAND ARGUMENT ERROR.*
| Line S03260 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03381 M01S03260.v23l617 ---| ZR X7,ERR IF ILLEGAL *OP=* PASSED
| Line S00011 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03382 M01S00011.v23l617 +++| ZR X7,ERR IF INCORRECT *OP=* PASSED
03383 M00S03261.iedit +++|
03384 M00S03262.iedit +++|* PROCESS *OP* PARAMETER CHECKING FOR VALIDITY.
03385 M00S03263.iedit +++|
03386 M00S03264.iedit +++| SX7 B1 SET FOR USE AS FLAG
03387 M00S03265.iedit +++| MX0 6 MASK FOR OPTION
03388 M00S03266.iedit +++| PRS1 BX2 X0*X1
03389 M00S03267.iedit +++| LX2 5-59 RIGHT JUSTIFY OPTION
03390 M00S03268.iedit +++| ZR X2,PRS5 IF DONE CRACKING *OP*
03391 M00S03269.iedit +++| SB5 X2+ SET CURRENT *OP* BEING COMPARED
03392 M00S03270.iedit +++| SB2 1RB
03393 M00S03271.iedit +++| EQ B2,B5,PRS2 IF *B* PARAMETER SET
03394 M00S03272.iedit +++| SB2 1RL
03395 M00S03273.iedit +++| EQ B2,B5,PRS3 IF *L* PARAMETER SET
03396 M00S03274.iedit +++| SB2 1RF
03397 M00S03275.iedit +++| EQ B2,B5,PRS4 IF *F* PARAMETER SET
| Line S03276 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03398 M01S03276.iedit2 ---| SX5 ERRCSE
| Line S00096 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03399 M01S00096.iedit2 +++| SX5 ERRCSE *COMMAND ARGUMENT ERROR.*
| Line S03277 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03400 M01S03277.v23l617 ---| EQ ERR *ILLEGAL *OP* SPECIFIED*
| Line S00012 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03401 M01S00012.v23l617 +++| EQ ERR *INCORRECT *OP* SPECIFIED*
03402 M00S03278.iedit +++|
03403 M00S03279.iedit +++| PRS2 SA7 BOP SET FOR *B* OPTION
03404 M00S03280.iedit +++| LX1 6 LINE UP LIST TO GET NEXT *OP*
03405 M00S03281.iedit +++| EQ PRS1 PROCESS NEXT *OP*
03406 M00S03282.iedit +++|
03407 M00S03283.iedit +++| PRS3 SA7 LOP SET FOR *L* OPTION
03408 M00S03284.iedit +++| SA7 LSTFIL
03409 M00S03285.iedit +++| LX1 6 LINE UP LIST TO GET NEXT *OP*
03410 M00S03286.iedit +++| EQ PRS1 PROCESS NEXT *OP*
03411 M00S03287.iedit +++|
03412 M00S03288.iedit +++| PRS4 SA7 FOP SET *F* OPTION SELECTED
03413 M00S03289.iedit +++| LX1 6
03414 M00S03290.iedit +++| EQ PRS1 PROCESS NEXT *OP*
03415 M00S03291.iedit +++|
03416 M00S03292.iedit +++| PRS SPACE 2,5
03417 M00S03293.iedit +++|
03418 M00S03294.iedit +++|* VALIDATE AND SET CHARACTER SET TYPE
03419 M00S03295.iedit +++|* CSTI = -1 FOR ASCII 6/12
03420 M00S03296.iedit +++|* = 0 FOR NORMAL
03421 M00S03297.iedit +++|* = 1 FOR ASCII8
03422 M00S03298.iedit +++|
03423 M00S03299.iedit +++| PRS5 SA2 CSCS
03424 M00S03300.iedit +++| SX7 6
03425 M00S03301.iedit +++| SA1 PRSC
03426 M00S03302.iedit +++| BX6 X2-X1
03427 M00S03303.iedit +++| SX7 1R
03428 M00S03304.iedit +++| ZR X6,PRS6 IF NORMAL CHARACTER SET
03429 M00S03305.iedit +++| SA1 PRSD
03430 M00S03306.iedit +++| SX6 -B1
03431 M00S03307.iedit +++| BX5 X2-X1
03432 M00S03308.iedit +++| ZR X5,PRS6 IF ASCII 6/12
03433 M00S03309.iedit +++| SX7 40B
03434 M00S03310.iedit +++| SX6 1 CHARACTER SET MUST BE ASCII8
03435 M00S03311.iedit +++| SA1 PRSE
03436 M00S03312.iedit +++| BX5 X2-X1
03437 M00S03313.iedit +++| ZR X5,PRS6 IF ASCII8
| Line S03314 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03438 M01S03314.iedit2 ---| SX5 ERRCSE
| Line S00097 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03439 M01S00097.iedit2 +++| SX5 ERRCSE *COMMAND ARGUMENT ERROR.*
03440 M00S03315.iedit +++| EQ ERR CHARACTER SET ERROR
03441 M00S03316.iedit +++|
03442 M00S03317.iedit +++| PRS6 SA6 CSTI SAVE CHARACTER SET TYPE INDICATOR
03443 M00S03318.iedit +++| SA7 BLNK
03444 M00S03319.iedit +++| REPRIEVE RPB,SET,200B SET *REPRIEVE* PROCESSING
| Line S03320 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03445 M01S03320.v23l617 ---| MESSAGE =0,1,R CLEAR CONTROL STATEMENT FROM *MS1W*
| Line S00013 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03446 M01S00013.v23l617 +++| MESSAGE =0,1,R CLEAR COMMAND FROM *MS1W*
03447 M00S03321.iedit +++| SA1 C+2 *IN* ADDRESS OF BUFFER
03448 M00S03322.iedit +++| SA2 A1+B1 ADDRESS OF FIRST WORD OF BUFFER
03449 M00S03323.iedit +++| IX3 X1-X2
03450 M00S03324.iedit +++| NZ X3,PRS7 IF COMMAND TO PROCESS
03451 M00S03325.iedit +++| SX5 ERRNIV *NON-EXISTANT EDIT VERB SPECIFIED.*
03452 M00S03326.iedit +++| EQ ERR PROCESS ERROR
03453 M00S03327.iedit +++|
03454 M00S03328.iedit +++| PRS7 SA1 CSTI
03455 M00S03329.iedit +++| SB2 X2
03456 M00S03330.iedit +++| SB3 X1
03457 M00S03331.iedit +++| SB6 MXCIL
03458 M00S03332.iedit +++| RJ USB
03459 M00S03333.iedit +++| SA3 USBC
03460 M00S03334.iedit +++| SA3 X3
03461 M00S03335.iedit +++| PRS8 SX3 X3-1R
03462 M00S03336.iedit +++| NZ X3,PRS9 IF NOT BLANK CHARACTER
03463 M00S03337.iedit +++| SA3 A3-B1
03464 M00S03338.iedit +++| EQ PRS8 GET NEXT CHARACTER
03465 M00S03339.iedit +++|
03466 M00S03340.iedit +++| PRS9 SX7 A3
03467 M00S03341.iedit +++| SA7 USBC
03468 M00S03342.iedit +++| SA3 CLIN-1
03469 M00S03343.iedit +++| RJ FVT FIND VERB IN TABLE
03470 M00S03344.iedit +++| RJ PVA PROCESS VERB ARGUMENTS
03471 M00S03345.iedit +++| SA1 NELR
03472 M00S03346.iedit +++| ZR X1,PRS13 IF NO ENTRIES
03473 M00S03347.iedit +++| SB7 LRT
03474 M00S03348.iedit +++| SB6 X1+
03475 M00S03349.iedit +++| RJ SST= SORT LINE RANGE TABLE ENTRIES
03476 M00S03350.iedit +++|
03477 M00S03351.iedit +++|* VALIDATE LINE RANGE TABLE ENTRIES.
03478 M00S03352.iedit +++|
03479 M00S03353.iedit +++| SX5 ERREIE LINE NUMBERS OVERLAP IN RANGE TABLE
03480 M00S03354.iedit +++| SB4 B0
03481 M00S03355.iedit +++| SA1 B7 FIRST HIGH ORDER VALUE
03482 M00S03356.iedit +++| SB3 X1 FIRST LOW ORDER VALUE
03483 M00S03357.iedit +++| AX1 18 HIGH ORDER VALUE OF PAIR
03484 M00S03358.iedit +++| SB5 X1+
| Line S03359 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03485 M01S03359.v23l617 ---| PRS10 LT B5,B3,PRS11 IF ILLEGAL LINE RANGE ENTRY
| Line S00014 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03486 M01S00014.v23l617 +++| PRS10 LT B5,B3,PRS11 IF INCORRECT LINE RANGE ENTRY
03487 M00S03360.iedit +++| SB4 B4+1
03488 M00S03361.iedit +++| EQ B4,B6,PRS12 IF NO MORE ENTRIES TO VALIDATE
03489 M00S03362.iedit +++| SA2 A1+B4 SET NEXT LOW ORDER VALUE
03490 M00S03363.iedit +++| SB3 X2
03491 M00S03364.iedit +++| LE B3,B5,ERR IF OVERLAP OF ENTRIES
03492 M00S03365.iedit +++| AX2 18
03493 M00S03366.iedit +++| SB5 X2
03494 M00S03367.iedit +++| EQ PRS10 CHECK NEXT ENTRY
03495 M00S03368.iedit +++|
03496 M00S03369.iedit +++| PRS11 SX5 ERRELR *ERROR IN LINE RANGE.*
03497 M00S03370.iedit +++| EQ ERR PROCESS ERROR
03498 M00S03371.iedit +++|
03499 M00S03372.iedit +++| PRS12 MX0 1 MARK THE END OF *LRT*
03500 M00S03373.iedit +++| SA5 LRT+B4-1
03501 M00S03374.iedit +++| BX6 X5+X0
03502 M00S03375.iedit +++| SA6 A5+ REPLACE LAST ENTRY
03503 M00S03376.iedit +++|
03504 M00S03377.iedit +++|* SET UP FET FOR EDIT FILE WITH LOCAL FILE.
03505 M00S03378.iedit +++|
03506 M00S03379.iedit +++| PRS13 SX0 3 SET EDIT FILE NAME INTO FET
03507 M00S03380.iedit +++| SA5 EFN
03508 M00S03381.iedit +++| BX6 X0+X5
03509 M00S03382.iedit +++| SA6 E
03510 M00S03383.iedit +++| MEMORY CM,MSTAT,R DETERMINE MAXIMUM MEMORY AVAILABLE
03511 M00S03384.iedit +++| SA2 MSTAT
03512 M00S03385.iedit +++| SA1 FNUM
03513 M00S03386.iedit +++| BX6 X2
03514 M00S03387.iedit +++| AX6 30
03515 M00S03388.iedit +++| SX2 X1-FNRE
03516 M00S03389.iedit +++| SA6 CMAX
03517 M00S03390.iedit +++| NZ X2,PRS14 IF NOT A *READ* FUNCTION
03518 M00S03391.iedit +++| SA2 FILEN
03519 M00S03392.iedit +++| SA3 FIPB
03520 M00S03393.iedit +++| BX6 X2+X3
03521 M00S03394.iedit +++| SA6 A3
03522 M00S03395.iedit +++| FILINFO FIPB CHECK DEVICE TYPE OF *READ* FILE
03523 M00S03396.iedit +++| SA1 FIPB+1 ISOLATE DEVICE TYPE
03524 M00S03397.iedit +++| MX2 12
03525 M00S03398.iedit +++| BX1 X2*X1
03526 M00S03399.iedit +++| SX5 ERRNRF *READ FILE EMPTY.*
03527 M00S03400.iedit +++| ZR X1,ERR IF FILE NOT ON MASS STORAGE
03528 M00S03401.iedit +++| PRS14 SX7 B0+
03529 M00S03402.iedit +++| SA7 MSTAT
03530 M00S03403.iedit +++| MEMORY CM,A7,R
03531 M00S03404.iedit +++| SX2 MEML FWA OF *PRS*
03532 M00S03405.iedit +++| SA1 MSTAT
03533 M00S03406.iedit +++| AX1 30
03534 M00S03407.iedit +++| IX6 X1-X2 AVAILABLE SPACE FOR BUFFERS
03535 M00S03408.iedit +++| SX7 X1+ LWA FOR TABLES
03536 M00S03409.iedit +++| SX6 X6-NTAB ADJUST FOR *MTP* SPARE WORDS
03537 M00S03410.iedit +++| SA6 DYNST
03538 M00S03411.iedit +++| SA7 F.TEND
03539 M00S03412.iedit +++| SA2 BOP
03540 M00S03413.iedit +++| SA1 FNUM
03541 M00S03414.iedit +++| SA7 CMEM
03542 M00S03415.iedit +++| SX3 MEM-/IEDIT1/MEM2
03543 M00S03416.iedit +++| PL X3,PRSX IF OVERLAY NOT LONGER THAN MAIN ROUTINE
03544 M00S03417.iedit +++| SX1 X1-MXIL-1
03545 M00S03418.iedit +++| LX1 1
03546 M00S03419.iedit +++| BX1 X1*X2
03547 M00S03420.iedit +++| NZ X1,PRSX IF *BASIC* AND *MOVE*, *DUP*, OR *READ*
03548 M00S03421.iedit +++| SA1 LM
03549 M00S03422.iedit +++| IX6 X1+X3
03550 M00S03423.iedit +++| SA6 A1
03551 M00S03424.iedit +++| SA2 DYNST
03552 M00S03425.iedit +++| IX7 X2-X3
03553 M00S03426.iedit +++| SA7 A2
03554 M00S03427.iedit +++| EQ PRSX RETURN
03555 M00S03428.iedit +++|
| Line S03429 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03556 M01S03429.v23l617 ---| PRSA BSS 0 CONTROL CARD EQUIVALENCE TABLE
| Line S00015 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03557 M01S00015.v23l617 +++| PRSA BSS 0 COMMAND EQUIVALENCE TABLE
03558 M00S03430.iedit +++| FN ARG EFN,EFN,400B FILE NAME
03559 M00S03431.iedit +++| OP ARG PRSB,COPT,400B OPTIONS
03560 M00S03432.iedit +++| CS ARG PRSC,CSCS CHARACTER SET
03561 M00S03433.iedit +++| ARG
03562 M00S03434.iedit +++| PRSB CON -1 SET -1 IF NO OPTIONS SPECIFIED
03563 M00S03435.iedit +++| PRSC DATA C*NORMAL* NORMAL CHARACTER TYPE
03564 M00S03436.iedit +++| PRSD DATA C*ASCII* ASCII 6/12
03565 M00S03437.iedit +++| PRSE DATA C*ASCII8* ASCII 8/12
03566 M00S03438.iedit +++| PRSF VFD 42/0LINPUT,18/1 TEST DATA FILE NAME
03567 M00S03439.iedit +++| PVA SPACE 4,35
03568 M00S03440.iedit +++|** PVA - PROCESS VERB ARGUMENTS.
03569 M00S03441.iedit +++|*
03570 M00S03442.iedit +++|* PVA JUMPS TO THE SUBROUTINES TO PROCESS THE ARGUMENTS FOR
03571 M00S03443.iedit +++|* THE VERB. THESE SUBROUTINES ARE OBTAINED FROM THE SET OF
03572 M00S03444.iedit +++|* LINES IN THE TABLE CORRESPONDING TO THE VERB THAT WAS FOUND.
03573 M00S03445.iedit +++|*
03574 M00S03446.iedit +++|* ENTRY (A2) = ADDRESS OF TABLE ENTRY MATCHING VERB IN *CLB=*.
03575 M00S03447.iedit +++|* (X2) = *TDVB* ENTRY MATCHING VERB IN *CLB=*.
03576 M00S03448.iedit +++|*
03577 M00S03449.iedit +++|* EXIT TABLES RELEVANT TO COMMAND BUILT.
03578 M00S03450.iedit +++|* NECESSARY VALUES SAVED FOR EXECUTION OF COMMAND.
03579 M00S03451.iedit +++|* COMMAND NUMBER SAVED.
03580 M00S03452.iedit +++|* COMMAND PARAMETERS VALIDATED.
03581 M00S03453.iedit +++|*
03582 M00S03454.iedit +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
03583 M00S03455.iedit +++|* A - 1, 2, 3, 5, 6, 7.
03584 M00S03456.iedit +++|* B - 2, 7.
03585 M00S03457.iedit +++|*
03586 M00S03458.iedit +++|* CALLS GTC, GTS, ICE.
03587 M00S03459.iedit +++|*
03588 M00S03460.iedit +++|* NOTES *ICE* MAY CALL ANY OF THE FOLLOWING ROUTINES -
03589 M00S03461.iedit +++|* 1. *GFN* - GET FILE NAME.
03590 M00S03462.iedit +++|* 2. *GIN* - GET INCREMENT.
03591 M00S03463.iedit +++|* 3. *GLS* - GET LINES.
03592 M00S03464.iedit +++|* 4. *GLI* - GET LINE NUMBER TO INSERT TEXT AFTER.
03593 M00S03465.iedit +++|* 5. *GSP* - GET STRING PAIR.
03594 M00S03466.iedit +++|* 6. *GSR* - GET SINGLE RANGE OF LINE NUMBERS.
03595 M00S03467.iedit +++|* 7. *GSS* - GET STRING FOR SEARCH.
03596 M00S03468.iedit +++|
03597 M00S03469.iedit +++|
03598 M00S03470.iedit +++| PVA SUBR ENTRY/EXIT
03599 M00S03471.iedit +++| MX0 -TDISN INCREMENT TO FIRST SUBROUTINE
03600 M00S03472.iedit +++| SB2 TDISN-TDISS-1
03601 M00S03473.iedit +++| LX1 X2,B2
03602 M00S03474.iedit +++| BX1 -X0*X1
03603 M00S03475.iedit +++| SB2 X1+
03604 M00S03476.iedit +++| SA2 A2+B2 FIRST PROCESS FOR COMMAND
03605 M00S03477.iedit +++| PVA1 BX7 X2 SAVE *TDVB* ENTRY
03606 M00S03478.iedit +++| SB7 X2 GET PROCESS ADDRESS
03607 M00S03479.iedit +++| SA3 LCIP
03608 M00S03480.iedit +++| SA7 LINE
03609 M00S03481.iedit +++| SB2 59-TDFPS CHECK FOR END OF SUBROUTINES
03610 M00S03482.iedit +++| SA3 X3
03611 M00S03483.iedit +++| LX7 X2,B2
03612 M00S03484.iedit +++| NG X7,PVA2 IF AT END OF FUNCTION PROCESSOR ENTRIES
03613 M00S03485.iedit +++| SX7 A2 SAVE ADDRESS IN TABLE OF FUNCTION
03614 M00S03486.iedit +++| SA7 ADRF
03615 M00S03487.iedit +++| SX7 B1
03616 M00S03488.iedit +++| SA7 SUCC
03617 M00S03489.iedit +++| RJ ICE PERFORM FUNCTION
03618 M00S03490.iedit +++|
03619 M00S03491.iedit +++|* FUNCTION PROCESSORS RETURN HERE.
03620 M00S03492.iedit +++|
03621 M00S03493.iedit +++| SA2 ADRF RESTORE ADDRESS OF FUNCTION IN TABLE
03622 M00S03494.iedit +++| SA1 LINE
03623 M00S03495.iedit +++| SA2 X2+B1
03624 M00S03496.iedit +++| LX1 59-TDRQS
03625 M00S03497.iedit +++| PL X1,PVA1 IF FUNCTION OPTIONAL
03626 M00S03498.iedit +++| SA5 SUCC
03627 M00S03499.iedit +++| ZR X5,PVA1 IF PREVIOUS FUNCTION EXECUTED SUCCESSFULLY
03628 M00S03500.iedit +++| MX0 TDASN GET INCREMENT TO FWA OF ALTERNATE SYNTAX
03629 M00S03501.iedit +++| LX0 TDASS-59
03630 M00S03502.iedit +++| SA1 LINE
| Line S03503 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03631 M01S03503.iedit2 ---| SX5 ERREIS
| Line S00098 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03632 M01S00098.iedit2 +++| SX5 ERREIS *INCORRECT SYNTAX.*
03633 M00S03504.iedit +++| BX1 X0*X1
03634 M00S03505.iedit +++| LX1 TDSAS-TDASS RIGHT JUSTIFY OFFSET
03635 M00S03506.iedit +++| ZR X1,ERR IF THERE IS NO ALTERNATE SYNTAX
03636 M00S03507.iedit +++| SA2 TDVB+X1 SET FIRST LINE OF ALTERNATE SYNTAX
03637 M00S03508.iedit +++| SA5 LCIV
03638 M00S03509.iedit +++| SX7 X5
03639 M00S03510.iedit +++| SX6 B0
03640 M00S03511.iedit +++| SA7 LCIP
03641 M00S03512.iedit +++| SA6 NELR
03642 M00S03513.iedit +++| EQ PVA1 PROCESS NEXT PARAMETER
03643 M00S03514.iedit +++|
03644 M00S03515.iedit +++| PVA2 SX7 X2+
03645 M00S03516.iedit +++| SA7 FNUM STORE COMMAND NUMBER
03646 M00S03517.iedit +++| RJ GTS SKIP OVER ALL BLANKS
03647 M00S03518.iedit +++| ZR X0,PVA3 IF NOT A SEPARATOR
03648 M00S03519.iedit +++| SA3 A3-1
03649 M00S03520.iedit +++| PVA3 RJ GTC REREAD THE CHARACTER
03650 M00S03521.iedit +++| ZR X4,PVAX IF NO MORE CHARACTERS ON THE LINE
03651 M00S03522.iedit +++| SX1 TERA
03652 M00S03523.iedit +++| BX1 X1*X4
03653 M00S03524.iedit +++| SX5 ERREIS *ERROR IN EDIT COMMAND SYNTAX*
03654 M00S03525.iedit +++| ZR X1,ERR IF NOT A VALID TERMINATOR
03655 M00S03526.iedit +++| SA2 CSTI CHECK CHARACTER SET
03656 M00S03527.iedit +++| SX1 1R.
03657 M00S03528.iedit +++| SX2 X2-1
03658 M00S03529.iedit +++| NG X2,PVA4 IF NOT *ASCII8*
03659 M00S03530.iedit +++| SX1 56B
03660 M00S03531.iedit +++| PVA4 BX3 X3-X1
03661 M00S03532.iedit +++| NZ X3,PVAX IF TERMINATOR NOT A PERIOD
03662 M00S03533.iedit +++| RJ GTC GET THE FOLLOWING CHARACTER
03663 M00S03534.iedit +++| ZR X4,PVAX IF END OF THE STRING
03664 M00S03535.iedit +++| BX3 X3-X1
03665 M00S03536.iedit +++| NZ X3,PVAX IF NOT AN ELLIPSIS
03666 M00S03537.iedit +++| EQ ERR ISSUE *ERROR IN SYNTAX* MESSAGE
03667 M00S03538.iedit +++| GFN TITLE VERB ARGUMENT PROCESSORS.
03668 M00S03539.iedit +++| GFN SPACE 4,15
03669 M00S03540.iedit +++|** GFN - GET FILE NAME.
03670 M00S03541.iedit +++|*
03671 M00S03542.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING FILE NAME.
03672 M00S03543.iedit +++|*
03673 M00S03544.iedit +++|* EXIT (LCIP) = ADDRESS OF LAST CHARACTER PARSED.
03674 M00S03545.iedit +++|* (SUCC) = 0, IF LEGAL FILE NAME FOUND.
03675 M00S03546.iedit +++|* (FILN) = LEGAL FILE NAME FOLDED INTO *NORMAL*
03676 M00S03547.iedit +++|* CHARACTER SET.
03677 M00S03548.iedit +++|*
03678 M00S03549.iedit +++|* USES X - 1, 2, 5, 6, 7.
03679 M00S03550.iedit +++|* A - 1, 2, 6, 7.
03680 M00S03551.iedit +++|* B - 7.
03681 M00S03552.iedit +++|*
03682 M00S03553.iedit +++|* CALLS GTS, GTB.
03683 M00S03554.iedit +++|
03684 M00S03555.iedit +++|
03685 M00S03556.iedit +++| GFN2 SA6 FILEN STORE FILE NAME
03686 M00S03557.iedit +++| SX7 A3
03687 M00S03558.iedit +++| SX6 B0
03688 M00S03559.iedit +++| SA7 LCIP MARK WHERE SCAN ENDED
03689 M00S03560.iedit +++| SA6 SUCC SET SUCCESS FLAG TO TRUE
03690 M00S03561.iedit +++|
03691 M00S03562.iedit +++| GFN SUBR ENTRY/EXIT
03692 M00S03563.iedit +++| RJ GTS GET SEPARATOR
03693 M00S03564.iedit +++| ZR X0,GFNX IF SEPARATOR NOT FOUND, RETURN
03694 M00S03565.iedit +++| SX7 B0+
03695 M00S03566.iedit +++| SA7 CNVRT SET CONVERSION FLAG
03696 M00S03567.iedit +++| RJ GTB GET BLOCK
03697 M00S03568.iedit +++| SX5 ERRNRS *NO READ/DESTINATION FILE SPECIFIED.*
03698 M00S03569.iedit +++| ZR B2,ERR IF NO CHARACTERS IN BLOCK
03699 M00S03570.iedit +++| SB7 MXWS GET MAXIMUM WORD SIZE INTO B7
03700 M00S03571.iedit +++| SX1 LETA+DIGA GET MASK FOR FILE NAME
| Line S03572 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03701 M01S03572.iedit2 ---| SX5 ERREIF
| Line S00099 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03702 M01S00099.iedit2 +++| SX5 ERREIF *FILE NAME ERROR.*
03703 M00S03573.iedit +++| GT B2,B7,ERR IF WORD TOO LONG
03704 M00S03574.iedit +++| BX6 -X1*X6
03705 M00S03575.iedit +++| NZ X6,ERR IF NON-VALID CHARACTERS IN FILE NAME
03706 M00S03576.iedit +++| SA1 BLOCK LOAD FILE NAME
03707 M00S03577.iedit +++| SA2 EFN GET EDIT FILE NAME
03708 M00S03578.iedit +++| SX5 ERRDFN *DUPLICATE FILE NAME.*
03709 M00S03579.iedit +++| BX2 X2-X1
03710 M00S03580.iedit +++| BX6 X1
03711 M00S03581.iedit +++| ZR X2,ERR IF DUPLICATE FILE NAME
03712 M00S03582.iedit +++| SA2 TSF-1
03713 M00S03583.iedit +++| SX5 ERRRFN *RESERVED FILE NAME.*
03714 M00S03584.iedit +++| GFN1 SA2 A2+B1
03715 M00S03585.iedit +++| ZR X2,GFN2 IF END OF TABLE
03716 M00S03586.iedit +++| BX2 X2-X1
03717 M00S03587.iedit +++| NZ X2,GFN1 IF NOT RESERVED FILE NAME
03718 M00S03588.iedit +++| EQ ERR *RESERVED FILE NAME*
03719 M00S03589.iedit +++| GIN SPACE 4,20
03720 M00S03590.iedit +++|** GIN - GET INCREMENT.
03721 M00S03591.iedit +++|*
03722 M00S03592.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING START OF
03723 M00S03593.iedit +++|* INCREMENT BLOCK.
03724 M00S03594.iedit +++|*
03725 M00S03595.iedit +++|* EXIT (LCIP) = ADDRESS OF LAST CHARACTER PARSED.
03726 M00S03596.iedit +++|* (SUCC) = 0, IF FUNCTION SUCCESSFUL.
03727 M00S03597.iedit +++|* (INCR) = INCREMENT IN BINARY.
03728 M00S03598.iedit +++|*
03729 M00S03599.iedit +++|* USES X - 5, 6, 7.
03730 M00S03600.iedit +++|* A - 6, 7.
03731 M00S03601.iedit +++|* B - 2, 7.
03732 M00S03602.iedit +++|*
03733 M00S03603.iedit +++|* CALLS GLN, GTS.
03734 M00S03604.iedit +++|
03735 M00S03605.iedit +++|
03736 M00S03606.iedit +++| GIN SUBR ENTRY/EXIT
03737 M00S03607.iedit +++| RJ GTS GET SEPARATOR
03738 M00S03608.iedit +++| ZR X0,GINX IF SEPARATOR NOT FOUND, RETURN
03739 M00S03609.iedit +++| RJ GLN
03740 M00S03610.iedit +++| NG X6,GINX IF NUMBER NOT FOUND
03741 M00S03611.iedit +++| SB2 X6+
03742 M00S03612.iedit +++| SB7 MXIC MAXIMUM INCREMENT
03743 M00S03613.iedit +++| LT B2,B1,GIN1 IF INCREMENT TOO SMALL
03744 M00S03614.iedit +++| GT B2,B7,GIN1 IF INCREMEMT TOO LARGE
03745 M00S03615.iedit +++| SA6 INCR STORE INCREMENT
03746 M00S03616.iedit +++| SX7 B0
03747 M00S03617.iedit +++| SX6 A3
03748 M00S03618.iedit +++| SA7 SUCC SET SUCCESS FLAG TO TRUE
03749 M00S03619.iedit +++| SA6 LCIP MARK WHERE SCAN ENDED
03750 M00S03620.iedit +++| EQ GINX RETURN
03751 M00S03621.iedit +++|
| Line S03622 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03752 M01S03622.iedit2 ---| GIN1 SX5 ERREII
| Line S00100 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03753 M01S00100.iedit2 +++| GIN1 SX5 ERREII *LINE NUMBER INCREMENT ERROR.*
03754 M00S03623.iedit +++| EQ ERR ERROR IN INCREMENT
03755 M00S03624.iedit +++| GLI SPACE 4,15
03756 M00S03625.iedit +++|** GLI - GET LINE NUMBER TO INSERT TEXT AFTER.
03757 M00S03626.iedit +++|*
03758 M00S03627.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING SEPARATOR
03759 M00S03628.iedit +++|* PRECEDING LINE NUMBER.
03760 M00S03629.iedit +++|*
03761 M00S03630.iedit +++|* EXIT (LCIP) = ADDRESS OF LAST CHARACTER PARSED.
03762 M00S03631.iedit +++|* (SUCC) = 0, IF FUNCTION SUCCESSFUL.
03763 M00S03632.iedit +++|* (LNIA) = LINE NUMBER TO INSERT AFTER (IF FOUND).
03764 M00S03633.iedit +++|*
03765 M00S03634.iedit +++|* USES X - 3, 6, 7.
03766 M00S03635.iedit +++|* A - 3, 6, 7.
03767 M00S03636.iedit +++|*
03768 M00S03637.iedit +++|* CALLS GLN, GTS.
03769 M00S03638.iedit +++|
03770 M00S03639.iedit +++|
03771 M00S03640.iedit +++| GLI1 RJ GLN
03772 M00S03641.iedit +++| NG X6,GLIX IF NO LINE NUMBER FOUND, RETURN
03773 M00S03642.iedit +++| SX7 X6-MXLN-1
03774 M00S03643.iedit +++| ZR X7,GLIX IF ASTERISK FOUND, RETURN
03775 M00S03644.iedit +++| GLI2 SA6 LNIA STORE LINE NUMBER
03776 M00S03645.iedit +++| SX7 B0
03777 M00S03646.iedit +++| SX6 A3
03778 M00S03647.iedit +++| SA7 SUCC SET SUCCESS FLAG TO TRUE
03779 M00S03648.iedit +++| SA6 LCIP MARK WHERE SCAN ENDED
03780 M00S03649.iedit +++|
03781 M00S03650.iedit +++| GLI SUBR ENTRY/EXIT
03782 M00S03651.iedit +++| RJ GTS GET SEPARATOR
03783 M00S03652.iedit +++| ZR X0,GLIX IF SEPARATOR NOT FOUND, RETURN
03784 M00S03653.iedit +++| RJ GTS CHECK FOR SECOND SEPARATOR
03785 M00S03654.iedit +++| ZR X0,GLI1 IF SEPARATOR NOT FOUND
03786 M00S03655.iedit +++| SA3 A3-1
03787 M00S03656.iedit +++| SX6 MXLN+1 RETURN *MXLN+1* AS LINE NUMBER
03788 M00S03657.iedit +++| EQ GLI2 SET FUNCTION SUCCESSFUL
03789 M00S03658.iedit +++| GLS SPACE 4,15
03790 M00S03659.iedit +++|** GLS - GET LINES.
03791 M00S03660.iedit +++|*
03792 M00S03661.iedit +++|* *GLS* GETS ONE OR MORE SETS OF LINE RANGES INCLUDING THE
03793 M00S03662.iedit +++|* RANGE OF SINGLE LINE NUMBERS AND STORES THOSE RANGES AS
03794 M00S03663.iedit +++|* ENTRIES IN *LRT*.
03795 M00S03664.iedit +++|*
03796 M00S03665.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING LINE RANGES.
03797 M00S03666.iedit +++|*
03798 M00S03667.iedit +++|* EXIT (LCIP) = ADDRESS OF LAST CHARACTER PARSED.
03799 M00S03668.iedit +++|* (SUCC) = 0, IF AT LEAST ONE LINE NUMBER/RANGE FOUND.
03800 M00S03669.iedit +++|*
03801 M00S03670.iedit +++|* USES X - 6, 7.
03802 M00S03671.iedit +++|* A - 6, 7.
03803 M00S03672.iedit +++|*
03804 M00S03673.iedit +++|* CALLS GLR.
03805 M00S03674.iedit +++|
03806 M00S03675.iedit +++|
03807 M00S03676.iedit +++| GLS SUBR ENTRY/EXIT
03808 M00S03677.iedit +++| GLS1 RJ GLR GET LINE RANGE
03809 M00S03678.iedit +++| NG X6,GLSX IF NO LINE NUMBER READ, RETURN
03810 M00S03679.iedit +++| SX7 A3
03811 M00S03680.iedit +++| SX6 B0
03812 M00S03681.iedit +++| SA7 LCIP MARK WHERE SCAN ENDED
03813 M00S03682.iedit +++| SA6 SUCC SET SUCCESS FLAG TO TRUE
03814 M00S03683.iedit +++| EQ GLS1 TRY TO GET ANOTHER LINE NUMBER
03815 M00S03684.iedit +++| GSP SPACE 4,15
03816 M00S03685.iedit +++|** GSP - GET STRING PAIR.
03817 M00S03686.iedit +++|*
03818 M00S03687.iedit +++|* GSP GETS A PAIR OF STRINGS - ONE TO SEARCH WITH
03819 M00S03688.iedit +++|* THE OTHER TO REPLACE THE FIRST VALUE WITH.
03820 M00S03689.iedit +++|*
03821 M00S03690.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING STRING PAIR.
03822 M00S03691.iedit +++|*
03823 M00S03692.iedit +++|* EXIT (LCIP) = ADDRESS OF LAST CHARACTER PARSED.
03824 M00S03693.iedit +++|* (SUCC) = 0, IF SUCCESSFUL.
03825 M00S03694.iedit +++|* (SBUF) = SEARCH STRING, ONE CHARACTER PER WORD.
03826 M00S03695.iedit +++|* (RBUF) = REPLACEMENT STRING, ONE CHARACTER PER WORD.
03827 M00S03696.iedit +++|* (SRTFLG) = 1, IF A CHARACTER STRING WAS SPECIFIED.
03828 M00S03697.iedit +++|*
03829 M00S03698.iedit +++|* USES X - 0, 3, 5, 6, 7.
03830 M00S03699.iedit +++|* A - 3, 5, 6, 7.
03831 M00S03700.iedit +++|*
03832 M00S03701.iedit +++|* CALLS GTB, GCS.
03833 M00S03702.iedit +++|*
03834 M00S03703.iedit +++|* MACROS WRITEC.
03835 M00S03704.iedit +++|
03836 M00S03705.iedit +++|
03837 M00S03706.iedit +++| GSP1 SX0 A3
| Line S03707 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03838 M01S03707.iedit2 ---| WRITEC O,ERRNDF
| Line S00101 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03839 M01S00101.iedit2 +++| WRITEC O,ERRNDF *NO CLOSING DELIMITER FOUND.*
03840 M00S03708.iedit +++| SA3 X0+
03841 M00S03709.iedit +++| GSP2 SX7 B0 SET FUNCTION SUCCESS FLAG
03842 M00S03710.iedit +++| SX6 A3
03843 M00S03711.iedit +++| SA7 SUCC SET SUCCESS FLAG TO TRUE
03844 M00S03712.iedit +++| SA6 LCIP MARK WHERE SCAN ENDED
03845 M00S03713.iedit +++|
03846 M00S03714.iedit +++| GSP SUBR ENTRY/EXIT
03847 M00S03715.iedit +++| RJ GCS GET CHARACTER STRING TO SEARCH FOR
03848 M00S03716.iedit +++| SA5 STRD
03849 M00S03717.iedit +++| NZ X7,GSPX IF NO SEARCH STRING FOUND, RETURN
03850 M00S03718.iedit +++| SX7 RBUF BUFFER TO WHICH BLOCK IS ADDED
03851 M00S03719.iedit +++| NG X5,GSPX IF NO CLOSING DELIMITER ON SEARCH STRING
03852 M00S03720.iedit +++| SA7 CNVRT
03853 M00S03721.iedit +++| RJ GTB GET BLOCK UP TO DELIMITER
03854 M00S03722.iedit +++| SX7 B2+
03855 M00S03723.iedit +++| SA5 STRD CHECK THE CLOSING DELIMETER
03856 M00S03724.iedit +++| SA7 NCIR STORE NUMBER OF CHARS IN REPLACE STRING
03857 M00S03725.iedit +++| NG X5,GSP1 IF CLOSING DELIMETER MISSING