cdc:nos2.source:opl.opl871:deck:edit
Deck EDIT
Library Member Format: MODIFY
Listing Sections
- Deck EDIT Start
- Deck EDIT Part 1 (Line 1914)
- Deck EDIT Part 2 (Line 3971)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.edit +++| IDENT EDIT,FETS 00002 M00S00002.edit +++| ABS 00003 M00S00003.edit +++| ENTRY EDIT 00004 M00S00004.edit +++| ENTRY RFL= 00005 M00S00005.edit +++| ENTRY SSM= 00006 M00S00006.edit +++| SST 00007 M00S00007.edit +++| SYSCOM B1 00008 M00S00008.edit +++| TITLE EDIT - TIME SHARING TEXT EDITOR. 00009 M00S00009.edit +++| SPACE 4 00010 M00S00010.edit +++|*COMMENT EDIT - TIME SHARING TEXT EDITOR.
| Line S00011 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00011.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00013 M00S00012.edit +++| SPACE 4 00014 M00S00013.edit +++|*** EDIT - TIME SHARING TEXT EDITOR. 00015 M00S00014.edit +++|* P. D. HAAS 72/07/10. 00016 M00S00015.edit +++|* S. L. KSANDER. 75/09/10. 00017 M00S00016.edit +++| SPACE 4 00018 M00S00017.edit +++|*** EDIT IS A TIME SHARING PACKAGE PROVIDING THE TERMINAL USER 00019 M00S00018.edit +++|* WITH A SET OF COMMANDS BY WHICH TO CREATE, MODIFY, 00020 M00S00019.edit +++|* OR OTHERWISE MANIPULATE A DATA FILE. 00021 M00S00020.edit +++|* 00022 M00S00021.edit +++|* THE BASIC STRUCTURE OF A COMMAND IS- 00023 M00S00022.edit +++|* 00024 M00S00023.edit +++|* COMMAND:/PHRASE/;N 00025 M00S00024.edit +++|* 00026 M00S00025.edit +++|* A /PHRASE/ IS THE COMMAND COMPONENT WHICH SPECIFIES A 00027 M00S00026.edit +++|* CHARACTER STRING OF INTEREST. IT MAY BE OF A SIMPLE FORM 00028 M00S00027.edit +++|* /P1/, OR COMPLEX /P1/,/P2/. THE PARAMETER N IS A SPECIFIC- 00029 M00S00028.edit +++|* ATOR WHICH INDICATES THE NUMBER OF LINES THE COMMAND WILL 00030 M00S00029.edit +++|* AFFECT OR THE NUMBER OF TIMES THE COMMAND WILL ACT ON THE 00031 M00S00030.edit +++|* PRESENCE OF /PHRASE/. 00032 M00S00031.edit +++| SPACE 4
| Line S00032 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00033 M01S00032.v23l617 ---|*** CONTROL CARD CALL.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00034 M01S00001.v23l617 +++|*** THE COMMAND FORMAT. 00035 M00S00033.edit +++|* 00036 M00S00034.edit +++|* EDIT(FN=LFN,M=M,I=IFN,L=OFN) 00037 M00S00035.edit +++|* OR 00038 M00S00036.edit +++|* EDIT(LFN,M,IFN,OFN) 00039 M00S00037.edit +++|* 00040 M00S00038.edit +++|* LFN FILENAME TO BE EDITED. 00041 M00S00039.edit +++|* 00042 M00S00040.edit +++|* M MODE OF PROCESSING FOR CURRENT EDIT SESSION. 00043 M00S00041.edit +++|* IF EITHER THE DIRECTIVE INPUT FILE (I) OR THE 00044 M00S00042.edit +++|* OUTPUT FILE (L) IS ASSIGNED TO A 00045 M00S00043.edit +++|* TIME-SHARING TERMINAL, A *TELEX* CALL IS 00046 M00S00044.edit +++|* MADE TO SET THE TERMINAL CONTROL FOR THE EDIT SESSION. 00047 M00S00045.edit +++|* 00048 M00S00046.edit +++|* ASCII - FULL ASCII MODE. 00049 M00S00047.edit +++|* AS 00050 M00S00048.edit +++|* NORMAL - NORMAL CHARACTER MODE. 00051 M00S00049.edit +++|* N 00052 M00S00050.edit +++|* (DEFAULT=NORMAL) 00053 M00S00051.edit +++|* 00054 M00S00052.edit +++|* IFN FILENAME FROM WHICH TO READ INPUT DIRECTIVES. 00055 M00S00053.edit +++|* (DEFAULT=INPUT) 00056 M00S00054.edit +++|* 00057 M00S00055.edit +++|* OFN FILENAME ON WHICH EDITOR OUTPUT IS WRITTEN. 00058 M00S00056.edit +++|* (DEFAULT=OUTPUT) 00059 M00S00057.edit +++| SPACE 4 00060 M00S00058.edit +++|*** TERMINAL INTERRUPT PROCESSING. (*DISTC* CONTROL) 00061 M00S00059.edit +++|* 00062 M00S00060.edit +++|* IF THE USER,S DIRECTIVE INPUT FILE (I) IS ASSIGNED TO 00063 M00S00061.edit +++|* A TIME-SHARING TERMINAL, *DISTC* PROCESSING IS ENABLED. 00064 M00S00062.edit +++|* IN ALL OTHER CASES, TERMINAL INPTERRUPTS WILL INTERRUPT 00065 M00S00063.edit +++|* OR TERMINATE THE EDIT SESSION. 00066 M00S00064.edit +++| SPACE 4 00067 M00S00065.edit +++|*** DAYFILE MESSAGES. 00068 M00S00066.edit +++|*
| Line S00067 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00069 M01S00067.v23l617 ---|* * CONTROL CARD ERROR.* - AN ILLEGAL OR INVALID PARAMETER 00070 M01S00068.v23l617 ---|* HAS BEEN DETECTED ON THE *EDIT* CONTROL CARD.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00071 M01S00002.v23l617 +++|* * COMMAND ERROR.* - AN INCORRECT OR INVALID PARAMETER 00072 M01S00003.v23l617 +++|* HAS BEEN DETECTED ON THE *EDIT* COMMAND. 00073 M00S00069.edit +++|* 00074 M00S00070.edit +++|* * RESERVED FILE NAME.* - FILE NAME SPECIFIED ON *EDIT*
| Line S00071 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00075 M01S00071.v23l617 ---|* CONTROL CARD IS RESERVED FOR USE BY THE EDITOR (SCR, SCR1,
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00076 M01S00004.v23l617 +++|* COMMAND IS RESERVED FOR USE BY THE EDITOR (SCR, SCR1, 00077 M00S00072.edit +++|* SCR2, SCR3, SCR4), OR IS A DUPLICATE OF THE INPUT, OUTPUT, 00078 M00S00073.edit +++|* OR TEXT FILE NAME. 00079 M00S00074.edit +++| SPACE 4,10 00080 M00S00075.edit +++|*** OUTPUT MESSAGES. 00081 M00S00076.edit +++|* 00082 M00S00077.edit +++|* * BEGIN TEXT EDITING.* - INFORMATIVE MESSAGE INDICATING 00083 M00S00078.edit +++|* EDITOR IS READY TO BEGIN ACCEPTING COMMANDS. 00084 M00S00079.edit +++|* 00085 M00S00080.edit +++|* * COMMAND CONTINUE?* - INQUIRY AS TO WHETHER OR NOT AN 00086 M00S00081.edit +++|* INTERRUPTED COMMAND SHOULD CONTINUE TO BE PROCESSED. 00087 M00S00082.edit +++|* 00088 M00S00083.edit +++|* * DISREGARD PREVIOUS TEXT?* - AN INTERRUPT AS BEEN SENSED 00089 M00S00084.edit +++|* WHILE INPUTTING TEXT. *YES* OR *Y* RESPONSE WILL DISCARD 00090 M00S00085.edit +++|* ALL ENTERED TEXT. *NO* OR *N* WILL PROCESS ALL TEXT ENTERED
| Line S00086 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00091 M01S00086.v23l617 ---|* TO THIS POINT. MESSAGE WILL BE RE-ISSUED IF AN INVALID
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00092 M01S00005.v23l617 +++|* TO THIS POINT. MESSAGE WILL BE RE-ISSUED IF AN INCORRECT 00093 M00S00087.edit +++|* RESPONSE IS GIVEN. AN INTERRUPT AS A RESPONSE WILL SIMULATE 00094 M00S00088.edit +++|* AN *END* COMMAND. 00095 M00S00089.edit +++|* 00096 M00S00090.edit +++|* * EDIT FILE NOT IN WRITE MODE.* 00097 M00S00091.edit +++|* * DO YOU WISH TO CONTINUE?* - WARNING TO TERMINAL USER 00098 M00S00092.edit +++|* THAT THE EDIT FILE IS NOT ASSIGNED IN WRITE MODE, AND 00099 M00S00093.edit +++|* INQUIRY AS TO WHETHER THE USER WISHES TO CONTINUE EDITING. 00100 M00S00094.edit +++|* IF *NO* OR *N* RESPONSE IS ENTERED, *EDIT* WILL TERMINATE. 00101 M00S00095.edit +++|* IF *YES* OR *Y* RESPONSE IS ENTERED, EDITING IS ALLOWED, 00102 M00S00096.edit +++|* BUT *EDIT* WILL EVENTUALLY ABORT WITH AN ERROR DIAGNOSTIC 00103 M00S00097.edit +++|* SUCH AS *WRITE ON READ ONLY FILE*. 00104 M00S00098.edit +++|* 00105 M00S00099.edit +++|* * -END OF FILE- * - INFORMATIVE MESSAGE INDICATING THAT 00106 M00S00100.edit +++|* THE TEXT FILE IS POSITIONED AFTER THE LAST LINE OF TEXT, 00107 M00S00101.edit +++|* OR THAT THE END OF TEXT WAS ENCOUNTERED DURING *LIST* OR 00108 M00S00102.edit +++|* *FIND* COMMAND PROCESSING. 00109 M00S00103.edit +++|* 00110 M00S00104.edit +++|* * END TEXT EDITING.* - INFORMATIVE MESSAGE INDICATING 00111 M00S00105.edit +++|* TERMINATION OF EDIT SESSION. 00112 M00S00106.edit +++|* 00113 M00S00107.edit +++|* * ENTER TEXT.* - REQUESTS ENTRY OF NEW OR REPLACEMENT 00114 M00S00108.edit +++|* TEXT FOR *ADD(S)* OR *CHANGE(S)* COMMAND. 00115 M00S00109.edit +++|* 00116 M00S00110.edit +++|* * ENTER TEXT FILE NAME.* - REQUESTS ENTRY OF EDIT FILE
| Line S00111 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00117 M01S00111.v23l617 ---|* NAME, SINCE IT WAS NOT SPECIFIED ON THE *EDIT* CONTROL CARD.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00118 M01S00006.v23l617 +++|* NAME, SINCE IT WAS NOT SPECIFIED ON THE *EDIT* COMMAND. 00119 M00S00112.edit +++|* 00120 M00S00113.edit +++|* * ENTER *YES* OR *NO*.* - PROMPTS THE USER TO ENTER A 00121 M00S00114.edit +++|* RESPONSE FOR A PREVIOUS ENQUIRY. 00122 M00S00115.edit +++|* 00123 M00S00116.edit +++|* * FILE AT LINE NUMBER N.* - INFORMATIVE MESSAGE INDICATING 00124 M00S00117.edit +++|* THAT THE TEXT FILE IS CURRENTLY POSITIONED AT LINE NUMBER N. 00125 M00S00118.edit +++|*
| Line S00119 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00126 M01S00119.v23l617 ---|* * ILLEGAL COMMAND.* - ERROR MESSAGE INDICATING THE COMMAND
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00127 M01S00007.v23l617 +++|* * INCORRECT COMMAND.* - ERROR MESSAGE INDICATING THE COMMAND 00128 M00S00120.edit +++|* NAME ENTERED IS NOT A VALID COMMAND. 00129 M00S00121.edit +++|*
| Line S00122 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00130 M01S00122.v23l617 ---|* * ILLEGAL DELIMITER.* - ERROR MESSAGE INDICATING AN INVALID 00131 M01S00123.v23l617 ---|* DELIMITER WAS USED IN RESPONSE TO THE *ENTER TEXT* REQUEST 00132 M01S00124.v23l617 ---|* FROM A NON-INTERACTIVE JOB. THE *ADD(S)* OR *CHANGE(S)* 00133 M01S00125.v23l617 ---|* COMMAND IS TERMINATED.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00134 M01S00008.v23l617 +++|* * INCORRECT DELIMITER.* - ERROR MESSAGE INDICATING AN 00135 M01S00009.v23l617 +++|* INCORRECT DELIMITER WAS USED IN RESPONSE TO THE *ENTER TEXT* 00136 M01S00010.v23l617 +++|* REQUEST FROM A NON-INTERACTIVE JOB. THE *ADD(S)* OR 00137 M01S00011.v23l617 +++|* *CHANGES(S)* COMMAND IS TERMINATED. 00138 M00S00126.edit +++|*
| Line S00127 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00139 M01S00127.v23l617 ---|* * ILLEGAL DELIMITER - REENTER TEXT.* - ERROR MESSAGE 00140 M01S00128.v23l617 ---|* INDICATING AN INVALID DELIMITER WAS USED IN RESPONSE TO
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00141 M01S00012.v23l617 +++|* * INCORRECT DELIMITER - REENTER TEXT.* - ERROR MESSAGE 00142 M01S00013.v23l617 +++|* INDICATING AN INCORRECT DELIMITER WAS USED IN RESPONSE TO 00143 M00S00129.edit +++|* THE *ENTER TEXT* REQUEST FROM AN INTERACTIVE JOB. 00144 M00S00130.edit +++|* REQUESTS REENTRY OF TEXT WITH A VALID DELIMITER. 00145 M00S00131.edit +++|*
| Line S00132 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00146 M01S00132.v23l617 ---|* * ILLEGAL FILE NAME.* - ERROR MESSAGE INDICATING FILE NAME 00147 M01S00133.v23l617 ---|* PASSED WITH *MERGE* COMMAND IS ILLEGAL.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00148 M01S00014.v23l617 +++|* * INCORRECT FILE NAME.* - ERROR MESSAGE INDICATING FILE NAME 00149 M01S00015.v23l617 +++|* PASSED WITH *MERGE* COMMAND IS INCORRECT. 00150 M00S00134.edit +++|* 00151 M00S00135.edit +++|* * IMPROPER TRUNCATION.* - ERROR MESSAGE INDICATING THE 00152 M00S00136.edit +++|* LENGTH SPECIFIED ON THE *LENGTH;N* COMMAND IS GREATER 00153 M00S00137.edit +++|* THAN OR EQUAL TO THE PREVIOUS LENGTH SPECIFIED. 00154 M00S00138.edit +++|* 00155 M00S00139.edit +++|* * INTERRUPT AT LINE N.* - INFORMATIVE MESSAGE INDICATING 00156 M00S00140.edit +++|* THE CURRENT POSITION IN THE TEXT FILE OF AN INTERRUPTED 00157 M00S00141.edit +++|* COMMAND. 00158 M00S00142.edit +++|* 00159 M00S00143.edit +++|* * MERGE ERROR, SECONDARY FILE EMPTY.* - ERROR MESSAGE 00160 M00S00144.edit +++|* INDICATING THAT THE FILE TO BE MERGED WITH THE EDIT FILE 00161 M00S00145.edit +++|* IS EMPTY, DOES NOT EXIST, OR IS NOT LOCAL TO THE JOB 00162 M00S00146.edit +++|* (PERMANENT FILE MUST BE ATTACHED PRIOR TO EDIT SESSION). 00163 M00S00147.edit +++|* 00164 M00S00148.edit +++|* * PHRASE NOT FOUND.* - INFORMATIVE MESSAGE INDICATING THE 00165 M00S00149.edit +++|* SPECIFIED SEARCH STRING WAS NOT FOUND. 00166 M00S00150.edit +++|* 00167 M00S00151.edit +++|* * READY.* - INFORMATIVE MESSAGE INDICATING THE NEXT COMMAND 00168 M00S00152.edit +++|* CAN BE ENTERED. 00169 M00S00153.edit +++|* 00170 M00S00154.edit +++|* * RESERVED FILE NAME.* - ERROR MESSAGE INDICATING THAT THE 00171 M00S00155.edit +++|* FILE NAME SPECIFIED ON THE *MERGE* COMMAND IS RESERVED FOR 00172 M00S00156.edit +++|* USE BY THE EDITOR (SCR, SCR1, SCR2, SCR3, SCR4), OR IS A 00173 M00S00157.edit +++|* DUPLICATE OF THE INPUT, OUTPUT, OR TEXT FILE NAME. 00174 M00S00158.edit +++|* 00175 M00S00159.edit +++|* * TAB STOPS NONE.* - INFORMATIVE MESSAGE INDICATING NO TAB 00176 M00S00160.edit +++|* STOPS ARE CURRENTLY ESTABLISHED. 00177 M00S00161.edit +++|* 00178 M00S00162.edit +++|* * TAB STOPS T1 T2 ... TN* - INFORMATIVE MESSAGE ISSUED 00179 M00S00163.edit +++|* IN RESPONSE TO *LISTAB* COMMAND INDICATING THE TEXT EDITOR 00180 M00S00164.edit +++|* TAB STOPS THAT ARE IN EFFECT. 00181 M00S00165.edit +++|* 00182 M00S00166.edit +++|* * XXXXXXX SYNTAX ERROR.* - ERROR MESSAGE INDICATING IMPROPER 00183 M00S00167.edit +++|* SYNTAX WAS USED WITH TEXT EDITOR COMMAND XXXXXXX. 00184 M00S00168.edit +++|* 00185 M00S00169.edit +++|* * N LINES TO EOF.* - INFORMATIVE MESSAGE INDICATING THE 00186 M00S00170.edit +++|* LINE COUNT FROM THE CURRENT SEARCH POINTER TO THE LAST 00187 M00S00171.edit +++|* LINE IN THE TEXT FILE. 00188 M00S00172.edit +++|* 00189 M00S00173.edit +++|* * N LINES TO INTERRUPT.* - INFORMATIVE MESSAGE INDICATING 00190 M00S00174.edit +++|* NUMBER OF LINES OR OCCURRENCES OF PHRASE FOUND IN TEXT 00191 M00S00175.edit +++|* FILE BEFORE THE INTERRUPT WAS DETECTED. 00192 M00S00176.edit +++|* 00193 M00S00177.edit +++|* * N OCCURRENCES OF PHRASE FOUND.* - INFORMATIVE MESSAGE 00194 M00S00178.edit +++|* INDICATING THAT THE END OF TEXT WAS ENCOUNTERED BEFORE THE 00195 M00S00179.edit +++|* NUMBER OF ITERATIONS SPECIFIED IN THE COMMAND WERE COMPLETED. 00196 M00S00180.edit +++| TITLE ASSEMBLY CONSTANTS. 00197 M00S00181.edit +++|* ASSEMBLY CONSTANTS. 00198 M00S00182.edit +++| SPACE 4 00199 M00S00183.edit +++| TABCL EQU 150 MAXIMUM TAB VALUE 00200 M00S00184.edit +++| TTBLL EQU 7 MAXIMUM NUMBER OF TABS 00201 M00S00185.edit +++| NLR EQU 8 NUMBER OF LENGTH RECORDS 00202 M00S00186.edit +++| MINWD EQU 6 MINIMUM SIZE FOR WIDTH 00203 M00S00187.edit +++| MAXWD EQU 150 MAXIMUM SIZE FOR WIDTH 00204 M00S00188.edit +++| CMDBL EQU MAXWD*2 LENGTH OF COMMAND BUFFER 00205 M00S00189.edit +++| STRBL EQU MAXWD*2 LENGTH OF CHARACTER BUFFER 00206 M00S00190.edit +++| USBL$ EQU 1 VARIABLE LENGTH OPTION FOR UNPACK BUFFER 00207 M00S00191.edit +++| USBBL EQU MAXWD*2 UNPACK STRING BUFFER LENGTH
| Line S00192 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00208 M01S00192.v23l617 ---| CCBL EQU 80 CONTROL CARD BUFFER LENGTH
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00209 M01S00016.v23l617 +++| CCBL EQU 80 COMMAND BUFFER LENGTH 00210 M00S00193.edit +++| LBUFL EQU 30 LENGTH OF LINE BUFFER 00211 M00S00194.edit +++| FETL EQU 7 FET LENGTH 00212 M00S00195.edit +++| OBUFL EQU 201B LENGTH OF O-BUFFER (OUTPUT) 00213 M00S00196.edit +++| IBUFL EQU 101B LENGTH OF I-BUFFER (INPUT) 00214 M00S00197.edit +++| MBUFL EQU 201B LENGTH OF M-BUFFER (SCR) 00215 M00S00198.edit +++| BBUFL EQU 201B LENGTH OF B-BUFFER (SCR2) 00216 M00S00199.edit +++| FBUFL EQU 1001B LENGTH OF F-BUFFER (SCR5) 00217 M00S00200.edit +++| CBUFL EQU FBUFL/2 00218 M00S00201.edit +++| 00219 M00S00202.edit +++| 00220 M00S00203.edit +++|* SPECIAL ENTRY POINT. 00221 M00S00204.edit +++| 00222 M00S00205.edit +++| SSM= EQU 0 SUPPRESS DUMPS OF FIELD LENGTH 00223 M00S00206.edit +++| TITLE MACRO DEFINITIONS. 00224 M00S00207.edit +++| SPACE 4 00225 M00S00208.edit +++|** COMMAND - GENERATE ENTRY IN COMMAND AND PROCESSOR TABLES. 00226 M00S00209.edit +++|* 00227 M00S00210.edit +++|* COMMAND CNAM,CPROC,STR1,STR2,NUM 00228 M00S00211.edit +++|* 00229 M00S00212.edit +++|* CNAM COMMAND NAME. 00230 M00S00213.edit +++|* CPROC COMMAND PROCESSOR ADDRESS. 00231 M00S00214.edit +++|* STR1 FIRST STRING SPECIFICATION IS ALLOWED. 00232 M00S00215.edit +++|* STR2 SECOND STRING SPECIFICATION IS ALLOWED. 00233 M00S00216.edit +++|* NUM NUMERIC FIELD SPECIFICATION IS ALLOWED. 00234 M00S00217.edit +++| 00235 M00S00218.edit +++| 00236 M00S00219.edit +++| COMMAND MACRO CNAM,CPROC,P1,P2,P3 00237 M00S00220.edit +++| LOCAL A,B,C 00238 M00S00221.edit +++| A SET 0 00239 M00S00222.edit +++| B SET 0 00240 M00S00223.edit +++| C SET 0 00241 M00S00224.edit +++| ECHO ,P=(P1,P2,P3) 00242 M00S00225.edit +++| IFC EQ,$P$STR1$,1 00243 M00S00226.edit +++| A SET 1 00244 M00S00227.edit +++| IFC EQ,$P$STR2$,1 00245 M00S00228.edit +++| B SET 1 00246 M00S00229.edit +++| IFC EQ,$P$NUM$,1 00247 M00S00230.edit +++| C SET 1 00248 M00S00231.edit +++| ENDD 00249 M00S00232.edit +++| VFD 42/0L_CNAM,1/A,1/B,1/C,15/CPROC 00250 M00S00233.edit +++| ENDM 00251 M00S00234.edit +++| SPACE 4 00252 M00S00235.edit +++|** CEPF - CHECK EOI ON PRIMARY EDIT FILE. 00253 M00S00236.edit +++|* 00254 M00S00237.edit +++|* LOC TRANSFER IF NOT PRIMARY FILE. 00255 M00S00238.edit +++|* R REGISTER USED. 00256 M00S00239.edit +++| 00257 M00S00240.edit +++| 00258 M00S00241.edit +++| CEPF MACRO LOC,R 00259 M00S00242.edit +++| SA_R PFADR 00260 M00S00243.edit +++| BX7 X_R-X5 00261 M00S00244.edit +++| SX5 X_R 00262 M00S00245.edit +++| NZ X7,LOC 00263 M00S00246.edit +++| ENDM 00264 M00S00247.edit +++| INTRPT SPACE 4 00265 M00S00248.edit +++|** INTRPT - PROCESS TERMINAL INTERRUPT 00266 M00S00249.edit +++|* 00267 M00S00250.edit +++|* ALL OUTPUT DATA IN THE BUFFER WILL BE ISSUED PRIOR 00268 M00S00251.edit +++|* TO PROMPT MESSAGE. 00269 M00S00252.edit +++|* 00270 M00S00253.edit +++|* NO - ADDRESS IF COMMAND TO NOT CONTINUE AFTER INTERRUPT. 00271 M00S00254.edit +++| 00272 M00S00255.edit +++| 00273 M00S00256.edit +++| INTRPT MACRO NO 00274 M00S00257.edit +++|+ RJ PCC 00275 M00S00258.edit +++|- EQ NO 00276 M00S00259.edit +++| ENDM 00277 M00S00260.edit +++| SPACE 4 00278 M00S00261.edit +++|*CALL COMCMAC 00279 M00S00262.edit +++|*CALL COMSTCM 00280 M00S00263.edit +++| TITLE FETS. 00281 M00S00264.edit +++| ORG 105B 00282 M00S00265.edit +++| FETS BSS 0 00283 M00S00266.edit +++| 00284 M00S00267.edit +++| F BSS 0 TEXT FILE 00285 M00S00268.edit +++| SCR5 FILEC FBUF,FBUFL,FET=7,EPR 00286 M00S00269.edit +++| SPACE 3 00287 M00S00270.edit +++| S BSS 0 SCRATCH FILE 00288 M00S00271.edit +++| SCR4 FILEC SBUF,FBUFL,FET=7 00289 M00S00272.edit +++| SPACE 3 00290 M00S00273.edit +++| SC BSS 0 SECONDARY SCRATCH FILE 00291 M00S00274.edit +++| SCR1 FILEC SCBUF,FBUFL,FET=7 00292 M00S00275.edit +++| SPACE 3 00293 M00S00276.edit +++| B BSS 0 STRING BUFFER FILE 00294 M00S00277.edit +++| SCR2 FILEC BBUF,BBUFL,FET=7 00295 M00S00278.edit +++| SPACE 3 00296 M00S00279.edit +++| M BSS 0 MERGE FILE 00297 M00S00280.edit +++| SCR FILEC MBUF,MBUFL,FET=7,EPR 00298 M00S00281.edit +++| SPACE 3 00299 M00S00282.edit +++| I BSS 0 INPUT FILE 00300 M00S00283.edit +++| INPUT FILEC IBUF,IBUFL,FET=7 00301 M00S00284.edit +++| SPACE 3 00302 M00S00285.edit +++| O BSS 0 OUTPUT FILE 00303 M00S00286.edit +++| OUTPUT FILEC OBUF,OBUFL,FET=7 00304 M00S00287.edit +++| SPACE 3 00305 M00S00288.edit +++| T BSS 0 LENGTH FILE 00306 M00S00289.edit +++| SCR3 RFILEC CMDB,FBUFL 00307 M00S00290.edit +++| TITLE COMMAND TABLE. 00308 M00S00291.edit +++| TCMD BSS 0 TABLE OF COMMAND KEYWORDS 00309 M00S00292.edit +++| COMMAND A,ADD,STR1,NUM 00310 M00S00293.edit +++| COMMAND ADD,ADD,STR1,NUM 00311 M00S00294.edit +++| COMMAND ADDS,ADDS,STR1,NUM 00312 M00S00295.edit +++| COMMAND AL,ALIGN,STR1,STR2,NUM 00313 M00S00296.edit +++| COMMAND ALIGN,ALIGN,STR1,STR2,NUM 00314 M00S00297.edit +++| COMMAND AS,ADDS,STR1,NUM 00315 M00S00298.edit +++| COMMAND B,BLANK,STR1,STR2,NUM 00316 M00S00299.edit +++| COMMAND BLANK,BLANK,STR1,STR2,NUM 00317 M00S00300.edit +++| COMMAND BLANKS,BLANKS,STR1,STR2,NUM 00318 M00S00301.edit +++| COMMAND BS,BLANKS,STR1,STR2,NUM 00319 M00S00302.edit +++| COMMAND C,CHANGE,STR1,STR2,NUM 00320 M00S00303.edit +++| COMMAND CHANGE,CHANGE,STR1,STR2,NUM 00321 M00S00304.edit +++| COMMAND CHANGES,CHANGES,STR1,STR2,NUM 00322 M00S00305.edit +++| COMMAND CL,CLEAR 00323 M00S00306.edit +++| COMMAND CLEAR,CLEAR 00324 M00S00307.edit +++| COMMAND CS,CHANGES,STR1,STR2,NUM 00325 M00S00308.edit +++| COMMAND D,DELETE,STR1,STR2,NUM 00326 M00S00309.edit +++| COMMAND DEFTAB,DEFTAB,STR1 00327 M00S00310.edit +++| COMMAND DELETE,DELETE,STR1,STR2,NUM 00328 M00S00311.edit +++| COMMAND DELETES,DLETES,STR1,STR2,NUM 00329 M00S00312.edit +++| COMMAND DS,DLETES,STR1,STR2,NUM 00330 M00S00313.edit +++| COMMAND DT,DEFTAB,STR1 00331 M00S00314.edit +++| COMMAND E,XTRACT,STR1,STR2,NUM 00332 M00S00315.edit +++| COMMAND END,END 00333 M00S00316.edit +++| COMMAND ES,XTRACTS,STR1,STR2,NUM 00334 M00S00317.edit +++| COMMAND EXTRACT,XTRACT,STR1,STR2,NUM 00335 M00S00318.edit +++| COMMAND F,FIND,STR1,STR2,NUM 00336 M00S00319.edit +++| COMMAND FIND,FIND,STR1,STR2,NUM 00337 M00S00320.edit +++| COMMAND FINDS,FINDS,STR1,STR2,NUM 00338 M00S00321.edit +++| COMMAND FS,FINDS,STR1,STR2,NUM 00339 M00S00322.edit +++| COMMAND INSERTS,INSERTS,STR1,STR2,NUM 00340 M00S00323.edit +++| COMMAND IS,INSERTS,STR1,STR2,NUM 00341 M00S00324.edit +++| COMMAND L,LIST,STR1,STR2,NUM 00342 M00S00325.edit +++| COMMAND LENGTH,LENGTH,NUM 00343 M00S00326.edit +++| COMMAND LINE,LINE 00344 M00S00327.edit +++| COMMAND LIST,LIST,STR1,STR2,NUM 00345 M00S00328.edit +++| COMMAND LISTAB,LISTAB 00346 M00S00329.edit +++| COMMAND LISTS,LISTS,STR1,STR2,NUM 00347 M00S00330.edit +++| COMMAND LN,LINE 00348 M00S00331.edit +++| COMMAND LS,LISTS,STR1,STR2,NUM 00349 M00S00332.edit +++| COMMAND LT,LISTAB 00350 M00S00333.edit +++| COMMAND M,MERGE,STR1,STR2,NUM 00351 M00S00334.edit +++| COMMAND MERGE,MERGE,STR1,STR2,NUM 00352 M00S00335.edit +++| COMMAND N,NUMBER,STR1,STR2 00353 M00S00336.edit +++| COMMAND NS,NUMBERS,STR1,STR2 00354 M00S00337.edit +++| COMMAND NUMBER,NUMBER,STR1,STR2 00355 M00S00338.edit +++| COMMAND NUMBERS,NUMBERS,STR1,STR2 00356 M00S00339.edit +++| COMMAND R,RESET 00357 M00S00340.edit +++| COMMAND RESET,RESET 00358 M00S00341.edit +++| COMMAND RS,RPLACES,STR1,STR2,NUM 00359 M00S00342.edit +++| COMMAND S,SET,STR1,NUM 00360 M00S00343.edit +++| COMMAND SET,SET,STR1,NUM 00361 M00S00344.edit +++| COMMAND STOP,END6 00362 M00S00345.edit +++| COMMAND T,TABS,STR1 00363 M00S00346.edit +++| COMMAND TAB,TABS,STR1 00364 M00S00347.edit +++| COMMAND W,WIDTH,NUM 00365 M00S00348.edit +++| COMMAND WIDTH,WIDTH,NUM 00366 M00S00349.edit +++| TCMDL EQU *-TCMD 00367 M00S00350.edit +++| TITLE DATA STORAGE. 00368 M00S00351.edit +++|** DATA STORAGE. 00369 M00S00352.edit +++| 00370 M00S00353.edit +++| 00371 M00S00354.edit +++| MODE BSS 4 MODE FLAG 00372 M00S00355.edit +++| STPHR1 EQU MODE+1 POINTER TO /P1/ 00373 M00S00356.edit +++| STPHR2 EQU STPHR1+1 POINTER TO /P2/ 00374 M00S00357.edit +++| WDTH CON 72 DEFAULT WITDH 00375 M00S00358.edit +++| SVLC CON 0 SEARCH POINTER 00376 M00S00359.edit +++| PFADR CON F FET ADDRESS OF PRIMARY TEXT FILE 00377 M00S00360.edit +++| JOTY CON 0 JOB ORIGIN TYPE 00378 M00S00361.edit +++| TFILE CON 1 EDIT FILE NAME 00379 M00S00362.edit +++| INTP CON 0 INTERRUPT PENDING 00380 M00S00363.edit +++| TINT CON 0 TERMINAL INTERRUPT INDICATOR 00381 M00S00364.edit +++| TFLEN CON 377776B LENGTH OF EDIT FILE 00382 M00S00365.edit +++| DAFF CON 0 DIRECT ACCESS FILE FLAG 00383 M00S00366.edit +++| EOFIF CON 1 EOF ON INPUT FLAG 00384 M00S00367.edit +++| EOFTF CON 0 EOF ON TEXT FILE FLAG 00385 M00S00368.edit +++| FBB CON 340B FILE BIAS BITS 00386 M00S00369.edit +++| TABCH CON 1S59 TAB CHARACTER 00387 M00S00370.edit +++| ASC CON 0 ESCAPE CODE INDICATOR (-76B IF SET) 00388 M00S00371.edit +++| AFLI CON 0 ALIGN FIELD LENGTH INDICATOR 00389 M00S00372.edit +++| 00390 M00S00373.edit +++| TTBL CON 11 START OF PRESET TAB COLUMNS 00391 M00S00374.edit +++| CON 18 00392 M00S00375.edit +++| CON 30 00393 M00S00376.edit +++| CON 40 00394 M00S00377.edit +++| CON 50 00395 M00S00378.edit +++| BSSZ TTBLL-*+TTBL+1 00396 M00S00379.edit +++| BLKS CON 1H BLANK WORD 00397 M00S00380.edit +++| BLKL VFD 12/2H ,48/0 00398 M00S00381.edit +++| 00399 M00S00382.edit +++| 00400 M00S00383.edit +++|** POINTER WORD - FBW, LBW, SLP. 00401 M00S00384.edit +++|* 00402 M00S00385.edit +++|*T 1/S,35/POSITION,24/ADDRESS
Figure
00403 M00S00386.edit +++|* *S* = STATUS OF POINTER, NEGATIVE INDICATES 00404 M00S00387.edit +++|* POINTER IS AT END OF LINE. 00405 M00S00388.edit +++|* *POSITION* = CHARACTER POSITION WITHIN WORD (0 - 9) 00406 M00S00389.edit +++|* *ADDRESS* = ADDRESS OF WORD CONTAINING *POSITION*. 00407 M00S00390.edit +++|* 00408 M00S00391.edit +++|* THE ORDER OF THE FOLLOWING MUST BE MAINTAINED. 00409 M00S00392.edit +++| 00410 M00S00393.edit +++| FBW CON 0 FIRST CHARACTER BUFFER POINTER WORD 00411 M00S00394.edit +++| LBW CON 0 LAST CHARACTER BUFFER POINTER WORD 00412 M00S00395.edit +++| SLP CON 0 SOURCE LINE POINTER 00413 M00S00396.edit +++| 00414 M00S00397.edit +++| LBA CON LBUF LINE BUFFER ADDRESS 00415 M00S00398.edit +++| 00416 M00S00399.edit +++| NUM CON 0 COMMAND NUMERIC FIELD 00417 M00S00400.edit +++| SEC CON 0 SEARCH COUNT 00418 M00S00401.edit +++| ICT CON 0 INTERRUPT PROCESSING SEARCH COUNT 00419 M00S00402.edit +++| 00420 M00S00403.edit +++| LCT CON 0 LINE COUNT 00421 M00S00404.edit +++| LBL CON 0 LINE BUFFER LWA 00422 M00S00405.edit +++| TBL CON 0 TEMPORARY BUFFER LWA 00423 M00S00406.edit +++| 00424 M00S00407.edit +++| RTFP CON 0 TEXT FILE BUFFER POINTER 00425 M00S00408.edit +++| TBST CON 0 TEXT FILE BUFFER STATUS 00426 M00S00409.edit +++| MAIN TITLE COMMAND CRACKER. 00427 M00S00410.edit +++|** MAIN - CRACKS COMMAND AND LOCATES PROCESSOR. 00428 M00S00411.edit +++|* 00429 M00S00412.edit +++|* ENTRY (JOTY) - JOB ORIGIN TYPE. 00430 M00S00413.edit +++|* (EOFIF) - INPUT FILE STATUS. 00431 M00S00414.edit +++|* (ASC) - ASCII INDICATOR. 00432 M00S00415.edit +++|* (TFILE) - EDIT FILE NAME. 00433 M00S00416.edit +++|* (DAFF) - DIRECT ACCESS TEXT FILE FLAG. 00434 M00S00417.edit +++|* (EOFTF) - TEXT FILE STATUS. 00435 M00S00418.edit +++|* (LBL) - LINE BUFFER LAST WORD ADDRESS. 00436 M00S00419.edit +++|* 00437 M00S00420.edit +++|* EXIT (NUM) - ABSOLUTE VALUE OF NUMERIC FIELD, DEFAULT OF 1. 00438 M00S00421.edit +++|* (SEC) - NEGATE OF (NUM). 00439 M00S00422.edit +++|* (A3) = STPHR1. 00440 M00S00423.edit +++|*T STPHR1 36/NUMBER OF CHARACTERS IN STRING P1,24/P1 BEGINNING ADDRESS
Figure STPHR1
00441 M00S00424.edit +++|* (A4) = STPHR2. 00442 M00S00425.edit +++|*T STPHR2 36/NUMBER OF CHARACTERS IN STRING P2,24/P2 BEGINNING ADDRESS
Figure STPHR2
00443 M00S00426.edit +++|* (A5) - FET ADDRESS OF WRITE FILE. 00444 M00S00427.edit +++|* (X0) = (X2) = (NUM). 00445 M00S00428.edit +++|* (X1) = (X7) = 0. 00446 M00S00429.edit +++|* (X3) = (STPHR1). 00447 M00S00430.edit +++|* (X4) = (STPHR2). 00448 M00S00431.edit +++|* (X5) - FET ADDRESS OF READ FILE. 00449 M00S00432.edit +++|* (B7) = 1, IF NUMERIC FIELD NEGATIVE, 0 OTHERWISE. 00450 M00S00433.edit +++|* 00451 M00S00434.edit +++|* USES ALL. 00452 M00S00435.edit +++|* 00453 M00S00436.edit +++|* CALLS ANC, CFC, SFN, COMMAND PROCESSORS. 00454 M00S00437.edit +++| 00455 M00S00438.edit +++| 00456 M00S00439.edit +++| MAIN22 SB4 X2-1R 00457 M00S00440.edit +++| NZ B4,MAIN23 IF NOT BLANK CHARACTER 00458 M00S00441.edit +++| SB2 B2+B1 00459 M00S00442.edit +++| SA2 B2 00460 M00S00443.edit +++| NE B2,B6,MAIN22 IF NOT END OF INPUT 00461 M00S00444.edit +++| EQ MAIN17 00462 M00S00445.edit +++| 00463 M00S00446.edit +++| MAIN23 SB4 X2-1R$ 00464 M00S00447.edit +++| ZR B4,MAIN17 IF COMMENTS FIELD 00465 M00S00448.edit +++| 00466 M00S00449.edit +++|* PROCESS SYNTAX ERROR. 00467 M00S00450.edit +++| 00468 M00S00451.edit +++| MAINX SA1 SEM 00469 M00S00452.edit +++| RJ SFN BLANK FILL COMMAND WORD 00470 M00S00453.edit +++| SA6 A1 00471 M00S00454.edit +++| WRITEC O,A6 00472 M00S00455.edit +++| 00473 M00S00456.edit +++| MAIN RJ CTI CLEAR TERMINAL INTERRUPTS 00474 M00S00457.edit +++| SA3 JOTY 00475 M00S00458.edit +++| ZR X6,MAIN2 IF NOT INTERRUPT PENDING 00476 M00S00459.edit +++| NZ X3,MAIN1 IF NOT INTERACTIVE INPUT 00477 M00S00460.edit +++| RECALL I 00478 M00S00461.edit +++| SA1 I+1 RESET INPUT FET 00479 M00S00462.edit +++| SX6 X1 00480 M00S00463.edit +++| SA6 A1+B1 00481 M00S00464.edit +++| SA6 A6+B1 00482 M00S00465.edit +++| BX7 X7-X7 00483 M00S00466.edit +++| SA7 EOFIF 00484 M00S00467.edit +++| MAIN1 RECALL O 00485 M00S00468.edit +++| SA1 X2+B1 RESET OUTPUT FET 00486 M00S00469.edit +++| SX6 X1 00487 M00S00470.edit +++| SA6 A1+B1 00488 M00S00471.edit +++| SA6 A6+B1 00489 M00S00472.edit +++| BX7 X7-X7 CLEAR INTERRUPT PENDING 00490 M00S00473.edit +++| SA7 INTP 00491 M00S00474.edit +++| MAIN2 SA2 EOFIF CHECK INPUT STATUS 00492 M00S00475.edit +++| NZ X2,MAIN3 IF NO EOF ON INPUT FILE 00493 M00S00476.edit +++| SB5 END PRESET END COMMAND 00494 M00S00477.edit +++| SB7 B0+ CLEAR NEGATIVE NUMERIC INDICATOR 00495 M00S00478.edit +++| NZ X3,MAIN19 IF NOT INTERACTIVE JOB 00496 M00S00479.edit +++| SX6 B1 00497 M00S00480.edit +++| SA6 A2 CLEAR EOI STATUS 00498 M00S00481.edit +++| READ I REINIATE READ 00499 M00S00482.edit +++| MAIN3 READS I,CMDB,-CMDBL 00500 M00S00483.edit +++| NZ X1,MAIN20 IF USER HIT (CR) ONLY 00501 M00S00484.edit +++| SB2 CMDB-1 START OF COMMAND BUFFER 00502 M00S00485.edit +++| SB3 7 00503 M00S00486.edit +++| SB5 60 00504 M00S00487.edit +++| SX7 B0+ 00505 M00S00488.edit +++| 00506 M00S00489.edit +++|* ASSEMBLE COMMAND WORD. 00507 M00S00490.edit +++| 00508 M00S00491.edit +++| MAIN4 RJ ANC ASSEMBLE NEXT CHARACTER 00509 M00S00492.edit +++| EQ B2,B6,MAIN5 IF END OF INPUT 00510 M00S00493.edit +++| SX1 X2-1R 00511 M00S00494.edit +++| ZR X1,MAIN4 IF BLANK CHARACTER 00512 M00S00495.edit +++| ZR X4,MAIN5 IF NOT ALPHA CHARACTER 00513 M00S00496.edit +++| SX1 X4-1R0 00514 M00S00497.edit +++| PL X1,MAIN5 IF NOT ALPHA CHARACTER 00515 M00S00498.edit +++| SX1 X3-74B 00516 M00S00499.edit +++| ZR X1,MAIN5 IF 74B ESCAPE CHARACTER 00517 M00S00500.edit +++| SB3 B3-1 00518 M00S00501.edit +++| NG B3,MAIN21 IF COMMAND TOO LONG 00519 M00S00502.edit +++| SB5 B5-6 00520 M00S00503.edit +++| LX7 6 00521 M00S00504.edit +++| BX7 X4+X7 00522 M00S00505.edit +++| EQ MAIN4 00523 M00S00506.edit +++| 00524 M00S00507.edit +++|* SEARCH FOR COMMAND. 00525 M00S00508.edit +++| 00526 M00S00509.edit +++| MAIN5 ZR X7,MAIN21 IF NO COMMAND 00527 M00S00510.edit +++| MX1 -6 MASK FOR MODE CHARACTER 00528 M00S00511.edit +++| BX6 -X1*X7 00529 M00S00512.edit +++| SX6 X6-1RS 00530 M00S00513.edit +++| SA6 MODE SET MODE 00531 M00S00514.edit +++| LX7 X7,B5 LEFT JUSTIFY COMMAND WORD 00532 M00S00515.edit +++| SA1 =0LSTOP CHECK FOR STOP COMMAND 00533 M00S00516.edit +++| BX5 X1-X7 00534 M00S00517.edit +++| ZR X5,END6 IF STOP COMMAND 00535 M00S00518.edit +++| RJ CTI CHECK TERMINAL INTERRUPT 00536 M00S00519.edit +++| NZ X3,MAIN IF INTERRUPTED 00537 M00S00520.edit +++| SX4 B1 00538 M00S00521.edit +++| MX6 42 00539 M00S00522.edit +++| SB3 TCMD-1 SET COMMAND TABLE ADDRESS 00540 M00S00523.edit +++| SX3 TCMDL*2 SET TABLE LENGTH 00541 M00S00524.edit +++| MAIN6 AX3 1 00542 M00S00525.edit +++| PL X4,MAIN7 IF ENTRY TOO HIGH 00543 M00S00526.edit +++| SB3 A1+B1 RAISE LOWER LIMIT 00544 M00S00527.edit +++| MAIN7 SA1 X3+B3 GET NEXT ENTRY 00545 M00S00528.edit +++| BX5 -X6*X1 CHECK FOR MATCH 00546 M00S00529.edit +++| BX1 X6*X1 00547 M00S00530.edit +++| IX4 X1-X7 00548 M00S00531.edit +++| ZR X4,MAIN8 IF COMMAND FOUND 00549 M00S00532.edit +++| NZ X3,MAIN6 IF NOT END OF SEARCH
| Line S00533 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00550 M01S00533.v23l617 ---| JP MAIN21 PROCESS ILLEGAL COMMAND
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00551 M01S00017.v23l617 +++| JP MAIN21 PROCESS INCORRECT COMMAND 00552 M00S00534.edit +++| 00553 M00S00535.edit +++| MAIN8 SA7 SEM 00554 M00S00536.edit +++| MX1 -15 00555 M00S00537.edit +++| SX7 B1 00556 M00S00538.edit +++| BX4 -X1*X5 GET PROCESSOR ADDRESS 00557 M00S00539.edit +++| SX6 B0 00558 M00S00540.edit +++| LX5 59-17 00559 M00S00541.edit +++| SB5 X4 00560 M00S00542.edit +++| SA6 STPHR1 CLEAR STRING FIELD POINTERS 00561 M00S00543.edit +++| SB7 B0+ 00562 M00S00544.edit +++| SB3 -B1 00563 M00S00545.edit +++| SA6 A6+B1 00564 M00S00546.edit +++| EQ B2,B6,MAIN18 IF NO OPTIONAL FIELDS 00565 M00S00547.edit +++| SX1 X2-1R; 00566 M00S00548.edit +++| ZR X1,MAIN13 IF SPECIFICATOR FIELD NEXT 00567 M00S00549.edit +++| RJ CFC CHECK FOR COLON
| Line S00550 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00568 M01S00550.v23l617 ---| NZ X3,MAIN23 IF ILLEGAL SEPARATOR
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00569 M01S00018.v23l617 +++| NZ X3,MAIN23 IF INCORRECT SEPARATOR 00570 M00S00551.edit +++| 00571 M00S00552.edit +++|* PROCESS CHARACTER STRING. 00572 M00S00553.edit +++| 00573 M00S00554.edit +++| MAIN9 RJ ANC ASSEMBLE NEXT CHARACTER 00574 M00S00555.edit +++| EQ B2,B6,MAINX IF PREMATURE END OF INPUT 00575 M00S00556.edit +++| SX1 X2-1R
| Line S00557 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00576 M01S00557.v23l617 ---| ZR X1,MAINX IF ILLEGAL DELIMITER
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00577 M01S00019.v23l617 +++| ZR X1,MAINX IF INCORRECT DELIMITER 00578 M00S00558.edit +++| SX1 X2-1R$
| Line S00559 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00579 M01S00559.v23l617 ---| ZR X1,MAINX IF ILLEGAL DELIMITER
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00580 M01S00020.v23l617 +++| ZR X1,MAINX IF INCORRECT DELIMITER 00581 M00S00560.edit +++| BX0 X2 SAVE DELIMITER 00582 M00S00561.edit +++| SX6 B2+B1 00583 M00S00562.edit +++| SB3 B3+B1 INCREMENT STRING COUNT 00584 M00S00563.edit +++| SB4 X6+ 00585 M00S00564.edit +++| MAIN10 RJ ANC ASSEMBLE NEXT CHARACTER 00586 M00S00565.edit +++| EQ B2,B6,MAINX IF PREMATURE END OF INPUT 00587 M00S00566.edit +++| BX1 X0-X2 00588 M00S00567.edit +++| NZ X1,MAIN10 IF NOT DELIMITER 00589 M00S00568.edit +++| ZR X3,MAIN11 IF NOT ASCII DELIMITER 00590 M00S00569.edit +++| SX3 -1 00591 M00S00570.edit +++| MAIN11 SA0 B2+X3 00592 M00S00571.edit +++| SX1 A0-B4 NUMBER OF CHARACTERS IN STRING 00593 M00S00572.edit +++| LX1 24 00594 M00S00573.edit +++| BX6 X1+X6 00595 M00S00574.edit +++| SA6 B3+STPHR1 00596 M00S00575.edit +++| ZR X1,MAINX IF NULL STRING 00597 M00S00576.edit +++| GT B3,B1,MAINX IF TOO MANY STRINGS 00598 M00S00577.edit +++| BX1 X5 00599 M00S00578.edit +++| LX1 X1,B3 00600 M00S00579.edit +++| PL X1,MAINX IF STRING FIELD NOT ALLOWED 00601 M00S00580.edit +++| MAIN12 RJ ANC ASSEMBLE NEXT CHARACTER 00602 M00S00581.edit +++| EQ B2,B6,MAIN18 IF END OF INPUT 00603 M00S00582.edit +++| SX1 X2-1R 00604 M00S00583.edit +++| ZR X1,MAIN12 IF BLANK CHARACTER 00605 M00S00584.edit +++| SX1 X2-1R, 00606 M00S00585.edit +++| ZR X1,MAIN9 IF ANOTHER STRING FIELD 00607 M00S00586.edit +++| SX1 X2-1R;
| Line S00587 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00608 M01S00587.v23l617 ---| NZ X1,MAIN23 IF ILLEGAL SEPARATOR
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00609 M01S00021.v23l617 +++| NZ X1,MAIN23 IF INCORRECT SEPARATOR 00610 M00S00588.edit +++| 00611 M00S00589.edit +++|* PROCESS NUMERIC FIELD. 00612 M00S00590.edit +++| 00613 M00S00591.edit +++| MAIN13 LX5 59-15-59+17 00614 M00S00592.edit +++| PL X5,MAINX IF NUMERIC FIELD NOT ALLOWED 00615 M00S00593.edit +++| RJ ANC ASSEMBLE NEXT CHARACTER 00616 M00S00594.edit +++| EQ B2,B6,MAINX IF PREMATURE END OF INPUT 00617 M00S00595.edit +++| SX7 B0+ 00618 M00S00596.edit +++| SX1 X2-1R* 00619 M00S00597.edit +++| NZ X1,MAIN14 IF NOT ASTERISK 00620 M00S00598.edit +++| SX7 377776B SET INFINITE NUMERIC FIELD 00621 M00S00599.edit +++| EQ MAIN18 00622 M00S00600.edit +++| 00623 M00S00601.edit +++| MAIN14 SB4 X2-1R+ 00624 M00S00602.edit +++| ZR B4,MAIN15 IF PLUS SIGN 00625 M00S00603.edit +++| SB4 B4-B1 00626 M00S00604.edit +++| NZ B4,MAIN16 IF NOT MINUS SIGN 00627 M00S00605.edit +++| SB7 B1 00628 M00S00606.edit +++| MAIN15 SB2 B2+B1 00629 M00S00607.edit +++| EQ B2,B6,MAINX IF PREMATURE END OF INPUT 00630 M00S00608.edit +++| SA2 B2 00631 M00S00609.edit +++| MAIN16 SX4 X2-1R+ 00632 M00S00610.edit +++| PL X4,MAIN22 IF NOT DIGIT 00633 M00S00611.edit +++| SX4 X2-1R0 00634 M00S00612.edit +++| NG X4,MAIN22 IF NOT DIGIT 00635 M00S00613.edit +++| LX6 X7,B1 00636 M00S00614.edit +++| LX7 3 00637 M00S00615.edit +++| IX7 X6+X7 N(I-1)*10 00638 M00S00616.edit +++| IX7 X7+X4 N(I-1)*10+N(I) 00639 M00S00617.edit +++| SB2 B2+B1 00640 M00S00618.edit +++| SA2 B2 00641 M00S00619.edit +++| NE B2,B6,MAIN16 IF NOT END OF INPUT 00642 M00S00620.edit +++| MAIN17 ZR X7,MAINX IF NUMERIC FIELD ZERO 00643 M00S00621.edit +++| MX1 -17 00644 M00S00622.edit +++| BX1 -X1*X7 00645 M00S00623.edit +++| BX1 X7-X1 00646 M00S00624.edit +++| NZ X1,MAINX IF NUMERIC FIELD TOO LARGE 00647 M00S00625.edit +++| 00648 M00S00626.edit +++| MAIN18 SA7 NUM 00649 M00S00627.edit +++| BX6 -X7 00650 M00S00628.edit +++| SA6 A7+B1 00651 M00S00629.edit +++| BX0 X7 00652 M00S00630.edit +++| BX2 X7 00653 M00S00631.edit +++| SX6 B5-SET 00654 M00S00632.edit +++| ZR X6,MAIN19 IF *SET* COMMAND 00655 M00S00633.edit +++| NZ B7,MAINX IF NUMERIC FIELD NEGATIVE 00656 M00S00634.edit +++| MAIN19 MX7 -4 00657 M00S00635.edit +++| SA1 FBB 00658 M00S00636.edit +++| BX3 -X7*X1 00659 M00S00637.edit +++| AX1 4 00660 M00S00638.edit +++| BX6 -X7*X1 00661 M00S00639.edit +++| SA4 STPHR2 00662 M00S00640.edit +++| SA5 X6+F WRITE FILE 00663 M00S00641.edit +++| SX5 X3+F READ FILE 00664 M00S00642.edit +++| SA3 STPHR1 POINTER TO STRING FIELD /P1/ 00665 M00S00643.edit +++| BX7 X7-X7 00666 M00S00644.edit +++| BX1 X1-X1 00667 M00S00645.edit +++| JP B5 EXECUTE COMMAND 00668 M00S00646.edit +++|
| Line S00647 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00669 M01S00647.v23l617 ---|* PROCESS ILLEGAL COMMAND.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00670 M01S00022.v23l617 +++|* PROCESS INCORRECT COMMAND. 00671 M00S00648.edit +++| 00672 M00S00649.edit +++| MAIN20 SX7 0 SET EOI STATUS 00673 M00S00650.edit +++| SA7 EOFIF 00674 M00S00651.edit +++| MAIN21 RJ CTI CHECK TERMINAL INTERRUPTS 00675 M00S00652.edit +++| NZ X6,MAIN IF INTERRUPTED
| Line S00653 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00676 M01S00653.v23l617 ---| WRITEC O,(=C* ILLEGAL COMMAND.*)
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00677 M01S00023.v23l617 +++| WRITEC O,(=C* INCORRECT COMMAND.*) 00678 M00S00654.edit +++| EQ MAIN 00679 M00S00655.edit +++| 00680 M00S00656.edit +++| 00681 M00S00657.edit +++| SEM DATA C* SYNTAX ERROR.* 00682 M00S00658.edit +++| ADD TITLE LINE COMMAND PROCESSORS. 00683 M00S00659.edit +++|*** ADD (A) - ADD LINES. 00684 M00S00660.edit +++|* 00685 M00S00661.edit +++|* ONE OR MORE LINES ARE ADDED TO THE FILE BEING EDITED. 00686 M00S00662.edit +++|* NEW DATA IS OBTAINED BY POSTING A REQUEST TO 00687 M00S00663.edit +++|* * ENTER TEXT.* NEW TEXT IS ADDED AFTER THE NTH LINE OR 00688 M00S00664.edit +++|* AFTER EACH OF THE FIRST N LINES CONTAINING /P1/. 00689 M00S00665.edit +++| 00690 M00S00666.edit +++| 00691 M00S00667.edit +++| ADD BSS 0 00692 M00S00668.edit +++| NZ X3,CHL1 IF STRING FIELD PRESENT 00693 M00S00669.edit +++| ADL1 SA2 X1+ADLA 00694 M00S00670.edit +++| BX6 X2 00695 M00S00671.edit +++| SA6 ADL2 SET RJ FOR ADD/CHANGE 00696 M00S00672.edit +++| RJ ETX PROCESS TEXT ENTRY 00697 M00S00673.edit +++| ZR X0,MAIN IF NO TEXT ENTERED 00698 M00S00674.edit +++| SA4 EOFTF 00699 M00S00675.edit +++| BX7 X2 SAVE FET ADDRESS 00700 M00S00676.edit +++| SA7 A6-B1 00701 M00S00677.edit +++| ZR X4,ADL3 IF POSITIONED AT END OF INFORMATION 00702 M00S00678.edit +++| ADL2 SA2 NUM 00703 M00S00679.edit +++| RJ * 00704 M00S00680.edit +++| ADL3 INTRPT SET2 PROCESS TERMINAL INTERRUPT 00705 M00S00681.edit +++| SA2 RTFP RETRIEVE FET POINTER 00706 M00S00682.edit +++| READW X2,TBUF,100B 00707 M00S00683.edit +++| SB7 B6-TBUF NUMBER WORDS READ 00708 M00S00684.edit +++| BX0 X1 00709 M00S00685.edit +++| SX2 A5 00710 M00S00686.edit +++| WRITEW X2,TBUF,B7 00711 M00S00687.edit +++| ZR X0,ADL3 IF COPY NOT COMPLETE 00712 M00S00688.edit +++| JP SET2 00713 M00S00689.edit +++| 00714 M00S00690.edit +++| 00715 M00S00691.edit +++| ADLA SA2 NUM POSITION TEXT FILE FOR ADD COMMAND 00716 M00S00692.edit +++| RJ AFW 00717 M00S00693.edit +++| + SA2 SEC POSITION TEXT FILE FOR CHANGE COMMAND 00718 M00S00694.edit +++| RJ ATF 00719 M00S00695.edit +++| BLANK EJECT 00720 M00S00696.edit +++|*** BLANK (B) - BLANK LINES. 00721 M00S00697.edit +++|* 00722 M00S00698.edit +++|* ONE OR MORE LINES OF DATA IN THE TEXT FILE ARE REPLACED 00723 M00S00699.edit +++|* WITH BLANK LINES. LINES BLANKED ARE THE FIRST N LINES OR 00724 M00S00700.edit +++|* THE FIRST N LINES CONTAINING /PHRASE/. 00725 M00S00701.edit +++| 00726 M00S00702.edit +++| 00727 M00S00703.edit +++| BLANK BSS 0 00728 M00S00704.edit +++| SA2 EOFTF 00729 M00S00705.edit +++| ZR X2,LTL11 IF POSITIONED AT EOI 00730 M00S00706.edit +++| ZR X3,BLL6 IF NO STRING FIELDS 00731 M00S00707.edit +++| RJ PSO SEARCH FOR STRING 00732 M00S00708.edit +++| BLL1 SA2 STPHR2 00733 M00S00709.edit +++| NZ X2,BLL3 IF ELLIPSIS OPERATION 00734 M00S00710.edit +++| BLL2 SA3 SEC 00735 M00S00711.edit +++| BX6 X6-X6 00736 M00S00712.edit +++| SX7 X3+B1 DECREMENT SEARCH COUNT 00737 M00S00713.edit +++| SA6 LBUF 00738 M00S00714.edit +++| SA7 A3 00739 M00S00715.edit +++| SX0 B1 00740 M00S00716.edit +++| ZR X7,SET2 IF ALL DONE 00741 M00S00717.edit +++| INTRPT SET2 PROCESS TEMINAL INTERRUPT 00742 M00S00718.edit +++| RJ SFS SEARCH FOR STRING 00743 M00S00719.edit +++| NZ X7,BLL1 IF ANOTHER /P1/ FOUND 00744 M00S00720.edit +++| JP CHL6 00745 M00S00721.edit +++| 00746 M00S00722.edit +++| BLL3 SX1 B1 CHECK CURRENT LINE FOR /P2/ 00747 M00S00723.edit +++| RJ SLS 00748 M00S00724.edit +++| ZR B7,BLL2 IF ONE LINE ELLIPSIS 00749 M00S00725.edit +++| WRITEC A5,TCHM 00750 M00S00726.edit +++| SX6 STPHR2 POSITION FILE AT /P2/ 00751 M00S00727.edit +++| RJ SRO 00752 M00S00728.edit +++| SA4 X5+5 00753 M00S00729.edit +++| SX7 X4+B4 ADVANCE READ FILE LINE POSITION 00754 M00S00730.edit +++| SA7 A4 00755 M00S00731.edit +++| BLL4 EQ B2,B1,BLL2 IF END OF ELLIPSIS IN NEXT LINE 00756 M00S00732.edit +++| SX2 A5 00757 M00S00733.edit +++| SX0 B1-B2 00758 M00S00734.edit +++| BLL5 WRITEC X2,TCHM WRITE BLANK LINES 00759 M00S00735.edit +++| SX0 X0+1 00760 M00S00736.edit +++| NZ X0,BLL5 IF BLANKETY-BLANKS NOT ALL WRITTEN 00761 M00S00737.edit +++| EQ BLL2 00762 M00S00738.edit +++| 00763 M00S00739.edit +++| BLL6 BX2 -X0 00764 M00S00740.edit +++| SA7 LBUF SET BLANK LINE 00765 M00S00741.edit +++| SX2 X2+B1 00766 M00S00742.edit +++| ZR X2,SET2 IF ONLY ONE BLANK LINE 00767 M00S00743.edit +++| RJ ATF 00768 M00S00744.edit +++| BX6 X6-X6 00769 M00S00745.edit +++| MX4 8 00770 M00S00746.edit +++| SA6 LBUF 00771 M00S00747.edit +++| + LX4 1 SET EIGHT BLANK LINES 00772 M00S00748.edit +++| SA6 A6+B1 00773 M00S00749.edit +++| NG X4,* 00774 M00S00750.edit +++| SA2 NUM 00775 M00S00751.edit +++| SX0 X2-1 00776 M00S00752.edit +++| BLL7 SB4 -8 00777 M00S00753.edit +++| SX0 X0+B4 00778 M00S00754.edit +++| SX2 A5 00779 M00S00755.edit +++| SB7 B0-B4 00780 M00S00756.edit +++| PL X0,BLL8 IF LINES ALL WRITTEN 00781 M00S00757.edit +++| SB7 X0+B7 00782 M00S00758.edit +++| BLL8 WRITEW X2,LBUF,B7 00783 M00S00759.edit +++| INTRPT SET2 PROCESS TERMINAL INTERRUPT 00784 M00S00760.edit +++| PL X0,BLL7 IF LINES NOT ALL BLANKED 00785 M00S00761.edit +++| JP SET2 00786 M00S00762.edit +++| CHANGE EJECT 00787 M00S00763.edit +++|*** CHANGE (C) - CHANGE LINES. 00788 M00S00764.edit +++|* 00789 M00S00765.edit +++|* ONE OR MORE LINES OF TEXT ARE DELETED AND REPLACED WITH 00790 M00S00766.edit +++|* DATA ENTERED IN RESPONSE TO THE EDIT REQUEST * ENTER TEXT.* 00791 M00S00767.edit +++| 00792 M00S00768.edit +++| 00793 M00S00769.edit +++| CHANGE BSS 0 00794 M00S00770.edit +++| SX1 1 00795 M00S00771.edit +++| ZR X3,ADL1 IF NO STRING FIELDS 00796 M00S00772.edit +++| CHL1 SA2 X1+CHLA 00797 M00S00773.edit +++| BX6 X2 SET RJ FOR CHANGE/ADD 00798 M00S00774.edit +++| SX1 B0 00799 M00S00775.edit +++| SA2 EOFTF 00800 M00S00776.edit +++| SA6 CHL3 00801 M00S00777.edit +++| ZR X2,LTL11 IF POSITIONED AT EOF 00802 M00S00778.edit +++| RJ PSO 00803 M00S00779.edit +++| RJ ETX 00804 M00S00780.edit +++| ZR X0,SET2 IF NO TEXT ENTERED 00805 M00S00781.edit +++| BX7 X2 00806 M00S00782.edit +++| SA7 A6-B1 SAVE FET ADDRESS 00807 M00S00783.edit +++| CHL2 SA1 STPHR2 00808 M00S00784.edit +++| ZR X1,CHL3 IF NOT ELLIPSIS OPERATION 00809 M00S00785.edit +++| BX0 X0-X0 00810 M00S00786.edit +++| SX6 A1 SEARCH/READ FOR PHRASE ENDING ELLIPSIS 00811 M00S00787.edit +++| RJ SRO 00812 M00S00788.edit +++| SA3 X5+5 00813 M00S00789.edit +++| SX6 X3+B4 ADVANCE READ FILE LINE POSITION 00814 M00S00790.edit +++| SA6 A3 00815 M00S00791.edit +++| CHL3 SX2 -1 GET NEXT LINE 00816 M00S00792.edit +++| RJ ATF 00817 M00S00793.edit +++|* SX2 1 ADVANCE LINE FOR ADD COMMAND 00818 M00S00794.edit +++|* RJ AFW 00819 M00S00795.edit +++| SA2 RTFP TEXT FILE FET ADDRESS 00820 M00S00796.edit +++| SA3 X2+5 00821 M00S00797.edit +++| SX0 X3+ SET LINE COUNT OF REPLACEMENT DATA 00822 M00S00798.edit +++| SA0 X2+ 00823 M00S00799.edit +++| CHL4 READC A0,TBUF,LBUFL 00824 M00S00800.edit +++| SX0 X0-1 DECREMENT LINE COUNT 00825 M00S00801.edit +++| WRITEC A5,TBUF 00826 M00S00802.edit +++| NZ X0,CHL4 LOOP TO END OF TEXT 00827 M00S00803.edit +++| SA3 SEC 00828 M00S00804.edit +++| SX7 X3+B1 DECREMENT OPERATION COUNT 00829 M00S00805.edit +++| SA7 A3 00830 M00S00806.edit +++| ZR X7,CHL5 IF COUNTDOWN COMPLETE 00831 M00S00807.edit +++| INTRPT CHL6 PROCESS TERMINAL INTERRUPT 00832 M00S00808.edit +++| SA2 EOFTF 00833 M00S00809.edit +++| SA4 STPHR2 00834 M00S00810.edit +++| BX3 X2+X4 00835 M00S00811.edit +++| SX1 B0 00836 M00S00812.edit +++| ZR X3,CHL6 IF STRING OPERATION COMPLETE 00837 M00S00813.edit +++| SX6 A4-B1 00838 M00S00814.edit +++| BX0 X0-X0 LOCATE NEXT OCCURANCE OF /P1/ 00839 M00S00815.edit +++| RJ SFS 00840 M00S00816.edit +++| ZR X7,CHL6 IF END OF INFORMATION 00841 M00S00817.edit +++| SA2 RTFP 00842 M00S00818.edit +++| SA3 X2+B1 00843 M00S00819.edit +++| SX6 X3 SET OUT = FIRST 00844 M00S00820.edit +++| SA4 TBST 00845 M00S00821.edit +++| SA6 X2+3 00846 M00S00822.edit +++| ZR X4,CHL2 IF TEXT ALL IN BUFFER 00847 M00S00823.edit +++| REWIND X2 00848 M00S00824.edit +++| READ X2 REINITIATE INPUT 00849 M00S00825.edit +++| EQ CHL2 00850 M00S00826.edit +++| 00851 M00S00827.edit +++| CHL5 SA3 STPHR2 00852 M00S00828.edit +++| ZR X3,SET2 IF LINE REPLACEMENT COMPLETE 00853 M00S00829.edit +++| CHL6 SA2 NUM 00854 M00S00830.edit +++| SA4 A2+B1 NUMBER LINES PROCESSED 00855 M00S00831.edit +++| IX1 X2+X4 00856 M00S00832.edit +++| ZR X1,SET2 IF NONE CHANGED 00857 M00S00833.edit +++| RJ GSM 00858 M00S00834.edit +++| JP SET2 00859 M00S00835.edit +++| 00860 M00S00836.edit +++| 00861 M00S00837.edit +++| CHLA SX2 1 ADVANCE LINE FOR ADD COMMAND 00862 M00S00838.edit +++| RJ AFW 00863 M00S00839.edit +++| + SX2 -1 ADVANCE LINE FOR CHANGE COMMAND 00864 M00S00840.edit +++| RJ ATF 00865 M00S00841.edit +++| DELETE EJECT 00866 M00S00842.edit +++|*** DELETE (D) - DELETE LINES. 00867 M00S00843.edit +++|* 00868 M00S00844.edit +++|* ONE OR MORE LINES ARE DELETED FROM THE FILE BEING EDITED. 00869 M00S00845.edit +++|* ALL LINES OF A MULTI-LINE /PHRASE/ ARE DELETED. 00870 M00S00846.edit +++| 00871 M00S00847.edit +++| 00872 M00S00848.edit +++| DELETE BSS 0 00873 M00S00849.edit +++| SA2 EOFTF 00874 M00S00850.edit +++| ZR X2,LTL11 IF POSITIONED AT EOI 00875 M00S00851.edit +++| ZR X3,DLL3 IF STRING FIELDS EMPTY 00876 M00S00852.edit +++| RJ PSO 00877 M00S00853.edit +++| DLL1 SA1 STPHR2 00878 M00S00854.edit +++| ZR X1,DLL2 IF NOT ELLIPSIS OPERATION 00879 M00S00855.edit +++| BX0 X0-X0 00880 M00S00856.edit +++| SX6 A1 00881 M00S00857.edit +++| RJ SRO FIND PHRASE ENDING ELLIPSIS 00882 M00S00858.edit +++| SA4 X5+5 00883 M00S00859.edit +++| SX7 X4+B4 ADVANCE READ FILE LINE POSITION 00884 M00S00860.edit +++| SA7 A4 00885 M00S00861.edit +++| DLL2 READC X5,LBUF,LBUFL 00886 M00S00862.edit +++| NZ X1,DLL4 IF EOF ENCOUNTERED 00887 M00S00863.edit +++| SA4 X5+5 00888 M00S00864.edit +++| SX6 X4+B1 BUMP LINE ADVANCE 00889 M00S00865.edit +++| SA6 A4 00890 M00S00866.edit +++| SA3 SEC 00891 M00S00867.edit +++| SX7 X3+B1 DECREMENT NUMERIC COUNT 00892 M00S00868.edit +++| SA7 A3 00893 M00S00869.edit +++| ZR X7,SET2 IF OPERATION COMPLETE 00894 M00S00870.edit +++| INTRPT CHL6 PROCESS TERMINAL INTERRPUT 00895 M00S00871.edit +++| BX0 X0-X0 00896 M00S00872.edit +++| SX6 B0 00897 M00S00873.edit +++| RJ SFS 00898 M00S00874.edit +++| NZ X7,DLL1 IF NEXT OCCURANCE OF /P1/ FOUND 00899 M00S00875.edit +++| JP CHL6 00900 M00S00876.edit +++| 00901 M00S00877.edit +++| DLL3 BX2 -X0 00902 M00S00878.edit +++| RJ ATF ADVANCE FILE OVER LINES BEING DELETED 00903 M00S00879.edit +++| JP SET2 00904 M00S00880.edit +++| 00905 M00S00881.edit +++| DLL4 CEPF DLL2,4 00906 M00S00882.edit +++| SA7 EOFTF 00907 M00S00883.edit +++| SA3 SEC 00908 M00S00884.edit +++| SX6 X3+B1 DECREMENT COUNT 00909 M00S00885.edit +++| SA6 A3 00910 M00S00886.edit +++| ZR X6,CHL5 IF OPERATION COMPLETE 00911 M00S00887.edit +++| JP CHL6 TERMINATE PROCESSING 00912 M00S00888.edit +++| EXTRACT EJECT 00913 M00S00889.edit +++|*** EXTRACT (E) - EXTRACT LINES. 00914 M00S00890.edit +++|* 00915 M00S00891.edit +++|* ONE OR MORE LINES OF THE TEXT FILE ARE COPIED TO 00916 M00S00892.edit +++|* THE STRING BUFFER (SCRATCH FILE SCR2) FOLLOWING THE LAST 00917 M00S00893.edit +++|* ENTRY TO THE BUFFER. 00918 M00S00894.edit +++| 00919 M00S00895.edit +++| 00920 M00S00896.edit +++| XTL5 SX0 0 00921 M00S00897.edit +++| RJ CST COUNT PHRASES 00922 M00S00898.edit +++| SA2 LCTB 00923 M00S00899.edit +++| RJ ATF ADVANCE TO LINE CONTAINING PHRASE 00924 M00S00900.edit +++| SA1 NUM 00925 M00S00901.edit +++| ZR X1,XTL5.1 IF SPECIFIED NUMBER FOUND 00926 M00S00902.edit +++| RJ GSM SEND MESSAGE WITH PHRASE COUNT 00927 M00S00903.edit +++| XTL5.1 SA4 STPHR2 CHECK FOR ELLIPSIS 00928 M00S00904.edit +++| ZR X4,XTL6 IF NOT ELLIPSIS OPERATION 00929 M00S00905.edit +++| SA1 LCTB COUNT TO NTH LINE CONTAINING /P1/ 00930 M00S00906.edit +++| SA2 A1+B1 00931 M00S00907.edit +++| IX4 X2-X1 NUMBER LINES ACROSS ELLIPSIS 00932 M00S00908.edit +++| XTL6 SX0 1 00933 M00S00909.edit +++| BX3 X3-X3 00934 M00S00910.edit +++| IX0 X0+X4 00935 M00S00911.edit +++| XTRACT BSS 0 00936 M00S00912.edit +++| SA2 EOFTF 00937 M00S00913.edit +++| ZR X2,LTL11 IF POSITIONED AT EOI 00938 M00S00914.edit +++| SX6 B0+ 00939 M00S00915.edit +++| SA6 XTSB CLEAR BACKSPACE INDICATOR 00940 M00S00916.edit +++| NZ X3,XTL5 IF STRING FIELDS PRESENT 00941 M00S00917.edit +++| RJ PSB 00942 M00S00918.edit +++| WRITEC B,LBUF COPY CURRENT LINE TO STRING BUFFER 00943 M00S00919.edit +++| SA4 B+5 00944 M00S00920.edit +++| IX6 X4+X0 BUMP STRING BUFFER LINE COUNT 00945 M00S00921.edit +++| SA6 A4 00946 M00S00922.edit +++| SX0 X0-1 00947 M00S00923.edit +++| ZR X0,XTL2 IF TRANSFER COMPLETE 00948 M00S00924.edit +++| XTL1 READC X5,LBUF,LBUFL 00949 M00S00925.edit +++| NZ X1,XTL4 IF EOF 00950 M00S00926.edit +++| SB7 B6-LBUF 00951 M00S00927.edit +++| SX0 X0-1 DECREMENT LINE COUNT 00952 M00S00928.edit +++| WRITEW B,LBUF,B7 00953 M00S00929.edit +++| INTRPT XTL3 PROCESS TERMINAL INTERRUPT 00954 M00S00930.edit +++| XTL2 NZ X0,XTL1 IF TRANSFER INCOMPLETE 00955 M00S00931.edit +++| XTL3 WRITER B FLUSH BUFFER 00956 M00S00932.edit +++| SX7 -1 00957 M00S00933.edit +++| SA7 XTSP 00958 M00S00934.edit +++| JP LTL5 00959 M00S00935.edit +++| 00960 M00S00936.edit +++| XTL4 CEPF XTL1,4 00961 M00S00937.edit +++| SA3 B+5 00962 M00S00938.edit +++| IX6 X3-X0 READJUST STRING BUFFER LINE COUNT 00963 M00S00939.edit +++| SA6 A3 00964 M00S00940.edit +++| SX0 0 CLEAR LINE COUNT 00965 M00S00941.edit +++| EQ XTL2 00966 M00S00942.edit +++| FIND EJECT 00967 M00S00943.edit +++|*** FIND (F) - FIND LINES. 00968 M00S00944.edit +++|* 00969 M00S00945.edit +++|* LISTS THE NTH LINE OR THE NTH LINE(S) CONTAINING /PHRASE/. 00970 M00S00946.edit +++|* THE SEARCH POINTER IS SET TO THE NTH LINE OR TO THE NTH 00971 M00S00947.edit +++|* LINE CONTAINING /P1/. 00972 M00S00948.edit +++| 00973 M00S00949.edit +++| 00974 M00S00950.edit +++| FIND BSS 0 00975 M00S00951.edit +++| SA1 EOFTF 00976 M00S00952.edit +++| ZR X1,LTL11 IF POSITIONED AT EOI 00977 M00S00953.edit +++| NZ X3,FDL2 IF STRING FIELDS PRESENT 00978 M00S00954.edit +++| SX6 X0+ 00979 M00S00955.edit +++| SA6 LCTB SET LINE ADVANCE 00980 M00S00956.edit +++| RJ AFW 00981 M00S00957.edit +++| ZR X7,FDL1 IF POSITIONED AT EOI 00982 M00S00958.edit +++| WRITEC O,LBUF 00983 M00S00959.edit +++| JP SET8 00984 M00S00960.edit +++| 00985 M00S00961.edit +++| FDL1 WRITEC O,EFM ISSUE EOF MESSAGE 00986 M00S00962.edit +++| JP SET7 00987 M00S00963.edit +++| 00988 M00S00964.edit +++| FDL2 SX0 B0 00989 M00S00965.edit +++| BX1 X1-X1 00990 M00S00966.edit +++| RJ CST ASSURE SPECIFIED PHRASE EXISTS 00991 M00S00967.edit +++| SA2 LCTB 00992 M00S00968.edit +++| RJ AFW ADVANCE W/O SEARCH TO PROPER LINE 00993 M00S00969.edit +++| SA0 STPHR2 00994 M00S00970.edit +++| WRITEC O,LBUF COPY LINE TO OUTPUT 00995 M00S00971.edit +++| RJ CTI CHECK TERMINAL INTERRUPTS 00996 M00S00972.edit +++| NZ X3,FDL6 IF INTERRUPTED 00997 M00S00973.edit +++| SA4 A0 00998 M00S00974.edit +++| ZR X4,FDL6 IF NOT ELLIPSIS OPERATION 00999 M00S00975.edit +++| BX1 X1-X1 01000 M00S00976.edit +++| SA2 STPHR1 SET POINTERS ABOUT /P1/ 01001 M00S00977.edit +++| RJ SLS 01002 M00S00978.edit +++| SA2 A0 CHECK LINE FOR PHRASE ENDING ELLIPSIS 01003 M00S00979.edit +++| RJ SLS 01004 M00S00980.edit +++| NZ B7,FDL4 IF NOT ONE LINE ELLIPSIS 01005 M00S00981.edit +++| EQ FDL6 01006 M00S00982.edit +++| 01007 M00S00983.edit +++| FDL3 SA4 PFADR SWITCH TO PRIMARY TEXT FILE 01008 M00S00984.edit +++| SX5 X4+ 01009 M00S00985.edit +++| FDL4 READC X5,LBUF,LBUFL 01010 M00S00986.edit +++| NZ X1,FDL3 IF EOR 01011 M00S00987.edit +++| RJ CTI CHECK TERMINAL INTERRUPTS 01012 M00S00988.edit +++| NZ X3,FDL5 IF INTERRUPTED 01013 M00S00989.edit +++| WRITEC O,LBUF 01014 M00S00990.edit +++| BX1 X1-X1 SEARCH LINE FOR PHRASE ENDING ELLIPSIS 01015 M00S00991.edit +++| SA2 A0 01016 M00S00992.edit +++| RJ SLS 01017 M00S00993.edit +++| NZ B7,FDL4 IF PHRASE NOT FOUND 01018 M00S00994.edit +++| FDL5 RJ RTF REPOSITION TEXT FILE 01019 M00S00995.edit +++| FDL6 SA1 NUM 01020 M00S00996.edit +++| RJ GSM 01021 M00S00997.edit +++| JP SET8 01022 M00S00998.edit +++| LIST EJECT 01023 M00S00999.edit +++|*** LIST (L) - LIST LINES. 01024 M00S01000.edit +++|* 01025 M00S01001.edit +++|* LISTS N LINES OR N GROUPS OF LINES CONTAINING /PHRASE/. 01026 M00S01002.edit +++| 01027 M00S01003.edit +++| 01028 M00S01004.edit +++| LIST BSS 0 01029 M00S01005.edit +++| SA2 EOFTF 01030 M00S01006.edit +++| ZR X2,LTL11 IF FILE AT EOI 01031 M00S01007.edit +++| NZ X3,LTL6 IF STRING FIELDS PRESENT 01032 M00S01008.edit +++| NZ X4,MAINX IF SYNTAX ERROR 01033 M00S01009.edit +++| LTL1 SX0 X0-1 DECREMENT COUNTER 01034 M00S01010.edit +++| WRITEC O,LBUF 01035 M00S01011.edit +++| RJ CTI CHECK TERMINAL INTERRUPTS 01036 M00S01012.edit +++| NZ X3,MAIN IF INTERRUPTED 01037 M00S01013.edit +++| NZ X0,LTL3 IF MORE THAN ONE LINE TO BE LISTED 01038 M00S01014.edit +++| EQ MAIN 01039 M00S01015.edit +++| 01040 M00S01016.edit +++| LTL2 SB7 B6-LBUF 01041 M00S01017.edit +++| WRITEW O,LBUF,B7 01042 M00S01018.edit +++| RJ CTI CLEAR TERMINAL INTERRUPTS 01043 M00S01019.edit +++| NZ X3,LTL5 IF INTERRUPTED 01044 M00S01020.edit +++| SX0 X0-1 01045 M00S01021.edit +++| ZR X0,LTL5 IF LISTING COMPLETE 01046 M00S01022.edit +++| LTL3 READC X5,LBUF,LBUFL 01047 M00S01023.edit +++| ZR X1,LTL2 IF NOT END OF DATA 01048 M00S01024.edit +++| CEPF LTL3,4 01049 M00S01025.edit +++| LTL4 WRITEC O,EFM 01050 M00S01026.edit +++| LTL5 RJ RTF REPOSITION TEXT FILES 01051 M00S01027.edit +++| JP MAIN 01052 M00S01028.edit +++| 01053 M00S01029.edit +++| LTL6 SX0 0 01054 M00S01030.edit +++| ZR X4,LTL7 IF NOT LOOKING FOR ELLIPSIS 01055 M00S01031.edit +++| RJ CST COUNT ELLIPSI 01056 M00S01032.edit +++| SA2 LCT 01057 M00S01033.edit +++| RJ ATF ADVANCE WITHOUT SEARCH TO /P1/ 01058 M00S01034.edit +++| LTL7 SX6 STPHR1 LOCATE /P1/ 01059 M00S01035.edit +++| RJ SRO 01060 M00S01036.edit +++| ZR X7,LTL4 IF STRING NOT FOUND 01061 M00S01037.edit +++| SA4 STPHR2 01062 M00S01038.edit +++| SX0 1 01063 M00S01039.edit +++| ZR X4,LTL10 IF NOT LISTING ELLIPSIS 01064 M00S01040.edit +++| LTL8 SA2 STPHR2 SEARCH FOR /P2/ 01065 M00S01041.edit +++| RJ SLS 01066 M00S01042.edit +++| ZR B7,LTL10 IF END OF ELLIPSIS FOUND 01067 M00S01043.edit +++| WRITEC O,LBUF 01068 M00S01044.edit +++| RJ CTI CHECK TERMINAL INTERRUPTS 01069 M00S01045.edit +++| NZ X3,LTL5 IF INTERRUPTED 01070 M00S01046.edit +++| LTL9 READC X5,LBUF,LBUFL 01071 M00S01047.edit +++| ZR X1,LTL8 IF COPY COMPLETED 01072 M00S01048.edit +++| SA4 PFADR 01073 M00S01049.edit +++| BX5 X4 SWITCH TO PRIMARY TEXT FILE 01074 M00S01050.edit +++| EQ LTL9 01075 M00S01051.edit +++| 01076 M00S01052.edit +++| LTL10 WRITEC O,LBUF COPY LINE TO OUTPUT 01077 M00S01053.edit +++| RJ CTI CHECK TERMINAL INTERRUPTS 01078 M00S01054.edit +++| NZ X3,LTL5 IF INTERRUPTED 01079 M00S01055.edit +++| SA3 SEC 01080 M00S01056.edit +++| SX7 X3+B1 DECREMENT OPERATION COUNT 01081 M00S01057.edit +++| SA7 A3 01082 M00S01058.edit +++| NZ X7,LTL7 IF NOT DONE 01083 M00S01059.edit +++| EQ LTL5 01084 M00S01060.edit +++| 01085 M00S01061.edit +++| LTL11 WRITEC O,EFM ISSUE EOF MESSAGE 01086 M00S01062.edit +++| JP MAIN 01087 M00S01063.edit +++| NUMBER EJECT 01088 M00S01064.edit +++|*** NUMBER (N) - COUNT LINES. 01089 M00S01065.edit +++|* 01090 M00S01066.edit +++|* COUNTS LINES OR THE NUMBER OF LINES CONTAINING 01091 M00S01067.edit +++|* /PHRASE/ FROM THE SEARCH POINTER TO END OF FILE. 01092 M00S01068.edit +++| 01093 M00S01069.edit +++| 01094 M00S01070.edit +++| NUMBER BSS 0 01095 M00S01071.edit +++| SA2 EOFTF 01096 M00S01072.edit +++| NZ X3,NRS1 IF STRING FIELDS SPECIFIED 01097 M00S01073.edit +++| NRL1 ZR X2,LTL11 IF FILE AT EOI 01098 M00S01074.edit +++| SX0 B0 01099 M00S01075.edit +++| BX2 X5 01100 M00S01076.edit +++| NRL2 INTRPT NRL3 PROCESS TERMINAL INTERRUPT 01101 M00S01077.edit +++| SX0 X0-1 COUNT LINES READ 01102 M00S01078.edit +++| READC X2,LBUF,LBUFL 01103 M00S01079.edit +++| ZR X1,NRL2 IF NOT EOR 01104 M00S01080.edit +++| SA2 PFADR 01105 M00S01081.edit +++| BX1 -X0 SET COUNT FOR CONVERSION 01106 M00S01082.edit +++| IX7 X2-X5 01107 M00S01083.edit +++| SX0 X0+B1 01108 M00S01084.edit +++| BX5 X2 01109 M00S01085.edit +++| NZ X7,NRL2 IF NOT PRIMARY EDIT FILE 01110 M00S01086.edit +++| RJ CDD CONVERT LINE COUNT TO DISPLAY CODE 01111 M00S01087.edit +++| SA6 NRLA 01112 M00S01088.edit +++| RJ RTF REPOSITION FILES 01113 M00S01089.edit +++| WRITEC O,NRLA 01114 M00S01090.edit +++| JP MAIN 01115 M00S01091.edit +++| 01116 M00S01092.edit +++| NRL3 BX1 -X0 SET COUNT FOR CONVERSION 01117 M00S01093.edit +++| RJ CDD 01118 M00S01094.edit +++| SA6 NRLB 01119 M00S01095.edit +++| RJ RTF REPOSITION FILES 01120 M00S01096.edit +++| WRITEC O,NRLB 01121 M00S01097.edit +++| JP MAIN 01122 M00S01098.edit +++| 01123 M00S01099.edit +++| 01124 M00S01100.edit +++| NRLA DATA C* LINES TO EOF.* 01125 M00S01101.edit +++| NRLB DATA C* LINES TO INTERRUPT.* 01126 M00S01102.edit +++| ADDS TITLE STRING COMMAND PROCESSORS. 01127 M00S01103.edit +++|*** ADDS (AS) - ADD STRINGS. 01128 M00S01104.edit +++|* 01129 M00S01105.edit +++|* A CHARACTER STRING IS ADDED TO THE TEXT FILE IMMEDIATELY 01130 M00S01106.edit +++|* FOLLOWING EACH OF N OCCURENCES OF /P1/. 01131 M00S01107.edit +++| 01132 M00S01108.edit +++| 01133 M00S01109.edit +++| ADDS BSS 0 01134 M00S01110.edit +++| ZR X3,ADD IF NO STRING FIELD 01135 M00S01111.edit +++| SA2 ADSA 01136 M00S01112.edit +++| EQ CHS1 PROCESS NEW TEXT 01137 M00S01113.edit +++| 01138 M00S01114.edit +++| 01139 M00S01115.edit +++| ADSA SA1 LBW SAVE POINTER TO END OF STRING 01140 M00S01116.edit +++| SA2 STPHR2 01141 M00S01117.edit +++| BLANKS EJECT 01142 M00S01118.edit +++|*** BLANKS (BS) - BLANK STRINGS. 01143 M00S01119.edit +++|* 01144 M00S01120.edit +++|* EACH OF N OCCURRENCES OF /PHRASE/ ARE REPLACED WITH BLANKS. 01145 M00S01121.edit +++| 01146 M00S01122.edit +++| 01147 M00S01123.edit +++| BLANKS BSS 0 01148 M00S01124.edit +++| SA2 EOFTF 01149 M00S01125.edit +++| ZR X2,LTL11 IF EDIT FILE AT EOI 01150 M00S01126.edit +++| ZR X3,BLL6 IF STRING FIELDS EMPTY 01151 M00S01127.edit +++| RJ PSO 01152 M00S01128.edit +++| BLS1 SA2 STPHR2 ELLIPSIS FIELD POINTER 01153 M00S01129.edit +++| SA1 FBW 01154 M00S01130.edit +++| ZR X2,BLS2 IF NOT ELLIPSIS OPERATION 01155 M00S01131.edit +++| BX6 X1 01156 M00S01132.edit +++| SA6 A7+B1 01157 M00S01133.edit +++| NG X7,BLS4 IF /P1/ AT END OF LINE 01158 M00S01134.edit +++| RJ SLS 01159 M00S01135.edit +++| NZ B7,BLS4 IF NOT SINGLE LINE ELLIPSIS 01160 M00S01136.edit +++| SA1 SLP 01161 M00S01137.edit +++| BLS2 SA4 LBW 01162 M00S01138.edit +++| RJ IBC REPLACE STRING WITH BLANKS 01163 M00S01139.edit +++| SA3 SEC 01164 M00S01140.edit +++| SX7 X3+B1 DECREMENT SPECIFICATOR COUNT 01165 M00S01141.edit +++| SA7 A3 01166 M00S01142.edit +++| ZR X7,DLS7 IF PROCESSING COMPLETE 01167 M00S01143.edit +++| INTRPT DLS7 PROCESS TERMINAL INTERRUPT 01168 M00S01144.edit +++| SA1 LBW 01169 M00S01145.edit +++| SX0 B1 01170 M00S01146.edit +++| NG X1,BLS3 IF PHRASE AT END OF LINE 01171 M00S01147.edit +++| BX0 X0-X0 01172 M00S01148.edit +++| BLS3 SX6 STPHR1 SEARCH FILE FOR /P1/ 01173 M00S01149.edit +++| RJ SFS 01174 M00S01150.edit +++| NZ X7,BLS1 IF NOT EOF 01175 M00S01151.edit +++| JP CHS14 01176 M00S01152.edit +++| 01177 M00S01153.edit +++| BLS4 SA1 SLP 01178 M00S01154.edit +++| RJ SLT SET LINE TERMINATOR 01179 M00S01155.edit +++| SX2 A5 01180 M00S01156.edit +++| SX0 B1 DUMP LINE BUFFER 01181 M00S01157.edit +++| WRITEC X2,LBUF 01182 M00S01158.edit +++| SX6 STPHR2 READ/SEARCH FOR /P2/ 01183 M00S01159.edit +++| RJ SRO 01184 M00S01160.edit +++| SA4 X5+5 01185 M00S01161.edit +++| SX7 X4+B4 ADVANCE READ FILE LINE POSITION 01186 M00S01162.edit +++| SA7 A4 01187 M00S01163.edit +++| EQ B2,B1,BLS6 IF END OF ELLIPSIS IN NEXT LINE 01188 M00S01164.edit +++| SX0 B1-B2 01189 M00S01165.edit +++| SX2 A5 01190 M00S01166.edit +++| BLS5 WRITEC X2,TCHM WRITE BLANK LINES 01191 M00S01167.edit +++| SX0 X0+1 01192 M00S01168.edit +++| NZ X0,BLS5 IF LINES NOT ALL WRITTEN 01193 M00S01169.edit +++| BLS6 SX1 LBUF 01194 M00S01170.edit +++| EQ BLS2 PROCESS LINE TERMINATING ELLIPSIS 01195 M00S01171.edit +++| CHANGES EJECT 01196 M00S01172.edit +++|*** CHANGES (CS) - CHANGE STRINGS. 01197 M00S01173.edit +++|* 01198 M00S01174.edit +++|* EACH OF N OCCURRENCES OF /PHRASE/ ARE DELETED FROM THE TEXT 01199 M00S01175.edit +++|* FILE AND REPLACED WITH THE CHARACTER STRING ENTERED IN 01200 M00S01176.edit +++|* RESPONSE TO THE REQUEST * ENTER TEXT.* 01201 M00S01177.edit +++| 01202 M00S01178.edit +++| 01203 M00S01179.edit +++| CHANGES BSS 0 01204 M00S01180.edit +++| ZR X3,CHANGE IF NO STRING FIELDS 01205 M00S01181.edit +++| SA2 CHSA 01206 M00S01182.edit +++| CHS1 BX6 X2 STORE INSTRUCTIONS FOR CHANGES/ADDS 01207 M00S01183.edit +++| SA6 CHS2 01208 M00S01184.edit +++| SA2 EOFTF CHECK FILE STATUS 01209 M00S01185.edit +++| ZR X2,LTL11 IF POSITIONED AT EOI 01210 M00S01186.edit +++| RJ PSO 01211 M00S01187.edit +++| RJ ETX 01212 M00S01188.edit +++| ZR X0,SET2 IF NO TEXT ENTERED 01213 M00S01189.edit +++| SX7 B0+ 01214 M00S01190.edit +++| SA7 STRB 01215 M00S01191.edit +++| LX7 X2 01216 M00S01192.edit +++| BX6 -X0 01217 M00S01193.edit +++| SA7 RTFP 01218 M00S01194.edit +++| SA6 LCT SAVE COUNT OF LINES ENTERED 01219 M00S01195.edit +++| CHS2 SA1 FBW 01220 M00S01196.edit +++| SA2 STPHR2 01221 M00S01197.edit +++|* SA1 LBW IF ADDS COMMAND 01222 M00S01198.edit +++|* SA2 STPHR2 01223 M00S01199.edit +++| BX6 X1 SAVE POINTER TO START OF STRING 01224 M00S01200.edit +++| NO 01225 M00S01201.edit +++| SA6 SLP 01226 M00S01202.edit +++| ZR X2,CHS3 IF NOT ELLIPSIS OPERATION 01227 M00S01203.edit +++| RJ SLS 01228 M00S01204.edit +++| ZR B7,CHS3 IF ELLIPSIS IN SINGLE LINE 01229 M00S01205.edit +++| SX7 STRB+1 01230 M00S01206.edit +++| SX0 1 01231 M00S01207.edit +++| SA7 LBA CHANGE LINE BUFFER POINTER 01232 M00S01208.edit +++| SX6 STPHR2 01233 M00S01209.edit +++| RJ SRO READ/SEARCH FOR PHRASE ENDING ELLIPSIS 01234 M00S01210.edit +++| SA7 STRB 01235 M00S01211.edit +++| SA3 X5+5 01236 M00S01212.edit +++| SA6 A6+B1 01237 M00S01213.edit +++| SX7 X3+B4 ADVANCE READ FILE LINE POSITION 01238 M00S01214.edit +++| SA2 RTFP 01239 M00S01215.edit +++| SA7 A3 01240 M00S01216.edit +++| SA0 X2 RESTORE REPLACEMENT FILE POINTER 01241 M00S01217.edit +++| EQ CHS5 01242 M00S01218.edit +++| 01243 M00S01219.edit +++| CHS3 SA3 LBW 01244 M00S01220.edit +++| NG X3,CHS5 IF PHRASE AT END OF LINE 01245 M00S01221.edit +++| SA4 LBL 01246 M00S01222.edit +++| SX1 STRB+1 FIX POINTER TO START OF TEMPORARY BUFFER 01247 M00S01223.edit +++| SX2 X3 01248 M00S01224.edit +++| SB3 X4+ END OF LINE ADDRESS 01249 M00S01225.edit +++| BX7 X3-X2 01250 M00S01226.edit +++| SB2 X3 ADDRESS OF TEXT FOLLOWING STRING 01251 M00S01227.edit +++| BX6 X7+X1 01252 M00S01228.edit +++| SA6 STRB SET POINTER TO TEXT IN TEMPORARY BUFFER 01253 M00S01229.edit +++| CHS4 SA1 B2 01254 M00S01230.edit +++| BX6 X1 MOVE TEXT FOLLOWING STRING 01255 M00S01231.edit +++| SB2 B2+B1 01256 M00S01232.edit +++| SA6 A6+B1 01257 M00S01233.edit +++| NE B2,B3,CHS4 IF MOVE INCOMPLETE 01258 M00S01234.edit +++| SX7 A6+B1 01259 M00S01235.edit +++| SA7 A4+B1 SET END OF LINE FOR DATA MOVED 01260 M00S01236.edit +++| CHS5 SB7 LBUFL 01261 M00S01237.edit +++| SA3 SLP 01262 M00S01238.edit +++| READC A0,X3+B1,B7 01263 M00S01239.edit +++| SA1 SLP 01264 M00S01240.edit +++| SX7 B6 END OF FIRST REPLACEMENT LINE 01265 M00S01241.edit +++| SX2 X1+B1 01266 M00S01242.edit +++| SA7 LBL 01267 M00S01243.edit +++| SB6 LBUF+LBUFL-1 LWA DESTINATION BUFFER 01268 M00S01244.edit +++| RJ CTL COMPRESS TEXT 01269 M00S01245.edit +++| SA3 LCT 01270 M00S01246.edit +++| SX0 X3+1 01271 M00S01247.edit +++| NZ X0,CHS6 IF MORE THAN ONE LINE REPLACEMENT FILE 01272 M00S01248.edit +++| SA1 SLP 01273 M00S01249.edit +++| PL X1,CHS10 IF NO TRUNCATION OF NEW TEXT OCCURRED 01274 M00S01250.edit +++| EQ CHS11 ELIMINATE REMAINDER OF OLD LINE 01275 M00S01251.edit +++| 01276 M00S01252.edit +++| CHS6 SA1 SLP 01277 M00S01253.edit +++| RJ SLT SET LINE TERMINATOR 01278 M00S01254.edit +++| CHS7 WRITEC A5+,LBUF 01279 M00S01255.edit +++| READC A0,LBUF,LBUFL 01280 M00S01256.edit +++| SX0 X0+B1 01281 M00S01257.edit +++| NZ X0,CHS7 IF COPY INCOMPLETE 01282 M00S01258.edit +++| SA2 B6-B1 01283 M00S01259.edit +++| MX1 -6 01284 M00S01260.edit +++| NZ X2,CHS8 IF EOL NOT ON WORD BOUNDARY 01285 M00S01261.edit +++| SA3 A2-B1 01286 M00S01262.edit +++| SX4 A2-LBUF 01287 M00S01263.edit +++| ZR X4,CHS9 IF BLANK LINE 01288 M00S01264.edit +++| BX4 -X1*X3 01289 M00S01265.edit +++| NZ X4,CHS9 IF FULL WORD 01290 M00S01266.edit +++| SA2 A3 01291 M00S01267.edit +++| CHS8 SX0 -10 01292 M00S01268.edit +++| CHS8.1 LX2 54 01293 M00S01269.edit +++| BX4 -X1*X2 ISOLATE CHARACTER 01294 M00S01270.edit +++| SX0 X0+B1 01295 M00S01271.edit +++| ZR X4,CHS8.1 IF *00* CHARACTER 01296 M00S01272.edit +++| LX0 24 POSITION CHARACTER POINTER 01297 M00S01273.edit +++| CHS9 SX4 A2 01298 M00S01274.edit +++| IX7 X4-X0 FORM POINTER TO END OF TEXT 01299 M00S01275.edit +++| SA7 SLP 01300 M00S01276.edit +++| CHS10 SA2 STRB 01301 M00S01277.edit +++| ZR X2,CHS11 IF NO DATA AFTER STRING/ELLIPSIS 01302 M00S01278.edit +++| SA4 BAC 01303 M00S01279.edit +++| SA1 SLP 01304 M00S01280.edit +++| RJ BSP BACKSPACE POINTER 01305 M00S01281.edit +++| SA3 TBL 01306 M00S01282.edit +++| BX7 X3 ADDRESS ENDING DATA IN TEMPORARY BUFFER 01307 M00S01283.edit +++| LX6 X1 01308 M00S01284.edit +++| SA7 LBL 01309 M00S01285.edit +++| SA6 LBW 01310 M00S01286.edit +++| SB6 LBUF+LBUFL-1 LWA DESTINATION BUFFER 01311 M00S01287.edit +++| RJ CTL APPEND TEXT TO NEW LINE 01312 M00S01288.edit +++| CHS11 SA3 SEC 01313 M00S01289.edit +++| SX6 LBUF RESET BUFFER ADDRESS 01314 M00S01290.edit +++| SX7 X3+B1 01315 M00S01291.edit +++| SA7 A3 OPERATION COUNT DECREMENTED 01316 M00S01292.edit +++| SA6 LBA 01317 M00S01293.edit +++| ZR X7,DLS6 IF PROCESSING COMPLETE 01318 M00S01294.edit +++| INTRPT DLS6 PROCESS TEMINAL INTERRUPT 01319 M00S01295.edit +++| SA3 A0+B1 01320 M00S01296.edit +++| SX6 X3 SET OUT = FIRST 01321 M00S01297.edit +++| SA4 TBST 01322 M00S01298.edit +++| SA6 A0+3 01323 M00S01299.edit +++| ZR X4,CHS12 IF ALL TEXT IN BUFFER 01324 M00S01300.edit +++| REWIND A0+ 01325 M00S01301.edit +++| READ X2 01326 M00S01302.edit +++| CHS12 BX7 X7-X7 01327 M00S01303.edit +++| SA3 STRB 01328 M00S01304.edit +++| SX1 B1 01329 M00S01305.edit +++| ZR X3,CHS13 IF REPLACEMENT DATA ENDED LINE 01330 M00S01306.edit +++| SA7 STRB 01331 M00S01307.edit +++| CHS13 SX6 STPHR1 LOOK FOR NEXT OCCURANCE OF /P1/ 01332 M00S01308.edit +++| RJ SML 01333 M00S01309.edit +++| SA4 RTFP 01334 M00S01310.edit +++| SA0 X4+ 01335 M00S01311.edit +++| CHS14 NZ X7,CHS2 IF STRING FOUND 01336 M00S01312.edit +++| SA2 SEC 01337 M00S01313.edit +++| SA7 EOFTF 01338 M00S01314.edit +++| SA3 A2-B1 GET NUMBER OPERATIONS COMPLETED 01339 M00S01315.edit +++| IX1 X3+X2 01340 M00S01316.edit +++| RJ GSM ISSUE DIAGNOSTIC 01341 M00S01317.edit +++| JP SET2 01342 M00S01318.edit +++| 01343 M00S01319.edit +++| 01344 M00S01320.edit +++| CHSA SA1 FBW SAVE POINTER TO START OF STRING 01345 M00S01321.edit +++| SA2 STPHR2 01346 M00S01322.edit +++| DELETES EJECT 01347 M00S01323.edit +++|*** DELETES (DS) - DELETE STRINGS. 01348 M00S01324.edit +++|* 01349 M00S01325.edit +++|* N OCCURRENCES OF /PHRASE/ ARE DELETED FROM THE TEXT FILE. 01350 M00S01326.edit +++|* DATA FOLLOWING /PHRASE/ WITHIN A LINE IS SHIFTED LEFT. 01351 M00S01327.edit +++| 01352 M00S01328.edit +++| 01353 M00S01329.edit +++| DLETES BSS 0 01354 M00S01330.edit +++| SA2 EOFTF 01355 M00S01331.edit +++| ZR X2,LTL11 IF FILE AT EOI 01356 M00S01332.edit +++| ZR X3,DLL3 IF NOT STRING OPERATION 01357 M00S01333.edit +++| RJ PSO 01358 M00S01334.edit +++| DLS1 SA1 FBW 01359 M00S01335.edit +++| SA2 STPHR2 01360 M00S01336.edit +++| ZR X2,DLS2 IF ELLIPSIS NOT SPECIFIED 01361 M00S01337.edit +++| BX6 X1 01362 M00S01338.edit +++| SA6 SLP 01363 M00S01339.edit +++| RJ SLS SEARCH CURRENT LINE FOR /P2/ 01364 M00S01340.edit +++| SA1 SLP 01365 M00S01341.edit +++| NZ B7,DLS4 IF NOT SINGLE LINE ELLIPSIS 01366 M00S01342.edit +++| DLS2 SA2 LBW 01367 M00S01343.edit +++| MX6 1 01368 M00S01344.edit +++| BX6 X6*X2 01369 M00S01345.edit +++| BX6 X1+X6 01370 M00S01346.edit +++| SA6 A2 01371 M00S01347.edit +++| SB6 B0+ 01372 M00S01348.edit +++| RJ CTL COMPRESS TEXT LEFT 01373 M00S01349.edit +++| SA1 LBUF 01374 M00S01350.edit +++| NZ X1,DLS3 IF NOT EMPTY LINE 01375 M00S01351.edit +++| SX2 -1 01376 M00S01352.edit +++| RJ ATF ADVANCE TEXT FILE 01377 M00S01353.edit +++| SX1 B0+ SET FLAG FOR EMPTY LINE 01378 M00S01354.edit +++| DLS3 SA3 SEC 01379 M00S01355.edit +++| SX7 X3+B1 DECREMENT SPECIFICATOR COUNT 01380 M00S01356.edit +++| SA7 A3 01381 M00S01357.edit +++| ZR X7,DLS6 IF PROCESSING COMPLETE 01382 M00S01358.edit +++| INTRPT DLS6 PROCESS TERMINAL INTERRUPT 01383 M00S01359.edit +++| SX6 STPHR1 SEARCH FILE FOR /P1/ 01384 M00S01360.edit +++| RJ SML 01385 M00S01361.edit +++| NZ X7,DLS1 IF PHRASE FOUND 01386 M00S01362.edit +++| JP CHS14 01387 M00S01363.edit +++| 01388 M00S01364.edit +++| DLS4 SX4 LBUF 01389 M00S01365.edit +++| BX7 X1-X4 01390 M00S01366.edit +++| SX0 B1 01391 M00S01367.edit +++| ZR X7,DLS5 IF ELLIPSIS STARTED LINE 01392 M00S01368.edit +++| RJ SLT 01393 M00S01369.edit +++| WRITEC A5,LBUF DUMP LINE BUFFER 01394 M00S01370.edit +++| DLS5 SX6 STPHR2 01395 M00S01371.edit +++| RJ SRO READ/SEARCH FOR /P2/ 01396 M00S01372.edit +++| SA4 X5+5 01397 M00S01373.edit +++| SX1 LBUF 01398 M00S01374.edit +++| SX7 X4+B4 ADVANCE READ FILE LINE POSITION 01399 M00S01375.edit +++| SA7 A4 01400 M00S01376.edit +++| EQ DLS2 PROCESS END OF MULTI-LINE ELLIPSIS 01401 M00S01377.edit +++| 01402 M00S01378.edit +++| DLS6 SA1 SLP 01403 M00S01379.edit +++| RJ SLT SET LINE TERMINATOR 01404 M00S01380.edit +++| DLS7 SA4 STPHR2 01405 M00S01381.edit +++| ZR X4,SET2 IF STRING OPERATION COMPLETE 01406 M00S01382.edit +++| SA1 NUM 01407 M00S01383.edit +++| RJ GSM ISSUE MESSAGE 01408 M00S01384.edit +++| JP SET2 01409 M00S01385.edit +++| EXTRACTS EJECT 01410 M00S01386.edit +++|*** EXTRACTS (ES) - EXTRACT STRINGS. 01411 M00S01387.edit +++|* 01412 M00S01388.edit +++|* THE NTH OCCURRENCE OF /PHRASE/ IS COPIED TO THE 01413 M00S01389.edit +++|* STRING BUFFER FILE (SCR2) FOLLOWING THE LAST ENTRY. 01414 M00S01390.edit +++| 01415 M00S01391.edit +++| 01416 M00S01392.edit +++| XTRACTS BSS 0 01417 M00S01393.edit +++| ZR X3,XTRACT IF NO STRING FIELDS 01418 M00S01394.edit +++| SA2 EOFTF 01419 M00S01395.edit +++| NZ X4,XTS8 IF ELLIPSIS SPECIFIED 01420 M00S01396.edit +++| BX0 X0-X0 01421 M00S01397.edit +++| SX6 A3 01422 M00S01398.edit +++| ZR X2,LTL11 IF POSITIONED AT EOF 01423 M00S01399.edit +++| RJ SRO 01424 M00S01400.edit +++| ZR X7,CST1 IF EOI 01425 M00S01401.edit +++| SX6 LBUF-1 01426 M00S01402.edit +++| XTS1 SA6 SLP 01427 M00S01403.edit +++| RJ PSB 01428 M00S01404.edit +++| SA3 STPHR2 01429 M00S01405.edit +++| SA1 LBW 01430 M00S01406.edit +++| NZ X3,XTS2 IF ELLIPSIS OPERATION 01431 M00S01407.edit +++| RJ SBT SET BLANK TERMINATOR 01432 M00S01408.edit +++| SX6 B6+ 01433 M00S01409.edit +++| SA6 XTSB 01434 M00S01410.edit +++| XTS2 SA2 A1-B1 01435 M00S01411.edit +++| SA1 A1+B1 01436 M00S01412.edit +++| SB6 B0+ 01437 M00S01413.edit +++| RJ CTL 01438 M00S01414.edit +++| SA1 SLP 01439 M00S01415.edit +++| RJ SLT SET LINE TERMINATOR 01440 M00S01416.edit +++| SA1 XTSB 01441 M00S01417.edit +++| SX6 B6+X1 01442 M00S01418.edit +++| SA6 A1 SAVE NUMBER OF BLANKS ADDED 01443 M00S01419.edit +++| WRITEC B,LBUF-1 COPY PHRASE TO STRING BUFFER 01444 M00S01420.edit +++| SX6 1R RESTORE NON-ZERO WORD PAD BEFORE LBUF 01445 M00S01421.edit +++| SA6 LBUF-1 01446 M00S01422.edit +++| SA4 STPHR2 01447 M00S01423.edit +++| NZ X4,XTS4 IF ELLIPSIS SPECIFIED 01448 M00S01424.edit +++| SX0 1 01449 M00S01425.edit +++| SA1 LBW 01450 M00S01426.edit +++| NG X1,XTS3 IF STRING AT END OF LINE 01451 M00S01427.edit +++| SA1 SLP 01452 M00S01428.edit +++| SX4 B1 01453 M00S01429.edit +++| RJ BSP BACKSPACE POINTER 01454 M00S01430.edit +++| XTS3 AX1 24 01455 M00S01431.edit +++| BX6 X1 01456 M00S01432.edit +++| SA6 XTSP SAVE POSITION+1 OF LAST CHARACTER 01457 M00S01433.edit +++| SA4 B+5 01458 M00S01434.edit +++| IX7 X0+X4 ADVANCE STRING FILE LINE COUNT 01459 M00S01435.edit +++| SA7 A4 01460 M00S01436.edit +++| WRITER X2 FLUSH STRING BUFFER 01461 M00S01437.edit +++| RJ RTF 01462 M00S01438.edit +++| JP MAIN 01463 M00S01439.edit +++| 01464 M00S01440.edit +++| XTS4 SX2 1 01465 M00S01441.edit +++| RJ ATF NEXT LINE TO WORKING STORAGE 01466 M00S01442.edit +++| SA3 LCTB 01467 M00S01443.edit +++| SA2 A3+B1 01468 M00S01444.edit +++| IX0 X2-X3 NUMBER LINES TO END OF ELLIPSIS 01469 M00S01445.edit +++| XTS5 SX0 X0-1 01470 M00S01446.edit +++| ZR X0,XTS7 IF LAST LINE READ 01471 M00S01447.edit +++| SB7 B6-LBUF 01472 M00S01448.edit +++| WRITEW B,LBUF,B7 COPY LINE TO STRING BUFFER 01473 M00S01449.edit +++| XTS6 READC X5,LBUF,LBUFL 01474 M00S01450.edit +++| ZR X1,XTS5 IF NOT EOR 01475 M00S01451.edit +++| SA4 PFADR 01476 M00S01452.edit +++| BX5 X4 SWITCH TO PRIMARY TEXT FILE 01477 M00S01453.edit +++| EQ XTS6 01478 M00S01454.edit +++| 01479 M00S01455.edit +++| XTS7 SA2 STPHR2 01480 M00S01456.edit +++| RJ SLS LOCATE /P2/ 01481 M00S01457.edit +++| SA3 LCTB 01482 M00S01458.edit +++| SA2 A3+B1 LINE COUNT TO END OF ELLIPSIS 01483 M00S01459.edit +++| IX0 X2-X3 01484 M00S01460.edit +++| SX0 X0+B1 NUMBER LINES ACROSS ELLIPSIS 01485 M00S01461.edit +++| BX1 X7 01486 M00S01462.edit +++| RJ SBT SET BLANK TERMINATOR 01487 M00S01463.edit +++| SX6 B6+ 01488 M00S01464.edit +++| SA6 XTSB 01489 M00S01465.edit +++| RJ SLT SET END OF LINE 01490 M00S01466.edit +++| SA1 XTSB 01491 M00S01467.edit +++| SX6 B6+X1 01492 M00S01468.edit +++| SA6 A1 SAVE NUMBER OF BLANKS ADDED 01493 M00S01469.edit +++| WRITEC B,LBUF 01494 M00S01470.edit +++| SA1 LBW 01495 M00S01471.edit +++| EQ XTS3 COMPLETE PROCESSING 01496 M00S01472.edit +++| 01497 M00S01473.edit +++| XTS8 SX0 0 01498 M00S01474.edit +++| RJ CST ASSURE ELLIPSIS EXISTS 01499 M00S01475.edit +++| SA3 NUM 01500 M00S01476.edit +++| ZR X3,XTS10 IF SPECIFIED ELLIPSIS EXISTS 01501 M00S01477.edit +++| JP NRS2 01502 M00S01478.edit +++| 01503 M00S01479.edit +++| XTS9 SX6 STPHR2 FIND PHRASE ENDING ELLIPSIS 01504 M00S01480.edit +++| RJ SRO 01505 M00S01481.edit +++| XTS10 SX6 STPHR1 LOCATE START OF ELLIPSIS 01506 M00S01482.edit +++| RJ SRO 01507 M00S01483.edit +++| SA3 SEC 01508 M00S01484.edit +++| SX6 X3+B1 DECREMENT COUNT 01509 M00S01485.edit +++| SA6 A3 01510 M00S01486.edit +++| NZ X6,XTS9 IF SPECIFIED ELLIPSIS NOT REACHED 01511 M00S01487.edit +++| SA2 STPHR2 01512 M00S01488.edit +++| SA4 A7-B1 01513 M00S01489.edit +++| BX0 X4 CHECK - ONE LINE ELLIPSIS 01514 M00S01490.edit +++| RJ SLS 01515 M00S01491.edit +++| NZ B7,XTS11 IF MULTI-LINE ELLIPSIS 01516 M00S01492.edit +++| BX6 X0 01517 M00S01493.edit +++| SX7 B0 01518 M00S01494.edit +++| SA6 FBW RESTORE POINTER TO START OF ELLIPSIS 01519 M00S01495.edit +++| SA7 STPHR2 01520 M00S01496.edit +++| XTS11 SX6 LBUF-1 01521 M00S01497.edit +++| EQ XTS1 01522 M00S01498.edit +++| 01523 M00S01499.edit +++| 01524 M00S01500.edit +++| XTSB CON 0 NUMBER OF POSITIONS TO BACKSPACE 01525 M00S01501.edit +++| XTSP BSS 1 01526 M00S01502.edit +++| FINDS EJECT 01527 M00S01503.edit +++|*** FINDS (FS) - FIND STRING. 01528 M00S01504.edit +++|* 01529 M00S01505.edit +++|* LISTS THE NTH OCCURRENCE OF /PHRASE/ AND SETS THE SEARCH 01530 M00S01506.edit +++|* POINTER TO THAT LINE. IF /PHRASE/ IS MULTI-LINE, THE SEARCH 01531 M00S01507.edit +++|* POINTER IS SET TO THE LINE CONTAINING /P1/. 01532 M00S01508.edit +++| 01533 M00S01509.edit +++| 01534 M00S01510.edit +++| FINDS BSS 0 01535 M00S01511.edit +++| ZR X3,FIND IF STRING FIELDS EMPTY 01536 M00S01512.edit +++| SA2 EOFTF 01537 M00S01513.edit +++| SX0 0 01538 M00S01514.edit +++| ZR X2,LTL11 IF EDIT FILE AT EOI 01539 M00S01515.edit +++| RJ CST ASSURE SPECIFICATION EXISTS 01540 M00S01516.edit +++| SA2 LCT 01541 M00S01517.edit +++| RJ AFW FAST ADVANCE TO LINE CONTAINING /P1/ 01542 M00S01518.edit +++| EQ FDS2 01543 M00S01519.edit +++| 01544 M00S01520.edit +++| FDS1 SA4 STPHR2 CHECK ELLIPSIS SPECIFIED 01545 M00S01521.edit +++| BX0 X0-X0 01546 M00S01522.edit +++| SX6 A4 01547 M00S01523.edit +++| ZR X4,FDS2 IF NOT ELLIPSIS OPERATION 01548 M00S01524.edit +++| RJ SFS LOCATE PHRASE ENDING ELLIPSIS 01549 M00S01525.edit +++| FDS2 SX6 STPHR1 01550 M00S01526.edit +++| RJ SFS ADVANCE FILE TO LINE CONTAINING /P1/ 01551 M00S01527.edit +++| SA3 SEC 01552 M00S01528.edit +++| SX7 X3+B1 ADVANCE OPERATION COUNT 01553 M00S01529.edit +++| SA7 A3 01554 M00S01530.edit +++| INTRPT FDS3 PROCESS TEMINAL INTERRUPT 01555 M00S01531.edit +++| SA3 SEC CHECK OPERATION COUNT 01556 M00S01532.edit +++| NZ X3,FDS1 IF LAST OCCURANCE NOT REACHED 01557 M00S01533.edit +++| FDS3 SB2 LBUF 01558 M00S01534.edit +++| SA4 LBL GET END OF LINE ADDRESS 01559 M00S01535.edit +++| SB3 TBUF-LBUF 01560 M00S01536.edit +++| SA1 FBW RESET DESTROYED REGISTER 01561 M00S01537.edit +++| SX2 B3 01562 M00S01538.edit +++| SB5 X4 01563 M00S01539.edit +++| IX6 X1+X2 01564 M00S01540.edit +++| SX7 B2+B3 POINT WORKING STORAGE AT TEMPORARY BUFFER 01565 M00S01541.edit +++| SA6 A1+B1 01566 M00S01542.edit +++| SA7 LBA SET WORKING STORAGE FOR SEARCH ROUTINES 01567 M00S01543.edit +++| FDS4 SA3 B2 01568 M00S01544.edit +++| SB2 B2+B1 01569 M00S01545.edit +++| BX6 X3 MOVE LINE TO TEMPORARY BUFFER 01570 M00S01546.edit +++| SA6 A3+B3 01571 M00S01547.edit +++| NE B2,B5,FDS4 IF MOVE NOT COMPLETE 01572 M00S01548.edit +++| SX7 A6+B1 SET TBUF END-OF-LINE POINTER 01573 M00S01549.edit +++| BX6 X4 SAVE LBUF END-OF-LINE POINTER 01574 M00S01550.edit +++| SA7 A4 01575 M00S01551.edit +++| SA6 A7+B1 01576 M00S01552.edit +++| SA2 STPHR1 01577 M00S01553.edit +++| RJ SLS 01578 M00S01554.edit +++| SX1 TBUF 01579 M00S01555.edit +++| BX4 X6 INSERT LEADING BLANKS FOR OUTPUT 01580 M00S01556.edit +++| RJ IBC 01581 M00S01557.edit +++| SA1 TBL RESTORE LBUF END-OF-LINE POINTER 01582 M00S01558.edit +++| BX6 X1 01583 M00S01559.edit +++| SA6 A1-B1 01584 M00S01560.edit +++| SA2 STPHR2 POINTER TO /P2/ 01585 M00S01561.edit +++| ZR X2,FDS9 IF NOT ELLIPSIS OPERATION 01586 M00S01562.edit +++| RJ SLS 01587 M00S01563.edit +++| FDS5 ZR B7,FDS9 IF ONE LINE ELLIPSIS 01588 M00S01564.edit +++| RJ CTI CHECK TERMINAL INTERRUPTS 01589 M00S01565.edit +++| NZ X3,FDS8 IF INTERRUPTED 01590 M00S01566.edit +++| WRITEC O,TBUF 01591 M00S01567.edit +++| FDS6 READC X5,TBUF,LBUFL 01592 M00S01568.edit +++| ZR X1,FDS7 IF NOT EOR 01593 M00S01569.edit +++| SA4 PFADR 01594 M00S01570.edit +++| BX5 X4 SWITCH TO PRIMARY TEXT FILE 01595 M00S01571.edit +++| EQ FDS6 01596 M00S01572.edit +++| 01597 M00S01573.edit +++| FDS7 SA2 STPHR2 LOCATE PHRASE ENDING ELLIPSIS 01598 M00S01574.edit +++| RJ SLS 01599 M00S01575.edit +++| NZ B7,FDS5 IF PHRASE NOT FOUND 01600 M00S01576.edit +++| FDS8 RJ RTF REPOSITION TEXT FILE 01601 M00S01577.edit +++| FDS9 SA1 LBW SET END OF LINE 01602 M00S01578.edit +++| SA2 LBL 01603 M00S01579.edit +++| RJ SLT 01604 M00S01580.edit +++| BX6 X2 01605 M00S01581.edit +++| SA6 A2 01606 M00S01582.edit +++| WRITEC O,TBUF COPY LINE TO OUTPUT 01607 M00S01583.edit +++| SX7 LBUF 01608 M00S01584.edit +++| SA7 LBA RESTORE NORMAL WORKING STORAGE AREA 01609 M00S01585.edit +++| JP FDL6 01610 M00S01586.edit +++| INSERTS EJECT 01611 M00S01587.edit +++|*** INSERTS (IS) - INSERT STRING. 01612 M00S01588.edit +++|* 01613 M00S01589.edit +++|* SAME AS ADDS EXCEPT THAT NEW DATA IS FOUND IN /P2/. 01614 M00S01590.edit +++| 01615 M00S01591.edit +++| 01616 M00S01592.edit +++| INSERTS BSS 0 01617 M00S01593.edit +++| ZR X4,MAINX IF REPLACEMENT STRING EMPTY 01618 M00S01594.edit +++| SA2 INSA 01619 M00S01595.edit +++| JP RPS1 01620 M00S01596.edit +++| 01621 M00S01597.edit +++| 01622 M00S01598.edit +++| INSA BX2 X7 01623 M00S01599.edit +++| SB6 10 01624 M00S01600.edit +++| SA4 X2 FIRST WORD OF PHRASE 01625 M00S01601.edit +++| LISTS EJECT 01626 M00S01602.edit +++|*** LISTS (LS) - LIST STRINGS. 01627 M00S01603.edit +++|* 01628 M00S01604.edit +++|* ONE OR MORE OCCURRENCES OF /PHRASE/ IS LISTED. 01629 M00S01605.edit +++| 01630 M00S01606.edit +++| 01631 M00S01607.edit +++| LISTS BSS 0 01632 M00S01608.edit +++| SA2 EOFTF 01633 M00S01609.edit +++| ZR X2,LTL11 IF POSITIONED AT EOI 01634 M00S01610.edit +++| ZR X3,LTL1 IF NOT STRING OPERATION 01635 M00S01611.edit +++| SX0 0 01636 M00S01612.edit +++| ZR X4,LTS1 IF ELLIPSIS SEARCH NOT REQUIRED 01637 M00S01613.edit +++| RJ CST 01638 M00S01614.edit +++| SA2 LCT FAST ADVANCE TO START OF ELLIPSIS 01639 M00S01615.edit +++| RJ ATF 01640 M00S01616.edit +++| LTS1 SX6 STPHR1 SEARCH FOR /P1/ 01641 M00S01617.edit +++| RJ SRO 01642 M00S01618.edit +++| ZR X7,LTL4 IF EOI 01643 M00S01619.edit +++| SX1 LBUF 01644 M00S01620.edit +++| SA4 FBW INSERT LEADING BLANKS 01645 M00S01621.edit +++| RJ IBC 01646 M00S01622.edit +++| LTS2 SA1 STPHR2 01647 M00S01623.edit +++| NZ X1,LTS7 IF LOOKING FOR ELLIPSIS 01648 M00S01624.edit +++| LTS3 SA1 SEC 01649 M00S01625.edit +++| SX6 X1+B1 DECREMENT SPECIFICATOR COUNT 01650 M00S01626.edit +++| SA6 A1 01651 M00S01627.edit +++| ZR X6,LTS4 IF OPERATION COMPLETE 01652 M00S01628.edit +++| RJ CTI CHECK TERMINAL INTERRUPTS 01653 M00S01629.edit +++| NZ X3,LTS9 IF INTERRUPTED 01654 M00S01630.edit +++| SA3 LBW 01655 M00S01631.edit +++| NG X3,LTS6 IF PHRASE AT EOL 01656 M00S01632.edit +++| BX7 X3 SAVE -END OF STRING- POINTER 01657 M00S01633.edit +++| SA7 A3+B1 01658 M00S01634.edit +++| SA2 STPHR1 SCAN LINE FOR ANOTHER OCCURRENCE 01659 M00S01635.edit +++| RJ SLS 01660 M00S01636.edit +++| NZ B7,LTS5 IF STRING NOT IN LINE 01661 M00S01637.edit +++| SA1 SLP 01662 M00S01638.edit +++| SA4 FBW 01663 M00S01639.edit +++| RJ IBC BLANK BETWEEN STRINGS 01664 M00S01640.edit +++| EQ LTS2 01665 M00S01641.edit +++| 01666 M00S01642.edit +++| LTS4 SA1 LBW 01667 M00S01643.edit +++| RJ SLT SET LINE TERMINATOR 01668 M00S01644.edit +++| WRITEC O,LBUF 01669 M00S01645.edit +++| EQ LTS9 COMPLETE PROCESSING 01670 M00S01646.edit +++| 01671 M00S01647.edit +++| LTS5 SA1 SLP SET END OF LINE 01672 M00S01648.edit +++| RJ SLT 01673 M00S01649.edit +++| LTS6 RJ CTI CHECK TERMINAL INTERRUPTS 01674 M00S01650.edit +++| NZ X3,LTS9 IF INTERRUPTED 01675 M00S01651.edit +++| WRITEC O,LBUF COPY LINE TO OUTPUT 01676 M00S01652.edit +++| SX0 1 01677 M00S01653.edit +++| EQ LTS1 CONTINUE PROCESSING 01678 M00S01654.edit +++| 01679 M00S01655.edit +++| LTS7 SA2 STPHR2 SEARCH FOR PHRASE ENDING ELLIPSIS 01680 M00S01656.edit +++| RJ SLS 01681 M00S01657.edit +++| ZR B7,LTS3 IF ELLIPSIS FOUND 01682 M00S01658.edit +++| RJ CTI CHECK TERMINAL INTERRUPTS 01683 M00S01659.edit +++| NZ X3,LTS9 IF INTERRUPTED 01684 M00S01660.edit +++| WRITEC O,LBUF 01685 M00S01661.edit +++| LTS8 READC X5,LBUF,LBUFL 01686 M00S01662.edit +++| SX7 B6 SAVE END OF LINE POINTER 01687 M00S01663.edit +++| SA7 LBL 01688 M00S01664.edit +++| ZR X1,LTS7 IF NOT EOR 01689 M00S01665.edit +++| SA4 PFADR 01690 M00S01666.edit +++| BX5 X4 SWITCH TO PRIMARY FILE 01691 M00S01667.edit +++| EQ LTS8 01692 M00S01668.edit +++| 01693 M00S01669.edit +++| LTS9 RJ RTF REPOSITION TEXT FILE 01694 M00S01670.edit +++| JP MAIN 01695 M00S01671.edit +++| NUMBERS EJECT 01696 M00S01672.edit +++|*** NUMBERS (NS) - COUNT STRINGS. 01697 M00S01673.edit +++|* 01698 M00S01674.edit +++|* COUNTS THE OCCURRENCES OF /PHRASE/ FROM THE SEARCH POINTER 01699 M00S01675.edit +++|* TO END OF FILE. 01700 M00S01676.edit +++| 01701 M00S01677.edit +++| 01702 M00S01678.edit +++| NUMBERS BSS 0 01703 M00S01679.edit +++| SA2 EOFTF 01704 M00S01680.edit +++| ZR X3,NRL1 IF NO STRING FIELDS 01705 M00S01681.edit +++| NRS1 ZR X2,LTL11 IF POSITIONED AT EOF 01706 M00S01682.edit +++| SX6 -377776B 01707 M00S01683.edit +++| BX7 -X6 01708 M00S01684.edit +++| SA6 SEC FORCE SEARCH LIMIT HIGH 01709 M00S01685.edit +++| BX0 X0-X0 01710 M00S01686.edit +++| SA7 NUM 01711 M00S01687.edit +++| RJ CST COUNT STRINGS 01712 M00S01688.edit +++| NRS2 SA1 NUM 01713 M00S01689.edit +++| RJ GSM SEND MESSAGE WITH PHRASE COUNT 01714 M00S01690.edit +++| JP MAIN 01715 M00S01691.edit +++| REPLACES EJECT 01716 M00S01692.edit +++|*** REPLACES (RS) - REPLACE STRINGS. 01717 M00S01693.edit +++|* 01718 M00S01694.edit +++|* SAME AS CHANGES EXCEPT THAT REPLACEMENT DATA IS TAKEN 01719 M00S01695.edit +++|* FROM /P2/. 01720 M00S01696.edit +++| 01721 M00S01697.edit +++| 01722 M00S01698.edit +++| RPLACES BSS 0 01723 M00S01699.edit +++| SA2 RPSA 01724 M00S01700.edit +++| RPS1 ZR X3,MAINX IF STRING TO BE REPLACED NOT SPECIFIED 01725 M00S01701.edit +++| ZR X4,DLETES IF REPLACEMENT STRING EMPTY 01726 M00S01702.edit +++| BX7 X2 01727 M00S01703.edit +++| SX0 0 SELECT SEARCH BEFORE WRITE/READ 01728 M00S01704.edit +++| SA2 EOFTF 01729 M00S01705.edit +++| SA7 RPS4 01730 M00S01706.edit +++| ZR X2,LTL11 IF POSITIONED AT EOI 01731 M00S01707.edit +++| SX6 STPHR1 SEARCH FILE FOR STRING 01732 M00S01708.edit +++| RJ SFS 01733 M00S01709.edit +++| RPS2 ZR X7,RPS11 IF EOI 01734 M00S01710.edit +++| NG X7,RPS4 IF PHRASE AT END OF LINE 01735 M00S01711.edit +++| SX3 TBUF-LBUF 01736 M00S01712.edit +++| SA4 LBL GET END OF LINE POINTER 01737 M00S01713.edit +++| SB2 X7 01738 M00S01714.edit +++| IX6 X7+X3 FORM END OF PHRASE POINTER 01739 M00S01715.edit +++| SB3 X4 01740 M00S01716.edit +++| SA6 A7+B1 01741 M00S01717.edit +++| RPS3 SA1 B2 MOVE TEXT FOLLOWING PHRASE 01742 M00S01718.edit +++| BX6 X1 01743 M00S01719.edit +++| SA6 X3+B2 TO TEMPORARY LOCATION 01744 M00S01720.edit +++| SB2 B2+B1 01745 M00S01721.edit +++| NE B2,B3,RPS3 IF MOVE NOT DONE 01746 M00S01722.edit +++| SX6 A6+B1 01747 M00S01723.edit +++| SA6 A4 RESET END OF LINE ADDRESS 01748 M00S01724.edit +++| RPS4 SA2 A7-B1 01749 M00S01725.edit +++| SA4 X2 FIRST WORD OF PHRASE 01750 M00S01726.edit +++| SB6 10 01751 M00S01727.edit +++|* BX2 X7 01752 M00S01728.edit +++|* SB6 10 IF ENTRY FROM INSERTS 01753 M00S01729.edit +++|* SA4 X2 01754 M00S01730.edit +++| AX2 24 POSITION CHARACTER POINTER 01755 M00S01731.edit +++| SB3 A4 01756 M00S01732.edit +++| SA3 X2+TCHM MASK FOR DATA PRECEDING PHRASE 01757 M00S01733.edit +++| CX1 X3 01758 M00S01734.edit +++| SB5 X2 01759 M00S01735.edit +++| BX6 X3*X4 ISOLATE LEADER 01760 M00S01736.edit +++| SB4 X1 01761 M00S01737.edit +++| SA3 STPHR2 POINTER TO REPLACEMENT PHRASE 01762 M00S01738.edit +++| SA2 X3-1 01763 M00S01739.edit +++| AX3 24 POSITION CHARACTER COUNT 01764 M00S01740.edit +++| SX4 B1 01765 M00S01741.edit +++| SB7 X3 01766 M00S01742.edit +++| LX6 B4,X6 01767 M00S01743.edit +++| RPS5 SX3 B3-LBUF-LBUFL+1 01768 M00S01744.edit +++| NZ X3,RPS6 IF NOT AT LWA BUFFER 01769 M00S01745.edit +++| SB6 7 01770 M00S01746.edit +++| SX4 B0+ 01771 M00S01747.edit +++| GE B5,B6,RPS7 IF BUFFER COMPLETELY FULL 01772 M00S01748.edit +++| SX4 B1+ 01773 M00S01749.edit +++| RPS6 ZR B7,RPS7 IF REPLACEMENT COMPLETE 01774 M00S01750.edit +++| LX6 6 01775 M00S01751.edit +++| SA2 A2+B1 GET NEXT ELEMENT 01776 M00S01752.edit +++| SB5 B5+1 01777 M00S01753.edit +++| BX6 X6+X2 ASSEMBLE WORD 01778 M00S01754.edit +++| SB7 B7-B1 01779 M00S01755.edit +++| LT B5,B6,RPS6 IF WORD NOT COMPLETE 01780 M00S01756.edit +++| SX4 B6-7 01781 M00S01757.edit +++| ZR X4,RPS7 IF AT BUFFER LIMIT 01782 M00S01758.edit +++| SA6 B3 01783 M00S01759.edit +++| SB5 B0 01784 M00S01760.edit +++| BX6 X6-X6 CLEAR ASSEMBLY REGISTER 01785 M00S01761.edit +++| SB3 B3+B1 01786 M00S01762.edit +++| NZ B7,RPS5 IF REPLACEMENT NOT COMPLETE 01787 M00S01763.edit +++| RPS7 SX1 B5+ CHARACTER POINTER TO END OF NEW STRING 01788 M00S01764.edit +++| SB6 10 01789 M00S01765.edit +++| LX1 24 01790 M00S01766.edit +++| ZR B5,RPS8 IF NEW STRING FILLED WORD 01791 M00S01767.edit +++| + LX6 6 01792 M00S01768.edit +++| SB5 B5+B1 LEFT JUSTIFY WORD ENDING PHRASE 01793 M00S01769.edit +++| NE B5,B6,* 01794 M00S01770.edit +++| RPS8 SA6 B3 01795 M00S01771.edit +++| SX3 A6 01796 M00S01772.edit +++| BX0 X0-X0 01797 M00S01773.edit +++| BX7 X1+X3 01798 M00S01774.edit +++| SA2 SLP POINTER TO TEXT IN TEMPORARY BUFFER 01799 M00S01775.edit +++| SA3 LBW POINTER TO END OF OLD PHRASE 01800 M00S01776.edit +++| BX1 X7 01801 M00S01777.edit +++| MX6 1 01802 M00S01778.edit +++| NG X3,RPS9 IF NO DATA FOLLOWING ORIGINAL PHRASE 01803 M00S01779.edit +++| NZ X4,RPS10 IF NOT AT BUFFER LIMIT 01804 M00S01780.edit +++| RPS9 SX0 B1 01805 M00S01781.edit +++| BX2 X6*X3 01806 M00S01782.edit +++| BX7 X2+X7 01807 M00S01783.edit +++| BX2 X3 01808 M00S01784.edit +++| RPS10 SA7 A3 SET POINTER TO END OF NEW STRING 01809 M00S01785.edit +++| SB6 LBUF+LBUFL-1 01810 M00S01786.edit +++| RJ CTL APPEND TEXT FOLLOWING PHRASE TO LINE 01811 M00S01787.edit +++| SA1 SEC 01812 M00S01788.edit +++| SX7 X1+B1 DECREMENT COUNTER 01813 M00S01789.edit +++| SA7 A1 01814 M00S01790.edit +++| ZR X7,RPS12 IF OPERATION COMPLETE 01815 M00S01791.edit +++| INTRPT RPS11 PROCESS TERMINAL INTERRUPTS 01816 M00S01792.edit +++| SX6 STPHR1 01817 M00S01793.edit +++| RJ SML SEARCH MODIFIED LINE 01818 M00S01794.edit +++| EQ RPS2 01819 M00S01795.edit +++| 01820 M00S01796.edit +++| RPS11 SA3 SEC 01821 M00S01797.edit +++| SA4 A3-B1 GET NUMBER SUCCESSFUL OPERATIONS 01822 M00S01798.edit +++| IX1 X4+X3 01823 M00S01799.edit +++| ZR X1,PSO2 IF NONE COMPLETED 01824 M00S01800.edit +++| RJ GSM 01825 M00S01801.edit +++| JP SET2 REPOSITION FILES 01826 M00S01802.edit +++| 01827 M00S01803.edit +++| RPS12 SA1 SLP SET LINE TERMINATOR 01828 M00S01804.edit +++| RJ SLT 01829 M00S01805.edit +++| JP SET2 REPOSITION FILES 01830 M00S01806.edit +++| 01831 M00S01807.edit +++| 01832 M00S01808.edit +++| RPSA SA2 A7-B1 01833 M00S01809.edit +++| SA4 X2 FIRST WORD OF PHRASE 01834 M00S01810.edit +++| SB6 10 01835 M00S01811.edit +++| ALIGN TITLE AUXILIARY COMMAND PROCESSORS. 01836 M00S01812.edit +++|*** ALIGN (AL) - ALIGN DATA. 01837 M00S01813.edit +++|* 01838 M00S01814.edit +++|* ELIMINATES UNWANTED BLANKS ON THE TEXT FILE. DATA IS LINED 01839 M00S01815.edit +++|* UP BY WORD, SENTENCE, AND PARAGRAPH. 01840 M00S01816.edit +++| 01841 M00S01817.edit +++| 01842 M00S01818.edit +++| ALIGN BSS 0 01843 M00S01819.edit +++| SA2 EOFTF 01844 M00S01820.edit +++| ZR X2,LTL11 IF POSITIONED AT EOI 01845 M00S01821.edit +++| SA2 AFLI 01846 M00S01822.edit +++| NZ X2,ALN1 IF ALIGN FIELD LENGTH ALREADY SET 01847 M00S01823.edit +++| MEMORY CM,AFLI,R,ALFL 01848 M00S01824.edit +++| SA3 STPHR1 01849 M00S01825.edit +++| SA4 STPHR2 01850 M00S01826.edit +++| ALN1 ZR X3,ALN2 IF NO STRING FIELDS 01851 M00S01827.edit +++| RJ PSO 01852 M00S01828.edit +++| ALN2 SA3 SEC 01853 M00S01829.edit +++| BX6 -X3 01854 M00S01830.edit +++| SA6 A3+B1 INITIAL COUNT FOR INTERRUPT PROCESSING 01855 M00S01831.edit +++| ALN3 SA2 STPHR2 01856 M00S01832.edit +++| SX7 B0 01857 M00S01833.edit +++| SX1 B1 01858 M00S01834.edit +++| ZR X2,ALN4 IF NOT ELLIPSIS OPERATION 01859 M00S01835.edit +++| RJ SLS SEARCH FOR /P2/ IN SAME LINE AS /P1/ 01860 M00S01836.edit +++| SX7 B1 01861 M00S01837.edit +++| NZ B7,ALN4 IF NOT ONE LINE ELLIPSIS 01862 M00S01838.edit +++| BX7 X7-X7 01863 M00S01839.edit +++| ALN4 SA7 SLP MULTI-LINE ELLIPSIS INDICATOR 01864 M00S01840.edit +++| ALN5 SA3 WDTH NEW LINE WIDTH 01865 M00S01841.edit +++| SX1 STRA FWA NEW LINE BUFFER 01866 M00S01842.edit +++| IX3 X1+X3 MAXIMUM LWA NEW LINE 01867 M00S01843.edit +++| LX1 18 01868 M00S01844.edit +++| BX0 X1+X3 01869 M00S01845.edit +++| ALN6 SA3 LBUF 01870 M00S01846.edit +++| SX7 1R 01871 M00S01847.edit +++| SB2 A3+ 01872 M00S01848.edit +++| SB6 USBBL 01873 M00S01849.edit +++| RJ USB UNPACK OLD LINE TO STRING BUFFER 01874 M00S01850.edit +++| SB4 X0 MAXIMUM LWA NEW LINE 01875 M00S01851.edit +++| AX0 18 01876 M00S01852.edit +++| SB5 X0+ CURRENT ADDRESS IN NEW LINE 01877 M00S01853.edit +++| SA0 B6+ FWA NEXT WORD IN OLD LINE 01878 M00S01854.edit +++| SA1 B6 FIRST CHARACTER IN OLD LINE 01879 M00S01855.edit +++| AX0 18 LWA+1 OF LAST COMPLETE WORD IN NEW LINE 01880 M00S01856.edit +++| NZ X3,ALN7 IF NOT ZERO WORD 01881 M00S01857.edit +++| PL X3,ALN14 IF BLANK LINE 01882 M00S01858.edit +++| ALN7 SA2 ASC ASCII INDICATOR 01883 M00S01859.edit +++| IX3 X1-X7 01884 M00S01860.edit +++| NZ X3,ALN9 IF NOT BLANK CHARACTER 01885 M00S01861.edit +++| SB6 B6+B1 01886 M00S01862.edit +++| MX4 4 01887 M00S01863.edit +++| SB5 B5+5 01888 M00S01864.edit +++| SA7 B5-B1 INITIALIZE INDENTATION 01889 M00S01865.edit +++|+ LX4 1 01890 M00S01866.edit +++| SA7 A7-B1 INDENT NEW LINE 01891 M00S01867.edit +++| NG X4,* 01892 M00S01868.edit +++| ALN8 GT B6,B7,ALN14 IF END OF OLD LINE 01893 M00S01869.edit +++| SA1 B6 01894 M00S01870.edit +++| IX3 X1-X7 01895 M00S01871.edit +++| SB6 B6+B1 01896 M00S01872.edit +++| ZR X3,ALN8 IF BLANK CHARACTER 01897 M00S01873.edit +++| SB6 B6-B1 01898 M00S01874.edit +++| ALN9 GT B6,B7,ALN15 IF END OF OLD LINE 01899 M00S01875.edit +++| SA1 B6+ 01900 M00S01876.edit +++| IX3 X1-X7 01901 M00S01877.edit +++| SB6 B6+B1 01902 M00S01878.edit +++| BX6 X1 TRANSFER CURRENT CHARACTER TO NEW LINE 01903 M00S01879.edit +++| SA6 B5 01904 M00S01880.edit +++| SB5 B5+B1 01905 M00S01881.edit +++| ZR X2,ALN11 IF NO ESCAPE CODE SET 01906 M00S01882.edit +++| IX4 X2+X6 01907 M00S01883.edit +++| ZR X4,ALN10 IF ESCAPE CODE 76 01908 M00S01884.edit +++| SX4 X4-74B+76B 01909 M00S01885.edit +++| ALN10 NZ X4,ALN11 IF NO ESCAPE CODE 01910 M00S01886.edit +++| SB4 B4+1 01911 M00S01887.edit +++| ALN11 GE B5,B4,ALN13 IF NEW LINE WIDTH REACHED 01912 M00S01888.edit +++| NZ X3,ALN9 IF NOT BLANK CHARACTER 01913 M00S01889.edit +++| SA4 A6-B1 LAST NON-BLANK CHARACTER
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/edit.txt · Last modified: (external edit)