Deck XEDIT Part 003

25 Modifications

Seq #  *Modification Id* Act 
----------------------------+
05666  M00S05450.xedit   +++|          MX6    1
05667  M00S05451.xedit   +++|          SA4    X4          GET NEW DEVICE
05668  M00S05452.xedit   +++|          SA6    A4          IDLE OLD DEVICE
05669  M00S05453.xedit   +++|          SA2    X4+B1       GET NEW C.STR-1 WORD
05670  M00S05454.xedit   +++|          BX7    X4
05671  M00S05455.xedit   +++|          LX6    X2
05672  M00S05456.xedit   +++|          SA7    C.ON        RESET ACTIVE DEVICE POINTER
05673  M00S05457.xedit   +++|          SA6    C.STR-1     RESET CHARACTER POINTER
05674  M00S05458.xedit   +++|          EQ     STK1        UNSTACK
05675  M00S05459.xedit   +++|
05676  M00S05460.xedit   +++|*         PUSH NEW ENTRY ONTO STACK.
05677  M00S05461.xedit   +++|
05678  M00S05462.xedit   +++| STK2     SA1    A1
05679  M00S05463.xedit   +++|          SX6    A1
05680  M00S05464.xedit   +++|          BX7    X4
05681  M00S05465.xedit   +++|          SA4    A1+B1       NEW DELIMITER WORD
05682  M00S05466.xedit   +++|          PL     X1,STK      IF REQUESTED DEVICE IS STILL ACTIVE
05683  M00S05467.xedit   +++|          SA6    C.ON        RESET C.ON
05684  M00S05468.xedit   +++|          SA7    A1          PUT STACK ENTRY
05685  M00S05469.xedit   +++|          PX6    B1,X4       RESET CHARACTER POINTER
05686  M00S05470.xedit   +++|          SA6    C.STR-1
05687  M00S05471.xedit   +++|          SA1    A1-34D      SET FWA OF CODED LINE
05688  M00S05472.xedit   +++|          SB6    C.STR
05689  M00S05473.xedit   +++|          RJ     UPL         UNPACK LINE
05690  M00S05474.xedit   +++|          EQ     NCM         PROCESS NEW LINE, EXIT
05691  M00S05475.xedit   +++| TAB      SPACE  4,20
05692  M00S05476.xedit   +++|**        TAB - TAB INPUT LINE ACCORDING TO TAB SETTINGS.
05693  M00S05477.xedit   +++|*
05694  M00S05478.xedit   +++|*         ENTRY  (B6) = FWA-1 OF TEXT LINE.
05695  M00S05479.xedit   +++|*
05696  M00S05480.xedit   +++|*         EXIT   LINE TABBED.
05697  M00S05481.xedit   +++|*                TRAILING SPACES ARE NOT DELETED.
05698  M00S05482.xedit   +++|*                (X7) = 0 IF NO TRUNCATION.
05699  M00S05483.xedit   +++|*
05700  M00S05484.xedit   +++|*         USES   A - 1, 3, 4, 6, 7.
05701  M00S05485.xedit   +++|*                X - 1, 2, 3, 4, 6, 7.
05702  M00S05486.xedit   +++|*                B - 3, 4, 5, 7.
05703  M00S05487.xedit   +++|*                E.SCR.
05704  M00S05488.xedit   +++|*
05705  M00S05489.xedit   +++|*         CALLS  TSL.
05706  M00S05490.xedit   +++|
05707  M00S05491.xedit   +++|
05708  M00S05492.xedit   +++| TAB1     SA1    A1+1        GET NEXT
05709  M00S05493.xedit   +++|          SA6    B3
05710  M00S05494.xedit   +++|          SB3    B3+B1
05711  M00S05495.xedit   +++|          LT     B3,B4,TAB2  IF NOT 160 CHARACTERS WORTH
05712  M00S05496.xedit   +++|          SX7    X6-1R
05713  M00S05497.xedit   +++|          NZ     X5,TAB5     IF NOT BLANK (TRUNCATE)
05714  M00S05498.xedit   +++|          SB3    B4+
05715  M00S05499.xedit   +++| TAB2     BX6    X1
05716  M00S05500.xedit   +++|          IX2    X1-X3
05717  M00S05501.xedit   +++|          NZ     X2,TAB1     IF NOT TAB CHARACTER
05718  M00S05502.xedit   +++| TAB3     ZR     X4,TAB1     IF END OF TABS
05719  M00S05503.xedit   +++|          SB5    X4+E.SCR-1
05720  M00S05504.xedit   +++|          SA4    A4+B1
05721  M00S05505.xedit   +++|          LT     B5,B3,TAB3  IF PAST EXISTING TAB
05722  M00S05506.xedit   +++|          SA1    A1+B1
05723  M00S05507.xedit   +++|          LE     B5,B3,TAB2  IF CURRENTLY POINTING AT TAB
05724  M00S05508.xedit   +++| TAB4     SA7    B3          BLANK TO TAB POSITION
05725  M00S05509.xedit   +++|          SB3    B3+B1
05726  M00S05510.xedit   +++|          LT     B3,B5,TAB4  IF NOT AT TAB POSITION
05727  M00S05511.xedit   +++|          PL     X1,TAB2     IF MORE DATA
05728  M00S05512.xedit   +++|          SX7    0           SET NO TRUNCATION
05729  M00S05513.xedit   +++| TAB5     MX6    2
05730  M00S05514.xedit   +++|          SA1    E.SCR       PREPARE TO COPY BACK
05731  M00S05515.xedit   +++|          SA6    B3
05732  M00S05516.xedit   +++| TAB6     BX6    X1
05733  M00S05517.xedit   +++|          SB7    B7+B1
05734  M00S05518.xedit   +++|          SA1    A1+B1
05735  M00S05519.xedit   +++|          SA6    B7-B1
05736  M00S05520.xedit   +++|          PL     X6,TAB6     IF MORE
05737  M00S05521.xedit   +++|          RJ     TSL         TRIM TRAILING SPACES
05738  M00S05522.xedit   +++| TAB      PS                 ENTRY/EXIT
05739  M00S05523.xedit   +++|
05740  M00S05524.xedit   +++|          SA3    TABCHAR
05741  M00S05525.xedit   +++|          SX7    B0          SET NO TRUNCATION
05742  M00S05526.xedit   +++|          SB7    B6+B1
05743  M00S05527.xedit   +++|          NG     X3,TAB      IF NO TAB CHARACTER IS DEFINED
05744  M00S05528.xedit   +++|          SA4    A3+B1
05745  M00S05529.xedit   +++|          SA1    B6+B1       SET FIRST CHARACTER IN LINE
05746  M00S05530.xedit   +++|          SB3    E.SCR
05747  M00S05531.xedit   +++|          SX7    1R
05748  M00S05532.xedit   +++|          SB4    E.SCR+160D
05749  M00S05533.xedit   +++|          EQ     TAB2        PROCESS TABS
05750  M00S05534.xedit   +++| TCD      SPACE  4,15
05751  M00S05535.xedit   +++|**        TCD - TABULATE CODED DATA LINE.
05752  M00S05536.xedit   +++|*
05753  M00S05537.xedit   +++|*         ENTRY  (D.LINE) = DATA LINE.
05754  M00S05538.xedit   +++|*
05755  M00S05539.xedit   +++|*         EXIT   (C.LINE) = TABBED LINE.
05756  M00S05540.xedit   +++|*
05757  M00S05541.xedit   +++|*         USES   A - 1, 3.
05758  M00S05542.xedit   +++|*                X - 1, 3.
05759  M00S05543.xedit   +++|*                B - 6, 7.
05760  M00S05544.xedit   +++|*                E.SCR.
05761  M00S05545.xedit   +++|*
05762  M00S05546.xedit   +++|*         CALLS  RTA, TAB, UPL.
05763  M00S05547.xedit   +++|
05764  M00S05548.xedit   +++|
05765  M00S05549.xedit   +++| TCD      PS                 ENTRY/EXIT
05766  M00S05550.xedit   +++|          SA3    TABCHAR
05767  M00S05551.xedit   +++|          NG     X3,TCD      IF NO TAB CHARACTER
05768  M00S05552.xedit   +++|          SA1    D.LINE
05769  M00S05553.xedit   +++|          SB6    D.STR
05770  M00S05554.xedit   +++|          RJ     UPL
05771  M00S05555.xedit   +++|          SB6    D.STR-1
05772  M00S05556.xedit   +++|          RJ     TAB         TABULATE
05773  M00S05557.xedit   +++|          SB7    D.LINE
05774  M00S05558.xedit   +++|          SB6    D.STR
05775  M00S05559.xedit   +++|          RJ     RTA         REPACK LINE
05776  M00S05560.xedit   +++|          EQ     TCD         RETURN
05777  M00S05561.xedit   +++| TLB      SPACE  4,10
05778  M00S05562.xedit   +++|**        TLB - TRANSFER DATA LINE TO *E.LINE* BUFFER.
05779  M00S05563.xedit   +++|*
05780  M00S05564.xedit   +++|*         EXIT   LINE TRANSFERRED FROM *D.LINE* TO *E.LINE*.
05781  M00S05565.xedit   +++|*
05782  M00S05566.xedit   +++|*         USES   X - 1, 2, 6, 7.
05783  M00S05567.xedit   +++|*                A - 1, 6, 7.
05784  M00S05568.xedit   +++|*                B - 5, 6.
05785  M00S05569.xedit   +++|
05786  M00S05570.xedit   +++|
05787  M00S05571.xedit   +++| TLB      SUBR               ENTRY/EXIT
05788  M00S05572.xedit   +++|          SB5    B0
05789  M00S05573.xedit   +++|          SB6    D.LINE
05790  M00S05574.xedit   +++|          MX2    -12
05791  M00S05575.xedit   +++|          SB7    E.LINE
05792  M00S05576.xedit   +++| TLB1     SA1    B6+B5
05793  M00S05577.xedit   +++|          LX7    X1
05794  M00S05578.xedit   +++|          BX6    -X2*X1
05795  M00S05579.xedit   +++|          SA7    B7+B5
05796  M00S05580.xedit   +++|          SB5    B5+B1
05797  M00S05581.xedit   +++|          NZ     X6,TLB1     IF NOT END OF LINE
05798  M00S05582.xedit   +++|          SA6    E.CMODE     SET CURRENT MODE TO CODED
05799  M00S05583.xedit   +++|          SA6    A6+1        SET NO LINE MODIFICATIONS
05800  M00S05584.xedit   +++|          EQ     TLBX        RETURN
05801  M00S05585.xedit   +++| TOP      SPACE  4,15
05802  M00S05586.xedit   +++|**        TOP - MOVE POINTER TO TOP OF FILE.
05803  M00S05587.xedit   +++|*

Seq #  *Modification Id* Act 
----------------------------+
05804  M01S05588.xedit20 ---|*         ENTRY  NONE.

Seq #  *Modification Id* Act 
----------------------------+
05805  M01S00022.xedit20 +++|*         ENTRY  AT *TOP*.
05806  M01S00023.xedit20 +++|*                AT *TOP1.1* FROM *ERD*.
05807  M00S05589.xedit   +++|*

Seq #  *Modification Id* Act 
----------------------------+
05808  M01S05590.xedit20 ---|*         EXIT   NONE.

Seq #  *Modification Id* Act 
----------------------------+
05809  M01S00024.xedit20 +++|*         EXIT   TO *ERD1* IF EOI ENCOUNTERED.
05810  M01S00025.xedit20 +++|*                TO *ERD5* IF END OF FILE.
05811  M00S05591.xedit   +++|*
05812  M00S05592.xedit   +++|*         USES   A - 1, 2, 3, 4, 6, 7.
05813  M00S05593.xedit   +++|*                X - 0, 1, 2, 3, 4, 6, 7.
05814  M00S05594.xedit   +++|*                B - 6, 7.
05815  M00S05595.xedit   +++|*
05816  M00S05596.xedit   +++|*         CALLS  CFF, ERD, WTF.
05817  M00S05597.xedit   +++|*
05818  M00S05598.xedit   +++|*         MACROS READ, RECALL, REWIND, WRITEF, WRITER, WRITEW.
05819  M00S05599.xedit   +++|
05820  M00S05600.xedit   +++|
05821  M00S05601.xedit   +++| TOP      PS                 ENTRY/EXIT
05822  M00S05602.xedit   +++|          SA2    IWHERE      LINE COUNT
05823  M00S05603.xedit   +++|          SA3    INDEX       SUBSCRIPT OF LAST CONNAND
05824  M00S05604.xedit   +++|          SX3    X3-.TOPNUL
05825  M00S05605.xedit   +++|          ZR     X3,TOP1     IF TOPNULL COMMAND

Seq #  *Modification Id* Act 
----------------------------+
05826  M01S05606.xedit2  ---|          SX2    X2-1

Seq #  *Modification Id* Act 
----------------------------+
05827  M01S00005.xedit2  +++|          SX6    B1
05828  M01S00006.xedit2  +++|          IX2    X2-X6
05829  M00S05607.xedit   +++|          ZR     X2,TOP      IF ALREADY AT TOP, RETURN
05830  M00S05608.xedit   +++| TOP1     SA1    NOMOD
05831  M00S05609.xedit   +++|          PL     X1,TOP2     IF THERE WERE MODS. READ REST OF FILE

Seq #  *Modification Id* Act 
----------------------------+
05832  M01S05610.xedit20 ---|          REWIND FTA,RECALL

