25 Modifications

Seq #  *Modification Id* Act 
----------------------------+
02008  M01S01981.xedit   +++| SPCMDT   SPACE  4,10
02009  M01S01982.xedit   +++| SPCMDT   BSS    0
02010  M01S01983.xedit   +++| SPECIAL  HERE               ASSEMBLE SPECIAL COMMAND TABLE
02011  M01S01984.xedit   +++| SPCMDU   DATA   0           END MARKER
02012  M01S01985.xedit   +++|          PURGMAC  SPECIAL   VOID USAGE OF MACRO
02013  M01S01986.xedit   +++| NCL      SPACE  4,40
02014  M01S01987.xedit   +++|**        NCL - OBTAIN NEXT COMMAND LINE AND PUT INTO *C.STR*.
02015  M01S01988.xedit   +++|*
02016  M01S01989.xedit   +++|*         NCL READS THE NEXT LINE FROM THE CURRENT INPUT FILE
02017  M01S01990.xedit   +++|*         AND PLACES IT INTO C.STR (C.STR-1 IS UPDATED ALSO).
02018  M01S01991.xedit   +++|*         IF THERE IS NO FET (IE. THE *.* AND *-* COMMANDS), THE
02019  M01S01992.xedit   +++|*         INPUT STACK IS POP-ED AND THE LAST INPUT LINE IS
02020  M01S01993.xedit   +++|*         RE-INSTATED AT ITS PREVIOUS POSITION. IF THERE IS A
02021  M01S01994.xedit   +++|*         FET, *READC* IS CALLED TO READ IN THE NEXT LINE. IF
02022  M01S01995.xedit   +++|*         POSITIONED AT AN EOR,EOF,EOI, THE STACK IS POP-ED IF
02023  M01S01996.xedit   +++|*         NOT THE PRIMARY INPUT SOURCE.
02024  M01S01997.xedit   +++|*
02025  M01S01998.xedit   +++|*         NDL - OBTAIN NEXT DATA LINE FROM COMMAND LINE AND PUT INTO
02026  M01S01999.xedit   +++|*               C.STR.
02027  M01S02000.xedit   +++|*
02028  M01S02001.xedit   +++|*         THIS IS A SECOND ENTRY POINT TO *NCL*. SINCE XEDIT ALLOWS
02029  M01S02002.xedit   +++|*         THE USER TO INTERMIX COMMANDS AND DATA, EVERY SO OFTEN
02030  M01S02003.xedit   +++|*         XEDIT NEEDS MORE DATA (WHICH EXISTS ON THE NEXT COMMAND
02031  M01S02004.xedit   +++|*         LINE. THIS ENTRY POINT HANDLES THIS CASE. (DESIGNED TO BE
02032  M01S02005.xedit   +++|*         USED WITH *RDL*.)
02033  M01S02006.xedit   +++|*
02034  M01S02007.xedit   +++|*         ENTRY  NONE.
02035  M01S02008.xedit   +++|*
02036  M01S02009.xedit   +++|*         EXIT   (X1) = 0 IF DATA HAS BEEN READ.
02037  M01S02010.xedit   +++|*                     .NE. 0 IF AN EMPTY CR WAS ENCOUNTERED.
02038  M01S02011.xedit   +++|*                RETURNS TO CALLER IF ENTERED VIA *NDL*,
02039  M01S02012.xedit   +++|*                ELSE RETURNS TO *NCM*, UNLESS IN *INPUT* MODE, THEN
02040  M01S02013.xedit   +++|*                RETURNS TO *INP2*.
02041  M01S02014.xedit   +++|*                IF END OF INPUT AND NOT TTY INPUT FILE, TO *ABT*.
02042  M01S02015.xedit   +++|*
02043  M01S02016.xedit   +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
02044  M01S02017.xedit   +++|*                X - 1, 2, 3, 4, 5, 6, 7.
02045  M01S02018.xedit   +++|*                B - 6, 7.
02046  M01S02019.xedit   +++|*
02047  M01S02020.xedit   +++|*         CALLS  STL, UPL.
02048  M01S02021.xedit   +++|*
02049  M01S02022.xedit   +++|*         MACROS PROMPT, READ, READC, WRITEO.
02050  M01S02023.xedit   +++|
02051  M01S02024.xedit   +++|
02052  M01S02025.xedit   +++| NDL      DATA   0           NEW DATA LINE ENTRY. THIS WORD IS A FLAG.
02053  M01S02026.xedit   +++|
02054  M01S02027.xedit   +++|*         IF (NDL) = 0, THEN ENTERED VIA *NCL*, ELSE VIA *NDL*.
02055  M01S02028.xedit   +++|
02056  M01S02029.xedit   +++| NCL      SA5    C.ON        OBTAIN CURRENT INPUT DEVICE
02057  M01S02030.xedit   +++|          SA3    X5-1        GET FET ADDRESS
02058  M01S02031.xedit   +++|          ZR     X3,NCL5     IF NO FET (POP STACK)
02059  M01S02032.xedit   +++|          SA1    PROMPT
02060  M01S02033.xedit   +++|          SX2    X3          SET FET ADDRESS
02061  M01S02034.xedit   +++|          BX6    X1
02062  M01S02035.xedit   +++|          SA4    NDL
02063  M01S02036.xedit   +++|          SX7    X2-INPUT
02064  M01S02037.xedit   +++|          NZ     X4,NCL1     IF REQUESTING DATA
02065  M01S02038.xedit   +++|          NG     X3,NCL5     IF POP IF ASKING FOR COMMAND
02066  M01S02039.xedit   +++|          NZ     X7,NCL1     IF NOT PRIMARY INPUT
02067  M01S02040.xedit   +++|          ZR     X6,NCL1     IF NOT TO ISSUE PROMPT
02068  M01S02041.xedit   +++|          WRITEO OUTPUT
02069  M01S02042.xedit   +++| NCL1     SA1    TTYIN
02070  M01S02043.xedit   +++|          SA3    NCLA
02071  M01S02044.xedit   +++|          SA2    BATCH
02072  M01S02045.xedit   +++|          BX6    X1+X3
02073  M01S02046.xedit   +++|          SA6    A3
02074  M01S02047.xedit   +++|          NZ     X3,NCL2     IF READ NOT NEEDED
02075  M01S02048.xedit   +++|          SA4    NDL
02076  M01S02049.xedit   +++|          NG     X2,NCL1.1   IF IN BATCH MODE
02077  M01S02050.xedit   +++|          NZ     X4,NCL1.1   IF ENTERED VIA *NDL*
02078  M01S02051.xedit   +++|          PROMPT OFF         TURN OFF PROMPT
02079  M01S02052.xedit   +++| NCL1.1   READ   INPUT,RECALL
02080  M01S02053.xedit   +++|          SA2    BATCH
02081  M01S02054.xedit   +++|          NG     X2,NCL2     IF IN BATCH MODE
02082  M01S02055.xedit   +++|          PROMPT ON          TURN ON PROMPT
02083  M01S02056.xedit   +++| NCL2     READC  INPUT,X5-34D,33D  READ NEW LINE
02084  M01S02057.xedit   +++|          SA3    C.STR-1     RESET CHARACTER INDEX
02085  M01S02058.xedit   +++|          NZ     X1,NCL6     IF HIT END OF SOMETHING
02086  M01S02059.xedit   +++|          PX6    B1,X3       RESET CHARACTER INDEX
02087  M01S02060.xedit   +++|          SA6    A3
02088  M01S02061.xedit   +++| NCL3     SA1    X5-34D      FWA OF STRING
02089  M01S02062.xedit   +++|          SB6    C.STR       FWA OF STRING
02090  M01S02063.xedit   +++|          RJ     UPL
02091  M01S02064.xedit   +++|          SX1    0           SET SUCCESSFUL READ
02092  M01S02065.xedit   +++| NCL4     SA2    NDL
02093  M01S02066.xedit   +++|          ZR     X2,NCL8     IF ENTERED VIA NCL
02094  M01S02067.xedit   +++|          AX2    30
02095  M01S02068.xedit   +++|          BX7    X7-X7
02096  M01S02069.xedit   +++|          SA7    TLX         IGNORE INTERRUPT IF DATA LINE
02097  M01S02070.xedit   +++|          SB7    X2          OBTAIN RETURN ADDRESS
02098  M01S02071.xedit   +++|          SA7    A2          CLEAR *NDL* FLAG
02099  M01S02072.xedit   +++|          JP     B7          RETURN TO CALLER
02100  M01S02073.xedit   +++|
02101  M01S02074.xedit   +++|*         POP INPUT STACK
02102  M01S02075.xedit   +++|
02103  M01S02076.xedit   +++| NCL5     MX6    1           SET DEVICE IN-ACTIVE
02104  M01S02077.xedit   +++|          SA5    X5          GET NEW DEVICE
02105  M01S02078.xedit   +++|          SA6    A5          IDLE OLD DEVICE
02106  M01S02079.xedit   +++|          SA2    X5+B1       GET OLD C.STR-1 WORD
02107  M01S02080.xedit   +++|          BX7    X5
02108  M01S02081.xedit   +++|          LX6    X2
02109  M01S02082.xedit   +++|          SA7    C.ON        CHANGE CURRENT DEVICE POINTER
02110  M01S02083.xedit   +++|          SA6    C.STR-1
02111  M01S02084.xedit   +++|          EQ     NCL3        UNPACK AND EXIT
02112  M01S02085.xedit   +++|
02113  M01S02086.xedit   +++|*         END OF SOMETHING ENCOUNTERED ON INPUT FILE.
02114  M01S02087.xedit   +++|
02115  M01S02088.xedit   +++| NCL6     SA2    X5-1        GET FET ADDRESS
02116  M01S02089.xedit   +++|          SX2    X2-INPUT    PRIMARY INPUT FOR CMD OR DATA
02117  M01S02090.xedit   +++|          NZ     X2,NCL5     IF NOT PRIMARY INPUT FILE
02118  M01S02091.xedit   +++|          SA4    TTYIN
02119  M01S02092.xedit   +++|          NZ     X4,NCL7     IF NOT *TTY* INPUT FILE (ABORT)
02120  M01S02093.xedit   +++|          RJ     STL         EVENTUALLY RETURNS TO *NCL* IF INTERRUPT
02121  M01S02094.xedit   +++|          MX6    0           SET READ REQUIRED
02122  M01S02095.xedit   +++|          SA6    NCLA        (X1) .NE. 0
02123  M01S02096.xedit   +++|          EQ     NCL4        READ INPUT FILE
02124  M01S02097.xedit   +++|
02125  M01S02098.xedit   +++| NCL7     SB6    =C* END OF INPUT ENCOUNTERED - ABORTED.*
02126  M01S02099.xedit   +++|          EQ     ABT         ABORT XEDIT
02127  M01S02100.xedit   +++|
02128  M01S02101.xedit   +++| NCL8     SA2    INPMODE
02129  M01S02102.xedit   +++|          NG     X2,INP2     IF IN INPUT MODE
02130  M01S02103.xedit   +++|          ZR     X1,NCM      IF NOT EMPTY CARRIAGE RETURN
02131  M01S00004.xedit20 +++|          SA1    UPDATE
02132  M01S00005.xedit20 +++|          PL     X1,NCM21    IF IN LOOK MODE
02133  M01S02104.xedit   +++|          EQ     INP1        BEGIN INPUT MODE
02134  M01S02105.xedit   +++|
02135  M01S02106.xedit   +++| NCLA     DATA   0           READ REQ,D FROM INPUT IF ZERO
02136  M01S02107.xedit   +++|          TITLE  COMMAND TABLE.
02137  M01S02108.xedit   +++| JUMP     BSS    0           START OF COMMAND TABLE
02138  M01S02109.xedit   +++| .ADD     COMMAND  ADD,A,NUMBER1,,ADD,(IN,F0)
02139  M01S02110.xedit   +++| .ALN     COMMAND  ADDLN,ALN,NUMBER2,-1,PLN,,OVL2
02140  M01S02111.xedit   +++| .ALNS    COMMAND  ADDLNS,ALNS,NUMBER2,-2,PLN,,OVL2
02141  M01S02112.xedit   +++| .BOTTOM  COMMAND  BOTTOM,B,NONE,,BTR,(LK)
02142  M01S02113.xedit   +++| .BRIEF   COMMAND  BRIEF,BR,TOGGLE,(XVERIFY*2+0),SFG,(CR,LK,IN)

Seq #  *Modification Id* Act 
----------------------------+
02143  M02S02114.xedit20 ---| .CHANGE  COMMAND  CHANGE,C,STRING,340000B,CNG,(LK,IN,F0)

Seq #  *Modification Id* Act 
----------------------------+
02144  M02S02115.xedit20 ---| .CS      COMMAND  CHANGES,CS,STRING,340000B,CGS,(LK,IN,F0)
02145  M01S00006.xedit20 +++| .CHANGE  COMMAND  CHANGE,C,STRING,340000B,CNG,(IN,F0)

Seq #  *Modification Id* Act 
----------------------------+
02146  M02S00007.xedi20a ---| .CS      COMMAND  CHANGE,CS,STRING,340000B,CGS,(IN,F0)
02147  M01S00001.xedi20a +++| .CS      COMMAND  CHANGES,CS,STRING,340000B,CGS,(IN,F0)
02148  M01S02116.xedit   +++| .COPY    COMMAND  COPY,,ONEFILE,070011B,CPY,(LK,IN,F0),OVL2
02149  M01S02117.xedit   +++| .COPYD   COMMAND  COPYD,,ONEFILE,070011B,CPY11,,OVL2
02150  M01S02118.xedit   +++| .DBADL   COMMAND  DBADL,DBL,NUMBER1,-1,PBL,,OVL2
02151  M01S02119.xedit   +++| .DEFTAB  COMMAND  DEFTAB,DT,CHAR,(TABCHAR*2+0),SCH,(CR,IN,LK)
02152  M01S02120.xedit   +++| .DELETE  COMMAND  DELETE,D,STRING,070000B,DLT
02153  M01S02121.xedit   +++| .DEL     COMMAND  DELIMIT,DEL,CHAR,1,DEL,(CR,LK,IN)
02154  M01S02122.xedit   +++| .DEOF    COMMAND  DEOF,DF,NUMBER1,DF,DRF
02155  M01S02123.xedit   +++| .DEOR    COMMAND  DEOR,DR,NUMBER1,DR,DRF
02156  M01S02124.xedit   +++| .DLN     COMMAND  DELETELN,DLN,NONE,0,PLN,,OVL2
02157  M01S02125.xedit   +++| .DLB     COMMAND  DLBLANKS,DLB,NUMBER1,,DLB,,OVL2

Seq #  *Modification Id* Act 
----------------------------+
02158  M02S02126.xedit12 ---| .EDIT    COMMAND  EDIT,,NONE,,EDT,(IN)
02159  M01S00002.xedit12 +++| .EDIT    COMMAND  EDIT,,NONE,,PEC,(IN)
02160  M01S02127.xedit   +++| .END     COMMAND  END,E,ONEFILE,000022B,EFQ
02161  M01S02128.xedit   +++| .EXPLAI  COMMAND  EXPLAIN,,NONE,,EXP,(CR,IN,LK),OVL1
02162  M01S02129.xedit   +++| .FBADL   COMMAND  FBADL,FBL,NUMBER1,1,PBL,(LK),OVL2
02163  M01S02130.xedit   +++| .FILE    COMMAND  FILE,F,ONEFILE,000022B,EFQ
02164  M01S02131.xedit   +++| .FINDLL  COMMAND  FINDLL,FLL,NUMBER1,,FLL,(LK)
02165  M01S02132.xedit   +++| .HELP    COMMAND  HELP,H,NULL,,HELP,(CR,LK,IN),OVL1
02166  M01S02133.xedit   +++| .INPUT   COMMAND  INPUT,,CHAR,0,INP,(CR)
02167  M01S02134.xedit   +++| .INSERT  COMMAND  INSERT,I,NUMBER1,IIB4,IIB,(CR)
02168  M01S02135.xedit   +++| .IB      COMMAND  INSERTB,IB,NUMBER1,IIB3,IIB,(IN)
02169  M01S02136.xedit   +++| .LISTAB  COMMAND  LISTAB,LT,NONE,,LTB,(CR,LK,IN),OVL2
02170  M01S02137.xedit   +++| .LOCATE  COMMAND  LOCATE,L,STRING,260000B,LCT,(LK)
02171  M01S02138.xedit   +++|          IF     DEF,TIMES,1
02172  M01S02139.xedit   +++| .LOC     COMMAND  LOC,,STRING,260000B,LCTA,(LK)
02173  M01S02140.xedit   +++| .MODIFY  COMMAND  MODIFY,M,NONE,0,MOD,(IN)
02174  M01S02141.xedit   +++| .NEXT    COMMAND  NEXT,N,NEXT,,NXT,(LK)
02175  M01S02142.xedit   +++| .NOBELL  COMMAND  NOBELLS,NB,NONE,,NBL,(CR,IN,LK),OVL2
02176  M01S02143.xedit   +++| .OCTCHA  COMMAND  OCTCHANGE,OC,NULL,300000B,OCT,(IN,F0),OVL2
02177  M01S02144.xedit   +++| .PRINT   COMMAND  PRINT,P,NUMBER1,,PNT,(CR,IN,LK,F0)
02178  M01S02145.xedit   +++| .QMOD    COMMAND  QMOD,QM,NUMBER1,0,MOD1,(IN,F0)
02179  M01S02146.xedit   +++| .QUIT    COMMAND  QUIT,Q,ONEFILE,000022B,EFQ
02180  M01S02147.xedit   +++| .READ    COMMAND  READ,,NULL,,RDP,,OVL2
02181  M01S02148.xedit   +++| .READP   COMMAND  READP,,NULL,,RDP,,OVL2
02182  M01S02149.xedit   +++| .REPLACE COMMAND  REPLACE,R,NUMBER1,,RLP,(IN,F0)
02183  M01S02150.xedit   +++| .RLN     COMMAND  REPLACELN,RLN,NUMBER2,1,PLN,,OVL2
02184  M01S02151.xedit   +++| .RESTOR  COMMAND  RESTORE,REST,NONE,,RST
02185  M01S02152.xedit   +++| .RM      COMMAND  RMARGIN,RM,NUMBER1,,RMA,(CR,IN,LK)
02186  M01S02153.xedit   +++| .STOP    COMMAND  STOP,,NONE,,ABO,(CR,LK)
02187  M01S02154.xedit   +++| .TABS    COMMAND  TABS,TAB,NUMBER,NTABS,STB,(CR,LK,IN)
02188  M01S02155.xedit   +++| .TEOF    COMMAND  TEOF,,TOGGLE,ITOGGLF,TGL,(CR,LK,IN)
02189  M01S02156.xedit   +++| .TEOR    COMMAND  TEOR,,TOGGLE,ITOGGLR,TGL,(CR,LK,IN)
02190  M01S02157.xedit   +++| .TRIM    COMMAND  TRIM,,TOGGLE,TRIM,TGL,(CR,LK,IN)
02191  M01S02158.xedit   +++| .TRUNC   COMMAND  TRUNCATE,TRUNC,NUMBER1,,TRN,(IN,F0)
02192  M01S02159.xedit   +++| .TOP     COMMAND  TOP,T,NONE,,TTN,(LK)
02193  M01S02160.xedit   +++| .TOPNUL  COMMAND  TOPNULL,TN,NONE,,TTN
02194  M01S02161.xedit   +++| .VERIFY  COMMAND  VERIFY,V,TOGGLE,(XVERIFY*2+1),SFG,(CR,LK,IN)
02195  M01S02162.xedit   +++| .WEOF    COMMAND  WEOF,WF,NONE,34B,WRM,(IN)
02196  M01S02163.xedit   +++| .WEOR    COMMAND  WEOR,WR,NONE,24B,WRM,(IN)
02197  M01S02164.xedit   +++| .WHERE   COMMAND  WHERE,W,NONE,,WHR,(CR,IN,LK)
02198  M01S02165.xedit   +++| .WM      COMMAND  WMARGIN,WM,NUMBER2,,SWN,(CR,IN,LK)
02199  M01S02166.xedit   +++| .Y       COMMAND  Y,,NULL,,YZP,(CR,LK,IN)
02200  M01S02167.xedit   +++| .YQMOD   COMMAND  YQMOD,YQM,NUMBER1,0,MOD2,(IN,F0)
02201  M01S02168.xedit   +++| .Z       COMMAND  Z,,NULL,,YZP,(CR,IN,LK)
02202  M01S02169.xedit   +++| JUMPX    DATA   0

Seq #  *Modification Id* Act 
----------------------------+
02203  M02S02170.v23l617 ---|          VFD    2/3,58/0    ILLEGAL COMMAND MARKER
02204  M01S00014.v23l617 +++|          VFD    2/3,58/0    INCORRECT COMMAND MARKER
02205  M01S02171.xedit   +++|          SPACE  4
02206  M01S02172.xedit   +++|**        ASSEMBLE DATA NEEDED FOR OVERLAYS.
02207  M01S02173.xedit   +++|*         THIS CODE NEEDS TO BE AFTER THE COMMAND DEFINITIONS.
02208  M01S02174.xedit   +++|
02209  M01S02175.xedit   +++|
02210  M01S02176.xedit   +++| LOVA     VFD    24/0,30/0LXEDIT,6/0   OVERLAY BASE NAME
02211  M01S02177.xedit   +++| LOVB     VFD    30/MINFL,30/0  MINIMUM BASE FIELD LENGTH
02212  M01S02178.xedit   +++| C.A      SET    1           PREPARE TABLE OF FIELD LENGTHS
02213  M01S02179.xedit   +++|          DUP    MXOVL,3
02214  M01S02180.xedit   +++| C.D      DECMIC C.A
02215  M01S02181.xedit   +++|          VFD    30//XEDIT_"C.D"_/LWA,30/0
02216  M01S02182.xedit   +++| C.A      SET    C.A+1
02217  M01S02183.xedit   +++| .H       IFEQ   DEBUG,1     IF DEBUG ON
02218  M01S02184.xedit   +++|          DATA   10H LOADING
02219  M01S02185.xedit   +++| .H       ENDIF
02220  M01S02186.xedit   +++| LOVC     BSSZ   1           OVERLAY NAME
02221  M01S02187.xedit   +++| LOVD     VFD    6/1,6/,5/,1/1,24/,*P/
02222  M01S02188.xedit   +++| LOVE     CON    0           LAST OVERLAY LOADED
02223  M01S02189.xedit   +++|          IFEQ   FILEOV,3,6
02224  M01S02190.xedit   +++| LOVF     CON    0           .NE.0 IF OVERLAY LOADED FROM LIBRARY
02225  M01S02191.xedit   +++| LOVG     BSS    0
02226  M01S02192.xedit   +++| .I       IFEQ   DEBUG,1     IF DEBUG ON
02227  M01S02193.xedit   +++| SCRG     FILEC  E.SCR,150D,(FET=13D),EPR
02228  M01S02194.xedit   +++| .I       ELSE
02229  M01S02195.xedit   +++| SCRG     FILEC  E.SCR,150D,(FET=13D),(USN=LIBRARY),EPR
02230  M01S02196.xedit   +++| .I       ENDIF
02231  M01S02197.xedit   +++|
02232  M01S02198.xedit   +++|          TITLE  COMMAND PROCESSORS.
02233  M01S02199.xedit   +++|**        ENTRY CONDITIONS TO ALL COMMAND PROCESSORS -
02234  M01S02200.xedit   +++|*
02235  M01S02201.xedit   +++|*         (X1) = (DECA) - INSTRUCTION DESCRIPTER WORD.
02236  M01S02202.xedit   +++|*         (INDEX) = ADDRESS OF INSTRUCTION DESCRIPTER WORD.
02237  M01S02203.xedit   +++| ABO      SPACE  4,10
02238  M01S02204.xedit   +++|**        ABO - PROCESS ABORT COMMAND.
02239  M01S02205.xedit   +++|*
02240  M01S02206.xedit   +++|*         ENTRY  NONE.
02241  M01S02207.xedit   +++|*
02242  M01S02208.xedit   +++|*         EXIT   TO *ABT*.
02243  M01S02209.xedit   +++|*
02244  M01S02210.xedit   +++|*         USES   A - 2.
02245  M01S02211.xedit   +++|*                X - 2.
02246  M01S02212.xedit   +++|*                B - 6.
02247  M01S02213.xedit   +++|*
02248  M01S02214.xedit   +++|*         MACROS RETURN.
02249  M01S02215.xedit   +++|
02250  M01S02216.xedit   +++|

Seq #  *Modification Id* Act 
----------------------------+
02251  M02S02217.xedit25 ---| ABO      SB6    =C* ABORTED*

Seq #  *Modification Id* Act 
----------------------------+
02252  M02S02218.xedit25 ---|          SA2    SPCP
02253  M01S00001.xedit25 +++| ABO      SA2    SPCP
02254  M01S02219.xedit   +++|          LX2    59-58

Seq #  *Modification Id* Act 
----------------------------+
02255  M02S02220.xedit25 ---|          PL     X2,ABT      IF *P* NOT SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
02256  M02S02221.xedit25 ---|          RETURN E.IN,R      RETURN EDIT FILE
02257  M01S00002.xedit25 +++|          PL     X2,ABO1     IF *P* NOT SPECIFIED
02258  M01S00003.xedit25 +++|          RECALL SFET
02259  M01S00004.xedit25 +++|          SA1    ISFN        GET EDIT FILE NAME
02260  M01S00005.xedit25 +++|          SX6    B1          SET COMPLETE BIT
02261  M01S00006.xedit25 +++|          BX6    X6+X1
02262  M01S00007.xedit25 +++|          SA6    X2
02263  M01S00008.xedit25 +++|          RETURN X2,R        RETURN EDIT FILE
02264  M01S00009.xedit25 +++| ABO1     SB6    =C* ABORTED*
02265  M01S02222.xedit   +++|          EQ     ABT         ABORT XEDIT
02266  M01S02223.xedit   +++| ADD      SPACE  4,15
02267  M01S02224.xedit   +++|**        ADD - ADD TEXT TO END OF LINE(S).
02268  M01S02225.xedit   +++|*
02269  M01S02226.xedit   +++|*         ENTRY  (NUMS) = NUMBER OF LINES TO ADD.
02270  M01S02227.xedit   +++|*
02271  M01S02228.xedit   +++|*         EXIT   TO NCM.
02272  M01S02229.xedit   +++|*
02273  M01S02230.xedit   +++|*         USES   A - 1, 2, 6, 7.
02274  M01S02231.xedit   +++|*                X - 1, 2, 3, 4, 6, 7.
02275  M01S02232.xedit   +++|*                B - 4, 6, 7.
02276  M01S02233.xedit   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02277  M02S02234.xedit21 ---|*         CALLS  ITM, RDL, RDF, SAL, VFY, WTF.
02278  M01S00001.xedit21 +++|*         CALLS  ITM, RDF, RDL, SAC, SAL, VFY, VRY, WTF.
02279  M01S02235.xedit   +++|*
02280  M01S02236.xedit   +++|*         ROUTINE REQUESTS ONE LINE OF DATA, AND ADDS IT TO
02281  M01S02237.xedit   +++|*         THE END OF N LINES. THE TRUNCATION MESSAGE IS ISSUED
02282  M01S02238.xedit   +++|*         IF THE RESULTANT LENGTH IS GREATER THAN 160 CHARACTERS.
02283  M01S02239.xedit   +++|
02284  M01S02240.xedit   +++|
02285  M01S02241.xedit   +++| ADD      SA1    NUMS

Seq #  *Modification Id* Act 
----------------------------+
02286  M02S02242.xedit21 ---|          SX6    X1-1        DECREMENT TO MAKE TESTING EASIER
02287  M01S00002.xedit21 +++|          SX6    B1
02288  M01S00003.xedit21 +++|          IX6    X1-X6       DECREMENT TO MAKE TESTING EASIER
02289  M01S02243.xedit   +++|          SA6    A1
02290  M01S02244.xedit   +++|          RJ     SAC         SET ASCII PROCESSING
02291  M01S02245.xedit   +++|          RJ     RDL
02292  M01S02246.xedit   +++|          NZ     X1,NCM      IF NOTHING ON LINE (RETURN)
02293  M01S02247.xedit   +++|          EQ     ADD2        PROCESS ADD
02294  M01S02248.xedit   +++|
02295  M01S02249.xedit   +++| ADD1     SA6    A1          REPLACE COUNT
02296  M01S02250.xedit   +++|          RJ     WTF
02297  M01S02251.xedit   +++|          RJ     RDF
02298  M01S02252.xedit   +++| ADD2     SA1    E.STR-1
02299  M01S02253.xedit   +++|          SA2    D.STR-1
02300  M01S02254.xedit   +++|          SX3    X1-160D
02301  M01S02255.xedit   +++|          BX3    -X3         NUMBER OF AVAILABLE CHARACTERS
02302  M01S02256.xedit   +++|          IX4    X3-X2
02303  M01S02257.xedit   +++|          SB7    A1
02304  M01S02258.xedit   +++|          PL     X4,ADD3     IF NO TRUNCATION
02305  M01S02259.xedit   +++|          BX2    X3          TRUNCATE DATA LINE
02306  M01S02260.xedit   +++| ADD3     IX7    X1+X2       GET NEW LENGTH
02307  M01S02261.xedit   +++|          SB6    B7+X1       ADDR OF LAST CHAR IN EDIT LINE
02308  M01S02262.xedit   +++|          MX6    2           SET END OF LINE
02309  M01S02263.xedit   +++|          SB4    X2+B1       INCLUDE END OF LINE
02310  M01S02264.xedit   +++| ADD4     SA6    B6+B4
02311  M01S02265.xedit   +++|          SB4    B4-B1
02312  M01S02266.xedit   +++|          SA1    A2+B4
02313  M01S02267.xedit   +++|          BX6    X1
02314  M01S02268.xedit   +++|          NZ     B4,ADD4     IF NOT ALL MOVED
02315  M01S02269.xedit   +++|          SA7    E.STR-1
02316  M01S02270.xedit   +++|          PL     X4,ADD5     IF NO TRUNCATION
02317  M01S02271.xedit   +++|          RJ     ITM         ISSUE TRUNCATION MESSAGE
02318  M01S02272.xedit   +++| ADD5     SX7    B1
02319  M01S02273.xedit   +++|          SA7    E.LMOD      SET MODIFICATIONS MADE
02320  M01S02274.xedit   +++|          SA7    NOMOD       SET FILE MODIFICATIONS MADE
02321  M01S02275.xedit   +++|          RJ     VRY         VERIFY LINE
02322  M01S02276.xedit   +++|          SA1    NUMS

Seq #  *Modification Id* Act 
----------------------------+
02323  M02S02277.xedit21 ---|          SX6    X1-1
02324  M01S00004.xedit21 +++|          SX6    B1
02325  M01S00005.xedit21 +++|          IX6    X1-X6
02326  M01S02278.xedit   +++|          NG     X6,NCM      IF FINISHED
02327  M01S02279.xedit   +++|          EQ     ADD1        PROCESS NEXT LINE
02328  M01S02280.xedit   +++| BTR      SPACE  4,25
02329  M01S02281.xedit   +++|**        BTR - ADVANCE TO BOTTOM OF CURRENT RECORD.
02330  M01S02282.xedit   +++|*
02331  M01S02283.xedit   +++|*         ENTRY  NONE.
02332  M01S02284.xedit   +++|*
02333  M01S02285.xedit   +++|*         EXIT   TO VRT.
02334  M01S02286.xedit   +++|*
02335  M01S02287.xedit   +++|*         USES   A - 1, 2, 3.
02336  M01S02288.xedit   +++|*                X - 1, 2, 3.
02337  M01S02289.xedit   +++|*
02338  M01S02290.xedit   +++|*         CALLS  RDF, WTF.
02339  M01S02291.xedit   +++|*
02340  M01S02292.xedit   +++|*         MACROS RECALL.
02341  M01S02293.xedit   +++|*
02342  M01S02294.xedit   +++|*         THIS ROUTINE TAKES ASSUMES THAT THE END OF RECORD HAS BEEN
02343  M01S02295.xedit   +++|*         ENCOUNTERED WHEN THE FOLLOWING CONDITIONS ARE TRUE.
02344  M01S02296.xedit   +++|*         1. THE FET IS NOT BUSY
02345  M01S02297.xedit   +++|*         2. *IN* IS EQUAL TO *OUT*
02346  M01S02298.xedit   +++|*         DUE TO XEDIT,S HABIT OF PASSING OVER NULL RECORD/FILES THESE
02347  M01S02299.xedit   +++|*         CONDITIONS WILL LOCATE THE BOTTOM.
02348  M01S02300.xedit   +++|*         NOTE- XEDIT WILL TREAT AN EOF AS AN EOR IF THERE IS TEXT
02349  M01S02301.xedit   +++|*         IMMEDIATELY BEFORE THE EOF. THIS WAS ASSUMED WITHIN THE
02350  M01S02302.xedit   +++|*         OF THE DESIRED FUNCTION OF BOTTOM.
02351  M01S02303.xedit   +++|
02352  M01S02304.xedit   +++|
02353  M01S02305.xedit   +++| BTR1     RJ     WTF         ADVANCE TO NEXT LINE
02354  M01S02306.xedit   +++|          RJ     RDF
02355  M01S02307.xedit   +++| BTR      SA1    E.IN+2      *IN*
02356  M01S02308.xedit   +++|          SA2    A1+B1       *OUT*
02357  M01S02309.xedit   +++|          IX2    X2-X1
02358  M01S02310.xedit   +++|          NZ     X2,BTR1     IF *IN* NOT EQUAL TO *OUT* (NOT AT END)
02359  M01S02311.xedit   +++|          SA3    E.IN
02360  M01S02312.xedit   +++|          LX3    59-0
02361  M01S02313.xedit   +++|          NG     X3,VRT      IF FET IS COMPLETE
02362  M01S02314.xedit   +++|          RECALL A3          WAIT FET COMPLETION
02363  M01S02315.xedit   +++|          EQ     BTR         FIND BOTTOM
02364  M01S02316.xedit   +++| CNG/CNS  SPACE  4,15
02365  M01S02317.xedit   +++|**        CNG/CNS - PROCESS CHANGE AND CHANGES COMMANDS.
02366  M01S02318.xedit   +++|*
02367  M01S02319.xedit   +++|*         ENTRY  (NUMS) = IF VIA *CNG*, NUMBER OF LINES.
02368  M01S02320.xedit   +++|*                         IF VIA *CNS*, NUMBER OF STRINGS.
02369  M01S02321.xedit   +++|*
02370  M01S02322.xedit   +++|*         EXIT   TO *NCM*.
02371  M01S02323.xedit   +++|*                IF STRING NOT FOUND, TO *LCT4*
02372  M01S02324.xedit   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02373  M02S02325.xedit21 ---|*         USES   A - 0, 1, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
02374  M02S02326.xedit21 ---|*                X - 0, 1, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
02375  M02S02327.xedit21 ---|*                B - 2, 6.
02376  M01S00006.xedit21 +++|*         USES   A - 0, 1, 4, 6, 7.
02377  M01S00007.xedit21 +++|*                X - 0, 1, 4, 5, 6, 7.
02378  M01S00008.xedit21 +++|*                B - 6.
02379  M01S02328.xedit   +++|*
02380  M01S02329.xedit   +++|*         CALLS CHS, ITM, RDF, TSL, VRY, WTF.
02381  M01S02330.xedit   +++|
02382  M01S02331.xedit   +++|
02383  M01S02332.xedit   +++| CNG      SX0    E.SCR+160D  SET LWA+1 OF SCRATCH, ENTRY
02384  M01S02333.xedit   +++|          EQ     CNG1        PROCESS CHANGE
02385  M01S02334.xedit   +++|
02386  M01S02335.xedit   +++| CGS      SX0    E.SCR+160D  SET LWA+1 OF SCRATCH, ENTRY
02387  M01S02336.xedit   +++|          MX7    1
02388  M01S02337.xedit   +++|          BX0    X0+X7       SET STRING MODE
02389  M01S02338.xedit   +++| CNG1     SA0    E.SCR       SET FWA OF BUFFER
02390  M01S02339.xedit   +++|          RJ     CHS         CHANGE STRING(S)
02391  M01S02340.xedit   +++|          ZR     B5,CNG5     IF STRING NOT FOUND
02392  M01S02341.xedit   +++|          NZ     X5,CNG2     IF NO TRUNCATION
02393  M01S02342.xedit   +++|          SA1    P1RP        CHECK IF STRING LENGTHS ARE EQUAL
02394  M01S02343.xedit   +++|          SA4    P1LP
02395  M01S02344.xedit   +++|          IX6    X1-X4
02396  M01S02345.xedit   +++|          SA1    P3RP
02397  M01S02346.xedit   +++|          SA4    P3LP
02398  M01S02347.xedit   +++|          IX1    X1-X4
02399  M01S02348.xedit   +++|          IX6    X6-X1
02400  M01S02349.xedit   +++|          ZR     X6,CNG2     IF STRING LENGTHS ARE EQUAL
02401  M01S02350.xedit   +++|          RJ     ITM         ISSUE TRUNCATION MESSAGE
02402  M01S02351.xedit   +++| CNG2     SA1    E.SCR
02403  M01S02352.xedit   +++|          SB6    E.STR-1
02404  M01S02353.xedit   +++|          SX7    B1
02405  M01S02354.xedit   +++|
02406  M01S02355.xedit   +++|*         COPY LINE BACK FROM SCRATCH AREA.
02407  M01S02356.xedit   +++|
02408  M01S02357.xedit   +++| CNG3     BX6    X1
02409  M01S02358.xedit   +++|          SB6    B6+B1
02410  M01S02359.xedit   +++|          SA1    A1+B1
02411  M01S02360.xedit   +++|          SA6    B6
02412  M01S02361.xedit   +++|          PL     X6,CNG3     IF NOT END OF LINE
02413  M01S02362.xedit   +++|          SB6    E.STR-1
02414  M01S02363.xedit   +++|          RJ     TSL         TRIM SPACES OFF LINE
02415  M01S02364.xedit   +++|          SA7    NOMOD
02416  M01S02365.xedit   +++|          SA7    E.LMOD
02417  M01S02366.xedit   +++|          RJ     VRY         VERIFY THE CHANGE
02418  M01S02367.xedit   +++|          BX6    X0
02419  M01S02368.xedit   +++|          AX6    59-1        =0 IF REGULAR, =-1 IF STRING MODE
02420  M01S02369.xedit   +++|          SA1    NUMS
02421  M01S02370.xedit   +++|          IX6    X1-X6       IF STRING, INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
02422  M02S02371.xedit21 ---|          SB2    X6

Seq #  *Modification Id* Act 
----------------------------+
02423  M02S02372.xedit21 ---|          SX7    X6-1        DECREMENT COUNT (IF STRING, RESET)

Seq #  *Modification Id* Act 
----------------------------+
02424  M02S02373.xedit21 ---|          LE     B2,B1,NCM   IF FINISHED
02425  M01S00009.xedit21 +++|          SX1    B1
02426  M01S00010.xedit21 +++|          IX7    X6-X1
02427  M01S00011.xedit21 +++|          IX6    X7-X1
02428  M01S00012.xedit21 +++|          NG     X6,NCM      IF FINISHED
02429  M01S02374.xedit   +++|          SA7    A1+
02430  M01S02375.xedit   +++|
02431  M01S02376.xedit   +++|*         ADVANCE POINTER AND CONTINUE.
02432  M01S02377.xedit   +++|
02433  M01S02378.xedit   +++| CNG4     BX5    X0          SAVE (X0)
02434  M01S02379.xedit   +++|          RJ     WTF
02435  M01S02380.xedit   +++|          RJ     RDF
02436  M01S02381.xedit   +++|          BX0    X5          RESTORE (X0)
02437  M01S02382.xedit   +++|          EQ     CNG1        CONTINUE CHANGE
02438  M01S02383.xedit   +++|
02439  M01S02384.xedit   +++|*         PROCESS STRING NOT FOUND.
02440  M01S02385.xedit   +++|
02441  M01S02386.xedit   +++| CNG5     SA1    NUMS
02442  M01S02387.xedit   +++|          PL     X1,CNG4     IF NOT 0 OPTION
02443  M01S02388.xedit   +++|          EQ     LCT4        ISSUE * STRING NOT FOUND.*
02444  M01S02389.xedit   +++| DEL      SPACE  4,10
02445  M01S02390.xedit   +++|**        DEL - SET DELIMITER CHARACTER.
02446  M01S02391.xedit   +++|*
02447  M01S02392.xedit   +++|*         ENTRY  (NUMS) = NEW DELIMITER CHARACTER.
02448  M01S02393.xedit   +++|*
02449  M01S02394.xedit   +++|*         EXIT   TO *NCM*.
02450  M01S02395.xedit   +++|*
02451  M01S02396.xedit   +++|*         USES   A - 1, 2, 4, 6.
02452  M01S02397.xedit   +++|*                X - 1, 2, 3, 4, 6.
02453  M01S02398.xedit   +++|
02454  M01S02399.xedit   +++|
02455  M01S02400.xedit   +++| DEL      SA2    NUMS
02456  M01S02401.xedit   +++|          MX3    -18
02457  M01S02402.xedit   +++|          BX2    -X3*X2      REMOVE EXCESS CHARACTERS (IF -1)
02458  M01S02403.xedit   +++|          SA4    C.ON
02459  M01S02404.xedit   +++|          SX4    X4-Y.DEV
02460  M01S02405.xedit   +++|          ZR     X4,DEL1     IF NOT CURRENTLY *Y/Z* LINE
02461  M01S02406.xedit   +++|
02462  M01S02407.xedit   +++|*         NOTE- Y/Z DELIMIT COMMAND TAKES EFFECT
02463  M01S02408.xedit   +++|*         OUTSIDE OF *Y/Z* COMMAND STRING.
02464  M01S02409.xedit   +++|
02465  M01S02410.xedit   +++|          SA1    C.STR-1
02466  M01S02411.xedit   +++|          BX1    X3*X1
02467  M01S02412.xedit   +++|          IX6    X1+X2
02468  M01S02413.xedit   +++|          SA6    A1
02469  M01S02414.xedit   +++| DEL1     SA1    I.DEV+1
02470  M01S02415.xedit   +++|          BX1    X3*X1
02471  M01S02416.xedit   +++|          IX6    X1+X2
02472  M01S02417.xedit   +++|          SA6    A1
02473  M01S02418.xedit   +++|          SA1    S.DEV+1
02474  M01S02419.xedit   +++|          BX1    X3*X1
02475  M01S02420.xedit   +++|          IX6    X1+X2
02476  M01S02421.xedit   +++|          SA6    A1
02477  M01S02422.xedit   +++|          EQ     NCM         EXIT
02478  M01S02423.xedit   +++| DLT      SPACE  4,15
02479  M01S02424.xedit   +++|**        DLT - DELETE LINE(S).
02480  M01S02425.xedit   +++|*
02481  M01S02426.xedit   +++|*         ENTRY  (NUMS) = COUNT (-0 = NO ADVANCE).
02482  M01S02427.xedit   +++|*                STRING FIELDS PARSED AND INITIALIZED.
02483  M01S02428.xedit   +++|*
02484  M01S02429.xedit   +++|*         EXIT   TO *NCM*.
02485  M01S02430.xedit   +++|*
02486  M01S02431.xedit   +++|*         USES   A - 1, 6, 7.
02487  M01S02432.xedit   +++|*                X - 1, 5, 6, 7.
02488  M01S02433.xedit   +++|*                B - 4.
02489  M01S02434.xedit   +++|*
02490  M01S02435.xedit   +++|*         CALLS  LOC, RDF, VRY, WTF.
02491  M01S02436.xedit   +++|
02492  M01S02437.xedit   +++|
02493  M01S02438.xedit   +++| DLT1     SA1    NUMS
02494  M01S02439.xedit   +++|          NG     X1,LCT4     IF -0 OPTION. (STRING NOT FOUND)
02495  M01S02440.xedit   +++|          RJ     WTF
02496  M01S02441.xedit   +++| DLT2     RJ     RDF
02497  M01S02442.xedit   +++| DLT      SB4    E.STR-1     SET FWA SEARCH -1
02498  M01S02443.xedit   +++|          RJ     LOC
02499  M01S02444.xedit   +++|          ZR     B5,DLT1     IF STRING NOT IN LINE
02500  M01S02445.xedit   +++|          SA1    NUMS
02501  M01S02446.xedit   +++|          SX7    B1
02502  M01S02447.xedit   +++|          IX6    X1-X7       DECREMENT COUNT
02503  M01S02448.xedit   +++|          AX5    X1,B1
02504  M01S02449.xedit   +++|          SA6    A1
02505  M01S02450.xedit   +++|          SA7    NOMOD       SET MODIFICATIONS MADE TO FILE
02506  M01S02451.xedit   +++|          RJ     VRY         VERIFY DELETED LINE
02507  M01S02452.xedit   +++|          NZ     X5,DLT2     IF MORE TO DELETE
02508  M01S02453.xedit   +++|          RJ     RDF         CREAM EXISTING LINE
02509  M01S02454.xedit   +++|          EQ     NCM         EXIT
02510  M01S02455.xedit   +++| DRF      SPACE  4,10
02511  M01S02456.xedit   +++|**        DRF - DELETE RECORD/FILE MARKS.
02512  M01S02457.xedit   +++|*
02513  M01S02458.xedit   +++|*         ENTRY  (NUMS) = NUMBER TO DELETE.
02514  M01S02459.xedit   +++|*                (X1) = ADDRESS OF DELETION COUNT CELL.
02515  M01S02460.xedit   +++|*
02516  M01S02461.xedit   +++|*         USES   A - 0, 1, 2, 6.
02517  M01S02462.xedit   +++|*                X - 1, 2, 6.
02518  M01S02463.xedit   +++|*
02519  M01S02464.xedit   +++|*         CALLS  RDF, WTF.
02520  M01S02465.xedit   +++|
02521  M01S02466.xedit   +++|
02522  M01S02467.xedit   +++| DRF      SA2    NUMS
02523  M01S02468.xedit   +++|          AX1    18          GET CELL ADDRESS
02524  M01S02469.xedit   +++|          SA0    X1          SAVE CELL
02525  M01S02470.xedit   +++|          NZ     X2,DRF0     IF NOT ZERO
02526  M01S02471.xedit   +++|          SX2    1
02527  M01S02472.xedit   +++| DRF0     BX6    X2
02528  M01S02473.xedit   +++|          SA6    A0          SET DELETION COUNT
02529  M01S02474.xedit   +++| DRF1     RJ     WTF         WRITE CURRENT LINE
02530  M01S02475.xedit   +++|          RJ     RDF         READ NEXT
02531  M01S02476.xedit   +++|          SA1    A0
02532  M01S02477.xedit   +++|          NZ     X1,DRF1     IF NOT DELETED
02533  M01S02478.xedit   +++|          MX6    0
02534  M01S02479.xedit   +++|          SA6    NOMOD       SET MODIFICATIONS MADE
02535  M01S02480.xedit   +++|          EQ     NCM         EXIT

Seq #  *Modification Id* Act 
----------------------------+
02536  M02S02481.xedit12 ---| EDT      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
02537  M02S02482.xedit12 ---|**        EDT - PROCESS EDIT COMMAND.
02538  M01S00003.xedit12 +++| PEC      SPACE  4,15
02539  M01S00004.xedit12 +++|**        PEC - PROCESS EDIT COMMAND.
02540  M01S02483.xedit   +++|*
02541  M01S02484.xedit   +++|*         ENTRY  NONE.
02542  M01S02485.xedit   +++|*
02543  M01S02486.xedit   +++|*         EXIT   (INPMODE) = 1.
02544  M01S02487.xedit   +++|*                TO *NCM*.
02545  M01S02488.xedit   +++|*
02546  M01S02489.xedit   +++|*         USES   A - 6.
02547  M01S02490.xedit   +++|*                X - 6.
02548  M01S02491.xedit   +++|*
02549  M01S02492.xedit   +++|*         MACROS WRITEC.
02550  M01S02493.xedit   +++|
02551  M01S02494.xedit   +++|

Seq #  *Modification Id* Act 
----------------------------+
02552  M02S02495.xedit12 ---| EDT      SX6    B1
02553  M01S00005.xedit12 +++| PEC      SX6    B1
02554  M01S02496.xedit   +++|          SA6    INPMODE     CLEAR INPUT MODE FLAG
02555  M01S02497.xedit   +++|          WRITEC OUTPUT,(=C* EDIT*)
02556  M01S02498.xedit   +++|          EQ     NCM         EXIT
02557  M01S02499.xedit   +++| EFQ      SPACE  4,20
02558  M01S02500.xedit   +++|**        EFQ - END, FILE, AND QUIT PROCESSOR.
02559  M01S02501.xedit   +++|*
02560  M01S02502.xedit   +++|*         ENTRY  (IFN) = FILE NAME PARAMETER.
02561  M01S02503.xedit   +++|*                (NUMS) = OPTIONS.
02562  M01S02504.xedit   +++|*
02563  M01S02505.xedit   +++|*         EXIT   IF TO TERMINATE XEDIT, TO *EXT*.
02564  M01S02506.xedit   +++|*                IF ERRORS, TO *CER* OR *NCM*.
02565  M01S02507.xedit   +++|*
02566  M01S02508.xedit   +++|*         USES   A - ALL.
02567  M01S02509.xedit   +++|*                X - ALL.
02568  M01S02510.xedit   +++|*                B - 2, 6, 7.
02569  M01S02511.xedit   +++|*
02570  M01S02512.xedit   +++|*         CALLS  CFF, PFM=, RDF, TOP.
02571  M01S02513.xedit   +++|*
02572  M01S02514.xedit   +++|*         MACROS ERROR, FERROR, READ, RECALL, RENAME,
02573  M01S02515.xedit   +++|*                REWIND, STATUS.
02574  M01S02516.xedit   +++|
02575  M01S02517.xedit   +++|
02576  M01S02518.xedit   +++| EFQ      SA5    IFN         GET SPECIFIED NAME
02577  M01S02519.xedit   +++|          SX6    B1
02578  M01S02520.xedit   +++|          MX7    0
02579  M01S02521.xedit   +++|          NZ     X5,EFQ0     IF FILE NAME SPECIFIED
02580  M01S02522.xedit   +++|          SA5    ISFN        USE *EDITFIL*
02581  M01S02523.xedit   +++| EFQ0     SA7    SFET+5      CLEAR FNT/FST INFORMATION
02582  M01S02524.xedit   +++|          BX6    X6+X5
02583  M01S02525.xedit   +++|          SA7    A7+B1
02584  M01S02526.xedit   +++|          SA6    SFET
02585  M01S02527.xedit   +++|          RECALL E.IN        WAIT ALL QUIET
02586  M01S02528.xedit   +++|          STATUS SFET,P      OBTAIN INFORMATION
02587  M01S02529.xedit   +++|          SA4    SFET+5      GET FNT ENTRY
02588  M01S02530.xedit   +++|          SA1    SFET+1
02589  M01S00001.xedi13b +++|          MX7    -6          SAVE FILE STATUS
02590  M01S00002.xedi13b +++|          BX7    -X7*X4
02591  M01S00003.xedi13b +++|          SA7    EFQB
02592  M01S02531.xedit   +++|          MX6    -8          ISOLATE PFM ERROR CODE
02593  M01S02532.xedit   +++|          MX7    1
02594  M01S02533.xedit   +++|          SA3    NUMS        GET OPTIONS
02595  M01S02534.xedit   +++|          BX1    -X7*X1      CLEAR BIT 59
02596  M01S02535.xedit   +++|          LX4    -6          POSITION TO FILE TYPE
02597  M01S02536.xedit   +++|          BX6    -X6*X4      OBTAIN FILE TYPE
02598  M01S02537.xedit   +++|          AX1    -12         SHIFT DEVICE TYPE
02599  M01S02538.xedit   +++|          SX0    X6-PMFT     =0 IF D.A. FILE
02600  M01S02539.xedit   +++|          ZR     X0,EFQ1     IF DIRECT ACCESS FILE
02601  M01S00002.xedit13 +++|          SX0    X6-QFFT
02602  M01S00003.xedit13 +++|          ZR     X0,EFQ1     IF QUEUE FILE
02603  M01S02540.xedit   +++|          SX0    X1-2RMT
02604  M01S02541.xedit   +++|          ZR     X0,EFQ1     IF *MT* TYPE FILE
02605  M01S02542.xedit   +++|          SX0    X1-2RNT
02606  M01S02543.xedit   +++|

Seq #  *Modification Id* Act 
----------------------------+
02607  M02S02544.xedit13 ---|*         (X0) = 0, IF FILE IS D.A, MT OR NT (NEED COPYBACK).
02608  M01S00004.xedit13 +++|*         (X0) = 0, IF FILE IS D.A., QUEUE, MT OR NT (NEED COPYBACK).
02609  M01S02545.xedit   +++|*         (X5) = FILE NAME.
02610  M01S02546.xedit   +++|*         (X3) = OPTIONS.
02611  M01S02547.xedit   +++|*         (X4) = FNT ENTRY SHIFTED LEFT -6.
02612  M01S02548.xedit   +++|
02613  M01S02549.xedit   +++| EFQ1     NZ     X3,EFQ2     IF HAVE EXIT TYPE
02614  M01S02550.xedit   +++|          SX3    1BS0        SET DEFAULT OF LOCAL
02615  M01S02551.xedit   +++|          NZ     X0,EFQ2     IF NOT DEFAULT OF COPYBACK
02616  M01S02552.xedit   +++|          SX3    1BS3        SET DEFAULT OF COPYBACK
02617  M01S02553.xedit   +++|
02618  M01S02554.xedit   +++|*         CLEAR *L* FLAG IF *C* FLAG USED.
02619  M01S02555.xedit   +++|
02620  M01S02556.xedit   +++| EFQ2     BX6    X3
02621  M01S02557.xedit   +++|          SX7    B1
02622  M01S02558.xedit   +++|          LX6    0-3
02623  M01S02559.xedit   +++|          BX6    X7*X6       GET *C* FLAG
02624  M01S02560.xedit   +++|          BX3    -X6*X3      CONDITIONALLY CLEAR *L*
02625  M01S02561.xedit   +++|          LX1    X3
02626  M01S02562.xedit   +++|
02627  M01S02563.xedit   +++|*         CHECK MODIFICATIONS ALLOWED TO FILE.
02628  M01S02564.xedit   +++|
02629  M01S02565.xedit   +++|          SX7    50000B/100B
02630  M01S02566.xedit   +++|          SB2    EMI.*100B+1
02631  M01S02567.xedit   +++|          BX7    X7*X4
02632  M01S02568.xedit   +++|          NZ     X7,CER      IF NOT ALLOWED TO MODIFY FILE, EXIT
02633  M01S02569.xedit   +++| EFQ3     NZ     X0,EFQ4     IF NOT DA/MT/NT
02634  M01S02570.xedit   +++|
02635  M01S02571.xedit   +++|*         IF DA/MT/NT MAKE SURE *L* NOT USED.
02636  M01S02572.xedit   +++|
02637  M01S02573.xedit   +++|          SB2    EMI.*100B+2
02638  M01S02574.xedit   +++|          LX1    59-0
02639  M01S02575.xedit   +++|          NG     X1,CER      IF *L* USED, EXIT
02640  M01S02576.xedit   +++|
02641  M01S02577.xedit   +++|*         (X3) = EXIT BITS (LOCAL,REPLACE,SAVE,COPYBACK).
02642  M01S02578.xedit   +++|*         (X5) = FINAL FILE NAME.
02643  M01S02579.xedit   +++|
02644  M01S02580.xedit   +++| EFQ4     SA2    NOMOD       SET NOMOD TO NOMOD .OR. FS
02645  M01S02581.xedit   +++|          SA1    FS          IF NOT ON SCRATCH FILE, COPY TO ONE
02646  M01S02582.xedit   +++|          SA0    X3          MOVE EXIT BITS TO A0
02647  M01S02583.xedit   +++|          BX6    X1*X2       UPDATE NOMOD
02648  M01S02584.xedit   +++|          MX7    0
02649  M01S02585.xedit   +++|          SA6    A2
02650  M01S02586.xedit   +++|          SA7    IWHERE      SET =0 TO FORCE COPY IF AT LINE 1
02651  M01S02587.xedit   +++|          RJ     TOP         COPY FILE TO SCRATCH FILE
02652  M01S02588.xedit   +++|          SX0    A0          SET STATUS BITS TO X0
02653  M01S02589.xedit   +++|          SA4    EFQA-1
02654  M01S02590.xedit   +++| EFQ5     SA4    A4+B1       GET NEXT OPTION
02655  M01S02591.xedit   +++|          ZR     X4,EFQ10    IF END OF OPTIONS
02656  M01S02592.xedit   +++|          UX3,B7 X4
02657  M01S02593.xedit   +++|          SB6    X4
02658  M01S02594.xedit   +++|          LX1    B7,X0
02659  M01S02595.xedit   +++|          PL     X1,EFQ5     IF OPTION NOT SPECIFIED
02660  M01S02596.xedit   +++|          JP     B6          PROCESS OPTION
02661  M01S02597.xedit   +++|
02662  M01S02598.xedit   +++|*         PROCESS PFM OPTIONS.
02663  M01S02599.xedit   +++|
02664  M01S02600.xedit   +++| EFQ6     SA1    E.IN        GET LOCAL NAME

Seq #  *Modification Id* Act 
----------------------------+
02665  M02S02601.xedit9  ---|          BX6    X5
02666  M01S02602.xedit   +++|          LX3    18          GET PFM CODE
02667  M01S02603.xedit   +++|          SX7    B1
02668  M01S00001.xedit9  +++|          ERRNZ  PTRD-1
02669  M01S00002.xedit9  +++|          BX6    X5+X7
02670  M01S02604.xedit   +++|          BX7    X7+X1       SET COMPLETE
02671  M01S02605.xedit   +++|          SA7    PFET        SET LOCAL NAME
02672  M01S02606.xedit   +++|          SX7    X3
02673  M01S02607.xedit   +++|          SA6    PFET+8      SET PERMANENT NAME
02674  M01S02608.xedit   +++|          SA0    A6          SAVE FILE NAME ADDRESS
02675  M01S02609.xedit   +++|          SX2    A7          SET FET ADDRESS
02676  M01S02610.xedit   +++|          RJ     PFM=        MAKE REQUEST
02677  M01S02611.xedit   +++|          SA1    X2
02678  M01S02612.xedit   +++|          MX6    -8
02679  M01S02613.xedit   +++|          AX1    10
02680  M01S02614.xedit   +++|          BX6    -X6*X1      GET PFM ERROR
02681  M01S02615.xedit   +++|          ZR     X6,EFQ9     IF VERIFY ACTION
02682  M01S02616.xedit   +++|          ERROR  PFM.,X6     ISSUE PFM ERROR MESSAGE
02683  M01S02617.xedit   +++|          EQ     EFQ11       END OF COMMAND
02684  M01S02618.xedit   +++|
02685  M01S02619.xedit   +++|*         PROCESS LFM RENAME OPTION.
02686  M01S02620.xedit   +++|

Seq #  *Modification Id* Act 
----------------------------+
02687  M02S02621.xedi13b ---| EFQ7     SA0    E.IN+6
02688  M01S00004.xedi13b +++| EFQ7     SA1    EFQB
02689  M01S00005.xedi13b +++|          ZR     X1,EFQ7.1   IF *AUTO DROP* STATUS
02690  M01S00006.xedi13b +++|          SX1    X1-NDST
02691  M01S00007.xedi13b +++|          NZ     X1,EFQ8     IF STATUS OTHER THAN *NO AUTO DROP*
02692  M01S00008.xedi13b +++| EFQ7.1   SA0    E.IN+6
02693  M01S00001.xedi13a +++|          BX6    X5
02694  M01S00002.xedi13a +++|          SA6    A0          SET NEW NAME INTO FET

Seq #  *Modification Id* Act 
----------------------------+
02695  M02S02622.xedit13 ---|          SA1    SFET+6      OBTAIN FST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
02696  M02S00005.xedi13b ---|          SA1    SFET+5      OBTAIN FNT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
02697  M02S00006.xedi13b ---|          MX4    -6

Seq #  *Modification Id* Act 
----------------------------+
02698  M02S00007.xedi13b ---|          BX4    -X4*X1      GET FILE STATUS FIELD

Seq #  *Modification Id* Act 
----------------------------+
02699  M03S00008.xedi13b ---|          SX1    X4-NDST     = 0, IF FILE STATUS IS *NO AUTO DROP*

Seq #  *Modification Id* Act 
----------------------------+
02700  M03S00009.xedi13b ---|          IX1    X1*X4       = 0, ONLY IF *AUTO DROP* OR *NO AUTO DROP*

Seq #  *Modification Id* Act 
----------------------------+
02701  M02S00003.xedi13b ---|          ZR     X4,EFQ7.1   IF *AUTO DROP* STATUS

Seq #  *Modification Id* Act 
----------------------------+
02702  M02S00004.xedi13b ---|          SX1    X4-NDST

Seq #  *Modification Id* Act 
----------------------------+
02703  M02S00005.xedi13b ---|          NZ     X1,EFQ8     IF NOT *NO AUTO DROP* STATUS

Seq #  *Modification Id* Act 
----------------------------+
02704  M02S00006.xedi13b ---|          SETFS  SFET,NAD    RESTORE *NO AUTO DROP* STATUS
02705  M01S00009.xedi13b +++|          RENAME E.IN        RENAME SCRATCH FILE
02706  M01S00010.xedi13b +++|          SA1    X2
02707  M01S00011.xedi13b +++|          SX7    17BS10
02708  M01S00012.xedi13b +++|          BX7    X7*X1
02709  M01S00013.xedi13b +++|          SA7    FS          INDICATE NOT READING SCRATCH FILE
02710  M01S00014.xedi13b +++|          NZ     X7,EFQ7.2   IF ERROR IN *RENAME*
02711  M01S00015.xedi13b +++|          SA1    EFQB        GET FILE STATUS
02712  M01S00016.xedi13b +++|          ZR     X1,EFQ9     IF *AUTO DROP* STATUS
02713  M01S00017.xedi13b +++|          SETFS  E.IN,NAD    RESTORE *NO AUTO DROP* STATUS
02714  M01S00007.xedi13a +++|          SA1    X2          CHECK FOR ERRORS
02715  M01S00008.xedi13a +++|          SX4    17BS10
02716  M01S00009.xedi13a +++|          BX7    X4*X1

Seq #  *Modification Id* Act 
----------------------------+
02717  M02S00010.xedi13b ---|          NZ     X7,EFQ7.2   IF ERROR IN *SETFS*

Seq #  *Modification Id* Act 
----------------------------+
02718  M03S02623.xedi13b ---|          BX6    X5

Seq #  *Modification Id* Act 
----------------------------+
02719  M04S02624.xedi13b ---|          MX7    6

Seq #  *Modification Id* Act 
----------------------------+
02720  M04S02625.xedi13b ---|          BX1    X7*X1       GET FILE *ID* FIELD

Seq #  *Modification Id* Act 
----------------------------+
02721  M03S02626.xedi13b ---|          SA6    A0          SET NEW NAME INTO FET

Seq #  *Modification Id* Act 
----------------------------+
02722  M04S02627.xedi13b ---|          NZ     X1,EFQ8     IF ID .NE. 0, COPY TO MAINTAIN *ID*

Seq #  *Modification Id* Act 
----------------------------+
02723  M03S00010.xedi13b ---|          NZ     X1,EFQ8     IF NEITHER *AUTO DROP* NOR *NO AUTO DROP*

Seq #  *Modification Id* Act 
----------------------------+
02724  M03S02628.xedi13b ---|          RENAME E.IN

Seq #  *Modification Id* Act 
----------------------------+
02725  M02S00011.xedi13b ---| EFQ7.1   RENAME E.IN        RENAME SCRATCH FILE

Seq #  *Modification Id* Act 
----------------------------+
02726  M02S02629.xedi13b ---|          SA1    X2

Seq #  *Modification Id* Act 
----------------------------+
02727  M02S02630.xedi13b ---|          SX7    17BS10

Seq #  *Modification Id* Act 
----------------------------+
02728  M02S02631.xedi13b ---|          BX7    X7*X1

Seq #  *Modification Id* Act 
----------------------------+
02729  M02S02632.xedi13b ---|          SA7    FS          INDICATE NOT READING SCRATCH FILE

Seq #  *Modification Id* Act 
----------------------------+
02730  M03S02633.xedi13b ---|          ZR     X7,EFQ9     IF NO ERROR

Seq #  *Modification Id* Act 
----------------------------+
02731  M03S02634.xedi13b ---|          ERROR  LFM.

Seq #  *Modification Id* Act 
----------------------------+
02732  M03S00011.xedi13b ---|          NZ     X7,EFQ7.1   IF ERROR DURING *RENAME*

Seq #  *Modification Id* Act 
----------------------------+
02733  M03S00012.xedi13b ---|          ZR     X4,EFQ9     IF FILE STATUS IS *AUTO DROP*

Seq #  *Modification Id* Act 
----------------------------+
02734  M03S00013.xedi13b ---|          SETFS  SFET,NAD

Seq #  *Modification Id* Act 
----------------------------+
02735  M03S00014.xedi13b ---|          SA1    X2

Seq #  *Modification Id* Act 
----------------------------+
02736  M03S00015.xedi13b ---|          SX4    17BS10

Seq #  *Modification Id* Act 
----------------------------+
02737  M03S00016.xedi13b ---|          BX7    X4*X1

Seq #  *Modification Id* Act 
----------------------------+
02738  M03S00017.xedi13b ---|          ZR     X7,EFQ9     IF NO ERROR DURING *SETFS*

Seq #  *Modification Id* Act 
----------------------------+
02739  M03S00018.xedi13b ---| EFQ7.1   ERROR  LFM.

Seq #  *Modification Id* Act 
----------------------------+
02740  M02S00012.xedi13b ---|          ZR     X7,EFQ9     IF NO ERRORS IN *RENAME*
02741  M01S00018.xedi13b +++|          ZR     X7,EFQ9     IF NO ERRORS IN *SETFS*
02742  M01S00013.xedi13a +++| EFQ7.2   ERROR  LFM.
02743  M01S02635.xedit   +++|          EQ     EFQ11       END OF COMMAND
02744  M01S02636.xedit   +++|
02745  M01S02637.xedit   +++| EFQ8     READ   E.IN        START READ (ASSUMES NAME IN FET)
02746  M01S02638.xedit   +++|          SX6    B1
02747  M01S02639.xedit   +++|          BX6    X5+X6       SET COMPLETE
02748  M01S02640.xedit   +++|          SA6    CFET
02749  M01S02641.xedit   +++|          REWIND A6,RECALL   RESET COPY FILE
02750  M01S02642.xedit   +++|          MX6    0
02751  M01S02643.xedit   +++|          SA6    CFET+5      CLEAR JUNK LEFT VIA STATUS
02752  M01S02644.xedit   +++|          SA6    A6+B1
02753  M01S02645.xedit   +++|          RJ     CFF         COPY FILE
02754  M01S02646.xedit   +++|          REWIND E.IN        RESET EDIT FILE
02755  M01S02647.xedit   +++|          REWIND CFET,RECALL REWIND COPY FILE
02756  M01S02648.xedit   +++|          RECALL E.IN
02757  M01S02649.xedit   +++|          SA0    CFET        SET FILE NAME POINTER
02758  M01S02650.xedit   +++|
02759  M01S02651.xedit   +++|*         VERIFY ACTION.
02760  M01S02652.xedit   +++|
02761  M01S02653.xedit   +++| EFQ9     SA1    VERIFY
02762  M01S00019.xedit13 +++|          SA4    A4          RESTORE THE *EFQ* OPTION WORD
02763  M01S00020.xedit13 +++|          SX2    A0          SET FET ADDRESS
02764  M01S02654.xedit   +++|          PL     X1,EFQ5     IF NOT TO VERIFY

Seq #  *Modification Id* Act 
----------------------------+
02765  M02S02655.xedit13 ---|          SX2    A0          SET FET ADDRESS
02766  M01S02656.xedit   +++|          AX4    18
02767  M01S02657.xedit   +++|          SA0    A4          SAVE VALUE OF A4
02768  M01S02658.xedit   +++|          FERROR X2,X4
02769  M01S02659.xedit   +++|          SA4    A0          RESET A4
02770  M01S02660.xedit   +++|          EQ     EFQ5        GET NEXT OPTION
02771  M01S02661.xedit   +++|
02772  M01S02662.xedit   +++|*         PROCESS END OF COMMAND.
02773  M01S02663.xedit   +++|
02774  M01S02664.xedit   +++| EFQ10    SA1    INDEX
02775  M01S02665.xedit   +++|          SX1    X1-.FILE
02776  M01S02666.xedit   +++|          NZ     X1,EXT      IF EXIT XEDIT
02777  M01S02667.xedit   +++| EFQ11    READ   E.IN,RECALL
02778  M01S02668.xedit   +++|          RJ     RDF
02779  M01S02669.xedit   +++|          EQ     NCM         PROCESS END OF COMMAND
02780  M01S02670.xedit   +++|
02781  M01S02671.xedit   +++|*         TABLE OF *EFQ* OPTIONS.
02782  M01S02672.xedit   +++|*         FORMAT IS-
02783  M01S02673.xedit   +++|*         12/2000B+59-BIT NUMBER,6/PFM CODE,24/VERIFY ADDR,18/ROUTINE
02784  M01S02674.xedit   +++|
02785  M01S02675.xedit   +++| EFQA     VFD    12/2000B+59-2,6/1,24/FSV.,18/EFQ6    SAVE
02786  M01S02676.xedit   +++|          VFD    12/2000B+59-1,6/6,24/FRP.,18/EFQ6    REPLACE
02787  M01S02677.xedit   +++|          VFD    12/2000B+59-0,6/0,24/FLC.,18/EFQ7    LOCAL
02788  M01S02678.xedit   +++|          VFD    12/2000B+59-3,6/0,24/FCP.,18/EFQ8    COPYBACK
02789  M01S02679.xedit   +++|          DATA   0
02790  M01S00019.xedi13b +++| EFQB     BSS    1           STORAGE FOR EDIT FILE STATUS
02791  M01S02680.xedit   +++| FLL      SPACE  4,15
02792  M01S02681.xedit   +++|**        FLL - FIND LONG LINE PROCESSOR.
02793  M01S02682.xedit   +++|*
02794  M01S02683.xedit   +++|*         ENTRY  (NUMS) = NUMBER OF LONG LINES TO FIND.
02795  M01S02684.xedit   +++|*                (IW) = WIDTH. IGNORE LINES OF LENGTH .LE. WIDTH.
02796  M01S02685.xedit   +++|*
02797  M01S02686.xedit   +++|*         EXIT   TO *NCM*.
02798  M01S02687.xedit   +++|*
02799  M01S02688.xedit   +++|*         USES   A - 1, 2, 6.
02800  M01S02689.xedit   +++|*                X - 1, 2, 6.
02801  M01S02690.xedit   +++|*
02802  M01S02691.xedit   +++|*         CALLS  SAC, VFY.
02803  M01S02692.xedit   +++|
02804  M01S02693.xedit   +++|
02805  M01S02694.xedit   +++| FLL      RJ     SAC         SET ASCII PROCESSING
02806  M01S02695.xedit   +++| FLL1     SA1    E.STR-1     GET CHARS IN CURRENT LINE
02807  M01S02696.xedit   +++|          SA2    IW
02808  M01S02697.xedit   +++|          IX1    X2-X1
02809  M01S02698.xedit   +++|          PL     X1,FLL2     IF LINE TOO SHORT
02810  M01S02699.xedit   +++|          RJ     VRY         VERIFY LONG LINE
02811  M01S02700.xedit   +++|          SA1    NUMS

Seq #  *Modification Id* Act 
----------------------------+
02812  M02S02701.xedit21 ---|          SX6    X1-1
02813  M01S00013.xedit21 +++|          SX6    B1
02814  M01S00014.xedit21 +++|          IX6    X1-X6
02815  M01S02702.xedit   +++|          AX1    1
02816  M01S02703.xedit   +++|          ZR     X1,NCM      IF COUNT FINISHED, EXIT
02817  M01S02704.xedit   +++|          SA6    A1
02818  M01S02705.xedit   +++| FLL2     RJ     WTF         ADVANCE TO NEXT LINE
02819  M01S02706.xedit   +++|          RJ     RDF
02820  M01S02707.xedit   +++|          EQ     FLL1        CHECK NEXT LINE
02821  M01S02708.xedit   +++| FLN      SPACE  4,15
02822  M01S02709.xedit   +++|**        FLN - ADVANCE TO SPECIFIED LINE NUMBER.
02823  M01S02710.xedit   +++|*
02824  M01S02711.xedit   +++|*         ENTRY  (NUMS) = LINE NUMBER.
02825  M01S02712.xedit   +++|*
02826  M01S02713.xedit   +++|*         EXIT   TO *VRT*.
02827  M01S02714.xedit   +++|*
02828  M01S02715.xedit   +++|*         USES   A - 1.

Seq #  *Modification Id* Act 
----------------------------+
02829  M02S02716.xedit21 ---|*                X - 1.

Seq #  *Modification Id* Act 
----------------------------+
02830  M02S02717.xedit21 ---|*                B - 2.
02831  M01S00015.xedit21 +++|*                X - 1, 6.
02832  M01S02718.xedit   +++|*
02833  M01S02719.xedit   +++|*         CALLS  GLN.
02834  M01S02720.xedit   +++|
02835  M01S02721.xedit   +++|
02836  M01S02722.xedit   +++| FLN      SA1    NUMS

Seq #  *Modification Id* Act 
----------------------------+
02837  M02S02723.xedit21 ---|          SB2    X1

Seq #  *Modification Id* Act 
----------------------------+
02838  M02S02724.xedit21 ---|          GE     B2,B1,FLN1  IF LINE NUMBER SPECIFIED
02839  M01S00016.xedit21 +++|          SX6    B1
02840  M01S00017.xedit21 +++|          IX6    X1-X6
02841  M01S00018.xedit21 +++|          PL     X6,FLN1     IF LINE NUMBER SPECIFIED
02842  M01S02725.xedit   +++|          SX1    B1+
02843  M01S02726.xedit   +++| FLN1     RJ     GLN         GET LINE NUMBER
02844  M01S02727.xedit   +++|          EQ     VRT         EXIT, VERIFY LINE
02845  M01S02728.xedit   +++| IIB      SPACE  4,15
02846  M01S02729.xedit   +++|**        IIB - *INSERT* AND *INSERT BEFORE* PROCESSOR.
02847  M01S02730.xedit   +++|*
02848  M01S02731.xedit   +++|*         ENTRY  (NUMS) = NUMBER OF LINES TO INSERT.
02849  M01S02732.xedit   +++|*                (X1)   = PROCESSOR ADDRESS.
02850  M01S02733.xedit   +++|*
02851  M01S02734.xedit   +++|*         EXIT   TO *NCM*.
02852  M01S02735.xedit   +++|*
02853  M01S02736.xedit   +++|*         USES   X - 1, 2, 6, 7.
02854  M01S02737.xedit   +++|*                A - 0, 1, 2, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
02855  M02S02738.xedit21 ---|*                B - 2, 7.
02856  M01S00019.xedit21 +++|*                B - 7.
02857  M01S02739.xedit   +++|*
02858  M01S02740.xedit   +++|*         CALLS  RDL, TCD, TLB, WTF.
02859  M01S02741.xedit   +++|*
02860  M01S02742.xedit   +++|*         MACROS WRITEC.
02861  M01S02743.xedit   +++|*
02862  M01S02744.xedit   +++|*         NOTES  A NULL LINE WILL OVERRIDE THE LINE COUNT.
02863  M01S02745.xedit   +++|
02864  M01S02746.xedit   +++|
02865  M01S02747.xedit   +++| IIB      BSS    0           ENTRY
02866  M01S02748.xedit   +++|          AX1    18          GET ROUTINE JUMP ADDRESS
02867  M01S02749.xedit   +++|          SA2    NUMS
02868  M01S02750.xedit   +++|          SA0    X1          SET JUMP ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
02869  M02S02751.xedit2  ---|          SX6    X2-1        DECREMENT COUNT FOR EASIER TESTING
02870  M01S00001.xedit2  +++|          SX6    B1
02871  M01S00002.xedit2  +++|          IX6    X2-X6

Seq #  *Modification Id* Act 
----------------------------+
02872  M02S02752.xedit21 ---|          SB2    X2

Seq #  *Modification Id* Act 
----------------------------+
02873  M02S02753.xedit21 ---|          SA6    A2
02874  M01S00020.xedit21 +++|          SA6    A2+
02875  M01S02754.xedit   +++| IIB1     RJ     RDL         GET DATA LINE
02876  M01S02755.xedit   +++|          NZ     X1,NCM      IF A NULL LINE ENCOUNTERED
02877  M01S02756.xedit   +++|          RJ     TCD         TAB CODED DATA LINE
02878  M01S02757.xedit   +++| IIB2     SB7    A0
02879  M01S02758.xedit   +++|          JP     B7          EXECUTE PROCESSOR
02880  M01S02759.xedit   +++|
02881  M01S02760.xedit   +++|*         *INSERT BEFORE* PROCESSOR.
02882  M01S02761.xedit   +++|
02883  M01S02762.xedit   +++| IIB3     WRITEC E.OUT,D.LINE  PUT LINE JUST RECEIVED
02884  M01S02763.xedit   +++|          SA1    IWHERE      UPDATE *IWHERE*

Seq #  *Modification Id* Act 
----------------------------+
02885  M02S02764.xedit2  ---|          SX6    X1+1
02886  M01S00003.xedit2  +++|          SX6    B1
02887  M01S00004.xedit2  +++|          IX6    X1+X6
02888  M01S02765.xedit   +++|          SA6    A1+
02889  M01S02766.xedit   +++|          EQ     IIB5        PROCESS NEXT LINE
02890  M01S02767.xedit   +++|
02891  M01S02768.xedit   +++|*         *INSERT* PROCESSOR.
02892  M01S02769.xedit   +++|
02893  M01S02770.xedit   +++| IIB4     RJ     WTF         WRITE EXISTING LINE
02894  M01S02771.xedit   +++|
02895  M01S02772.xedit   +++|*         MOVE NEW LINE TO *E.LINE*.
02896  M01S02773.xedit   +++|
02897  M01S02774.xedit   +++|          RJ     TLB         TRANSFER LINE TO BUFFER
02898  M01S02775.xedit   +++| IIB5     SA1    NUMS

Seq #  *Modification Id* Act 
----------------------------+
02899  M02S02776.xedit21 ---|          SX6    X1-1
02900  M01S00021.xedit21 +++|          SX6    B1
02901  M01S00022.xedit21 +++|          IX6    X1-X6
02902  M01S02777.xedit   +++|          BX7    X7-X7
02903  M01S02778.xedit   +++|          SA6    A1          DECREMENT LINES LEFT
02904  M01S02779.xedit   +++|          SA7    NOMOD       SET MODIFICATIONS MADE
02905  M01S02780.xedit   +++|          PL     X6,IIB1     IF MORE LINES
02906  M01S02781.xedit   +++|          EQ     NCM         EXIT
02907  M01S02782.xedit   +++| INP      SPACE  4,15
02908  M01S02783.xedit   +++|**        INP - ENTRY INPUT MODE REQUEST.
02909  M01S02784.xedit   +++|*
02910  M01S02785.xedit   +++|*         ENTRY  (NUMS) = ESCAPE CHARACTER.
02911  M01S02786.xedit   +++|*
02912  M01S02787.xedit   +++|*         EXIT   IF ERROR, TO *ABT* OR *CER*.

Seq #  *Modification Id* Act 
----------------------------+
02913  M02S02788.xedit12 ---|*                ELSE, TO *EDT*.
02914  M01S00006.xedit12 +++|*                ELSE, TO *PEC*.
02915  M01S02789.xedit   +++|*
02916  M01S02790.xedit   +++|*         USES   A - 1, 2, 6, 7.
02917  M01S02791.xedit   +++|*                X - 1, 2, 6, 7.
02918  M01S02792.xedit   +++|*                B - 6, 7.
02919  M01S02793.xedit   +++|*
02920  M01S02794.xedit   +++|*         CALLS  RDL, RTA, STK, TAB, UPL, WTF.
02921  M01S02795.xedit   +++|*
02922  M01S02796.xedit   +++|*         MACROS WRITEC.
02923  M01S02797.xedit   +++|
02924  M01S02798.xedit   +++|
02925  M01S02799.xedit   +++| INP      SA1    NUMS        MOVE INPUT ESCAPE CHARACTER
02926  M01S02800.xedit   +++|          SA2    BATCH
02927  M01S02801.xedit   +++|          BX6    X1
02928  M01S02802.xedit   +++|          SB6    =C+ *INPUT* ESCAPE CHAR. REQUIRED - BATCH MODE.+
02929  M01S02803.xedit   +++|          PL     X1,INP0     IF CHARACTER SPECIFIED
02930  M01S02804.xedit   +++|          NZ     X2,ABT      IF BATCH MODE, EXIT
02931  M01S02805.xedit   +++| INP0     SA6    INPCHAR     SET ESCAPE CHARACTER
02932  M01S02806.xedit   +++|
02933  M01S02807.xedit   +++| INP1     MX7    59          SET INPUT MODE
02934  M01S02808.xedit   +++|          SA7    INPMODE
02935  M01S02809.xedit   +++|          WRITEC OUTPUT,(=C* INPUT*)
02936  M01S02810.xedit   +++| INP2     SA1    PREFIX
02937  M01S02811.xedit   +++|          SX6    1BS"PLUS"
02938  M01S02812.xedit   +++| .CYB     IF     DEF,CYBRNET
02939  M01S02813.xedit   +++|          BX6    -X6*X1      CLEAR PLUS PREFIX
02940  M01S02814.xedit   +++| .CYB     ELSE
02941  M01S02815.xedit   +++|          BX6    X6+X1       SET + PREFIX
02942  M01S02816.xedit   +++| .CYB     ENDIF
02943  M01S02817.xedit   +++|          SA6    A1
02944  M01S02818.xedit   +++|          RJ     RDL         READ DATA LINE

Seq #  *Modification Id* Act 
----------------------------+
02945  M02S02819.xedit12 ---|          NZ     X1,EDT      IF <CR> (RETURN TO EDIT MODE)
02946  M01S00007.xedit12 +++|          NZ     X1,PEC      IF <CR> (RETURN TO EDIT MODE)
02947  M01S02820.xedit   +++|          SA1    D.LINE
02948  M01S02821.xedit   +++|          SB6    D.STR
02949  M01S02822.xedit   +++|          RJ     UPL         UNPACK TEXT LINE
02950  M01S02823.xedit   +++|          SA1    D.STR
02951  M01S02824.xedit   +++|          SA2    INPCHAR
02952  M01S02825.xedit   +++|          IX2    X2-X1
02953  M01S02826.xedit   +++|          SB6    A1-B1
02954  M01S02827.xedit   +++|          ZR     X2,INP3     IF INPUT MODE ESCAPE CHAR
02955  M01S02828.xedit   +++|          MX6    0
02956  M01S02829.xedit   +++|          SA6    NOMOD       SET MODIFICATIONS MADE
02957  M01S02830.xedit   +++|          RJ     TAB         TAB TEXT LINE
02958  M01S02831.xedit   +++|          RJ     WTF
02959  M01S02832.xedit   +++|          SB7    E.LINE      SET DESTINATION
02960  M01S02833.xedit   +++|          SB6    D.STR
02961  M01S02834.xedit   +++|          RJ     RTA         PACK LINE INTO EDIT LINE BUFFER
02962  M01S02835.xedit   +++|          EQ     INP2        PROCESS NEXT LINE
02963  M01S02836.xedit   +++|
02964  M01S02837.xedit   +++| INP3     SB7    S.LINE      PACK COMMAND LINE INTO SPECIAL BUFFER
02965  M01S02838.xedit   +++|          SB6    D.STR+1     AND SKIP ESCAPE CHARACTER
02966  M01S02839.xedit   +++|          RJ     RTA
02967  M01S02840.xedit   +++|          SA1    S.DEV
02968  M01S02841.xedit   +++|          RJ     STK         PROCESS ESCAPED COMMANDS
02969  M01S02842.xedit   +++|          SB2    STK.
02970  M01S02843.xedit   +++|          EQ     CER         COMMAND STACKING ERROR, EXIT
02971  M01S02844.xedit   +++| LCT      SPACE  4,20
02972  M01S02845.xedit   +++|**        LCT - LOCATE SPECIFIED STRING.
02973  M01S02846.xedit   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02974  M02S02847.xedit21 ---|*         ENTRY  (NUMS) = NUMBER OF MATCHES TO FIND.
02975  M01S00023.xedit21 +++|*         ENTRY  (X5) .NE. 0.
02976  M01S00024.xedit21 +++|*                (NUMS) = NUMBER OF MATCHES TO FIND.
02977  M01S02848.xedit   +++|*                         IF -0, THEN DO NOT ADVANCE POINTER.
02978  M01S02849.xedit   +++|*                (MCOUNT) = 0.
02979  M01S02850.xedit   +++|*                STRING POINTERS ARE INITIALIZED PROPERLY.
02980  M01S02851.xedit   +++|*
02981  M01S02852.xedit   +++|*         EXIT   TO *NCM*.
02982  M01S02853.xedit   +++|*
02983  M01S02854.xedit   +++|*         USES   A - 1, 2, 3, 6, 7.
02984  M01S02855.xedit   +++|*                X - 1, 2, 3, 5, 6, 7.
02985  M01S02856.xedit   +++|*                B - 4.
02986  M01S02857.xedit   +++|*
02987  M01S02858.xedit   +++|*         CALLS  LOC, RDF, VRY, WTF.
02988  M01S02859.xedit   +++|*
02989  M01S02860.xedit   +++|*         MACROS ERROR.
02990  M01S02861.xedit   +++|
02991  M01S02862.xedit   +++|

Seq #  *Modification Id* Act 
----------------------------+
02992  M02S02863.xedit21 ---|LCTA      SX5    0           SET NOT TO CALL LOC

Seq #  *Modification Id* Act 
----------------------------+
02993  M02S02864.xedit21 ---| LCT      SA1    NUMS
02994  M01S00025.xedit21 +++|          IF     DEF,TIMES
02995  M01S00026.xedit21 +++| LCTA     BSS    0           TIMING ENTRY
02996  M01S00027.xedit21 +++|          SX5    0           SET NOT TO CALL LOC
02997  M01S00028.xedit21 +++|          ENDIF
02998  M01S00029.xedit21 +++|
02999  M01S00030.xedit21 +++| LCT      BSS    0           NORMAL ENTRY
03000  M01S00031.xedit21 +++|          SA1    NUMS
03001  M01S02865.xedit   +++|          NZ     X1,LCT1     IF COUNT IS .NE. 0
03002  M01S02866.xedit   +++|          NG     X1,LCT1     IF *0* COUNT WAS SPECIFIED
03003  M01S02867.xedit   +++|          SX6    B1          RESET COUNT TO 1
03004  M01S02868.xedit   +++|          SA6    A1
03005  M01S02869.xedit   +++| LCT1     SB4    E.STR-1     SET FWA-1 FOR SEARCH
03006  M01S00032.xedit21 +++|
03007  M01S00033.xedit21 +++|          IF     DEF,TIMES,1
03008  M01S02870.xedit   +++|          ZR     X5,LCT1.1   IF IN DEBUGGING MODE
03009  M01S00034.xedit21 +++|
03010  M01S02871.xedit   +++|          RJ     LOC         SEARCH EXISTING LINE FOR STRING

Seq #  *Modification Id* Act 
----------------------------+
03011  M02S02872.xedit21 ---| LCT1.1   ZR     B5,LCT3     IF STRING NOT FOUND
03012  M01S00035.xedit21 +++|
03013  M01S00036.xedit21 +++|          IF     DEF,TIMES,1
03014  M01S00037.xedit21 +++| LCT1.1   BSS    0
03015  M01S00038.xedit21 +++|
03016  M01S00039.xedit21 +++|          ZR     B5,LCT3     IF STRING NOT FOUND
03017  M01S02873.xedit   +++|          RJ     VRY
03018  M01S02874.xedit   +++|          SA2    MCOUNT
03019  M01S02875.xedit   +++|          SA1    NUMS

Seq #  *Modification Id* Act 
----------------------------+
03020  M02S02876.xedit21 ---|          SX7    X2+B1       INCREMENT NUMBER OF MATCHES

Seq #  *Modification Id* Act 
----------------------------+
03021  M02S02877.xedit21 ---|          SX6    X1-1        DECREMENT NUMBER OF LINES
03022  M01S00040.xedit21 +++|          SX6    B1
03023  M01S00041.xedit21 +++|          IX7    X2+X6       INCREMENT NUMBER OF MATCHES
03024  M01S00042.xedit21 +++|          IX6    X1-X6       DECREMENT NUMBER OF LINES
03025  M01S02878.xedit   +++|          SA7    A2
03026  M01S02879.xedit   +++|          AX1    1
03027  M01S02880.xedit   +++|          ZR     X1,NCM      IF FINISHED, EXIT
03028  M01S02881.xedit   +++|          SA6    A1
03029  M01S02882.xedit   +++| LCT2     RJ     WTF         ADVANCE TO NEXT LINE
03030  M01S02883.xedit   +++|          RJ     RDF
03031  M01S02884.xedit   +++|          EQ     LCT1        SEARCH NEXT LINE
03032  M01S02885.xedit   +++|
03033  M01S02886.xedit   +++|*         STRING NOT IN LINE. CHECK FOR *0* OPTION.
03034  M01S02887.xedit   +++|
03035  M01S02888.xedit   +++| LCT3     SA1    NUMS
03036  M01S02889.xedit   +++|          NZ     X1,LCT2     IF NOT *0* OPTION
03037  M01S02890.xedit   +++| LCT4     ERROR  SNF.        ENTRY FOR * STRING NOT FOUND.*
03038  M01S02891.xedit   +++|          SA3    C.STR-1     SET TO *READ* FOR NEXT CMD
03039  M01S02892.xedit   +++|          PX6    B0,X3
03040  M01S02893.xedit   +++|          SA6    A3
03041  M01S02894.xedit   +++|          EQ     NCM         EXIT
03042  M01S02895.xedit   +++| MOD      SPACE  4,10
03043  M01S02896.xedit   +++|**        MOD - MODIFY LINE(S).
03044  M01S02897.xedit   +++|*
03045  M01S02898.xedit   +++|*         ENTRY  AT *MOD* FOR *MODIFY* COMMAND.
03046  M01S02899.xedit   +++|*                AT *MOD1* FOR *QMOD* COMMAND.
03047  M01S02900.xedit   +++|*                AT *MOD2* FOR *YQMOD* COMMAND.
03048  M01S02901.xedit   +++|*
03049  M01S02902.xedit   +++|*         USES   A - 1, 3, 6, 7.
03050  M01S02903.xedit   +++|*                X - 1, 3, 6, 7.
03051  M01S02904.xedit   +++|*
03052  M01S02905.xedit   +++|*         CALLS  ETL, ITM, MDY, PCN, RDF, RDL, SAC, SCD, VRY, WTF.
03053  M01S02906.xedit   +++|
03054  M01S02907.xedit   +++|
03055  M01S02908.xedit   +++|*         ENTRY TO PROCESS *MODIFY* COMMAND.
03056  M01S02909.xedit   +++|
03057  M01S02910.xedit   +++| MOD      RJ     SCD         SET CODED FOR SHIFT
03058  M01S02911.xedit   +++|          SX6    1
03059  M01S02912.xedit   +++|          SA1    E.LINE
03060  M01S02913.xedit   +++|          SA6    NUMS        FORCE COUNT TO 1
03061  M01S02914.xedit   +++|          SA3    MODA        SET SHIFT WORD
03062  M01S02915.xedit   +++|          RJ     ETL         ECHO TEXT LINE
03063  M01S02916.xedit   +++|          EQ     MOD2        PERFORM MODIFICATION
03064  M01S02917.xedit   +++|
03065  M01S02918.xedit   +++|*         ENTRY FOR *QMOD* COMMAND.
03066  M01S02919.xedit   +++|
03067  M01S02920.xedit   +++| MOD1     RJ     PCN         PRINT COLUMN NUMBERS
03068  M01S02921.xedit   +++|
03069  M01S02922.xedit   +++|*         ENTRY FOR *YQMOD* COMMAND.
03070  M01S02923.xedit   +++|
03071  M01S02924.xedit   +++| MOD2     RJ     SAC         SET ASCII PROCESSING
03072  M01S02925.xedit   +++|          RJ     RDL         READ DATA LINE
03073  M01S02926.xedit   +++|          NZ     X1,NCM      IF NOTHING THERE, EXIT
03074  M01S02927.xedit   +++| MOD3     RJ     MDY         MODIFY LINE
03075  M01S02928.xedit   +++|          PL     B3,MOD4     IF NO TRUNCATION
03076  M01S02929.xedit   +++|          RJ     ITM
03077  M01S02930.xedit   +++| MOD4     SX7    1
03078  M01S02931.xedit   +++|          SA7    NOMOD       SET MODIFICATIONS MADE
03079  M01S02932.xedit   +++|          SA7    E.LMOD      SET LINE MODIFICATIONS MADE
03080  M01S02933.xedit   +++|          RJ     VRY         AND THEN VERIFY IT
03081  M01S02934.xedit   +++|          SA1    NUMS

Seq #  *Modification Id* Act 
----------------------------+
03082  M02S02935.xedit21 ---|          SX6    X1-1
03083  M01S00043.xedit21 +++|          SX6    B1
03084  M01S00044.xedit21 +++|          IX6    X1-X6
03085  M01S02936.xedit   +++|          AX1    1
03086  M01S02937.xedit   +++|          ZR     X1,NCM      IF FINISHED
03087  M01S02938.xedit   +++|          SA6    A1
03088  M01S02939.xedit   +++|          RJ     WTF
03089  M01S02940.xedit   +++|          RJ     RDF
03090  M01S02941.xedit   +++|          EQ     MOD3        PROCESS NEXT LINE
03091  M01S02942.xedit   +++|
03092  M01S02943.xedit   +++| MODA     CON    2L  +11     PARAMETER FOR *ETL*
03093  M01S02944.xedit   +++|
03094  M01S02945.xedit   +++| MOD      RMT                BATCH PARAMETER DEFINITION
03095  M01S02946.xedit   +++|          CON    3L   +17
03096  M01S02947.xedit   +++|          RMT
03097  M01S02948.xedit   +++|
03098  M01S02949.xedit   +++| NXT      SPACE  4,10
03099  M01S02950.xedit   +++|**        NXT - PROCESS NEXT COMMAND.
03100  M01S02951.xedit   +++|*
03101  M01S02952.xedit   +++|*         ENTRY  (NUMS) = NUMBER OF LINES TO MOVE.
03102  M01S02953.xedit   +++|*                (NUMS+1) = DIRECTION OF MOVE (-0 = BACKWARDS,
03103  M01S02954.xedit   +++|*                           +0 = FORWARDS).
03104  M01S02955.xedit   +++|*
03105  M01S02956.xedit   +++|*         USES   A - 1, 2, 6.
03106  M01S02957.xedit   +++|*                X - 1, 2, 6.
03107  M01S02958.xedit   +++|*
03108  M01S02959.xedit   +++|*         CALLS  MPR, VRT.
03109  M01S02960.xedit   +++|
03110  M01S02961.xedit   +++|
03111  M01S02962.xedit   +++| NXT      SA1    NUMS
03112  M01S02963.xedit   +++|          MX6    0           SET E.NMODE TO CODED
03113  M01S02964.xedit   +++|          SA2    A1+B1
03114  M01S02965.xedit   +++|          BX1    X1-X2       OBTAIN PROPER DISPLACEMENT
03115  M01S02966.xedit   +++|          NZ     X1,NXT1     IF NOT ZERO DISPLACEMENT (ASSUME 1)
03116  M01S02967.xedit   +++|          SX1    B1          SET *NEXT-1* COMMAND
03117  M01S02968.xedit   +++| NXT1     SA6    E.NMODE
03118  M01S02969.xedit   +++|          RJ     MPR         MOVE THE POINTER
03119  M01S02970.xedit   +++|          EQ     VRT         VERIFY AND RETURN
03120  M01S02971.xedit   +++| PNT      SPACE  4,15
03121  M01S02972.xedit   +++|**        PNT - PRINT COMMAND PROCESSOR.
03122  M01S02973.xedit   +++|*
03123  M01S02974.xedit   +++|*         ENTRY  (NUMS) = NUMBER OF LINES TO PRINT.
03124  M01S02975.xedit   +++|*
03125  M01S02976.xedit   +++|*         EXIT   TO *NCM*.
03126  M01S02977.xedit   +++|*
03127  M01S02978.xedit   +++|*         USES   A - 1, 2, 4, 6.
03128  M01S02979.xedit   +++|*                X - 1, 2, 4, 6.
03129  M01S02980.xedit   +++|*
03130  M01S02981.xedit   +++|*         CALLS  RDF, SCD, WTF.
03131  M01S02982.xedit   +++|*
03132  M01S02983.xedit   +++|*         MACROS WRITEC.
03133  M01S02984.xedit   +++|
03134  M01S02985.xedit   +++|
03135  M01S02986.xedit   +++| PNT      SA1    NUMS
03136  M01S02987.xedit   +++|          SA2    IWHERE

Seq #  *Modification Id* Act 
----------------------------+
03137  M02S02988.xedit21 ---|          SX6    X1-1        DECREMENT BY ONE (MAKE TESTING EASIER)
03138  M01S00045.xedit21 +++|          SX6    B1
03139  M01S00046.xedit21 +++|          IX6    X1-X6       DECREMENT BY ONE (MAKE TESTING EASIER)
03140  M01S02989.xedit   +++|          NG     X2,PNT2     IF IN CREATION MODE
03141  M01S02990.xedit   +++|          SA6    NUMS
03142  M01S02991.xedit   +++|          RJ     SCD         SET CODED LINE FORMAT
03143  M01S02992.xedit   +++| PNT1     SA4    IW          PRINT LINE
03144  M01S02993.xedit   +++|          WRITEC OUTPUT,E.LINE
03145  M01S02994.xedit   +++|          SA1    NUMS

Seq #  *Modification Id* Act 
----------------------------+
03146  M02S02995.xedit21 ---|          SX6    X1-1        DECREMENT COUNT
03147  M01S00047.xedit21 +++|          SX6    B1
03148  M01S00048.xedit21 +++|          IX6    X1-X6       DECREMENT COUNT
03149  M01S02996.xedit   +++|          NG     X6,NCM      IF DONE, EXIT
03150  M01S02997.xedit   +++|          SA6    NUMS
03151  M01S02998.xedit   +++|          RJ     WTF
03152  M01S02999.xedit   +++|          RJ     RDF
03153  M01S03000.xedit   +++|          EQ     PNT1        PRINT NEXT LINE
03154  M01S03001.xedit   +++|
03155  M01S03002.xedit   +++| PNT2     WRITEC OUTPUT,(=C* NULL LINE - IN CREATION MODE*)
03156  M01S03003.xedit   +++|          EQ     NCM         EXIT
03157  M01S03004.xedit   +++| RLP      SPACE  4,15
03158  M01S03005.xedit   +++|**        RLP - *REPLACE* PROCESSOR.
03159  M01S03006.xedit   +++|*
03160  M01S03007.xedit   +++|*         ENTRY  (NUMS) = NUMBER OF LINES TO REPLACE.
03161  M01S03008.xedit   +++|*
03162  M01S03009.xedit   +++|*         EXIT   TO *NCM*.
03163  M01S03010.xedit   +++|*
03164  M01S03011.xedit   +++|*         USES   X - 2, 6, 7.
03165  M01S03012.xedit   +++|*                A - 2, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03166  M02S03013.xedit21 ---|*                B - 6.
03167  M01S03014.xedit   +++|*
03168  M01S03015.xedit   +++|*         CALLS  RDF, RDL, TCD, TLB, WTF.
03169  M01S03016.xedit   +++|*
03170  M01S03017.xedit   +++|*         NOTES  A NULL LINE WILL OVERRIDE THE LINE COUNT.
03171  M01S03018.xedit   +++|
03172  M01S03019.xedit   +++|
03173  M01S03020.xedit   +++| RLP1     RJ     WTF         COPY DATA LINE TO EDIT FILE
03174  M01S03021.xedit   +++|
03175  M01S03022.xedit   +++|*         READ EDIT FILE.  IF EOI, EXIT TO *NCM*.
03176  M01S03023.xedit   +++|
03177  M01S03024.xedit   +++|          RJ     RDF
03178  M01S03025.xedit   +++|
03179  M01S03026.xedit   +++| RLP      BSS    0           ENTRY
03180  M01S03027.xedit   +++|          RJ     RDL         GET DATA LINE
03181  M01S03028.xedit   +++|          NZ     X1,NCM      IF EMPTY <CR> WAS ENCOUNTERED
03182  M01S03029.xedit   +++|          RJ     TCD         TAB CODED DATA LINE
03183  M01S03030.xedit   +++|          RJ     TLB         TRANSFER LINE TO *E.LINE*
03184  M01S03031.xedit   +++|          SA2    NUMS        DECREMENT LINE COUNT

Seq #  *Modification Id* Act 
----------------------------+
03185  M02S03032.xedit21 ---|          SX6    X2-1
03186  M01S00049.xedit21 +++|          SX7    B1
03187  M01S00050.xedit21 +++|          IX6    X2-X7
03188  M01S00051.xedit21 +++|          IX2    X6-X7
03189  M01S03033.xedit   +++|          BX7    X7-X7

Seq #  *Modification Id* Act 
----------------------------+
03190  M02S03034.xedit21 ---|          SB6    X6
03191  M01S03035.xedit   +++|          SA7    NOMOD       SET MODIFICATIONS MADE
03192  M01S03036.xedit   +++|          SA6    A2+

Seq #  *Modification Id* Act 
----------------------------+
03193  M02S03037.xedit21 ---|          GT     B6,B0,RLP1  IF LINE COUNT NOT EXHAUSTED
03194  M01S00052.xedit21 +++|          PL     X2,RLP1     IF LINE COUNT NOT EXHAUSTED
03195  M01S03038.xedit   +++|          EQ     NCM         EXIT
03196  M01S03039.xedit   +++| RMA      SPACE  4,15
03197  M01S03040.xedit   +++|**        RMA - PROCESS RIGHT MARGIN COMMAND.
03198  M01S03041.xedit   +++|*
03199  M01S03042.xedit   +++|*         ENTRY  (NUMS) = NEW VALUE OF MARGIN (0 = RESET TO MAXIMUM).
03200  M01S03043.xedit   +++|*
03201  M01S03044.xedit   +++|*         EXIT   (IW) = THE VALUE OF THE RIGHT MARGIN.
03202  M01S03045.xedit   +++|*                       IF NO PARAMETER GIVEN, *MAXWD*.
03203  M01S03046.xedit   +++|*                IF WIDTH IS NOT IN RANGE, TO *CER*, ELSE TO *NCM*.
03204  M01S03047.xedit   +++|*
03205  M01S03048.xedit   +++|*         USES   A - 1, 6.
03206  M01S03049.xedit   +++|*                X - 1, 2, 3, 6.
03207  M01S03050.xedit   +++|*                B - 2.
03208  M01S03051.xedit   +++|
03209  M01S03052.xedit   +++|
03210  M01S03053.xedit   +++| RMA      SA1    NUMS
03211  M01S03054.xedit   +++|          SX3    X1-MAXWD-1
03212  M01S03055.xedit   +++|          NZ     X1,RMA1     IF WIDTH SPECIFIED (ELSE DEFAULT TO 160)
03213  M01S03056.xedit   +++|          SX1    160D
03214  M01S03057.xedit   +++| RMA1     SX2    X1-MINWD
03215  M01S03058.xedit   +++|          BX3    -X3+X2
03216  M01S03059.xedit   +++|          LX6    X1
03217  M01S03060.xedit   +++|          SB2    ILL.
03218  M01S03061.xedit   +++|          NG     X3,CER      IF WIDTH NOT IN RANGE
03219  M01S03062.xedit   +++|          SA6    IW
03220  M01S03063.xedit   +++|          EQ     NCM         EXIT
03221  M01S03064.xedit   +++| SWN      SPACE  4,15
03222  M01S03065.xedit   +++|**        SWN - SET WINDOWS.
03223  M01S03066.xedit   +++|*
03224  M01S03067.xedit   +++|*         ENTRY  (NUMS) = LEFT WINDOW.
03225  M01S03068.xedit   +++|*                (NUMS+1) = RIGHT MARGIN.
03226  M01S03069.xedit   +++|*
03227  M01S03070.xedit   +++|*         EXIT   (LMW) = LEFT WINDOW.
03228  M01S03071.xedit   +++|*                (RMW) = RIGHT WINDOW.
03229  M01S03072.xedit   +++|*                (RTWD) = RIGHT WINDOW MARGIN.
03230  M01S03073.xedit   +++|*                IF ERROR, TO *CER*, ELSE TO *NCM*.
03231  M01S03074.xedit   +++|*
03232  M01S03075.xedit   +++|*         USES   A - 1, 2, 6, 7.
03233  M01S03076.xedit   +++|*                X - 1, 2, 3, 4, 5, 6, 7.
03234  M01S03077.xedit   +++|*                B - 2.
03235  M01S03078.xedit   +++|
03236  M01S03079.xedit   +++|
03237  M01S03080.xedit   +++| SWN      SA1    NUMS
03238  M01S03081.xedit   +++|          SA2    A1+B1
03239  M01S03082.xedit   +++|          IX3    X2-X1       POSITIVE, IF LEFT .LE. RIGHT
03240  M01S03083.xedit   +++|          SX4    X1-1        POSITIVE IF 0 .LT. LEFT
03241  M01S03084.xedit   +++|          SX5    X2-161      NEGATIVE IF RIGHT .LE. 160
03242  M01S03085.xedit   +++|          BX3    X3+X4
03243  M01S03086.xedit   +++|          BX3    -X5+X3
03244  M01S03087.xedit   +++|
03245  M01S03088.xedit   +++|*          (X3) = POSITIVE, IF 0 .LT. LEFT .LE. RIGHT .LE. 160.
03246  M01S03089.xedit   +++|
03247  M01S03090.xedit   +++|          SB2    ARG.
03248  M01S03091.xedit   +++|          NG     X3,CER      IF ARGUMENTS NOT PROPER
03249  M01S03092.xedit   +++|          SX7    X2+
03250  M01S03093.xedit   +++|          SA7    RTWD
03251  M01S03094.xedit   +++|          SX6    X1+E.STR-2  SET FWA -1 OF START
03252  M01S03095.xedit   +++|          SX7    X2+E.STR    SET LWA+1 FOR SEARCH
03253  M01S03096.xedit   +++|          SA6    LMW
03254  M01S03097.xedit   +++|          SA7    A6+B1
03255  M01S03098.xedit   +++|          EQ     NCM         EXIT
03256  M01S03099.xedit   +++| RST      SPACE  4,15
03257  M01S03100.xedit   +++|**        RST - RESTORE FILE TO PREVIOUS CONDITION.
03258  M01S03101.xedit   +++|*
03259  M01S03102.xedit   +++|*         ENTRY  NONE.
03260  M01S03103.xedit   +++|*
03261  M01S03104.xedit   +++|*         EXIT   TO *NCM*.
03262  M01S03105.xedit   +++|*                (IWHERE) = 0.
03263  M01S03106.xedit   +++|*                (NOMOD) = 73B, INDICATES NO MODIFICATIONS.
03264  M01S03107.xedit   +++|*
03265  M01S03108.xedit   +++|*         USES   A - 6, 7.
03266  M01S03109.xedit   +++|*                X - 6, 7.
03267  M01S03110.xedit   +++|*
03268  M01S03111.xedit   +++|*         CALLS  TOP.
03269  M01S03112.xedit   +++|
03270  M01S03113.xedit   +++|
03271  M01S03114.xedit   +++| RST      BX7    X7-X7       SET IWHERE TO 0 (FORCE REWIND)
03272  M01S03115.xedit   +++|          MX6    73B         SET *NOMOD* TO INDICATE NO MODIFICATIONS
03273  M01S03116.xedit   +++|          SA7    IWHERE
03274  M01S03117.xedit   +++|          SA6    NOMOD
03275  M01S03118.xedit   +++|          RJ     TOP         RESET FILES
03276  M01S03119.xedit   +++|          EQ     NCM         EXIT
03277  M01S03120.xedit   +++| SCH      SPACE  4,10
03278  M01S03121.xedit   +++|**        SCH - SET CHARACTER IN WORD.
03279  M01S03122.xedit   +++|*
03280  M01S03123.xedit   +++|*         ENTRY  (NUMS) = CHARACTER FOR PLACEMENT.
03281  M01S03124.xedit   +++|*                (X1) = ADDRESS TO PLACE CHARACTER.
03282  M01S03125.xedit   +++|*
03283  M01S03126.xedit   +++|*         EXIT   TO *NCM*
03284  M01S03127.xedit   +++|*                ((X1)) = (NUMS).
03285  M01S03128.xedit   +++|*
03286  M01S03129.xedit   +++|*         USES   A - 2, 6.
03287  M01S03130.xedit   +++|*                X - 1, 2, 6.
03288  M01S03131.xedit   +++|
03289  M01S03132.xedit   +++|
03290  M01S03133.xedit   +++| SCH      AX1    18          SHIFT MODIFIER WORD
03291  M01S03134.xedit   +++|          SA2    NUMS
03292  M01S03135.xedit   +++|          SX1    X1          REMOVE EXCESS CHARACTERS
03293  M01S03136.xedit   +++|          LX1    -1
03294  M01S03137.xedit   +++|          BX6    X2
03295  M01S03138.xedit   +++|          SA6    X1+         PUT CHARACTER
03296  M01S03139.xedit   +++|          EQ     NCM         EXIT
03297  M01S03140.xedit   +++| SFG      SPACE  4,20
03298  M01S03141.xedit   +++|**        SFG - SET FLAG.
03299  M01S03142.xedit   +++|*
03300  M01S03143.xedit   +++|*         ENTRY  (X1) = COMMAND DESCRIPTOR WORD, FORM IS -
03301  M01S03144.xedit   +++|*                       24/,17/ADDR,1/MODE,18/
03302  M01S03145.xedit   +++|*                       ADDR = ADDRESS OF THE FLAG TO SET.
03303  M01S03146.xedit   +++|*                       MODE = SET, IF *VERIFY* MODE.
03304  M01S03147.xedit   +++|*                              CLEAR, IF *BRIEF* MODE.
03305  M01S03148.xedit   +++|*                (NUMS) = +- PARAMETER,
03306  M01S03149.xedit   +++|*                         IF NEGATIVE, SET FLAG TO CONDITION OPPOSITE
03307  M01S03150.xedit   +++|*                         THAT INDICATED BY *MODE*.
03308  M01S03151.xedit   +++|*                         IF POSITIVE, SET FLAG TO CONDITION INDICATED
03309  M01S03152.xedit   +++|*                         BY *MODE*.
03310  M01S03153.xedit   +++|*
03311  M01S03154.xedit   +++|*         EXIT   TO *NCM*.
03312  M01S03155.xedit   +++|*
03313  M01S03156.xedit   +++|*         USES   A - 3, 6.
03314  M01S03157.xedit   +++|*                X - 1, 3, 6.
03315  M01S03158.xedit   +++|
03316  M01S03159.xedit   +++|
03317  M01S03160.xedit   +++| SFG      AX1    18
03318  M01S03161.xedit   +++|          SX1    X1          ISOLATE PARAMETER
03319  M01S03162.xedit   +++|          SA3    NUMS        GET +- MODE
03320  M01S03163.xedit   +++|          LX1    -1
03321  M01S03164.xedit   +++|          BX6    X1-X3       OBTAIN PROPER CONDITION
03322  M01S03165.xedit   +++|          SA6    X1          SAVE NEW VALUE
03323  M01S03166.xedit   +++|          EQ     NCM         EXIT
03324  M01S03167.xedit   +++| STB      SPACE  4,10
03325  M01S03168.xedit   +++|**        STB - SET TABS.
03326  M01S03169.xedit   +++|*
03327  M01S03170.xedit   +++|*         ENTRY  (NUMS TO NUMS+NTABS) = TAB SETTINGS DESIRED.
03328  M01S03171.xedit   +++|*
03329  M01S03172.xedit   +++|*         EXIT   (TABS - TABS+NTABS-1) = IF ALL PARAMETERS ARE VALID
03330  M01S03173.xedit   +++|*                NEW TAB SETTINGS.
03331  M01S03174.xedit   +++|*                IF PARAMETERS ARE VALID, TO *NCM*, ELSE TO *CER*.
03332  M01S03175.xedit   +++|*
03333  M01S03176.xedit   +++|*         USES   A - 1, 2, 6, 7.
03334  M01S03177.xedit   +++|*                X - 1, 2, 6, 7.
03335  M01S03178.xedit   +++|*                B - 2, 5, 6, 7.
03336  M01S03179.xedit   +++|
03337  M01S03180.xedit   +++|
03338  M01S03181.xedit   +++| STB      SA1    IW
03339  M01S03182.xedit   +++|          SB7    160         DEFAULT LINE WIDTH
03340  M01S03183.xedit   +++|          ZR     X1,STB0     IF USING DEFAULT
03341  M01S03184.xedit   +++|          SB7    X1
03342  M01S03185.xedit   +++| STB0     SB6    B0          SET VALUE OF LAST TAB
03343  M01S03186.xedit   +++|          SA1    NUMS-1
03344  M01S03187.xedit   +++|          MX6    0
03345  M01S03188.xedit   +++|          SA6    NUMS+NTABS  ASSURE ZERO MARKER
03346  M01S03189.xedit   +++|          SB2    ILL.        ERROR MESSAGE
03347  M01S03190.xedit   +++| STB1     SA1    A1+B1
03348  M01S03191.xedit   +++|          ZR     X1,STB2     IF END OF LINE (ALL OK)
03349  M01S03192.xedit   +++|          SB5    X1
03350  M01S03193.xedit   +++|          GT     B5,B7,CER   IF TAB IS PAST LINE WIDTH
03351  M01S03194.xedit   +++|          LE     B5,B6,CER   IF TABS IS .LE. LAST TAB
03352  M01S03195.xedit   +++|          SB6    B5
03353  M01S03196.xedit   +++|          EQ     STB1        CHECK NEXT TAB
03354  M01S03197.xedit   +++|
03355  M01S03198.xedit   +++| STB2     SA2    NUMS-1
03356  M01S03199.xedit   +++|          SA6    TABS        CLEAR FIRST TAB
03357  M01S03200.xedit   +++| STB3     SA2    A2+B1       GET NEXT TAB
03358  M01S03201.xedit   +++|          SA6    A6+B1       ZERO NEXT TAB
03359  M01S03202.xedit   +++|          BX7    X2
03360  M01S03203.xedit   +++|          SA7    A6-B1       PUT CURRENT TAB
03361  M01S03204.xedit   +++|          NZ     X2,STB3     IF NOT FINISHED
03362  M01S03205.xedit   +++|          EQ     NCM         TABS SET, EXIT
03363  M01S03206.xedit   +++| TGL      SPACE  4,15
03364  M01S03207.xedit   +++|**        TGL - PROCESS TOGGLES.
03365  M01S03208.xedit   +++|*
03366  M01S03209.xedit   +++|*         ENTRY  (X1) = (DECA), ADDRESS OF WORD TO PROCESS.
03367  M01S03210.xedit   +++|*                (NUMS) = *+* PARAMETER.
03368  M01S03211.xedit   +++|*                IF (NUMS) .GT. 0, SET FLAG TO ON.
03369  M01S03212.xedit   +++|*                IF (NUMS) .LT. 0, SET FLAG TO OFF.
03370  M01S03213.xedit   +++|*                IF (NUMS) .EQ. 0, TOGGLE STATE OF FLAG.
03371  M01S03214.xedit   +++|*
03372  M01S03215.xedit   +++|*         EXIT   TO *NCM*.
03373  M01S03216.xedit   +++|*
03374  M01S03217.xedit   +++|*         USES   A - 2, 3, 6.
03375  M01S03218.xedit   +++|*                X - 1, 2, 3, 6.
03376  M01S03219.xedit   +++|
03377  M01S03220.xedit   +++|
03378  M01S03221.xedit   +++| TGL      AX1    18          OBTAIN ADDRESS
03379  M01S03222.xedit   +++|          SA3    NUMS
03380  M01S03223.xedit   +++|          SA2    X1          FLAG TO PROCESS
03381  M01S03224.xedit   +++|          NZ     X3,TGL1     IF +- SPECIFIED
03382  M01S03225.xedit   +++|          LX3    X2          MOVE TOGGLE UP
03383  M01S03226.xedit   +++| TGL1     BX6    -X3         TOGGLE FLAG
03384  M01S03227.xedit   +++|          SA6    A2
03385  M01S03228.xedit   +++|          EQ     NCM         EXIT
03386  M01S03229.xedit   +++| TRN      SPACE  4,10
03387  M01S03230.xedit   +++|**        TRN - TRUNCATE COMMAND.
03388  M01S03231.xedit   +++|*
03389  M01S03232.xedit   +++|*         ENTRY  (NUMS) = NUMBER OF LINES TO PROCESS.
03390  M01S03233.xedit   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03391  M02S03234.xedit21 ---|*         USES   A - 0, 1, 5, 6, 7.
03392  M01S00053.xedit21 +++|*         USES   A - 1, 5, 6, 7.
03393  M01S03235.xedit   +++|*                X - 1, 2, 5, 6, 7.
03394  M01S03236.xedit   +++|*                B - 2, 6.
03395  M01S03237.xedit   +++|*
03396  M01S03238.xedit   +++|*         CALLS  RDF, SAC, TSL, VRY, WTF.
03397  M01S03239.xedit   +++|
03398  M01S03240.xedit   +++|

Seq #  *Modification Id* Act 
----------------------------+
03399  M02S03241.xedit21 ---| TRN      SA1    NUMS

Seq #  *Modification Id* Act 
----------------------------+
03400  M02S03242.xedit21 ---|          SA5    IW          GET DESIRED WIDTH

Seq #  *Modification Id* Act 
----------------------------+
03401  M02S03243.xedit21 ---|          SA0    X1
03402  M01S00054.xedit21 +++| TRN      BSS    0           ENTRY
03403  M01S00055.xedit21 +++|          SA5    IW          GET DESIRED WIDTH
03404  M01S03244.xedit   +++|          RJ     SAC         SET ASCII MODE
03405  M01S03245.xedit   +++| TRN1     SA1    E.STR-1     GET EXISTING LINE WIDTH
03406  M01S03246.xedit   +++|          IX2    X5-X1

Seq #  *Modification Id* Act 
----------------------------+
03407  M02S03247.xedit21 ---|          SA0    A0-B1       DECREMENT COUNT
03408  M01S00056.xedit21 +++|          SX7    B1
03409  M01S03248.xedit   +++|          PL     X2,TRN2     IF LINE ALREADY SHORT

Seq #  *Modification Id* Act 
----------------------------+
03410  M02S03249.xedit21 ---|          SB2    X5+B1

Seq #  *Modification Id* Act 
----------------------------+
03411  M02S03250.xedit21 ---|          SX7    B1
03412  M01S00057.xedit21 +++|          SB2    X5+1
03413  M01S03251.xedit   +++|          MX6    2
03414  M01S03252.xedit   +++|          SA7    E.LMOD      SET LINE MODIFICATION
03415  M01S03253.xedit   +++|          SA6    A1+B2       SET NEW END OF LINE
03416  M01S03254.xedit   +++|          SA7    NOMOD       SET MODIFICATION MADE TO FILE
03417  M01S03255.xedit   +++|          SB6    E.STR-1     SET LINE WIDTH CELL
03418  M01S03256.xedit   +++|          RJ     TSL         TRIM SPACES OFF LINE
03419  M01S03257.xedit   +++| TRN2     RJ     VRY         VERIFY LINE

Seq #  *Modification Id* Act 
----------------------------+
03420  M02S03258.xedit21 ---|          SB2    A0

Seq #  *Modification Id* Act 
----------------------------+
03421  M02S03259.xedit21 ---|          LE     B2,NCM      IF FINISHED, EXIT
03422  M01S00058.xedit21 +++|          SA1    NUMS
03423  M01S00059.xedit21 +++|          SX6    B1+
03424  M01S00060.xedit21 +++|          IX6    X1-X6       DECREMENT COUNT
03425  M01S00061.xedit21 +++|          AX1    1
03426  M01S00062.xedit21 +++|          ZR     X1,NCM      IF FINISHED, EXIT
03427  M01S00063.xedit21 +++|          SA6    A1+
03428  M01S03260.xedit   +++|          RJ     WTF
03429  M01S03261.xedit   +++|          RJ     RDF
03430  M01S03262.xedit   +++|          EQ     TRN1        RETURN TO PROCESS NEXT LINE
03431  M01S03263.xedit   +++| TTN      SPACE  4,10
03432  M01S03264.xedit   +++|**        TTN - TOP AND TOPNULL PROCESSOR.
03433  M01S03265.xedit   +++|*
03434  M01S03266.xedit   +++|*         ENTRY  (INDEX) = COMMAND TABLE INDEX FOR CURRENT COMMAND.
03435  M01S03267.xedit   +++|*
03436  M01S03268.xedit   +++|*         USES   A - 1, 2, 6.
03437  M01S03269.xedit   +++|*                X - 1, 2, 6.
03438  M01S03270.xedit   +++|*
03439  M01S03271.xedit   +++|*         CALLS  TOP.
03440  M01S03272.xedit   +++|
03441  M01S03273.xedit   +++|
03442  M01S03274.xedit   +++|*         REWIND FILES, IF *TN*, *TOP* WILL INSERT A BLANK LINE.
03443  M01S03275.xedit   +++|
03444  M01S03276.xedit   +++| TTN      RJ     TOP
03445  M01S03277.xedit   +++|          SA1    INDEX
03446  M01S03278.xedit   +++|          SA2    NOMOD
03447  M01S03279.xedit   +++|          SX1    X1-.TOPNUL  POSITIVE, IF *TOPNULL*, MINUS, IF *TOP*
03448  M01S03280.xedit   +++|
03449  M01S03281.xedit   +++|*         HANDLE CASE WHERE (IWHERE) = 1, AND COMMAND IS *TOP*,
03450  M01S03282.xedit   +++|*         AND (NOMOD) = FALSE.
03451  M01S03283.xedit   +++|
03452  M01S03284.xedit   +++|          BX6    X1*X2
03453  M01S03285.xedit   +++|          SA6    A2
03454  M01S03286.xedit   +++|          EQ     NCM         EXIT
03455  M01S03287.xedit   +++| WHR      SPACE  4,15
03456  M01S03288.xedit   +++|**        WHR - PROCESS WHERE COMMAND.
03457  M01S03289.xedit   +++|*
03458  M01S03290.xedit   +++|*         ENTRY  (IWHERE) = CURRENT LINE COUNT.
03459  M01S03291.xedit   +++|*
03460  M01S03292.xedit   +++|*         EXIT   TO *NCM*.
03461  M01S03293.xedit   +++|*
03462  M01S03294.xedit   +++|*         USES   A - 1.
03463  M01S03295.xedit   +++|*                X - 1, 6.
03464  M01S03296.xedit   +++|*
03465  M01S03297.xedit   +++|*         CALLS  CDD.
03466  M01S03298.xedit   +++|*
03467  M01S03299.xedit   +++|*         MACROS WRITEC, WRITEO.
03468  M01S03300.xedit   +++|
03469  M01S03301.xedit   +++|
03470  M01S03302.xedit   +++| WHR      SA1    IWHERE
03471  M01S03303.xedit   +++|          NG     X1,WHR1     IF IN CREATION MODE
03472  M01S03304.xedit   +++|          RJ     CDD
03473  M01S03305.xedit   +++|          MX1    12
03474  M01S03306.xedit   +++|          BX6    -X1*X6
03475  M01S03307.xedit   +++|          LX6    12          MOVE END OF LINE BYTE
03476  M01S03308.xedit   +++|          WRITEO OUTPUT
03477  M01S03309.xedit   +++|          EQ     NCM         EXIT
03478  M01S03310.xedit   +++|
03479  M01S03311.xedit   +++| WHR1     WRITEC OUTPUT,(=C*       0 - IN CREATION MODE.*)
03480  M01S03312.xedit   +++|          EQ     NCM         EXIT
03481  M01S03313.xedit   +++| WRM      SPACE  4,10
03482  M01S03314.xedit   +++|**        WRM - WRITE RECORD MARK.
03483  M01S03315.xedit   +++|*
03484  M01S03316.xedit   +++|*         ENTRY  (X1) = BITS 18 - 35 CONTAIN DESIRED *CIO* FUNCTION.
03485  M01S03317.xedit   +++|*
03486  M01S03318.xedit   +++|*         EXIT   TO *NCM*.
03487  M01S03319.xedit   +++|*
03488  M01S03320.xedit   +++|*         USES   A - 6.
03489  M01S03321.xedit   +++|*                X - 1, 2, 6, 7.
03490  M01S03322.xedit   +++|*
03491  M01S03323.xedit   +++|*         CALLS  =XCIO=.
03492  M01S03324.xedit   +++|
03493  M01S03325.xedit   +++|
03494  M01S03326.xedit   +++| WRM      SX2    FTA         SELECT FET
03495  M01S03327.xedit   +++|          AX1    18
03496  M01S03328.xedit   +++|          SX7    X1
03497  M01S03329.xedit   +++|          MX6    0
03498  M01S03330.xedit   +++|          BX7    -X7         SPECIFY AUTO RECALL
03499  M01S03331.xedit   +++|          SA6    NOMOD       SET MODIFICATION
03500  M01S03332.xedit   +++|          RJ     =XCIO=
03501  M01S03333.xedit   +++|          EQ     NCM         EXIT
03502  M01S03334.xedit   +++|
03503  M01S03335.xedit   +++| YZP      SPACE  4,15
03504  M01S03336.xedit   +++|**        YZP - Y/Z COMMAND PROCESSOR.
03505  M01S03337.xedit   +++|*
03506  M01S03338.xedit   +++|*         ENTRY  (NUMS) = IF NO PARAMETER, 0
03507  M01S03339.xedit   +++|*                         ELSE, FWA OF PARAMETERS.
03508  M01S03340.xedit   +++|*                (NUMS+1) = LWA OF PARAMETER.
03509  M01S03341.xedit   +++|*
03510  M01S03342.xedit   +++|*         EXIT   IF ERROR, TO *CER*, ELSE TO *STK*.
03511  M01S03343.xedit   +++|*
03512  M01S03344.xedit   +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
03513  M01S03345.xedit   +++|*                X - 1, 2, 3, 4, 5, 6, 7.
03514  M01S03346.xedit   +++|*                B - 6, 7.
03515  M01S03347.xedit   +++|*
03516  M01S03348.xedit   +++|*         CALLS  RTA, STK.
03517  M01S03349.xedit   +++|
03518  M01S03350.xedit   +++|
03519  M01S03351.xedit   +++| YZP      SA1    NUMS        GET FWA OF PARAMETER
03520  M01S03352.xedit   +++|          SA2    A1+B1       GET LWA+1
03521  M01S03353.xedit   +++|          SA3    X1          DELIMITER CHARACTER
03522  M01S03354.xedit   +++|          ZR     X1,YZP2     IF NO PARAMETER
03523  M01S03355.xedit   +++|          SA5    INDEX
03524  M01S03356.xedit   +++|          SA4    X2          LAST CHARACTER
03525  M01S03357.xedit   +++|          SB6    X1+B1       SET FWA OF STRING TO PACK
03526  M01S03358.xedit   +++|          SX5    X5-.Z       0 IF *Z* COMMAND
03527  M01S03359.xedit   +++|          MX7    1
03528  M01S03360.xedit   +++|          NZ     X5,YZP1     IF NOT *Z* COMMAND
03529  M01S03361.xedit   +++|          BX3    X3+X7       SET TO ECHO COMMANDS
03530  M01S03362.xedit   +++| YZP1     LX6    X3          MOVE DELIMITER/ECHO FLAG
03531  M01S03363.xedit   +++|          SB7    Y.LINE
03532  M01S03364.xedit   +++|          SA6    Y.DEV+1     SET DELIMITER CHARACTER
03533  M01S03365.xedit   +++|          BX7    X7+X4       SET PSEUDO END OF LINE
03534  M01S03366.xedit   +++|          SA7    A4
03535  M01S03367.xedit   +++|          RJ     RTA         PACK LINE
03536  M01S03368.xedit   +++|          SA1    NUMS+1
03537  M01S03369.xedit   +++|          SA1    X1+         GET PSEUDO END OF LINE
03538  M01S03370.xedit   +++|          MX7    1
03539  M01S03371.xedit   +++|          BX6    -X7*X1      REMOVE PSEUDO END OF LINE
03540  M01S03372.xedit   +++|          LX1    1
03541  M01S03373.xedit   +++|          NG     X1,YZP1.1   IF TRUE END OF LINE
03542  M01S03374.xedit   +++|          SA6    A1+         REPLACE ENTRY
03543  M01S03375.xedit   +++| YZP1.1   SA1    Y.DEV
03544  M01S03376.xedit   +++|          RJ     STK         STACK ENTRY. IF NO ERRORS, EXIT.
03545  M01S03377.xedit   +++|          SB2    STK.
03546  M01S03378.xedit   +++|          EQ     CER         IF STACKING ERROR, EXIT
03547  M01S03379.xedit   +++|
03548  M01S03380.xedit   +++| YZP2     SB2    ARG.
03549  M01S03381.xedit   +++|          EQ     CER         PARAMETER ERROR, EXIT
03550  M01S03382.xedit   +++|          TITLE  SUBROUTINES.
03551  M01S03383.xedit   +++| ABT      SPACE  4,15
03552  M01S03384.xedit   +++|**        ABT - ABORT XEDIT.
03553  M01S03385.xedit   +++|*
03554  M01S03386.xedit   +++|*         ENTRY  (B6) = ADDRESS OF ABORT MESSAGE.
03555  M01S03387.xedit   +++|*
03556  M01S03388.xedit   +++|*         EXIT   TO *EXT*.
03557  M01S03389.xedit   +++|*                (EXTA) = -1, INDICATES ABORT.
03558  M01S03390.xedit   +++|*
03559  M01S03391.xedit   +++|*         USES   A - 6.
03560  M01S03392.xedit   +++|*                X - 6.
03561  M01S03393.xedit   +++|*
03562  M01S03394.xedit   +++|*         MACROS WRITEC.
03563  M01S03395.xedit   +++|*
03564  M01S03396.xedit   +++|*         NOTES  DO NOT *RJ* TO THIS SUBROUTINE.
03565  M01S03397.xedit   +++|
03566  M01S03398.xedit   +++|
03567  M01S03399.xedit   +++| ABT      SX6    -1          CHANGE EXIT MODE
03568  M01S03400.xedit   +++|          SA6    EXTA
03569  M01S03401.xedit   +++|          WRITEC OUTPUT,B6   ISSUE MESSAGE
03570  M01S03402.xedit   +++|          EQ     EXT         EXIT XEDIT
03571  M01S03403.xedit   +++| ASF      SPACE  4,20
03572  M01S03404.xedit   +++|**        ASF - ANALYZE STRING FIELDS.
03573  M01S03405.xedit   +++|*
03574  M01S03406.xedit   +++|*         ENTRY  (P1LP - P3RP) = POINTERS TO STRINGS.
03575  M01S03407.xedit   +++|*
03576  M01S03408.xedit   +++|*         EXIT   STRING DEFINITIONS CHECKED AGAINST BITS IN COMMAND
03577  M01S03409.xedit   +++|*                MODIFIER WORD.
03578  M01S03410.xedit   +++|*                (LOCA - LOCC) = INITIALIZED FOR USE BY *LOC*.
03579  M01S03411.xedit   +++|*                (SPCP) = NEGATIVE IF WINDOW WAS SPECIFIED.
03580  M01S03412.xedit   +++|*                (B2) = 0 IF NO ERROR ENCOUNTERED,
03581  M01S03413.xedit   +++|*                       ELSE, ORDINAL OF ERROR MESSAGE.
03582  M01S03414.xedit   +++|*                IF ERROR, TO *NER*.
03583  M01S03415.xedit   +++|*
03584  M01S03416.xedit   +++|*         USES   A - 1, 2, 3, 4, 6, 7.
03585  M01S03417.xedit   +++|*                X - 0, 1, 2, 3, 4, 6, 7.
03586  M01S03418.xedit   +++|*                B - 2, 3, 4, 5, 6, 7.
03587  M01S03419.xedit   +++|*
03588  M01S03420.xedit   +++|*         CALLS  SAC, VIS.
03589  M01S03421.xedit   +++|*
03590  M01S03422.xedit   +++|*         NOTES  ROUTINE IS DESIGNED TO BE CALLED IMMEDIATELY AFTER
03591  M01S03423.xedit   +++|*                THE STRINGS ARE PARSED VIA *PRM*.
03592  M01S03424.xedit   +++|
03593  M01S03425.xedit   +++|
03594  M01S03426.xedit   +++| ASF11    SA1    COMMAND
03595  M01S03427.xedit   +++|          SA2    P3RP
03596  M01S03428.xedit   +++|          LX1    59-33       MODIFIER 15, 2 STRINGS NEEDED
03597  M01S03429.xedit   +++|          PL     X1,ASF      IF NOT ABOVE
03598  M01S03430.xedit   +++|          ZR     X2,ASF10    IF NOT 2 STRINGS (ARG ERROR)
03599  M01S03431.xedit   +++|
03600  M01S03432.xedit   +++| ASF      PS                 ENTRY/EXIT
03601  M01S03433.xedit   +++|          SA3    P1LP
03602  M01S03434.xedit   +++|          SA2    PREFIX
03603  M01S03435.xedit   +++|          ZR     X3,ASF9     IF NO STRINGS
03604  M01S03436.xedit   +++|          SA1    GLOBAL
03605  M01S03437.xedit   +++|          MX6    -18
03606  M01S03438.xedit   +++|          LX2    59-/PREFIX/W  (NEXT BIT IS -A-)
03607  M01S03439.xedit   +++|          BX7    -X6*X1      SET GLOBAL
03608  M01S03440.xedit   +++|          LX6    B1,X2
03609  M01S03441.xedit   +++|          SX4    B0
03610  M01S03442.xedit   +++|          PL     X6,ASF1     IF NOT ANCHOR
03611  M01S03443.xedit   +++|          MX4    1
03612  M01S03444.xedit   +++| ASF1     LX7    18
03613  M01S03445.xedit   +++|          SX1    E.STR-1     SET MINIMUM STARTING-1
03614  M01S03446.xedit   +++|          BX6    X6+X2
03615  M01S03447.xedit   +++|          PL     X6,ASF2     IF NOT WINDOW/ANCHOR
03616  M01S03448.xedit   +++|          SA1    LMW         GET WINDOW LEFT MARGIN
03617  M01S03449.xedit   +++| ASF2     IX7    X7+X4
03618  M01S03450.xedit   +++|          BX7    X1+X7
03619  M01S03451.xedit   +++|          SA7    LOCA        SAVE FIRST LOCATE PARAMETER WORD
03620  M01S03452.xedit   +++|
03621  M01S03453.xedit   +++|*         INITIALIZE *LOCB* AND *LOCC*.
03622  M01S03454.xedit   +++|*
03623  M01S03455.xedit   +++|*         NOTE-  LWA+1 FOR SCAN IS SET VERY HIGH. THIS IS DONE FOR
03624  M01S03456.xedit   +++|*         TWO REASONS. THE FIRST, THIS ROUTINE IS ALSO CALLED BY
03625  M01S03457.xedit   +++|*         *OCTCHANGE*, WHICH MAY USE DOUBLE SIZE BUFFERS, AND THE
03626  M01S03458.xedit   +++|*         SECOND IS THAT IT DOES NOT MAKE MUCH DIFFERENCE AS THE
03627  M01S03459.xedit   +++|*         LOCATE SUBROUTINE, *LOC*, WILL FORCE LWA+1 TO BECOMES THE
03628  M01S03460.xedit   +++|*         EOL CHARACTER OF THE STRING BEING SEARCHED.
03629  M01S03461.xedit   +++|
03630  M01S03462.xedit   +++|          SA1    P1LP
03631  M01S03463.xedit   +++|          SB2    E.STR+3*MAXWD   1.SET LWA+1 AVAIL FOR SCAN
03632  M01S03464.xedit   +++|          SA3    P2LP
03633  M01S03465.xedit   +++|          SB3    B2          2. SET LWA+1 AVAIL FOR SCAN
03634  M01S03466.xedit   +++|          MX0    1
03635  M01S03467.xedit   +++|          SA4    RMW         OBTAIN WINDOW RIGHT MARGIN+1
03636  M01S03468.xedit   +++|          SB5    18
03637  M01S03469.xedit   +++|          SB6    B0          1. STRING LENGTH
03638  M01S03470.xedit   +++|          SB4    X4
03639  M01S03471.xedit   +++|          LX6    X1,B5       1. FWA COMPARE
03640  M01S03472.xedit   +++|          SB7    B7-B7       2. STRING LENGTH
03641  M01S03473.xedit   +++|          LX7    X3,B5       2. FWA COMPARE
03642  M01S03474.xedit   +++|          SA4    SPCP        RESET WINDOW PARAMETER
03643  M01S03475.xedit   +++|          BX1    X7
03644  M01S03476.xedit   +++|          BX7    -X0*X4
03645  M01S03477.xedit   +++|          SA7    SPCP
03646  M01S03478.xedit   +++|          BX7    X1
03647  M01S03479.xedit   +++|          SA1    P1LP
03648  M01S03480.xedit   +++|          SA4    TRIM
03649  M01S03481.xedit   +++|          BX4    X4+X2       NEG. IF WINDOW OR TRIM
03650  M01S03482.xedit   +++|          PL     X4,ASF3     IF NOT ABOVE
03651  M01S03483.xedit   +++|          BX6    X0+X6       1. SET TRIM
03652  M01S03484.xedit   +++|          BX7    X0+X7       2. SET TRIM
03653  M01S03485.xedit   +++| ASF3     PL     X2,ASF4     IF NOT WINDOW PROCESSING
03654  M01S03486.xedit   +++|          SA4    SPCP        SET WINDOW PARAMETER
03655  M01S03487.xedit   +++|          BX4    X4+X0
03656  M01S03488.xedit   +++|          BX2    X7
03657  M01S03489.xedit   +++|          BX7    X4
03658  M01S03490.xedit   +++|          SA7    SPCP
03659  M01S03491.xedit   +++|          BX7    X2
03660  M01S03492.xedit   +++|          SB2    B4
03661  M01S03493.xedit   +++|          SB3    B4
03662  M01S03494.xedit   +++| ASF4     LX2    /PREFIX/W-/PREFIX/A
03663  M01S03495.xedit   +++|          SA4    PRMB        GET AND/NOT LOGIC FLAG
03664  M01S03496.xedit   +++|          ZR     X3,ASF5     IF ONLY ONE STRING
03665  M01S03497.xedit   +++|          NZ     X4,ASF5     IF *---* LOGIC
03666  M01S03498.xedit   +++|          BX6    X0+X6       1. SET TRIM (ALL CHARS SIGNIFICANT)
03667  M01S03499.xedit   +++| ASF5     BX0    X0*X4
03668  M01S03500.xedit   +++|          LX0    36-59       POSITION FLAG
03669  M01S03501.xedit   +++|          PL     X2,ASF6     IF NOT ANCHOR
03670  M01S03502.xedit   +++|          SB2    B4          1. RESET RIGHT MARGIN
03671  M01S03503.xedit   +++| ASF6     BX7    X7+X0       2. SET POS/NEG LOGIC FLAG
03672  M01S03504.xedit   +++|          SA2    A1+B1
03673  M01S03505.xedit   +++|          SA4    A3+B1
03674  M01S03506.xedit   +++|          IX1    X2-X1
03675  M01S03507.xedit   +++|          IX3    X4-X3
03676  M01S03508.xedit   +++|          SB6    X1
03677  M01S03509.xedit   +++|          SB7    X3
03678  M01S03510.xedit   +++|          SX1    B2
03679  M01S03511.xedit   +++|          SX3    B3
03680  M01S03512.xedit   +++|          BX6    X6+X1
03681  M01S03513.xedit   +++|          BX7    X7+X3
03682  M01S03514.xedit   +++|          PX6    B6
03683  M01S03515.xedit   +++|          PX7    B7
03684  M01S03516.xedit   +++|          SA6    LOCB
03685  M01S03517.xedit   +++|          SA7    A6+B1
03686  M01S03518.xedit   +++|          SA1    LOCE        SET NORMAL SEARCH
03687  M01S03519.xedit   +++|          GT     B6,ASF7     IF FIRST STRING NOT NULL
03688  M01S03520.xedit   +++|          NZ     X4,ASF8     IF THERE IS A SECOND STRING
03689  M01S03521.xedit   +++|          SA1    LOCF        SET NULL SEARCH
03690  M01S03522.xedit   +++| ASF7     BX6    X1
03691  M01S03523.xedit   +++|          SA6    LOC+1       CHANGE ENTRY POINT TO *LOC*
03692  M01S03524.xedit   +++|*         RJ     VIS         VOID INSTRUCTION STACK
03693  M01S03525.xedit   +++|          RJ     SAC         SET ASCII PROCESSING

Proceed to Part 2