cdc:nos2.source:opl.opl871:deck:xedit.003
Deck XEDIT Part 003
25 Modifications
Listing Sections
- Deck XEDIT Start
- Deck XEDIT Part 1 (Line 2001)
- Deck XEDIT Part 2 (Line 3736)
- Deck XEDIT Part 3 (Line 5666)
- Deck XEDIT Part 4 (Line 7428)
Source
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 +++|*
| Line S05588 Modification History | |
|---|---|
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 05804 M01S05588.xedit20 ---|* ENTRY NONE.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 05805 M01S00022.xedit20 +++|* ENTRY AT *TOP*. 05806 M01S00023.xedit20 +++|* AT *TOP1.1* FROM *ERD*. 05807 M00S05589.xedit +++|*
| Line S05590 Modification History | |
|---|---|
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 05808 M01S05590.xedit20 ---|* EXIT NONE.
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | xedit20 |
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
| Line S05606 Modification History | |
|---|---|
M01 (Removed by) | xedit2 |
Seq # *Modification Id* Act ----------------------------+ 05826 M01S05606.xedit2 ---| SX2 X2-1
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | xedit2 |
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
| Line S05610 Modification History | |
|---|---|
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 05832 M01S05610.xedit20 ---| REWIND FTA,RECALL
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | xedit20 |
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 +++|*
| Line S05816 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 06042 M01S05816.xedit21 ---|* NOTES THIS ROUTINE CONVERTS THE CHARACTER, +*+ TO 99999D.
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
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 *
| Line S05839 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 06067 M01S05839.xedit21 ---| SX6 99999D SET * EQUIVALENT
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
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
| Line S05929 Modification History | |
|---|---|
M01 (Removed by) | xedit2 |
Seq # *Modification Id* Act ----------------------------+ 06159 M01S05929.xedit2 ---| SX7 X3+B1
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | xedit2 |
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
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 06339 M01S00019.xedit12 +++|*CALL COMCCFD 06340 M00S06107.xedit +++|*CALL COMCCIO 06341 M00S06108.xedit +++|*CALL COMCCPM
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
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
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
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
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | xedit20 |
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
| Line S06205 Modification History | |
|---|---|
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 06443 M01S06205.xedit20 ---| SA3 X2
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | xedit20 |
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
| Line S06307 Modification History | |
|---|---|
M01 (Removed by) | xedit1 |
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
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | xedit1 |
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.*
| Line S06358 Modification History | |
|---|---|
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 06602 M01S06358.xedit20 ---| PRFE DATA C* UPDATE/CREATION MODE CONFLICT.*
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | xedit20 |
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.+
| Line S06366 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06611 M01S06366.v23l617 ---| PRFL DATA C* INVALID CHARACTERS IN FILE NAME.*
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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=
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
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 +++|
| Line S06437 Modification History | |
|---|---|
M01 (Removed by) | xedit19 |
Seq # *Modification Id* Act ----------------------------+ 06686 M01S06437.xedit19 ---| PRS3 MESSAGE A0 ISSUE MESSAGE TO DAYFILE
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
M02 (Removed by) | xedit19 |
Seq # *Modification Id* Act ----------------------------+ 06687 M02S00026.xedit19 ---| RJ FNL SEND DAYFILE MESSAGE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | xedit19 |
Seq # *Modification Id* Act ----------------------------+ 06688 M01S00001.xedit19 +++| PRS3 RJ FNL ISSUE ACCOUNTING MESSAGE 06689 M01S00002.xedit19 +++| MESSAGE A0 ISSUE MESSAGE TO DAYFILE
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
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 +++|
| Line S06463 Modification History | |
|---|---|
M01 (Removed by) | xedit5 |
Seq # *Modification Id* Act ----------------------------+ 06716 M01S06463.xedit5 ---| PRS8 SA1 PRSE OUTPUT POINTER 06717 M01S06464.xedit5 ---| BX6 X1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | xedit5 |
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
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 06770 M01S00028.xedit12 +++| CSET ASCII 06771 M00S06512.xedit +++| SX6 3RASC SET SPECIAL ASCII FLAG
| Line S06513 Modification History | |
|---|---|
M01 (Removed by) | xedit12 |
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 +++|
| Line S06530 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06789 M01S06530.v23l617 ---|* MOVE CONTROL CARD IMAGE TO *C.STR* AND ANALYZE.
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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
| Line S06535 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06795 M01S06535.v23l617 ---| MOVE 9,CCDR,I.LINE MOVE CONTROL CARD IMAGE
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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
| Line S06540 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06801 M01S06540.v23l617 ---| SA7 C.STR+80 ALLOW ONLY 80 CHAR ON CONTROL CARD
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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
| Line S06554 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06816 M01S06554.v23l617 ---| ZR X3,PRS20 IF BLANK (ASSUME IGNORE REST OF CARD)
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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
| Line S06582 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06845 M01S06582.v23l617 ---| NG X3,PRS19 IF ILLEGAL DELIMITER CHARACTER
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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 +++|
| Line S06594 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06858 M01S06594.v23l617 ---|* ILLEGAL DELIMITER CHARACTER.
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06859 M01S00021.v23l617 +++|* INCORRECT DELIMITER CHARACTER. 06860 M00S06595.xedit +++| 06861 M00S06596.xedit +++| PRS19 SA1 BATCH
| Line S06597 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06862 M01S06597.v23l617 ---| SA0 PRSG * ILLEGAL DELIMITER CHARACTER.*
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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
| Line S06634 Modification History | |
|---|---|
M01 (Removed by) | xedit1 |
Seq # *Modification Id* Act ----------------------------+ 06900 M01S06634.xedit1 ---| DB ARG -PRSC,PRF.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | xedit1 |
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
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | xedit20 |
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.*
| Line S06642 Modification History | |
|---|---|
M01 (Removed by) | xedit5 |
Seq # *Modification Id* Act ----------------------------+ 06910 M01S06642.xedit5 ---| PRSE CON 6LOUTPUT+OUTPUT 06911 M00S06643.xedit +++| PRSF DATA C* FILE NAME CONFLICT.*
| Line S06644 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06912 M01S06644.v23l617 ---| PRSG DATA C* ILLEGAL DELIMITER CHARACTER.*
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 06929 M01S00038.xedit20 +++| PRSZ DATA 0 SET LOOK MODE
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
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
| Line S06813 Modification History | |
|---|---|
M01 (Removed by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07085 M01S06813.xedit23 ---| WRITEC X2,EXPA * EXPLAINATION OF-
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | xedit23 |
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
| Line S06816 Modification History | |
|---|---|
M01 (Removed by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07089 M01S06816.xedit23 ---| WRITEW X2,A0,X5 ISSUE EXPLAINATION
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | xedit23 |
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 +++|
| Line S06826 Modification History | |
|---|---|
M01 (Removed by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07100 M01S06826.xedit23 ---| EXPA DATA C* EXPLAINATION OF-*
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | xedit23 |
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.
| Line S06860 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07135 M01S06860.v23l617 ---| DATA C* SPECIFIED OF DEFAULT FILE FUNCTION IS ILLEGAL*
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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.
| Line S06933 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07209 M01S06933.v23l617 ---| DATA C* THE COMMAND IS ILLEGAL OR AN IMPROPER SEPARATOR*
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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*
| Line S06956 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07233 M01S06956.v23l617 ---| DATA C* ANOTHER Y/Z COMMAND, WHICH IS ILLEGAL.*
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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
| Line S06967 Modification History | |
|---|---|
M01 (Removed by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07245 M01S06967.xedit23 ---|** ARGUMENT ERROR SECONDARY EXPLAINATIONS.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | xedit23 |
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
| Line S06979 Modification History | |
|---|---|
M01 (Removed by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07258 M01S06979.xedit23 ---|** BAD FILE NAME SECONDARY EXPLAINATIONS.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07259 M01S00006.xedit23 +++|** BAD FILE NAME SECONDARY EXPLANATIONS. 07260 M00S06980.xedit +++| 07261 M00S06981.xedit +++| EXPS BFN.,1 BAD FILE NAME
| Line S06982 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07262 M01S06982.v23l617 ---| DATA C* THE FILE NAME ENTERED CONTAINS EITHER ILLEGAL*
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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,*
| Line S06993 Modification History | |
|---|---|
M01 (Removed by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07274 M01S06993.xedit23 ---| DATA C* SCRA, SCRB, ... SCRF, SCRG.*
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | xedit23 |
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
| Line S06996 Modification History | |
|---|---|
M01 (Removed by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07279 M01S06996.xedit23 ---|** COMMAND NOT VALID SECONDARY EXPLAINATIONS.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | xedit23 |
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,*
| Line S07009 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
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.*
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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
| Line S07013 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07299 M01S07013.v23l617 ---|** EMI - FILE FUNCTION ILLEGAL SECONDARY EXPLAINATIONS.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07300 M02S00030.xedit23 ---|** EMI - FILE FUNCTION INCORRECT SECONDARY EXPLAINATIONS.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | xedit23 |
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
| Line S07021 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07309 M01S07021.v23l617 ---| DATA C+ THE *L* PARAMETERS IS ILLEGAL ON DIRECT ACCESS+
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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
| Line S07025 Modification History | |
|---|---|
M01 (Removed by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07314 M01S07025.xedit23 ---|** FILE CANNOT BE ACCESSED SECONDARY EXPLAINATIONS.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | xedit23 |
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
| Line S07046 Modification History | |
|---|---|
M01 (Removed by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07336 M01S07046.xedit23 ---|** PFM SECONDARY EXPLAINATIONS.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | xedit23 |
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 +++|
| Line S07067 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07358 M01S07067.v23l617 ---| EXPS PFM.,10 ILLEGAL USER ACCESS
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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
cdc/nos2.source/opl.opl871/deck/xedit.003.txt · Last modified: by 127.0.0.1