Seq #  *Modification Id* Act 
----------------------------+
05833  M01S00026.xedit20 +++|
05834  M01S00027.xedit20 +++|*         ENTRY FROM *ERD*.
05835  M01S00028.xedit20 +++|
05836  M01S00029.xedit20 +++| TOP1.1   REWIND FTA,RECALL
05837  M00S05611.xedit   +++|          REWIND FTB,RECALL
05838  M00S05612.xedit   +++|          EQ     ERD5        PROCESS END OF FILE
05839  M00S05613.xedit   +++|
05840  M00S05614.xedit   +++| TOP2     RECALL E.IN
05841  M00S05615.xedit   +++|          RECALL E.OUT
05842  M00S05616.xedit   +++|          RJ     WTF         WRITE CURRENT LINE
05843  M00S05617.xedit   +++|          EQ     TOP6        TRANSFER FILE
05844  M00S05618.xedit   +++|
05845  M00S05619.xedit   +++| TOP3     READ   E.IN        RESTART READ
05846  M00S05620.xedit   +++| TOP4     RECALL             WAIT FOR CIO TO DO SOMETHING
05847  M00S05621.xedit   +++|          EQ     TOP6        TRANSFER FILE
05848  M00S05622.xedit   +++|
05849  M00S05623.xedit   +++| TOP5     WRITEW E.OUT,B6,B7 WRITE BUFFER
05850  M00S05624.xedit   +++|          SX7    X0          MOVE E.IN(OUT) POINTER
05851  M00S05625.xedit   +++|          MX6    0
05852  M00S05626.xedit   +++|          SA7    E.IN+3      UPDATE OUT
05853  M00S05627.xedit   +++|          SA6    RC          SET DATA READ
05854  M00S05628.xedit   +++| TOP6     SA1    E.IN+2      IN
05855  M00S05629.xedit   +++|          SA2    A1+B1       OUT
05856  M00S05630.xedit   +++|          SX0    X1
05857  M00S05631.xedit   +++|          IX6    X1-X2       IN-OUT (CONSECUTIVE WORDS IN BUFFER)
05858  M00S05632.xedit   +++|          PL     X6,TOP7     IF (IN-OUT) IS LARGEST BLOCK
05859  M00S05633.xedit   +++|          SA3    A2+B1       LIMIT
05860  M00S05634.xedit   +++|          SA4    A1-B1       FIRST
05861  M00S05635.xedit   +++|          IX6    X3-X2       LIMIT-OUT
05862  M00S05636.xedit   +++|          SX0    X4
05863  M00S05637.xedit   +++| TOP7     SB6    X2          SET STARTING ADDRESS
05864  M00S05638.xedit   +++|          SB7    X6          SET WORD COUNT
05865  M00S05639.xedit   +++|          NZ     B7,TOP5     IF WORDS TO TRANSFER
05866  M00S05640.xedit   +++|          SA4    E.IN
05867  M00S05641.xedit   +++|          LX4    59-0
05868  M00S05642.xedit   +++|          PL     X4,TOP4     IF FILE BUSY
05869  M00S05643.xedit   +++|          SA1    E.IN+2
05870  M00S05644.xedit   +++|          SA2    A1+B1       RECHECK POINTERS
05871  M00S05645.xedit   +++|          BX1    X1-X2
05872  M00S05646.xedit   +++|          NZ     X1,TOP6     IF CIO JUST FINISHED
05873  M00S05647.xedit   +++|          LX4    0-3
05874  M00S05648.xedit   +++|          NG     X4,TOP8     IF EOF OR EOI
05875  M00S05649.xedit   +++|          WRITER E.OUT       FLUSH BUFFER
05876  M00S05650.xedit   +++|          EQ     TOP9        READ FILE
05877  M00S05651.xedit   +++|
05878  M00S05652.xedit   +++| TOP8     LX4    3-4
05879  M00S05653.xedit   +++|          PL     X4,TOP3     IF FULL BUFFER
05880  M00S05654.xedit   +++|          LX4    4-9
05881  M00S05655.xedit   +++|          NG     X4,ERD1     IF AT EOI
05882  M00S05656.xedit   +++|          WRITEF E.OUT       FLUSH BUFFER
05883  M00S05657.xedit   +++| TOP9     READ   E.IN        BEGIN READ OF NEXT SECTION OF FILE
05884  M00S05658.xedit   +++|          RECALL E.OUT       WAIT FOR WRITE FET TO SETTLE
05885  M00S05659.xedit   +++|          SA1    X2
05886  M00S05660.xedit   +++|          MX7    1
05887  M00S05661.xedit   +++|          SA7    RC          SET NO DATA READ
05888  M00S05662.xedit   +++|          BX6    X1          MOVE FILE NAME TO *CFET*
05889  M00S05663.xedit   +++|          SA6    CFET
05890  M00S05664.xedit   +++|          RJ     CFF         COPY REMAINDER OF FILE
05891  M00S05665.xedit   +++|          EQ     ERD1        PROCESS EOI ENCOUNTERED
05892  M00S05666.xedit   +++| TSL      SPACE  4,15
05893  M00S05667.xedit   +++|**        TSL - TRIM SPACES OFF LINE (STRING BUFFER).
05894  M00S05668.xedit   +++|*
05895  M00S05669.xedit   +++|*         ENTRY  (A6) = FWA OF END OF LINE CHARACTER.
05896  M00S05670.xedit   +++|*                (X6) = MASK OF 2.
05897  M00S05671.xedit   +++|*
05898  M00S05672.xedit   +++|*         EXIT   LINE TRIMMED.
05899  M00S05673.xedit   +++|*                (E.STR-1) = NEW LINE LENGTH.
05900  M00S05674.xedit   +++|*
05901  M00S05675.xedit   +++|*         USES   A - 1, 6.
05902  M00S05676.xedit   +++|*                X - 1, 6.
05903  M00S05677.xedit   +++|*                B - 2.
05904  M00S05678.xedit   +++|
05905  M00S05679.xedit   +++|
05906  M00S05680.xedit   +++| TSL1     SB2    B2-B1       POSITION BACK TO NEXT CHARACTER
05907  M00S05681.xedit   +++|          LE     B2,B6,TSL2  IF AT START OF LINE -1
05908  M00S05682.xedit   +++|          SA1    B2
05909  M00S05683.xedit   +++|          SX1    X1-1R
05910  M00S05684.xedit   +++|          ZR     X1,TSL1     IF CHARACTER WAS A BLANK
05911  M00S05685.xedit   +++| TSL2     SA6    B2+B1       PUT NEW END CHARACTER
05912  M00S05686.xedit   +++|          SX6    B2-B6       GET NEW LENGTH
05913  M00S05687.xedit   +++|          SA6    B6+         SET NEW LENGTH
05914  M00S05688.xedit   +++|
05915  M00S05689.xedit   +++| TSL      PS                 ENTRY/EXIT
05916  M00S05690.xedit   +++|          SB2    A6
05917  M00S05691.xedit   +++|          EQ     TSL1        PROCESS TRIM
05918  M00S05692.xedit   +++|
05919  M00S05693.xedit   +++| UPL      SPACE  4,30
05920  M00S05694.xedit   +++|**        UPL - UNPACK LINE TO ASCII BUFFER.
05921  M00S05695.xedit   +++|*
05922  M00S05696.xedit   +++|*         ENTRY  (A1) = FWA OF CODED LINE.
05923  M00S05697.xedit   +++|*                (X1) = FIRST WORD OF CODED LINE.
05924  M00S05698.xedit   +++|*                (B6) = FWA STRING BUFFER.
05925  M00S05699.xedit   +++|*
05926  M00S05700.xedit   +++|*         EXIT   (X6) = COUNT OF SIGNIFICANT CHARACTERS.
05927  M00S05701.xedit   +++|*                (B5) = FWA OF BUFFER (NULL LINE IF (B5) = (B6)).
05928  M00S05702.xedit   +++|*                (B6) = ADDRESS OF END OF LINE MARKER.
05929  M00S05703.xedit   +++|*                (B7) = IF .GT. 0, THEN LWA OF BUFFER.
05930  M00S05704.xedit   +++|*                IF (B7) = (B6), THEN BUFFER IS FULL.
05931  M00S05705.xedit   +++|*                IF (B7) = 0 AND (B2) .LT. 0, THEN 3 OR MORE TRAILING
05932  M00S05706.xedit   +++|*                BLANKS WERE REMOVED.
05933  M00S05707.xedit   +++|*                LINE UNPACKED WITH ASCII ESCAPE CHARACTERS INCLUDED
05934  M00S05708.xedit   +++|*                IN WORDS WHERE NEEDED.
05935  M00S05709.xedit   +++|*                END OF LINE TERMINATOR (MASK OF 1) AFTER LAST
05936  M00S05710.xedit   +++|*                NON-BLANK CHARACTER (OR AT END OF BUFFER - (B7)).
05937  M00S05711.xedit   +++|*
05938  M00S05712.xedit   +++|*         USES   A - 1, 2, 6.
05939  M00S05713.xedit   +++|*                X - 0, 1, 2, 3, 4, 6, 7.
05940  M00S05714.xedit   +++|*                B - 2, 5, 6, 7.
05941  M00S05715.xedit   +++|*
05942  M00S05716.xedit   +++|*         NOTES  LINES ARE ASSUMED TO BE 160 CHARACTERS LONG.
05943  M00S05717.xedit   +++|*                ASCII MODE WILL BE USED IF (UPLA) = 2B,
05944  M00S05718.xedit   +++|*                NORMAL MODE IS USED IF (UPLA) = 100B.
05945  M00S05719.xedit   +++|*                TRAILING SPACES ARE NOT CONSIDERED SIGNIFICANT.
05946  M00S05720.xedit   +++|*                TRAILING 00B CHARACTERS (COLON/64 CHARACTER SET) ARE
05947  M00S05721.xedit   +++|*                SIGNIFICANT ONLY IF THERE IS A NON-00B CHARACTER
05948  M00S05722.xedit   +++|*                FOLLOWING THEM IN THE CODED LINE. THIS AGREES WITH
05949  M00S05723.xedit   +++|*                THE DEFINITION OF THE END OF LINE BYTE.
05950  M00S05724.xedit   +++|
05951  M00S05725.xedit   +++|
05952  M00S05726.xedit   +++| UPL1     SX7    X7-76B      TEST FOR ASCII
05953  M00S05727.xedit   +++|          ZR     X7,UPL6     IF ASCII
05954  M00S05728.xedit   +++| UPL2     SA6    B6          SAVE ASSEMBLY
05955  M00S05729.xedit   +++|          SB6    B6+B1
05956  M00S05730.xedit   +++|          GE     B6,B7,UPL8  IF SAVED LAST CHARACTER
05957  M00S05731.xedit   +++| UPL3     LX1    6           GET NEXT CHARACTER
05958  M00S05732.xedit   +++|          BX6    -X2*X1
05959  M00S05733.xedit   +++|          SB2    B2-B1       DECREMENT COUNT
05960  M00S05734.xedit   +++|          BX7    X6+X0       IF ESCAPE = 76B
05961  M00S05735.xedit   +++| UPL4     PL     B2,UPL1     IF NOT LAST CHARACTER OF WORD
05962  M00S05736.xedit   +++|          ZR     X4,UPL10    IF END OF LINE REACHED
05963  M00S05737.xedit   +++| UPL5     SA1    A1+B1       GET NEXT WORD
05964  M00S05738.xedit   +++|          SB2    9           RESET CHARACTER POSITION
05965  M00S05739.xedit   +++|          BX4    -X3*X1      0, IF END OF LINE
05966  M00S05740.xedit   +++|          NZ     X7,UPL1     IF NOT PROCESSING ASCII
05967  M00S05741.xedit   +++|          EQ     UPL2        IF ON SECOND PART OF ASCII
05968  M00S05742.xedit   +++|
05969  M00S05743.xedit   +++|*         PROCESS ASCII CHARACTER.
05970  M00S05744.xedit   +++|
05971  M00S05745.xedit   +++| UPL6     LX1    6           GET NEXT CHARACTER
05972  M00S05746.xedit   +++|          SB2    B2-B1       DECREMENT COUNT
05973  M00S05747.xedit   +++|          BX7    -X2*X1
05974  M00S05748.xedit   +++|          LX6    6           SHIFT ESCAPE OVER
05975  M00S05749.xedit   +++|          IX6    X6+X7       FORM ASCII WORD
05976  M00S05750.xedit   +++|          MX7    0           SET ON SECOND PART OF ASCII
05977  M00S05751.xedit   +++|          PL     B2,UPL2     IF NEW WORD NOT NEEDED
05978  M00S05752.xedit   +++|          EQ     UPL4        GET NEXT WORD
05979  M00S05753.xedit   +++|
05980  M00S05754.xedit   +++|*         END OF BUFFER REACHED.
05981  M00S05755.xedit   +++|*         DETERMINE SIGNIFICANCE OF LAST CHARACTER.
05982  M00S05756.xedit   +++|
05983  M00S05757.xedit   +++| UPL7     MX6    2
05984  M00S05758.xedit   +++|          SA6    B6          SET LAST CHARACTER
05985  M00S05759.xedit   +++|          EQ     UPL13       FINISH UNPACK OPERATION
05986  M00S05760.xedit   +++|
05987  M00S05761.xedit   +++| UPL8     NZ     X6,UPL10    IF LAST CHARACTER .NE. 0
05988  M00S05762.xedit   +++|          NZ     X4,UPL7     IF MORE FOLLOWS, LAST 0 IS COLON
05989  M00S05763.xedit   +++| UPL9     LX1    6           SEE IF MORE CHARACTERS FOLLOW
05990  M00S05764.xedit   +++|          BX6    -X2*X1
05991  M00S05765.xedit   +++|          SB2    B2-1
05992  M00S05766.xedit   +++|          NZ     X6,UPL7     IF CHARACTER FOLLOWS, 0 IS COLON
05993  M00S05767.xedit   +++|          PL     B2,UPL9     IF MORE IN WORD, ELSE LAST IS NOT COLON
05994  M00S05768.xedit   +++|
05995  M00S05769.xedit   +++|*         END OF LINE REACHED.  TRIM 00B AND BLANKS.
05996  M00S05770.xedit   +++|
05997  M00S05771.xedit   +++| UPL10    SB6    B6-B1       SKIP TRAILING ZEROS
05998  M00S05772.xedit   +++|          SA1    B6          GET LAST CHARACTER
05999  M00S05773.xedit   +++|          LT     B6,B5,UPL12 IF PAST START OF BUFFER
06000  M00S05774.xedit   +++|          ZR     X1,UPL10    IF 00B CHARACTER
06001  M00S05775.xedit   +++|          SB7    B0          SET POSSIBLE BLANKS TRIMMED
06002  M00S05776.xedit   +++|          SB2    B6-B1
06003  M00S05777.xedit   +++| UPL11    SX1    X1-1R       SKIP TRAILING BLANKS
06004  M00S05778.xedit   +++|          NZ     X1,UPL12    IF NOT BLANK
06005  M00S05779.xedit   +++|          SB6    B6-B1
06006  M00S05780.xedit   +++|          SA1    B6
06007  M00S05781.xedit   +++|          GE     B6,B5,UPL11 IF NOT PAST START OF BUFFER
06008  M00S05782.xedit   +++| UPL12    SB6    B6+1        PUT MARK AFTER LAST NON-BLANK
06009  M00S05783.xedit   +++|          MX6    2
06010  M00S05784.xedit   +++|          SA6    B6
06011  M00S05785.xedit   +++| UPL13    SX6    B6-B5       GET CHARACTER COUNT
06012  M00S05786.xedit   +++|          NZ     B7,UPL      IF NOT CHECKING TRAILING BLANKS
06013  M00S05787.xedit   +++|          SB2    B6-B2
06014  M00S05788.xedit   +++|
06015  M00S05789.xedit   +++| UPL      PS                 ENTRY/EXIT
06016  M00S05790.xedit   +++|          SA2    UPLA
06017  M00S05791.xedit   +++|          MX3    -12         END OF LINE MASK
06018  M00S05792.xedit   +++|          SB5    B6          MARK FIRST CHARACTER POSITION
06019  M00S05793.xedit   +++|          SX0    X2          SET MODE OF UNPACK
06020  M00S05794.xedit   +++|          MX2    -6          CHARACTER MASK
06021  M00S05795.xedit   +++|          BX4    -X3*X1      TEST FOR END OF LINE
06022  M00S05796.xedit   +++|          SB2    9           SET CHARACTER POSITION
06023  M00S05797.xedit   +++|          SB7    B6+MAXWD    SET LWA+1
06024  M00S05798.xedit   +++|          EQ     UPL3        PROCESS UNPACK
06025  M00S05799.xedit   +++|
06026  M00S05800.xedit   +++| UPLA     CON    100B        SET NO ASCII (RESET IN PRESET IF NEEDED)
06027  M00S05801.xedit   +++| VAL      SPACE  4,15
06028  M00S05802.xedit   +++|**        VAL - EVALUATE NUMERIC STRING.
06029  M00S05803.xedit   +++|*
06030  M00S05804.xedit   +++|*         ENTRY  (A5) = FWA OF NUMERIC STRING.
06031  M00S05805.xedit   +++|*                (X5) = FIRST WORD OF NUMERIC STRING.
06032  M00S05806.xedit   +++|*
06033  M00S05807.xedit   +++|*         EXIT   (A5) = LWA+1 OF NUMERIC STRING.
06034  M00S05808.xedit   +++|*                (X5) = ((A5)).
06035  M00S05809.xedit   +++|*                (X6) = NUMBER EVALUATED.
06036  M00S05810.xedit   +++|*                     = -0, IF NUMBER 0 WAS SPECIFIED.
06037  M00S05811.xedit   +++|*
06038  M00S05812.xedit   +++|*         USES   A - 5.
06039  M00S05813.xedit   +++|*                X - 3, 4, 5, 6, 7.
06040  M00S05814.xedit   +++|*                B - 2, 3, 4.
06041  M00S05815.xedit   +++|*

Seq #  *Modification Id* Act 
----------------------------+
06042  M01S05816.xedit21 ---|*         NOTES  THIS ROUTINE CONVERTS THE CHARACTER, +*+ TO 99999D.

Seq #  *Modification Id* Act 
----------------------------+
06043  M01S00075.xedit21 +++|*         NOTES THIS ROUTINE CONVERTS AN ASTERISK (*) TO 2**30 - 1.
06044  M01S00076.xedit21 +++|*
06045  M00S05817.xedit   +++|
06046  M00S05818.xedit   +++|
06047  M00S05819.xedit   +++| VAL1     SX4    X5-1R9-1
06048  M00S05820.xedit   +++|          SX3    X5-1R0
06049  M00S05821.xedit   +++|          BX4    -X3*X4
06050  M00S05822.xedit   +++|          PL     X4,VAL2     IF NOT A NUMBER
06051  M00S05823.xedit   +++|          LX4    B2,X6       *4
06052  M00S05824.xedit   +++|          IX4    X6+X4       *5
06053  M00S05825.xedit   +++|          SA5    A5+B1       NEXT CHARACTER
06054  M00S05826.xedit   +++|          LX4    1           *10
06055  M00S05827.xedit   +++|          SX7    X7+B1       SET CHARACTER ENCOUNTERED FLAG
06056  M00S05828.xedit   +++|          IX6    X4+X3
06057  M00S05829.xedit   +++|          PL     X5,VAL1     IF NOT END OF LINE
06058  M00S05830.xedit   +++|
06059  M00S05831.xedit   +++| VAL2     ZR     X7,VAL3     IF NO NUMBERS ENCOUNTERED
06060  M00S05832.xedit   +++|          NZ     X6,VAL4     IF NOT JUST 0 USED
06061  M00S05833.xedit   +++|          MX6    60          SET -0 FLAG
06062  M00S05834.xedit   +++|          EQ     VAL4        END OF NUMBERS
06063  M00S05835.xedit   +++|
06064  M00S05836.xedit   +++| VAL3     SX7    X5-1R*
06065  M00S05837.xedit   +++|          NZ     X7,VAL4     IF NOT *
06066  M00S05838.xedit   +++|          SA5    A5+1        STEP OVER *

Seq #  *Modification Id* Act 
----------------------------+
06067  M01S05839.xedit21 ---|          SX6    99999D      SET * EQUIVALENT

Seq #  *Modification Id* Act 
----------------------------+
06068  M01S00077.xedit21 +++|          MX6    -30
06069  M01S00078.xedit21 +++|          BX6    -X6         SET * EQUIVALENT
06070  M00S05840.xedit   +++| VAL4     SB4    X5-1R
06071  M00S05841.xedit   +++|          ZR     B4,VAL5     IF BLANK
06072  M00S05842.xedit   +++|          NE     B4,B1,VAL   IF NOT COMMA
06073  M00S05843.xedit   +++|          NZ     B3,VAL      IF SECOND COMMA
06074  M00S05844.xedit   +++| VAL5     SA5    A5+B1
06075  M00S05845.xedit   +++|          SB3    B3+B4       SET COMMA FLAG
06076  M00S05846.xedit   +++|          PL     X5,VAL4     IF NOT END OF LINE
06077  M00S05847.xedit   +++|
06078  M00S05848.xedit   +++| VAL      PS                 ENTRY/EXIT
06079  M00S05849.xedit   +++|          BX6    X6-X6       CLEAR ASSEMBLY
06080  M00S05850.xedit   +++|          SB2    B1+B1
06081  M00S05851.xedit   +++|          MX7    0           CLEAR CHARACTER ENCOUNTERED
06082  M00S05852.xedit   +++|          SB3    B0          SET NO COMMA
06083  M00S05853.xedit   +++|          PL     X5,VAL1     IF NOT END OF LINE
06084  M00S05854.xedit   +++|          EQ     VAL         RETURN
06085  M00S05855.xedit   +++| VIS      SPACE  4,10
06086  M00S05856.xedit   +++|**        VIS - VOID INSTRUCTION STACK.
06087  M00S05857.xedit   +++|*
06088  M00S05858.xedit   +++|*         *VIS* SHOULD BE CALLED IMMEDIATELY AFTER ALL INSTRUCTION
06089  M00S05859.xedit   +++|*         MODIFICATIONS TO VOID THE INSTRUCTION STACK.
06090  M00S05860.xedit   +++|
06091  M00S05861.xedit   +++|
06092  M00S05862.xedit   +++| VIS      SUBR               ENTRY/EXIT
06093  M00S05863.xedit   +++|          EQ     VIS         RETURN
06094  M00S05864.xedit   +++| VRT      SPACE  4,10
06095  M00S05865.xedit   +++|**        VRT - VERIFY LINE AND RETURN TO *NCM*.
06096  M00S05866.xedit   +++|*
06097  M00S05867.xedit   +++|*         ENTRY  NONE.
06098  M00S05868.xedit   +++|*
06099  M00S05869.xedit   +++|*         EXIT   TO *NCM*.
06100  M00S05870.xedit   +++|*
06101  M00S05871.xedit   +++|*         CALLS  VRY.
06102  M00S05872.xedit   +++|*
06103  M00S05873.xedit   +++|*         NOTES  DO NOT RETURN JUMP TO THIS ROUTINE.
06104  M00S05874.xedit   +++|
06105  M00S05875.xedit   +++|
06106  M00S05876.xedit   +++| VRT      RJ     VRY         VERIFY LINE
06107  M00S05877.xedit   +++|          EQ     NCM         EXIT
06108  M00S05878.xedit   +++| VRY      SPACE  4,15
06109  M00S05879.xedit   +++|**        VRY - VERIFY XEDIT OPERATIONS.
06110  M00S05880.xedit   +++|*
06111  M00S05881.xedit   +++|*         ENTRY  NONE.
06112  M00S05882.xedit   +++|*
06113  M00S05883.xedit   +++|*         EXIT   CURRENT LINE WRITTEN OF *VERIFY* TRUE.
06114  M00S05884.xedit   +++|*                THE LINE IS PACKED IF NEEDED AND HOUSEKEEPING DONE.
06115  M00S05885.xedit   +++|*
06116  M00S05886.xedit   +++|*         USES   A - 1, 4, 6.
06117  M00S05887.xedit   +++|*                X - 1, 4, 6.
06118  M00S05888.xedit   +++|*                B - 6, 7.
06119  M00S05889.xedit   +++|*
06120  M00S05890.xedit   +++|*         CALLS  RTA.
06121  M00S05891.xedit   +++|*
06122  M00S05892.xedit   +++|*         MACROS WRITEC.
06123  M00S05893.xedit   +++|
06124  M00S05894.xedit   +++| VRY1     WRITEC OUTPUT,E.LINE
06125  M00S05895.xedit   +++|
06126  M00S05896.xedit   +++| VRY      PS                 ENTRY/EXIT
06127  M00S05897.xedit   +++|          SA4    VERIFY
06128  M00S05898.xedit   +++|          PL     X4,VRY      IF NOT IN *VERIFY* MODE
06129  M00S05899.xedit   +++|          SA1    E.LMOD
06130  M00S05900.xedit   +++|          ZR     X1,VRY1     IF NO MODIFICATIONS OR PACKED
06131  M00S05901.xedit   +++|          SA1    A1-1
06132  M00S05902.xedit   +++|          ZR     X1,VRY1     IF CODED FORMAT
06133  M00S05903.xedit   +++|          SB6    E.STR       RE-PACK LINE
06134  M00S05904.xedit   +++|          SB7    E.LINE
06135  M00S05905.xedit   +++|          MX6    0           SET LMOD TO NO LINE MOD
06136  M00S05906.xedit   +++|          SA6    A1+B1       E.LMOD
06137  M00S05907.xedit   +++|          RJ     RTOA
06138  M00S05908.xedit   +++|          EQ     VRY1        WRITE LINE
06139  M00S05909.xedit   +++| WTF      SPACE  4,15
06140  M00S05910.xedit   +++|**        WTF - WRITE EDIT LINE.
06141  M00S05911.xedit   +++|*
06142  M00S05912.xedit   +++|*         ENTRY  (IWHERE) = IF CREATION MODE, .LE. ZERO.
06143  M00S05913.xedit   +++|*                           ELSE, LINE COUNT.
06144  M00S05914.xedit   +++|*
06145  M00S05915.xedit   +++|*         EXIT   (IWHERE) = IF CREATION MODE, 1.
06146  M00S05916.xedit   +++|*                           IF UPDATING, (IWHERE) + 1.
06147  M00S05917.xedit   +++|*
06148  M00S05918.xedit   +++|*         USES   A - 1, 2, 3, 6, 7.
06149  M00S05919.xedit   +++|*                X - 1, 2, 3, 6, 7.
06150  M00S05920.xedit   +++|*                B - 6, 7.
06151  M00S05921.xedit   +++|*
06152  M00S05922.xedit   +++|*         CALLS  RTOA, VIS.
06153  M00S05923.xedit   +++|*
06154  M00S05924.xedit   +++|*         MACROS WRITEC
06155  M00S05925.xedit   +++|
06156  M00S05926.xedit   +++|
06157  M00S05927.xedit   +++| WTF2     WRITEC E.OUT,E.LINE
06158  M00S05928.xedit   +++| WTF3     SA3    IWHERE      BUMP IWHERE

