Deck XEDIT Part 004

25 Modifications

Listing Sections

Deck XEDIT Start
Deck XEDIT Part 1 (Line 2008)
Deck XEDIT Part 2 (Line 3694)
Deck XEDIT Part 3 (Line 5636)
Deck XEDIT Part 4 (Line 7485)

Source

Seq #  *Modification Id* Act 
----------------------------+
07485  M01S07193.xedit   +++| HLP3     LX6    6
07486  M01S07194.xedit   +++|          BX6    X6+X0
07487  M01S07195.xedit   +++|          SA5    A5+1
07488  M01S07196.xedit   +++|          PL     X5,HLP2     IF MORE CHARACTERS
07489  M01S07197.xedit   +++|
07490  M01S07198.xedit   +++|*         CHECK FOR LEGAL PARAMETER.
07491  M01S07199.xedit   +++|
07492  M01S07200.xedit   +++| HLP4     BX1    -X3*X6      ISOLATE LAST CHARACTER OF COMMAND
07493  M01S07201.xedit   +++|          MX0    1
07494  M01S07202.xedit   +++|          SX4    X1-1RW
07495  M01S07203.xedit   +++|          ZR     X4,HLP5     IF *W* POSTFIX
07496  M01S07204.xedit   +++|          SX4    X1-1RA
07497  M01S07205.xedit   +++|          NZ     X4,HLP6     IF NOT *A* POSTFIX
07498  M01S07206.xedit   +++| HLP5     BX6    X3*X6       REMOVE POSTFIX
07499  M01S07207.xedit   +++| HLP6     LX6    6
07500  M01S07208.xedit   +++|          PL     X6,HLP6     IF NOT LEFT JUSTIFIED
07501  M01S07209.xedit   +++|          BX6    -X0*X6      REMOVE POSITION BIT
07502  M01S07210.xedit   +++|          SA1    JUMP        SEARCH COMMAND TABLE
07503  M01S07211.xedit   +++|          SA6    JUMPX       SET NAME AT END
07504  M01S07212.xedit   +++| HLP7     BX3    X1-X6
07505  M01S07213.xedit   +++|          SA1    A1+B1
07506  M01S07214.xedit   +++|          NZ     X3,HLP7     IF NOT A MATCH
07507  M01S07215.xedit   +++|          NG     X3,HLP7     IF COMPARED A INFORMATION WORD
07508  M01S07216.xedit   +++|          NG     X1,HLP9     IF PRESENTLY ON AN INFORMATION WORD
07509  M01S07217.xedit   +++| HLP8     BX6    X1
07510  M01S07218.xedit   +++|          SA1    A1+B1
07511  M01S07219.xedit   +++|          PL     X1,HLP8     IF NOT AT AN INFORMATION WORD
07512  M01S07220.xedit   +++| HLP9     SX1    X1
07513  M01S07221.xedit   +++|          ZR     X1,HLP10    IF COMMAND NOT IN TABLE
07514  M01S07222.xedit   +++|          EQ     HLP13       PROCESS COMMAND
07515  M01S07223.xedit   +++|
07516  M01S07224.xedit   +++| HLP10    SA6    HLPF
07517  M01S07225.xedit   +++|          WRITEC OUTPUT,HLPE
07518  M01S07226.xedit   +++|          EQ     NCM         CONTINUE
07519  M01S07227.xedit   +++|
07520  M01S07228.xedit   +++|*         PROCESS NUMERIC PARAMETER.
07521  M01S07229.xedit   +++|
07522  M01S07230.xedit   +++| HLP11    SX6    1R$
07523  M01S07231.xedit   +++|          LX6    -6
07524  M01S07232.xedit   +++|          EQ     HLP13       PROCESS COMMAND
07525  M01S07233.xedit   +++|
07526  M01S07234.xedit   +++|*         PROCESS SPECIAL COMMAND.
07527  M01S07235.xedit   +++|
07528  M01S07236.xedit   +++| HLP12    MX3    42
07529  M01S07237.xedit   +++|          BX6    X2*X3       ISOLATE SEARCH PATTERN:
07530  M01S07238.xedit   +++|          EQ     HLP13       PROCESS COMMAND.
07531  M01S07239.xedit   +++| HLP13    SA1    NUMS+1
07532  M01S07240.xedit   +++|          SA2    X1
07533  M01S07241.xedit   +++|          SX7    X2
07534  M01S07242.xedit   +++|          LX2    1
07535  M01S07243.xedit   +++|          NG     X2,HLP13.1  IF REAL EOL
07536  M01S07244.xedit   +++|          SA7    A2
07537  M01S07245.xedit   +++| HLP13.1  SA2    HLPK
07538  M01S07246.xedit   +++|          SA6    HLPH       COMMAND TO SEARCH FOR
07539  M01S07247.xedit   +++|          SA6    A2
07540  M01S07248.xedit   +++|          NZ     X2,HLP14    IF XEDITI ALREADY GOTTEN
07541  M01S07249.xedit   +++|          STATUS XEDITI
07542  M01S07250.xedit   +++|          SA1    XEDITI
07543  M01S07251.xedit   +++|          SX3    7776B
07544  M01S07252.xedit   +++|          BX3    X3*X1
07545  M01S07253.xedit   +++|          NZ     X3,HLP14    IF FILE GOTTEN
07546  M01S07254.xedit   +++|          GET    XEDITI,,,,,,IP
07547  M01S07255.xedit   +++| HLP14    OPEN   XEDITI,READNR,RECALL
07548  M01S07256.xedit   +++|          REWIND XEDITI,R
07549  M01S07257.xedit   +++|          READ   XEDITI
07550  M01S07258.xedit   +++|          SA5    HLPH        COMMAND TO SEARCH FOR
07551  M01S07259.xedit   +++|          LX6    X5,B1
07552  M01S07260.xedit   +++|          SB2    B1+B1
07553  M01S07261.xedit   +++|          BX7    X6+X5
07554  M01S07262.xedit   +++|          LX4    X7,B2
07555  M01S07263.xedit   +++|          SA3    HLPI        =10HHHHHHHHHHH
07556  M01S07264.xedit   +++|          BX6    X4+X7
07557  M01S07265.xedit   +++|          LX7    -2
07558  M01S07266.xedit   +++|          BX4    X6+X7
07559  M01S07267.xedit   +++|          BX3    X3*X4       BIT 3 OF CHAR SET IF CHAR NOT ZERO
07560  M01S07268.xedit   +++|          AX7    X3,B1
07561  M01S07269.xedit   +++|          BX0    X5          MASK
07562  M01S07270.xedit   +++|          BX4    X7+X3
07563  M01S07271.xedit   +++|          LX7    X4,B2
07564  M01S07272.xedit   +++|          BX6    X4+X7
07565  M01S07273.xedit   +++|          AX7    X4,B2
07566  M01S07274.xedit   +++|          BX0    X6+X7       COMMAND MASK
07567  M01S07275.xedit   +++| HLP15    MX6    0
07568  M01S07276.xedit   +++|          SA6    E.SCR+3
07569  M01S07277.xedit   +++|          READC  XEDITI,E.SCR,8
07570  M01S07278.xedit   +++|          ZR     X1,HLP16    IF NO EOF/EOR
07571  M01S07279.xedit   +++|          RECALL X2
07572  M01S07280.xedit   +++|          WRITEC OUTPUT,HLPG
07573  M01S07281.xedit   +++|          EQ     NCM         EXIT
07574  M01S07282.xedit   +++|
07575  M01S07283.xedit   +++| HLP16    SA1    HLPJ
07576  M01S07284.xedit   +++|          ZR     X1,HLP17    IF HELP ENTRY EXPECTED
07577  M01S07285.xedit   +++|          SA1    E.SCR+3
07578  M01S07286.xedit   +++|          SA3    =6L    -
07579  M01S07287.xedit   +++|          BX6    X1-X3
07580  M01S07288.xedit   +++|          LX6    6*6         SHIFT CHARACTER AFTER - TO CHARACTER 9
07581  M01S07289.xedit   +++|          AX6    6           PROCESS CBR/CCR DIFFERENCE
07582  M01S07290.xedit   +++|          SA6    HLPJ        SET HELP ENTRY EXPECTED IF - IN COL 35
07583  M01S07291.xedit   +++|          EQ     HLP15       READ NEXT LINE
07584  M01S07292.xedit   +++|
07585  M01S07293.xedit   +++| HLP17    SA1    E.SCR
07586  M01S07294.xedit   +++|          ZR     X1,HLP15    IF BLANK LINE
07587  M01S07295.xedit   +++|          BX2    X1
07588  M01S07296.xedit   +++|          LX2    2*6
07589  M01S07297.xedit   +++|          SX2    X2-2R
07590  M01S07298.xedit   +++|          ZR     X2,HLP15    IF LINE BEGINS WITH 2 BLANKS
07591  M01S07299.xedit   +++|          AX1    54
07592  M01S07300.xedit   +++|          SX6    X1-1R>-777700B
07593  M01S07301.xedit   +++|          ZR     X6,HLP15    IF PAGINATION
07594  M01S07302.xedit   +++|          SA6    HLPJ        CLEAR HELP ENTRY EXPECTED FLAG
07595  M01S07303.xedit   +++|          SA1    A1
07596  M01S07304.xedit   +++|          BX3    X1-X5       CHECK FOR COMMAND MATCH
07597  M01S07305.xedit   +++|          BX6    X0*X3
07598  M01S07306.xedit   +++|          NZ     X6,HLP15    IF NO MATCH
07599  M01S07307.xedit   +++|          BX7    X0
07600  M01S07308.xedit   +++|          AX7    6
07601  M01S07309.xedit   +++|          BX7    -X0*X7      MASK FOR NEXT CHARACTER
07602  M01S07310.xedit   +++|
07603  M01S07311.xedit   +++|*         NO COMMAND IS .GE. 9 CHARACTERS IN LENGTH.
07604  M01S07312.xedit   +++|
07605  M01S07313.xedit   +++|          SA2    =10H
07606  M01S07314.xedit   +++|          BX2    X1-X2       COMPARE WITH BLANK
07607  M01S07315.xedit   +++|          BX3    X7*X1
07608  M01S07316.xedit   +++|          BX2    X7*X2
07609  M01S07317.xedit   +++|          ZR     X3,HLP17.1  IF NEXT CHARACTER IS 00B
07610  M01S07318.xedit   +++|          NZ     X2,HLP15    IF NEXT CHARACTOR IS NOT BLANK (55B)
07611  M01S07319.xedit   +++| HLP17.1  SA1    CSMR
07612  M01S07320.xedit   +++|          PL     X1,HLP18    IF 63 CHARACTER SET
07613  M01S07321.xedit   +++|          SA2    BATCH
07614  M01S07322.xedit   +++|          NZ     X2,HLP18    IF BATCH MODE
07615  M01S07323.xedit   +++|          SA1    AS
07616  M01S07324.xedit   +++|          ZR     X1,HLP18    IF ALREADY IN NORMAL CHARACTER SET MODE
07617  M01S07325.xedit   +++|          CSET   NORMAL
07618  M01S07326.xedit   +++|
07619  M01S07327.xedit   +++|*         A MATCH IS FOUND IN THE XEDIT HELP FILE.  LIST ENTRY.
07620  M01S07328.xedit   +++|
07621  M01S07329.xedit   +++| HLP18    WRITEC OUTPUT,E.SCR
07622  M01S07330.xedit   +++|          RJ     HTI         CHECK FOR INTERRUPT
07623  M01S07331.xedit   +++| HLP19    READC  XEDITI,E.SCR
07624  M01S07332.xedit   +++|          NZ     X1,HLP20    IF EOF/EOR
07625  M01S07333.xedit   +++|          SA1    E.SCR+3
07626  M01S07334.xedit   +++|          SA2    =6L    -
07627  M01S07335.xedit   +++|          BX3    X1-X2
07628  M01S07336.xedit   +++|          LX3    6*6
07629  M01S07337.xedit   +++|          AX3    6           REMOVE CHARACTOR 36
07630  M01S07338.xedit   +++|          ZR     X3,HLP20    IF END OF ENTRY
07631  M01S07339.xedit   +++|          SA1    E.SCR
07632  M01S07340.xedit   +++|          AX1    54
07633  M01S07341.xedit   +++|          SB2    X1-1R>-777700B
07634  M01S07342.xedit   +++|          ZR     B2,HLP19    IF PAGEINATION
07635  M01S07343.xedit   +++|          EQ     HLP18       WRITE NEXT LINE
07636  M01S07344.xedit   +++|
07637  M01S07345.xedit   +++| HLP20    RECALL XEDITI
07638  M01S07346.xedit   +++|          EQ     HLP23       EXIT
07639  M01S07347.xedit   +++|
07640  M01S07348.xedit   +++| HLP21    SA1    CSMR
07641  M01S07349.xedit   +++|          PL     X1,HLP22    IF 63 CHARACTER SET
07642  M01S07350.xedit   +++|          SA2    BATCH
07643  M01S07351.xedit   +++|          NZ     X2,HLP22    IF BATCH MODE
07644  M01S07352.xedit   +++|          SA1    AS
07645  M01S07353.xedit   +++|          ZR     X1,HLP22    IF ALREADY IN NORMAL MODE
07646  M01S07354.xedit   +++|          CSET   NORMAL
07647  M01S07355.xedit   +++| HLP22    BSS    0
07648  M01S07356.xedit   +++|          WRITEW OUTPUT,HLPC,HLPD
07649  M01S07357.xedit   +++| HLP23    RJ     HTI         CHECK FOR INTERRUPT
07650  M01S07358.xedit   +++|          SA1    CSMR
07651  M01S07359.xedit   +++|          PL     X1,NCM      IF 63 CHARACTER SET, EXIT
07652  M01S07360.xedit   +++|          SA2    BATCH
07653  M01S07361.xedit   +++|          NZ     X2,NCM      IF IN BATCH MODE
07654  M01S07362.xedit   +++|          SA1    AS
07655  M01S07363.xedit   +++|          ZR     X1,NCM      IF TERMINAL WAS IN NORMAL MODE
07656  M01S07364.xedit   +++|          WRITER OUTPUT,RECALL
07657  M01S07365.xedit   +++|          CSET   ASCII
07658  M01S07366.xedit   +++|          EQ     NCM         RETURN
07659  M01S07367.xedit   +++|
07660  M01S07368.xedit   +++| HLPA     BSS    0
07661  M01S07369.xedit   +++| HELPSP   HERE               ASSEMBLY SPECIAL FORMS
07662  M01S07370.xedit   +++|          DATA   0
07663  M01S07371.xedit   +++|
07664  M01S07372.xedit   +++| D        OPSYN  DATA
07665  M01S07373.xedit   +++| HLPC     BSS    0
07666  M01S07374.xedit   +++|  D C*THE FOLLOWING IS A LIST OF ALL XEDIT COMMANDS AND IN BRACKETS,*
07667  M01S07375.xedit   +++|  D C*THEIR ABBREVIATIONS.*
07668  M01S07376.xedit   +++|  D C*  *
07669  M01S07377.xedit   +++|          MHELP  (.)
07670  M01S07378.xedit   +++|          MHELP  (-)
07671  M01S07379.xedit   +++| HELP     HERE
07672  M01S07380.xedit   +++|          DATA   C$"MH1"$    ASSEMBLE LAST LINE
07673  M01S07381.xedit   +++|  D C*  *
07674  M01S07382.xedit   +++|  D C*ANY COMMAND MAY BE PREFIXED BY ANY NUMBER OR COMBINATION OF *
07675  M01S07383.xedit   +++|  D 30HTHE PREFIX CHARACTERS - *X*, *
07676  M01S07384.xedit   +++|  VFD  30/5H/*, *
07677  M01S07385.xedit   +++|  CHAR (VFD 6/0),UA.
07678  M01S07386.xedit   +++|  VFD  24/4H*, O
07679  M01S07387.xedit   +++|  DATA C-R *+*.-
07680  M01S07388.xedit   +++|  D C*  *
07681  M01S07389.xedit   +++|  D C*A COMPLETE WRITEUP ON XEDIT IS AVAILABLE ON THE LIBRARY FILE*
07682  M01S07390.xedit   +++|  VFD  30/5H#XEDI
07683  M01S07391.xedit   +++|  CHAR (VFD 12/0),FN.
07684  M01S07392.xedit   +++|  VFD  18/3H.#
07685  M01S07393.xedit   +++|  D C*  *
07686  M01S07394.xedit   +++|  D C*INFORMATION FOR A SPECIFIC COMMAND OR PREFIX CHARACTER MAY BE*
07687  M01S07395.xedit   +++|  D C*OBTAINED BY ENTERING THE COMMAND -*
07688  M01S07396.xedit   +++|  VFD  24/4H
07689  M01S07397.xedit   +++|  CHAR (VFD 6/0),QM.
07690  M01S07398.xedit   +++|  CHAR (VFD 6/0),QM.
07691  M01S07399.xedit   +++|  VFD  24/4H HEL
07692  M01S07400.xedit   +++|  DATA 10HP,CMD    -
07693  M01S07401.xedit   +++|  VFD  42/7HOR-
07694  M01S07402.xedit   +++|  CHAR (VFD 6/0),QM.
07695  M01S07403.xedit   +++|  CHAR (VFD 6/0),QM.
07696  M01S07404.xedit   +++|  VFD  6/1R
07697  M01S07405.xedit   +++|  DATA C*H,CMD*
07698  M01S07406.xedit   +++|  D C*WHERE CMD IS THE PREFIX OR POSTFIX CHARACTER OR THE COMMAND*
07699  M01S07407.xedit   +++|  D C*TO BE EXPLAINED.*
07700  M01S07408.xedit   +++| HLPD     EQU    *-HLPC
07701  M01S07409.xedit   +++|
07702  M01S07410.xedit   +++| HLPE     DATA   H*COMMAND NOT FOUND -*
07703  M01S07411.xedit   +++| HLPF     DATA   C*COMMAND   *
07704  M01S07412.xedit   +++| HLPG     DATA   H*NO HELP ENTRY FOUND FOR  -*
07705  M01S07413.xedit   +++| HLPH     DATA   C*COMMAND   *
07706  M01S07414.xedit   +++| HLPI     DATA   10HHHHHHHHHHH
07707  M01S07415.xedit   +++| HLPJ     DATA   0           HELP ENTRY EXPECTED FLAG
07708  M01S07416.xedit   +++| HLPK     DATA   0           IF ZERO, GET XEDITI FILE
07709  M01S07417.xedit   +++|          SPACE 4,20
07710  M01S07418.xedit   +++|**        HTI - *HELP* COMMAND TELEX INTERRUPT PROCESSOR.
07711  M01S07419.xedit   +++|*
07712  M01S07420.xedit   +++|*         ENTRY  NONE.
07713  M01S07421.xedit   +++|*
07714  M01S07422.xedit   +++|*         EXIT   RETURNS TO CALLER IF NO TLX INTERRUPT SENSED,
07715  M01S07423.xedit   +++|*                ELSE REWINDS THE OUTPUT BUFFER, RESETS THE
07716  M01S07424.xedit   +++|*                CHARACTER SET AND EXITS TO *CER1* TO POP THE
07717  M01S07425.xedit   +++|*                INPUT STACK.
07718  M01S07426.xedit   +++|*
07719  M01S07427.xedit   +++|*         USES   A - 1, 2, 6.
07720  M01S07428.xedit   +++|*                X - 1, 2, 6.
07721  M01S07429.xedit   +++|*
07722  M01S07430.xedit   +++|*         MACROS CSET, DISTC, RECALL.
07723  M01S07431.xedit   +++|
07724  M01S07432.xedit   +++| HTI      PS                 ENTRY/EXIT.
07725  M01S07433.xedit   +++|          MX6    0
07726  M01S07434.xedit   +++|          SA2    TLX
07727  M01S07435.xedit   +++|          ZR     X2,HTI      IF NO INTERRUPT, RETURN
07728  M01S07436.xedit   +++|          SA6    A2
07729  M01S07437.xedit   +++|          DISTC  ON,A2
07730  M01S07438.xedit   +++|          RECALL OUTPUT
07731  M01S07439.xedit   +++|          SA1    =XOUTPUT+1
07732  M01S07440.xedit   +++|          MX6    -18
07733  M01S07441.xedit   +++|          BX6    -X6*X1
07734  M01S07442.xedit   +++|          SA6    A1+B1       IN=OUT=FIRST
07735  M01S07443.xedit   +++|          SA6    A6+B1
07736  M01S07444.xedit   +++|          SA2    BATCH
07737  M01S07445.xedit   +++|          NZ     X2,CER1     IF IN BATCH
07738  M01S07446.xedit   +++|          SA2    AS
07739  M01S07447.xedit   +++|          ZR     X2,CER1     IF ALREADY IN NORMAL CHAR SET MODE
07740  M01S07448.xedit   +++|          CSET   RESTORE
07741  M01S07449.xedit   +++|          EQ     CER1        EXIT, POP INPUT STACK
07742  M01S07450.xedit   +++|
07743  M01S07451.xedit   +++| XEDITI   BSS    0
07744  M01S07452.xedit   +++|          CHAR=  24D,XEDI,FN.   -TI- OR -64-
07745  M01S07453.xedit   +++| XEDI     FILEB  XBUF,1001B,FET=12,USN=LIBRARY,EPR
07746  M01S07454.xedit   +++|
07747  M01S07455.xedit   +++|          USE    BUFFERS
07748  M01S07456.xedit   +++| XBUFL    EQU    1001B
07749  M01S07457.xedit   +++| XBUF     EQU    *           XEDITI BUFFER
07750  M01S07458.xedit   +++| LWA      EQU    XBUF+XBUFL+17B
07751  M01S07459.xedit   +++|
07752  M01S07460.xedit   +++|          USE    SETCHAR
07753  M01S07461.xedit   +++|          DATA   0           SET END OF CHARACTER PRESET
07754  M01S07462.xedit   +++|          USE    *
07755  M01S07463.xedit   +++|          HERE               ASSEMBLE THE DEFERRED EXPLAIN ENTRY DATA
07756  M01S07464.xedit   +++|          OVLDEF   2,(LOW USAGE COMMANDS)
07757  M01S07465.xedit   +++|          TITLE  LOCAL FETS AND STORAGE.
07758  M01S07466.xedit   +++|**        FETS.
07759  M01S07467.xedit   +++|
07760  M01S07468.xedit   +++| RFET     FILEC  RBUF,BUFRL,EPR,FET=7
07761  M01S07469.xedit   +++|          TITLE  COMMAND PROCESSORS.
07762  M01S07470.xedit   +++| CPY      SPACE  4,15
07763  M01S07471.xedit   +++|**        CPY - COPY/COPYD PROCESSORS.
07764  M01S07472.xedit   +++|*
07765  M01S07473.xedit   +++|*         ENTRY  (COPY) = NAME OF LAST COPY FILE.
07766  M01S07474.xedit   +++|*
07767  M01S07475.xedit   +++|*         EXIT   TO *NCM*, COPY COMPLETE.
07768  M01S07476.xedit   +++|*
07769  M01S07477.xedit   +++|*         USES   A - 0, 1, 2, 3, 4, 5, 6.
07770  M01S07478.xedit   +++|*                X - ALL.
07771  M01S07479.xedit   +++|*
07772  M01S07480.xedit   +++|*         CALLS  LOC, RDF, VFY, WTF.
07773  M01S07481.xedit   +++|*
07774  M01S07482.xedit   +++|*         MACROS REWIND, WRITEC, WRITER.
07775  M01S07483.xedit   +++|
07776  M01S07484.xedit   +++|
07777  M01S07485.xedit   +++| CPY11    MX6    0           SET NOMOD WHEN USING COPYD
07778  M01S07486.xedit   +++|          SA6    NOMOD
07779  M01S07487.xedit   +++| CPY      SA5    IFN

Line S07488 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit23`

Seq #  *Modification Id* Act 
----------------------------+
07780  M02S07488.xedit23 ---|          SA2    COPY
07781  M01S00013.xedit23 +++|          SA3    ISFN
07782  M01S00014.xedit23 +++|          SB2    BFN.*100B+3 * RESERVED FILE NAME *
07783  M01S00015.xedit23 +++|          SA2    COPY
07784  M01S00016.xedit23 +++|          BX3    X5-X3
07785  M01S00017.xedit23 +++|          ZR     X3,CER      IF COPY TO EDIT FILE
07786  M01S07489.xedit   +++|          BX0    X2-X5       =0 IF COPY TO SAME FILE
07787  M01S07490.xedit   +++|          LX6    X5
07788  M01S07491.xedit   +++|          SX7    B1
07789  M01S07492.xedit   +++|          SA6    A2          SAVE COPY FILE NAME
07790  M01S07493.xedit   +++|          BX5    X5+X7       MERGE COMPLETE BIT
07791  M01S07494.xedit   +++|          ZR     X0,CPY1     IF CONSECUTIVE COPIES
07792  M01S07495.xedit   +++|          ZR     X2,CPY1     IF NO PREVIOUS COPY FILE
07793  M01S07496.xedit   +++|          WRITER FTD,RECALL
07794  M01S07497.xedit   +++|          REWIND FTD,RECALL
07795  M01S07498.xedit   +++| CPY1     SA0    FTD         SET FET ADDRESS
07796  M01S07499.xedit   +++|          SA1    GFNB
07797  M01S07500.xedit   +++|
07798  M01S07501.xedit   +++|*         DETERMINE IF THE FILE NAME IS A SPECIAL ONE.
07799  M01S07502.xedit   +++|
07800  M01S07503.xedit   +++| CPY2     BX2    X1-X5
07801  M01S07504.xedit   +++|          AX2    17
07802  M01S07505.xedit   +++|          ZR     X2,CPY10    IF SPECIAL NAME
07803  M01S07506.xedit   +++|          SA1    A1+B1
07804  M01S07507.xedit   +++|          NZ     X1,CPY2     IF MORE IN LIST
07805  M01S07508.xedit   +++|          BX6    X5
07806  M01S07509.xedit   +++|          ZR     X0,CPY3     IF CONSECUTIVE COPIES
07807  M01S07510.xedit   +++|          SA6    FTD         PUT NAME INTO FET
07808  M01S07511.xedit   +++|          REWIND A6,RECALL
07809  M01S07512.xedit   +++|
07810  M01S07513.xedit   +++|*         PREPARE FOR A COPY OPERATION.
07811  M01S07514.xedit   +++|
07812  M01S07515.xedit   +++| CPY3     SA1    INDEX
07813  M01S07516.xedit   +++|          SX5    X1-.COPY    =0 IF NOT TO DELETE
07814  M01S07517.xedit   +++| CPY4     RJ     LOC         ATTEMPT TO LOCATE LINE
07815  M01S07518.xedit   +++|          ZR     B5,CPY8     IF NOT FOUND
07816  M01S07519.xedit   +++|          SX1    A0-OUTPUT
07817  M01S07520.xedit   +++|          ZR     X1,CPY5     IF OUTPUT (IF VERIFY = DUPLICATE LINES)
07818  M01S07521.xedit   +++|          RJ     VRY         VERIFY LOCATE
07819  M01S07522.xedit   +++| CPY5     WRITEC A0,E.LINE   PLACE LINE
07820  M01S07523.xedit   +++|          SA1    NUMS

Line S07524 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
07821  M02S07524.xedit21 ---|          SX6    X1-1
07822  M01S00079.xedit21 +++|          SX6    B1
07823  M01S00080.xedit21 +++|          IX6    X1-X6
07824  M01S07525.xedit   +++|          AX1    1
07825  M01S07526.xedit   +++|          ZR     X1,CPY9     IF COUNT FINISHED
07826  M01S07527.xedit   +++|          SA6    A1
07827  M01S07528.xedit   +++| CPY6     NZ     X5,CPY7     IF *COPYD* COMMAND
07828  M01S07529.xedit   +++|          RJ     WTF
07829  M01S07530.xedit   +++| CPY7     RJ     RDF
07830  M01S07531.xedit   +++|          EQ     CPY4        PROCESS NEXT LINE
07831  M01S07532.xedit   +++|
07832  M01S07533.xedit   +++|*         LINE IS NOT FOUND.
07833  M01S07534.xedit   +++|
07834  M01S07535.xedit   +++| CPY8     SA1    NUMS
07835  M01S07536.xedit   +++|          NG     X1,LCT4     IF STRING NOT FOUND
07836  M01S07537.xedit   +++|          WRITEC A0,E.LINE
07837  M01S07538.xedit   +++|          EQ     CPY6        COPY LINE
07838  M01S07539.xedit   +++|
07839  M01S07540.xedit   +++|*         CLEANUP FROM COMMAND.
07840  M01S07541.xedit   +++|
07841  M01S07542.xedit   +++| CPY9     ZR     X5,NCM      IF NOT COPYD
07842  M01S07543.xedit   +++|          RJ     RDF         CREAM EXISTING LINE
07843  M01S07544.xedit   +++|          EQ     NCM         EXIT
07844  M01S07545.xedit   +++|
07845  M01S07546.xedit   +++|*         PROCESS SPECIAL FILES.
07846  M01S07547.xedit   +++|
07847  M01S07548.xedit   +++| CPY10    SA3    A1+CPYA-GFNB
07848  M01S07549.xedit   +++|          SA4    X3          GET ACTUAL NAME TO USE
07849  M01S07550.xedit   +++|          AX3    18
07850  M01S07551.xedit   +++|          BX6    X4
07851  M01S07552.xedit   +++|          SA0    X3          SET FET TO USE
07852  M01S07553.xedit   +++|          SA6    FTD
07853  M01S07554.xedit   +++|          EQ     CPY3        PERFORM COPY
07854  M01S07555.xedit   +++|
07855  M01S07556.xedit   +++|*         TABLE OF SPECIAL FILE OPERATIONS.
07856  M01S07557.xedit   +++|*         VFD    42/FET ADDR,18/FILE NAME
07857  M01S07558.xedit   +++|
07858  M01S07559.xedit   +++| CPYA     VFD    42/FTD,18/=0    *NULL* FILE
07859  M01S07560.xedit   +++|          VFD    42/OUTPUT,18/=0    *OUTPUT* FILE
07860  M01S07561.xedit   +++| A        SET *-CPYA
07861  M01S07562.xedit   +++|          BSSZ   GFNBL-A     SCRATCH REST (WILL EXPLODE IF USED)
07862  M01S07563.xedit   +++| DLB      SPACE  4,10
07863  M01S07564.xedit   +++|**        DLB - DELETE LEADING BLANKS.
07864  M01S07565.xedit   +++|*
07865  M01S07566.xedit   +++|*         ENTRY  (NUMS) = NUMBER OF LINES TO PROCESS.
07866  M01S07567.xedit   +++|*
07867  M01S07568.xedit   +++|*         EXIT   TO *NCM*.
07868  M01S07569.xedit   +++|*
07869  M01S07570.xedit   +++|*         USES   A - 1, 6, 7.
07870  M01S07571.xedit   +++|*                X - 1, 5, 6, 7.
07871  M01S07572.xedit   +++|*                B - 2, 3.
07872  M01S07573.xedit   +++|*
07873  M01S07574.xedit   +++|*         CALLS  RDF, SAC, WTF.
07874  M01S07575.xedit   +++|
07875  M01S07576.xedit   +++|
07876  M01S07577.xedit   +++| DLB      SA1    NUMS

Line S07578 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
07877  M02S07578.xedit21 ---|          SX6    X1-1
07878  M01S00081.xedit21 +++|          SX6    B1
07879  M01S00082.xedit21 +++|          IX6    X1-X6
07880  M01S07579.xedit   +++|+         SA6    A1
07881  M01S07580.xedit   +++|          MX5    -0          SET NO MODIFICATIONS
07882  M01S07581.xedit   +++|          RJ     SAC         SET ASCII PROCESSING
07883  M01S07582.xedit   +++| DLB1     SA1    E.STR-1
07884  M01S07583.xedit   +++|          SB3    -1R
07885  M01S07584.xedit   +++|          SX7    -1          RESET CHARACTER COUNTER
07886  M01S07585.xedit   +++|
07887  M01S07586.xedit   +++| DLB2     SA1    A1+B1       SEARCH FOR FIRST NON-BLANK
07888  M01S07587.xedit   +++|          SB2    B3+X1
07889  M01S07588.xedit   +++|          NG     X1,DLB6     IF END OF LINE (ALL BLANKS)
07890  M01S07589.xedit   +++|          ZR     B2,DLB2     IF CHARACTER IS A BLANK
07891  M01S07590.xedit   +++|          SX6    A1-E.STR
07892  M01S07591.xedit   +++|          ZR     X6,DLB4     IF NO LEADING BLANKS
07893  M01S07592.xedit   +++| DLB3     BX6    X1          REPACK CHARACTERS
07894  M01S07593.xedit   +++|          SX7    X7+B1       INCREMENT CHARACTER COUNT
07895  M01S07594.xedit   +++|          SA6    E.STR+X7
07896  M01S07595.xedit   +++|          SA1    A1+B1
07897  M01S07596.xedit   +++|          PL     X6,DLB3     IF NOT AT END OF LINE
07898  M01S07597.xedit   +++|          SX6    B1
07899  M01S07598.xedit   +++|          MX5    0           SET MODIFICATIONS MADE TO FILE
07900  M01S07599.xedit   +++|          SA7    E.STR-1     SET NUMBER OF CHARACTERS IN LINE
07901  M01S07600.xedit   +++|          SA6    E.LMOD      SET MODIFICATION MADE TO LINE
07902  M01S07601.xedit   +++|
07903  M01S07602.xedit   +++|*         CHECK FOR MORE LINES TO PROCESS.
07904  M01S07603.xedit   +++|
07905  M01S07604.xedit   +++| DLB4     SA1    NUMS

Line S07605 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
07906  M02S07605.xedit21 ---|          SX6    X1-1
07907  M01S00083.xedit21 +++|          SX6    B1+
07908  M01S00084.xedit21 +++|          IX6    X1-X6
07909  M01S07606.xedit   +++|          SA6    A1
07910  M01S07607.xedit   +++|          NG     X6,DLB5     IF FINISHED
07911  M01S07608.xedit   +++|          RJ     WTF
07912  M01S07609.xedit   +++|          RJ     RDF
07913  M01S07610.xedit   +++|          EQ     DLB1        PROCESS NEXT LINE
07914  M01S07611.xedit   +++| DLB5     SA1    NOMOD       UPDATE MODIFICATION STATUS
07915  M01S07612.xedit   +++|          BX6    X5*X1
07916  M01S07613.xedit   +++|          SA6    A1
07917  M01S07614.xedit   +++|          EQ     NCM         EXIT
07918  M01S07615.xedit   +++|
07919  M01S07616.xedit   +++|*         PROCESS TOTALLY BLANK LINE.
07920  M01S07617.xedit   +++|
07921  M01S07618.xedit   +++| DLB6     MX5    0           SET MODIFICATION TO FILE
07922  M01S07619.xedit   +++|          RJ     RDF         READ NEXT LINE
07923  M01S07620.xedit   +++|          SA1    NUMS

Line S07621 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
07924  M02S07621.xedit21 ---|          SX6    X1-1
07925  M01S00085.xedit21 +++|          SX6    B1+
07926  M01S00086.xedit21 +++|          IX6    X1-X6
07927  M01S07622.xedit   +++|          NG     X6,DLB5     IF FINISHED
07928  M01S07623.xedit   +++|          SA6    A1
07929  M01S07624.xedit   +++|          EQ     DLB1        PROCESS NEXT LINE
07930  M01S07625.xedit   +++|
07931  M01S07626.xedit   +++| LTB      SPACE  4,15
07932  M01S07627.xedit   +++|**        LTB - LIST TAB SETTINGS.
07933  M01S07628.xedit   +++|*
07934  M01S07629.xedit   +++|*         ENTRY  (TABS) = TAB SETTINGS.
07935  M01S07630.xedit   +++|*
07936  M01S07631.xedit   +++|*         EXIT   TO *NCM*.
07937  M01S07632.xedit   +++|*
07938  M01S07633.xedit   +++|*         USES   A - 1, 2, 5, 6, 7.
07939  M01S07634.xedit   +++|*                X - 1, 2, 3, 4, 5, 6, 7.
07940  M01S07635.xedit   +++|*                B - 4, 5, 6, 7.
07941  M01S07636.xedit   +++|*
07942  M01S07637.xedit   +++|*         CALLS  CDD.
07943  M01S07638.xedit   +++|*
07944  M01S07639.xedit   +++|*         MACROS WRITEC.
07945  M01S07640.xedit   +++|
07946  M01S07641.xedit   +++|
07947  M01S07642.xedit   +++| LTB      BSS    0
07948  M01S07643.xedit   +++|          SB1    1
07949  M01S07644.xedit   +++|          SA5    TABS
07950  M01S07645.xedit   +++|          SB6    LTBA+1
07951  M01S07646.xedit   +++|          SB7    B0
07952  M01S07647.xedit   +++| LTB1     SA1    A5+B7       PUT CURRENT TABS INTO MESSAGE
07953  M01S07648.xedit   +++|          MX5    0
07954  M01S07649.xedit   +++|          ZR     X1,LTB2     IF END OF TABS
07955  M01S07650.xedit   +++|          RJ     CDD         CONSTRUCT MESSAGE
07956  M01S07651.xedit   +++|          LX4    60-6
07957  M01S07652.xedit   +++|          BX5    X4
07958  M01S07653.xedit   +++|          SB7    B7+B1
07959  M01S07654.xedit   +++|          SA1    A5+B7
07960  M01S07655.xedit   +++|          ZR     X1,LTB2     IF END OF TABS
07961  M01S07656.xedit   +++|          RJ     CDD
07962  M01S07657.xedit   +++|          SB4    6*4
07963  M01S07658.xedit   +++|          SB4    B4-B2
07964  M01S07659.xedit   +++|          LX6    B4,X6
07965  M01S07660.xedit   +++|          MX7    6*6
07966  M01S07661.xedit   +++|          BX5    X7*X5
07967  M01S07662.xedit   +++|          BX6    -X7*X6
07968  M01S07663.xedit   +++|          BX6    X6+X5
07969  M01S07664.xedit   +++|          SA6    B6
07970  M01S07665.xedit   +++|          SB6    B6+B1
07971  M01S07666.xedit   +++|          SB5    8
07972  M01S07667.xedit   +++|          SB7    B7+B1
07973  M01S07668.xedit   +++|          LT     B7,B5,LTB1  IF NOT FINISHED WITH TABS
07974  M01S07669.xedit   +++|          MX5    0
07975  M01S07670.xedit   +++| LTB2     BX7    X5
07976  M01S07671.xedit   +++|          SA7    B6
07977  M01S07672.xedit   +++|          MX7    0
07978  M01S07673.xedit   +++|          SA7    B6+B1       PUT EOL AFTER LAST TAB
07979  M01S07674.xedit   +++|          SA1    TABCHAR     PUT CURRENT TAB CHARACTER INTO MESSAGE
07980  M01S07675.xedit   +++|          PL     X1,LTB3     IF TAB CHARACTER IS DEFINED
07981  M01S07676.xedit   +++|          SX1    1R
07982  M01S07677.xedit   +++| LTB3     LX1    7*6
07983  M01S07678.xedit   +++|          MX6    6
07984  M01S07679.xedit   +++|          SA2    LTBA
07985  M01S07680.xedit   +++|          LX6    7*6+6
07986  M01S07681.xedit   +++|          BX7    -X6*X2      PUT LOWER PART OF CHARACTER
07987  M01S07682.xedit   +++|          BX7    X7+X1
07988  M01S07683.xedit   +++|          LX6    6
07989  M01S07684.xedit   +++|          BX3    X6*X1
07990  M01S07685.xedit   +++|          NZ     X3,LTB4     IF NOT ASCII CHARACTER
07991  M01S07686.xedit   +++|          SX1    1R
07992  M01S07687.xedit   +++|          LX1    8*6         POSITION
07993  M01S07688.xedit   +++| LTB4     BX7    -X6*X7
07994  M01S07689.xedit   +++|          BX7    X7+X1
07995  M01S07690.xedit   +++|          SA7    A2
07996  M01S07691.xedit   +++|          WRITEC OUTPUT,LTBA
07997  M01S07692.xedit   +++|          EQ     NCM         EXIT
07998  M01S07693.xedit   +++|
07999  M01S07694.xedit   +++| LTBA     DATA   10H    TABS
08000  M01S07695.xedit   +++|          BSSZ   NTABS/2+2
08001  M01S07696.xedit   +++| NBL      SPACE  4
08002  M01S07697.xedit   +++|**        NBL - CHANGE ERROR MESSAGES TO CONTAIN NO BELLS.
08003  M01S07698.xedit   +++|*
08004  M01S07699.xedit   +++|*         ENTRY  NONE.
08005  M01S07700.xedit   +++|*
08006  M01S07701.xedit   +++|*         EXIT   TO *NCM*.
08007  M01S07702.xedit   +++|*
08008  M01S07703.xedit   +++|*         USES   A - 1.
08009  M01S07704.xedit   +++|*                X - 1.
08010  M01S07705.xedit   +++|*
08011  M01S07706.xedit   +++|*         MACROS MOVE.
08012  M01S07707.xedit   +++|*
08013  M01S07708.xedit   +++|*         NOTES  THIS COMMAND SWITCHES THE ERROR MESSAGES ISSUED TO A
08014  M01S07709.xedit   +++|*                TIME SHARING TERMINAL TO THOSE CONTAINING NO BELLS.
08015  M01S07710.xedit   +++|*                THIS COMMAND FROM A BATCH JOB FUNCTIONS AS A NO-OP.
08016  M01S07711.xedit   +++|
08017  M01S07712.xedit   +++|
08018  M01S07713.xedit   +++| NBL      SA1    BATCH
08019  M01S07714.xedit   +++|          NZ     X1,NCM      IF BATCH ORIGIN
08020  M01S07715.xedit   +++|          MOVE   NBLAL,NBLA,MESSAGE+1  SWITCH MESSAGES
08021  M01S07716.xedit   +++|          EQ     NCM         EXIT
08022  M01S07717.xedit   +++|
08023  M01S07718.xedit   +++| NBLA     BSS    0           TABLE OF ERROR MESSAGES
08024  M01S07719.xedit   +++| ERROVL   HERE
08025  M01S07720.xedit   +++| NBLAL    EQU    *-NBLA
08026  M01S07721.xedit   +++| OCT      SPACE  4,20
08027  M01S07722.xedit   +++|**        OCT - PROCESS OCTCHANGE COMMAND.
08028  M01S07723.xedit   +++|*
08029  M01S07724.xedit   +++|*         ENTRY  (NUMS) = FWA OF PARAMETERS.
08030  M01S07725.xedit   +++|*                (NUMS+1) = LWA OF PARAMETERS.
08031  M01S07726.xedit   +++|*
08032  M01S07727.xedit   +++|*         EXIT   TO *NCM*, IF CHANGE COMPLETE.
08033  M01S07728.xedit   +++|*                TO *CER*, IF ARGUMENT ERROR.
08034  M01S07729.xedit   +++|*                TO *LCT4*, IF STRING NOT FOUND.
08035  M01S07730.xedit   +++|*
08036  M01S07731.xedit   +++|*         USES   A - 0, 1, 5, 6, 7.
08037  M01S07732.xedit   +++|*                X - ALL.
08038  M01S07733.xedit   +++|*                B - 4, 6, 7.
08039  M01S07734.xedit   +++|*
08040  M01S07735.xedit   +++|*         CALLS  ASF, CHS, RCP, RDF, RTA, RTR, SCP, VAL,
08041  M01S07736.xedit   +++|*                VRY, WTF.
08042  M01S07737.xedit   +++|*
08043  M01S07738.xedit   +++|*         MACROS MOVE.
08044  M01S07739.xedit   +++|*
08045  M01S07740.xedit   +++|*         NOTES  *OCT* PROCESSES ONLY A SUBSET OF CHANGE OPTIONS.
08046  M01S07741.xedit   +++|
08047  M01S07742.xedit   +++|
08048  M01S07743.xedit   +++| OCT      BX7    X7-X7       CLEAR CELLS
08049  M01S07744.xedit   +++|          MX6    0
08050  M01S07745.xedit   +++|          SA6    P1LP
08051  M01S07746.xedit   +++|          SA7    P2RP
08052  M01S07747.xedit   +++|          SA6    A6+B1
08053  M01S07748.xedit   +++|          SA7    A7+B1
08054  M01S07749.xedit   +++|          SA6    A6+B1
08055  M01S07750.xedit   +++|          SA7    A7+B1
08056  M01S07751.xedit   +++|          RJ     SCP         SET COMMAND PAREMETERS
08057  M01S07752.xedit   +++|          ZR     X1,OCT12    IF NO PARAMETERS
08058  M01S07753.xedit   +++|          SX6    D.STR+1
08059  M01S07754.xedit   +++|          SB6    B0          SET FIRST PASS
08060  M01S07755.xedit   +++|          MX1    1           SET POSITION
08061  M01S07756.xedit   +++|          SA7    D.STR       SET FWA OF CREATED STRING -1
08062  M01S07757.xedit   +++|          SA6    P1LP        SET FIRST STRING POINTER
08063  M01S07758.xedit   +++|          BX7    X7-X7       CLEAR ASSEMBLY
08064  M01S07759.xedit   +++|
08065  M01S07760.xedit   +++|*         CONVERT OCTAL DIGITS.
08066  M01S07761.xedit   +++|
08067  M01S07762.xedit   +++| OCT1     NG     X5,OCT2     IF END OF PARAMETERS/LINE
08068  M01S07763.xedit   +++|          SX4    X5-1R0
08069  M01S07764.xedit   +++|          SX3    X5-1R7-1
08070  M01S07765.xedit   +++|          LX7    3
08071  M01S07766.xedit   +++|          BX3    -X4*X3      NEGATIVE IF OCTAL NUMBER
08072  M01S07767.xedit   +++|          PL     X3,OCT2     IF NOT A NUMBER
08073  M01S07768.xedit   +++|          BX7    X7+X4       MERGE
08074  M01S07769.xedit   +++|          SA5    A5+B1
08075  M01S07770.xedit   +++|          LX1    30          UPDATE POSITION
08076  M01S07771.xedit   +++|          PL     X1,OCT1     IF ON FIRST POSITION
08077  M01S07772.xedit   +++|          SA7    A7+B1       SAVE ASSEMBLY
08078  M01S07773.xedit   +++|          BX7    X7-X7
08079  M01S07774.xedit   +++|          EQ     OCT1        LOOP
08080  M01S07775.xedit   +++|
08081  M01S07776.xedit   +++| OCT2     PL     X1,OCT12    IF ON SECOND HALF (ERROR)
08082  M01S07777.xedit   +++|          SX6    A7+B1       GET LWA+1 FOR STRING
08083  M01S07778.xedit   +++|          SA6    A6+B1       SAVE ADDRESS
08084  M01S07779.xedit   +++|
08085  M01S07780.xedit   +++|*         SKIP TRAILING BLANKS/ONE COMMA.
08086  M01S07781.xedit   +++|
08087  M01S07782.xedit   +++| OCT3     SB4    X5-1R
08088  M01S07783.xedit   +++|          ZR     B4,OCT4     IF BLANK
08089  M01S07784.xedit   +++|          NE     B4,B1,OCT5  IF NOT COMMA
08090  M01S07785.xedit   +++|          NZ     X7,OCT5     IF NOT FIRST COMMA
08091  M01S07786.xedit   +++|
08092  M01S07787.xedit   +++| OCT4     SX7    B4+X7       UPDATE COMMA STATUS
08093  M01S07788.xedit   +++|          SA5    A5+B1
08094  M01S07789.xedit   +++|          EQ     OCT3        PROCESS NEXT CHARACTER
08095  M01S07790.xedit   +++|
08096  M01S07791.xedit   +++|*         CHECK WHICH FIELD.
08097  M01S07792.xedit   +++|
08098  M01S07793.xedit   +++| OCT5     BX7    X7-X7       RESET ASSEMBLY
08099  M01S07794.xedit   +++|          SB6    B6+B1
08100  M01S07795.xedit   +++|          NE     B6,B1,OCT6  IF ON SECOND FIELD
08101  M01S07796.xedit   +++|          SX6    A7+B1
08102  M01S07797.xedit   +++|          SA6    P3LP        SET SECOND POINTER
08103  M01S07798.xedit   +++|          EQ     OCT1        PARSE SECOND STRING
08104  M01S07799.xedit   +++|
08105  M01S07800.xedit   +++| OCT6     RJ     VAL         GET REPETITION COUNT
08106  M01S07801.xedit   +++|          SA6    NUMS        SAVE COUNT
08107  M01S07802.xedit   +++|          PL     X5,OCT12    IF NOT END OF COMMAND
08108  M01S07803.xedit   +++|          RJ     ASF         GET STRING PARAMETERS
08109  M01S07804.xedit   +++|          NZ     B2,OCT12    IF ERROR IN ANALYSIS
08110  M01S07805.xedit   +++|          RJ     RCP         RESET COMMAND PARAMETERS
08111  M01S07806.xedit   +++|          SX6    M.CODED
08112  M01S07807.xedit   +++|          SA6    E.NMODE     SET BACK TO CODED
08113  M01S07808.xedit   +++|
08114  M01S07809.xedit   +++|*         BEGIN TO OCTCHANGE.
08115  M01S07810.xedit   +++|
08116  M01S07811.xedit   +++| OCT7     SB7    9
08117  M01S07812.xedit   +++|          SA1    E.LINE      BREAK LINE INTO 6 BIT PARTS
08118  M01S07813.xedit   +++|          MX3    -12
08119  M01S07814.xedit   +++|          SX6    B1          SET SOMETHING IN X6
08120  M01S07815.xedit   +++|          MX2    -6
08121  M01S07816.xedit   +++|          BX4    -X3*X1      GET END OF LINE BYTE
08122  M01S07817.xedit   +++|          SA6    E.STR-1
08123  M01S07818.xedit   +++|          SA0    OCBUF       SET FWA OF SCRATCH BUFFER
08124  M01S07819.xedit   +++| OCT8     LX1    6
08125  M01S07820.xedit   +++|          BX6    -X2*X1
08126  M01S07821.xedit   +++|          SB7    B7-B1
08127  M01S07822.xedit   +++|          SA6    A6+B1
08128  M01S07823.xedit   +++|          PL     B7,OCT8     IF MORE IN WORD
08129  M01S07824.xedit   +++|          ZR     X4,OCT9     IF END OF LINE
08130  M01S07825.xedit   +++|          SB7    9           RESET CHARACTER COUNT
08131  M01S07826.xedit   +++|          SA1    A1+B1
08132  M01S07827.xedit   +++|          BX4    -X3*X1
08133  M01S07828.xedit   +++|          EQ     OCT8        BREAK UP NEXT WORD
08134  M01S07829.xedit   +++|
08135  M01S07830.xedit   +++| OCT9     SA1    A6-B1
08136  M01S07831.xedit   +++|          MX6    2
08137  M01S07832.xedit   +++| OCT9.1   SA1    A1-B1
08138  M01S07833.xedit   +++|          ZR     X1,OCT9.1   IF LAST NON-BLANK NOT FOUND
08139  M01S07834.xedit   +++|          SA6    A1+B1
08140  M01S07835.xedit   +++|          SX7    A6-E.STR    SET NUMBER OF CHARACTERS IN LINE
08141  M01S07836.xedit   +++|          SA7    E.STR-1
08142  M01S07837.xedit   +++|          SX0    OCBUF+320D  SET LWA+1 OF BUFFER
08143  M01S07838.xedit   +++|          RJ     CHS         CHANGE STRING(S)
08144  M01S07839.xedit   +++|          ZR     B5,OCT13    IF STRING NOT FOUND
08145  M01S07840.xedit   +++|
08146  M01S07841.xedit   +++|*         COPY NEW LINE BACK INTO *E.STR*.
08147  M01S07842.xedit   +++|
08148  M01S07843.xedit   +++|          SA1    OCBUF
08149  M01S07844.xedit   +++|          MX7    0
08150  M01S07845.xedit   +++|          SA6    E.STR-1
08151  M01S07846.xedit   +++|          SA7    NOMOD       SET MODIFICATIONS MADE
08152  M01S07847.xedit   +++| OCT10    BX6    X1
08153  M01S07848.xedit   +++|          SA1    A1+B1
08154  M01S07849.xedit   +++|          SA6    A6+1
08155  M01S07850.xedit   +++|          PL     X6,OCT10    IF MORE
08156  M01S07851.xedit   +++|          SB6    E.STR
08157  M01S07852.xedit   +++|          SB7    E.STR       REPACK TO SAME (RTA DOES NOT CHECK LENGTH)
08158  M01S07853.xedit   +++|          RJ     RTA         REPACK LINE
08159  M01S07854.xedit   +++|          SB7    E.STR
08160  M01S07855.xedit   +++|          RJ     RTB         TRIM LINE
08161  M01S07856.xedit   +++|          MOVE   33D,E.STR,E.LINE
08162  M01S07857.xedit   +++|          RJ     VRY
08163  M01S07858.xedit   +++|          SA1    NUMS

Line S07859 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08164  M02S07859.xedit21 ---|          SX6    X1-1
08165  M01S00087.xedit21 +++|          SX6    B1
08166  M01S00088.xedit21 +++|          IX6    X1-X6
08167  M01S07860.xedit   +++|          AX1    1
08168  M01S07861.xedit   +++|          ZR     X1,NCM      IF CHANGE COMPLETE, EXIT
08169  M01S07862.xedit   +++|          SA6    A1
08170  M01S07863.xedit   +++| OCT11    RJ     WTF
08171  M01S07864.xedit   +++|          RJ     RDF         ADVANCE TO NEXT
08172  M01S07865.xedit   +++|          EQ     OCT7        PROCESS NEXT OCTCHANGE
08173  M01S07866.xedit   +++|
08174  M01S07867.xedit   +++| OCT12    SB2    ARG.
08175  M01S07868.xedit   +++|          RJ     RCP         RESET END OF LINE
08176  M01S07869.xedit   +++|          EQ     CER         PROCESS ERROR
08177  M01S07870.xedit   +++|
08178  M01S07871.xedit   +++|*         PROCESS STRING NOT FOUND.
08179  M01S07872.xedit   +++|
08180  M01S07873.xedit   +++| OCT13    SA1    NUMS
08181  M01S07874.xedit   +++|          PL     X1,OCT11    IF NOT 0 OPTION
08182  M01S07875.xedit   +++|          EQ     LCT4        EXIT, STRING NOT FOUND
08183  M01S07876.xedit   +++| PBL      SPACE  4,15
08184  M01S07877.xedit   +++|**        PBL - PROCESS BAD LINE COMMANDS.
08185  M01S07878.xedit   +++|*
08186  M01S07879.xedit   +++|*         ENTRY  (X1) = COMMAND DESCRIPTOR WORD. MODIFIER FIELD IS -
08187  M01S07880.xedit   +++|*                       -1 FOR DELETE BAD LINE (DBADL).
08188  M01S07881.xedit   +++|*                       +1 FOR FIND BAD LINE (FBADL).
08189  M01S07882.xedit   +++|*                (NUMS) = NUMBER OF LINES TO PROCESS.
08190  M01S07883.xedit   +++|*

Line S07884 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08191  M02S07884.xedit21 ---|*         USES   A - 0, 1, 2, 6.
08192  M01S00089.xedit21 +++|*         USES   A - 1, 2, 6.
08193  M01S07885.xedit   +++|*                X - 1, 2, 3, 4, 5, 6.

Line S07886 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08194  M02S07886.xedit21 ---|*                B - 2.
08195  M01S07887.xedit   +++|*
08196  M01S07888.xedit   +++|*         CALLS   RDF, SCD, VRY, WTF.
08197  M01S07889.xedit   +++|*
08198  M01S07890.xedit   +++|
08199  M01S07891.xedit   +++|
08200  M01S07892.xedit   +++| PBL      AX1    18
08201  M01S07893.xedit   +++|          SX5    X1          X5 = COMMAND TYPE
08202  M01S07894.xedit   +++|          RJ     SCD         SET CODED LINE

Line S07895 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08203  M02S07895.xedit21 ---|          SA2    NUMS

Line S07896 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08204  M02S07896.xedit21 ---|          SA0    X2          A0 = NUMBER OF LINES TO PROCESS
08205  M01S07897.xedit   +++| PBL1     SA1    E.LINE
08206  M01S07898.xedit   +++|          MX2    -6
08207  M01S07899.xedit   +++|          LX1    6
08208  M01S07900.xedit   +++|          BX3    -X2*X1      GET FIRST CHARACTER
08209  M01S07901.xedit   +++|          SX4    X3-1R9-1    NEGATIVE, IF OK
08210  M01S07902.xedit   +++|          SX3    X3-1R0      POSITIVE, IF OK
08211  M01S07903.xedit   +++|          BX3    -X3*X4      NEGATIVE, IF OK
08212  M01S07904.xedit   +++|          NG     X3,PBL3     IF LINE NUMBER AT START
08213  M01S07905.xedit   +++|          RJ     VRY
08214  M01S07906.xedit   +++|          PL     X5,PBL2     IF FBADL COMMAND
08215  M01S07907.xedit   +++|          RJ     RDF         CREAM EXISTING LINE
08216  M01S07908.xedit   +++|          MX6    0           SET MODIFICATIONS MADE
08217  M01S07909.xedit   +++|          SA6    NOMOD

Line S07910 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08218  M02S07910.xedit21 ---| PBL2     SA0    A0-B1       DECREMENT REPITITION COUNT

Line S07911 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08219  M02S07911.xedit21 ---|          SB2    A0

Line S07912 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08220  M02S07912.xedit21 ---|          LT     B2,B1,NCM   IF FINISHED, EXIT

Line S00090 Modification History
`M01` (Added by)	`xedit21`
`M02` (Updated by)	`xedi21a`

Seq #  *Modification Id* Act 
----------------------------+
08221  M02S00090.xedi21a ---| PBL2     SA2    NUMS
08222  M01S00001.xedi21a +++| PBL2     SA1    NUMS
08223  M01S00091.xedit21 +++|          SX6    B1+
08224  M01S00092.xedit21 +++|          IX6    X1-X6
08225  M01S00093.xedit21 +++|          AX1    1
08226  M01S00094.xedit21 +++|          ZR     X1,NCM      IF FINISHED, EXIT
08227  M01S00095.xedit21 +++|          SA6    A1+
08228  M01S07913.xedit   +++|          NG     X5,PBL1     IF DBADL COMMAND
08229  M01S07914.xedit   +++| PBL3     RJ     WTF
08230  M01S07915.xedit   +++|          RJ     RDF
08231  M01S07916.xedit   +++|          EQ     PBL1        PROCESS FBADL
08232  M01S07917.xedit   +++| PLN      SPACE  4,20
08233  M01S07918.xedit   +++|**        PLN - PROCESS LINE NUMBER COMMANDS.
08234  M01S07919.xedit   +++|*
08235  M01S07920.xedit   +++|*         ENTRY  (X1) = COMMAND DESCRIPTOR WORD.
08236  M01S07921.xedit   +++|*                COMMAND MODIFIER  (BITS 35-18) CONTAINS THE FUNCTION.
08237  M01S07922.xedit   +++|*                =-2, ADDLNS.
08238  M01S07923.xedit   +++|*                =-1, ADDLN.
08239  M01S07924.xedit   +++|*                = 0, DELETELN.
08240  M01S07925.xedit   +++|*                = 1, REPLACELN.
08241  M01S07926.xedit   +++|*         EXIT   TO *CER*, IF ERROR.
08242  M01S07927.xedit   +++|*
08243  M01S07928.xedit   +++|*         USES   A - 1, 2, 3, 6, 7.
08244  M01S07929.xedit   +++|*                X - ALL.
08245  M01S07930.xedit   +++|*                B - 2, 5, 6, 7.
08246  M01S07931.xedit   +++|*
08247  M01S07932.xedit   +++|*         CALLS  CDD, RDF, TOP, WTF.
08248  M01S07933.xedit   +++|
08249  M01S07934.xedit   +++|
08250  M01S07935.xedit   +++| PLN      AX1    18
08251  M01S07936.xedit   +++|          SX5    X1
08252  M01S00096.xedit21 +++|          SX7    30          DEFAULT BIT COUNT
08253  M01S00097.xedit21 +++|          SA7    PLNB
08254  M01S07937.xedit   +++|          MX6    30          DEFAULT CHARACTER SIZE
08255  M01S07938.xedit   +++|          SB2    X1+B1
08256  M01S07939.xedit   +++|          PL     B2,PLN0     IF NOT ADDLNS
08257  M01S07940.xedit   +++|          MX6    36          LENGTHEN CHARACTER MASK
08258  M01S07941.xedit   +++| PLN0     SA6    PLNA
08259  M01S07942.xedit   +++|          RJ     TOP         REWIND FILES
08260  M01S07943.xedit   +++|          SA1    NUMS
08261  M01S07944.xedit   +++|          MX7    0
08262  M01S07945.xedit   +++|          BX6    X1
08263  M01S07946.xedit   +++|          SA2    A1+B1
08264  M01S07947.xedit   +++|          NZ     X6,PLN0.1   IF STARTING LINE NUMBER NOT ZERO
08265  M01S07948.xedit   +++|          SX6    B1          SET TO DEFAULT
08266  M01S07949.xedit   +++| PLN0.1   SA7    NOMOD       SET MODIFICATIONS FLAG
08267  M01S07950.xedit   +++|          SA6    A1+
08268  M01S07951.xedit   +++|          BX7    X2
08269  M01S07952.xedit   +++|          NZ     X7,PLN0.2   IF STEP IS NOT ZERO
08270  M01S07953.xedit   +++|          SX7    B1
08271  M01S07954.xedit   +++| PLN0.2   SA7    A2
08272  M01S07955.xedit   +++|          NG     X5,PLN6     IF NOT TO DELETE LINE NUMBER
08273  M01S07956.xedit   +++|
08274  M01S07957.xedit   +++|*         REMOVE LINE NUMBER.
08275  M01S07958.xedit   +++|
08276  M01S07959.xedit   +++| PLN1     SA1    E.LINE      REMOVE LINE NUMBERS
08277  M01S07960.xedit   +++|          SA2    =40404040404040404040B
08278  M01S07961.xedit   +++|          BX3    X2*X1       4X IF BIT 5 IS SET
08279  M01S07962.xedit   +++|          SB5    60-5
08280  M01S07963.xedit   +++|          LX4    B5,X3       000001 IF BIT 5 WAS SET
08281  M01S07964.xedit   +++|          IX4    X3-X4       011111 IF BIT 5 WAS SET
08282  M01S07965.xedit   +++|          BX4    X4+X3       111111 IF BIT 5 WAS SET
08283  M01S07966.xedit   +++|          SA3    =05050505050505050505B
08284  M01S07967.xedit   +++|          BX6    X4-X1       COMPLEMENT CHARS .GE. 40B
08285  M01S07968.xedit   +++|          IX6    X6+X3       1XXXXX IF A NUMBER
08286  M01S07969.xedit   +++|          BX3    X2*X6       100000 IF A NUMBER
08287  M01S07970.xedit   +++|          LX4    B5,X3       000001 IF A NUMBER
08288  M01S07971.xedit   +++|          IX4    X3-X4       011111 IF A NUMBER
08289  M01S07972.xedit   +++|          BX4    X4+X3       111111 IF A NUMBER
08290  M01S07973.xedit   +++|          MX6    1
08291  M01S07974.xedit   +++|          PL     X4,PLN9     IF NO LINE NUMBER
08292  M01S07975.xedit   +++| PLN2     AX6    6           EXTEND MASK
08293  M01S07976.xedit   +++|          BX7    -X4*X6
08294  M01S07977.xedit   +++|          ZR     X6,PLN3     IF ALL WORD IS NUMBERS
08295  M01S07978.xedit   +++|          ZR     X7,PLN2     IF NOT FINISHED WITH MASK
08296  M01S07979.xedit   +++| PLN3     LX4    B1,X6       MASK OFF EXTRA BIT
08297  M01S07980.xedit   +++|          BX4    X6*X4
08298  M01S07981.xedit   +++|          CX0    X4
08299  M01S07982.xedit   +++|          SB7    X0          SHIFT TO LEFT JUSTIFY WORD
08300  M01S07983.xedit   +++|          MX3    -12         END OF LINE CHECKER
08301  M01S07984.xedit   +++|          BX0    -X3*X1      0, IF THIS IS LAST WORD IN LINE
08302  M01S07985.xedit   +++|          BX6    -X4*X1      REMOVE LINE NUMBER
08303  M01S07986.xedit   +++|          LX6    B7          LEFT JUSTIFY REMAINING
08304  M01S07987.xedit   +++|          LX4    B7          POSITION MASK
08305  M01S07988.xedit   +++| PLN4     ZR     X0,PLN5     IF LAST WORD OF LINE
08306  M01S07989.xedit   +++|          SA1    A1+B1
08307  M01S07990.xedit   +++|          BX0    -X3*X1
08308  M01S07991.xedit   +++|          LX1    B7
08309  M01S07992.xedit   +++|          BX2    X4*X1
08310  M01S07993.xedit   +++|          IX7    X2+X6
08311  M01S07994.xedit   +++|          BX6    -X4*X1
08312  M01S07995.xedit   +++|          SA7    A1-B1
08313  M01S07996.xedit   +++|          EQ     PLN4        PROCESS NEXT WORD IN LINE
08314  M01S07997.xedit   +++|
08315  M01S07998.xedit   +++| PLN5     SA6    A1+
08316  M01S07999.xedit   +++| PLN6     ZR     X5,PLN9     IF NOT ADDING LINE NUMBERS
08317  M01S08000.xedit   +++|          SA1    NUMS        GET BASE
08318  M01S08001.xedit   +++|          SA2    A1+B1       INCREMENT
08319  M01S08002.xedit   +++|          IX6    X1+X2

Line S08003 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08320  M02S08003.xedit21 ---|          SB2    X1-99999D

Line S08004 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08321  M02S08004.xedit21 ---|          GT     B2,B1,PLN10 IF LINE NUMBER IS TOO LARGE
08322  M01S08005.xedit   +++|          SA6    A1+
08323  M01S08006.xedit   +++|          RJ     CDD

Line S08007 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08324  M02S08007.xedit21 ---|          SA3    =66666666B  BLANK .EOR. 0000

Line S08008 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08325  M02S08008.xedit21 ---|          SA2    PLNA        WIDTH TO ADD
08326  M01S00098.xedit21 +++|          SA3    PLNB
08327  M01S00099.xedit21 +++|          SA2    PLNA
08328  M01S00100.xedit21 +++|          SB7    X3+
08329  M01S00101.xedit21 +++|          GE     B7,B2,PLN6.2  IF LINE NUMBER FITS WITHIN FIELD
08330  M01S00102.xedit21 +++| PLN6.1   ZR     X2,PLN10    IF MASK ALREADY MAXIMUM SIZE
08331  M01S00103.xedit21 +++|          SB7    B7+6        INCREMENT FIELD SIZE
08332  M01S00104.xedit21 +++|          SX7    B7
08333  M01S00105.xedit21 +++|          SA7    A3
08334  M01S00106.xedit21 +++|          AX2    6           EXTEND MASK
08335  M01S00107.xedit21 +++|          BX7    X2
08336  M01S00108.xedit21 +++|          SA7    A2+
08337  M01S00109.xedit21 +++|          LT     B7,B2,PLN6.1  IF STILL LARGER THAN FIELD
08338  M01S00110.xedit21 +++| PLN6.2   SA3    =66666666B  BLANK .EOR. 0000
08339  M01S00111.xedit21 +++|          BX3    -X2*X3      TRIM MASK TO FIELD SIZE
08340  M01S08009.xedit   +++|          LX3    B2          JUSTIFY MASK
08341  M01S08010.xedit   +++|          CX4    X2          DETERMINE SIZE
08342  M01S08011.xedit   +++|          SB6    E.LINE      SET FWA
08343  M01S08012.xedit   +++|          BX6    X6-X3
08344  M01S00112.xedit21 +++|          SB5    B7-60D
08345  M01S08013.xedit   +++|          SB7    X4-60D

Line S08014 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08346  M02S08014.xedit21 ---|          LX6    30

Line S08015 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit21`

Seq #  *Modification Id* Act 
----------------------------+
08347  M02S08015.xedit21 ---|          SA1    B6          GET FIRST WORD
08348  M01S00113.xedit21 +++|          SA1    B6+         GET FIRST WORD
08349  M01S00114.xedit21 +++|          AX6    B5
08350  M01S08016.xedit   +++|          SB5    B6+33D      SET LWA+1
08351  M01S08017.xedit   +++|          MX3    -12         END OF LINE BYTE MASK
08352  M01S08018.xedit   +++|          BX6    X2*X6       REMOVE EXCESS
08353  M01S08019.xedit   +++|
08354  M01S08020.xedit   +++| PLN7     BX4    -X3*X1
08355  M01S08021.xedit   +++|          AX1    B7
08356  M01S08022.xedit   +++|          BX7    -X2*X1
08357  M01S08023.xedit   +++|          IX7    X7+X6
08358  M01S08024.xedit   +++|          BX6    X2*X1
08359  M01S08025.xedit   +++|          SA1    B6+B1
08360  M01S08026.xedit   +++|          SA7    B6
08361  M01S08027.xedit   +++|          SB6    B6+B1
08362  M01S08028.xedit   +++|          ZR     X4,PLN8     IF END OF LINE FOUND
08363  M01S08029.xedit   +++|          LT     B6,B5,PLN7  IF NOT END OF BUFFER
08364  M01S08030.xedit   +++| PLN8     SA6    B6+
08365  M01S08031.xedit   +++| PLN9     RJ     WTF         STEP TO NEXT LINE
08366  M01S08032.xedit   +++|          RJ     RDF
08367  M01S08033.xedit   +++|          PL     X5,PLN1     IF TO DELETE LINE NUMBERS
08368  M01S08034.xedit   +++|          EQ     PLN6        ADD NEW LINE NUMBERS
08369  M01S08035.xedit   +++|
08370  M01S08036.xedit   +++| PLN10    BX7    X7-X7       RESTORE FILE
08371  M01S08037.xedit   +++|          MX6    -1          SET NO MODS
08372  M01S08038.xedit   +++|          SA7    IWHERE
08373  M01S08039.xedit   +++|          SA6    NOMOD
08374  M01S08040.xedit   +++|          RJ     TOP
08375  M01S08041.xedit   +++|          SB2    LNTL.       LINE NUMBER TOO LARGE
08376  M01S08042.xedit   +++|          EQ     CER         EXIT
08377  M01S08043.xedit   +++|
08378  M01S08044.xedit   +++| PLNA     DATA   0           MASK STORAGE
08379  M01S00115.xedit21 +++| PLNB     DATA   0           FIELD SIZE STORAGE
08380  M01S08045.xedit   +++| RDP      SPACE  4,20
08381  M01S08046.xedit   +++|**        RDP - READ/READP PROCESSOR.
08382  M01S08047.xedit   +++|*
08383  M01S08048.xedit   +++|*         ENTRY  (NUMS) = FWA OF PARAMETERS.
08384  M01S08049.xedit   +++|*                (NUMS+1) = LWA OF PARAMETERS.
08385  M01S08050.xedit   +++|*
08386  M01S08051.xedit   +++|*         EXIT   TO *NCM*.
08387  M01S08052.xedit   +++|*
08388  M01S08053.xedit   +++|*         USES   A - 0, 1, 2, 3, 4, 6, 7.
08389  M01S08054.xedit   +++|*                X - 0, 1, 2, 3, 4, 6, 7.
08390  M01S08055.xedit   +++|*                B - 2, 5, 6, 7.
08391  M01S08056.xedit   +++|*
08392  M01S08057.xedit   +++|*         CALLS  GAF, GFN, MPR, RCP, RTB, SCP, WTF.
08393  M01S08058.xedit   +++|*
08394  M01S08059.xedit   +++|*         MACROS FERROR, READ, READC, RECALL, RETURN, REWIND,
08395  M01S08060.xedit   +++|*                STATUS, WRITER.
08396  M01S08061.xedit   +++|*
08397  M01S08062.xedit   +++|*         NOTES  READ/READP READS ALTERNATE FILES INTO EDIT FILE.
08398  M01S08063.xedit   +++|
08399  M01S08064.xedit   +++|
08400  M01S08065.xedit   +++| RDP      SA4    INDEX
08401  M01S08066.xedit   +++|          SA0    X4-.READP
08402  M01S08067.xedit   +++|          RJ     SCP         SET COMMAND PARAMETERS
08403  M01S08068.xedit   +++|          SB2    BFN.*100B+2 NO FILE NAME
08404  M01S08069.xedit   +++|          ZR     X1,CER      IF NO PARAMETERS
08405  M01S08070.xedit   +++|          MX6    0
08406  M01S08071.xedit   +++|          SA6    NOMOD       SET MODIFICATIONS MADE
08407  M01S08072.xedit   +++|
08408  M01S08073.xedit   +++|*         GET NEXT FILE NAME AND CONTINUE.
08409  M01S08074.xedit   +++|
08410  M01S08075.xedit   +++| RDP1     RJ     GFN
08411  M01S08076.xedit   +++|          SB5    B6-BFN.*100B-2
08412  M01S08077.xedit   +++|          SA3    COPY
08413  M01S08078.xedit   +++|          ZR     B5,RDP12    IF ENCOUNTERED END OF LIST
08414  M01S08079.xedit   +++|          BX7    X3-X6       =7 IF USING COPY FILE
08415  M01S08080.xedit   +++|          BX4    X6
08416  M01S08081.xedit   +++|          NZ     X1,RDP11    IF ERROR IN FILE NAME
08417  M01S08082.xedit   +++|          SA6    IFN         SAVE NAME
08418  M01S08083.xedit   +++|          SA2    E.IN
08419  M01S08084.xedit   +++|          BX2    X2-X6
08420  M01S08085.xedit   +++|          AX2    18
08421  M01S08086.xedit   +++|          ZR     X2,RDP13    IF WANT TO READ CURRENT EDIT FILE
08422  M01S08087.xedit   +++|          NZ     X7,RDP2     IF NOT READING COPY FILE
08423  M01S08088.xedit   +++|          SA7    A3          CLEAR COPY FILE NAME
08424  M01S08089.xedit   +++|          WRITER FTD,RECALL
08425  M01S08090.xedit   +++|
08426  M01S08091.xedit   +++| RDP2     SB2    A0
08427  M01S08092.xedit   +++|          NZ     B2,RDP3     IF FILES ARE LOCAL
08428  M01S08093.xedit   +++|          SA4    =0LSCRF
08429  M01S08094.xedit   +++|          RJ     GAF         GET OR ATTACH FILE

Line S08095 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit4`

Seq #  *Modification Id* Act 
----------------------------+
08430  M02S08095.xedit4  ---|          NZ     X6,RDP11    IF FILE NOT OBTAINED
08431  M01S00001.xedit4  +++|          NZ     X6,RDP10    IF FILE NOT OBTAINED
08432  M01S08096.xedit   +++|          SA4    =0LSCRF
08433  M01S08097.xedit   +++|
08434  M01S08098.xedit   +++|*         FILE OBTAINED, CHECK READ ACCESS.
08435  M01S08099.xedit   +++|*         (X4) = LOCAL FILE NAME.
08436  M01S08100.xedit   +++|
08437  M01S08101.xedit   +++| RDP3     MX6    0
08438  M01S08102.xedit   +++|          SX7    B1
08439  M01S08103.xedit   +++|          SA6    SFET+5      CLEAR FNT/FST INFORMATION
08440  M01S08104.xedit   +++|          BX7    X7+X4
08441  M01S08105.xedit   +++|          SA6    A6+B1
08442  M01S08106.xedit   +++|          SA7    RFET
08443  M01S08107.xedit   +++|          SA7    SFET
08444  M01S08108.xedit   +++|          STATUS A7,P
08445  M01S08109.xedit   +++|          SB6    FCR.*100B+2
08446  M01S08110.xedit   +++|          SA1    SFET+5
08447  M01S08111.xedit   +++|          ZR     X1,RDP10    IF FILE NOT FOUND
08448  M01S08112.xedit   +++|          SX2    240000B
08449  M01S08113.xedit   +++|          SB6    FCR.*100B+1
08450  M01S08114.xedit   +++|          BX2    X2*X1
08451  M01S08115.xedit   +++|          NZ     X2,RDP10    IF NOT ALLOWED TO READ FILE
08452  M01S08116.xedit   +++|          REWIND RFET,RECALL
08453  M01S08117.xedit   +++| RDP4     READ   RFET
08454  M01S08118.xedit   +++| RDP5     RECALL RFET
08455  M01S08119.xedit   +++| RDP6     SA1    RFET+2      SEE IF ANY MORE DATA ON FILE
08456  M01S08120.xedit   +++|          SA2    A1+B1
08457  M01S08121.xedit   +++|          BX1    X1-X2
08458  M01S08122.xedit   +++|          NZ     X1,RDP7     IF THERE IS DATA ON FILE
08459  M01S08123.xedit   +++|          SA1    RFET
08460  M01S08124.xedit   +++|          LX1    59-0
08461  M01S08125.xedit   +++|          PL     X1,RDP5     IF FET BUSY
08462  M01S08126.xedit   +++|          LX1    0-4
08463  M01S08127.xedit   +++|          PL     X1,RDP4     IF NOT END OF SOMETHING
08464  M01S08128.xedit   +++|          LX1    4-3
08465  M01S08129.xedit   +++|          NG     X1,RDP9     IF NOT EOR ON FILE
08466  M01S08130.xedit   +++|          READ   RFET,RECALL
08467  M01S08131.xedit   +++|          SA1    RFET+2      LOOK AHEAD FOR NEXT NON-NULL RECORD
08468  M01S08132.xedit   +++|          SA2    A1+B1
08469  M01S08133.xedit   +++|          BX1    X1-X2
08470  M01S08134.xedit   +++|          ZR     X1,RDP9     IF EMPTY RECORD/FILE OR EOI FOUND
08471  M01S08135.xedit   +++|          RJ     WTF
08472  M01S08136.xedit   +++|          WRITER E.OUT,RECALL
08473  M01S08137.xedit   +++|          EQ     RDP8        READ LINE
08474  M01S08138.xedit   +++|
08475  M01S08139.xedit   +++| RDP7     RJ     WTF
08476  M01S08140.xedit   +++| RDP8     READC  RFET,E.LINE,33D  READ NEXT LINE
08477  M01S08141.xedit   +++|          NZ     X1,BTL      IF BAD TEXT LINE FOUND
08478  M01S08142.xedit   +++|          SB7    E.LINE
08479  M01S08143.xedit   +++|          RJ     RTB         CLEAN UP LINE JUST READ
08480  M01S08144.xedit   +++|          EQ     RDP6        PROCESS LINE
08481  M01S08145.xedit   +++|
08482  M01S08146.xedit   +++|*         PROCESS END OF FILE READ.
08483  M01S08147.xedit   +++|

Line S08148 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit6`

Seq #  *Modification Id* Act 
----------------------------+
08484  M02S08148.xedit6  ---| RDP9     SB2    A0
08485  M01S00001.xedit6  +++| RDP9     REWIND RFET,RECALL
08486  M01S00002.xedit6  +++|          SB2    A0
08487  M01S08149.xedit   +++|          NZ     B2,RDP1     IF NOT *READP*
08488  M01S08150.xedit   +++|          RETURN RFET,RECALL
08489  M01S08151.xedit   +++|          EQ     RDP1        PROCESS NEXT FILE
08490  M01S08152.xedit   +++|
08491  M01S08153.xedit   +++|*         PROCESS ERROR AND PROPER TERMINATION.
08492  M01S08154.xedit   +++|
08493  M01S08155.xedit   +++| RDP10    FERROR IFN,B6
08494  M01S08156.xedit   +++|          EQ     RDP12       FINISH PROCESS
08495  M01S08157.xedit   +++|
08496  M01S08158.xedit   +++| RDP11    ERROR  B6
08497  M01S08159.xedit   +++| RDP12    RJ     RCP         RESET LINE PARAMETERS
08498  M01S08160.xedit   +++|          EQ     NCM         EXIT
08499  M01S08161.xedit   +++|
08500  M01S08162.xedit   +++|*         PROCESS READ REQUEST ON CURRENT EDIT FILE.
08501  M01S08163.xedit   +++|
08502  M01S08164.xedit   +++| RDP13    MX1    60          SET -0
08503  M01S08165.xedit   +++|          RJ     MPR         COPY EDIT FILE TO SCRATCH
08504  M01S08166.xedit   +++|          SA4    IFN         RELOAD FILE NAME
08505  M01S08167.xedit   +++|          EQ     RDP2        PROCESS COPY
08506  M01S08168.xedit   +++|          TITLE  SUBROUTINE LOCAL TO OVERLAY.
08507  M01S08169.xedit   +++| GAF      SPACE  4,15
08508  M01S08170.xedit   +++|**        GAF - GET/ATTACH FILE.
08509  M01S08171.xedit   +++|*
08510  M01S08172.xedit   +++|*         ENTRY  (X4) = SCRATCH NAME.
08511  M01S08173.xedit   +++|*                (X6) = PERMANENT FILE NAME.
08512  M01S08174.xedit   +++|*
08513  M01S08175.xedit   +++|*         EXIT   (X6) = 0, IF FILE OBTAINED.
08514  M01S08176.xedit   +++|*                (B6) = ERROR ORDINAL IF (X6) .NE. 0.
08515  M01S08177.xedit   +++|*
08516  M01S08178.xedit   +++|*         USES   A - 3, 6, 7.
08517  M01S08179.xedit   +++|*                X - 1, 3, 6, 7.
08518  M01S08180.xedit   +++|*                B - 6.
08519  M01S08181.xedit   +++|*
08520  M01S08182.xedit   +++|*         MACROS ATTACH, GET.
08521  M01S08183.xedit   +++|
08522  M01S08184.xedit   +++|
08523  M01S08185.xedit   +++| GAF      PS                 ENTRY/EXIT
08524  M01S08186.xedit   +++|          SA6    PFET+8      SET PERM. NAME
08525  M01S08187.xedit   +++|          MX7    -1
08526  M01S08188.xedit   +++|          BX7    -X7+X4
08527  M01S08189.xedit   +++|          SA7    PFET        SET LOCAL NAME
08528  M01S08190.xedit   +++|          GET    A7
08529  M01S08191.xedit   +++|          SA3    X2
08530  M01S08192.xedit   +++|          SX1    36000B
08531  M01S08193.xedit   +++|          BX6    X1*X3
08532  M01S08194.xedit   +++|          ZR     X6,GAF      IF GOTTEN, RETURN

Line S08195 Modification History
`M01` (Added by)	`xedit`
`M02` (Updated by)	`xedit22`

Seq #  *Modification Id* Act 
----------------------------+
08533  M02S08195.xedit22 ---|          ATTACH X2
08534  M01S00001.xedit22 +++|          ATTACH X2,,,,R     ATTACH IN READ MODE
08535  M01S08196.xedit   +++|          SA3    X2
08536  M01S08197.xedit   +++|          SX1    36000B
08537  M01S08198.xedit   +++|          BX6    X1*X3
08538  M01S08199.xedit   +++|          SB6    FCR.*100B+3  SET ERROR ORDINAL
08539  M01S08200.xedit   +++|          EQ     GAF         RETURN
08540  M01S08201.xedit   +++| RCP      SPACE  4,15
08541  M01S08202.xedit   +++|**        RCP - RESET COMMAND PARAMETERS.
08542  M01S08203.xedit   +++|*
08543  M01S08204.xedit   +++|*         ENTRY  (NUMS+1) = ADDRESS OF WORD CONTAINING LWA+1
08544  M01S08205.xedit   +++|*                           OF COMMAND LINE.
08545  M01S08206.xedit   +++|*
08546  M01S08207.xedit   +++|*         EXIT   END OF COMMAND FLAG RESET IF NEEDED.
08547  M01S08208.xedit   +++|*
08548  M01S08209.xedit   +++|*         USES   A - 1, 2, 6.
08549  M01S08210.xedit   +++|*                X - 1, 2, 6.
08550  M01S08211.xedit   +++|*
08551  M01S08212.xedit   +++|*         NOTES  SINCE *SCP* SETS (NUMS+1) = 0 IF THERE
08552  M01S08213.xedit   +++|*         ARE NO PARAMETERS, THIS ROUTINE CAN BE CALLED
08553  M01S08214.xedit   +++|*         IF THIS IS TRUE (WILL LOSE UPPER BITS OF WORD 0).
08554  M01S08215.xedit   +++|
08555  M01S08216.xedit   +++|
08556  M01S08217.xedit   +++| RCP      PS                 ENTRY/EXIT
08557  M01S08218.xedit   +++|          SA1    NUMS+1
08558  M01S08219.xedit   +++|          SA2    X1
08559  M01S08220.xedit   +++|          SX6    X2
08560  M01S08221.xedit   +++|          LX2    1
08561  M01S08222.xedit   +++|          NG     X2,RCP      IF REAL EOL, RETURN
08562  M01S08223.xedit   +++|          SA6    A2
08563  M01S08224.xedit   +++|          EQ     RCP         RETURN
08564  M01S08225.xedit   +++| SCP      SPACE  4,15
08565  M01S08226.xedit   +++|**        SCP - SET COMMAND PARAMETERS.
08566  M01S08227.xedit   +++|*
08567  M01S08228.xedit   +++|*         ENTRY  (NUMS) = FWA OF PARAMETERS.
08568  M01S08229.xedit   +++|*                (NUMS+1) = LWA+1 OF PARAMETERS.
08569  M01S08230.xedit   +++|*
08570  M01S08231.xedit   +++|*         EXIT   (A5) = IF PARAMETERS ARE PRESENT, FWA OF PARAMETERS.
08571  M01S08232.xedit   +++|*                (X5) = FIRST WORD OF PARAMETERS.
08572  M01S08233.xedit   +++|*                (X1) = IF NO PARAMETERS, 0.
08573  M01S08234.xedit   +++|*                END OF PARAMETERS SET IN LAST WORD OF PARAMETERS.
08574  M01S08235.xedit   +++|*
08575  M01S08236.xedit   +++|*         USES   A - 1, 2, 5, 6.
08576  M01S08237.xedit   +++|*                X - 1, 2, 5, 6, 7.
08577  M01S08238.xedit   +++|
08578  M01S08239.xedit   +++|
08579  M01S08240.xedit   +++| SCP1     SX6    0
08580  M01S08241.xedit   +++|          SA6    NUMS+1
08581  M01S08242.xedit   +++|
08582  M01S08243.xedit   +++| SCP      PS                 ENTRY/EXIT
08583  M01S08244.xedit   +++|          SA1    NUMS
08584  M01S08245.xedit   +++|          SA2    A1+B1
08585  M01S08246.xedit   +++|          MX7    1
08586  M01S08247.xedit   +++|          ZR     X1,SCP1     IF NO PARAMETERS
08587  M01S08248.xedit   +++|          SA2    X2
08588  M01S08249.xedit   +++|          SA5    X1
08589  M01S08250.xedit   +++|          BX6    X7+X2       SET END OF STRING
08590  M01S08251.xedit   +++|          SA6    A2
08591  M01S08252.xedit   +++|          EQ     SCP         RETURN
08592  M01S08253.xedit   +++|          TITLE  LOCAL COMMON DECKS AND BUFFERS.
08593  M01S08254.xedit   +++|**        COMMON DECKS.
08594  M01S08255.xedit   +++|*
08595  M01S08256.xedit   +++|
08596  M01S08257.xedit   +++|
08597  M01S08258.xedit   +++|*CALL COMCMVE
08598  M01S08259.xedit   +++|
08599  M01S08260.xedit   +++|          USE    SETCHAR
08600  M01S08261.xedit   +++|          DATA   0           SET END OF CHARACTER PRESET
08601  M01S08262.xedit   +++|          USE    *
08602  M01S08263.xedit   +++| BUFFERS  SPACE  4
08603  M01S08264.xedit   +++|**        BUFFERS.
08604  M01S08265.xedit   +++|*
08605  M01S08266.xedit   +++|
08606  M01S08267.xedit   +++|
08607  M01S08268.xedit   +++|          USE    BUFFERS
08608  M01S08269.xedit   +++| .A       MAX    MAXWD*2+1,BUFRL
08609  M01S08270.xedit   +++| OCBUF    BSS    0
08610  M01S08271.xedit   +++| RBUF     BSS    0
08611  M01S08272.xedit   +++|          BSSZ   .A+1
08612  M01S08273.xedit   +++| LWA      EQU    *+17B       SET OVERLAY LWA
08613  M01S08274.xedit   +++|          END