User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:edit

Deck EDIT

3 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.edit    +++|          IDENT  EDIT,FETS
00002  M01S00002.edit    +++|          ABS
00003  M01S00003.edit    +++|          ENTRY  EDIT
00004  M01S00004.edit    +++|          ENTRY  RFL=
00005  M01S00005.edit    +++|          ENTRY  SSM=
00006  M01S00006.edit    +++|          SST
00007  M01S00007.edit    +++|          SYSCOM B1
00008  M01S00008.edit    +++|          TITLE  EDIT - TIME SHARING TEXT EDITOR.
00009  M01S00009.edit    +++|          SPACE  4
00010  M01S00010.edit    +++|*COMMENT  EDIT - TIME SHARING TEXT EDITOR.
Line S00011 Modification History
M01 (Added by) edit
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00011  M02S00011.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
00012  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00013  M01S00012.edit    +++|          SPACE  4
00014  M01S00013.edit    +++|***       EDIT - TIME SHARING TEXT EDITOR.
00015  M01S00014.edit    +++|*         P. D. HAAS         72/07/10.
00016  M01S00015.edit    +++|*         S. L. KSANDER.     75/09/10.
00017  M01S00016.edit    +++|          SPACE  4
00018  M01S00017.edit    +++|***       EDIT IS A TIME SHARING PACKAGE PROVIDING THE TERMINAL USER
00019  M01S00018.edit    +++|*         WITH A SET OF COMMANDS BY WHICH TO CREATE, MODIFY,
00020  M01S00019.edit    +++|*         OR OTHERWISE MANIPULATE A DATA FILE.
00021  M01S00020.edit    +++|*
00022  M01S00021.edit    +++|*         THE BASIC STRUCTURE OF A COMMAND IS-
00023  M01S00022.edit    +++|*
00024  M01S00023.edit    +++|*                COMMAND:/PHRASE/;N
00025  M01S00024.edit    +++|*
00026  M01S00025.edit    +++|*         A /PHRASE/ IS THE COMMAND COMPONENT WHICH SPECIFIES A
00027  M01S00026.edit    +++|*         CHARACTER STRING OF INTEREST. IT MAY BE OF A SIMPLE FORM
00028  M01S00027.edit    +++|*         /P1/, OR COMPLEX /P1/,/P2/. THE PARAMETER N IS A SPECIFIC-
00029  M01S00028.edit    +++|*         ATOR WHICH INDICATES THE NUMBER OF LINES THE COMMAND WILL
00030  M01S00029.edit    +++|*         AFFECT OR THE NUMBER OF TIMES THE COMMAND WILL ACT ON THE
00031  M01S00030.edit    +++|*         PRESENCE OF /PHRASE/.
00032  M01S00031.edit    +++|          SPACE  4
Line S00032 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00032.v23l617 ---|***       CONTROL CARD CALL.
00034  M01S00001.v23l617 +++|***       THE COMMAND FORMAT.
00035  M01S00033.edit    +++|*
00036  M01S00034.edit    +++|*         EDIT(FN=LFN,M=M,I=IFN,L=OFN)
00037  M01S00035.edit    +++|*         OR
00038  M01S00036.edit    +++|*         EDIT(LFN,M,IFN,OFN)
00039  M01S00037.edit    +++|*
00040  M01S00038.edit    +++|*         LFN    FILENAME TO BE EDITED.
00041  M01S00039.edit    +++|*
00042  M01S00040.edit    +++|*         M      MODE OF PROCESSING FOR CURRENT EDIT SESSION.
00043  M01S00041.edit    +++|*                IF EITHER THE DIRECTIVE INPUT FILE (I) OR THE
00044  M01S00042.edit    +++|*                OUTPUT FILE (L) IS ASSIGNED TO A
00045  M01S00043.edit    +++|*                TIME-SHARING TERMINAL, A *TELEX* CALL IS
00046  M01S00044.edit    +++|*                MADE TO SET THE TERMINAL CONTROL FOR THE EDIT SESSION.
00047  M01S00045.edit    +++|*
00048  M01S00046.edit    +++|*                ASCII - FULL ASCII MODE.
00049  M01S00047.edit    +++|*                AS
00050  M01S00048.edit    +++|*                NORMAL - NORMAL CHARACTER MODE.
00051  M01S00049.edit    +++|*                N
00052  M01S00050.edit    +++|*                (DEFAULT=NORMAL)
00053  M01S00051.edit    +++|*
00054  M01S00052.edit    +++|*         IFN    FILENAME FROM WHICH TO READ INPUT DIRECTIVES.
00055  M01S00053.edit    +++|*                (DEFAULT=INPUT)
00056  M01S00054.edit    +++|*
00057  M01S00055.edit    +++|*         OFN    FILENAME ON WHICH EDITOR OUTPUT IS WRITTEN.
00058  M01S00056.edit    +++|*                (DEFAULT=OUTPUT)
00059  M01S00057.edit    +++|          SPACE  4
00060  M01S00058.edit    +++|***       TERMINAL INTERRUPT PROCESSING.  (*DISTC* CONTROL)
00061  M01S00059.edit    +++|*
00062  M01S00060.edit    +++|*         IF THE USER,S DIRECTIVE INPUT FILE (I) IS ASSIGNED TO
00063  M01S00061.edit    +++|*         A TIME-SHARING TERMINAL, *DISTC* PROCESSING IS ENABLED.
00064  M01S00062.edit    +++|*         IN ALL OTHER CASES, TERMINAL INPTERRUPTS WILL INTERRUPT
00065  M01S00063.edit    +++|*         OR TERMINATE THE EDIT SESSION.
00066  M01S00064.edit    +++|          SPACE  4
00067  M01S00065.edit    +++|***       DAYFILE MESSAGES.
00068  M01S00066.edit    +++|*
Line S00067 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00067.v23l617 ---|*         * CONTROL CARD ERROR.* - AN ILLEGAL OR INVALID PARAMETER
Line S00068 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00068.v23l617 ---|*         HAS BEEN DETECTED ON THE *EDIT* CONTROL CARD.
00071  M01S00002.v23l617 +++|*         * COMMAND ERROR.* - AN INCORRECT OR INVALID PARAMETER
00072  M01S00003.v23l617 +++|*         HAS BEEN DETECTED ON THE *EDIT* COMMAND.
00073  M01S00069.edit    +++|*
00074  M01S00070.edit    +++|*         * RESERVED FILE NAME.* - FILE NAME SPECIFIED ON *EDIT*
Line S00071 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00071.v23l617 ---|*         CONTROL CARD IS RESERVED FOR USE BY THE EDITOR (SCR, SCR1,
00076  M01S00004.v23l617 +++|*         COMMAND IS RESERVED FOR USE BY THE EDITOR (SCR, SCR1,
00077  M01S00072.edit    +++|*         SCR2, SCR3, SCR4), OR IS A DUPLICATE OF THE INPUT, OUTPUT,
00078  M01S00073.edit    +++|*         OR TEXT FILE NAME.
00079  M01S00074.edit    +++|          SPACE  4,10
00080  M01S00075.edit    +++|***       OUTPUT MESSAGES.
00081  M01S00076.edit    +++|*
00082  M01S00077.edit    +++|*         * BEGIN TEXT EDITING.* - INFORMATIVE MESSAGE INDICATING
00083  M01S00078.edit    +++|*         EDITOR IS READY TO BEGIN ACCEPTING COMMANDS.
00084  M01S00079.edit    +++|*
00085  M01S00080.edit    +++|*         * COMMAND CONTINUE?* - INQUIRY AS TO WHETHER OR NOT AN
00086  M01S00081.edit    +++|*         INTERRUPTED COMMAND SHOULD CONTINUE TO BE PROCESSED.
00087  M01S00082.edit    +++|*
00088  M01S00083.edit    +++|*         * DISREGARD PREVIOUS TEXT?* - AN INTERRUPT AS BEEN SENSED
00089  M01S00084.edit    +++|*         WHILE INPUTTING TEXT.  *YES* OR *Y* RESPONSE WILL DISCARD
00090  M01S00085.edit    +++|*         ALL ENTERED TEXT. *NO* OR *N* WILL PROCESS ALL TEXT ENTERED
Line S00086 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00086.v23l617 ---|*         TO THIS POINT.  MESSAGE WILL BE RE-ISSUED IF AN INVALID
00092  M01S00005.v23l617 +++|*         TO THIS POINT.  MESSAGE WILL BE RE-ISSUED IF AN INCORRECT
00093  M01S00087.edit    +++|*         RESPONSE IS GIVEN.  AN INTERRUPT AS A RESPONSE WILL SIMULATE
00094  M01S00088.edit    +++|*         AN *END* COMMAND.
00095  M01S00089.edit    +++|*
00096  M01S00090.edit    +++|*         * EDIT FILE NOT IN WRITE MODE.*
00097  M01S00091.edit    +++|*         * DO YOU WISH TO CONTINUE?* - WARNING TO TERMINAL USER
00098  M01S00092.edit    +++|*         THAT THE EDIT FILE IS NOT ASSIGNED IN WRITE MODE, AND
00099  M01S00093.edit    +++|*         INQUIRY AS TO WHETHER THE USER WISHES TO CONTINUE EDITING.
00100  M01S00094.edit    +++|*         IF *NO* OR *N* RESPONSE IS ENTERED, *EDIT* WILL TERMINATE.
00101  M01S00095.edit    +++|*         IF *YES* OR *Y* RESPONSE IS ENTERED, EDITING IS ALLOWED,
00102  M01S00096.edit    +++|*         BUT *EDIT* WILL EVENTUALLY ABORT WITH AN ERROR DIAGNOSTIC
00103  M01S00097.edit    +++|*         SUCH AS *WRITE ON READ ONLY FILE*.
00104  M01S00098.edit    +++|*
00105  M01S00099.edit    +++|*         * -END OF FILE- * - INFORMATIVE MESSAGE INDICATING THAT
00106  M01S00100.edit    +++|*         THE TEXT FILE IS POSITIONED AFTER THE LAST LINE OF TEXT,
00107  M01S00101.edit    +++|*         OR THAT THE END OF TEXT WAS ENCOUNTERED DURING *LIST* OR
00108  M01S00102.edit    +++|*         *FIND* COMMAND PROCESSING.
00109  M01S00103.edit    +++|*
00110  M01S00104.edit    +++|*         * END TEXT EDITING.* - INFORMATIVE MESSAGE INDICATING
00111  M01S00105.edit    +++|*         TERMINATION OF EDIT SESSION.
00112  M01S00106.edit    +++|*
00113  M01S00107.edit    +++|*         * ENTER TEXT.* - REQUESTS ENTRY OF NEW OR REPLACEMENT
00114  M01S00108.edit    +++|*         TEXT FOR *ADD(S)* OR *CHANGE(S)* COMMAND.
00115  M01S00109.edit    +++|*
00116  M01S00110.edit    +++|*         * ENTER TEXT FILE NAME.* - REQUESTS ENTRY OF EDIT FILE
Line S00111 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00111.v23l617 ---|*         NAME, SINCE IT WAS NOT SPECIFIED ON THE *EDIT* CONTROL CARD.
00118  M01S00006.v23l617 +++|*         NAME, SINCE IT WAS NOT SPECIFIED ON THE *EDIT* COMMAND.
00119  M01S00112.edit    +++|*
00120  M01S00113.edit    +++|*         * ENTER *YES* OR *NO*.* - PROMPTS THE USER TO ENTER A
00121  M01S00114.edit    +++|*         RESPONSE FOR A PREVIOUS ENQUIRY.
00122  M01S00115.edit    +++|*
00123  M01S00116.edit    +++|*         * FILE AT LINE NUMBER N.* - INFORMATIVE MESSAGE INDICATING
00124  M01S00117.edit    +++|*         THAT THE TEXT FILE IS CURRENTLY POSITIONED AT LINE NUMBER N.
00125  M01S00118.edit    +++|*
Line S00119 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00119.v23l617 ---|*         * ILLEGAL COMMAND.* - ERROR MESSAGE INDICATING THE COMMAND
00127  M01S00007.v23l617 +++|*         * INCORRECT COMMAND.* - ERROR MESSAGE INDICATING THE COMMAND
00128  M01S00120.edit    +++|*         NAME ENTERED IS NOT A VALID COMMAND.
00129  M01S00121.edit    +++|*
Line S00122 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00122.v23l617 ---|*         * ILLEGAL DELIMITER.* - ERROR MESSAGE INDICATING AN INVALID
Line S00123 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00123.v23l617 ---|*         DELIMITER WAS USED IN RESPONSE TO THE *ENTER TEXT* REQUEST
Line S00124 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00124.v23l617 ---|*         FROM A NON-INTERACTIVE JOB.  THE *ADD(S)* OR *CHANGE(S)*
Line S00125 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00133  M02S00125.v23l617 ---|*         COMMAND IS TERMINATED.
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  M01S00126.edit    +++|*
Line S00127 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00127.v23l617 ---|*         * ILLEGAL DELIMITER - REENTER TEXT.* - ERROR MESSAGE
Line S00128 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00128.v23l617 ---|*         INDICATING AN INVALID DELIMITER WAS USED IN RESPONSE TO
00141  M01S00012.v23l617 +++|*         * INCORRECT DELIMITER - REENTER TEXT.* - ERROR MESSAGE
00142  M01S00013.v23l617 +++|*         INDICATING AN INCORRECT DELIMITER WAS USED IN RESPONSE TO
00143  M01S00129.edit    +++|*         THE *ENTER TEXT* REQUEST FROM AN INTERACTIVE JOB.
00144  M01S00130.edit    +++|*         REQUESTS REENTRY OF TEXT WITH A VALID DELIMITER.
00145  M01S00131.edit    +++|*
Line S00132 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00132.v23l617 ---|*         * ILLEGAL FILE NAME.* - ERROR MESSAGE INDICATING FILE NAME
Line S00133 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00133.v23l617 ---|*         PASSED WITH *MERGE* COMMAND IS ILLEGAL.
00148  M01S00014.v23l617 +++|*         * INCORRECT FILE NAME.* - ERROR MESSAGE INDICATING FILE NAME
00149  M01S00015.v23l617 +++|*         PASSED WITH *MERGE* COMMAND IS INCORRECT.
00150  M01S00134.edit    +++|*
00151  M01S00135.edit    +++|*         * IMPROPER TRUNCATION.* - ERROR MESSAGE INDICATING THE
00152  M01S00136.edit    +++|*         LENGTH SPECIFIED ON THE *LENGTH;N* COMMAND IS GREATER
00153  M01S00137.edit    +++|*         THAN OR EQUAL TO THE PREVIOUS LENGTH SPECIFIED.
00154  M01S00138.edit    +++|*
00155  M01S00139.edit    +++|*         * INTERRUPT AT LINE N.* - INFORMATIVE MESSAGE INDICATING
00156  M01S00140.edit    +++|*         THE CURRENT POSITION IN THE TEXT FILE OF AN INTERRUPTED
00157  M01S00141.edit    +++|*         COMMAND.
00158  M01S00142.edit    +++|*
00159  M01S00143.edit    +++|*         * MERGE ERROR, SECONDARY FILE EMPTY.* - ERROR MESSAGE
00160  M01S00144.edit    +++|*         INDICATING THAT THE FILE TO BE MERGED WITH THE EDIT FILE
00161  M01S00145.edit    +++|*         IS EMPTY, DOES NOT EXIST, OR IS NOT LOCAL TO THE JOB
00162  M01S00146.edit    +++|*         (PERMANENT FILE MUST BE ATTACHED PRIOR TO EDIT SESSION).
00163  M01S00147.edit    +++|*
00164  M01S00148.edit    +++|*         * PHRASE NOT FOUND.* - INFORMATIVE MESSAGE INDICATING THE
00165  M01S00149.edit    +++|*         SPECIFIED SEARCH STRING WAS NOT FOUND.
00166  M01S00150.edit    +++|*
00167  M01S00151.edit    +++|*         * READY.* - INFORMATIVE MESSAGE INDICATING THE NEXT COMMAND
00168  M01S00152.edit    +++|*         CAN BE ENTERED.
00169  M01S00153.edit    +++|*
00170  M01S00154.edit    +++|*         * RESERVED FILE NAME.* - ERROR MESSAGE INDICATING THAT THE
00171  M01S00155.edit    +++|*         FILE NAME SPECIFIED ON THE *MERGE* COMMAND IS RESERVED FOR
00172  M01S00156.edit    +++|*         USE BY THE EDITOR (SCR, SCR1, SCR2, SCR3, SCR4), OR IS A
00173  M01S00157.edit    +++|*         DUPLICATE OF THE INPUT, OUTPUT, OR TEXT FILE NAME.
00174  M01S00158.edit    +++|*
00175  M01S00159.edit    +++|*         * TAB STOPS NONE.* - INFORMATIVE MESSAGE INDICATING NO TAB
00176  M01S00160.edit    +++|*         STOPS ARE CURRENTLY ESTABLISHED.
00177  M01S00161.edit    +++|*
00178  M01S00162.edit    +++|*         * TAB STOPS  T1  T2 ... TN* - INFORMATIVE MESSAGE ISSUED
00179  M01S00163.edit    +++|*         IN RESPONSE TO *LISTAB* COMMAND INDICATING THE TEXT EDITOR
00180  M01S00164.edit    +++|*         TAB STOPS THAT ARE IN EFFECT.
00181  M01S00165.edit    +++|*
00182  M01S00166.edit    +++|*         * XXXXXXX SYNTAX ERROR.* - ERROR MESSAGE INDICATING IMPROPER
00183  M01S00167.edit    +++|*         SYNTAX WAS USED WITH TEXT EDITOR COMMAND XXXXXXX.
00184  M01S00168.edit    +++|*
00185  M01S00169.edit    +++|*         * N LINES TO EOF.* - INFORMATIVE MESSAGE INDICATING THE
00186  M01S00170.edit    +++|*         LINE COUNT FROM THE CURRENT SEARCH POINTER TO THE LAST
00187  M01S00171.edit    +++|*         LINE IN THE TEXT FILE.
00188  M01S00172.edit    +++|*
00189  M01S00173.edit    +++|*         * N LINES TO INTERRUPT.* - INFORMATIVE MESSAGE INDICATING
00190  M01S00174.edit    +++|*         NUMBER OF LINES OR OCCURRENCES OF PHRASE FOUND IN TEXT
00191  M01S00175.edit    +++|*         FILE BEFORE THE INTERRUPT WAS DETECTED.
00192  M01S00176.edit    +++|*
00193  M01S00177.edit    +++|*         * N OCCURRENCES OF PHRASE FOUND.* - INFORMATIVE MESSAGE
00194  M01S00178.edit    +++|*         INDICATING THAT THE END OF TEXT WAS ENCOUNTERED BEFORE THE
00195  M01S00179.edit    +++|*         NUMBER OF ITERATIONS SPECIFIED IN THE COMMAND WERE COMPLETED.
00196  M01S00180.edit    +++|          TITLE  ASSEMBLY CONSTANTS.
00197  M01S00181.edit    +++|*         ASSEMBLY CONSTANTS.
00198  M01S00182.edit    +++|          SPACE  4
00199  M01S00183.edit    +++| TABCL    EQU    150         MAXIMUM TAB VALUE
00200  M01S00184.edit    +++| TTBLL    EQU    7           MAXIMUM NUMBER OF TABS
00201  M01S00185.edit    +++| NLR      EQU    8           NUMBER OF LENGTH RECORDS
00202  M01S00186.edit    +++| MINWD    EQU    6           MINIMUM SIZE FOR WIDTH
00203  M01S00187.edit    +++| MAXWD    EQU    150         MAXIMUM SIZE FOR WIDTH
00204  M01S00188.edit    +++| CMDBL    EQU    MAXWD*2     LENGTH OF COMMAND BUFFER
00205  M01S00189.edit    +++| STRBL    EQU    MAXWD*2     LENGTH OF CHARACTER BUFFER
00206  M01S00190.edit    +++| USBL$    EQU    1           VARIABLE LENGTH OPTION FOR UNPACK BUFFER
00207  M01S00191.edit    +++| USBBL    EQU    MAXWD*2     UNPACK STRING BUFFER LENGTH
Line S00192 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00208  M02S00192.v23l617 ---| CCBL     EQU    80          CONTROL CARD BUFFER LENGTH
00209  M01S00016.v23l617 +++| CCBL     EQU    80          COMMAND BUFFER LENGTH
00210  M01S00193.edit    +++| LBUFL    EQU    30          LENGTH OF LINE BUFFER
00211  M01S00194.edit    +++| FETL     EQU    7           FET LENGTH
00212  M01S00195.edit    +++| OBUFL    EQU    201B        LENGTH OF O-BUFFER (OUTPUT)
00213  M01S00196.edit    +++| IBUFL    EQU    101B        LENGTH OF I-BUFFER (INPUT)
00214  M01S00197.edit    +++| MBUFL    EQU    201B        LENGTH OF M-BUFFER (SCR)
00215  M01S00198.edit    +++| BBUFL    EQU    201B        LENGTH OF B-BUFFER (SCR2)
00216  M01S00199.edit    +++| FBUFL    EQU    1001B       LENGTH OF F-BUFFER (SCR5)
00217  M01S00200.edit    +++| CBUFL    EQU    FBUFL/2
00218  M01S00201.edit    +++|
00219  M01S00202.edit    +++|
00220  M01S00203.edit    +++|*         SPECIAL ENTRY POINT.
00221  M01S00204.edit    +++|
00222  M01S00205.edit    +++| SSM=     EQU    0           SUPPRESS DUMPS OF FIELD LENGTH
00223  M01S00206.edit    +++|          TITLE  MACRO DEFINITIONS.
00224  M01S00207.edit    +++|          SPACE  4
00225  M01S00208.edit    +++|**        COMMAND - GENERATE ENTRY IN COMMAND AND PROCESSOR TABLES.
00226  M01S00209.edit    +++|*
00227  M01S00210.edit    +++|*         COMMAND  CNAM,CPROC,STR1,STR2,NUM
00228  M01S00211.edit    +++|*
00229  M01S00212.edit    +++|*         CNAM   COMMAND NAME.
00230  M01S00213.edit    +++|*         CPROC  COMMAND PROCESSOR ADDRESS.
00231  M01S00214.edit    +++|*         STR1   FIRST STRING SPECIFICATION IS ALLOWED.
00232  M01S00215.edit    +++|*         STR2   SECOND STRING SPECIFICATION IS ALLOWED.
00233  M01S00216.edit    +++|*         NUM    NUMERIC FIELD SPECIFICATION IS ALLOWED.
00234  M01S00217.edit    +++|
00235  M01S00218.edit    +++|
00236  M01S00219.edit    +++| COMMAND  MACRO  CNAM,CPROC,P1,P2,P3
00237  M01S00220.edit    +++|          LOCAL  A,B,C
00238  M01S00221.edit    +++| A        SET    0
00239  M01S00222.edit    +++| B        SET    0
00240  M01S00223.edit    +++| C        SET    0
00241  M01S00224.edit    +++|          ECHO   ,P=(P1,P2,P3)
00242  M01S00225.edit    +++|          IFC    EQ,$P$STR1$,1
00243  M01S00226.edit    +++| A        SET    1
00244  M01S00227.edit    +++|          IFC    EQ,$P$STR2$,1
00245  M01S00228.edit    +++| B        SET    1
00246  M01S00229.edit    +++|          IFC    EQ,$P$NUM$,1
00247  M01S00230.edit    +++| C        SET    1
00248  M01S00231.edit    +++|          ENDD
00249  M01S00232.edit    +++|          VFD    42/0L_CNAM,1/A,1/B,1/C,15/CPROC
00250  M01S00233.edit    +++|          ENDM
00251  M01S00234.edit    +++|          SPACE  4
00252  M01S00235.edit    +++|**        CEPF - CHECK EOI ON PRIMARY EDIT FILE.
00253  M01S00236.edit    +++|*
00254  M01S00237.edit    +++|*         LOC    TRANSFER IF NOT PRIMARY FILE.
00255  M01S00238.edit    +++|*         R      REGISTER USED.
00256  M01S00239.edit    +++|
00257  M01S00240.edit    +++|
00258  M01S00241.edit    +++| CEPF     MACRO  LOC,R
00259  M01S00242.edit    +++|          SA_R   PFADR
00260  M01S00243.edit    +++|          BX7    X_R-X5
00261  M01S00244.edit    +++|          SX5    X_R
00262  M01S00245.edit    +++|          NZ     X7,LOC
00263  M01S00246.edit    +++|          ENDM
00264  M01S00247.edit    +++| INTRPT   SPACE  4
00265  M01S00248.edit    +++|**        INTRPT - PROCESS TERMINAL INTERRUPT
00266  M01S00249.edit    +++|*
00267  M01S00250.edit    +++|*         ALL OUTPUT DATA IN THE BUFFER WILL BE ISSUED PRIOR
00268  M01S00251.edit    +++|*         TO PROMPT MESSAGE.
00269  M01S00252.edit    +++|*
00270  M01S00253.edit    +++|*         NO - ADDRESS IF COMMAND TO NOT CONTINUE AFTER INTERRUPT.
00271  M01S00254.edit    +++|
00272  M01S00255.edit    +++|
00273  M01S00256.edit    +++| INTRPT   MACRO  NO
00274  M01S00257.edit    +++|+         RJ     PCC
00275  M01S00258.edit    +++|-         EQ     NO
00276  M01S00259.edit    +++|          ENDM
00277  M01S00260.edit    +++|          SPACE  4
00278  M01S00261.edit    +++|*CALL COMCMAC
00279  M01S00262.edit    +++|*CALL     COMSTCM
00280  M01S00263.edit    +++|          TITLE  FETS.
00281  M01S00264.edit    +++|          ORG    105B
00282  M01S00265.edit    +++| FETS     BSS    0
00283  M01S00266.edit    +++|
00284  M01S00267.edit    +++| F        BSS    0           TEXT FILE
00285  M01S00268.edit    +++| SCR5     FILEC  FBUF,FBUFL,FET=7,EPR
00286  M01S00269.edit    +++|          SPACE  3
00287  M01S00270.edit    +++| S        BSS    0           SCRATCH FILE
00288  M01S00271.edit    +++| SCR4     FILEC  SBUF,FBUFL,FET=7
00289  M01S00272.edit    +++|          SPACE  3
00290  M01S00273.edit    +++| SC       BSS    0           SECONDARY SCRATCH FILE
00291  M01S00274.edit    +++| SCR1     FILEC  SCBUF,FBUFL,FET=7
00292  M01S00275.edit    +++|          SPACE  3
00293  M01S00276.edit    +++| B        BSS    0           STRING BUFFER FILE
00294  M01S00277.edit    +++| SCR2     FILEC  BBUF,BBUFL,FET=7
00295  M01S00278.edit    +++|          SPACE  3
00296  M01S00279.edit    +++| M        BSS    0           MERGE FILE
00297  M01S00280.edit    +++| SCR      FILEC  MBUF,MBUFL,FET=7,EPR
00298  M01S00281.edit    +++|          SPACE  3
00299  M01S00282.edit    +++| I        BSS    0           INPUT FILE
00300  M01S00283.edit    +++| INPUT    FILEC  IBUF,IBUFL,FET=7
00301  M01S00284.edit    +++|          SPACE  3
00302  M01S00285.edit    +++| O        BSS    0           OUTPUT FILE
00303  M01S00286.edit    +++| OUTPUT   FILEC  OBUF,OBUFL,FET=7
00304  M01S00287.edit    +++|          SPACE  3
00305  M01S00288.edit    +++| T        BSS    0           LENGTH FILE
00306  M01S00289.edit    +++| SCR3     RFILEC CMDB,FBUFL
00307  M01S00290.edit    +++|          TITLE  COMMAND TABLE.
00308  M01S00291.edit    +++| TCMD     BSS    0           TABLE OF COMMAND KEYWORDS
00309  M01S00292.edit    +++|          COMMAND  A,ADD,STR1,NUM
00310  M01S00293.edit    +++|          COMMAND  ADD,ADD,STR1,NUM
00311  M01S00294.edit    +++|          COMMAND  ADDS,ADDS,STR1,NUM
00312  M01S00295.edit    +++|          COMMAND  AL,ALIGN,STR1,STR2,NUM
00313  M01S00296.edit    +++|          COMMAND  ALIGN,ALIGN,STR1,STR2,NUM
00314  M01S00297.edit    +++|          COMMAND  AS,ADDS,STR1,NUM
00315  M01S00298.edit    +++|          COMMAND  B,BLANK,STR1,STR2,NUM
00316  M01S00299.edit    +++|          COMMAND  BLANK,BLANK,STR1,STR2,NUM
00317  M01S00300.edit    +++|          COMMAND  BLANKS,BLANKS,STR1,STR2,NUM
00318  M01S00301.edit    +++|          COMMAND  BS,BLANKS,STR1,STR2,NUM
00319  M01S00302.edit    +++|          COMMAND  C,CHANGE,STR1,STR2,NUM
00320  M01S00303.edit    +++|          COMMAND  CHANGE,CHANGE,STR1,STR2,NUM
00321  M01S00304.edit    +++|          COMMAND  CHANGES,CHANGES,STR1,STR2,NUM
00322  M01S00305.edit    +++|          COMMAND  CL,CLEAR
00323  M01S00306.edit    +++|          COMMAND  CLEAR,CLEAR
00324  M01S00307.edit    +++|          COMMAND  CS,CHANGES,STR1,STR2,NUM
00325  M01S00308.edit    +++|          COMMAND  D,DELETE,STR1,STR2,NUM
00326  M01S00309.edit    +++|          COMMAND  DEFTAB,DEFTAB,STR1
00327  M01S00310.edit    +++|          COMMAND  DELETE,DELETE,STR1,STR2,NUM
00328  M01S00311.edit    +++|          COMMAND  DELETES,DLETES,STR1,STR2,NUM
00329  M01S00312.edit    +++|          COMMAND  DS,DLETES,STR1,STR2,NUM
00330  M01S00313.edit    +++|          COMMAND  DT,DEFTAB,STR1
00331  M01S00314.edit    +++|          COMMAND  E,XTRACT,STR1,STR2,NUM
00332  M01S00315.edit    +++|          COMMAND  END,END
00333  M01S00316.edit    +++|          COMMAND  ES,XTRACTS,STR1,STR2,NUM
00334  M01S00317.edit    +++|          COMMAND  EXTRACT,XTRACT,STR1,STR2,NUM
00335  M01S00318.edit    +++|          COMMAND  F,FIND,STR1,STR2,NUM
00336  M01S00319.edit    +++|          COMMAND  FIND,FIND,STR1,STR2,NUM
00337  M01S00320.edit    +++|          COMMAND  FINDS,FINDS,STR1,STR2,NUM
00338  M01S00321.edit    +++|          COMMAND  FS,FINDS,STR1,STR2,NUM
00339  M01S00322.edit    +++|          COMMAND  INSERTS,INSERTS,STR1,STR2,NUM
00340  M01S00323.edit    +++|          COMMAND  IS,INSERTS,STR1,STR2,NUM
00341  M01S00324.edit    +++|          COMMAND  L,LIST,STR1,STR2,NUM
00342  M01S00325.edit    +++|          COMMAND  LENGTH,LENGTH,NUM
00343  M01S00326.edit    +++|          COMMAND  LINE,LINE
00344  M01S00327.edit    +++|          COMMAND  LIST,LIST,STR1,STR2,NUM
00345  M01S00328.edit    +++|          COMMAND  LISTAB,LISTAB
00346  M01S00329.edit    +++|          COMMAND  LISTS,LISTS,STR1,STR2,NUM
00347  M01S00330.edit    +++|          COMMAND  LN,LINE
00348  M01S00331.edit    +++|          COMMAND  LS,LISTS,STR1,STR2,NUM
00349  M01S00332.edit    +++|          COMMAND  LT,LISTAB
00350  M01S00333.edit    +++|          COMMAND  M,MERGE,STR1,STR2,NUM
00351  M01S00334.edit    +++|          COMMAND  MERGE,MERGE,STR1,STR2,NUM
00352  M01S00335.edit    +++|          COMMAND  N,NUMBER,STR1,STR2
00353  M01S00336.edit    +++|          COMMAND  NS,NUMBERS,STR1,STR2
00354  M01S00337.edit    +++|          COMMAND  NUMBER,NUMBER,STR1,STR2
00355  M01S00338.edit    +++|          COMMAND  NUMBERS,NUMBERS,STR1,STR2
00356  M01S00339.edit    +++|          COMMAND  R,RESET
00357  M01S00340.edit    +++|          COMMAND  RESET,RESET
00358  M01S00341.edit    +++|          COMMAND  RS,RPLACES,STR1,STR2,NUM
00359  M01S00342.edit    +++|          COMMAND  S,SET,STR1,NUM
00360  M01S00343.edit    +++|          COMMAND  SET,SET,STR1,NUM
00361  M01S00344.edit    +++|          COMMAND  STOP,END6
00362  M01S00345.edit    +++|          COMMAND  T,TABS,STR1
00363  M01S00346.edit    +++|          COMMAND  TAB,TABS,STR1
00364  M01S00347.edit    +++|          COMMAND  W,WIDTH,NUM
00365  M01S00348.edit    +++|          COMMAND  WIDTH,WIDTH,NUM
00366  M01S00349.edit    +++| TCMDL    EQU    *-TCMD
00367  M01S00350.edit    +++|          TITLE      DATA STORAGE.
00368  M01S00351.edit    +++|**        DATA STORAGE.
00369  M01S00352.edit    +++|
00370  M01S00353.edit    +++|
00371  M01S00354.edit    +++| MODE     BSS    4           MODE FLAG
00372  M01S00355.edit    +++| STPHR1   EQU    MODE+1      POINTER TO /P1/
00373  M01S00356.edit    +++| STPHR2   EQU    STPHR1+1    POINTER TO /P2/
00374  M01S00357.edit    +++| WDTH     CON    72          DEFAULT WITDH
00375  M01S00358.edit    +++| SVLC     CON    0           SEARCH POINTER
00376  M01S00359.edit    +++| PFADR    CON    F           FET ADDRESS OF PRIMARY TEXT FILE
00377  M01S00360.edit    +++| JOTY     CON    0           JOB ORIGIN TYPE
00378  M01S00361.edit    +++| TFILE    CON    1           EDIT FILE NAME
00379  M01S00362.edit    +++| INTP     CON    0           INTERRUPT PENDING
00380  M01S00363.edit    +++| TINT     CON    0           TERMINAL INTERRUPT INDICATOR
00381  M01S00364.edit    +++| TFLEN    CON    377776B     LENGTH OF EDIT FILE
00382  M01S00365.edit    +++| DAFF     CON    0           DIRECT ACCESS FILE FLAG
00383  M01S00366.edit    +++| EOFIF    CON    1           EOF ON INPUT FLAG
00384  M01S00367.edit    +++| EOFTF    CON    0           EOF ON TEXT FILE FLAG
00385  M01S00368.edit    +++| FBB      CON    340B        FILE BIAS BITS
00386  M01S00369.edit    +++| TABCH    CON    1S59        TAB CHARACTER
00387  M01S00370.edit    +++| ASC      CON    0           ESCAPE CODE INDICATOR (-76B IF SET)
00388  M01S00371.edit    +++| AFLI     CON    0           ALIGN FIELD LENGTH INDICATOR
00389  M01S00372.edit    +++|
00390  M01S00373.edit    +++| TTBL     CON    11          START OF PRESET TAB COLUMNS
00391  M01S00374.edit    +++|          CON    18
00392  M01S00375.edit    +++|          CON    30
00393  M01S00376.edit    +++|          CON    40
00394  M01S00377.edit    +++|          CON    50
00395  M01S00378.edit    +++|          BSSZ   TTBLL-*+TTBL+1
00396  M01S00379.edit    +++| BLKS     CON    1H          BLANK WORD
00397  M01S00380.edit    +++| BLKL     VFD    12/2H  ,48/0
00398  M01S00381.edit    +++|
00399  M01S00382.edit    +++|
00400  M01S00383.edit    +++|**        POINTER WORD - FBW, LBW, SLP.
00401  M01S00384.edit    +++|*
00402  M01S00385.edit    +++|*T        1/S,35/POSITION,24/ADDRESS
Figure

0232429ADDRESSPOSITION305859POSITIONS

00403  M01S00386.edit    +++|*                *S*        = STATUS OF POINTER, NEGATIVE INDICATES
00404  M01S00387.edit    +++|*                             POINTER IS AT END OF LINE.
00405  M01S00388.edit    +++|*                *POSITION* = CHARACTER POSITION WITHIN WORD (0 - 9)
00406  M01S00389.edit    +++|*                *ADDRESS*  = ADDRESS OF WORD CONTAINING *POSITION*.
00407  M01S00390.edit    +++|*
00408  M01S00391.edit    +++|*         THE ORDER OF THE FOLLOWING MUST BE MAINTAINED.
00409  M01S00392.edit    +++|
00410  M01S00393.edit    +++| FBW      CON    0           FIRST CHARACTER BUFFER POINTER WORD
00411  M01S00394.edit    +++| LBW      CON    0           LAST CHARACTER BUFFER POINTER WORD
00412  M01S00395.edit    +++| SLP      CON    0           SOURCE LINE POINTER
00413  M01S00396.edit    +++|
00414  M01S00397.edit    +++| LBA      CON    LBUF        LINE BUFFER ADDRESS
00415  M01S00398.edit    +++|
00416  M01S00399.edit    +++| NUM      CON    0           COMMAND NUMERIC FIELD
00417  M01S00400.edit    +++| SEC      CON    0           SEARCH COUNT
00418  M01S00401.edit    +++| ICT      CON    0           INTERRUPT PROCESSING SEARCH COUNT
00419  M01S00402.edit    +++|
00420  M01S00403.edit    +++| LCT      CON    0           LINE COUNT
00421  M01S00404.edit    +++| LBL      CON    0           LINE BUFFER LWA
00422  M01S00405.edit    +++| TBL      CON    0           TEMPORARY BUFFER LWA
00423  M01S00406.edit    +++|
00424  M01S00407.edit    +++| RTFP     CON    0           TEXT FILE BUFFER POINTER
00425  M01S00408.edit    +++| TBST     CON    0           TEXT FILE BUFFER STATUS
00426  M01S00409.edit    +++| MAIN     TITLE    COMMAND CRACKER.
00427  M01S00410.edit    +++|**        MAIN - CRACKS COMMAND AND LOCATES PROCESSOR.
00428  M01S00411.edit    +++|*
00429  M01S00412.edit    +++|*         ENTRY  (JOTY)  - JOB ORIGIN TYPE.
00430  M01S00413.edit    +++|*                (EOFIF) - INPUT FILE STATUS.
00431  M01S00414.edit    +++|*                (ASC)   - ASCII INDICATOR.
00432  M01S00415.edit    +++|*                (TFILE) - EDIT FILE NAME.
00433  M01S00416.edit    +++|*                (DAFF)  - DIRECT ACCESS TEXT FILE FLAG.
00434  M01S00417.edit    +++|*                (EOFTF) - TEXT FILE STATUS.
00435  M01S00418.edit    +++|*                (LBL)   - LINE BUFFER LAST WORD ADDRESS.
00436  M01S00419.edit    +++|*
00437  M01S00420.edit    +++|*         EXIT   (NUM) - ABSOLUTE VALUE OF NUMERIC FIELD, DEFAULT OF 1.
00438  M01S00421.edit    +++|*                (SEC) - NEGATE OF (NUM).
00439  M01S00422.edit    +++|*                (A3) = STPHR1.
00440  M01S00423.edit    +++|*T STPHR1 36/NUMBER OF CHARACTERS IN STRING P1,24/P1 BEGINNING ADDRESS
Figure STPHR1

0232429P1 BEGINNING ADDRESSNUMBER OF CHARACTERS IN STRING P13059NUMBER OF CHARACTERS IN STRING P1

00441  M01S00424.edit    +++|*                (A4) = STPHR2.
00442  M01S00425.edit    +++|*T STPHR2 36/NUMBER OF CHARACTERS IN STRING P2,24/P2 BEGINNING ADDRESS
Figure STPHR2

0232429P2 BEGINNING ADDRESSNUMBER OF CHARACTERS IN STRING P23059NUMBER OF CHARACTERS IN STRING P2

00443  M01S00426.edit    +++|*                (A5) - FET ADDRESS OF WRITE FILE.
00444  M01S00427.edit    +++|*                (X0) = (X2) = (NUM).
00445  M01S00428.edit    +++|*                (X1) = (X7) = 0.
00446  M01S00429.edit    +++|*                (X3) = (STPHR1).
00447  M01S00430.edit    +++|*                (X4) = (STPHR2).
00448  M01S00431.edit    +++|*                (X5) - FET ADDRESS OF READ FILE.
00449  M01S00432.edit    +++|*                (B7) = 1, IF NUMERIC FIELD NEGATIVE, 0 OTHERWISE.
00450  M01S00433.edit    +++|*
00451  M01S00434.edit    +++|*         USES   ALL.
00452  M01S00435.edit    +++|*
00453  M01S00436.edit    +++|*         CALLS  ANC, CFC, SFN, COMMAND PROCESSORS.
00454  M01S00437.edit    +++|
00455  M01S00438.edit    +++|
00456  M01S00439.edit    +++| MAIN22   SB4    X2-1R
00457  M01S00440.edit    +++|          NZ     B4,MAIN23   IF NOT BLANK CHARACTER
00458  M01S00441.edit    +++|          SB2    B2+B1
00459  M01S00442.edit    +++|          SA2    B2
00460  M01S00443.edit    +++|          NE     B2,B6,MAIN22  IF NOT END OF INPUT
00461  M01S00444.edit    +++|          EQ     MAIN17
00462  M01S00445.edit    +++|
00463  M01S00446.edit    +++| MAIN23   SB4    X2-1R$
00464  M01S00447.edit    +++|          ZR     B4,MAIN17   IF COMMENTS FIELD
00465  M01S00448.edit    +++|
00466  M01S00449.edit    +++|*         PROCESS SYNTAX ERROR.
00467  M01S00450.edit    +++|
00468  M01S00451.edit    +++| MAINX    SA1    SEM
00469  M01S00452.edit    +++|          RJ     SFN         BLANK FILL COMMAND WORD
00470  M01S00453.edit    +++|          SA6    A1
00471  M01S00454.edit    +++|          WRITEC O,A6
00472  M01S00455.edit    +++|
00473  M01S00456.edit    +++| MAIN     RJ     CTI         CLEAR TERMINAL INTERRUPTS
00474  M01S00457.edit    +++|          SA3    JOTY
00475  M01S00458.edit    +++|          ZR     X6,MAIN2    IF NOT INTERRUPT PENDING
00476  M01S00459.edit    +++|          NZ     X3,MAIN1    IF NOT INTERACTIVE INPUT
00477  M01S00460.edit    +++|          RECALL I
00478  M01S00461.edit    +++|          SA1    I+1         RESET INPUT FET
00479  M01S00462.edit    +++|          SX6    X1
00480  M01S00463.edit    +++|          SA6    A1+B1
00481  M01S00464.edit    +++|          SA6    A6+B1
00482  M01S00465.edit    +++|          BX7    X7-X7
00483  M01S00466.edit    +++|          SA7    EOFIF
00484  M01S00467.edit    +++| MAIN1    RECALL O
00485  M01S00468.edit    +++|          SA1    X2+B1       RESET OUTPUT FET
00486  M01S00469.edit    +++|          SX6    X1
00487  M01S00470.edit    +++|          SA6    A1+B1
00488  M01S00471.edit    +++|          SA6    A6+B1
00489  M01S00472.edit    +++|          BX7    X7-X7       CLEAR INTERRUPT PENDING
00490  M01S00473.edit    +++|          SA7    INTP
00491  M01S00474.edit    +++| MAIN2    SA2    EOFIF       CHECK INPUT STATUS
00492  M01S00475.edit    +++|          NZ     X2,MAIN3    IF NO EOF ON INPUT FILE
00493  M01S00476.edit    +++|          SB5    END         PRESET END COMMAND
00494  M01S00477.edit    +++|          SB7    B0+         CLEAR NEGATIVE NUMERIC INDICATOR
00495  M01S00478.edit    +++|          NZ     X3,MAIN19   IF NOT INTERACTIVE JOB
00496  M01S00479.edit    +++|          SX6    B1
00497  M01S00480.edit    +++|          SA6    A2          CLEAR EOI STATUS
00498  M01S00481.edit    +++|          READ   I           REINIATE READ
00499  M01S00482.edit    +++| MAIN3    READS  I,CMDB,-CMDBL
00500  M01S00483.edit    +++|          NZ     X1,MAIN20   IF USER HIT (CR) ONLY
00501  M01S00484.edit    +++|          SB2    CMDB-1      START OF COMMAND BUFFER
00502  M01S00485.edit    +++|          SB3    7
00503  M01S00486.edit    +++|          SB5    60
00504  M01S00487.edit    +++|          SX7    B0+
00505  M01S00488.edit    +++|
00506  M01S00489.edit    +++|*         ASSEMBLE COMMAND WORD.
00507  M01S00490.edit    +++|
00508  M01S00491.edit    +++| MAIN4    RJ     ANC         ASSEMBLE NEXT CHARACTER
00509  M01S00492.edit    +++|          EQ     B2,B6,MAIN5 IF END OF INPUT
00510  M01S00493.edit    +++|          SX1    X2-1R
00511  M01S00494.edit    +++|          ZR     X1,MAIN4    IF BLANK CHARACTER
00512  M01S00495.edit    +++|          ZR     X4,MAIN5    IF NOT ALPHA CHARACTER
00513  M01S00496.edit    +++|          SX1    X4-1R0
00514  M01S00497.edit    +++|          PL     X1,MAIN5    IF NOT ALPHA CHARACTER
00515  M01S00498.edit    +++|          SX1    X3-74B
00516  M01S00499.edit    +++|          ZR     X1,MAIN5    IF 74B ESCAPE CHARACTER
00517  M01S00500.edit    +++|          SB3    B3-1
00518  M01S00501.edit    +++|          NG     B3,MAIN21   IF COMMAND TOO LONG
00519  M01S00502.edit    +++|          SB5    B5-6
00520  M01S00503.edit    +++|          LX7    6
00521  M01S00504.edit    +++|          BX7    X4+X7
00522  M01S00505.edit    +++|          EQ     MAIN4
00523  M01S00506.edit    +++|
00524  M01S00507.edit    +++|*         SEARCH FOR COMMAND.
00525  M01S00508.edit    +++|
00526  M01S00509.edit    +++| MAIN5    ZR     X7,MAIN21   IF NO COMMAND
00527  M01S00510.edit    +++|          MX1    -6          MASK FOR MODE CHARACTER
00528  M01S00511.edit    +++|          BX6    -X1*X7
00529  M01S00512.edit    +++|          SX6    X6-1RS
00530  M01S00513.edit    +++|          SA6    MODE        SET MODE
00531  M01S00514.edit    +++|          LX7    X7,B5       LEFT JUSTIFY COMMAND WORD
00532  M01S00515.edit    +++|          SA1    =0LSTOP     CHECK FOR STOP COMMAND
00533  M01S00516.edit    +++|          BX5    X1-X7
00534  M01S00517.edit    +++|          ZR     X5,END6     IF STOP COMMAND
00535  M01S00518.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPT
00536  M01S00519.edit    +++|          NZ     X3,MAIN     IF INTERRUPTED
00537  M01S00520.edit    +++|          SX4    B1
00538  M01S00521.edit    +++|          MX6    42
00539  M01S00522.edit    +++|          SB3    TCMD-1      SET COMMAND TABLE ADDRESS
00540  M01S00523.edit    +++|          SX3    TCMDL*2     SET TABLE LENGTH
00541  M01S00524.edit    +++| MAIN6    AX3    1
00542  M01S00525.edit    +++|          PL     X4,MAIN7    IF ENTRY TOO HIGH
00543  M01S00526.edit    +++|          SB3    A1+B1       RAISE LOWER LIMIT
00544  M01S00527.edit    +++| MAIN7    SA1    X3+B3       GET NEXT ENTRY
00545  M01S00528.edit    +++|          BX5    -X6*X1      CHECK FOR MATCH
00546  M01S00529.edit    +++|          BX1    X6*X1
00547  M01S00530.edit    +++|          IX4    X1-X7
00548  M01S00531.edit    +++|          ZR     X4,MAIN8    IF COMMAND FOUND
00549  M01S00532.edit    +++|          NZ     X3,MAIN6    IF NOT END OF SEARCH
Line S00533 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00533.v23l617 ---|          JP     MAIN21      PROCESS ILLEGAL COMMAND
00551  M01S00017.v23l617 +++|          JP     MAIN21      PROCESS INCORRECT COMMAND
00552  M01S00534.edit    +++|
00553  M01S00535.edit    +++| MAIN8    SA7    SEM
00554  M01S00536.edit    +++|          MX1    -15
00555  M01S00537.edit    +++|          SX7    B1
00556  M01S00538.edit    +++|          BX4    -X1*X5      GET PROCESSOR ADDRESS
00557  M01S00539.edit    +++|          SX6    B0
00558  M01S00540.edit    +++|          LX5    59-17
00559  M01S00541.edit    +++|          SB5    X4
00560  M01S00542.edit    +++|          SA6    STPHR1      CLEAR STRING FIELD POINTERS
00561  M01S00543.edit    +++|          SB7    B0+
00562  M01S00544.edit    +++|          SB3    -B1
00563  M01S00545.edit    +++|          SA6    A6+B1
00564  M01S00546.edit    +++|          EQ     B2,B6,MAIN18  IF NO OPTIONAL FIELDS
00565  M01S00547.edit    +++|          SX1    X2-1R;
00566  M01S00548.edit    +++|          ZR     X1,MAIN13   IF SPECIFICATOR FIELD NEXT
00567  M01S00549.edit    +++|          RJ     CFC         CHECK FOR COLON
Line S00550 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00568  M02S00550.v23l617 ---|          NZ     X3,MAIN23   IF ILLEGAL SEPARATOR
00569  M01S00018.v23l617 +++|          NZ     X3,MAIN23   IF INCORRECT SEPARATOR
00570  M01S00551.edit    +++|
00571  M01S00552.edit    +++|*         PROCESS CHARACTER STRING.
00572  M01S00553.edit    +++|
00573  M01S00554.edit    +++| MAIN9    RJ     ANC         ASSEMBLE NEXT CHARACTER
00574  M01S00555.edit    +++|          EQ     B2,B6,MAINX IF PREMATURE END OF INPUT
00575  M01S00556.edit    +++|          SX1    X2-1R
Line S00557 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00576  M02S00557.v23l617 ---|          ZR     X1,MAINX    IF ILLEGAL DELIMITER
00577  M01S00019.v23l617 +++|          ZR     X1,MAINX    IF INCORRECT DELIMITER
00578  M01S00558.edit    +++|          SX1    X2-1R$
Line S00559 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00579  M02S00559.v23l617 ---|          ZR     X1,MAINX    IF ILLEGAL DELIMITER
00580  M01S00020.v23l617 +++|          ZR     X1,MAINX    IF INCORRECT DELIMITER
00581  M01S00560.edit    +++|          BX0    X2          SAVE DELIMITER
00582  M01S00561.edit    +++|          SX6    B2+B1
00583  M01S00562.edit    +++|          SB3    B3+B1       INCREMENT STRING COUNT
00584  M01S00563.edit    +++|          SB4    X6+
00585  M01S00564.edit    +++| MAIN10   RJ     ANC         ASSEMBLE NEXT CHARACTER
00586  M01S00565.edit    +++|          EQ     B2,B6,MAINX IF PREMATURE END OF INPUT
00587  M01S00566.edit    +++|          BX1    X0-X2
00588  M01S00567.edit    +++|          NZ     X1,MAIN10   IF NOT DELIMITER
00589  M01S00568.edit    +++|          ZR     X3,MAIN11   IF NOT ASCII DELIMITER
00590  M01S00569.edit    +++|          SX3    -1
00591  M01S00570.edit    +++| MAIN11   SA0    B2+X3
00592  M01S00571.edit    +++|          SX1    A0-B4       NUMBER OF CHARACTERS IN STRING
00593  M01S00572.edit    +++|          LX1    24
00594  M01S00573.edit    +++|          BX6    X1+X6
00595  M01S00574.edit    +++|          SA6    B3+STPHR1
00596  M01S00575.edit    +++|          ZR     X1,MAINX    IF NULL STRING
00597  M01S00576.edit    +++|          GT     B3,B1,MAINX IF TOO MANY STRINGS
00598  M01S00577.edit    +++|          BX1    X5
00599  M01S00578.edit    +++|          LX1    X1,B3
00600  M01S00579.edit    +++|          PL     X1,MAINX    IF STRING FIELD NOT ALLOWED
00601  M01S00580.edit    +++| MAIN12   RJ     ANC         ASSEMBLE NEXT CHARACTER
00602  M01S00581.edit    +++|          EQ     B2,B6,MAIN18  IF END OF INPUT
00603  M01S00582.edit    +++|          SX1    X2-1R
00604  M01S00583.edit    +++|          ZR     X1,MAIN12   IF BLANK CHARACTER
00605  M01S00584.edit    +++|          SX1    X2-1R,
00606  M01S00585.edit    +++|          ZR     X1,MAIN9    IF ANOTHER STRING FIELD
00607  M01S00586.edit    +++|          SX1    X2-1R;
Line S00587 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00608  M02S00587.v23l617 ---|          NZ     X1,MAIN23   IF ILLEGAL SEPARATOR
00609  M01S00021.v23l617 +++|          NZ     X1,MAIN23   IF INCORRECT SEPARATOR
00610  M01S00588.edit    +++|
00611  M01S00589.edit    +++|*         PROCESS NUMERIC FIELD.
00612  M01S00590.edit    +++|
00613  M01S00591.edit    +++| MAIN13   LX5    59-15-59+17
00614  M01S00592.edit    +++|          PL     X5,MAINX    IF NUMERIC FIELD NOT ALLOWED
00615  M01S00593.edit    +++|          RJ     ANC         ASSEMBLE NEXT CHARACTER
00616  M01S00594.edit    +++|          EQ     B2,B6,MAINX IF PREMATURE END OF INPUT
00617  M01S00595.edit    +++|          SX7    B0+
00618  M01S00596.edit    +++|          SX1    X2-1R*
00619  M01S00597.edit    +++|          NZ     X1,MAIN14   IF NOT ASTERISK
00620  M01S00598.edit    +++|          SX7    377776B     SET INFINITE NUMERIC FIELD
00621  M01S00599.edit    +++|          EQ     MAIN18
00622  M01S00600.edit    +++|
00623  M01S00601.edit    +++| MAIN14   SB4    X2-1R+
00624  M01S00602.edit    +++|          ZR     B4,MAIN15   IF PLUS SIGN
00625  M01S00603.edit    +++|          SB4    B4-B1
00626  M01S00604.edit    +++|          NZ     B4,MAIN16   IF NOT MINUS SIGN
00627  M01S00605.edit    +++|          SB7    B1
00628  M01S00606.edit    +++| MAIN15   SB2    B2+B1
00629  M01S00607.edit    +++|          EQ     B2,B6,MAINX IF PREMATURE END OF INPUT
00630  M01S00608.edit    +++|          SA2    B2
00631  M01S00609.edit    +++| MAIN16   SX4    X2-1R+
00632  M01S00610.edit    +++|          PL     X4,MAIN22   IF NOT DIGIT
00633  M01S00611.edit    +++|          SX4    X2-1R0
00634  M01S00612.edit    +++|          NG     X4,MAIN22   IF NOT DIGIT
00635  M01S00613.edit    +++|          LX6    X7,B1
00636  M01S00614.edit    +++|          LX7    3
00637  M01S00615.edit    +++|          IX7    X6+X7       N(I-1)*10
00638  M01S00616.edit    +++|          IX7    X7+X4       N(I-1)*10+N(I)
00639  M01S00617.edit    +++|          SB2    B2+B1
00640  M01S00618.edit    +++|          SA2    B2
00641  M01S00619.edit    +++|          NE     B2,B6,MAIN16  IF NOT END OF INPUT
00642  M01S00620.edit    +++| MAIN17   ZR     X7,MAINX    IF NUMERIC FIELD ZERO
00643  M01S00621.edit    +++|          MX1    -17
00644  M01S00622.edit    +++|          BX1    -X1*X7
00645  M01S00623.edit    +++|          BX1    X7-X1
00646  M01S00624.edit    +++|          NZ     X1,MAINX    IF NUMERIC FIELD TOO LARGE
00647  M01S00625.edit    +++|
00648  M01S00626.edit    +++| MAIN18   SA7    NUM
00649  M01S00627.edit    +++|          BX6    -X7
00650  M01S00628.edit    +++|          SA6    A7+B1
00651  M01S00629.edit    +++|          BX0    X7
00652  M01S00630.edit    +++|          BX2    X7
00653  M01S00631.edit    +++|          SX6    B5-SET
00654  M01S00632.edit    +++|          ZR     X6,MAIN19   IF *SET* COMMAND
00655  M01S00633.edit    +++|          NZ     B7,MAINX    IF NUMERIC FIELD NEGATIVE
00656  M01S00634.edit    +++| MAIN19   MX7    -4
00657  M01S00635.edit    +++|          SA1    FBB
00658  M01S00636.edit    +++|          BX3    -X7*X1
00659  M01S00637.edit    +++|          AX1    4
00660  M01S00638.edit    +++|          BX6    -X7*X1
00661  M01S00639.edit    +++|          SA4    STPHR2
00662  M01S00640.edit    +++|          SA5    X6+F        WRITE FILE
00663  M01S00641.edit    +++|          SX5    X3+F        READ FILE
00664  M01S00642.edit    +++|          SA3    STPHR1      POINTER TO STRING FIELD /P1/
00665  M01S00643.edit    +++|          BX7    X7-X7
00666  M01S00644.edit    +++|          BX1    X1-X1
00667  M01S00645.edit    +++|          JP     B5          EXECUTE COMMAND
00668  M01S00646.edit    +++|
Line S00647 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00669  M02S00647.v23l617 ---|*         PROCESS ILLEGAL COMMAND.
00670  M01S00022.v23l617 +++|*         PROCESS INCORRECT COMMAND.
00671  M01S00648.edit    +++|
00672  M01S00649.edit    +++| MAIN20   SX7    0           SET EOI STATUS
00673  M01S00650.edit    +++|          SA7    EOFIF
00674  M01S00651.edit    +++| MAIN21   RJ     CTI         CHECK TERMINAL INTERRUPTS
00675  M01S00652.edit    +++|          NZ     X6,MAIN     IF INTERRUPTED
Line S00653 Modification History
M01 (Added by) edit
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00653.v23l617 ---|          WRITEC O,(=C* ILLEGAL COMMAND.*)
00677  M01S00023.v23l617 +++|          WRITEC O,(=C* INCORRECT COMMAND.*)
00678  M01S00654.edit    +++|          EQ     MAIN
00679  M01S00655.edit    +++|
00680  M01S00656.edit    +++|
00681  M01S00657.edit    +++| SEM      DATA   C*          SYNTAX ERROR.*
00682  M01S00658.edit    +++| ADD      TITLE  LINE COMMAND PROCESSORS.
00683  M01S00659.edit    +++|***       ADD (A) - ADD LINES.
00684  M01S00660.edit    +++|*
00685  M01S00661.edit    +++|*         ONE OR MORE LINES ARE ADDED TO THE FILE BEING EDITED.
00686  M01S00662.edit    +++|*         NEW DATA IS OBTAINED BY POSTING A REQUEST TO
00687  M01S00663.edit    +++|*         * ENTER TEXT.*  NEW TEXT IS ADDED AFTER THE NTH LINE OR
00688  M01S00664.edit    +++|*         AFTER EACH OF THE FIRST N LINES CONTAINING /P1/.
00689  M01S00665.edit    +++|
00690  M01S00666.edit    +++|
00691  M01S00667.edit    +++| ADD      BSS    0
00692  M01S00668.edit    +++|          NZ     X3,CHL1     IF STRING FIELD PRESENT
00693  M01S00669.edit    +++| ADL1     SA2    X1+ADLA
00694  M01S00670.edit    +++|          BX6    X2
00695  M01S00671.edit    +++|          SA6    ADL2        SET RJ FOR ADD/CHANGE
00696  M01S00672.edit    +++|          RJ     ETX         PROCESS TEXT ENTRY
00697  M01S00673.edit    +++|          ZR     X0,MAIN     IF NO TEXT ENTERED
00698  M01S00674.edit    +++|          SA4    EOFTF
00699  M01S00675.edit    +++|          BX7    X2          SAVE FET ADDRESS
00700  M01S00676.edit    +++|          SA7    A6-B1
00701  M01S00677.edit    +++|          ZR     X4,ADL3     IF POSITIONED AT END OF INFORMATION
00702  M01S00678.edit    +++| ADL2     SA2    NUM
00703  M01S00679.edit    +++|          RJ     *
00704  M01S00680.edit    +++| ADL3     INTRPT SET2        PROCESS TERMINAL INTERRUPT
00705  M01S00681.edit    +++|          SA2    RTFP        RETRIEVE FET POINTER
00706  M01S00682.edit    +++|          READW  X2,TBUF,100B
00707  M01S00683.edit    +++|          SB7    B6-TBUF     NUMBER WORDS READ
00708  M01S00684.edit    +++|          BX0    X1
00709  M01S00685.edit    +++|          SX2    A5
00710  M01S00686.edit    +++|          WRITEW X2,TBUF,B7
00711  M01S00687.edit    +++|          ZR     X0,ADL3     IF COPY NOT COMPLETE
00712  M01S00688.edit    +++|          JP     SET2
00713  M01S00689.edit    +++|
00714  M01S00690.edit    +++|
00715  M01S00691.edit    +++| ADLA     SA2    NUM         POSITION TEXT FILE FOR ADD COMMAND
00716  M01S00692.edit    +++|          RJ     AFW
00717  M01S00693.edit    +++| +        SA2    SEC         POSITION TEXT FILE FOR CHANGE COMMAND
00718  M01S00694.edit    +++|          RJ     ATF
00719  M01S00695.edit    +++| BLANK    EJECT
00720  M01S00696.edit    +++|***       BLANK (B) - BLANK LINES.
00721  M01S00697.edit    +++|*
00722  M01S00698.edit    +++|*         ONE OR MORE LINES OF DATA IN THE TEXT FILE ARE REPLACED
00723  M01S00699.edit    +++|*         WITH BLANK LINES. LINES BLANKED ARE THE FIRST N LINES OR
00724  M01S00700.edit    +++|*         THE FIRST N LINES CONTAINING /PHRASE/.
00725  M01S00701.edit    +++|
00726  M01S00702.edit    +++|
00727  M01S00703.edit    +++| BLANK    BSS    0
00728  M01S00704.edit    +++|          SA2    EOFTF
00729  M01S00705.edit    +++|          ZR     X2,LTL11    IF POSITIONED AT EOI
00730  M01S00706.edit    +++|          ZR     X3,BLL6     IF NO STRING FIELDS
00731  M01S00707.edit    +++|          RJ     PSO         SEARCH FOR STRING
00732  M01S00708.edit    +++| BLL1     SA2    STPHR2
00733  M01S00709.edit    +++|          NZ     X2,BLL3     IF ELLIPSIS OPERATION
00734  M01S00710.edit    +++| BLL2     SA3    SEC
00735  M01S00711.edit    +++|          BX6    X6-X6
00736  M01S00712.edit    +++|          SX7    X3+B1       DECREMENT SEARCH COUNT
00737  M01S00713.edit    +++|          SA6    LBUF
00738  M01S00714.edit    +++|          SA7    A3
00739  M01S00715.edit    +++|          SX0    B1
00740  M01S00716.edit    +++|          ZR     X7,SET2     IF ALL DONE
00741  M01S00717.edit    +++|          INTRPT SET2        PROCESS TEMINAL INTERRUPT
00742  M01S00718.edit    +++|          RJ     SFS         SEARCH FOR STRING
00743  M01S00719.edit    +++|          NZ     X7,BLL1     IF ANOTHER /P1/ FOUND
00744  M01S00720.edit    +++|          JP     CHL6
00745  M01S00721.edit    +++|
00746  M01S00722.edit    +++| BLL3     SX1    B1          CHECK CURRENT LINE FOR /P2/
00747  M01S00723.edit    +++|          RJ     SLS
00748  M01S00724.edit    +++|          ZR     B7,BLL2     IF ONE LINE ELLIPSIS
00749  M01S00725.edit    +++|          WRITEC A5,TCHM
00750  M01S00726.edit    +++|          SX6    STPHR2      POSITION FILE AT /P2/
00751  M01S00727.edit    +++|          RJ     SRO
00752  M01S00728.edit    +++|          SA4    X5+5
00753  M01S00729.edit    +++|          SX7    X4+B4       ADVANCE READ FILE LINE POSITION
00754  M01S00730.edit    +++|          SA7    A4
00755  M01S00731.edit    +++| BLL4     EQ     B2,B1,BLL2  IF END OF ELLIPSIS IN NEXT LINE
00756  M01S00732.edit    +++|          SX2    A5
00757  M01S00733.edit    +++|          SX0    B1-B2
00758  M01S00734.edit    +++| BLL5     WRITEC X2,TCHM     WRITE BLANK LINES
00759  M01S00735.edit    +++|          SX0    X0+1
00760  M01S00736.edit    +++|          NZ     X0,BLL5     IF BLANKETY-BLANKS NOT ALL WRITTEN
00761  M01S00737.edit    +++|          EQ     BLL2
00762  M01S00738.edit    +++|
00763  M01S00739.edit    +++| BLL6     BX2    -X0
00764  M01S00740.edit    +++|          SA7    LBUF        SET BLANK LINE
00765  M01S00741.edit    +++|          SX2    X2+B1
00766  M01S00742.edit    +++|          ZR     X2,SET2     IF ONLY ONE BLANK LINE
00767  M01S00743.edit    +++|          RJ     ATF
00768  M01S00744.edit    +++|          BX6    X6-X6
00769  M01S00745.edit    +++|          MX4    8
00770  M01S00746.edit    +++|          SA6    LBUF
00771  M01S00747.edit    +++| +        LX4    1           SET EIGHT BLANK LINES
00772  M01S00748.edit    +++|          SA6    A6+B1
00773  M01S00749.edit    +++|          NG     X4,*
00774  M01S00750.edit    +++|          SA2    NUM
00775  M01S00751.edit    +++|          SX0    X2-1
00776  M01S00752.edit    +++| BLL7     SB4    -8
00777  M01S00753.edit    +++|          SX0    X0+B4
00778  M01S00754.edit    +++|          SX2    A5
00779  M01S00755.edit    +++|          SB7    B0-B4
00780  M01S00756.edit    +++|          PL     X0,BLL8     IF LINES ALL WRITTEN
00781  M01S00757.edit    +++|          SB7    X0+B7
00782  M01S00758.edit    +++| BLL8     WRITEW X2,LBUF,B7
00783  M01S00759.edit    +++|          INTRPT SET2        PROCESS TERMINAL INTERRUPT
00784  M01S00760.edit    +++|          PL     X0,BLL7     IF LINES NOT ALL BLANKED
00785  M01S00761.edit    +++|          JP     SET2
00786  M01S00762.edit    +++| CHANGE   EJECT
00787  M01S00763.edit    +++|***       CHANGE (C) - CHANGE LINES.
00788  M01S00764.edit    +++|*
00789  M01S00765.edit    +++|*         ONE OR MORE LINES OF TEXT ARE DELETED AND REPLACED WITH
00790  M01S00766.edit    +++|*         DATA ENTERED IN RESPONSE TO THE EDIT REQUEST * ENTER TEXT.*
00791  M01S00767.edit    +++|
00792  M01S00768.edit    +++|
00793  M01S00769.edit    +++| CHANGE   BSS    0
00794  M01S00770.edit    +++|          SX1    1
00795  M01S00771.edit    +++|          ZR     X3,ADL1     IF NO STRING FIELDS
00796  M01S00772.edit    +++| CHL1     SA2    X1+CHLA
00797  M01S00773.edit    +++|          BX6    X2          SET RJ FOR CHANGE/ADD
00798  M01S00774.edit    +++|          SX1    B0
00799  M01S00775.edit    +++|          SA2    EOFTF
00800  M01S00776.edit    +++|          SA6    CHL3
00801  M01S00777.edit    +++|          ZR     X2,LTL11    IF POSITIONED AT EOF
00802  M01S00778.edit    +++|          RJ     PSO
00803  M01S00779.edit    +++|          RJ     ETX
00804  M01S00780.edit    +++|          ZR     X0,SET2     IF NO TEXT ENTERED
00805  M01S00781.edit    +++|          BX7    X2
00806  M01S00782.edit    +++|          SA7    A6-B1       SAVE FET ADDRESS
00807  M01S00783.edit    +++| CHL2     SA1    STPHR2
00808  M01S00784.edit    +++|          ZR     X1,CHL3     IF NOT ELLIPSIS OPERATION
00809  M01S00785.edit    +++|          BX0    X0-X0
00810  M01S00786.edit    +++|          SX6    A1          SEARCH/READ FOR PHRASE ENDING ELLIPSIS
00811  M01S00787.edit    +++|          RJ     SRO
00812  M01S00788.edit    +++|          SA3    X5+5
00813  M01S00789.edit    +++|          SX6    X3+B4       ADVANCE READ FILE LINE POSITION
00814  M01S00790.edit    +++|          SA6    A3
00815  M01S00791.edit    +++| CHL3     SX2    -1          GET NEXT LINE
00816  M01S00792.edit    +++|          RJ     ATF
00817  M01S00793.edit    +++|*         SX2    1           ADVANCE LINE FOR ADD COMMAND
00818  M01S00794.edit    +++|*         RJ     AFW
00819  M01S00795.edit    +++|          SA2    RTFP        TEXT FILE FET ADDRESS
00820  M01S00796.edit    +++|          SA3    X2+5
00821  M01S00797.edit    +++|          SX0    X3+         SET LINE COUNT OF REPLACEMENT DATA
00822  M01S00798.edit    +++|          SA0    X2+
00823  M01S00799.edit    +++| CHL4     READC  A0,TBUF,LBUFL
00824  M01S00800.edit    +++|          SX0    X0-1        DECREMENT LINE COUNT
00825  M01S00801.edit    +++|          WRITEC A5,TBUF
00826  M01S00802.edit    +++|          NZ     X0,CHL4     LOOP TO END OF TEXT
00827  M01S00803.edit    +++|          SA3    SEC
00828  M01S00804.edit    +++|          SX7    X3+B1       DECREMENT OPERATION COUNT
00829  M01S00805.edit    +++|          SA7    A3
00830  M01S00806.edit    +++|          ZR     X7,CHL5     IF COUNTDOWN COMPLETE
00831  M01S00807.edit    +++|          INTRPT CHL6        PROCESS TERMINAL INTERRUPT
00832  M01S00808.edit    +++|          SA2    EOFTF
00833  M01S00809.edit    +++|          SA4    STPHR2
00834  M01S00810.edit    +++|          BX3    X2+X4
00835  M01S00811.edit    +++|          SX1    B0
00836  M01S00812.edit    +++|          ZR     X3,CHL6     IF STRING OPERATION COMPLETE
00837  M01S00813.edit    +++|          SX6    A4-B1
00838  M01S00814.edit    +++|          BX0    X0-X0       LOCATE NEXT OCCURANCE OF /P1/
00839  M01S00815.edit    +++|          RJ     SFS
00840  M01S00816.edit    +++|          ZR     X7,CHL6     IF END OF INFORMATION
00841  M01S00817.edit    +++|          SA2    RTFP
00842  M01S00818.edit    +++|          SA3    X2+B1
00843  M01S00819.edit    +++|          SX6    X3          SET OUT = FIRST
00844  M01S00820.edit    +++|          SA4    TBST
00845  M01S00821.edit    +++|          SA6    X2+3
00846  M01S00822.edit    +++|          ZR     X4,CHL2     IF TEXT ALL IN BUFFER
00847  M01S00823.edit    +++|          REWIND X2
00848  M01S00824.edit    +++|          READ   X2          REINITIATE INPUT
00849  M01S00825.edit    +++|          EQ     CHL2
00850  M01S00826.edit    +++|
00851  M01S00827.edit    +++| CHL5     SA3    STPHR2
00852  M01S00828.edit    +++|          ZR     X3,SET2     IF LINE REPLACEMENT COMPLETE
00853  M01S00829.edit    +++| CHL6     SA2    NUM
00854  M01S00830.edit    +++|          SA4    A2+B1       NUMBER LINES PROCESSED
00855  M01S00831.edit    +++|          IX1    X2+X4
00856  M01S00832.edit    +++|          ZR     X1,SET2     IF NONE CHANGED
00857  M01S00833.edit    +++|          RJ     GSM
00858  M01S00834.edit    +++|          JP     SET2
00859  M01S00835.edit    +++|
00860  M01S00836.edit    +++|
00861  M01S00837.edit    +++| CHLA     SX2    1           ADVANCE LINE FOR ADD COMMAND
00862  M01S00838.edit    +++|          RJ     AFW
00863  M01S00839.edit    +++| +        SX2    -1          ADVANCE LINE FOR CHANGE COMMAND
00864  M01S00840.edit    +++|          RJ     ATF
00865  M01S00841.edit    +++| DELETE   EJECT
00866  M01S00842.edit    +++|***       DELETE (D) - DELETE LINES.
00867  M01S00843.edit    +++|*
00868  M01S00844.edit    +++|*         ONE OR MORE LINES ARE DELETED FROM THE FILE BEING EDITED.
00869  M01S00845.edit    +++|*         ALL LINES OF A MULTI-LINE /PHRASE/ ARE DELETED.
00870  M01S00846.edit    +++|
00871  M01S00847.edit    +++|
00872  M01S00848.edit    +++| DELETE   BSS    0
00873  M01S00849.edit    +++|          SA2    EOFTF
00874  M01S00850.edit    +++|          ZR     X2,LTL11    IF POSITIONED AT EOI
00875  M01S00851.edit    +++|          ZR     X3,DLL3     IF STRING FIELDS EMPTY
00876  M01S00852.edit    +++|          RJ     PSO
00877  M01S00853.edit    +++| DLL1     SA1    STPHR2
00878  M01S00854.edit    +++|          ZR     X1,DLL2     IF NOT ELLIPSIS OPERATION
00879  M01S00855.edit    +++|          BX0    X0-X0
00880  M01S00856.edit    +++|          SX6    A1
00881  M01S00857.edit    +++|          RJ     SRO         FIND PHRASE ENDING ELLIPSIS
00882  M01S00858.edit    +++|          SA4    X5+5
00883  M01S00859.edit    +++|          SX7    X4+B4       ADVANCE READ FILE LINE POSITION
00884  M01S00860.edit    +++|          SA7    A4
00885  M01S00861.edit    +++| DLL2     READC  X5,LBUF,LBUFL
00886  M01S00862.edit    +++|          NZ     X1,DLL4     IF EOF ENCOUNTERED
00887  M01S00863.edit    +++|          SA4    X5+5
00888  M01S00864.edit    +++|          SX6    X4+B1       BUMP LINE ADVANCE
00889  M01S00865.edit    +++|          SA6    A4
00890  M01S00866.edit    +++|          SA3    SEC
00891  M01S00867.edit    +++|          SX7    X3+B1       DECREMENT NUMERIC COUNT
00892  M01S00868.edit    +++|          SA7    A3
00893  M01S00869.edit    +++|          ZR     X7,SET2     IF OPERATION COMPLETE
00894  M01S00870.edit    +++|          INTRPT CHL6        PROCESS TERMINAL INTERRPUT
00895  M01S00871.edit    +++|          BX0    X0-X0
00896  M01S00872.edit    +++|          SX6    B0
00897  M01S00873.edit    +++|          RJ     SFS
00898  M01S00874.edit    +++|          NZ     X7,DLL1     IF NEXT OCCURANCE OF /P1/ FOUND
00899  M01S00875.edit    +++|          JP     CHL6
00900  M01S00876.edit    +++|
00901  M01S00877.edit    +++| DLL3     BX2    -X0
00902  M01S00878.edit    +++|          RJ     ATF         ADVANCE FILE OVER LINES BEING DELETED
00903  M01S00879.edit    +++|          JP     SET2
00904  M01S00880.edit    +++|
00905  M01S00881.edit    +++| DLL4     CEPF   DLL2,4
00906  M01S00882.edit    +++|          SA7    EOFTF
00907  M01S00883.edit    +++|          SA3    SEC
00908  M01S00884.edit    +++|          SX6    X3+B1       DECREMENT COUNT
00909  M01S00885.edit    +++|          SA6    A3
00910  M01S00886.edit    +++|          ZR     X6,CHL5     IF OPERATION COMPLETE
00911  M01S00887.edit    +++|          JP     CHL6        TERMINATE PROCESSING
00912  M01S00888.edit    +++| EXTRACT  EJECT
00913  M01S00889.edit    +++|***       EXTRACT (E) - EXTRACT LINES.
00914  M01S00890.edit    +++|*
00915  M01S00891.edit    +++|*         ONE OR MORE LINES OF THE TEXT FILE ARE COPIED TO
00916  M01S00892.edit    +++|*         THE STRING BUFFER (SCRATCH FILE SCR2) FOLLOWING THE LAST
00917  M01S00893.edit    +++|*         ENTRY TO THE BUFFER.
00918  M01S00894.edit    +++|
00919  M01S00895.edit    +++|
00920  M01S00896.edit    +++| XTL5     SX0    0
00921  M01S00897.edit    +++|          RJ     CST         COUNT PHRASES
00922  M01S00898.edit    +++|          SA2    LCTB
00923  M01S00899.edit    +++|          RJ     ATF         ADVANCE TO LINE CONTAINING PHRASE
00924  M01S00900.edit    +++|          SA1    NUM
00925  M01S00901.edit    +++|          ZR     X1,XTL5.1   IF SPECIFIED NUMBER FOUND
00926  M01S00902.edit    +++|          RJ     GSM         SEND MESSAGE WITH PHRASE COUNT
00927  M01S00903.edit    +++| XTL5.1   SA4    STPHR2      CHECK FOR ELLIPSIS
00928  M01S00904.edit    +++|          ZR     X4,XTL6     IF NOT ELLIPSIS OPERATION
00929  M01S00905.edit    +++|          SA1    LCTB        COUNT TO NTH LINE CONTAINING /P1/
00930  M01S00906.edit    +++|          SA2    A1+B1
00931  M01S00907.edit    +++|          IX4    X2-X1       NUMBER LINES ACROSS ELLIPSIS
00932  M01S00908.edit    +++| XTL6     SX0    1
00933  M01S00909.edit    +++|          BX3    X3-X3
00934  M01S00910.edit    +++|          IX0    X0+X4
00935  M01S00911.edit    +++| XTRACT   BSS    0
00936  M01S00912.edit    +++|          SA2    EOFTF
00937  M01S00913.edit    +++|          ZR     X2,LTL11    IF POSITIONED AT EOI
00938  M01S00914.edit    +++|          SX6    B0+
00939  M01S00915.edit    +++|          SA6    XTSB        CLEAR BACKSPACE INDICATOR
00940  M01S00916.edit    +++|          NZ     X3,XTL5     IF STRING FIELDS PRESENT
00941  M01S00917.edit    +++|          RJ     PSB
00942  M01S00918.edit    +++|          WRITEC B,LBUF      COPY CURRENT LINE TO STRING BUFFER
00943  M01S00919.edit    +++|          SA4    B+5
00944  M01S00920.edit    +++|          IX6    X4+X0       BUMP STRING BUFFER LINE COUNT
00945  M01S00921.edit    +++|          SA6    A4
00946  M01S00922.edit    +++|          SX0    X0-1
00947  M01S00923.edit    +++|          ZR     X0,XTL2     IF TRANSFER COMPLETE
00948  M01S00924.edit    +++| XTL1     READC  X5,LBUF,LBUFL
00949  M01S00925.edit    +++|          NZ     X1,XTL4     IF EOF
00950  M01S00926.edit    +++|          SB7    B6-LBUF
00951  M01S00927.edit    +++|          SX0    X0-1        DECREMENT LINE COUNT
00952  M01S00928.edit    +++|          WRITEW B,LBUF,B7
00953  M01S00929.edit    +++|          INTRPT XTL3        PROCESS TERMINAL INTERRUPT
00954  M01S00930.edit    +++| XTL2     NZ     X0,XTL1     IF TRANSFER INCOMPLETE
00955  M01S00931.edit    +++| XTL3     WRITER B           FLUSH BUFFER
00956  M01S00932.edit    +++|          SX7    -1
00957  M01S00933.edit    +++|          SA7    XTSP
00958  M01S00934.edit    +++|          JP     LTL5
00959  M01S00935.edit    +++|
00960  M01S00936.edit    +++| XTL4     CEPF   XTL1,4
00961  M01S00937.edit    +++|          SA3    B+5
00962  M01S00938.edit    +++|          IX6    X3-X0       READJUST STRING BUFFER LINE COUNT
00963  M01S00939.edit    +++|          SA6    A3
00964  M01S00940.edit    +++|          SX0    0           CLEAR LINE COUNT
00965  M01S00941.edit    +++|          EQ     XTL2
00966  M01S00942.edit    +++| FIND     EJECT
00967  M01S00943.edit    +++|***       FIND (F) - FIND LINES.
00968  M01S00944.edit    +++|*
00969  M01S00945.edit    +++|*         LISTS THE NTH LINE OR THE NTH LINE(S) CONTAINING /PHRASE/.
00970  M01S00946.edit    +++|*         THE SEARCH POINTER IS SET TO THE NTH LINE OR TO THE NTH
00971  M01S00947.edit    +++|*         LINE CONTAINING /P1/.
00972  M01S00948.edit    +++|
00973  M01S00949.edit    +++|
00974  M01S00950.edit    +++| FIND     BSS    0
00975  M01S00951.edit    +++|          SA1    EOFTF
00976  M01S00952.edit    +++|          ZR     X1,LTL11    IF POSITIONED AT EOI
00977  M01S00953.edit    +++|          NZ     X3,FDL2     IF STRING FIELDS PRESENT
00978  M01S00954.edit    +++|          SX6    X0+
00979  M01S00955.edit    +++|          SA6    LCTB        SET LINE ADVANCE
00980  M01S00956.edit    +++|          RJ     AFW
00981  M01S00957.edit    +++|          ZR     X7,FDL1     IF POSITIONED AT EOI
00982  M01S00958.edit    +++|          WRITEC O,LBUF
00983  M01S00959.edit    +++|          JP     SET8
00984  M01S00960.edit    +++|
00985  M01S00961.edit    +++| FDL1     WRITEC O,EFM       ISSUE EOF MESSAGE
00986  M01S00962.edit    +++|          JP     SET7
00987  M01S00963.edit    +++|
00988  M01S00964.edit    +++| FDL2     SX0    B0
00989  M01S00965.edit    +++|          BX1    X1-X1
00990  M01S00966.edit    +++|          RJ     CST         ASSURE SPECIFIED PHRASE EXISTS
00991  M01S00967.edit    +++|          SA2    LCTB
00992  M01S00968.edit    +++|          RJ     AFW         ADVANCE W/O SEARCH TO PROPER LINE
00993  M01S00969.edit    +++|          SA0    STPHR2
00994  M01S00970.edit    +++|          WRITEC O,LBUF      COPY LINE TO OUTPUT
00995  M01S00971.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPTS
00996  M01S00972.edit    +++|          NZ     X3,FDL6     IF INTERRUPTED
00997  M01S00973.edit    +++|          SA4    A0
00998  M01S00974.edit    +++|          ZR     X4,FDL6     IF NOT ELLIPSIS OPERATION
00999  M01S00975.edit    +++|          BX1    X1-X1
01000  M01S00976.edit    +++|          SA2    STPHR1      SET POINTERS ABOUT /P1/
01001  M01S00977.edit    +++|          RJ     SLS
01002  M01S00978.edit    +++|          SA2    A0          CHECK LINE FOR PHRASE ENDING ELLIPSIS
01003  M01S00979.edit    +++|          RJ     SLS
01004  M01S00980.edit    +++|          NZ     B7,FDL4     IF NOT ONE LINE ELLIPSIS
01005  M01S00981.edit    +++|          EQ     FDL6
01006  M01S00982.edit    +++|
01007  M01S00983.edit    +++| FDL3     SA4    PFADR       SWITCH TO PRIMARY TEXT FILE
01008  M01S00984.edit    +++|          SX5    X4+
01009  M01S00985.edit    +++| FDL4     READC  X5,LBUF,LBUFL
01010  M01S00986.edit    +++|          NZ     X1,FDL3     IF EOR
01011  M01S00987.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPTS
01012  M01S00988.edit    +++|          NZ     X3,FDL5     IF INTERRUPTED
01013  M01S00989.edit    +++|          WRITEC O,LBUF
01014  M01S00990.edit    +++|          BX1    X1-X1       SEARCH LINE FOR PHRASE ENDING ELLIPSIS
01015  M01S00991.edit    +++|          SA2    A0
01016  M01S00992.edit    +++|          RJ     SLS
01017  M01S00993.edit    +++|          NZ     B7,FDL4     IF PHRASE NOT FOUND
01018  M01S00994.edit    +++| FDL5     RJ     RTF         REPOSITION TEXT FILE
01019  M01S00995.edit    +++| FDL6     SA1    NUM
01020  M01S00996.edit    +++|          RJ     GSM
01021  M01S00997.edit    +++|          JP     SET8
01022  M01S00998.edit    +++| LIST     EJECT
01023  M01S00999.edit    +++|***       LIST (L) - LIST LINES.
01024  M01S01000.edit    +++|*
01025  M01S01001.edit    +++|*         LISTS N LINES OR N GROUPS OF LINES CONTAINING /PHRASE/.
01026  M01S01002.edit    +++|
01027  M01S01003.edit    +++|
01028  M01S01004.edit    +++| LIST     BSS    0
01029  M01S01005.edit    +++|          SA2    EOFTF
01030  M01S01006.edit    +++|          ZR     X2,LTL11    IF FILE AT EOI
01031  M01S01007.edit    +++|          NZ     X3,LTL6     IF STRING FIELDS PRESENT
01032  M01S01008.edit    +++|          NZ     X4,MAINX    IF SYNTAX ERROR
01033  M01S01009.edit    +++| LTL1     SX0    X0-1        DECREMENT COUNTER
01034  M01S01010.edit    +++|          WRITEC O,LBUF
01035  M01S01011.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPTS
01036  M01S01012.edit    +++|          NZ     X3,MAIN     IF INTERRUPTED
01037  M01S01013.edit    +++|          NZ     X0,LTL3     IF MORE THAN ONE LINE TO BE LISTED
01038  M01S01014.edit    +++|          EQ     MAIN
01039  M01S01015.edit    +++|
01040  M01S01016.edit    +++| LTL2     SB7    B6-LBUF
01041  M01S01017.edit    +++|          WRITEW O,LBUF,B7
01042  M01S01018.edit    +++|          RJ     CTI         CLEAR TERMINAL INTERRUPTS
01043  M01S01019.edit    +++|          NZ     X3,LTL5     IF INTERRUPTED
01044  M01S01020.edit    +++|          SX0    X0-1
01045  M01S01021.edit    +++|          ZR     X0,LTL5     IF LISTING COMPLETE
01046  M01S01022.edit    +++| LTL3     READC  X5,LBUF,LBUFL
01047  M01S01023.edit    +++|          ZR     X1,LTL2     IF NOT END OF DATA
01048  M01S01024.edit    +++|          CEPF   LTL3,4
01049  M01S01025.edit    +++| LTL4     WRITEC O,EFM
01050  M01S01026.edit    +++| LTL5     RJ     RTF         REPOSITION TEXT FILES
01051  M01S01027.edit    +++|          JP     MAIN
01052  M01S01028.edit    +++|
01053  M01S01029.edit    +++| LTL6     SX0    0
01054  M01S01030.edit    +++|          ZR     X4,LTL7     IF NOT LOOKING FOR ELLIPSIS
01055  M01S01031.edit    +++|          RJ     CST         COUNT ELLIPSI
01056  M01S01032.edit    +++|          SA2    LCT
01057  M01S01033.edit    +++|          RJ     ATF         ADVANCE WITHOUT SEARCH TO /P1/
01058  M01S01034.edit    +++| LTL7     SX6    STPHR1      LOCATE /P1/
01059  M01S01035.edit    +++|          RJ     SRO
01060  M01S01036.edit    +++|          ZR     X7,LTL4     IF STRING NOT FOUND
01061  M01S01037.edit    +++|          SA4    STPHR2
01062  M01S01038.edit    +++|          SX0    1
01063  M01S01039.edit    +++|          ZR     X4,LTL10    IF NOT LISTING ELLIPSIS
01064  M01S01040.edit    +++| LTL8     SA2    STPHR2      SEARCH FOR /P2/
01065  M01S01041.edit    +++|          RJ     SLS
01066  M01S01042.edit    +++|          ZR     B7,LTL10    IF END OF ELLIPSIS FOUND
01067  M01S01043.edit    +++|          WRITEC O,LBUF
01068  M01S01044.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPTS
01069  M01S01045.edit    +++|          NZ     X3,LTL5     IF INTERRUPTED
01070  M01S01046.edit    +++| LTL9     READC  X5,LBUF,LBUFL
01071  M01S01047.edit    +++|          ZR     X1,LTL8     IF COPY COMPLETED
01072  M01S01048.edit    +++|          SA4    PFADR
01073  M01S01049.edit    +++|          BX5    X4          SWITCH TO PRIMARY TEXT FILE
01074  M01S01050.edit    +++|          EQ     LTL9
01075  M01S01051.edit    +++|
01076  M01S01052.edit    +++| LTL10    WRITEC O,LBUF      COPY LINE TO OUTPUT
01077  M01S01053.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPTS
01078  M01S01054.edit    +++|          NZ     X3,LTL5     IF INTERRUPTED
01079  M01S01055.edit    +++|          SA3    SEC
01080  M01S01056.edit    +++|          SX7    X3+B1       DECREMENT OPERATION COUNT
01081  M01S01057.edit    +++|          SA7    A3
01082  M01S01058.edit    +++|          NZ     X7,LTL7     IF NOT DONE
01083  M01S01059.edit    +++|          EQ     LTL5
01084  M01S01060.edit    +++|
01085  M01S01061.edit    +++| LTL11    WRITEC O,EFM       ISSUE EOF MESSAGE
01086  M01S01062.edit    +++|          JP     MAIN
01087  M01S01063.edit    +++| NUMBER   EJECT
01088  M01S01064.edit    +++|***       NUMBER (N) - COUNT LINES.
01089  M01S01065.edit    +++|*
01090  M01S01066.edit    +++|*         COUNTS LINES OR THE NUMBER OF LINES CONTAINING
01091  M01S01067.edit    +++|*         /PHRASE/ FROM THE SEARCH POINTER TO END OF FILE.
01092  M01S01068.edit    +++|
01093  M01S01069.edit    +++|
01094  M01S01070.edit    +++| NUMBER   BSS    0
01095  M01S01071.edit    +++|          SA2    EOFTF
01096  M01S01072.edit    +++|          NZ     X3,NRS1     IF STRING FIELDS SPECIFIED
01097  M01S01073.edit    +++| NRL1     ZR     X2,LTL11    IF FILE AT EOI
01098  M01S01074.edit    +++|          SX0    B0
01099  M01S01075.edit    +++|          BX2    X5
01100  M01S01076.edit    +++| NRL2     INTRPT NRL3        PROCESS TERMINAL INTERRUPT
01101  M01S01077.edit    +++|          SX0    X0-1        COUNT LINES READ
01102  M01S01078.edit    +++|          READC  X2,LBUF,LBUFL
01103  M01S01079.edit    +++|          ZR     X1,NRL2     IF NOT EOR
01104  M01S01080.edit    +++|          SA2    PFADR
01105  M01S01081.edit    +++|          BX1    -X0         SET COUNT FOR CONVERSION
01106  M01S01082.edit    +++|          IX7    X2-X5
01107  M01S01083.edit    +++|          SX0    X0+B1
01108  M01S01084.edit    +++|          BX5    X2
01109  M01S01085.edit    +++|          NZ     X7,NRL2     IF NOT PRIMARY EDIT FILE
01110  M01S01086.edit    +++|          RJ     CDD         CONVERT LINE COUNT TO DISPLAY CODE
01111  M01S01087.edit    +++|          SA6    NRLA
01112  M01S01088.edit    +++|          RJ     RTF         REPOSITION FILES
01113  M01S01089.edit    +++|          WRITEC O,NRLA
01114  M01S01090.edit    +++|          JP     MAIN
01115  M01S01091.edit    +++|
01116  M01S01092.edit    +++| NRL3     BX1    -X0         SET COUNT FOR CONVERSION
01117  M01S01093.edit    +++|          RJ     CDD
01118  M01S01094.edit    +++|          SA6    NRLB
01119  M01S01095.edit    +++|          RJ     RTF         REPOSITION FILES
01120  M01S01096.edit    +++|          WRITEC O,NRLB
01121  M01S01097.edit    +++|          JP     MAIN
01122  M01S01098.edit    +++|
01123  M01S01099.edit    +++|
01124  M01S01100.edit    +++| NRLA     DATA   C*           LINES TO EOF.*
01125  M01S01101.edit    +++| NRLB     DATA   C*           LINES TO INTERRUPT.*
01126  M01S01102.edit    +++| ADDS     TITLE  STRING COMMAND PROCESSORS.
01127  M01S01103.edit    +++|***       ADDS (AS) - ADD STRINGS.
01128  M01S01104.edit    +++|*
01129  M01S01105.edit    +++|*         A CHARACTER STRING IS ADDED TO THE TEXT FILE IMMEDIATELY
01130  M01S01106.edit    +++|*         FOLLOWING EACH OF N OCCURENCES OF /P1/.
01131  M01S01107.edit    +++|
01132  M01S01108.edit    +++|
01133  M01S01109.edit    +++| ADDS     BSS    0
01134  M01S01110.edit    +++|          ZR     X3,ADD      IF NO STRING FIELD
01135  M01S01111.edit    +++|          SA2    ADSA
01136  M01S01112.edit    +++|          EQ     CHS1        PROCESS NEW TEXT
01137  M01S01113.edit    +++|
01138  M01S01114.edit    +++|
01139  M01S01115.edit    +++| ADSA     SA1    LBW         SAVE POINTER TO END OF STRING
01140  M01S01116.edit    +++|          SA2    STPHR2
01141  M01S01117.edit    +++| BLANKS   EJECT
01142  M01S01118.edit    +++|***       BLANKS (BS) - BLANK STRINGS.
01143  M01S01119.edit    +++|*
01144  M01S01120.edit    +++|*         EACH OF N OCCURRENCES OF /PHRASE/ ARE REPLACED WITH BLANKS.
01145  M01S01121.edit    +++|
01146  M01S01122.edit    +++|
01147  M01S01123.edit    +++| BLANKS   BSS    0
01148  M01S01124.edit    +++|          SA2    EOFTF
01149  M01S01125.edit    +++|          ZR     X2,LTL11    IF EDIT FILE AT EOI
01150  M01S01126.edit    +++|          ZR     X3,BLL6     IF STRING FIELDS EMPTY
01151  M01S01127.edit    +++|          RJ     PSO
01152  M01S01128.edit    +++| BLS1     SA2    STPHR2      ELLIPSIS FIELD POINTER
01153  M01S01129.edit    +++|          SA1    FBW
01154  M01S01130.edit    +++|          ZR     X2,BLS2     IF NOT ELLIPSIS OPERATION
01155  M01S01131.edit    +++|          BX6    X1
01156  M01S01132.edit    +++|          SA6    A7+B1
01157  M01S01133.edit    +++|          NG     X7,BLS4     IF /P1/ AT END OF LINE
01158  M01S01134.edit    +++|          RJ     SLS
01159  M01S01135.edit    +++|          NZ     B7,BLS4     IF NOT SINGLE LINE ELLIPSIS
01160  M01S01136.edit    +++|          SA1    SLP
01161  M01S01137.edit    +++| BLS2     SA4    LBW
01162  M01S01138.edit    +++|          RJ     IBC         REPLACE STRING WITH BLANKS
01163  M01S01139.edit    +++|          SA3    SEC
01164  M01S01140.edit    +++|          SX7    X3+B1       DECREMENT SPECIFICATOR COUNT
01165  M01S01141.edit    +++|          SA7    A3
01166  M01S01142.edit    +++|          ZR     X7,DLS7     IF PROCESSING COMPLETE
01167  M01S01143.edit    +++|          INTRPT DLS7        PROCESS TERMINAL INTERRUPT
01168  M01S01144.edit    +++|          SA1    LBW
01169  M01S01145.edit    +++|          SX0    B1
01170  M01S01146.edit    +++|          NG     X1,BLS3     IF PHRASE AT END OF LINE
01171  M01S01147.edit    +++|          BX0    X0-X0
01172  M01S01148.edit    +++| BLS3     SX6    STPHR1      SEARCH FILE FOR /P1/
01173  M01S01149.edit    +++|          RJ     SFS
01174  M01S01150.edit    +++|          NZ     X7,BLS1     IF NOT EOF
01175  M01S01151.edit    +++|          JP     CHS14
01176  M01S01152.edit    +++|
01177  M01S01153.edit    +++| BLS4     SA1    SLP
01178  M01S01154.edit    +++|          RJ     SLT         SET LINE TERMINATOR
01179  M01S01155.edit    +++|          SX2    A5
01180  M01S01156.edit    +++|          SX0    B1          DUMP LINE BUFFER
01181  M01S01157.edit    +++|          WRITEC X2,LBUF
01182  M01S01158.edit    +++|          SX6    STPHR2      READ/SEARCH FOR /P2/
01183  M01S01159.edit    +++|          RJ     SRO
01184  M01S01160.edit    +++|          SA4    X5+5
01185  M01S01161.edit    +++|          SX7    X4+B4       ADVANCE READ FILE LINE POSITION
01186  M01S01162.edit    +++|          SA7    A4
01187  M01S01163.edit    +++|          EQ     B2,B1,BLS6  IF END OF ELLIPSIS IN NEXT LINE
01188  M01S01164.edit    +++|          SX0    B1-B2
01189  M01S01165.edit    +++|          SX2    A5
01190  M01S01166.edit    +++| BLS5     WRITEC X2,TCHM     WRITE BLANK LINES
01191  M01S01167.edit    +++|          SX0    X0+1
01192  M01S01168.edit    +++|          NZ     X0,BLS5     IF LINES NOT ALL WRITTEN
01193  M01S01169.edit    +++| BLS6     SX1    LBUF
01194  M01S01170.edit    +++|          EQ     BLS2        PROCESS LINE TERMINATING ELLIPSIS
01195  M01S01171.edit    +++| CHANGES  EJECT
01196  M01S01172.edit    +++|***       CHANGES (CS) - CHANGE STRINGS.
01197  M01S01173.edit    +++|*
01198  M01S01174.edit    +++|*         EACH OF N OCCURRENCES OF /PHRASE/ ARE DELETED FROM THE TEXT
01199  M01S01175.edit    +++|*         FILE AND REPLACED WITH THE CHARACTER STRING ENTERED IN
01200  M01S01176.edit    +++|*         RESPONSE TO THE REQUEST * ENTER TEXT.*
01201  M01S01177.edit    +++|
01202  M01S01178.edit    +++|
01203  M01S01179.edit    +++| CHANGES  BSS    0
01204  M01S01180.edit    +++|          ZR     X3,CHANGE   IF NO STRING FIELDS
01205  M01S01181.edit    +++|          SA2    CHSA
01206  M01S01182.edit    +++| CHS1     BX6    X2          STORE INSTRUCTIONS FOR CHANGES/ADDS
01207  M01S01183.edit    +++|          SA6    CHS2
01208  M01S01184.edit    +++|          SA2    EOFTF       CHECK FILE STATUS
01209  M01S01185.edit    +++|          ZR     X2,LTL11    IF POSITIONED AT EOI
01210  M01S01186.edit    +++|          RJ     PSO
01211  M01S01187.edit    +++|          RJ     ETX
01212  M01S01188.edit    +++|          ZR     X0,SET2     IF NO TEXT ENTERED
01213  M01S01189.edit    +++|          SX7    B0+
01214  M01S01190.edit    +++|          SA7    STRB
01215  M01S01191.edit    +++|          LX7    X2
01216  M01S01192.edit    +++|          BX6    -X0
01217  M01S01193.edit    +++|          SA7    RTFP
01218  M01S01194.edit    +++|          SA6    LCT         SAVE COUNT OF LINES ENTERED
01219  M01S01195.edit    +++| CHS2     SA1    FBW
01220  M01S01196.edit    +++|          SA2    STPHR2
01221  M01S01197.edit    +++|*         SA1    LBW         IF ADDS COMMAND
01222  M01S01198.edit    +++|*         SA2    STPHR2
01223  M01S01199.edit    +++|          BX6    X1          SAVE POINTER TO START OF STRING
01224  M01S01200.edit    +++|          NO
01225  M01S01201.edit    +++|          SA6    SLP
01226  M01S01202.edit    +++|          ZR     X2,CHS3     IF NOT ELLIPSIS OPERATION
01227  M01S01203.edit    +++|          RJ     SLS
01228  M01S01204.edit    +++|          ZR     B7,CHS3     IF ELLIPSIS IN SINGLE LINE
01229  M01S01205.edit    +++|          SX7    STRB+1
01230  M01S01206.edit    +++|          SX0    1
01231  M01S01207.edit    +++|          SA7    LBA         CHANGE LINE BUFFER POINTER
01232  M01S01208.edit    +++|          SX6    STPHR2
01233  M01S01209.edit    +++|          RJ     SRO         READ/SEARCH FOR PHRASE ENDING ELLIPSIS
01234  M01S01210.edit    +++|          SA7    STRB
01235  M01S01211.edit    +++|          SA3    X5+5
01236  M01S01212.edit    +++|          SA6    A6+B1
01237  M01S01213.edit    +++|          SX7    X3+B4       ADVANCE READ FILE LINE POSITION
01238  M01S01214.edit    +++|          SA2    RTFP
01239  M01S01215.edit    +++|          SA7    A3
01240  M01S01216.edit    +++|          SA0    X2          RESTORE REPLACEMENT FILE POINTER
01241  M01S01217.edit    +++|          EQ     CHS5
01242  M01S01218.edit    +++|
01243  M01S01219.edit    +++| CHS3     SA3    LBW
01244  M01S01220.edit    +++|          NG     X3,CHS5     IF PHRASE AT END OF LINE
01245  M01S01221.edit    +++|          SA4    LBL
01246  M01S01222.edit    +++|          SX1    STRB+1      FIX POINTER TO START OF TEMPORARY BUFFER
01247  M01S01223.edit    +++|          SX2    X3
01248  M01S01224.edit    +++|          SB3    X4+         END OF LINE ADDRESS
01249  M01S01225.edit    +++|          BX7    X3-X2
01250  M01S01226.edit    +++|          SB2    X3          ADDRESS OF TEXT FOLLOWING STRING
01251  M01S01227.edit    +++|          BX6    X7+X1
01252  M01S01228.edit    +++|          SA6    STRB        SET POINTER TO TEXT IN TEMPORARY BUFFER
01253  M01S01229.edit    +++| CHS4     SA1    B2
01254  M01S01230.edit    +++|          BX6    X1          MOVE TEXT FOLLOWING STRING
01255  M01S01231.edit    +++|          SB2    B2+B1
01256  M01S01232.edit    +++|          SA6    A6+B1
01257  M01S01233.edit    +++|          NE     B2,B3,CHS4  IF MOVE INCOMPLETE
01258  M01S01234.edit    +++|          SX7    A6+B1
01259  M01S01235.edit    +++|          SA7    A4+B1       SET END OF LINE FOR DATA MOVED
01260  M01S01236.edit    +++| CHS5     SB7    LBUFL
01261  M01S01237.edit    +++|          SA3    SLP
01262  M01S01238.edit    +++|          READC  A0,X3+B1,B7
01263  M01S01239.edit    +++|          SA1    SLP
01264  M01S01240.edit    +++|          SX7    B6          END OF FIRST REPLACEMENT LINE
01265  M01S01241.edit    +++|          SX2    X1+B1
01266  M01S01242.edit    +++|          SA7    LBL
01267  M01S01243.edit    +++|          SB6    LBUF+LBUFL-1 LWA DESTINATION BUFFER
01268  M01S01244.edit    +++|          RJ     CTL         COMPRESS TEXT
01269  M01S01245.edit    +++|          SA3    LCT
01270  M01S01246.edit    +++|          SX0    X3+1
01271  M01S01247.edit    +++|          NZ     X0,CHS6     IF MORE THAN ONE LINE REPLACEMENT FILE
01272  M01S01248.edit    +++|          SA1    SLP
01273  M01S01249.edit    +++|          PL     X1,CHS10    IF NO TRUNCATION OF NEW TEXT OCCURRED
01274  M01S01250.edit    +++|          EQ     CHS11       ELIMINATE REMAINDER OF OLD LINE
01275  M01S01251.edit    +++|
01276  M01S01252.edit    +++| CHS6     SA1    SLP
01277  M01S01253.edit    +++|          RJ     SLT         SET LINE TERMINATOR
01278  M01S01254.edit    +++| CHS7     WRITEC A5+,LBUF
01279  M01S01255.edit    +++|          READC  A0,LBUF,LBUFL
01280  M01S01256.edit    +++|          SX0    X0+B1
01281  M01S01257.edit    +++|          NZ     X0,CHS7     IF COPY INCOMPLETE
01282  M01S01258.edit    +++|          SA2    B6-B1
01283  M01S01259.edit    +++|          MX1    -6
01284  M01S01260.edit    +++|          NZ     X2,CHS8     IF EOL NOT ON WORD BOUNDARY
01285  M01S01261.edit    +++|          SA3    A2-B1
01286  M01S01262.edit    +++|          SX4    A2-LBUF
01287  M01S01263.edit    +++|          ZR     X4,CHS9     IF BLANK LINE
01288  M01S01264.edit    +++|          BX4    -X1*X3
01289  M01S01265.edit    +++|          NZ     X4,CHS9     IF FULL WORD
01290  M01S01266.edit    +++|          SA2    A3
01291  M01S01267.edit    +++| CHS8     SX0    -10
01292  M01S01268.edit    +++| CHS8.1   LX2    54
01293  M01S01269.edit    +++|          BX4    -X1*X2      ISOLATE CHARACTER
01294  M01S01270.edit    +++|          SX0    X0+B1
01295  M01S01271.edit    +++|          ZR     X4,CHS8.1   IF *00* CHARACTER
01296  M01S01272.edit    +++|          LX0    24          POSITION CHARACTER POINTER
01297  M01S01273.edit    +++| CHS9     SX4    A2
01298  M01S01274.edit    +++|          IX7    X4-X0       FORM POINTER TO END OF TEXT
01299  M01S01275.edit    +++|          SA7    SLP
01300  M01S01276.edit    +++| CHS10    SA2    STRB
01301  M01S01277.edit    +++|          ZR     X2,CHS11    IF NO DATA AFTER STRING/ELLIPSIS
01302  M01S01278.edit    +++|          SA4    BAC
01303  M01S01279.edit    +++|          SA1    SLP
01304  M01S01280.edit    +++|          RJ     BSP         BACKSPACE POINTER
01305  M01S01281.edit    +++|          SA3    TBL
01306  M01S01282.edit    +++|          BX7    X3          ADDRESS ENDING DATA IN TEMPORARY BUFFER
01307  M01S01283.edit    +++|          LX6    X1
01308  M01S01284.edit    +++|          SA7    LBL
01309  M01S01285.edit    +++|          SA6    LBW
01310  M01S01286.edit    +++|          SB6    LBUF+LBUFL-1 LWA DESTINATION BUFFER
01311  M01S01287.edit    +++|          RJ     CTL         APPEND TEXT TO NEW LINE
01312  M01S01288.edit    +++| CHS11    SA3    SEC
01313  M01S01289.edit    +++|          SX6    LBUF        RESET BUFFER ADDRESS
01314  M01S01290.edit    +++|          SX7    X3+B1
01315  M01S01291.edit    +++|          SA7    A3          OPERATION COUNT DECREMENTED
01316  M01S01292.edit    +++|          SA6    LBA
01317  M01S01293.edit    +++|          ZR     X7,DLS6     IF PROCESSING COMPLETE
01318  M01S01294.edit    +++|          INTRPT DLS6        PROCESS TEMINAL INTERRUPT
01319  M01S01295.edit    +++|          SA3    A0+B1
01320  M01S01296.edit    +++|          SX6    X3          SET OUT = FIRST
01321  M01S01297.edit    +++|          SA4    TBST
01322  M01S01298.edit    +++|          SA6    A0+3
01323  M01S01299.edit    +++|          ZR     X4,CHS12    IF ALL TEXT IN BUFFER
01324  M01S01300.edit    +++|          REWIND A0+
01325  M01S01301.edit    +++|          READ   X2
01326  M01S01302.edit    +++| CHS12    BX7    X7-X7
01327  M01S01303.edit    +++|          SA3    STRB
01328  M01S01304.edit    +++|          SX1    B1
01329  M01S01305.edit    +++|          ZR     X3,CHS13    IF REPLACEMENT DATA ENDED LINE
01330  M01S01306.edit    +++|          SA7    STRB
01331  M01S01307.edit    +++| CHS13    SX6    STPHR1      LOOK FOR NEXT OCCURANCE OF /P1/
01332  M01S01308.edit    +++|          RJ     SML
01333  M01S01309.edit    +++|          SA4    RTFP
01334  M01S01310.edit    +++|          SA0    X4+
01335  M01S01311.edit    +++| CHS14    NZ     X7,CHS2     IF STRING FOUND
01336  M01S01312.edit    +++|          SA2    SEC
01337  M01S01313.edit    +++|          SA7    EOFTF
01338  M01S01314.edit    +++|          SA3    A2-B1       GET NUMBER OPERATIONS COMPLETED
01339  M01S01315.edit    +++|          IX1    X3+X2
01340  M01S01316.edit    +++|          RJ     GSM         ISSUE DIAGNOSTIC
01341  M01S01317.edit    +++|          JP     SET2
01342  M01S01318.edit    +++|
01343  M01S01319.edit    +++|
01344  M01S01320.edit    +++| CHSA     SA1    FBW         SAVE POINTER TO START OF STRING
01345  M01S01321.edit    +++|          SA2    STPHR2
01346  M01S01322.edit    +++| DELETES  EJECT
01347  M01S01323.edit    +++|***       DELETES (DS) - DELETE STRINGS.
01348  M01S01324.edit    +++|*
01349  M01S01325.edit    +++|*         N OCCURRENCES OF /PHRASE/ ARE DELETED FROM THE TEXT FILE.
01350  M01S01326.edit    +++|*         DATA FOLLOWING /PHRASE/ WITHIN A LINE IS SHIFTED LEFT.
01351  M01S01327.edit    +++|
01352  M01S01328.edit    +++|
01353  M01S01329.edit    +++| DLETES   BSS    0
01354  M01S01330.edit    +++|          SA2    EOFTF
01355  M01S01331.edit    +++|          ZR     X2,LTL11    IF FILE AT EOI
01356  M01S01332.edit    +++|          ZR     X3,DLL3     IF NOT STRING OPERATION
01357  M01S01333.edit    +++|          RJ     PSO
01358  M01S01334.edit    +++| DLS1     SA1    FBW
01359  M01S01335.edit    +++|          SA2    STPHR2
01360  M01S01336.edit    +++|          ZR     X2,DLS2     IF ELLIPSIS NOT SPECIFIED
01361  M01S01337.edit    +++|          BX6    X1
01362  M01S01338.edit    +++|          SA6    SLP
01363  M01S01339.edit    +++|          RJ     SLS         SEARCH CURRENT LINE FOR /P2/
01364  M01S01340.edit    +++|          SA1    SLP
01365  M01S01341.edit    +++|          NZ     B7,DLS4     IF NOT SINGLE LINE ELLIPSIS
01366  M01S01342.edit    +++| DLS2     SA2    LBW
01367  M01S01343.edit    +++|          MX6    1
01368  M01S01344.edit    +++|          BX6    X6*X2
01369  M01S01345.edit    +++|          BX6    X1+X6
01370  M01S01346.edit    +++|          SA6    A2
01371  M01S01347.edit    +++|          SB6    B0+
01372  M01S01348.edit    +++|          RJ     CTL         COMPRESS TEXT LEFT
01373  M01S01349.edit    +++|          SA1    LBUF
01374  M01S01350.edit    +++|          NZ     X1,DLS3     IF NOT EMPTY LINE
01375  M01S01351.edit    +++|          SX2    -1
01376  M01S01352.edit    +++|          RJ     ATF         ADVANCE TEXT FILE
01377  M01S01353.edit    +++|          SX1    B0+         SET FLAG FOR EMPTY LINE
01378  M01S01354.edit    +++| DLS3     SA3    SEC
01379  M01S01355.edit    +++|          SX7    X3+B1       DECREMENT SPECIFICATOR COUNT
01380  M01S01356.edit    +++|          SA7    A3
01381  M01S01357.edit    +++|          ZR     X7,DLS6     IF PROCESSING COMPLETE
01382  M01S01358.edit    +++|          INTRPT DLS6        PROCESS TERMINAL INTERRUPT
01383  M01S01359.edit    +++|          SX6    STPHR1      SEARCH FILE FOR /P1/
01384  M01S01360.edit    +++|          RJ     SML
01385  M01S01361.edit    +++|          NZ     X7,DLS1     IF PHRASE FOUND
01386  M01S01362.edit    +++|          JP     CHS14
01387  M01S01363.edit    +++|
01388  M01S01364.edit    +++| DLS4     SX4    LBUF
01389  M01S01365.edit    +++|          BX7    X1-X4
01390  M01S01366.edit    +++|          SX0    B1
01391  M01S01367.edit    +++|          ZR     X7,DLS5     IF ELLIPSIS STARTED LINE
01392  M01S01368.edit    +++|          RJ     SLT
01393  M01S01369.edit    +++|          WRITEC A5,LBUF     DUMP LINE BUFFER
01394  M01S01370.edit    +++| DLS5     SX6    STPHR2
01395  M01S01371.edit    +++|          RJ     SRO         READ/SEARCH FOR /P2/
01396  M01S01372.edit    +++|          SA4    X5+5
01397  M01S01373.edit    +++|          SX1    LBUF
01398  M01S01374.edit    +++|          SX7    X4+B4       ADVANCE READ FILE LINE POSITION
01399  M01S01375.edit    +++|          SA7    A4
01400  M01S01376.edit    +++|          EQ     DLS2        PROCESS END OF MULTI-LINE ELLIPSIS
01401  M01S01377.edit    +++|
01402  M01S01378.edit    +++| DLS6     SA1    SLP
01403  M01S01379.edit    +++|          RJ     SLT         SET LINE TERMINATOR
01404  M01S01380.edit    +++| DLS7     SA4    STPHR2
01405  M01S01381.edit    +++|          ZR     X4,SET2     IF STRING OPERATION COMPLETE
01406  M01S01382.edit    +++|          SA1    NUM
01407  M01S01383.edit    +++|          RJ     GSM         ISSUE MESSAGE
01408  M01S01384.edit    +++|          JP     SET2
01409  M01S01385.edit    +++| EXTRACTS EJECT
01410  M01S01386.edit    +++|***       EXTRACTS (ES) - EXTRACT STRINGS.
01411  M01S01387.edit    +++|*
01412  M01S01388.edit    +++|*         THE NTH OCCURRENCE OF /PHRASE/ IS COPIED TO THE
01413  M01S01389.edit    +++|*         STRING BUFFER FILE (SCR2) FOLLOWING THE LAST ENTRY.
01414  M01S01390.edit    +++|
01415  M01S01391.edit    +++|
01416  M01S01392.edit    +++| XTRACTS  BSS    0
01417  M01S01393.edit    +++|          ZR     X3,XTRACT   IF NO STRING FIELDS
01418  M01S01394.edit    +++|          SA2    EOFTF
01419  M01S01395.edit    +++|          NZ     X4,XTS8     IF ELLIPSIS SPECIFIED
01420  M01S01396.edit    +++|          BX0    X0-X0
01421  M01S01397.edit    +++|          SX6    A3
01422  M01S01398.edit    +++|          ZR     X2,LTL11    IF POSITIONED AT EOF
01423  M01S01399.edit    +++|          RJ     SRO
01424  M01S01400.edit    +++|          ZR     X7,CST1     IF EOI
01425  M01S01401.edit    +++|          SX6    LBUF-1
01426  M01S01402.edit    +++| XTS1     SA6    SLP
01427  M01S01403.edit    +++|          RJ     PSB
01428  M01S01404.edit    +++|          SA3    STPHR2
01429  M01S01405.edit    +++|          SA1    LBW
01430  M01S01406.edit    +++|          NZ     X3,XTS2     IF ELLIPSIS OPERATION
01431  M01S01407.edit    +++|          RJ     SBT         SET BLANK TERMINATOR
01432  M01S01408.edit    +++|          SX6    B6+
01433  M01S01409.edit    +++|          SA6    XTSB
01434  M01S01410.edit    +++| XTS2     SA2    A1-B1
01435  M01S01411.edit    +++|          SA1    A1+B1
01436  M01S01412.edit    +++|          SB6    B0+
01437  M01S01413.edit    +++|          RJ     CTL
01438  M01S01414.edit    +++|          SA1    SLP
01439  M01S01415.edit    +++|          RJ     SLT         SET LINE TERMINATOR
01440  M01S01416.edit    +++|          SA1    XTSB
01441  M01S01417.edit    +++|          SX6    B6+X1
01442  M01S01418.edit    +++|          SA6    A1          SAVE NUMBER OF BLANKS ADDED
01443  M01S01419.edit    +++|          WRITEC B,LBUF-1    COPY PHRASE TO STRING BUFFER
01444  M01S01420.edit    +++|          SX6    1R          RESTORE NON-ZERO WORD PAD BEFORE LBUF
01445  M01S01421.edit    +++|          SA6    LBUF-1
01446  M01S01422.edit    +++|          SA4    STPHR2
01447  M01S01423.edit    +++|          NZ     X4,XTS4     IF ELLIPSIS SPECIFIED
01448  M01S01424.edit    +++|          SX0    1
01449  M01S01425.edit    +++|          SA1    LBW
01450  M01S01426.edit    +++|          NG     X1,XTS3     IF STRING AT END OF LINE
01451  M01S01427.edit    +++|          SA1    SLP
01452  M01S01428.edit    +++|          SX4    B1
01453  M01S01429.edit    +++|          RJ     BSP         BACKSPACE POINTER
01454  M01S01430.edit    +++| XTS3     AX1    24
01455  M01S01431.edit    +++|          BX6    X1
01456  M01S01432.edit    +++|          SA6    XTSP        SAVE POSITION+1 OF LAST CHARACTER
01457  M01S01433.edit    +++|          SA4    B+5
01458  M01S01434.edit    +++|          IX7    X0+X4       ADVANCE STRING FILE LINE COUNT
01459  M01S01435.edit    +++|          SA7    A4
01460  M01S01436.edit    +++|          WRITER X2          FLUSH STRING BUFFER
01461  M01S01437.edit    +++|          RJ     RTF
01462  M01S01438.edit    +++|          JP     MAIN
01463  M01S01439.edit    +++|
01464  M01S01440.edit    +++| XTS4     SX2    1
01465  M01S01441.edit    +++|          RJ     ATF         NEXT LINE TO WORKING STORAGE
01466  M01S01442.edit    +++|          SA3    LCTB
01467  M01S01443.edit    +++|          SA2    A3+B1
01468  M01S01444.edit    +++|          IX0    X2-X3       NUMBER LINES TO END OF ELLIPSIS
01469  M01S01445.edit    +++| XTS5     SX0    X0-1
01470  M01S01446.edit    +++|          ZR     X0,XTS7     IF LAST LINE READ
01471  M01S01447.edit    +++|          SB7    B6-LBUF
01472  M01S01448.edit    +++|          WRITEW B,LBUF,B7   COPY LINE TO STRING BUFFER
01473  M01S01449.edit    +++| XTS6     READC  X5,LBUF,LBUFL
01474  M01S01450.edit    +++|          ZR     X1,XTS5     IF NOT EOR
01475  M01S01451.edit    +++|          SA4    PFADR
01476  M01S01452.edit    +++|          BX5    X4          SWITCH TO PRIMARY TEXT FILE
01477  M01S01453.edit    +++|          EQ     XTS6
01478  M01S01454.edit    +++|
01479  M01S01455.edit    +++| XTS7     SA2    STPHR2
01480  M01S01456.edit    +++|          RJ     SLS         LOCATE /P2/
01481  M01S01457.edit    +++|          SA3    LCTB
01482  M01S01458.edit    +++|          SA2    A3+B1       LINE COUNT TO END OF ELLIPSIS
01483  M01S01459.edit    +++|          IX0    X2-X3
01484  M01S01460.edit    +++|          SX0    X0+B1       NUMBER LINES ACROSS ELLIPSIS
01485  M01S01461.edit    +++|          BX1    X7
01486  M01S01462.edit    +++|          RJ     SBT         SET BLANK TERMINATOR
01487  M01S01463.edit    +++|          SX6    B6+
01488  M01S01464.edit    +++|          SA6    XTSB
01489  M01S01465.edit    +++|          RJ     SLT         SET END OF LINE
01490  M01S01466.edit    +++|          SA1    XTSB
01491  M01S01467.edit    +++|          SX6    B6+X1
01492  M01S01468.edit    +++|          SA6    A1          SAVE NUMBER OF BLANKS ADDED
01493  M01S01469.edit    +++|          WRITEC B,LBUF
01494  M01S01470.edit    +++|          SA1    LBW
01495  M01S01471.edit    +++|          EQ     XTS3        COMPLETE PROCESSING
01496  M01S01472.edit    +++|
01497  M01S01473.edit    +++| XTS8     SX0    0
01498  M01S01474.edit    +++|          RJ     CST         ASSURE ELLIPSIS EXISTS
01499  M01S01475.edit    +++|          SA3    NUM
01500  M01S01476.edit    +++|          ZR     X3,XTS10    IF SPECIFIED ELLIPSIS EXISTS
01501  M01S01477.edit    +++|          JP     NRS2
01502  M01S01478.edit    +++|
01503  M01S01479.edit    +++| XTS9     SX6    STPHR2      FIND PHRASE ENDING ELLIPSIS
01504  M01S01480.edit    +++|          RJ     SRO
01505  M01S01481.edit    +++| XTS10    SX6    STPHR1      LOCATE START OF ELLIPSIS
01506  M01S01482.edit    +++|          RJ     SRO
01507  M01S01483.edit    +++|          SA3    SEC
01508  M01S01484.edit    +++|          SX6    X3+B1       DECREMENT COUNT
01509  M01S01485.edit    +++|          SA6    A3
01510  M01S01486.edit    +++|          NZ     X6,XTS9     IF SPECIFIED ELLIPSIS NOT REACHED
01511  M01S01487.edit    +++|          SA2    STPHR2
01512  M01S01488.edit    +++|          SA4    A7-B1
01513  M01S01489.edit    +++|          BX0    X4          CHECK - ONE LINE ELLIPSIS
01514  M01S01490.edit    +++|          RJ     SLS
01515  M01S01491.edit    +++|          NZ     B7,XTS11    IF MULTI-LINE ELLIPSIS
01516  M01S01492.edit    +++|          BX6    X0
01517  M01S01493.edit    +++|          SX7    B0
01518  M01S01494.edit    +++|          SA6    FBW         RESTORE POINTER TO START OF ELLIPSIS
01519  M01S01495.edit    +++|          SA7    STPHR2
01520  M01S01496.edit    +++| XTS11    SX6    LBUF-1
01521  M01S01497.edit    +++|          EQ     XTS1
01522  M01S01498.edit    +++|
01523  M01S01499.edit    +++|
01524  M01S01500.edit    +++| XTSB     CON    0           NUMBER OF POSITIONS TO BACKSPACE
01525  M01S01501.edit    +++| XTSP     BSS    1
01526  M01S01502.edit    +++| FINDS    EJECT
01527  M01S01503.edit    +++|***       FINDS (FS) - FIND STRING.
01528  M01S01504.edit    +++|*
01529  M01S01505.edit    +++|*         LISTS THE NTH OCCURRENCE OF /PHRASE/ AND SETS THE SEARCH
01530  M01S01506.edit    +++|*         POINTER TO THAT LINE. IF /PHRASE/ IS MULTI-LINE, THE SEARCH
01531  M01S01507.edit    +++|*         POINTER IS SET TO THE LINE CONTAINING /P1/.
01532  M01S01508.edit    +++|
01533  M01S01509.edit    +++|
01534  M01S01510.edit    +++| FINDS    BSS    0
01535  M01S01511.edit    +++|          ZR     X3,FIND     IF STRING FIELDS EMPTY
01536  M01S01512.edit    +++|          SA2    EOFTF
01537  M01S01513.edit    +++|          SX0    0
01538  M01S01514.edit    +++|          ZR     X2,LTL11    IF EDIT FILE AT EOI
01539  M01S01515.edit    +++|          RJ     CST         ASSURE SPECIFICATION EXISTS
01540  M01S01516.edit    +++|          SA2    LCT
01541  M01S01517.edit    +++|          RJ     AFW         FAST ADVANCE TO LINE CONTAINING /P1/
01542  M01S01518.edit    +++|          EQ     FDS2
01543  M01S01519.edit    +++|
01544  M01S01520.edit    +++| FDS1     SA4    STPHR2      CHECK ELLIPSIS SPECIFIED
01545  M01S01521.edit    +++|          BX0    X0-X0
01546  M01S01522.edit    +++|          SX6    A4
01547  M01S01523.edit    +++|          ZR     X4,FDS2     IF NOT ELLIPSIS OPERATION
01548  M01S01524.edit    +++|          RJ     SFS         LOCATE PHRASE ENDING ELLIPSIS
01549  M01S01525.edit    +++| FDS2     SX6    STPHR1
01550  M01S01526.edit    +++|          RJ     SFS         ADVANCE FILE TO LINE CONTAINING /P1/
01551  M01S01527.edit    +++|          SA3    SEC
01552  M01S01528.edit    +++|          SX7    X3+B1       ADVANCE OPERATION COUNT
01553  M01S01529.edit    +++|          SA7    A3
01554  M01S01530.edit    +++|          INTRPT FDS3        PROCESS TEMINAL INTERRUPT
01555  M01S01531.edit    +++|          SA3    SEC         CHECK OPERATION COUNT
01556  M01S01532.edit    +++|          NZ     X3,FDS1     IF LAST OCCURANCE NOT REACHED
01557  M01S01533.edit    +++| FDS3     SB2    LBUF
01558  M01S01534.edit    +++|          SA4    LBL         GET END OF LINE ADDRESS
01559  M01S01535.edit    +++|          SB3    TBUF-LBUF
01560  M01S01536.edit    +++|          SA1    FBW         RESET DESTROYED REGISTER
01561  M01S01537.edit    +++|          SX2    B3
01562  M01S01538.edit    +++|          SB5    X4
01563  M01S01539.edit    +++|          IX6    X1+X2
01564  M01S01540.edit    +++|          SX7    B2+B3       POINT WORKING STORAGE AT TEMPORARY BUFFER
01565  M01S01541.edit    +++|          SA6    A1+B1
01566  M01S01542.edit    +++|          SA7    LBA         SET WORKING STORAGE FOR SEARCH ROUTINES
01567  M01S01543.edit    +++| FDS4     SA3    B2
01568  M01S01544.edit    +++|          SB2    B2+B1
01569  M01S01545.edit    +++|          BX6    X3          MOVE LINE TO TEMPORARY BUFFER
01570  M01S01546.edit    +++|          SA6    A3+B3
01571  M01S01547.edit    +++|          NE     B2,B5,FDS4  IF MOVE NOT COMPLETE
01572  M01S01548.edit    +++|          SX7    A6+B1       SET TBUF END-OF-LINE POINTER
01573  M01S01549.edit    +++|          BX6    X4          SAVE LBUF END-OF-LINE POINTER
01574  M01S01550.edit    +++|          SA7    A4
01575  M01S01551.edit    +++|          SA6    A7+B1
01576  M01S01552.edit    +++|          SA2    STPHR1
01577  M01S01553.edit    +++|          RJ     SLS
01578  M01S01554.edit    +++|          SX1    TBUF
01579  M01S01555.edit    +++|          BX4    X6          INSERT LEADING BLANKS FOR OUTPUT
01580  M01S01556.edit    +++|          RJ     IBC
01581  M01S01557.edit    +++|          SA1    TBL         RESTORE LBUF END-OF-LINE POINTER
01582  M01S01558.edit    +++|          BX6    X1
01583  M01S01559.edit    +++|          SA6    A1-B1
01584  M01S01560.edit    +++|          SA2    STPHR2      POINTER TO /P2/
01585  M01S01561.edit    +++|          ZR     X2,FDS9     IF NOT ELLIPSIS OPERATION
01586  M01S01562.edit    +++|          RJ     SLS
01587  M01S01563.edit    +++| FDS5     ZR     B7,FDS9     IF ONE LINE ELLIPSIS
01588  M01S01564.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPTS
01589  M01S01565.edit    +++|          NZ     X3,FDS8     IF INTERRUPTED
01590  M01S01566.edit    +++|          WRITEC O,TBUF
01591  M01S01567.edit    +++| FDS6     READC  X5,TBUF,LBUFL
01592  M01S01568.edit    +++|          ZR     X1,FDS7     IF NOT EOR
01593  M01S01569.edit    +++|          SA4    PFADR
01594  M01S01570.edit    +++|          BX5    X4          SWITCH TO PRIMARY TEXT FILE
01595  M01S01571.edit    +++|          EQ     FDS6
01596  M01S01572.edit    +++|
01597  M01S01573.edit    +++| FDS7     SA2    STPHR2      LOCATE PHRASE ENDING ELLIPSIS
01598  M01S01574.edit    +++|          RJ     SLS
01599  M01S01575.edit    +++|          NZ     B7,FDS5     IF PHRASE NOT FOUND
01600  M01S01576.edit    +++| FDS8     RJ     RTF         REPOSITION TEXT FILE
01601  M01S01577.edit    +++| FDS9     SA1    LBW         SET END OF LINE
01602  M01S01578.edit    +++|          SA2    LBL
01603  M01S01579.edit    +++|          RJ     SLT
01604  M01S01580.edit    +++|          BX6    X2
01605  M01S01581.edit    +++|          SA6    A2
01606  M01S01582.edit    +++|          WRITEC O,TBUF      COPY LINE TO OUTPUT
01607  M01S01583.edit    +++|          SX7    LBUF
01608  M01S01584.edit    +++|          SA7    LBA         RESTORE NORMAL WORKING STORAGE AREA
01609  M01S01585.edit    +++|          JP     FDL6
01610  M01S01586.edit    +++| INSERTS  EJECT
01611  M01S01587.edit    +++|***       INSERTS (IS) - INSERT STRING.
01612  M01S01588.edit    +++|*
01613  M01S01589.edit    +++|*         SAME AS ADDS EXCEPT THAT NEW DATA IS FOUND IN /P2/.
01614  M01S01590.edit    +++|
01615  M01S01591.edit    +++|
01616  M01S01592.edit    +++| INSERTS  BSS    0
01617  M01S01593.edit    +++|          ZR     X4,MAINX    IF REPLACEMENT STRING EMPTY
01618  M01S01594.edit    +++|          SA2    INSA
01619  M01S01595.edit    +++|          JP     RPS1
01620  M01S01596.edit    +++|
01621  M01S01597.edit    +++|
01622  M01S01598.edit    +++| INSA     BX2    X7
01623  M01S01599.edit    +++|          SB6    10
01624  M01S01600.edit    +++|          SA4    X2          FIRST WORD OF PHRASE
01625  M01S01601.edit    +++| LISTS    EJECT
01626  M01S01602.edit    +++|***       LISTS (LS) - LIST STRINGS.
01627  M01S01603.edit    +++|*
01628  M01S01604.edit    +++|*         ONE OR MORE OCCURRENCES OF /PHRASE/ IS LISTED.
01629  M01S01605.edit    +++|
01630  M01S01606.edit    +++|
01631  M01S01607.edit    +++| LISTS    BSS    0
01632  M01S01608.edit    +++|          SA2    EOFTF
01633  M01S01609.edit    +++|          ZR     X2,LTL11    IF POSITIONED AT EOI
01634  M01S01610.edit    +++|          ZR     X3,LTL1     IF NOT STRING OPERATION
01635  M01S01611.edit    +++|          SX0    0
01636  M01S01612.edit    +++|          ZR     X4,LTS1     IF ELLIPSIS SEARCH NOT REQUIRED
01637  M01S01613.edit    +++|          RJ     CST
01638  M01S01614.edit    +++|          SA2    LCT         FAST ADVANCE TO START OF ELLIPSIS
01639  M01S01615.edit    +++|          RJ     ATF
01640  M01S01616.edit    +++| LTS1     SX6    STPHR1      SEARCH FOR /P1/
01641  M01S01617.edit    +++|          RJ     SRO
01642  M01S01618.edit    +++|          ZR     X7,LTL4     IF EOI
01643  M01S01619.edit    +++|          SX1    LBUF
01644  M01S01620.edit    +++|          SA4    FBW         INSERT LEADING BLANKS
01645  M01S01621.edit    +++|          RJ     IBC
01646  M01S01622.edit    +++| LTS2     SA1    STPHR2
01647  M01S01623.edit    +++|          NZ     X1,LTS7     IF LOOKING FOR ELLIPSIS
01648  M01S01624.edit    +++| LTS3     SA1    SEC
01649  M01S01625.edit    +++|          SX6    X1+B1       DECREMENT SPECIFICATOR COUNT
01650  M01S01626.edit    +++|          SA6    A1
01651  M01S01627.edit    +++|          ZR     X6,LTS4     IF OPERATION COMPLETE
01652  M01S01628.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPTS
01653  M01S01629.edit    +++|          NZ     X3,LTS9     IF INTERRUPTED
01654  M01S01630.edit    +++|          SA3    LBW
01655  M01S01631.edit    +++|          NG     X3,LTS6     IF PHRASE AT EOL
01656  M01S01632.edit    +++|          BX7    X3          SAVE -END OF STRING- POINTER
01657  M01S01633.edit    +++|          SA7    A3+B1
01658  M01S01634.edit    +++|          SA2    STPHR1      SCAN LINE FOR ANOTHER OCCURRENCE
01659  M01S01635.edit    +++|          RJ     SLS
01660  M01S01636.edit    +++|          NZ     B7,LTS5     IF STRING NOT IN LINE
01661  M01S01637.edit    +++|          SA1    SLP
01662  M01S01638.edit    +++|          SA4    FBW
01663  M01S01639.edit    +++|          RJ     IBC         BLANK BETWEEN STRINGS
01664  M01S01640.edit    +++|          EQ     LTS2
01665  M01S01641.edit    +++|
01666  M01S01642.edit    +++| LTS4     SA1    LBW
01667  M01S01643.edit    +++|          RJ     SLT         SET LINE TERMINATOR
01668  M01S01644.edit    +++|          WRITEC O,LBUF
01669  M01S01645.edit    +++|          EQ     LTS9        COMPLETE PROCESSING
01670  M01S01646.edit    +++|
01671  M01S01647.edit    +++| LTS5     SA1    SLP         SET END OF LINE
01672  M01S01648.edit    +++|          RJ     SLT
01673  M01S01649.edit    +++| LTS6     RJ     CTI         CHECK TERMINAL INTERRUPTS
01674  M01S01650.edit    +++|          NZ     X3,LTS9     IF INTERRUPTED
01675  M01S01651.edit    +++|          WRITEC O,LBUF      COPY LINE TO OUTPUT
01676  M01S01652.edit    +++|          SX0    1
01677  M01S01653.edit    +++|          EQ     LTS1        CONTINUE PROCESSING
01678  M01S01654.edit    +++|
01679  M01S01655.edit    +++| LTS7     SA2    STPHR2      SEARCH FOR PHRASE ENDING ELLIPSIS
01680  M01S01656.edit    +++|          RJ     SLS
01681  M01S01657.edit    +++|          ZR     B7,LTS3     IF ELLIPSIS FOUND
01682  M01S01658.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPTS
01683  M01S01659.edit    +++|          NZ     X3,LTS9     IF INTERRUPTED
01684  M01S01660.edit    +++|          WRITEC O,LBUF
01685  M01S01661.edit    +++| LTS8     READC  X5,LBUF,LBUFL
01686  M01S01662.edit    +++|          SX7    B6          SAVE END OF LINE POINTER
01687  M01S01663.edit    +++|          SA7    LBL
01688  M01S01664.edit    +++|          ZR     X1,LTS7     IF NOT EOR
01689  M01S01665.edit    +++|          SA4    PFADR
01690  M01S01666.edit    +++|          BX5    X4          SWITCH TO PRIMARY FILE
01691  M01S01667.edit    +++|          EQ     LTS8
01692  M01S01668.edit    +++|
01693  M01S01669.edit    +++| LTS9     RJ     RTF         REPOSITION TEXT FILE
01694  M01S01670.edit    +++|          JP     MAIN
01695  M01S01671.edit    +++| NUMBERS  EJECT
01696  M01S01672.edit    +++|***       NUMBERS (NS) - COUNT STRINGS.
01697  M01S01673.edit    +++|*
01698  M01S01674.edit    +++|*         COUNTS THE OCCURRENCES OF /PHRASE/ FROM THE SEARCH POINTER
01699  M01S01675.edit    +++|*         TO END OF FILE.
01700  M01S01676.edit    +++|
01701  M01S01677.edit    +++|
01702  M01S01678.edit    +++| NUMBERS  BSS    0
01703  M01S01679.edit    +++|          SA2    EOFTF
01704  M01S01680.edit    +++|          ZR     X3,NRL1     IF NO STRING FIELDS
01705  M01S01681.edit    +++| NRS1     ZR     X2,LTL11    IF POSITIONED AT EOF
01706  M01S01682.edit    +++|          SX6    -377776B
01707  M01S01683.edit    +++|          BX7    -X6
01708  M01S01684.edit    +++|          SA6    SEC         FORCE SEARCH LIMIT HIGH
01709  M01S01685.edit    +++|          BX0    X0-X0
01710  M01S01686.edit    +++|          SA7    NUM
01711  M01S01687.edit    +++|          RJ     CST         COUNT STRINGS
01712  M01S01688.edit    +++| NRS2     SA1    NUM
01713  M01S01689.edit    +++|          RJ     GSM         SEND MESSAGE WITH PHRASE COUNT
01714  M01S01690.edit    +++|          JP     MAIN
01715  M01S01691.edit    +++| REPLACES EJECT
01716  M01S01692.edit    +++|***       REPLACES (RS) - REPLACE STRINGS.
01717  M01S01693.edit    +++|*
01718  M01S01694.edit    +++|*         SAME AS CHANGES EXCEPT THAT REPLACEMENT DATA IS TAKEN
01719  M01S01695.edit    +++|*         FROM /P2/.
01720  M01S01696.edit    +++|
01721  M01S01697.edit    +++|
01722  M01S01698.edit    +++| RPLACES  BSS    0
01723  M01S01699.edit    +++|          SA2    RPSA
01724  M01S01700.edit    +++| RPS1     ZR     X3,MAINX    IF STRING TO BE REPLACED NOT SPECIFIED
01725  M01S01701.edit    +++|          ZR     X4,DLETES   IF REPLACEMENT STRING EMPTY
01726  M01S01702.edit    +++|          BX7    X2
01727  M01S01703.edit    +++|          SX0    0           SELECT SEARCH BEFORE WRITE/READ
01728  M01S01704.edit    +++|          SA2    EOFTF
01729  M01S01705.edit    +++|          SA7    RPS4
01730  M01S01706.edit    +++|          ZR     X2,LTL11    IF POSITIONED AT EOI
01731  M01S01707.edit    +++|          SX6    STPHR1      SEARCH FILE FOR STRING
01732  M01S01708.edit    +++|          RJ     SFS
01733  M01S01709.edit    +++| RPS2     ZR     X7,RPS11    IF EOI
01734  M01S01710.edit    +++|          NG     X7,RPS4     IF PHRASE AT END OF LINE
01735  M01S01711.edit    +++|          SX3    TBUF-LBUF
01736  M01S01712.edit    +++|          SA4    LBL         GET END OF LINE POINTER
01737  M01S01713.edit    +++|          SB2    X7
01738  M01S01714.edit    +++|          IX6    X7+X3       FORM END OF PHRASE POINTER
01739  M01S01715.edit    +++|          SB3    X4
01740  M01S01716.edit    +++|          SA6    A7+B1
01741  M01S01717.edit    +++| RPS3     SA1    B2          MOVE TEXT FOLLOWING PHRASE
01742  M01S01718.edit    +++|          BX6    X1
01743  M01S01719.edit    +++|          SA6    X3+B2             TO TEMPORARY LOCATION
01744  M01S01720.edit    +++|          SB2    B2+B1
01745  M01S01721.edit    +++|          NE     B2,B3,RPS3  IF MOVE NOT DONE
01746  M01S01722.edit    +++|          SX6    A6+B1
01747  M01S01723.edit    +++|          SA6    A4          RESET END OF LINE ADDRESS
01748  M01S01724.edit    +++| RPS4     SA2    A7-B1
01749  M01S01725.edit    +++|          SA4    X2          FIRST WORD OF PHRASE
01750  M01S01726.edit    +++|          SB6    10
01751  M01S01727.edit    +++|*         BX2    X7
01752  M01S01728.edit    +++|*         SB6    10          IF ENTRY FROM INSERTS
01753  M01S01729.edit    +++|*         SA4    X2
01754  M01S01730.edit    +++|          AX2    24          POSITION CHARACTER POINTER
01755  M01S01731.edit    +++|          SB3    A4
01756  M01S01732.edit    +++|          SA3    X2+TCHM     MASK FOR DATA PRECEDING PHRASE
01757  M01S01733.edit    +++|          CX1    X3
01758  M01S01734.edit    +++|          SB5    X2
01759  M01S01735.edit    +++|          BX6    X3*X4       ISOLATE LEADER
01760  M01S01736.edit    +++|          SB4    X1
01761  M01S01737.edit    +++|          SA3    STPHR2      POINTER TO REPLACEMENT PHRASE
01762  M01S01738.edit    +++|          SA2    X3-1
01763  M01S01739.edit    +++|          AX3    24          POSITION CHARACTER COUNT
01764  M01S01740.edit    +++|          SX4    B1
01765  M01S01741.edit    +++|          SB7    X3
01766  M01S01742.edit    +++|          LX6    B4,X6
01767  M01S01743.edit    +++| RPS5     SX3    B3-LBUF-LBUFL+1
01768  M01S01744.edit    +++|          NZ     X3,RPS6     IF NOT AT LWA BUFFER
01769  M01S01745.edit    +++|          SB6    7
01770  M01S01746.edit    +++|          SX4    B0+
01771  M01S01747.edit    +++|          GE     B5,B6,RPS7  IF BUFFER COMPLETELY FULL
01772  M01S01748.edit    +++|          SX4    B1+
01773  M01S01749.edit    +++| RPS6     ZR     B7,RPS7     IF REPLACEMENT COMPLETE
01774  M01S01750.edit    +++|          LX6    6
01775  M01S01751.edit    +++|          SA2    A2+B1       GET NEXT ELEMENT
01776  M01S01752.edit    +++|          SB5    B5+1
01777  M01S01753.edit    +++|          BX6    X6+X2       ASSEMBLE WORD
01778  M01S01754.edit    +++|          SB7    B7-B1
01779  M01S01755.edit    +++|          LT     B5,B6,RPS6   IF WORD NOT COMPLETE
01780  M01S01756.edit    +++|          SX4    B6-7
01781  M01S01757.edit    +++|          ZR     X4,RPS7     IF AT BUFFER LIMIT
01782  M01S01758.edit    +++|          SA6    B3
01783  M01S01759.edit    +++|          SB5    B0
01784  M01S01760.edit    +++|          BX6    X6-X6       CLEAR ASSEMBLY REGISTER
01785  M01S01761.edit    +++|          SB3    B3+B1
01786  M01S01762.edit    +++|          NZ     B7,RPS5     IF REPLACEMENT NOT COMPLETE
01787  M01S01763.edit    +++| RPS7     SX1    B5+         CHARACTER POINTER TO END OF NEW STRING
01788  M01S01764.edit    +++|          SB6    10
01789  M01S01765.edit    +++|          LX1    24
01790  M01S01766.edit    +++|          ZR     B5,RPS8     IF NEW STRING FILLED WORD
01791  M01S01767.edit    +++| +        LX6    6
01792  M01S01768.edit    +++|          SB5    B5+B1       LEFT JUSTIFY WORD ENDING PHRASE
01793  M01S01769.edit    +++|          NE     B5,B6,*
01794  M01S01770.edit    +++| RPS8     SA6    B3
01795  M01S01771.edit    +++|          SX3    A6
01796  M01S01772.edit    +++|          BX0    X0-X0
01797  M01S01773.edit    +++|          BX7    X1+X3
01798  M01S01774.edit    +++|          SA2    SLP         POINTER TO TEXT IN TEMPORARY BUFFER
01799  M01S01775.edit    +++|          SA3    LBW         POINTER TO END OF OLD PHRASE
01800  M01S01776.edit    +++|          BX1    X7
01801  M01S01777.edit    +++|          MX6    1
01802  M01S01778.edit    +++|          NG     X3,RPS9     IF NO DATA FOLLOWING ORIGINAL PHRASE
01803  M01S01779.edit    +++|          NZ     X4,RPS10    IF NOT AT BUFFER LIMIT
01804  M01S01780.edit    +++| RPS9     SX0    B1
01805  M01S01781.edit    +++|          BX2    X6*X3
01806  M01S01782.edit    +++|          BX7    X2+X7
01807  M01S01783.edit    +++|          BX2    X3
01808  M01S01784.edit    +++| RPS10    SA7    A3          SET POINTER TO END OF NEW STRING
01809  M01S01785.edit    +++|          SB6    LBUF+LBUFL-1
01810  M01S01786.edit    +++|          RJ     CTL         APPEND TEXT FOLLOWING PHRASE TO LINE
01811  M01S01787.edit    +++|          SA1    SEC
01812  M01S01788.edit    +++|          SX7    X1+B1       DECREMENT COUNTER
01813  M01S01789.edit    +++|          SA7    A1
01814  M01S01790.edit    +++|          ZR     X7,RPS12    IF OPERATION COMPLETE
01815  M01S01791.edit    +++|          INTRPT RPS11       PROCESS TERMINAL INTERRUPTS
01816  M01S01792.edit    +++|          SX6    STPHR1
01817  M01S01793.edit    +++|          RJ     SML         SEARCH MODIFIED LINE
01818  M01S01794.edit    +++|          EQ     RPS2
01819  M01S01795.edit    +++|
01820  M01S01796.edit    +++| RPS11    SA3    SEC
01821  M01S01797.edit    +++|          SA4    A3-B1       GET NUMBER SUCCESSFUL OPERATIONS
01822  M01S01798.edit    +++|          IX1    X4+X3
01823  M01S01799.edit    +++|          ZR     X1,PSO2     IF NONE COMPLETED
01824  M01S01800.edit    +++|          RJ     GSM
01825  M01S01801.edit    +++|          JP     SET2        REPOSITION FILES
01826  M01S01802.edit    +++|
01827  M01S01803.edit    +++| RPS12    SA1    SLP         SET LINE TERMINATOR
01828  M01S01804.edit    +++|          RJ     SLT
01829  M01S01805.edit    +++|          JP     SET2        REPOSITION FILES
01830  M01S01806.edit    +++|
01831  M01S01807.edit    +++|
01832  M01S01808.edit    +++| RPSA     SA2    A7-B1
01833  M01S01809.edit    +++|          SA4    X2          FIRST WORD OF PHRASE
01834  M01S01810.edit    +++|          SB6    10
01835  M01S01811.edit    +++| ALIGN    TITLE  AUXILIARY COMMAND PROCESSORS.
01836  M01S01812.edit    +++|***       ALIGN (AL) - ALIGN DATA.
01837  M01S01813.edit    +++|*
01838  M01S01814.edit    +++|*         ELIMINATES UNWANTED BLANKS ON THE TEXT FILE. DATA IS LINED
01839  M01S01815.edit    +++|*         UP BY WORD, SENTENCE, AND PARAGRAPH.
01840  M01S01816.edit    +++|
01841  M01S01817.edit    +++|
01842  M01S01818.edit    +++| ALIGN    BSS    0
01843  M01S01819.edit    +++|          SA2    EOFTF
01844  M01S01820.edit    +++|          ZR     X2,LTL11    IF POSITIONED AT EOI
01845  M01S01821.edit    +++|          SA2    AFLI
01846  M01S01822.edit    +++|          NZ     X2,ALN1     IF ALIGN FIELD LENGTH ALREADY SET
01847  M01S01823.edit    +++|          MEMORY CM,AFLI,R,ALFL
01848  M01S01824.edit    +++|          SA3    STPHR1
01849  M01S01825.edit    +++|          SA4    STPHR2
01850  M01S01826.edit    +++| ALN1     ZR     X3,ALN2     IF NO STRING FIELDS
01851  M01S01827.edit    +++|          RJ     PSO
01852  M01S01828.edit    +++| ALN2     SA3    SEC
01853  M01S01829.edit    +++|          BX6    -X3
01854  M01S01830.edit    +++|          SA6    A3+B1       INITIAL COUNT FOR INTERRUPT PROCESSING
01855  M01S01831.edit    +++| ALN3     SA2    STPHR2
01856  M01S01832.edit    +++|          SX7    B0
01857  M01S01833.edit    +++|          SX1    B1
01858  M01S01834.edit    +++|          ZR     X2,ALN4     IF NOT ELLIPSIS OPERATION
01859  M01S01835.edit    +++|          RJ     SLS         SEARCH FOR /P2/ IN SAME LINE AS /P1/
01860  M01S01836.edit    +++|          SX7    B1
01861  M01S01837.edit    +++|          NZ     B7,ALN4     IF NOT ONE LINE ELLIPSIS
01862  M01S01838.edit    +++|          BX7    X7-X7
01863  M01S01839.edit    +++| ALN4     SA7    SLP         MULTI-LINE ELLIPSIS INDICATOR
01864  M01S01840.edit    +++| ALN5     SA3    WDTH        NEW LINE WIDTH
01865  M01S01841.edit    +++|          SX1    STRA        FWA NEW LINE BUFFER
01866  M01S01842.edit    +++|          IX3    X1+X3       MAXIMUM LWA NEW LINE
01867  M01S01843.edit    +++|          LX1    18
01868  M01S01844.edit    +++|          BX0    X1+X3
01869  M01S01845.edit    +++| ALN6     SA3    LBUF
01870  M01S01846.edit    +++|          SX7    1R
01871  M01S01847.edit    +++|          SB2    A3+
01872  M01S01848.edit    +++|          SB6    USBBL
01873  M01S01849.edit    +++|          RJ     USB         UNPACK OLD LINE TO STRING BUFFER
01874  M01S01850.edit    +++|          SB4    X0          MAXIMUM LWA NEW LINE
01875  M01S01851.edit    +++|          AX0    18
01876  M01S01852.edit    +++|          SB5    X0+         CURRENT ADDRESS IN NEW LINE
01877  M01S01853.edit    +++|          SA0    B6+         FWA NEXT WORD IN OLD LINE
01878  M01S01854.edit    +++|          SA1    B6          FIRST CHARACTER IN OLD LINE
01879  M01S01855.edit    +++|          AX0    18          LWA+1 OF LAST COMPLETE WORD IN NEW LINE
01880  M01S01856.edit    +++|          NZ     X3,ALN7     IF NOT ZERO WORD
01881  M01S01857.edit    +++|          PL     X3,ALN14    IF BLANK LINE
01882  M01S01858.edit    +++| ALN7     SA2    ASC         ASCII INDICATOR
01883  M01S01859.edit    +++|          IX3    X1-X7
01884  M01S01860.edit    +++|          NZ     X3,ALN9     IF NOT BLANK CHARACTER
01885  M01S01861.edit    +++|          SB6    B6+B1
01886  M01S01862.edit    +++|          MX4    4
01887  M01S01863.edit    +++|          SB5    B5+5
01888  M01S01864.edit    +++|          SA7    B5-B1       INITIALIZE INDENTATION
01889  M01S01865.edit    +++|+         LX4    1
01890  M01S01866.edit    +++|          SA7    A7-B1       INDENT NEW LINE
01891  M01S01867.edit    +++|          NG     X4,*
01892  M01S01868.edit    +++| ALN8     GT     B6,B7,ALN14 IF END OF OLD LINE
01893  M01S01869.edit    +++|          SA1    B6
01894  M01S01870.edit    +++|          IX3    X1-X7
01895  M01S01871.edit    +++|          SB6    B6+B1
01896  M01S01872.edit    +++|          ZR     X3,ALN8     IF BLANK CHARACTER
01897  M01S01873.edit    +++|          SB6    B6-B1
01898  M01S01874.edit    +++| ALN9     GT     B6,B7,ALN15 IF END OF OLD LINE
01899  M01S01875.edit    +++|          SA1    B6+
01900  M01S01876.edit    +++|          IX3    X1-X7
01901  M01S01877.edit    +++|          SB6    B6+B1
01902  M01S01878.edit    +++|          BX6    X1          TRANSFER CURRENT CHARACTER TO NEW LINE
01903  M01S01879.edit    +++|          SA6    B5
01904  M01S01880.edit    +++|          SB5    B5+B1
01905  M01S01881.edit    +++|          ZR     X2,ALN11    IF NO ESCAPE CODE SET
01906  M01S01882.edit    +++|          IX4    X2+X6
01907  M01S01883.edit    +++|          ZR     X4,ALN10    IF ESCAPE CODE 76
01908  M01S01884.edit    +++|          SX4    X4-74B+76B
01909  M01S01885.edit    +++| ALN10    NZ     X4,ALN11    IF NO ESCAPE CODE
01910  M01S01886.edit    +++|          SB4    B4+1
01911  M01S01887.edit    +++| ALN11    GE     B5,B4,ALN13 IF NEW LINE WIDTH REACHED
01912  M01S01888.edit    +++|          NZ     X3,ALN9     IF NOT BLANK CHARACTER
01913  M01S01889.edit    +++|          SA4    A6-B1       LAST NON-BLANK CHARACTER
01914  M01S01890.edit    +++|          SX0    B5          LWA+1 OF LAST COMPLETE WORD IN NEW LINE
01915  M01S01891.edit    +++|          SX6    X4-1R.
01916  M01S01892.edit    +++|          SX3    B1
01917  M01S01893.edit    +++|          SA0    B6          FWA NEXT WORD IN OLD LINE
01918  M01S01894.edit    +++|          ZR     X6,ALN12    IF PERIOD ENDING SENTENCE
01919  M01S01895.edit    +++|          SX6    X4-1R?
01920  M01S01896.edit    +++|          NZ     X6,ALN8     IF NOT QUESTION MARK
01921  M01S01897.edit    +++| ALN12    SA7    B5
01922  M01S01898.edit    +++|          SB5    B5+B1
01923  M01S01899.edit    +++|          LT     B5,B4,ALN8  IF NEW LINE WIDTH NOT REACHED
01924  M01S01900.edit    +++|
01925  M01S01901.edit    +++|*         NEW LINE WIDTH REACHED.
01926  M01S01902.edit    +++|
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/edit.txt ยท Last modified: by 127.0.0.1