Seq #  *Modification Id* Act 
----------------------------+
06159  M01S05929.xedit2  ---|          SX7    X3+B1

Seq #  *Modification Id* Act 
----------------------------+
06160  M01S00007.xedit2  +++|          SX7    B1
06161  M01S00008.xedit2  +++|          IX7    X3+X7
06162  M00S05930.xedit   +++|          SA7    A3
06163  M00S05931.xedit   +++|
06164  M00S05932.xedit   +++| WTF      PS                 ENTRY/EXIT
06165  M00S05933.xedit   +++|          SA1    UPDATE
06166  M00S05934.xedit   +++|          PL     X1,WTF3     IF NOT UPDATING FILE.
06167  M00S05935.xedit   +++|
06168  M00S05936.xedit   +++|*         WORD IS REPLACED AFTER FIRST ENTRY.
06169  M00S05937.xedit   +++|
06170  M00S05938.xedit   +++| WTFA     SA1    WTFB
06171  M00S05939.xedit   +++|          EQ     WTF1        PRESET CODE
06172  M00S05940.xedit   +++|
06173  M00S05941.xedit   +++|*         NORMAL CODE FOLLOWS.
06174  M00S05942.xedit   +++|
06175  M00S05943.xedit   +++| WTF      RMT
06176  M00S05944.xedit   +++|          SA1    E.LMOD
06177  M00S05945.xedit   +++|          ZR     X1,WTF2     IF NO MODIFICATION
06178  M00S05946.xedit   +++|          RMT
06179  M00S05947.xedit   +++|
06180  M00S05948.xedit   +++|          SA1    A1-B1
06181  M00S05949.xedit   +++|          ZR     X1,WTF2     IF IN CODED MODE
06182  M00S05950.xedit   +++|          SB6    E.STR
06183  M00S05951.xedit   +++|          SB7    E.LINE
06184  M00S05952.xedit   +++|          RJ     RTOA        RE-PACK LINE
06185  M00S05953.xedit   +++|          MX6    0
06186  M00S05954.xedit   +++|          SA6    E.LMOD      SET NO MODIFICATIONS
06187  M00S05955.xedit   +++|          EQ     WTF2        WRITE LINE
06188  M00S05956.xedit   +++|
06189  M00S05957.xedit   +++|*         PRESET CODE.
06190  M00S05958.xedit   +++|
06191  M00S05959.xedit   +++| WTF1     SA2    IWHERE
06192  M00S05960.xedit   +++|          BX6    X1
06193  M00S05961.xedit   +++|          SX7    B1
06194  M00S05962.xedit   +++|          SA6    WTFA        REPLACE PRESET JUMP
06195  M00S05963.xedit   +++|          RJ     VIS         VOID INSTRUCTION STACK
06196  M00S05964.xedit   +++|          PL     X2,WTF+1    IF NOT CREATION MODE
06197  M00S05965.xedit   +++|          SA7    A2          SET IWHERE = 1
06198  M00S05966.xedit   +++|          MX6    0
06199  M00S05967.xedit   +++|          SA7    NOMOD       SET MODIFICATIONS MADE
06200  M00S05968.xedit   +++|          SA6    RC          SET DATA READ
06201  M00S05969.xedit   +++|          EQ     WTF         RETURN (NO LINE TO WRITE OUT)
06202  M00S05970.xedit   +++|
06203  M00S05971.xedit   +++| WTFB     BSS    0
06204  M00S05972.xedit   +++| WTF      HEREL
06205  M00S05973.xedit   +++|          TITLE  SPECIAL PURPOSE SUBROUTINES.
06206  M00S05974.xedit   +++| LCB      SPACE  4,25
06207  M00S05975.xedit   +++|**        LCB - LOAD CIRCULAR BUFFER.
06208  M00S05976.xedit   +++|*
06209  M00S05977.xedit   +++|*         ENTRY  (A2) = ADDRESS OF OUT.
06210  M00S05978.xedit   +++|*                (A3) = ADDRESS OF FIRST.
06211  M00S05979.xedit   +++|*                (A4) = RETURN ADDRESS.
06212  M00S05980.xedit   +++|*                (B4) = OUT.
06213  M00S05981.xedit   +++|*
06214  M00S05982.xedit   +++|*         EXIT   TO RETURN ADDRESS -1 IF CONTINUATION READ.
06215  M00S05983.xedit   +++|*                TO RETURN ADDRESS IF EOR/EOF.
06216  M00S05984.xedit   +++|*                (X1) = LAST WORD ADDRESS OF WORKING BUFFER.
06217  M00S05985.xedit   +++|*                     = -1 IF EOF.
06218  M00S05986.xedit   +++|*                     = -2 IF EOI.
06219  M00S05987.xedit   +++|*
06220  M00S05988.xedit   +++|*         MACROS READ, RECALL.
06221  M00S05989.xedit   +++|*
06222  M00S05990.xedit   +++|*         NOTES  ROUTINE IS COPIED FROM COMCRDW.
06223  M00S05991.xedit   +++|*                REQUEST READ IF BUFFER IS EMPTY, NOT BUSY AND NOT
06224  M00S05992.xedit   +++|*                EOR/EOF. IF BUFFER IS BUSY, RECALL AND RETURN.
06225  M00S05993.xedit   +++|*                MODIFIED TO RETURN EOI STATUS IF FET UNDER
06226  M00S05994.xedit   +++|*                INVESTIGATION HAS A ZERO FILENAME. (ASSUMES OPTIONS
06227  M00S05995.xedit   +++|*                SUCH AS I=0 USED).
06228  M00S05996.xedit   +++|
06229  M00S05997.xedit   +++|
06230  M00S05998.xedit   +++| LCB=     SA1    A3-B1       CHECK BUFFER STATUS
06231  M00S05999.xedit   +++|          SX6    B4          STORE OUT
06232  M00S06000.xedit   +++|          LX1    59-0
06233  M00S06001.xedit   +++|          SA6    A2
06234  M00S06002.xedit   +++|          NG     X1,LCB2     IF BUFFER NOT BUSY
06235  M00S06003.xedit   +++|          SX6    -2          PREPARE EOI STATUS
06236  M00S06004.xedit   +++|          ZR     X1,LCB8     IF NO FILE NAME (EG. L=0 USED)
06237  M00S06005.xedit   +++|          RECALL
06238  M00S06006.xedit   +++| LCB1     SB2    A4-B1       CONTINUE READ
06239  M00S06007.xedit   +++|          JP     B2          RETURN
06240  M00S06008.xedit   +++|
06241  M00S06009.xedit   +++| LCB2     SA1    A2-B1       RE-READ IN
06242  M00S06010.xedit   +++|          SB3    X1
06243  M00S06011.xedit   +++|          NE     B3,B4,LCB1  IF BUFFER NOT EMPTY
06244  M00S06012.xedit   +++|          SA1    A3-B1       CHECK BUFFER STATUS
06245  M00S06013.xedit   +++|          LX1    59-4
06246  M00S06014.xedit   +++|          NG     X1,LCB3     IF EOR/EOF/EOI
06247  M00S06015.xedit   +++|          READ   A3-B1       XEDIT ONLY USES READ FUNCTION
06248  M00S06016.xedit   +++|          SB2    A4-B1
06249  M00S06017.xedit   +++|          JP     B2          RETURN
06250  M00S06018.xedit   +++|
06251  M00S06019.xedit   +++| LCB3     LX6    B1,X1
06252  M00S06020.xedit   +++|          SA1    A3          SET IN = OUT = FIRST
06253  M00S06021.xedit   +++|          SX7    X1
06254  M00S06022.xedit   +++|          SA7    A1+B1
06255  M00S06023.xedit   +++|          SX1    -B1         SET EOF RESPONCE
06256  M00S06024.xedit   +++|          SB2    A4          SET RETURN ADDRESS
06257  M00S06025.xedit   +++|          NG     X6,LCB4     IF EOF
06258  M00S06026.xedit   +++|          MX2    -4
06259  M00S06027.xedit   +++|          SX1    B6
06260  M00S06028.xedit   +++|          LX6    -14+4
06261  M00S06029.xedit   +++|          BX2    -X2*X6
06262  M00S06030.xedit   +++|          SB3    X2+
06263  M00S06031.xedit   +++|          EQ     B3,B1,LCB6  IF LEVEL 1
06264  M00S06032.xedit   +++|
06265  M00S06033.xedit   +++| LCB4     SX2    A3-B1       RESET (X2)
06266  M00S06034.xedit   +++|          SA7    A7+B1
06267  M00S06035.xedit   +++|          NG     X1,LCB7     IF EOF/EOI
06268  M00S06036.xedit   +++| LCB5     JP     B2          RETURN
06269  M00S06037.xedit   +++|
06270  M00S06038.xedit   +++| LCB6     SA7    A7+B1       STORE OUT
06271  M00S06039.xedit   +++|          READ   A3-B1,R     RESTART TELETYPE READ
06272  M00S06040.xedit   +++|          SB2    A4-B1
06273  M00S06041.xedit   +++|          JP     B2          RETURN
06274  M00S06042.xedit   +++|
06275  M00S06043.xedit   +++| LCB7     LX6    3-9
06276  M00S06044.xedit   +++|          PL     X6,LCB5     IF NOT EOI
06277  M00S06045.xedit   +++|          LX1    1           SET -2 RESPONSE
06278  M00S06046.xedit   +++|          JP     B2          RETURN
06279  M00S06047.xedit   +++|
06280  M00S06048.xedit   +++| LCB8     SB2    A4
06281  M00S06049.xedit   +++|          BX1    X6          MOVE EOI STATUS
06282  M00S06050.xedit   +++|          JP     B2          RETURN
06283  M00S06051.xedit   +++|
06284  M00S06052.xedit   +++| RDX      SPACE  4,20
06285  M00S06053.xedit   +++|**        RDX - READ EXIT.
06286  M00S06054.xedit   +++|*
06287  M00S06055.xedit   +++|*         ENTRY  (A2) = ADDRESS OF OUT.
06288  M00S06056.xedit   +++|*                (A3) = ADDRESS OF FIRST.
06289  M00S06057.xedit   +++|*                (A4) = RETURN ADDRESS.
06290  M00S06058.xedit   +++|*                (X3) = FIRST.
06291  M00S06059.xedit   +++|*                (B3) = IN.
06292  M00S06060.xedit   +++|*                (B4) = OUT.
06293  M00S06061.xedit   +++|*                (B5) = LIMIT.
06294  M00S06062.xedit   +++|*
06295  M00S06063.xedit   +++|*         EXIT   TO RETURN ADDRESS.
06296  M00S06064.xedit   +++|*
06297  M00S06065.xedit   +++|*         MACROS READ.
06298  M00S06066.xedit   +++|*
06299  M00S06067.xedit   +++|*         NOTES  ROUTINE COPIED FROM COMCRDW.
06300  M00S06068.xedit   +++|*                EXIT FROM READ SUBROUTINE TO CALLER.
06301  M00S06069.xedit   +++|*                IF CIRCULAR BUFFER IS BUSY, OR EOR/EOF IS SENSED, NO
06302  M00S06070.xedit   +++|*                ACTION IS TAKEN. OTHERWISE, THE WORD COUNT REMAINING
06303  M00S06071.xedit   +++|*                IN THE BUFFER IS CHECKED AND A READ FUNCTION ISSUED.
06304  M00S06072.xedit   +++|*                IF NECESSARY.
06305  M00S06073.xedit   +++|
06306  M00S06074.xedit   +++|
06307  M00S06075.xedit   +++| RDX=     SA1    A3-B1       CHECK BUFFER STATUS
06308  M00S06076.xedit   +++|          SX6    B4
06309  M00S06077.xedit   +++|          LX1    59
06310  M00S06078.xedit   +++|          SA6    A2          STORE OUT
06311  M00S06079.xedit   +++|          SX2    A3-B1       RESET (X2)
06312  M00S06080.xedit   +++|          PL     X1,RDX1     IF BUFFER BUSY
06313  M00S06081.xedit   +++|          LX1    -4
06314  M00S06082.xedit   +++|          NG     X1,RDX1     IF EOR/EOF/EOI SET
06315  M00S06083.xedit   +++|          SA1    A2-B1       REREAD IN
06316  M00S06084.xedit   +++|          SB3    X1
06317  M00S06085.xedit   +++|
06318  M00S06086.xedit   +++|*         IF BUFFER IS NOT BUSY, CHECK SIZE AND ISSUE READ.
06319  M00S06087.xedit   +++|
06320  M00S06088.xedit   +++|          SX6    B3-B4       (IN-OUT)
06321  M00S06089.xedit   +++|          SB2    X3          (LIMIT-FIRST)
06322  M00S06090.xedit   +++|          LX3    X6,B1       2*(IN-OUT)
06323  M00S06091.xedit   +++|          SX7    B5-B2
06324  M00S06092.xedit   +++|          AX6    60          SIGN OF (IN-OUT)
06325  M00S06093.xedit   +++|          BX4    X6-X7       INVERT BUFFER IF OUT >= IN
06326  M00S06094.xedit   +++|          IX6    X4-X3       BUFFER SIZE - 2*(IN-OUT)
06327  M00S06095.xedit   +++|          AX7    9
06328  M00S06096.xedit   +++|          NG     X6,RDX1     IF BUFFER THRESHOLD NOT REACHED
06329  M00S06097.xedit   +++|          ZR     X7,RDX1     IF BUFFER NOT BIG ENOUGH TO READ AHEAD
06330  M00S06098.xedit   +++|          READ   X2          READ FILE
06331  M00S06099.xedit   +++|
06332  M00S06100.xedit   +++| RDX1     SX1    B0          RESPONSE =0
06333  M00S06101.xedit   +++|          SB2    A4
06334  M00S06102.xedit   +++|          JP     B2          RETURN
06335  M00S06103.xedit   +++|          SPACE  4
06336  M00S06104.xedit   +++|*         COMMON DECKS NEEDED GLOBALLY.
06337  M00S06105.xedit   +++|
06338  M00S06106.xedit   +++|*CALL     COMCCDD

Seq #  *Modification Id* Act 
----------------------------+
06339  M01S00019.xedit12 +++|*CALL     COMCCFD
06340  M00S06107.xedit   +++|*CALL     COMCCIO
06341  M00S06108.xedit   +++|*CALL     COMCCPM

Seq #  *Modification Id* Act 
----------------------------+
06342  M01S00020.xedit12 +++|*CALL     COMCCUA
06343  M01S00021.xedit12 +++|*CALL     COMCEDT
06344  M00S06109.xedit   +++|*CALL     COMCLFM
06345  M00S06110.xedit   +++|*CALL     COMCOVL
06346  M00S06111.xedit   +++|*CALL     COMCPFM
06347  M00S06112.xedit   +++|*CALL     COMCRDC
06348  M00S06113.xedit   +++|*CALL     COMCSYS
06349  M00S06114.xedit   +++|*CALL     COMCWTC
06350  M00S06115.xedit   +++|*CALL     COMCWTO
06351  M00S06116.xedit   +++|*CALL     COMCWTW

