cdc:nos2.source:opl.opl871:deck:iedit.001
Deck IEDIT Part 001
6 Modifications
Listing Sections
- Deck IEDIT Start
- Deck IEDIT Part 1 (Line 1996)
- Deck IEDIT Part 2 (Line 3851)
Source
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
| Line S01977 Modification History | |
|---|---|
M01 (Removed by) | iedit3 |
Seq # *Modification Id* Act ----------------------------+ 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 +++|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | iedit3 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | iedit3 |
Seq # *Modification Id* Act ----------------------------+ 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
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/iedit.001.txt · Last modified: by 127.0.0.1