Seq #  *Modification Id* Act 
----------------------------+
06352  M01S00022.xedit12 +++|*CALL     COMCZTB
06353  M00S06117.xedit   +++|          SPACE  4
06354  M00S06118.xedit   +++|          IF     -DEF,ACCTE,3
06355  M00S06119.xedit   +++|          TITLE  PRESET AND BUFFER ALLOCATION.
06356  M00S06120.xedit   +++| QUAL$    BSS    0           COMMON DECK QUAL DONE BY XEDIT
06357  M00S06121.xedit   +++|          QUAL   PRESET
06358  M00S06122.xedit   +++|
06359  M00S06123.xedit   +++|
06360  M00S06124.xedit   +++|**        NOTE-  PRESET RESIDES IN TWO LOCATIONS. THE MAJOR AREA
06361  M00S06125.xedit   +++|*         RESIDES IN THE OUTGOING EDIT FILE BUFFER. THE OTHER
06362  M00S06126.xedit   +++|*         SECTION DEALS ONLY WITH THE LAST MINUTE DETAILS WHICH
06363  M00S06127.xedit   +++|*         COULD BE WIPED OUT BY USING THE EDIT FILES. THIS CODE
06364  M00S06128.xedit   +++|*         RESIDES IN THE D.STR ARRAY.
06365  M00S06129.xedit   +++| PRF      SPACE  4,20
06366  M00S06130.xedit   +++|**        PRF - PRESET EDIT FILE.
06367  M00S06131.xedit   +++|*
06368  M00S06132.xedit   +++|*         ENTRY  AT *PRF*, IF FILE IS LOCAL.
06369  M00S06133.xedit   +++|*                AT *PRF3*, IF *C* PARAMETER USED.
06370  M00S06134.xedit   +++|*                AT *PRF4*, IF *P* PARAMETER USED.
06371  M00S06135.xedit   +++|*                (D.STR) = EDIT FILE NAME.
06372  M00S06136.xedit   +++|*
06373  M00S06137.xedit   +++|*         EXIT   TO *NCM* TO PROCESS COMMANDS.
06374  M00S06138.xedit   +++|*                TO *ABT* IF FATAL ERROR.
06375  M00S06139.xedit   +++|*
06376  M00S06140.xedit   +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
06377  M00S06141.xedit   +++|*                X - 1, 2, 3, 4, 5, 6, 7.
06378  M00S06142.xedit   +++|*                B - 3, 6, 7.
06379  M00S06143.xedit   +++|*
06380  M00S06144.xedit   +++|*         CALLS  GFN, RDF, RDL, RTA, SFN, STF STK, UPL.
06381  M00S06145.xedit   +++|*
06382  M00S06146.xedit   +++|*         MACROS ATTACH, DISTC, GET, READ, RECALL, RENAME,
06383  M00S06147.xedit   +++|*                REWIND, STATUS, WRITEC.
06384  M00S06148.xedit   +++|
06385  M00S06149.xedit   +++|
06386  M00S06150.xedit   +++|          ORG    D.STR       FILE PRESET
06387  M00S06151.xedit   +++| PRF      EQ     PRF8        PROCESS LOCAL FILE
06388  M00S06152.xedit   +++|
06389  M00S06153.xedit   +++|*         BAD FILE READ.
06390  M00S06154.xedit   +++|
06391  M00S06155.xedit   +++| PRF1     REWIND E.IN,RECALL
06392  M00S06156.xedit   +++|          READ   X2,RECALL
06393  M00S06157.xedit   +++|          READ   X2,RECALL
06394  M00S06158.xedit   +++|          SA1    X2
06395  M00S06159.xedit   +++|          LX1    59-9        POSITION EOI BIT
06396  M00S06160.xedit   +++|          SX4    PRFB        * FILE NOT XEDIT-ABLE.
06397  M00S06161.xedit   +++|          PL     X1,PRF6     IF ABOVE
06398  M00S06162.xedit   +++|          SA1    E.IN+2      CHECK IN POINTER
06399  M00S06163.xedit   +++|          SX1    X1-BUFB
06400  M00S06164.xedit   +++|          NZ     X1,PRF6     IF DATA ON FILE
06401  M00S06165.xedit   +++| PRF2     BSS    0
06402  M00S06166.xedit   +++|          IF     DEF,CYBRNET,2
06403  M00S06167.xedit   +++|          WRITEC OUTPUT,PRFC * EMPTY FILE/CREATION MODE ASSUMED
06404  M00S06168.xedit   +++|          SKIP   2
06405  M00S06169.xedit   +++|          SX4    PRFC        * EMPTY OR FILE NOT FOUND.
06406  M00S06170.xedit   +++|          EQ     PRF6        CREATE FILE
06407  M00S06171.xedit   +++|
06408  M00S06172.xedit   +++|*         ENTER IF *C* PARAMETER SPECIFIED (CREATION MODE).
06409  M00S06173.xedit   +++|
06410  M00S06174.xedit   +++| PRF3     SA1    UPDATE
06411  M00S06175.xedit   +++|          SB6    PRFE        * UPDATE/CREATION MODE CONFLICT.*
06412  M00S06176.xedit   +++|          PL     X1,ABT      IF ABOVE
06413  M00S06177.xedit   +++|          REWIND E.IN,RECALL
06414  M00S06178.xedit   +++|          REWIND E.OUT,RECALL REWIND SCRATCH FILES
06415  M00S06179.xedit   +++|          SA1    PRFA        PUT NAME INTO FET
06416  M00S06180.xedit   +++|          SX7    1031B       NOT BUSY, EOI ENCOUNTERED
06417  M00S06181.xedit   +++|          SX6    -B1
06418  M00S06182.xedit   +++|          BX7    X7+X1
06419  M00S06183.xedit   +++|          SA6    IWHERE      SET CREATION MODE FLAG
06420  M00S06184.xedit   +++|          SA7    E.IN
06421  M00S06185.xedit   +++|          SA6    RC          SET NO DATA READ
06422  M00S06186.xedit   +++|          SA6    FS          SET NOT READING OFF EDIT FILE
06423  M00S06187.xedit   +++|          EQ     PRF10       COMPLETE INITIALIZATION
06424  M00S06188.xedit   +++|
06425  M00S06189.xedit   +++|*         ENTER IF *P* PARAMETER SPECIFIED.
06426  M00S06190.xedit   +++|
06427  M00S06191.xedit   +++| PRF4     SA1    PRFA        OLSCRB
06428  M00S06192.xedit   +++|          SA2    IFN
06429  M00S06193.xedit   +++|          MX7    59
06430  M00S06194.xedit   +++|          BX7    -X7+X1      SET *NOT BUSY*
06431  M00S06195.xedit   +++|          SA7    FS          SET READING OFF SCRATCH FILE
06432  M00S06196.xedit   +++|          LX6    X2
06433  M00S06197.xedit   +++|          SA7    FT
06434  M00S06198.xedit   +++|          SA6    FT+8
06435  M00S06199.xedit   +++|          GET    FT
06436  M00S06200.xedit   +++|          SA3    X2
06437  M00S06201.xedit   +++|          SX1    36000B      LOAD MASK
06438  M00S06202.xedit   +++|          BX6    X1*X3
06439  M00S06203.xedit   +++|          ZR     X6,PRF5     IF FILE GOTTEN

Seq #  *Modification Id* Act 
----------------------------+
06440  M01S00030.xedit20 +++|          SA1    UPDATE
06441  M01S00031.xedit20 +++|          PL     X1,PRF4.1   IF IN LOOK MODE
06442  M00S06204.xedit   +++|          ATTACH X2,,,,W

Seq #  *Modification Id* Act 
----------------------------+
06443  M01S06205.xedit20 ---|          SA3    X2

Seq #  *Modification Id* Act 
----------------------------+
06444  M01S00032.xedit20 +++|          EQ     PRF4.2      CHECK FOR ERROR
06445  M01S00033.xedit20 +++|
06446  M01S00034.xedit20 +++| PRF4.1   ATTACH X2,,,,R
06447  M01S00035.xedit20 +++| PRF4.2   SA3    X2
06448  M00S06206.xedit   +++|          SX1    36000B
06449  M00S06207.xedit   +++|          BX6    X1*X3
06450  M00S06208.xedit   +++|          SX4    ERR         SET ERROR MESSAGE TO PFM
06451  M00S06209.xedit   +++|          NZ     X6,PRF6     IF ABOVE
06452  M00S06210.xedit   +++|          MX7    1           SET *ATTACH* BIT
06453  M00S06211.xedit   +++|          LX7    57-59
06454  M00S06212.xedit   +++|          SA7    SPCP
06455  M00S06213.xedit   +++|          SA1    FT+8
06456  M00S06214.xedit   +++|          MX6    42          RENAME FOR D.A. EXIT PROBLEMS
06457  M00S06215.xedit   +++|          SX7    B0
06458  M00S06216.xedit   +++|          BX1    X6*X1
06459  M00S06217.xedit   +++|          SA7    FS          SET READING OFF PRIMARY FILE
06460  M00S06218.xedit   +++|          RENAME FT,X1
06461  M00S06219.xedit   +++| PRF5     SA1    FT          GET NAME
06462  M00S06220.xedit   +++|          MX6    42
06463  M00S06221.xedit   +++|          SX7    B1
06464  M00S06222.xedit   +++|          BX2    X6*X1       CLEAR LOWER BITS
06465  M00S06223.xedit   +++|          IX7    X2+X7       SET COMPLETE
06466  M00S06224.xedit   +++|          RECALL E.IN
06467  M00S06225.xedit   +++|          SA7    E.IN        PUT NEW FILENAM INTO FET
06468  M00S06226.xedit   +++|          SA1    SPCP        SET *P* AS SPECIFIED PARAMETER
06469  M00S06227.xedit   +++|          MX7    1
06470  M00S06228.xedit   +++|          LX7    58-59
06471  M00S06229.xedit   +++|          BX7    X1+X7
06472  M00S06230.xedit   +++|          SA7    A1
06473  M00S06231.xedit   +++|          EQ     PRF9        SET UP FILE FOR EDITING
06474  M00S06232.xedit   +++|
06475  M00S06233.xedit   +++|*         PROCESS EDITFIL ERROR.
06476  M00S06234.xedit   +++|*         (X4) = ADDRESS OF ERROR MESSAGE.
06477  M00S06235.xedit   +++|
06478  M00S06236.xedit   +++| PRF6     WRITEC OUTPUT,X4   ISSUE MESSAGE
06479  M00S06237.xedit   +++|          SA1    PRFF
06480  M00S06238.xedit   +++|          SX6    X1-1        DECREMENT RETRY COUNT
06481  M00S06239.xedit   +++|          SA6    A1+
06482  M00S06240.xedit   +++|          ZR     X1,PRF13    IF EXCEEDED RETRY LIMIT
06483  M00S06241.xedit   +++|
06484  M00S06242.xedit   +++| PRF7     WRITEC OUTPUT,PRFH * NAME EDIT FILE
06485  M00S06243.xedit   +++|          RJ     RDL         READ A LINE (NOTE- PRELIX + INITIALLY SET)
06486  M00S06244.xedit   +++|          NZ     X1,PRF7     IF HIT A CARRIAGE RETURN
06487  M00S06245.xedit   +++|          SA1    D.LINE
06488  M00S06246.xedit   +++|          SB6    E.STR       *E.STR* USED AS SCRATCH
06489  M00S06247.xedit   +++|          RJ     UPL
06490  M00S06248.xedit   +++|          SA5    E.STR
06491  M00S06249.xedit   +++|          RJ     GFN         GET SPECIFIED EDITFIL NAME
06492  M00S06250.xedit   +++|          SX4    =C* RESERVED FILE NAME.*
06493  M00S06251.xedit   +++|          SB6    B6-303B
06494  M00S06252.xedit   +++|          ZR     B6,PRF7.1   IF RESERVED FILE NAME
06495  M00S06253.xedit   +++|          SX4    PRFL
06496  M00S06254.xedit   +++|          NZ     B4,PRF7.1   IF SPECIAL CHARACTERS
06497  M00S06255.xedit   +++|          SX4    PRFM
06498  M00S06256.xedit   +++| PRF7.1   NZ     X1,PRF6     IF FILE NAME ERROR
06499  M00S06257.xedit   +++|          SA6    IFN
06500  M00S06258.xedit   +++|          NG     X5,PRF8     IF END OF LINE
06501  M00S06259.xedit   +++|          MX3    -6          EXTRACT LOWER CASE PART OF CHARACTER
06502  M00S06260.xedit   +++|          BX5    -X3*X5
06503  M00S06261.xedit   +++|          SX4    X5-1RC
06504  M00S06262.xedit   +++|          ZR     X4,PRF3     IF *C* USED
06505  M00S06263.xedit   +++|          SX4    X5-1RP
06506  M00S06264.xedit   +++|          ZR     X4,PRF4     IF *P* USED
06507  M00S06265.xedit   +++|
06508  M00S06266.xedit   +++|*         NO PARAMETER USED
06509  M00S06267.xedit   +++|
06510  M00S06268.xedit   +++| PRF8     SA1    IFN         PUT EDIT NAME INTO FET
06511  M00S06269.xedit   +++|          MX7    59D
06512  M00S06270.xedit   +++|          BX7    -X7+X1      SET FET *NOT BUSY*
06513  M00S06271.xedit   +++|          RECALL E.IN
06514  M00S06272.xedit   +++|          MX6    0
06515  M00S06273.xedit   +++|          SA7    E.IN        SET NAME INTO FET
06516  M00S06274.xedit   +++|          SA6    FS          SET READING OFF EDIT FILE
06517  M00S06275.xedit   +++|          RJ     STF         SET TERMINAL FILE
06518  M00S06276.xedit   +++|          NZ     X6,PRF9     IF EDITFIL NOT TYPE *TT*
06519  M00S06277.xedit   +++|          SA1    E.IN
06520  M00S06278.xedit   +++|          MX6    42
06521  M00S06279.xedit   +++|          BX1    X6*X1
06522  M00S06280.xedit   +++|          RJ     SFN         SPACE FILE NAME
06523  M00S06281.xedit   +++|          SX4    =C* FILENAM  CANNOT BE ASSIGNED TO THE TERMINAL.*
06524  M00S06282.xedit   +++|          LX6    -6
06525  M00S06283.xedit   +++|          SA6    X4          INSERT FILE NAME INTO MESSAGE
06526  M00S06284.xedit   +++|          EQ     PRF6        PROCESS EDITFIL ERROR
06527  M00S06285.xedit   +++|
06528  M00S06286.xedit   +++| PRF9     REWIND E.IN,RECALL REWIND BOTH SCRATCH FILES
06529  M00S06287.xedit   +++|          REWIND E.OUT,RECALL
06530  M00S06288.xedit   +++|          BX7    X7-X7
06531  M00S06289.xedit   +++|          SA7    E.IN+5      INITIALIZE STATUS RESPONCE CELLS
06532  M00S06290.xedit   +++|          SA7    A7+B1
06533  M00S06291.xedit   +++|          STATUS E.IN,P
06534  M00S06292.xedit   +++|          SA1    E.IN+5      GET FNT ENTRY OF EDITFIL
06535  M00S06293.xedit   +++|          ZR     X1,PRF2     IF FILE NOT THERE
06536  M00S06294.xedit   +++|          BX6    X1
06537  M00S06295.xedit   +++|          LX1    59-14D      EXECUTE ONLY FLAG
06538  M00S06296.xedit   +++|          SX4    PRFJ        * CANNOT EDIT EXECUTE ONLY FILES
06539  M00S06297.xedit   +++|          NG     X1,PRF6     IF ABOVE
06540  M00S06298.xedit   +++|          READ   E.IN
06541  M00S06299.xedit   +++|          MX6    1
06542  M00S06300.xedit   +++|          SA6    RC          SET DAT READ
06543  M00S06301.xedit   +++|          RJ     RDF         READ INITIAL LINE
06544  M00S06302.xedit   +++| PRF10    SA1    IFN         MOVE FILE NAME
06545  M00S06303.xedit   +++|          BX7    X1
06546  M00S06304.xedit   +++|          SA7    IRFN
06547  M00S06305.xedit   +++|          SA7    ISFN
06548  M00S06306.xedit   +++|          SA7    INITZ       SET INITIALIZATION COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
06549  M01S06307.xedit1  ---|
06550  M01S06308.xedit1  ---|*         (PRF.)=*EQ PRF7*  IF *DB* PRARMETER USED.
06551  M01S06309.xedit1  ---|
06552  M01S06310.xedit1  ---| PRF.     SA1    JOPR

Seq #  *Modification Id* Act 
----------------------------+
06553  M01S00001.xedit1  +++| PRF10.1  SA1    JOPR
06554  M01S00002.xedit1  +++|*         EQ     PRF11       (DB PARAMETER SPECIFIED)
06555  M00S06311.xedit   +++|          MX2    -12
06556  M00S06312.xedit   +++|          LX1    0-24
06557  M00S06313.xedit   +++|          BX1    -X2*X1      ISOLATE ORIGIN TYPE
06558  M00S06314.xedit   +++|          SX1    X1-TXOT
06559  M00S06315.xedit   +++|          NZ     X1,PRF11    IF NOT TELEX ORIGIN
06560  M00S06316.xedit   +++|          DISTC  ON,TLX
06561  M00S06317.xedit   +++|
06562  M00S06318.xedit   +++|*         PROCESS *FR* PARAMETER.
06563  M00S06319.xedit   +++|
06564  M00S06320.xedit   +++| PRF11    SA1    PRFG
06565  M00S06321.xedit   +++|          ZR     X1,NCM      IF *FR* NOT USED
06566  M00S06322.xedit   +++|          SA1    E.LINE
06567  M00S06323.xedit   +++|          SB6    E.STR
06568  M00S06324.xedit   +++|          RJ     UPL
06569  M00S06325.xedit   +++|          SA1    E.STR-1
06570  M00S06326.xedit   +++|          SB6    A1+1
06571  M00S06327.xedit   +++|
06572  M00S06328.xedit   +++|*         LOCATE FIRST CHARACTER AFTER 2 CONSECUTIVE BLANKS.
06573  M00S06329.xedit   +++|
06574  M00S06330.xedit   +++| PRF12    SA1    A1+B1
06575  M00S06331.xedit   +++|          SB3    A1-B6
06576  M00S06332.xedit   +++|          NG     X1,NCM      IF END OF LINE REACHED, EXIT
06577  M00S06333.xedit   +++|          SX2    X1-1R
06578  M00S06334.xedit   +++|          ZR     X2,PRF12    IF CHARACTER WAS A BLANK
06579  M00S06335.xedit   +++|          SB6    A1+B1
06580  M00S06336.xedit   +++|          LE     B3,B1,PRF12 IF NOT AT LEAST 2 CONSECUTIVE BLANKS
06581  M00S06337.xedit   +++|          SB6    B6-B1       SET TO FIRST CHARACTER
06582  M00S06338.xedit   +++|          SB7    P.LINE
06583  M00S06339.xedit   +++|          RJ     RTA         PACK COMMAND LINE
06584  M00S06340.xedit   +++|          SA1    P.DEV       SET COMMAND TO PREVIOUS COMMAND
06585  M00S06341.xedit   +++|          RJ     STK         STACK DEVICES AND EXIT TO NCM
06586  M00S06342.xedit   +++| .J       IFEQ   DEBUG,1     IF DEBUG ON
06587  M00S06343.xedit   +++|          WRITEC OUTPUT,PRFK
06588  M00S06344.xedit   +++| .J       ENDIF
06589  M00S06345.xedit   +++|          EQ     NCM         EXIT, PROCESS COMMANDS
06590  M00S06346.xedit   +++|
06591  M00S06347.xedit   +++|*         BATCH MODE - RETRY COUNT ABORT.
06592  M00S06348.xedit   +++|
06593  M00S06349.xedit   +++| PRF13    SB6    PRFI        * BATCH MODE - RETRY COUNT EXCEEDED.
06594  M00S06350.xedit   +++|          EQ     ABT         ABORT XEDIT
06595  M00S06351.xedit   +++|
06596  M00S06352.xedit   +++| PRFA     DATA   0LSCRB
06597  M00S06353.xedit   +++| PRFB     DATA   C* FILE NOT XEDIT-ABLE.*
06598  M00S06354.xedit   +++|          IF     DEF,CYBRNET,2
06599  M00S06355.xedit   +++| PRFC     DATA   C* EMPTY FILE/ CREATION MODE ASSUMED.*
06600  M00S06356.xedit   +++|          SKIP   1
06601  M00S06357.xedit   +++| PRFC     DATA   C* EMPTY OR FILE NOT FOUND.*

Seq #  *Modification Id* Act 
----------------------------+
06602  M01S06358.xedit20 ---| PRFE     DATA   C* UPDATE/CREATION MODE CONFLICT.*

Seq #  *Modification Id* Act 
----------------------------+
06603  M01S00036.xedit20 +++| PRFE     DATA   C* LOOK/CREATION MODE CONFLICT.*
06604  M00S06359.xedit   +++| PRFF     CON    -1          RETRY COUNT. STOP WHEN 0 (SET IN PRESET)
06605  M00S06360.xedit   +++| PRFG     DATA   0           .NE. 0 IF *FR* USED
06606  M00S06361.xedit   +++| PRFH     DATA   10HNAME EDIT
06607  M00S06362.xedit   +++|          VFD    24/4HFILE,12/0001B,24/
06608  M00S06363.xedit   +++| PRFI     DATA   C* BATCH ABORT - RETRY COUNT EXCEEDED.*
06609  M00S06364.xedit   +++| PRFJ     DATA   C* CANNOT EDIT EXECUTE ONLY FILES.*
06610  M00S06365.xedit   +++| PRFK     DATA   C+ *FR* COMMAND STACKING ERROR.+

Seq #  *Modification Id* Act 
----------------------------+
06611  M01S06366.v23l617 ---| PRFL     DATA   C* INVALID CHARACTERS IN FILE NAME.*

Seq #  *Modification Id* Act 
----------------------------+
06612  M01S00015.v23l617 +++| PRFL     DATA   C* INCORRECT CHARACTERS IN FILE NAME.*
06613  M00S06367.xedit   +++| PRFM     DATA   C* TOO MANY CHARACTERS IN FILE NAME.*
06614  M00S06368.xedit   +++|
06615  M00S06369.xedit   +++|          ERRPL  *-D.STR-D.STRL-1 IF PRF OVERFLOWS SCRATCH ARRAY
06616  M00S06370.xedit   +++|          ORG    *           RESET ORIGIN
06617  M00S06371.xedit   +++|          QUAL   *
06618  M00S06372.xedit   +++|          SPACE  4
06619  M00S06373.xedit   +++|*         XEDIT BUFFERS.
06620  M00S06374.xedit   +++|
06621  M00S06375.xedit   +++|          USE    BUFFERS     FLUSH LITERALS
06622  M00S06376.xedit   +++|
06623  M00S06377.xedit   +++| BUFA     EQU    *           OUTGOING EDIT FILE
06624  M00S06378.xedit   +++| BUFB     EQU    BUFA+BUFAL  INCOMING EDIT FILE
06625  M00S06379.xedit   +++| BUFI     EQU    BUFB+BUFBL  PRIMARY INPUT FILE
06626  M00S06380.xedit   +++| BUFO     EQU    BUFI+BUFIL  OUTPUT FILE
06627  M00S06381.xedit   +++| MINFL    EQU    BUFO+BUFOL+1 MINIMUM FL FOR XEDIT
06628  M00S06382.xedit   +++| BUFC     EQU    MINFL       ALTERNATE INPUT FILE
06629  M00S06383.xedit   +++| BUFD     EQU    BUFC+BUFCL  COPY/READ FILE
06630  M00S06384.xedit   +++| MAXFL    EQU    BUFD+BUFDL  MAX FL FOR MAIN PROGRAM
06631  M00S06385.xedit   +++| RFL=     EQU    MINFL+1     INITIAL FIELD LENGTH
06632  M00S06386.xedit   +++| FWAOVL   EQU    MAXFL+2     MINIMUM OVERLAY FIELD LENGTH
06633  M00S06387.xedit   +++| PRS      SPACE  4,15
06634  M00S06388.xedit   +++|**        PRS - PRESET XEDIT AND BEGIN EXECUTION.
06635  M00S06389.xedit   +++|*
06636  M00S06390.xedit   +++|*         ENTRY  NONE.
06637  M00S06391.xedit   +++|*
06638  M00S06392.xedit   +++|*         EXIT   TO *PRF*.
06639  M00S06393.xedit   +++|*
06640  M00S06394.xedit   +++|*         USES   A - ALL.
06641  M00S06395.xedit   +++|*                X - ALL.
06642  M00S06396.xedit   +++|*                B - 1, 2, 3, 4, 5, 6.
06643  M00S06397.xedit   +++|*
06644  M00S06398.xedit   +++|*         CALLS  ARG, ICH, UPL, VIS.
06645  M00S06399.xedit   +++|*
06646  M00S06400.xedit   +++|*         MACROS ABORT, CSET, GETFNT, GETJA, MEMORY, MESSAGE,
06647  M00S06401.xedit   +++|*                MOVE, OPEN, TSTATUS, WRITE, WRITEC.
06648  M00S06402.xedit   +++|
06649  M00S06403.xedit   +++|
06650  M00S06404.xedit   +++| XEDIT    SB1    1           ENTRY
06651  M00S06405.xedit   +++|          QUAL   PRESET
06652  M00S06406.xedit   +++|          IF     DEF,TIMING,1
06653  M00S06407.xedit   +++|          GETJA  TIMING
06654  M00S06408.xedit   +++|          MEMORY CM,,RECALL,RFL=

Seq #  *Modification Id* Act 
----------------------------+
06655  M01S00023.xedit12 +++|          SA1    PRSS        GET TOOLNAME FOR *FNL* CALL
06656  M01S00024.xedit12 +++|          RJ     INT         STORE INITIAL *CUA* VARIABLES
06657  M01S00025.xedit12 +++|
06658  M00S06409.xedit   +++|          BX6    X6-X6       CLEAR BUFFER CONTROL WORD
06659  M00S06410.xedit   +++|          SA6    PRSI
06660  M00S06411.xedit   +++|          SA1    B1+B1
06661  M00S06412.xedit   +++|          MX0    42
06662  M00S06413.xedit   +++|          BX2    X0*X1
06663  M00S06414.xedit   +++|          NZ     X2,PRS2     IF FILE NAME PRESENT
06664  M00S06415.xedit   +++| PRS1     GETFNT PRSA
06665  M00S06416.xedit   +++|          SA1    PRSI+1      GET FILE NAME
06666  M00S06417.xedit   +++|          BX2    X0*X1
06667  M00S06418.xedit   +++|          NZ     X2,PRS2     IF FILE FOUND
06668  M00S06419.xedit   +++|          SA3    PRSI
06669  M00S06420.xedit   +++|          NG     X3,PRS1     IF FILE NOT FOUND
06670  M00S06421.xedit   +++|          SA2    PRSB        =0LTAPE1
06671  M00S06422.xedit   +++| PRS2     SX7    B1
06672  M00S06423.xedit   +++|          SA3    ACTR
06673  M00S06424.xedit   +++|          BX7    X2
06674  M00S06425.xedit   +++|          SB4    X3-1        SET NUMBER OF PARAMETERS
06675  M00S06426.xedit   +++|          SA7    IFN         PUT INCOMING NAME
06676  M00S06427.xedit   +++|          LE     B4,PRS4     IF 1 PARAMETER OR LESS
06677  M00S06428.xedit   +++|          SA4    3
06678  M00S06429.xedit   +++|          SB5    PRSC
06679  M00S06430.xedit   +++|          RJ     ARG         PROCESS ARGUMENT TABLE
06680  M00S06431.xedit   +++|          RJ     VIS         VOID INSTRUCTION STACK
06681  M00S06432.xedit   +++|          ZR     X1,PRS4     IF NO ERRORS
06682  M00S06433.xedit   +++|          SA0    PRSD        C* ERROR IN XEDIT ARGUMENTS.*
06683  M00S06434.xedit   +++|
06684  M00S06435.xedit   +++|*         PRESET ERROR ROUTINE - (A0) = ADDRESS OF MESSAGE.
06685  M00S06436.xedit   +++|

Seq #  *Modification Id* Act 
----------------------------+
06686  M01S06437.xedit19 ---| PRS3     MESSAGE  A0        ISSUE MESSAGE TO DAYFILE

Seq #  *Modification Id* Act 
----------------------------+
06687  M02S00026.xedit19 ---|          RJ     FNL         SEND DAYFILE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
06688  M01S00001.xedit19 +++| PRS3     RJ     FNL         ISSUE ACCOUNTING MESSAGE
06689  M01S00002.xedit19 +++|          MESSAGE  A0        ISSUE MESSAGE TO DAYFILE

Seq #  *Modification Id* Act 
----------------------------+
06690  M01S00027.xedit12 +++|
06691  M00S06438.xedit   +++|          ABORT
06692  M00S06439.xedit   +++|
06693  M00S06440.xedit   +++|*         IF *NH* PARAMETER, (PRS4) = EQ     PRS5.
06694  M00S06441.xedit   +++|*
06695  M00S06442.xedit   +++| PRS4     WRITEC OUTPUT,PRSN XEDIT HEADER MESSAGE
06696  M00S06443.xedit   +++|
06697  M00S06444.xedit   +++|*         CHECK FOR FILE NAME CONFLICTS
06698  M00S06445.xedit   +++|
06699  M00S06446.xedit   +++| PRS5     SA0    PRSF        * FILE NAME CONFLICT.*
06700  M00S06447.xedit   +++|          SB2    FFET-7
06701  M00S06448.xedit   +++|          SB3    LFET-7
06702  M00S06449.xedit   +++| PRS6     SB2    B2+7        STEP TO NEXT OUTSIDE FET ADDRESS
06703  M00S06450.xedit   +++|          GE     B2,B3,PRS8  IF LOOPED THROUGH ALL FILES
06704  M00S06451.xedit   +++|          SA1    B2+
06705  M00S06452.xedit   +++|          SB4    B2+7
06706  M00S06453.xedit   +++| PRS7     SA2    B4          GET INNER LOOP FET NAME
06707  M00S06454.xedit   +++|          BX3    X1-X2
06708  M00S06455.xedit   +++|          SB4    B4+7
06709  M00S06456.xedit   +++|          ZR     X2,PRS7.1   IF NO FILE THERE (L=0)
06710  M00S06457.xedit   +++|          ZR     X3,PRS3     IF FILE NAMES COMPARE (ERROR)
06711  M00S06458.xedit   +++| PRS7.1   LE     B4,B3,PRS7  IF NOT FINISHED WITH INNER LOOP FET
06712  M00S06459.xedit   +++|          EQ     PRS6        CHECK NEXT FILE NAME FROM FET-S
06713  M00S06460.xedit   +++|
06714  M00S06461.xedit   +++|*         PRESET INPUT AND OUTPUT FETS.
06715  M00S06462.xedit   +++|

Seq #  *Modification Id* Act 
----------------------------+
06716  M01S06463.xedit5  ---| PRS8     SA1    PRSE        OUTPUT POINTER
06717  M01S06464.xedit5  ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
06718  M01S00001.xedit5  +++| PRS8     SA1    OUTPUT      SET UP RA+2 WITH FILE TO BE FLUSHED
06719  M01S00002.xedit5  +++|          MX2    42
06720  M01S00003.xedit5  +++|          SX6    A1
06721  M01S00004.xedit5  +++|          BX2    X1*X2
06722  M01S00005.xedit5  +++|          BX6    X2+X6
06723  M00S06465.xedit   +++|          MX7    0
06724  M00S06466.xedit   +++|          SA6    B1+B1
06725  M00S06467.xedit   +++|          SA7    A6+B1
06726  M00S06468.xedit   +++|          OPEN   INPUT,READNR,RECALL
06727  M00S06469.xedit   +++|          SA1    OUTPUT
06728  M00S06470.xedit   +++|          ZR     X1,PRS9     IF NO NAME PRESENT
06729  M00S06471.xedit   +++|          OPEN   OUTPUT,ALTERNR,RECALL
06730  M00S06472.xedit   +++|          WRITE  OUTPUT,*    HANDLE OPEN BUG
06731  M00S06473.xedit   +++|
06732  M00S06474.xedit   +++|*         DETERMINE ASCII/CHARACTER SET/ORIGIN CODES.
06733  M00S06475.xedit   +++|
06734  M00S06476.xedit   +++| PRS9     GETJO  PRSR
06735  M00S06477.xedit   +++|          SA2    BATCH
06736  M00S06478.xedit   +++|          SA1    PRSR
06737  M00S06479.xedit   +++|          SX6    X1-TXOT
06738  M00S06480.xedit   +++|          BX6    X6+X2       0, IF *TXOT*, ELSE BATCH
06739  M00S06481.xedit   +++|          SA6    A2
06740  M00S06482.xedit   +++|          SA1    CSMR        CHARACTER SET MODE
06741  M00S06483.xedit   +++|          SB2    18D         64 CHARACTER SET OFFSET
06742  M00S06484.xedit   +++|          NG     X1,PRS10    IF 64 CHARACTER SET
06743  M00S06485.xedit   +++|          SB2    B0          63 CHARACTER SET OFFSET
06744  M00S06486.xedit   +++| PRS10    SA5    AS
06745  M00S06487.xedit   +++|          ZR     X6,PRS11    IF TXOT AND *B* PARAMETER NOT USED
06746  M00S06488.xedit   +++|          BX6    X6-X6       SET NO ASCII
06747  M00S06489.xedit   +++|          ZR     X5,PRS14    IF NO ASCII DESIRED
06748  M00S06490.xedit   +++|          MX6    1           SET ASCII FLAG FOR *PRS14*
06749  M00S06491.xedit   +++|          SB2    36D         SET 64/ASCII
06750  M00S06492.xedit   +++|          EQ     PRS14       PRESET CHARACTERS
06751  M00S06493.xedit   +++|
06752  M00S06494.xedit   +++| PRS11    TSTATUS  TSTATUS
06753  M00S06495.xedit   +++|          SA1    TSTATUS
06754  M00S06496.xedit   +++|          MX3    -6
06755  M00S06497.xedit   +++|          AX1    3*6
06756  M00S06498.xedit   +++| PRS11.1  BX6    -X3*X1      DETERMINE IF TERM TYPE HAS A *D*
06757  M00S06499.xedit   +++|          LX1    -6
06758  M00S06500.xedit   +++|          ZR     X6,PRS11.1  IF NOT CHARACTER
06759  M00S06501.xedit   +++|+         SX4    X6-1RD
06760  M00S06502.xedit   +++|          NZ     X4,PRS12    IF NOT ...D TERMINAL TYPE
06761  M00S06503.xedit   +++|          SB2    B0          SET OLD CHARACTER SET
06762  M00S06504.xedit   +++|          SA6    A5          TURN ON ASCII FLAG (NON ZERO)
06763  M00S06505.xedit   +++|          EQ     PRS14       PRESET CHARACTERS
06764  M00S06506.xedit   +++|
06765  M00S06507.xedit   +++| PRS12    SA1    A1+B1
06766  M00S06508.xedit   +++|          SX2    4
06767  M00S06509.xedit   +++|          BX6    X2*X1
06768  M00S06510.xedit   +++|          NZ     X6,PRS13    IF ASCII FLAG SET
06769  M00S06511.xedit   +++|          ZR     X5,PRS14    IF ASCII NOT REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
06770  M01S00028.xedit12 +++|          CSET   ASCII
06771  M00S06512.xedit   +++|          SX6    3RASC       SET SPECIAL ASCII FLAG

Seq #  *Modification Id* Act 
----------------------------+
06772  M01S06513.xedit12 ---|          CSET   ASCII
06773  M00S06514.xedit   +++|
06774  M00S06515.xedit   +++| PRS13    SA6    A5          SET ASCII FLAG
06775  M00S06516.xedit   +++|          SB2    36          SET 64/ASCII
06776  M00S06517.xedit   +++|
06777  M00S06518.xedit   +++|*         PRESET CHARACTERS DEPENDENT ON CHARACTER SET.
06778  M00S06519.xedit   +++|
06779  M00S06520.xedit   +++| PRS14    SX7    B1+B1
06780  M00S06521.xedit   +++|          SA1    CHARSET
06781  M00S06522.xedit   +++|          ZR     X6,PRS14.1  IF ASCII NOT ON
06782  M00S06523.xedit   +++|          SA7    UPLA        SET UNPACKS TO ASCII MODE
06783  M00S06524.xedit   +++| PRS14.1  SX6    B2          SAVE SHIFT VALUE
06784  M00S06525.xedit   +++|          MX7    0
06785  M00S06526.xedit   +++|          SA6    CHARSFT
06786  M00S06527.xedit   +++|          SA7    CCDR+8      PLACE END OF LINE
06787  M00S06528.xedit   +++|          RJ     ICH         INITIALIZE CHARACTERS
06788  M00S06529.xedit   +++|

Seq #  *Modification Id* Act 
----------------------------+
06789  M01S06530.v23l617 ---|*         MOVE CONTROL CARD IMAGE TO *C.STR* AND ANALYZE.

Seq #  *Modification Id* Act 
----------------------------+
06790  M01S00016.v23l617 +++|*         MOVE COMMAND IMAGE TO *C.STR* AND ANALYZE.
06791  M00S06531.xedit   +++|
06792  M00S06532.xedit   +++|          SA1    CCDR
06793  M00S06533.xedit   +++|          SB6    C.STR       SET STRING DESTINATION
06794  M00S06534.xedit   +++|          RJ     UPL

Seq #  *Modification Id* Act 
----------------------------+
06795  M01S06535.v23l617 ---|          MOVE   9,CCDR,I.LINE  MOVE CONTROL CARD IMAGE

Seq #  *Modification Id* Act 
----------------------------+
06796  M01S00017.v23l617 +++|          MOVE   9,CCDR,I.LINE  MOVE COMMAND IMAGE
06797  M00S06536.xedit   +++|          SA1    C.STR-1
06798  M00S06537.xedit   +++|          MX7    1
06799  M00S06538.xedit   +++|          SB2    B1          SET CHARACTER POINTER
06800  M00S06539.xedit   +++|          SA7    C.STR       SET DEFAULT END OF LINE

Seq #  *Modification Id* Act 
----------------------------+
06801  M01S06540.v23l617 ---|          SA7    C.STR+80    ALLOW ONLY 80 CHAR ON CONTROL CARD

Seq #  *Modification Id* Act 
----------------------------+
06802  M01S00018.v23l617 +++|          SA7    C.STR+80    ALLOW ONLY 80 CHAR ON COMMAND
06803  M00S06541.xedit   +++|
06804  M00S06542.xedit   +++| PRS15    SB2    B2+B1       INCREMENT POINTER
06805  M00S06543.xedit   +++|          SA2    A1+B2
06806  M00S06544.xedit   +++|          NG     X2,PRS20    IF END OF LINE
06807  M00S06545.xedit   +++|          SX3    X2-1R.
06808  M00S06546.xedit   +++|          ZR     X3,PRS16    IF .
06809  M00S06547.xedit   +++|          SX3    X2-1R)
06810  M00S06548.xedit   +++|          NZ     X3,PRS15    IF NOT )
06811  M00S06549.xedit   +++| PRS16    SA2    A2+B1       GET DELIMITER CHARACTER
06812  M00S06550.xedit   +++|          SB2    B2+2        SET POINTER TO CHARACTER AFTER DELIMITER
06813  M00S06551.xedit   +++|          BX4    X2
06814  M00S06552.xedit   +++|          NG     X2,PRS20    IF END OF LINE
06815  M00S06553.xedit   +++|          SX3    X2-1R

Seq #  *Modification Id* Act 
----------------------------+
06816  M01S06554.v23l617 ---|          ZR     X3,PRS20    IF BLANK (ASSUME IGNORE REST OF CARD)

Seq #  *Modification Id* Act 
----------------------------+
06817  M01S00019.v23l617 +++|          ZR     X3,PRS20    IF BLANK (ASSUME IGNORE REST OF COMMAND)
06818  M00S06555.xedit   +++|          SX6    B1
06819  M00S06556.xedit   +++|          AX4    6
06820  M00S06557.xedit   +++| .CYB     IF     DEF,CYBRNET
06821  M00S06558.xedit   +++| +        SX7    1R;        UP ARROW INVALID DELIMITER CHARACTER
06822  M00S06559.xedit   +++|          ZR     X4,PRS16.1  IF CHARACTER NOT ASCII
06823  M00S06560.xedit   +++|          SX7    7402B       SET FOR ASCII UP ARROW
06824  M00S06561.xedit   +++|          SX6    7601B       SET LOWER CASE A
06825  M00S06562.xedit   +++| .CYB     ELSE
06826  M00S06563.xedit   +++|          ZR     X4,PRS16.1  IF CHARACTER IS NOT ASCII
06827  M00S06564.xedit   +++|          SX6    7601B       SET LOWER CASE A
06828  M00S06565.xedit   +++| .CYB     ENDIF
06829  M00S06566.xedit   +++| PRS16.1  IX3    X2-X6       NEGATIVE IF NOT ALPHABETIC
06830  M00S06567.xedit   +++|          SX6    X6+26D
06831  M00S06568.xedit   +++|          IX4    X2-X6       POSITIVE IF NOT ALPHABETIC
06832  M00S06569.xedit   +++|          BX3    -X3*X4      NEGATIVE IF DELIMITER IS ALPHABETIC
06833  M00S06570.xedit   +++| .CYB     IF     DEF,CYBRNET
06834  M00S06571.xedit   +++|          NG     X3,PRS17    IF DELIMITER IS ALPHA USE ;
06835  M00S06572.xedit   +++|          IX6    X7-X2       UP ARROW CHECK
06836  M00S06573.xedit   +++|          ZR     X6,PRS17    IF YES THEN USE ;
06837  M00S06574.xedit   +++|          SX7    X2-1R/-1    POSITIVE IF DELIMITER ABOVE /
06838  M00S06575.xedit   +++|          SX6    X2-1R0      NEGATIVE IF BELOW 0
06839  M00S06576.xedit   +++|          BX6    X7-X6       POSITIVE IFF BOTH SIGNS SAME
06840  M00S06577.xedit   +++|          PL     X6,PRS18    IF NOT +,-,*, OR / USE DELIMITER
06841  M00S06578.xedit   +++| PRS17    SX2    1R;         USE SEMI-COLON
06842  M00S06579.xedit   +++|          SB2    B2-1        MOVE POINTER BACK
06843  M00S06580.xedit   +++| PRS18    PX6    B2,X2       FORM C.STR WORD
06844  M00S06581.xedit   +++| .CYB     ELSE

Seq #  *Modification Id* Act 
----------------------------+
06845  M01S06582.v23l617 ---|          NG     X3,PRS19    IF ILLEGAL DELIMITER CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
06846  M01S00020.v23l617 +++|          NG     X3,PRS19    IF INCORRECT DELIMITER CHARACTER
06847  M00S06583.xedit   +++|          PX6    B2,X2       FORM C.STR WORD
06848  M00S06584.xedit   +++| .CYB     ENDIF
06849  M00S06585.xedit   +++|          SA6    A1          PUT C.STR-1
06850  M00S06586.xedit   +++|          MX2    -18
06851  M00S06587.xedit   +++|          ECHO   4,P=(I.DEV,S.DEV)
06852  M00S06588.xedit   +++|          SA1    P+1         SET DELIMITERS IN OTHER DEVICES
06853  M00S06589.xedit   +++|          BX1    X2*X1
06854  M00S06590.xedit   +++|          IX7    X1+X6
06855  M00S06591.xedit   +++|          SA7    A1
06856  M00S06592.xedit   +++|          EQ     PRS20       CHECK INPUT AND OUTPUT FILES
06857  M00S06593.xedit   +++|

Seq #  *Modification Id* Act 
----------------------------+
06858  M01S06594.v23l617 ---|*         ILLEGAL DELIMITER CHARACTER.

Seq #  *Modification Id* Act 
----------------------------+
06859  M01S00021.v23l617 +++|*         INCORRECT DELIMITER CHARACTER.
06860  M00S06595.xedit   +++|
06861  M00S06596.xedit   +++| PRS19    SA1    BATCH

Seq #  *Modification Id* Act 
----------------------------+
06862  M01S06597.v23l617 ---|          SA0    PRSG        * ILLEGAL DELIMITER CHARACTER.*

Seq #  *Modification Id* Act 
----------------------------+
06863  M01S00022.v23l617 +++|          SA0    PRSG        * INCORRECT DELIMITER CHARACTER.*
06864  M00S06598.xedit   +++|          NZ     X1,PRS3     IF BATCH MODE
06865  M00S06599.xedit   +++|          WRITEC OUTPUT,A0   ISSUE MESSAGE TO TERMINAL
06866  M00S06600.xedit   +++| PRS20    SA1    INPUT+1     CHECK INPUT/OUTPUT = *TT*
06867  M00S06601.xedit   +++|          SA2    OUTPUT+1
06868  M00S06602.xedit   +++|          MX6    1
06869  M00S06603.xedit   +++|          BX1    -X6*X1
06870  M00S06604.xedit   +++|          BX2    -X6*X2
06871  M00S06605.xedit   +++|          AX1    48
06872  M00S06606.xedit   +++|          AX2    48
06873  M00S06607.xedit   +++|          SX7    X1-2RTT
06874  M00S06608.xedit   +++|          SX2    X2-2RTT
06875  M00S06609.xedit   +++|          IX2    X2+X7
06876  M00S06610.xedit   +++|          MX6    0
06877  M00S06611.xedit   +++|          ZR     X2,PRS21    IF BOTH ARE *TT*
06878  M00S06612.xedit   +++|          SA6    PROMPT      CLEAR ISSUING OF SPECIAL PROMPT
06879  M00S06613.xedit   +++|          SA7    TTYIN       SET STATUS OF INPUT FET
06880  M00S06614.xedit   +++|          MOVE   2,PRSM,PRFH CHANGE *NAME EDIT FILE* MESSAGE
06881  M00S06615.xedit   +++|          SX7    B1          IF EITHER NOT *TT*, ALLOW ONE RETRY
06882  M00S06616.xedit   +++|          SA7    PRFF
06883  M00S06617.xedit   +++| PRS21    SA1    BATCH
06884  M00S06618.xedit   +++|          ZR     X1,PRS22    IF TELEX ORIGIN
06885  M00S06619.xedit   +++|          MOVE   PRSHL,PRSH,MESSAGE+1  MOVE BATCH ERROR MESSAGES
06886  M00S06620.xedit   +++|          MOVE   2,PRSO,ETLA CHANGE BATCH ECHO STATUS
06887  M00S06621.xedit   +++|          MOVE   1,PRSP,MODA CHANGE BATCH MODIFY SHIFT
06888  M00S06622.xedit   +++| PRS22    EQ     PRF         PRESET FILE
06889  M00S06623.xedit   +++|
06890  M00S06624.xedit   +++| PRSA     VFD    38/0LDUMMY,1/1,3/,18/1  DUMMY GETFNT FET
06891  M00S06625.xedit   +++|          VFD    36/,6/10B,18/PRSI
06892  M00S06626.xedit   +++|          BSS    6
06893  M00S06627.xedit   +++|          VFD    12/1+2*1+1,6/,18/1S"PTFT",2/,1/1,1/,1/,1/,18/PRSI
06894  M00S06628.xedit   +++|          BSS    4
06895  M00S06629.xedit   +++| PRSB     DATA   0LTAPE1
06896  M00S06630.xedit   +++| PRSC     BSS    0           ARGUMENT TABLE
06897  M00S06631.xedit   +++| AS       ARG    -ACTR,AS
06898  M00S06632.xedit   +++| B        ARG    -PRSR,BATCH
06899  M00S06633.xedit   +++| C        ARG    -PRSJ,PRF

Seq #  *Modification Id* Act 
----------------------------+
06900  M01S06634.xedit1  ---| DB       ARG    -PRSC,PRF.

Seq #  *Modification Id* Act 
----------------------------+
06901  M01S00003.xedit1  +++| DB       ARG    -PRSL,PRF10.1
06902  M00S06635.xedit   +++| FR       ARG    -ACTR,PRFG
06903  M00S06636.xedit   +++| I        ARG    INPUT,INPUT
06904  M00S06637.xedit   +++| L        ARG    OUTPUT,OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
06905  M01S00037.xedit20 +++| LK       ARG    -PRSZ,UPDATE
06906  M00S06638.xedit   +++| NH       ARG    -PRSQ,PRS4
06907  M00S06639.xedit   +++| P        ARG    -PRSK,PRF
06908  M00S06640.xedit   +++|          ARG
06909  M00S06641.xedit   +++| PRSD     DATA   C* ERROR IN XEDIT ARGUMENTS.*

Seq #  *Modification Id* Act 
----------------------------+
06910  M01S06642.xedit5  ---| PRSE     CON    6LOUTPUT+OUTPUT
06911  M00S06643.xedit   +++| PRSF     DATA   C* FILE NAME CONFLICT.*

Seq #  *Modification Id* Act 
----------------------------+
06912  M01S06644.v23l617 ---| PRSG     DATA   C* ILLEGAL DELIMITER CHARACTER.*

Seq #  *Modification Id* Act 
----------------------------+
06913  M01S00023.v23l617 +++| PRSG     DATA   C* INCORRECT DELIMITER CHARACTER.*
06914  M00S06645.xedit   +++| PRSH     BSS    0           BATCH ERROR MESSAGE TABLE
06915  M00S06646.xedit   +++| ERRPRS   HERE
06916  M00S06647.xedit   +++| PRSHL    EQU    *-PRSH
06917  M00S06648.xedit   +++| PRSI     BSS    1+2*1+1
06918  M00S06649.xedit   +++| PRSJ     EQ     PRF3        *C* PARAMETER
06919  M00S06650.xedit   +++| PRSK     EQ     PRF4        *P* PARAMETER
06920  M00S06651.xedit   +++| PRSL     EQ     PRF11       *DB* PARAMETER
06921  M00S06652.xedit   +++| PRSM     DATA   C* NAME EDIT FILE*
06922  M00S06653.xedit   +++| PRSN     DATA   C* "VERSION"*
06923  M00S06654.xedit   +++| PRSO     BSS    0
06924  M00S06655.xedit   +++| ETL      HEREL              ECHO HEADER WORDS
06925  M00S06656.xedit   +++| PRSP     BSS    0
06926  M00S06657.xedit   +++| MOD      HEREL              ECHO MODIFY WORD
06927  M00S06658.xedit   +++| PRSQ     EQ     PRS5        *NH* PARAMETER
06928  M00S06659.xedit   +++| PRSR     DATA   100B        PSEUDO BATCH

Seq #  *Modification Id* Act 
----------------------------+
06929  M01S00038.xedit20 +++| PRSZ     DATA   0           SET LOOK MODE

Seq #  *Modification Id* Act 
----------------------------+
06930  M01S00029.xedit12 +++| PRSS     VFD    60/PRST     ADDRESS OF TOOLNAME
06931  M01S00030.xedit12 +++| PRST     VFD    60/0HXEDIT  TOOLNAME FOR *CUA* MESSAGE
06932  M00S06660.xedit   +++|
06933  M00S06661.xedit   +++|          USE    SETCHAR
06934  M00S06662.xedit   +++|          DATA   0           SET END MARKER
06935  M00S06663.xedit   +++|          USE    *
06936  M00S06664.xedit   +++|          SPACE  4
06937  M00S06665.xedit   +++|*         COMMON DECKS NEEDED IN PRESET.
06938  M00S06666.xedit   +++|
06939  M00S06667.xedit   +++|*CALL     COMCARG
06940  M00S06668.xedit   +++|*CALL     COMCDXB
06941  M00S06669.xedit   +++|*CALL     COMCMVE
06942  M00S06670.xedit   +++|          QUAL   *
06943  M00S06671.xedit   +++|*CALL     COMCSFN
06944  M00S06672.xedit   +++|*CALL     COMCSTF
06945  M00S06673.xedit   +++|          SPACE  4
06946  M00S06674.xedit   +++| .MH2     EQU    MH2
06947  M00S06675.xedit   +++|          OVLDEF   1,(USER INFORMATION ROUTINES)
06948  M00S06676.xedit   +++|          SPACE  4
06949  M00S06677.xedit   +++|**        DEFINE ALTERNATE CHARACTER REPLACEMENTS.
06950  M00S06678.xedit   +++|*T        24/AS,  18/64 C,  18/63 C

Figure

06951  M00S06679.xedit   +++|*
06952  M00S06680.xedit   +++|*         AS   = ASCII 6/12 CHARACTER SET.
06953  M00S06681.xedit   +++|*         64 C = 64 CHARACTER SET.
06954  M00S06682.xedit   +++|*         63 C = 63 CHARACTER SET.
06955  M00S06683.xedit   +++|
06956  M00S06684.xedit   +++| AM.      VFD    24/67B,18/67B,18/67B      AMPERSAND
06957  M00S06685.xedit   +++| FN.      VFD    24/2RTH,18/2RTH,18/2RTH   END OF HELP FILE NAME
06958  M00S06686.xedit   +++| QM.      VFD    24/71B,18/71B,18/71B      QUESTION MARK
06959  M00S06687.xedit   +++| SH.      VFD    24/60B,18/60B,18/60B      SHARP
06960  M00S06688.xedit   +++| UA.      VFD    24/7402B,18/76B,18/76B    UP ARROW
06961  M00S06689.xedit   +++|          SPACE  4
06962  M00S06690.xedit   +++| MH2      SET    .MH2
06963  M00S06691.xedit   +++|          TITLE  MACROS LOCAL TO OVERLAY.
06964  M00S06692.xedit   +++| ENDHELP  SPACE  4,10
06965  M00S06693.xedit   +++|**        ENDHELP - CLOSE EXPLAIN ENTRY.
06966  M00S06694.xedit   +++|*
06967  M00S06695.xedit   +++|*
06968  M00S06696.xedit   +++|*         ENDHELP
06969  M00S06697.xedit   +++|*
06970  M00S06698.xedit   +++|*         ENTRY  (A) = A MICRO CONTAINING THE NAME OF THE
06971  M00S06699.xedit   +++|*                      EXPLAIN ENTRY.
06972  M00S06700.xedit   +++|*
06973  M00S06701.xedit   +++|*         EXIT   A SYMBOL IS EQUATED TO THE LENGTH OF THE MESSAGE.
06974  M00S06702.xedit   +++|*
06975  M00S06703.xedit   +++|*         NOTES  THIS MACRO IS TO BE USED END AN EXPLAIN ENTRY.
06976  M00S06704.xedit   +++|
06977  M00S06705.xedit   +++|          PURGMAC ENDHELP
06978  M00S06706.xedit   +++|
06979  M00S06707.xedit   +++| ENDHELP  MACRO
06980  M00S06708.xedit   +++| "A"_L EQU *-"A"_A
06981  M00S06709.xedit   +++|          ENDM   ENDHELP
06982  M00S06710.xedit   +++| EXPP     SPACE  4,15
06983  M00S06711.xedit   +++|**        EXPP - DEFINE PRIMARY EXPLAIN ENTRY.
06984  M00S06712.xedit   +++|*
06985  M00S06713.xedit   +++|*
06986  M00S06714.xedit   +++|*         EXPP   NAME
06987  M00S06715.xedit   +++|*
06988  M00S06716.xedit   +++|*         ENTRY  *NAME* = NAME OF ERROR MESSAGE.
06989  M00S06717.xedit   +++|*
06990  M00S06718.xedit   +++|*         NOTES  MACRO INITIALIZES THE DEFINITION FOR THE MESSAGE
06991  M00S06719.xedit   +++|*         TEXT. THE *ENDHELP* MACRO IS USED TO CLOSE THE
06992  M00S06720.xedit   +++|*         DEFINITION. THE TABLE FORMATS ARE PLACED IN AN
06993  M00S06721.xedit   +++|*         UNLABELED REMOTE BLOCK.
06994  M00S06722.xedit   +++|
06995  M00S06723.xedit   +++|          PURGMAC EXPP
06996  M00S06724.xedit   +++|
06997  M00S06725.xedit   +++| EXPP     MACRO  NAME
06998  M00S06726.xedit   +++| NAME_A BSS 0
06999  M00S06727.xedit   +++| A MICRO 1,, NAME
07000  M00S06728.xedit   +++|  RMT
07001  M00S06729.xedit   +++|  ORG TMSG+NAME-1
07002  M00S06730.xedit   +++|  VFD 12/2000B+NAME_L
07003  M00S06731.xedit   +++|  IF DEF,NAME_S,1
07004  M00S06732.xedit   +++|  VFD 30/NAME_S
07005  M00S06733.xedit   +++|  VFD *P/NAME_A
07006  M00S06734.xedit   +++|          ORG    *
07007  M00S06735.xedit   +++|  RMT
07008  M00S06736.xedit   +++|          ENDM   EXPP
07009  M00S06737.xedit   +++| EXPS     SPACE  4,10
07010  M00S06738.xedit   +++|**        EXPS - DEFINE SECONDARY EXPLAIN ENTRY TEXT.
07011  M00S06739.xedit   +++|*
07012  M00S06740.xedit   +++|*
07013  M00S06741.xedit   +++|*         EXPS   NAME,LEVEL
07014  M00S06742.xedit   +++|*
07015  M00S06743.xedit   +++|*         ENTRY  *NAME* = NAME OF ERROR MESSAGE.
07016  M00S06744.xedit   +++|*                *LEVEL* = LEVEL FOR MESSAGE (1-31).
07017  M00S06745.xedit   +++|*
07018  M00S06746.xedit   +++|*         NOTES  MACRO SERVES SAME PURPOSE AS *EXPP*.
07019  M00S06747.xedit   +++|
07020  M00S06748.xedit   +++|          PURGMAC EXPS
07021  M00S06749.xedit   +++|
07022  M00S06750.xedit   +++| EXPS     MACRO  NAME,LEVEL
07023  M00S06751.xedit   +++|  IF -DEF,NAME_S,1
07024  M00S06752.xedit   +++| NAME_S BSS 32D
07025  M00S06753.xedit   +++| NAME_LEVEL_A BSS 0
07026  M00S06754.xedit   +++| A MICRO 1,, NAME_LEVEL
07027  M00S06755.xedit   +++|  RMT
07028  M00S06756.xedit   +++|  ORG NAME_S+LEVEL_B
07029  M00S06757.xedit   +++|  VFD 12/2000B+NAME_LEVEL_L,*P/NAME_LEVEL_A
07030  M00S06758.xedit   +++|  ORG *
07031  M00S06759.xedit   +++|  RMT
07032  M00S06760.xedit   +++|          ENDM   EXPS
07033  M00S06761.xedit   +++| EXPLAIN  SPACE  4,20
07034  M00S06762.xedit   +++|**        EXP - PROCESS EXPLAIN COMMAND.
07035  M00S06763.xedit   +++|*
07036  M00S06764.xedit   +++|*         ENTRY  (EXPLAIN) = EXPLAIN ERROR MESSAGE POINTERS.
07037  M00S06765.xedit   +++|*
07038  M00S06766.xedit   +++|*         EXIT   TO *NCM*.
07039  M00S06767.xedit   +++|*
07040  M00S06768.xedit   +++|*         USES   A - 0, 1, 4, 6.
07041  M00S06769.xedit   +++|*                X - 0, 1, 2, 4, 5, 6, 7.
07042  M00S06770.xedit   +++|*                B - 2, 3, 7.
07043  M00S06771.xedit   +++|*
07044  M00S06772.xedit   +++|*         MACROS WRITEC, WRITEO, WRITEW.
07045  M00S06773.xedit   +++|*
07046  M00S06774.xedit   +++|*         NOTES  EXPLAIN ISSUES A MORE DETAILED STATEMENT CONCERNING
07047  M00S06775.xedit   +++|*                THE LAST 4 XEDIT MESSAGES. EACH TIME THE EXPLAIN
07048  M00S06776.xedit   +++|*                COMMAND IS USED, XEDIT WILL GIVE THE LAST ENTRY, AND
07049  M00S06777.xedit   +++|*                REMOVE IT FROM THE STACK (THUS THE NEXT EXPLAIN WILL
07050  M00S06778.xedit   +++|*                ISSUE THE ENTRY FOR THE PREVIOUS MESSAGE.) THIS
07051  M00S06779.xedit   +++|*                COMMAND WILL WORK ONLY FOR THE LAST NON-EXPLAIN
07052  M00S06780.xedit   +++|*                COMMAND.
07053  M00S06781.xedit   +++|
07054  M00S06782.xedit   +++|
07055  M00S06783.xedit   +++| EXP      SA1    EXPLAIN     ENTRY
07056  M00S06784.xedit   +++|          LX1    12          POSITION LAST ENTRY
07057  M00S06785.xedit   +++|          UX1    B7,X1       (B7) = EXPLAIN ENTRY
07058  M00S06786.xedit   +++|          MX7    -24
07059  M00S06787.xedit   +++|          LX1    12
07060  M00S06788.xedit   +++|          BX6    X7*X1       REMOVE THIS EXPLAIN ENTRY
07061  M00S06789.xedit   +++|          SA6    A1          REPLACE STACK
07062  M00S06790.xedit   +++|          LE     B7,NCM      IF NO ENTRY ON STACK, EXIT
07063  M00S06791.xedit   +++|          SX0    B7          ........PS/.........P
07064  M00S06792.xedit   +++|          LX0    -6          S........P/P.........
07065  M00S06793.xedit   +++|          SX2    X0          = PRIMARY IF THERE IS A SECONDARY
07066  M00S06794.xedit   +++|          NZ     X2,EXP0     IF THERE IS A SECONDARY
07067  M00S06795.xedit   +++|          SX0    B7                    /.........P
07068  M00S06796.xedit   +++| EXP0     BX2    X7*X0       S........./..........
07069  M00S06797.xedit   +++|          LX2    6           .........S/..........
07070  M00S06798.xedit   +++|          SA1    TMSG-1+X0   GET PRIMARY MESSAGE INDEX
07071  M00S06799.xedit   +++|          ZR     X1,EXP2     IF NO ENTRY FOR THIS ERROR
07072  M00S06800.xedit   +++|          SA0    X1          SET MESSAGE ADDRESS
07073  M00S06801.xedit   +++|          UX3,B2 X1          GET MESSAGE LENGTH
07074  M00S06802.xedit   +++|          ZR     X2,EXP1     IF NO SUB-INDEX
07075  M00S06803.xedit   +++|          AX1    18
07076  M00S06804.xedit   +++|          ZR     X1,EXP1     IF NO SUB-TABLE
07077  M00S06805.xedit   +++|          SB3    X1
07078  M00S06806.xedit   +++|          SA1    X2+B3       GET SUB-INDEX MESSAGE TABLE ENTRY
07079  M00S06807.xedit   +++|          ZR     X1,EXP1     IF NO ENTRY
07080  M00S06808.xedit   +++|          UX3    B2,X1       SET LENGTH
07081  M00S06809.xedit   +++|          SA0    X1          SET ADDRESS
07082  M00S06810.xedit   +++| EXP1     SX5    B2          SAVE LENGTH
07083  M00S06811.xedit   +++|          MX6    0
07084  M00S06812.xedit   +++|          WRITEO OUTPUT      ISSUES LINE FEED

Seq #  *Modification Id* Act 
----------------------------+
07085  M01S06813.xedit23 ---|          WRITEC X2,EXPA     * EXPLAINATION OF-

Seq #  *Modification Id* Act 
----------------------------+
07086  M01S00002.xedit23 +++|          WRITEC X2,EXPA     * EXPLANATION OF-
07087  M00S06814.xedit   +++|          SA4    MESSAGE+X0
07088  M00S06815.xedit   +++|          WRITEC X2,X4       ECHO OFFENDING ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
07089  M01S06816.xedit23 ---|          WRITEW X2,A0,X5    ISSUE EXPLAINATION

Seq #  *Modification Id* Act 
----------------------------+
07090  M01S00003.xedit23 +++|          WRITEW X2,A0,X5    ISSUE EXPLANATION
07091  M00S06817.xedit   +++|          EQ     NCM         EXIT
07092  M00S06818.xedit   +++|
07093  M00S06819.xedit   +++|*         NO EXPLAIN ENTRY FOUND.
07094  M00S06820.xedit   +++|
07095  M00S06821.xedit   +++| EXP2     WRITEC OUTPUT,EXPB
07096  M00S06822.xedit   +++|          SA4    MESSAGE+X0
07097  M00S06823.xedit   +++|          WRITEC X2,X4
07098  M00S06824.xedit   +++|          EQ     NCM         EXIT
07099  M00S06825.xedit   +++|

Seq #  *Modification Id* Act 
----------------------------+
07100  M01S06826.xedit23 ---| EXPA     DATA   C* EXPLAINATION OF-*

Seq #  *Modification Id* Act 
----------------------------+
07101  M01S00004.xedit23 +++| EXPA     DATA   C* EXPLANATION OF-*
07102  M00S06827.xedit   +++| EXPB     DATA   C* NO ENTRY FOUND FOR*
07103  M00S06828.xedit   +++|
07104  M00S06829.xedit   +++| TMSG     BSSZ   40B
07105  M00S06830.xedit   +++|          SPACE  4
07106  M00S06831.xedit   +++|**        EXPLAIN ENTRY DEFINITIONS.
07107  M00S06832.xedit   +++|
07108  M00S06833.xedit   +++|          EXPP   ARG.
07109  M00S06834.xedit   +++|          DATA   C* USUALLY MEANS THE USE OF AN EMPTY STRING IN THE*
07110  M00S06835.xedit   +++|          DATA   C* FIRST STRING OF A CHANGE OR LOCATE COMMAND.*
07111  M00S06836.xedit   +++|          ENDHELP
07112  M00S06837.xedit   +++|
07113  M00S06838.xedit   +++|          EXPP   BFN.
07114  M00S06839.xedit   +++|          DATA   C* FILE NAME WAS NOT OF PROPER FORM OR IT WAS A*
07115  M00S06840.xedit   +++|          DATA   C* FILE NAME WHICH IS RESERVED BY XEDIT.*
07116  M00S06841.xedit   +++|          ENDHELP
07117  M00S06842.xedit   +++|
07118  M00S06843.xedit   +++|          EXPP   BTL.
07119  M00S06844.xedit   +++|          DATA   C* THE EDIT FILE CONTAINS AT LEAST ONE LINE OF *
07120  M00S06845.xedit   +++|          DATA   C* DATA THAT IS NOT IN A FORM XEDIT CAN UNDERSTAND.*
07121  M00S06846.xedit   +++|          ENDHELP
07122  M00S06847.xedit   +++|
07123  M00S06848.xedit   +++|          EXPP   CNV.
07124  M00S06849.xedit   +++|          DATA   C* DURING CERTAIN MODES WITHIN XEDIT, SOME COMMANDS*
07125  M00S06850.xedit   +++|          DATA   C* ARE DISABLED.*
07126  M00S06851.xedit   +++|          ENDHELP
07127  M00S06852.xedit   +++|
07128  M00S06853.xedit   +++|          EXPP   DEL.
07129  M00S06854.xedit   +++|          DATA   C* MISSING STRING DELIMITER IN THE STRING FIELD OF*
07130  M00S06855.xedit   +++|          DATA   C* A COMMAND. A DELIMITER IS ASSUMED AFTER THE LAST*
07131  M00S06856.xedit   +++|          DATA   C* NONBLANK CHARACTER OF THE COMMAND LINE.*
07132  M00S06857.xedit   +++|          ENDHELP
07133  M00S06858.xedit   +++|
07134  M00S06859.xedit   +++|          EXPP   EMI.

Seq #  *Modification Id* Act 
----------------------------+
07135  M01S06860.v23l617 ---|          DATA   C* SPECIFIED OF DEFAULT FILE FUNCTION IS ILLEGAL*

Seq #  *Modification Id* Act 
----------------------------+
07136  M01S00024.v23l617 +++|          DATA   C* SPECIFIED IF DEFAULT FILE FUNCTION IS INCORRECT*
07137  M00S06861.xedit   +++|          DATA   C* ON SPECIFIED OR DEFAULT FILE.*
07138  M00S06862.xedit   +++|          ENDHELP
07139  M00S06863.xedit   +++|
07140  M00S06864.xedit   +++|          EXPP   EOF.
07141  M00S06865.xedit   +++|          DATA   C* AN END OF FILE MARK HAS BEEN READ FROM THE EDIT*
07142  M00S06866.xedit   +++|          DATA   C* FILE, AND, UNLESS A DEOF COMMAND WAS BEING*
07143  M00S06867.xedit   +++|          DATA   C* PROCESSED, IT HAS BEEN RETAINED.*
07144  M00S06868.xedit   +++|          ENDHELP
07145  M00S06869.xedit   +++|
07146  M00S06870.xedit   +++|          EXPP   EOR.
07147  M00S06871.xedit   +++|          DATA   C* AN END OF RECORD MARK HAS BEEN READ FROM THE EDIT*
07148  M00S06872.xedit   +++|          DATA   C* FILE, AND, UNLESS A DEOR COMMAND WAS BEING*
07149  M00S06873.xedit   +++|          DATA   C* PROCESSED, IT HAS BEEN RETAINED.*
07150  M00S06874.xedit   +++|          ENDHELP
07151  M00S06875.xedit   +++|
07152  M00S06876.xedit   +++|          EXPP   EOI.
07153  M00S06877.xedit   +++|          DATA   C* THE EDITOR HAS GONE PAST THE LAST LINE OF THE FILE*
07154  M00S06878.xedit   +++|          DATA   C* WHILE TRYING TO COMPLETE PROCESSING OF THE LAST*
07155  M00S06879.xedit   +++|          DATA   C* COMMAND. PROCESSING OF THAT COMMAND IS STOPPED AND*
07156  M00S06880.xedit   +++|          DATA   C* THE POINTER IS MOVED TO THE TOP OF THE FILE.*
07157  M00S06881.xedit   +++|          ENDHELP
07158  M00S06882.xedit   +++|
07159  M00S06883.xedit   +++|          EXPP   FCP.
07160  M00S06884.xedit   +++|          DATA   C* THE SPECIFIED FILE HAS BEEN REWOUND AND RE-COPIED.*
07161  M00S06885.xedit   +++|          DATA   C* THIS IS THE DEFAULT ACTION FOR THE END, FILE, AND*
07162  M00S06886.xedit   +++|          DATA   C* QUIT COMMANDS IF THE FILE IS EITHER DIRECT ACCESS*
07163  M00S06887.xedit   +++|          DATA   C* OR A MAGNETIC TAPE FILE.*
07164  M00S06888.xedit   +++|          ENDHELP
07165  M00S06889.xedit   +++|
07166  M00S06890.xedit   +++|          EXPP   FCR.
07167  M00S06891.xedit   +++|          DATA   C* THE SPECIFIED FILE IS EITHER AN EXECUTE OR APPEND*
07168  M00S06892.xedit   +++|          DATA   C* ONLY FILE; OR IS EITHER NOT A LOCAL FILE, OR A*
07169  M00S06893.xedit   +++|          DATA   C* PERMANENT FILE DEPENDING ON THE SPECIFIED COMMAND*
07170  M00S06894.xedit   +++|          DATA   C* OPTION.*
07171  M00S06895.xedit   +++|          ENDHELP
07172  M00S06896.xedit   +++|
07173  M00S06897.xedit   +++|          EXPP   FLC.
07174  M00S06898.xedit   +++|          DATA   C* THE SPECIFIED FILE HAS BEEN MADE A LOCAL FILE.*
07175  M00S06899.xedit   +++|          DATA   C* FOR THE END, FILE, AND QUIT COMMANDS, THIS*
07176  M00S06900.xedit   +++|          DATA   C* FUNCTION IS DEFAULT FOR INDIRECT ACCESS FILES.*
07177  M00S06901.xedit   +++|          ENDHELP
07178  M00S06902.xedit   +++|
07179  M00S06903.xedit   +++|          EXPP   FRP.
07180  M00S06904.xedit   +++|          DATA   C* THE PERMANENT FILE COPY HAS BEEN REPLACED.*
07181  M00S06905.xedit   +++|          ENDHELP
07182  M00S06906.xedit   +++|
07183  M00S06907.xedit   +++|          EXPP   FSV.
07184  M00S06908.xedit   +++|          DATA   C* A PERMANENT FILE COPY HAS BEEN SAVED.*
07185  M00S06909.xedit   +++|          ENDHELP
07186  M00S06910.xedit   +++|
07187  M00S06911.xedit   +++|          EXPP   ILL.
07188  M00S06912.xedit   +++|          DATA   C* USUALLY MEANS A NONNUMERIC CHARACTER IN A NUMERIC*
07189  M00S06913.xedit   +++|          DATA   C* FIELD OR EXTRA INFORMATION IN A COMMAND.*
07190  M00S06914.xedit   +++|          ENDHELP
07191  M00S06915.xedit   +++|
07192  M00S06916.xedit   +++|          EXPP   LFM.
07193  M00S06917.xedit   +++|          DATA   C+ THE SYSTEM LOCAL FILE PROCESSOR HAS DETECTED AN+
07194  M00S06918.xedit   +++|          DATA   C* ERROR. PLEASE REPORT THE PROBLEM, ALONG WITH AS*
07195  M00S06919.xedit   +++|          DATA   C* MUCH INFORMATION AS POSSIBLE REGARDING THIS XEDIT*
07196  M00S06920.xedit   +++|          DATA   C* RUN, TO A CONSULTANT.*
07197  M00S06921.xedit   +++|          ENDHELP
07198  M00S06922.xedit   +++|
07199  M00S06923.xedit   +++|          EXPP   LNNF.
07200  M00S06924.xedit   +++|          DATA   C* THE SPECIFIED LINE NUMBER COULD NOT BE LOCATED.*
07201  M00S06925.xedit   +++|          ENDHELP
07202  M00S06926.xedit   +++|
07203  M00S06927.xedit   +++|          EXPP   LNTL.
07204  M00S06928.xedit   +++|          DATA   C* IN THE ALN, ALNS, OR RLN COMMAND, THE LINE*
07205  M00S06929.xedit   +++|          DATA   C* NUMBER BECAME GREATER THAN 99999.*
07206  M00S06930.xedit   +++|          ENDHELP
07207  M00S06931.xedit   +++|
07208  M00S06932.xedit   +++|          EXPP   NSC.

Seq #  *Modification Id* Act 
----------------------------+
07209  M01S06933.v23l617 ---|          DATA   C* THE COMMAND IS ILLEGAL OR AN IMPROPER SEPARATOR*

Seq #  *Modification Id* Act 
----------------------------+
07210  M01S00025.v23l617 +++|          DATA   C* THE COMMAND IS INCORRECT OR AN IMPROPER SEPARATOR*
07211  M00S06934.xedit   +++|          DATA   C* WAS USED AFTER THE COMMAND.*
07212  M00S06935.xedit   +++|          ENDHELP
07213  M00S06936.xedit   +++|
07214  M00S06937.xedit   +++|          EXPP   PFM.
07215  M00S06938.xedit   +++|          DATA   C* ERROR IN PERMANENT FILE OPERATION.*
07216  M00S06939.xedit   +++|          ENDHELP
07217  M00S06940.xedit   +++|
07218  M00S06941.xedit   +++|          EXPP   SNF.
07219  M00S06942.xedit   +++|          DATA   C* IF A 0 IS USED FOR THE REPEAT COUNT ON ANY STRING*
07220  M00S06943.xedit   +++|          DATA   C* SEARCH COMMAND, AND THE STRING IS NOT IN THE*
07221  M00S06944.xedit   +++|          DATA   C* CURRENT LINE, XEDIT ISSUES THE ABOVE MESSAGE*
07222  M00S06945.xedit   +++|          DATA   C* AND DOES NOT ADVANCE THE POINTER. (ALSO, ANY*
07223  M00S06946.xedit   +++|          DATA   C* REMAINING COMMANDS ON A DELIMITED COMMAND*
07224  M00S06947.xedit   +++|          DATA   C* LINE ARE IGNORED. IN ADDITION, THE 0 IS USED*
07225  M00S06948.xedit   +++|          DATA   C* IF USING THE INPUT MODE ECSAPE CHARACTER.*
07226  M00S06949.xedit   +++|          ENDHELP
07227  M00S06950.xedit   +++|
07228  M00S06951.xedit   +++|          EXPP   STK.
07229  M00S06952.xedit   +++|          DATA   C* AN ATTEMPT WAS MADE TO RECURRSIVELY USE AN INPUT*
07230  M00S06953.xedit   +++|          DATA   C* SOURCE. AN EXAMPLE OF THIS IS-*
07231  M00S06954.xedit   +++|          DATA   C*    Y/PRINT/Y-WHERE-*
07232  M00S06955.xedit   +++|          DATA   C* IN THE EXAMPLE, THE Y/Z COMMAND ATTEMPTS TO CALL*

Seq #  *Modification Id* Act 
----------------------------+
07233  M01S06956.v23l617 ---|          DATA   C* ANOTHER Y/Z COMMAND, WHICH IS ILLEGAL.*

Seq #  *Modification Id* Act 
----------------------------+
07234  M01S00026.v23l617 +++|          DATA   C* ANOTHER Y/Z COMMAND, WHICH IS INCORRECT.*
07235  M00S06957.xedit   +++|          ENDHELP
07236  M00S06958.xedit   +++|
07237  M00S06959.xedit   +++|          EXPP   TRUNC.
07238  M00S06960.xedit   +++|          DATA   C* AS A RESULT OF A COMMAND, THE LINE WHOSE POSITION*
07239  M00S06961.xedit   +++|          DATA   C* IS GIVEN HAS BEEN TRUNCATED TO 160 CHARACTERS.*
07240  M00S06962.xedit   +++|          DATA   C* THIS ACTION OCCURS AUTOMATICALLY WHENEVER A LINE*
07241  M00S06963.xedit   +++|          DATA   C* IS EXTENDED WITHIN XEDIT TO INCLUDE MORE THAN*
07242  M00S06964.xedit   +++|          DATA   C* 160 CHARACTERS.*
07243  M00S06965.xedit   +++|          ENDHELP
07244  M00S06966.xedit   +++|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
07245  M01S06967.xedit23 ---|**        ARGUMENT ERROR SECONDARY EXPLAINATIONS.

Seq #  *Modification Id* Act 
----------------------------+
07246  M01S00005.xedit23 +++|**        ARGUMENT ERROR SECONDARY EXPLANATIONS.
07247  M00S06968.xedit   +++|
07248  M00S06969.xedit   +++|          EXPS   ARG.,1      F0 CONFLICT IN INPUT MODE
07249  M00S06970.xedit   +++|          DATA   C+ WHILE USING THE COMMAND ESCAPE CHARACTER OF+
07250  M00S06971.xedit   +++|          DATA   C+ *INPUT* MODE TO ENTER COMMANDS, THE MOVEMENT OF+
07251  M00S06972.xedit   +++|          DATA   C* THE POINTER IS DISALLOWED. FOR THIS REASON, XEDIT*
07252  M00S06973.xedit   +++|          DATA   C* FORBIDS USERS FROM ENTERING ANY REPEAT COUNT ON*
07253  M00S06974.xedit   +++|          DATA   C+ ANY COMMANDS (FOR EXAMPLE - THE *LOCATE* OR +
07254  M00S06975.xedit   +++|          DATA   C+ *CHANGE* COMMANDS).  ALSO VOIDED ARE ANY PREFIX+
07255  M00S06976.xedit   +++|          DATA   C* CHARACTERS WHICH POSITION THE POINTER.*
07256  M00S06977.xedit   +++|          ENDHELP
07257  M00S06978.xedit   +++|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
07258  M01S06979.xedit23 ---|**        BAD FILE NAME SECONDARY EXPLAINATIONS.

Seq #  *Modification Id* Act 
----------------------------+
07259  M01S00006.xedit23 +++|**        BAD FILE NAME SECONDARY EXPLANATIONS.
07260  M00S06980.xedit   +++|
07261  M00S06981.xedit   +++|          EXPS   BFN.,1      BAD FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
07262  M01S06982.v23l617 ---|          DATA   C* THE FILE NAME ENTERED CONTAINS EITHER ILLEGAL*

Seq #  *Modification Id* Act 
----------------------------+
07263  M01S00027.v23l617 +++|          DATA   C* THE FILE NAME ENTERED CONTAINS EITHER INCORRECT*
07264  M00S06983.xedit   +++|          DATA   C* CHARACTERS, OR IS TOO LONG.*
07265  M00S06984.xedit   +++|          ENDHELP
07266  M00S06985.xedit   +++|
07267  M00S06986.xedit   +++|          EXPS   BFN.,2      NO FILE NAME
07268  M00S06987.xedit   +++|          DATA   C* THE COMMAND IS MISSING A REQUIRED FILE NAME.*
07269  M00S06988.xedit   +++|          ENDHELP
07270  M00S06989.xedit   +++|
07271  M00S06990.xedit   +++|          EXPS   BFN.,3      RESERVED FILE NAME
07272  M00S06991.xedit   +++|          DATA   C* THE FILE NAME ENTERED IS ONE WHICH IS RESERVED BY*
07273  M00S06992.xedit   +++|          DATA   C* XEDIT. A PARTIAL LIST INCLUDES- INPUT, OUTPUT,*

Seq #  *Modification Id* Act 
----------------------------+
07274  M01S06993.xedit23 ---|          DATA   C* SCRA, SCRB, ... SCRF, SCRG.*

Seq #  *Modification Id* Act 
----------------------------+
07275  M01S00007.xedit23 +++|          DATA   C* SCRA, SCRB, ... SCRF, SCRG  AND (FOR COPY AND*
07276  M01S00008.xedit23 +++|          DATA   C* COPYD COMMANDS) THE EDIT FILE NAME.*
07277  M00S06994.xedit   +++|          ENDHELP
07278  M00S06995.xedit   +++|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
07279  M01S06996.xedit23 ---|**        COMMAND NOT VALID SECONDARY EXPLAINATIONS.

Seq #  *Modification Id* Act 
----------------------------+
07280  M01S00009.xedit23 +++|**        COMMAND NOT VALID SECONDARY EXPLANATIONS.
07281  M00S06997.xedit   +++|
07282  M00S06998.xedit   +++|          EXPS   CNV.,1
07283  M00S06999.xedit   +++|          DATA   C* WHILE CREATING A FILE UNDER XEDIT, VARIOUS COM-*
07284  M00S07000.xedit   +++|          DATA   C* MANDS ARE DISABLED AS THEY ATTEMPT TO REFERENCE*
07285  M00S07001.xedit   +++|          DATA   C* OR MODIFY PARTS OF THE FILE WHICH DO NOT EXIST.*
07286  M00S07002.xedit   +++|          DATA   C* CREATION MODE IS AUTOMATICALLY EXITED UPON ENTRY*
07287  M00S07003.xedit   +++|          DATA   C* OF THE FIRST TEXT LINE (USE THE INSERT OR INPUT*
07288  M00S07004.xedit   +++|          DATA   C* COMMANDS).*
07289  M00S07005.xedit   +++|          ENDHELP
07290  M00S07006.xedit   +++|
07291  M00S07007.xedit   +++|          EXPS   CNV.,3
07292  M00S07008.xedit   +++|          DATA   C* WHILE USING THE INPUT MODE COMMAND ESCAPE OPTION,*

Seq #  *Modification Id* Act 
----------------------------+
07293  M01S07009.v23l617 ---|          DATA   C* ANY COMMAND WHICH MOVES THE POINTER IS ILLEGAL.*
07294  M01S07010.v23l617 ---|          DATA   C* THE COMMAND SPECIFED IS THUS ILLEGAL.*

Seq #  *Modification Id* Act 
----------------------------+
07295  M01S00028.v23l617 +++|          DATA   C* ANY COMMAND WHICH MOVES THE POINTER IS NOT ALLOWED.*
07296  M01S00029.v23l617 +++|          DATA   C* THE COMMAND SPECIFIED IS THUS INCORRECT.*
07297  M00S07011.xedit   +++|          ENDHELP
07298  M00S07012.xedit   +++|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
07299  M01S07013.v23l617 ---|**        EMI - FILE FUNCTION ILLEGAL SECONDARY EXPLAINATIONS.

Seq #  *Modification Id* Act 
----------------------------+
07300  M02S00030.xedit23 ---|**        EMI - FILE FUNCTION INCORRECT SECONDARY EXPLAINATIONS.

Seq #  *Modification Id* Act 
----------------------------+
07301  M01S00010.xedit23 +++|**        EMI - FILE FUNCTION INCORRECT SECONDARY EXPLANATIONS.
07302  M00S07014.xedit   +++|
07303  M00S07015.xedit   +++|          EXPS   EMI.,1
07304  M00S07016.xedit   +++|          DATA   C* THE SPECIFIED FILE CANNOT BE UPDATED. THIS CAN*
07305  M00S07017.xedit   +++|          DATA   C* RESULT IF THE FILE IS LOCK OR NOT IN WRITE MODE.*
07306  M00S07018.xedit   +++|          ENDHELP
07307  M00S07019.xedit   +++|
07308  M00S07020.xedit   +++|          EXPS   EMI.,2

Seq #  *Modification Id* Act 
----------------------------+
07309  M01S07021.v23l617 ---|          DATA   C+ THE *L* PARAMETERS IS ILLEGAL ON DIRECT ACCESS+

Seq #  *Modification Id* Act 
----------------------------+
07310  M01S00031.v23l617 +++|          DATA   C+ THE *L* PARAMETER IS INCORRECT ON DIRECT ACCESS+
07311  M00S07022.xedit   +++|          DATA   C* OR MAGNETIC TAPE FILES.*
07312  M00S07023.xedit   +++|          ENDHELP
07313  M00S07024.xedit   +++|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
07314  M01S07025.xedit23 ---|**        FILE CANNOT BE ACCESSED SECONDARY EXPLAINATIONS.

Seq #  *Modification Id* Act 
----------------------------+
07315  M01S00011.xedit23 +++|**        FILE CANNOT BE ACCESSED SECONDARY EXPLANATIONS.
07316  M00S07026.xedit   +++|*
07317  M00S07027.xedit   +++|
07318  M00S07028.xedit   +++|
07319  M00S07029.xedit   +++|          EXPS   FCR.,1
07320  M00S07030.xedit   +++|          DATA   C* THE FILE IS AN EXECUTE OR APPEND ONLY FILE THUS*
07321  M00S07031.xedit   +++|          DATA   C* IS NOT ACCESSABLE.*
07322  M00S07032.xedit   +++|          ENDHELP
07323  M00S07033.xedit   +++|
07324  M00S07034.xedit   +++|          EXPS   FCR.,2
07325  M00S07035.xedit   +++|          DATA   C* THE FILE IS NOT PRESENTLY LOCAL TO THE JOB. ALSO,*
07326  M00S07036.xedit   +++|          DATA   C* WHEN IF THE FILE IS DIRECT ACCESS (AND CURRENTLY*
07327  M00S07037.xedit   +++|          DATA   C* ATTACHED) THE FILE CANNOT BE ACCESS FROM THE*
07328  M00S07038.xedit   +++|          DATA   C* PERMANENT FILE AREA.*
07329  M00S07039.xedit   +++|          ENDHELP
07330  M00S07040.xedit   +++|
07331  M00S07041.xedit   +++|          EXPS   FCR.,3
07332  M00S07042.xedit   +++|          DATA   C* THE FILE IS NOT OBTAINABLE FROM THE PERMANENT*
07333  M00S07043.xedit   +++|          DATA   C* FILE AREA.*
07334  M00S07044.xedit   +++|          ENDHELP
07335  M00S07045.xedit   +++|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
07336  M01S07046.xedit23 ---|**        PFM SECONDARY EXPLAINATIONS.

Seq #  *Modification Id* Act 
----------------------------+
07337  M01S00012.xedit23 +++|**        PFM SECONDARY EXPLANATIONS.
07338  M00S07047.xedit   +++|          EXPS   PFM.,1      (FILE) BUSY.
07339  M00S07048.xedit   +++|          DATA   C* DIRECT ACCESS FILE IS ATTACHED ELSEWHERE IN WRITE*
07340  M00S07049.xedit   +++|          DATA   C* MODE.*
07341  M00S07050.xedit   +++|          ENDHELP
07342  M00S07051.xedit   +++|
07343  M00S07052.xedit   +++|          EXPS   PFM.,2      (FILE) NOT FOUND.
07344  M00S07053.xedit   +++|          DATA   C* SPECIFIED FILE COULD NOT BE FOUND.*
07345  M00S07054.xedit   +++|          ENDHELP
07346  M00S07055.xedit   +++|
07347  M00S07056.xedit   +++|          EXPS   PFM.,4      (FILE) NOT ON MASS STORAGE.
07348  M00S07057.xedit   +++|          DATA   C* SPECIFIED FILE DOES NOT RESIDE ON A MASS STORAGE*
07349  M00S07058.xedit   +++|          DATA   C* DEVICE.*
07350  M00S07059.xedit   +++|          ENDHELP
07351  M00S07060.xedit   +++|
07352  M00S07061.xedit   +++|          EXPS   PFM.,5      (FILE) ALREADY PERMANENT.
07353  M00S07062.xedit   +++|          DATA   C* THERE IS ALREADY A FILE EITHER SAVED OR DEFINED*
07354  M00S07063.xedit   +++|          DATA   C* UNDER THE DESIRED NAME. TRY USING THE RENAME*
07355  M00S07064.xedit   +++|          DATA   C* PARAMETER.*
07356  M00S07065.xedit   +++|          ENDHELP
07357  M00S07066.xedit   +++|

Seq #  *Modification Id* Act 
----------------------------+
07358  M01S07067.v23l617 ---|          EXPS   PFM.,10     ILLEGAL USER ACCESS

Seq #  *Modification Id* Act 
----------------------------+
07359  M01S00032.v23l617 +++|          EXPS   PFM.,10     USER ACCESS NOT VALID
07360  M00S07068.xedit   +++|          DATA   C* USER IN NOT VALIDATED TO SAVE FILES AND/OR TO*
07361  M00S07069.xedit   +++|          DATA   C* ACCESS A REMOVABLE DEVICE.*
07362  M00S07070.xedit   +++|          ENDHELP
07363  M00S07071.xedit   +++|
07364  M00S07072.xedit   +++|          EXPS   PFM.,12     FILE TOO LONG.
07365  M00S07073.xedit   +++|          DATA   C* THE SPECIFIED FILE IS TOO LONG TO BE SAVED OR*
07366  M00S07074.xedit   +++|          DATA   C* REPLACED.*
07367  M00S07075.xedit   +++|          ENDHELP
07368  M00S07076.xedit   +++|
07369  M00S07077.xedit   +++|          EXPS   PFM.,16     PF UTILITY ACTIVE.
07370  M00S07078.xedit   +++|          DATA   C* DUE TO ACTIVITY WITHIN THE SYSTEM, THE SPECIFIED*
07371  M00S07079.xedit   +++|          DATA   C* PERMANENT FILE OPERATION CANNOT BE DONE AT THE*
07372  M00S07080.xedit   +++|          DATA   C* PRESENT TIME. THE OPERATION SHOULD BE RETRIED*
07373  M00S07081.xedit   +++|          ENDHELP
07374  M00S07082.xedit   +++|
07375  M00S07083.xedit   +++|          EXPS   PFM.,20     CATALOG OVERFLOW - FILES.
07376  M00S07084.xedit   +++|          DATA   C* YOU HAVE EXCEEDED YOUR VALIDATED LIMIT FOR THE*
07377  M00S07085.xedit   +++|          DATA   C* MAXIMUM NUMBER OF PERMANENT FILES.*
07378  M00S07086.xedit   +++|          ENDHELP
07379  M00S07087.xedit   +++|
07380  M00S07088.xedit   +++|          EXPS   PFM.,21     CATALOG OVERFLOW - SIZE.
07381  M00S07089.xedit   +++|          DATA   C* THE CUMULATIVE SIZE OF THE INDIRECT ACCESS FILES*
07382  M00S07090.xedit   +++|          DATA   C* IN YOUR CATALOG HAVE EXCEEDED YOUR VALIDATION*
07383  M00S07091.xedit   +++|          DATA   C* LIMIT.*
07384  M00S07092.xedit   +++|          ENDHELP
07385  M00S07093.xedit   +++|
07386  M00S07094.xedit   +++|          EXPS   PFM.,23     I/O SEQUENCE ERROR.
07387  M00S07095.xedit   +++|          DATA   C* PLEASE NOTIFY A CONSULTANT OF THIS ERROR,*
07388  M00S07096.xedit   +++|          DATA   C* ENCLOSING (IF POSSIBLE) A HARD COPY OF YOUR*
07389  M00S07097.xedit   +++|          DATA   C* SESSION.  PLEASE RETRY YOUR COMMAND.*
07390  M00S07098.xedit   +++|          ENDHELP
07391  M00S07099.xedit   +++|
07392  M00S07100.xedit   +++|          EXPS   PFM.,30     TRACK LIMIT
07393  M00S07101.xedit   +++|          DATA   C* PERMANET FILE DEVICE HAS RUN OUT OF TRACKS. PLEASE*
07394  M00S07102.xedit   +++|          DATA   C* NOTIFY CONSULTANT AS SOON AS POSSIBLE.*
07395  M00S07103.xedit   +++|          ENDHELP
07396  M00S07104.xedit   +++|
07397  M00S07105.xedit   +++|          EXPS   PFM.,31     FILE LENGTH ERROR
07398  M00S07106.xedit   +++|          DATA   C* ERROR IN PERMANENT FILE. NOTIFY CONSULTANT AS SOON*
07399  M00S07107.xedit   +++|          DATA   C* AS POSSIBLE. PLEASE DO NOT USE THE SPECIFIED FILE.*
07400  M00S07108.xedit   +++|          ENDHELP
07401  M00S07109.xedit   +++|
07402  M00S07110.xedit   +++|          EXPS   PFM.,33     DIRECT ACCESS FILE ERROR
07403  M00S07111.xedit   +++|          DATA   C* ERROR IN SYSTEM DIRECT ACCESS FILE DEFINITION.*
07404  M00S07112.xedit   +++|          DATA   C* PLEASE NOTIFY CONSULTANT AS SOON AS POSSIBLE.*
07405  M00S07113.xedit   +++|          ENDHELP
07406  M00S07114.xedit   +++|
07407  M00S07115.xedit   +++|          EXPS   PFM.,34     REPLACE ERROR
07408  M00S07116.xedit   +++|          DATA   C* NOTIFY CONSULTANT.*
07409  M00S07117.xedit   +++|          ENDHELP
07410  M00S07118.xedit   +++|
07411  M00S07119.xedit   +++|          EXPS   PFM.,35     PFM ABORTED
07412  M00S07120.xedit   +++|          DATA   C* PERMANENT FILE MANAGER ABORTED. RETRY OPERATION.*
07413  M00S07121.xedit   +++|          ENDHELP
07414  M00S07122.xedit   +++| HELP     SPACE  4,30
07415  M00S07123.xedit   +++|**        HELP - PROCESS XEDIT HELP COMMAND.
07416  M00S07124.xedit   +++|*
07417  M00S07125.xedit   +++|*         ENTRY  (IN - IN+80) = COMMAND LINE.
07418  M00S07126.xedit   +++|*                (LSEP) = SUBSCRIPT OF SEPARATOR.
07419  M00S07127.xedit   +++|*
07420  M00S07128.xedit   +++|*         EXIT   HELP ENTRY LISTED.
07421  M00S07129.xedit   +++|*
07422  M00S07130.xedit   +++|*         USES   A - 1, 2, 3, 5, 6, 7.
07423  M00S07131.xedit   +++|*                X - ALL.
07424  M00S07132.xedit   +++|*                B - 2, 3.
07425  M00S07133.xedit   +++|*
07426  M00S07134.xedit   +++|*         CALLS  HTI.
07427  M00S07135.xedit   +++|*

Proceed to Part 4