cdc:nos2.source:opl.opl871:deck:xedit.003
Deck XEDIT Part 003
25 Modifications
Listing Sections
- Deck XEDIT Start
- Deck XEDIT Part 1 (Line 2008)
- Deck XEDIT Part 2 (Line 3694)
- Deck XEDIT Part 3 (Line 5636)
- Deck XEDIT Part 4 (Line 7485)
Source
Seq # *Modification Id* Act ----------------------------+ 05636 M01S05420.xedit +++|* X - 1, 3, 4, 6, 7. 05637 M01S05421.xedit +++|* B- 7. 05638 M01S05422.xedit +++|* 05639 M01S05423.xedit +++|* CALLS UPL. 05640 M01S05424.xedit +++|* 05641 M01S05425.xedit +++|* NOTES THIS ROUTINE ASSUMES THAT .LINE FOR THE DEVICE HAS 05642 M01S05426.xedit +++|* BEEN PRE-LOADED WITH THE SPECIFIED COMMAND LINE. 05643 M01S05427.xedit +++| 05644 M01S05428.xedit +++| 05645 M01S05429.xedit +++| STK PS ENTRY/EXIT 05646 M01S05430.xedit +++| SA3 C.STR-1 MOVE TO DEVICE WORD 05647 M01S05431.xedit +++| SA4 C.ON GET POINTER TO CURRENT DEVICE 05648 M01S05432.xedit +++| BX6 X3 05649 M01S05433.xedit +++| SA6 X4+1 05650 M01S05434.xedit +++| 05651 M01S05435.xedit +++|* UNSTACK ANYTHING THAT CAN BE SAFELY REMOVED. 05652 M01S05436.xedit +++| 05653 M01S05437.xedit +++| STK1 SA3 X4+B1 GET CHARACTER POINTER WORD 05654 M01S05438.xedit +++| SX6 X4-I.DEV 05655 M01S05439.xedit +++| UX7,B7 X3 B7 .LE. 0, IF READY TO READ NEXT LINE 05656 M01S05440.xedit +++| ZR X6,STK2 IF ON PRIMARY INPUT DEVICE 05657 M01S05441.xedit +++| GT B7,STK2 IF DEVICE NOT AT END OF LINE 05658 M01S05442.xedit +++| SA3 X4-1 OBTAIN FET POINTER FOR DEVICE 05659 M01S05443.xedit +++| BX6 X3 05660 M01S05444.xedit +++| AX3 60 EXTEND *CMDPOP* FLAG 05661 M01S05445.xedit +++| BX6 -X3*X6 0, IF OK TO POP DEVICE 05662 M01S05446.xedit +++| NZ X6,STK2 IF (FET) .AND. (.NOT. *CMDPOP*) 05663 M01S05447.xedit +++| 05664 M01S05448.xedit +++|* POP STACK AND RE-TEST. 05665 M01S05449.xedit +++| 05666 M01S05450.xedit +++| MX6 1 05667 M01S05451.xedit +++| SA4 X4 GET NEW DEVICE 05668 M01S05452.xedit +++| SA6 A4 IDLE OLD DEVICE 05669 M01S05453.xedit +++| SA2 X4+B1 GET NEW C.STR-1 WORD 05670 M01S05454.xedit +++| BX7 X4 05671 M01S05455.xedit +++| LX6 X2 05672 M01S05456.xedit +++| SA7 C.ON RESET ACTIVE DEVICE POINTER 05673 M01S05457.xedit +++| SA6 C.STR-1 RESET CHARACTER POINTER 05674 M01S05458.xedit +++| EQ STK1 UNSTACK 05675 M01S05459.xedit +++| 05676 M01S05460.xedit +++|* PUSH NEW ENTRY ONTO STACK. 05677 M01S05461.xedit +++| 05678 M01S05462.xedit +++| STK2 SA1 A1 05679 M01S05463.xedit +++| SX6 A1 05680 M01S05464.xedit +++| BX7 X4 05681 M01S05465.xedit +++| SA4 A1+B1 NEW DELIMITER WORD 05682 M01S05466.xedit +++| PL X1,STK IF REQUESTED DEVICE IS STILL ACTIVE 05683 M01S05467.xedit +++| SA6 C.ON RESET C.ON 05684 M01S05468.xedit +++| SA7 A1 PUT STACK ENTRY 05685 M01S05469.xedit +++| PX6 B1,X4 RESET CHARACTER POINTER 05686 M01S05470.xedit +++| SA6 C.STR-1 05687 M01S05471.xedit +++| SA1 A1-34D SET FWA OF CODED LINE 05688 M01S05472.xedit +++| SB6 C.STR 05689 M01S05473.xedit +++| RJ UPL UNPACK LINE 05690 M01S05474.xedit +++| EQ NCM PROCESS NEW LINE, EXIT 05691 M01S05475.xedit +++| TAB SPACE 4,20 05692 M01S05476.xedit +++|** TAB - TAB INPUT LINE ACCORDING TO TAB SETTINGS. 05693 M01S05477.xedit +++|* 05694 M01S05478.xedit +++|* ENTRY (B6) = FWA-1 OF TEXT LINE. 05695 M01S05479.xedit +++|* 05696 M01S05480.xedit +++|* EXIT LINE TABBED. 05697 M01S05481.xedit +++|* TRAILING SPACES ARE NOT DELETED. 05698 M01S05482.xedit +++|* (X7) = 0 IF NO TRUNCATION. 05699 M01S05483.xedit +++|* 05700 M01S05484.xedit +++|* USES A - 1, 3, 4, 6, 7. 05701 M01S05485.xedit +++|* X - 1, 2, 3, 4, 6, 7. 05702 M01S05486.xedit +++|* B - 3, 4, 5, 7. 05703 M01S05487.xedit +++|* E.SCR. 05704 M01S05488.xedit +++|* 05705 M01S05489.xedit +++|* CALLS TSL. 05706 M01S05490.xedit +++| 05707 M01S05491.xedit +++| 05708 M01S05492.xedit +++| TAB1 SA1 A1+1 GET NEXT 05709 M01S05493.xedit +++| SA6 B3 05710 M01S05494.xedit +++| SB3 B3+B1 05711 M01S05495.xedit +++| LT B3,B4,TAB2 IF NOT 160 CHARACTERS WORTH 05712 M01S05496.xedit +++| SX7 X6-1R 05713 M01S05497.xedit +++| NZ X5,TAB5 IF NOT BLANK (TRUNCATE) 05714 M01S05498.xedit +++| SB3 B4+ 05715 M01S05499.xedit +++| TAB2 BX6 X1 05716 M01S05500.xedit +++| IX2 X1-X3 05717 M01S05501.xedit +++| NZ X2,TAB1 IF NOT TAB CHARACTER 05718 M01S05502.xedit +++| TAB3 ZR X4,TAB1 IF END OF TABS 05719 M01S05503.xedit +++| SB5 X4+E.SCR-1 05720 M01S05504.xedit +++| SA4 A4+B1 05721 M01S05505.xedit +++| LT B5,B3,TAB3 IF PAST EXISTING TAB 05722 M01S05506.xedit +++| SA1 A1+B1 05723 M01S05507.xedit +++| LE B5,B3,TAB2 IF CURRENTLY POINTING AT TAB 05724 M01S05508.xedit +++| TAB4 SA7 B3 BLANK TO TAB POSITION 05725 M01S05509.xedit +++| SB3 B3+B1 05726 M01S05510.xedit +++| LT B3,B5,TAB4 IF NOT AT TAB POSITION 05727 M01S05511.xedit +++| PL X1,TAB2 IF MORE DATA 05728 M01S05512.xedit +++| SX7 0 SET NO TRUNCATION 05729 M01S05513.xedit +++| TAB5 MX6 2 05730 M01S05514.xedit +++| SA1 E.SCR PREPARE TO COPY BACK 05731 M01S05515.xedit +++| SA6 B3 05732 M01S05516.xedit +++| TAB6 BX6 X1 05733 M01S05517.xedit +++| SB7 B7+B1 05734 M01S05518.xedit +++| SA1 A1+B1 05735 M01S05519.xedit +++| SA6 B7-B1 05736 M01S05520.xedit +++| PL X6,TAB6 IF MORE 05737 M01S05521.xedit +++| RJ TSL TRIM TRAILING SPACES 05738 M01S05522.xedit +++| TAB PS ENTRY/EXIT 05739 M01S05523.xedit +++| 05740 M01S05524.xedit +++| SA3 TABCHAR 05741 M01S05525.xedit +++| SX7 B0 SET NO TRUNCATION 05742 M01S05526.xedit +++| SB7 B6+B1 05743 M01S05527.xedit +++| NG X3,TAB IF NO TAB CHARACTER IS DEFINED 05744 M01S05528.xedit +++| SA4 A3+B1 05745 M01S05529.xedit +++| SA1 B6+B1 SET FIRST CHARACTER IN LINE 05746 M01S05530.xedit +++| SB3 E.SCR 05747 M01S05531.xedit +++| SX7 1R 05748 M01S05532.xedit +++| SB4 E.SCR+160D 05749 M01S05533.xedit +++| EQ TAB2 PROCESS TABS 05750 M01S05534.xedit +++| TCD SPACE 4,15 05751 M01S05535.xedit +++|** TCD - TABULATE CODED DATA LINE. 05752 M01S05536.xedit +++|* 05753 M01S05537.xedit +++|* ENTRY (D.LINE) = DATA LINE. 05754 M01S05538.xedit +++|* 05755 M01S05539.xedit +++|* EXIT (C.LINE) = TABBED LINE. 05756 M01S05540.xedit +++|* 05757 M01S05541.xedit +++|* USES A - 1, 3. 05758 M01S05542.xedit +++|* X - 1, 3. 05759 M01S05543.xedit +++|* B - 6, 7. 05760 M01S05544.xedit +++|* E.SCR. 05761 M01S05545.xedit +++|* 05762 M01S05546.xedit +++|* CALLS RTA, TAB, UPL. 05763 M01S05547.xedit +++| 05764 M01S05548.xedit +++| 05765 M01S05549.xedit +++| TCD PS ENTRY/EXIT 05766 M01S05550.xedit +++| SA3 TABCHAR 05767 M01S05551.xedit +++| NG X3,TCD IF NO TAB CHARACTER 05768 M01S05552.xedit +++| SA1 D.LINE 05769 M01S05553.xedit +++| SB6 D.STR 05770 M01S05554.xedit +++| RJ UPL 05771 M01S05555.xedit +++| SB6 D.STR-1 05772 M01S05556.xedit +++| RJ TAB TABULATE 05773 M01S05557.xedit +++| SB7 D.LINE 05774 M01S05558.xedit +++| SB6 D.STR 05775 M01S05559.xedit +++| RJ RTA REPACK LINE 05776 M01S05560.xedit +++| EQ TCD RETURN 05777 M01S05561.xedit +++| TLB SPACE 4,10 05778 M01S05562.xedit +++|** TLB - TRANSFER DATA LINE TO *E.LINE* BUFFER. 05779 M01S05563.xedit +++|* 05780 M01S05564.xedit +++|* EXIT LINE TRANSFERRED FROM *D.LINE* TO *E.LINE*. 05781 M01S05565.xedit +++|* 05782 M01S05566.xedit +++|* USES X - 1, 2, 6, 7. 05783 M01S05567.xedit +++|* A - 1, 6, 7. 05784 M01S05568.xedit +++|* B - 5, 6. 05785 M01S05569.xedit +++| 05786 M01S05570.xedit +++| 05787 M01S05571.xedit +++| TLB SUBR ENTRY/EXIT 05788 M01S05572.xedit +++| SB5 B0 05789 M01S05573.xedit +++| SB6 D.LINE 05790 M01S05574.xedit +++| MX2 -12 05791 M01S05575.xedit +++| SB7 E.LINE 05792 M01S05576.xedit +++| TLB1 SA1 B6+B5 05793 M01S05577.xedit +++| LX7 X1 05794 M01S05578.xedit +++| BX6 -X2*X1 05795 M01S05579.xedit +++| SA7 B7+B5 05796 M01S05580.xedit +++| SB5 B5+B1 05797 M01S05581.xedit +++| NZ X6,TLB1 IF NOT END OF LINE 05798 M01S05582.xedit +++| SA6 E.CMODE SET CURRENT MODE TO CODED 05799 M01S05583.xedit +++| SA6 A6+1 SET NO LINE MODIFICATIONS 05800 M01S05584.xedit +++| EQ TLBX RETURN 05801 M01S05585.xedit +++| TOP SPACE 4,15 05802 M01S05586.xedit +++|** TOP - MOVE POINTER TO TOP OF FILE. 05803 M01S05587.xedit +++|*
| Line S05588 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 05804 M02S05588.xedit20 ---|* ENTRY NONE. 05805 M01S00022.xedit20 +++|* ENTRY AT *TOP*. 05806 M01S00023.xedit20 +++|* AT *TOP1.1* FROM *ERD*. 05807 M01S05589.xedit +++|*
| Line S05590 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 05808 M02S05590.xedit20 ---|* EXIT NONE. 05809 M01S00024.xedit20 +++|* EXIT TO *ERD1* IF EOI ENCOUNTERED. 05810 M01S00025.xedit20 +++|* TO *ERD5* IF END OF FILE. 05811 M01S05591.xedit +++|* 05812 M01S05592.xedit +++|* USES A - 1, 2, 3, 4, 6, 7. 05813 M01S05593.xedit +++|* X - 0, 1, 2, 3, 4, 6, 7. 05814 M01S05594.xedit +++|* B - 6, 7. 05815 M01S05595.xedit +++|* 05816 M01S05596.xedit +++|* CALLS CFF, ERD, WTF. 05817 M01S05597.xedit +++|* 05818 M01S05598.xedit +++|* MACROS READ, RECALL, REWIND, WRITEF, WRITER, WRITEW. 05819 M01S05599.xedit +++| 05820 M01S05600.xedit +++| 05821 M01S05601.xedit +++| TOP PS ENTRY/EXIT 05822 M01S05602.xedit +++| SA2 IWHERE LINE COUNT 05823 M01S05603.xedit +++| SA3 INDEX SUBSCRIPT OF LAST CONNAND 05824 M01S05604.xedit +++| SX3 X3-.TOPNUL 05825 M01S05605.xedit +++| ZR X3,TOP1 IF TOPNULL COMMAND
| Line S05606 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit2 |
Seq # *Modification Id* Act ----------------------------+ 05826 M02S05606.xedit2 ---| SX2 X2-1 05827 M01S00005.xedit2 +++| SX6 B1 05828 M01S00006.xedit2 +++| IX2 X2-X6 05829 M01S05607.xedit +++| ZR X2,TOP IF ALREADY AT TOP, RETURN 05830 M01S05608.xedit +++| TOP1 SA1 NOMOD 05831 M01S05609.xedit +++| PL X1,TOP2 IF THERE WERE MODS. READ REST OF FILE
| Line S05610 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 05832 M02S05610.xedit20 ---| REWIND FTA,RECALL 05833 M01S00026.xedit20 +++| 05834 M01S00027.xedit20 +++|* ENTRY FROM *ERD*. 05835 M01S00028.xedit20 +++| 05836 M01S00029.xedit20 +++| TOP1.1 REWIND FTA,RECALL 05837 M01S05611.xedit +++| REWIND FTB,RECALL 05838 M01S05612.xedit +++| EQ ERD5 PROCESS END OF FILE 05839 M01S05613.xedit +++| 05840 M01S05614.xedit +++| TOP2 RECALL E.IN 05841 M01S05615.xedit +++| RECALL E.OUT 05842 M01S05616.xedit +++| RJ WTF WRITE CURRENT LINE 05843 M01S05617.xedit +++| EQ TOP6 TRANSFER FILE 05844 M01S05618.xedit +++| 05845 M01S05619.xedit +++| TOP3 READ E.IN RESTART READ 05846 M01S05620.xedit +++| TOP4 RECALL WAIT FOR CIO TO DO SOMETHING 05847 M01S05621.xedit +++| EQ TOP6 TRANSFER FILE 05848 M01S05622.xedit +++| 05849 M01S05623.xedit +++| TOP5 WRITEW E.OUT,B6,B7 WRITE BUFFER 05850 M01S05624.xedit +++| SX7 X0 MOVE E.IN(OUT) POINTER 05851 M01S05625.xedit +++| MX6 0 05852 M01S05626.xedit +++| SA7 E.IN+3 UPDATE OUT 05853 M01S05627.xedit +++| SA6 RC SET DATA READ 05854 M01S05628.xedit +++| TOP6 SA1 E.IN+2 IN 05855 M01S05629.xedit +++| SA2 A1+B1 OUT 05856 M01S05630.xedit +++| SX0 X1 05857 M01S05631.xedit +++| IX6 X1-X2 IN-OUT (CONSECUTIVE WORDS IN BUFFER) 05858 M01S05632.xedit +++| PL X6,TOP7 IF (IN-OUT) IS LARGEST BLOCK 05859 M01S05633.xedit +++| SA3 A2+B1 LIMIT 05860 M01S05634.xedit +++| SA4 A1-B1 FIRST 05861 M01S05635.xedit +++| IX6 X3-X2 LIMIT-OUT 05862 M01S05636.xedit +++| SX0 X4 05863 M01S05637.xedit +++| TOP7 SB6 X2 SET STARTING ADDRESS 05864 M01S05638.xedit +++| SB7 X6 SET WORD COUNT 05865 M01S05639.xedit +++| NZ B7,TOP5 IF WORDS TO TRANSFER 05866 M01S05640.xedit +++| SA4 E.IN 05867 M01S05641.xedit +++| LX4 59-0 05868 M01S05642.xedit +++| PL X4,TOP4 IF FILE BUSY 05869 M01S05643.xedit +++| SA1 E.IN+2 05870 M01S05644.xedit +++| SA2 A1+B1 RECHECK POINTERS 05871 M01S05645.xedit +++| BX1 X1-X2 05872 M01S05646.xedit +++| NZ X1,TOP6 IF CIO JUST FINISHED 05873 M01S05647.xedit +++| LX4 0-3 05874 M01S05648.xedit +++| NG X4,TOP8 IF EOF OR EOI 05875 M01S05649.xedit +++| WRITER E.OUT FLUSH BUFFER 05876 M01S05650.xedit +++| EQ TOP9 READ FILE 05877 M01S05651.xedit +++| 05878 M01S05652.xedit +++| TOP8 LX4 3-4 05879 M01S05653.xedit +++| PL X4,TOP3 IF FULL BUFFER 05880 M01S05654.xedit +++| LX4 4-9 05881 M01S05655.xedit +++| NG X4,ERD1 IF AT EOI 05882 M01S05656.xedit +++| WRITEF E.OUT FLUSH BUFFER 05883 M01S05657.xedit +++| TOP9 READ E.IN BEGIN READ OF NEXT SECTION OF FILE 05884 M01S05658.xedit +++| RECALL E.OUT WAIT FOR WRITE FET TO SETTLE 05885 M01S05659.xedit +++| SA1 X2 05886 M01S05660.xedit +++| MX7 1 05887 M01S05661.xedit +++| SA7 RC SET NO DATA READ 05888 M01S05662.xedit +++| BX6 X1 MOVE FILE NAME TO *CFET* 05889 M01S05663.xedit +++| SA6 CFET 05890 M01S05664.xedit +++| RJ CFF COPY REMAINDER OF FILE 05891 M01S05665.xedit +++| EQ ERD1 PROCESS EOI ENCOUNTERED 05892 M01S05666.xedit +++| TSL SPACE 4,15 05893 M01S05667.xedit +++|** TSL - TRIM SPACES OFF LINE (STRING BUFFER). 05894 M01S05668.xedit +++|* 05895 M01S05669.xedit +++|* ENTRY (A6) = FWA OF END OF LINE CHARACTER. 05896 M01S05670.xedit +++|* (X6) = MASK OF 2. 05897 M01S05671.xedit +++|* 05898 M01S05672.xedit +++|* EXIT LINE TRIMMED. 05899 M01S05673.xedit +++|* (E.STR-1) = NEW LINE LENGTH. 05900 M01S05674.xedit +++|* 05901 M01S05675.xedit +++|* USES A - 1, 6. 05902 M01S05676.xedit +++|* X - 1, 6. 05903 M01S05677.xedit +++|* B - 2. 05904 M01S05678.xedit +++| 05905 M01S05679.xedit +++| 05906 M01S05680.xedit +++| TSL1 SB2 B2-B1 POSITION BACK TO NEXT CHARACTER 05907 M01S05681.xedit +++| LE B2,B6,TSL2 IF AT START OF LINE -1 05908 M01S05682.xedit +++| SA1 B2 05909 M01S05683.xedit +++| SX1 X1-1R 05910 M01S05684.xedit +++| ZR X1,TSL1 IF CHARACTER WAS A BLANK 05911 M01S05685.xedit +++| TSL2 SA6 B2+B1 PUT NEW END CHARACTER 05912 M01S05686.xedit +++| SX6 B2-B6 GET NEW LENGTH 05913 M01S05687.xedit +++| SA6 B6+ SET NEW LENGTH 05914 M01S05688.xedit +++| 05915 M01S05689.xedit +++| TSL PS ENTRY/EXIT 05916 M01S05690.xedit +++| SB2 A6 05917 M01S05691.xedit +++| EQ TSL1 PROCESS TRIM 05918 M01S05692.xedit +++| 05919 M01S05693.xedit +++| UPL SPACE 4,30 05920 M01S05694.xedit +++|** UPL - UNPACK LINE TO ASCII BUFFER. 05921 M01S05695.xedit +++|* 05922 M01S05696.xedit +++|* ENTRY (A1) = FWA OF CODED LINE. 05923 M01S05697.xedit +++|* (X1) = FIRST WORD OF CODED LINE. 05924 M01S05698.xedit +++|* (B6) = FWA STRING BUFFER. 05925 M01S05699.xedit +++|* 05926 M01S05700.xedit +++|* EXIT (X6) = COUNT OF SIGNIFICANT CHARACTERS. 05927 M01S05701.xedit +++|* (B5) = FWA OF BUFFER (NULL LINE IF (B5) = (B6)). 05928 M01S05702.xedit +++|* (B6) = ADDRESS OF END OF LINE MARKER. 05929 M01S05703.xedit +++|* (B7) = IF .GT. 0, THEN LWA OF BUFFER. 05930 M01S05704.xedit +++|* IF (B7) = (B6), THEN BUFFER IS FULL. 05931 M01S05705.xedit +++|* IF (B7) = 0 AND (B2) .LT. 0, THEN 3 OR MORE TRAILING 05932 M01S05706.xedit +++|* BLANKS WERE REMOVED. 05933 M01S05707.xedit +++|* LINE UNPACKED WITH ASCII ESCAPE CHARACTERS INCLUDED 05934 M01S05708.xedit +++|* IN WORDS WHERE NEEDED. 05935 M01S05709.xedit +++|* END OF LINE TERMINATOR (MASK OF 1) AFTER LAST 05936 M01S05710.xedit +++|* NON-BLANK CHARACTER (OR AT END OF BUFFER - (B7)). 05937 M01S05711.xedit +++|* 05938 M01S05712.xedit +++|* USES A - 1, 2, 6. 05939 M01S05713.xedit +++|* X - 0, 1, 2, 3, 4, 6, 7. 05940 M01S05714.xedit +++|* B - 2, 5, 6, 7. 05941 M01S05715.xedit +++|* 05942 M01S05716.xedit +++|* NOTES LINES ARE ASSUMED TO BE 160 CHARACTERS LONG. 05943 M01S05717.xedit +++|* ASCII MODE WILL BE USED IF (UPLA) = 2B, 05944 M01S05718.xedit +++|* NORMAL MODE IS USED IF (UPLA) = 100B. 05945 M01S05719.xedit +++|* TRAILING SPACES ARE NOT CONSIDERED SIGNIFICANT. 05946 M01S05720.xedit +++|* TRAILING 00B CHARACTERS (COLON/64 CHARACTER SET) ARE 05947 M01S05721.xedit +++|* SIGNIFICANT ONLY IF THERE IS A NON-00B CHARACTER 05948 M01S05722.xedit +++|* FOLLOWING THEM IN THE CODED LINE. THIS AGREES WITH 05949 M01S05723.xedit +++|* THE DEFINITION OF THE END OF LINE BYTE. 05950 M01S05724.xedit +++| 05951 M01S05725.xedit +++| 05952 M01S05726.xedit +++| UPL1 SX7 X7-76B TEST FOR ASCII 05953 M01S05727.xedit +++| ZR X7,UPL6 IF ASCII 05954 M01S05728.xedit +++| UPL2 SA6 B6 SAVE ASSEMBLY 05955 M01S05729.xedit +++| SB6 B6+B1 05956 M01S05730.xedit +++| GE B6,B7,UPL8 IF SAVED LAST CHARACTER 05957 M01S05731.xedit +++| UPL3 LX1 6 GET NEXT CHARACTER 05958 M01S05732.xedit +++| BX6 -X2*X1 05959 M01S05733.xedit +++| SB2 B2-B1 DECREMENT COUNT 05960 M01S05734.xedit +++| BX7 X6+X0 IF ESCAPE = 76B 05961 M01S05735.xedit +++| UPL4 PL B2,UPL1 IF NOT LAST CHARACTER OF WORD 05962 M01S05736.xedit +++| ZR X4,UPL10 IF END OF LINE REACHED 05963 M01S05737.xedit +++| UPL5 SA1 A1+B1 GET NEXT WORD 05964 M01S05738.xedit +++| SB2 9 RESET CHARACTER POSITION 05965 M01S05739.xedit +++| BX4 -X3*X1 0, IF END OF LINE 05966 M01S05740.xedit +++| NZ X7,UPL1 IF NOT PROCESSING ASCII 05967 M01S05741.xedit +++| EQ UPL2 IF ON SECOND PART OF ASCII 05968 M01S05742.xedit +++| 05969 M01S05743.xedit +++|* PROCESS ASCII CHARACTER. 05970 M01S05744.xedit +++| 05971 M01S05745.xedit +++| UPL6 LX1 6 GET NEXT CHARACTER 05972 M01S05746.xedit +++| SB2 B2-B1 DECREMENT COUNT 05973 M01S05747.xedit +++| BX7 -X2*X1 05974 M01S05748.xedit +++| LX6 6 SHIFT ESCAPE OVER 05975 M01S05749.xedit +++| IX6 X6+X7 FORM ASCII WORD 05976 M01S05750.xedit +++| MX7 0 SET ON SECOND PART OF ASCII 05977 M01S05751.xedit +++| PL B2,UPL2 IF NEW WORD NOT NEEDED 05978 M01S05752.xedit +++| EQ UPL4 GET NEXT WORD 05979 M01S05753.xedit +++| 05980 M01S05754.xedit +++|* END OF BUFFER REACHED. 05981 M01S05755.xedit +++|* DETERMINE SIGNIFICANCE OF LAST CHARACTER. 05982 M01S05756.xedit +++| 05983 M01S05757.xedit +++| UPL7 MX6 2 05984 M01S05758.xedit +++| SA6 B6 SET LAST CHARACTER 05985 M01S05759.xedit +++| EQ UPL13 FINISH UNPACK OPERATION 05986 M01S05760.xedit +++| 05987 M01S05761.xedit +++| UPL8 NZ X6,UPL10 IF LAST CHARACTER .NE. 0 05988 M01S05762.xedit +++| NZ X4,UPL7 IF MORE FOLLOWS, LAST 0 IS COLON 05989 M01S05763.xedit +++| UPL9 LX1 6 SEE IF MORE CHARACTERS FOLLOW 05990 M01S05764.xedit +++| BX6 -X2*X1 05991 M01S05765.xedit +++| SB2 B2-1 05992 M01S05766.xedit +++| NZ X6,UPL7 IF CHARACTER FOLLOWS, 0 IS COLON 05993 M01S05767.xedit +++| PL B2,UPL9 IF MORE IN WORD, ELSE LAST IS NOT COLON 05994 M01S05768.xedit +++| 05995 M01S05769.xedit +++|* END OF LINE REACHED. TRIM 00B AND BLANKS. 05996 M01S05770.xedit +++| 05997 M01S05771.xedit +++| UPL10 SB6 B6-B1 SKIP TRAILING ZEROS 05998 M01S05772.xedit +++| SA1 B6 GET LAST CHARACTER 05999 M01S05773.xedit +++| LT B6,B5,UPL12 IF PAST START OF BUFFER 06000 M01S05774.xedit +++| ZR X1,UPL10 IF 00B CHARACTER 06001 M01S05775.xedit +++| SB7 B0 SET POSSIBLE BLANKS TRIMMED 06002 M01S05776.xedit +++| SB2 B6-B1 06003 M01S05777.xedit +++| UPL11 SX1 X1-1R SKIP TRAILING BLANKS 06004 M01S05778.xedit +++| NZ X1,UPL12 IF NOT BLANK 06005 M01S05779.xedit +++| SB6 B6-B1 06006 M01S05780.xedit +++| SA1 B6 06007 M01S05781.xedit +++| GE B6,B5,UPL11 IF NOT PAST START OF BUFFER 06008 M01S05782.xedit +++| UPL12 SB6 B6+1 PUT MARK AFTER LAST NON-BLANK 06009 M01S05783.xedit +++| MX6 2 06010 M01S05784.xedit +++| SA6 B6 06011 M01S05785.xedit +++| UPL13 SX6 B6-B5 GET CHARACTER COUNT 06012 M01S05786.xedit +++| NZ B7,UPL IF NOT CHECKING TRAILING BLANKS 06013 M01S05787.xedit +++| SB2 B6-B2 06014 M01S05788.xedit +++| 06015 M01S05789.xedit +++| UPL PS ENTRY/EXIT 06016 M01S05790.xedit +++| SA2 UPLA 06017 M01S05791.xedit +++| MX3 -12 END OF LINE MASK 06018 M01S05792.xedit +++| SB5 B6 MARK FIRST CHARACTER POSITION 06019 M01S05793.xedit +++| SX0 X2 SET MODE OF UNPACK 06020 M01S05794.xedit +++| MX2 -6 CHARACTER MASK 06021 M01S05795.xedit +++| BX4 -X3*X1 TEST FOR END OF LINE 06022 M01S05796.xedit +++| SB2 9 SET CHARACTER POSITION 06023 M01S05797.xedit +++| SB7 B6+MAXWD SET LWA+1 06024 M01S05798.xedit +++| EQ UPL3 PROCESS UNPACK 06025 M01S05799.xedit +++| 06026 M01S05800.xedit +++| UPLA CON 100B SET NO ASCII (RESET IN PRESET IF NEEDED) 06027 M01S05801.xedit +++| VAL SPACE 4,15 06028 M01S05802.xedit +++|** VAL - EVALUATE NUMERIC STRING. 06029 M01S05803.xedit +++|* 06030 M01S05804.xedit +++|* ENTRY (A5) = FWA OF NUMERIC STRING. 06031 M01S05805.xedit +++|* (X5) = FIRST WORD OF NUMERIC STRING. 06032 M01S05806.xedit +++|* 06033 M01S05807.xedit +++|* EXIT (A5) = LWA+1 OF NUMERIC STRING. 06034 M01S05808.xedit +++|* (X5) = ((A5)). 06035 M01S05809.xedit +++|* (X6) = NUMBER EVALUATED. 06036 M01S05810.xedit +++|* = -0, IF NUMBER 0 WAS SPECIFIED. 06037 M01S05811.xedit +++|* 06038 M01S05812.xedit +++|* USES A - 5. 06039 M01S05813.xedit +++|* X - 3, 4, 5, 6, 7. 06040 M01S05814.xedit +++|* B - 2, 3, 4. 06041 M01S05815.xedit +++|*
| Line S05816 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 06042 M02S05816.xedit21 ---|* NOTES THIS ROUTINE CONVERTS THE CHARACTER, +*+ TO 99999D. 06043 M01S00075.xedit21 +++|* NOTES THIS ROUTINE CONVERTS AN ASTERISK (*) TO 2**30 - 1. 06044 M01S00076.xedit21 +++|* 06045 M01S05817.xedit +++| 06046 M01S05818.xedit +++| 06047 M01S05819.xedit +++| VAL1 SX4 X5-1R9-1 06048 M01S05820.xedit +++| SX3 X5-1R0 06049 M01S05821.xedit +++| BX4 -X3*X4 06050 M01S05822.xedit +++| PL X4,VAL2 IF NOT A NUMBER 06051 M01S05823.xedit +++| LX4 B2,X6 *4 06052 M01S05824.xedit +++| IX4 X6+X4 *5 06053 M01S05825.xedit +++| SA5 A5+B1 NEXT CHARACTER 06054 M01S05826.xedit +++| LX4 1 *10 06055 M01S05827.xedit +++| SX7 X7+B1 SET CHARACTER ENCOUNTERED FLAG 06056 M01S05828.xedit +++| IX6 X4+X3 06057 M01S05829.xedit +++| PL X5,VAL1 IF NOT END OF LINE 06058 M01S05830.xedit +++| 06059 M01S05831.xedit +++| VAL2 ZR X7,VAL3 IF NO NUMBERS ENCOUNTERED 06060 M01S05832.xedit +++| NZ X6,VAL4 IF NOT JUST 0 USED 06061 M01S05833.xedit +++| MX6 60 SET -0 FLAG 06062 M01S05834.xedit +++| EQ VAL4 END OF NUMBERS 06063 M01S05835.xedit +++| 06064 M01S05836.xedit +++| VAL3 SX7 X5-1R* 06065 M01S05837.xedit +++| NZ X7,VAL4 IF NOT * 06066 M01S05838.xedit +++| SA5 A5+1 STEP OVER *
| Line S05839 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 06067 M02S05839.xedit21 ---| SX6 99999D SET * EQUIVALENT 06068 M01S00077.xedit21 +++| MX6 -30 06069 M01S00078.xedit21 +++| BX6 -X6 SET * EQUIVALENT 06070 M01S05840.xedit +++| VAL4 SB4 X5-1R 06071 M01S05841.xedit +++| ZR B4,VAL5 IF BLANK 06072 M01S05842.xedit +++| NE B4,B1,VAL IF NOT COMMA 06073 M01S05843.xedit +++| NZ B3,VAL IF SECOND COMMA 06074 M01S05844.xedit +++| VAL5 SA5 A5+B1 06075 M01S05845.xedit +++| SB3 B3+B4 SET COMMA FLAG 06076 M01S05846.xedit +++| PL X5,VAL4 IF NOT END OF LINE 06077 M01S05847.xedit +++| 06078 M01S05848.xedit +++| VAL PS ENTRY/EXIT 06079 M01S05849.xedit +++| BX6 X6-X6 CLEAR ASSEMBLY 06080 M01S05850.xedit +++| SB2 B1+B1 06081 M01S05851.xedit +++| MX7 0 CLEAR CHARACTER ENCOUNTERED 06082 M01S05852.xedit +++| SB3 B0 SET NO COMMA 06083 M01S05853.xedit +++| PL X5,VAL1 IF NOT END OF LINE 06084 M01S05854.xedit +++| EQ VAL RETURN 06085 M01S05855.xedit +++| VIS SPACE 4,10 06086 M01S05856.xedit +++|** VIS - VOID INSTRUCTION STACK. 06087 M01S05857.xedit +++|* 06088 M01S05858.xedit +++|* *VIS* SHOULD BE CALLED IMMEDIATELY AFTER ALL INSTRUCTION 06089 M01S05859.xedit +++|* MODIFICATIONS TO VOID THE INSTRUCTION STACK. 06090 M01S05860.xedit +++| 06091 M01S05861.xedit +++| 06092 M01S05862.xedit +++| VIS SUBR ENTRY/EXIT 06093 M01S05863.xedit +++| EQ VIS RETURN 06094 M01S05864.xedit +++| VRT SPACE 4,10 06095 M01S05865.xedit +++|** VRT - VERIFY LINE AND RETURN TO *NCM*. 06096 M01S05866.xedit +++|* 06097 M01S05867.xedit +++|* ENTRY NONE. 06098 M01S05868.xedit +++|* 06099 M01S05869.xedit +++|* EXIT TO *NCM*. 06100 M01S05870.xedit +++|* 06101 M01S05871.xedit +++|* CALLS VRY. 06102 M01S05872.xedit +++|* 06103 M01S05873.xedit +++|* NOTES DO NOT RETURN JUMP TO THIS ROUTINE. 06104 M01S05874.xedit +++| 06105 M01S05875.xedit +++| 06106 M01S05876.xedit +++| VRT RJ VRY VERIFY LINE 06107 M01S05877.xedit +++| EQ NCM EXIT 06108 M01S05878.xedit +++| VRY SPACE 4,15 06109 M01S05879.xedit +++|** VRY - VERIFY XEDIT OPERATIONS. 06110 M01S05880.xedit +++|* 06111 M01S05881.xedit +++|* ENTRY NONE. 06112 M01S05882.xedit +++|* 06113 M01S05883.xedit +++|* EXIT CURRENT LINE WRITTEN OF *VERIFY* TRUE. 06114 M01S05884.xedit +++|* THE LINE IS PACKED IF NEEDED AND HOUSEKEEPING DONE. 06115 M01S05885.xedit +++|* 06116 M01S05886.xedit +++|* USES A - 1, 4, 6. 06117 M01S05887.xedit +++|* X - 1, 4, 6. 06118 M01S05888.xedit +++|* B - 6, 7. 06119 M01S05889.xedit +++|* 06120 M01S05890.xedit +++|* CALLS RTA. 06121 M01S05891.xedit +++|* 06122 M01S05892.xedit +++|* MACROS WRITEC. 06123 M01S05893.xedit +++| 06124 M01S05894.xedit +++| VRY1 WRITEC OUTPUT,E.LINE 06125 M01S05895.xedit +++| 06126 M01S05896.xedit +++| VRY PS ENTRY/EXIT 06127 M01S05897.xedit +++| SA4 VERIFY 06128 M01S05898.xedit +++| PL X4,VRY IF NOT IN *VERIFY* MODE 06129 M01S05899.xedit +++| SA1 E.LMOD 06130 M01S05900.xedit +++| ZR X1,VRY1 IF NO MODIFICATIONS OR PACKED 06131 M01S05901.xedit +++| SA1 A1-1 06132 M01S05902.xedit +++| ZR X1,VRY1 IF CODED FORMAT 06133 M01S05903.xedit +++| SB6 E.STR RE-PACK LINE 06134 M01S05904.xedit +++| SB7 E.LINE 06135 M01S05905.xedit +++| MX6 0 SET LMOD TO NO LINE MOD 06136 M01S05906.xedit +++| SA6 A1+B1 E.LMOD 06137 M01S05907.xedit +++| RJ RTOA 06138 M01S05908.xedit +++| EQ VRY1 WRITE LINE 06139 M01S05909.xedit +++| WTF SPACE 4,15 06140 M01S05910.xedit +++|** WTF - WRITE EDIT LINE. 06141 M01S05911.xedit +++|* 06142 M01S05912.xedit +++|* ENTRY (IWHERE) = IF CREATION MODE, .LE. ZERO. 06143 M01S05913.xedit +++|* ELSE, LINE COUNT. 06144 M01S05914.xedit +++|* 06145 M01S05915.xedit +++|* EXIT (IWHERE) = IF CREATION MODE, 1. 06146 M01S05916.xedit +++|* IF UPDATING, (IWHERE) + 1. 06147 M01S05917.xedit +++|* 06148 M01S05918.xedit +++|* USES A - 1, 2, 3, 6, 7. 06149 M01S05919.xedit +++|* X - 1, 2, 3, 6, 7. 06150 M01S05920.xedit +++|* B - 6, 7. 06151 M01S05921.xedit +++|* 06152 M01S05922.xedit +++|* CALLS RTOA, VIS. 06153 M01S05923.xedit +++|* 06154 M01S05924.xedit +++|* MACROS WRITEC 06155 M01S05925.xedit +++| 06156 M01S05926.xedit +++| 06157 M01S05927.xedit +++| WTF2 WRITEC E.OUT,E.LINE 06158 M01S05928.xedit +++| WTF3 SA3 IWHERE BUMP IWHERE
| Line S05929 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit2 |
Seq # *Modification Id* Act ----------------------------+ 06159 M02S05929.xedit2 ---| SX7 X3+B1 06160 M01S00007.xedit2 +++| SX7 B1 06161 M01S00008.xedit2 +++| IX7 X3+X7 06162 M01S05930.xedit +++| SA7 A3 06163 M01S05931.xedit +++| 06164 M01S05932.xedit +++| WTF PS ENTRY/EXIT 06165 M01S05933.xedit +++| SA1 UPDATE 06166 M01S05934.xedit +++| PL X1,WTF3 IF NOT UPDATING FILE. 06167 M01S05935.xedit +++| 06168 M01S05936.xedit +++|* WORD IS REPLACED AFTER FIRST ENTRY. 06169 M01S05937.xedit +++| 06170 M01S05938.xedit +++| WTFA SA1 WTFB 06171 M01S05939.xedit +++| EQ WTF1 PRESET CODE 06172 M01S05940.xedit +++| 06173 M01S05941.xedit +++|* NORMAL CODE FOLLOWS. 06174 M01S05942.xedit +++| 06175 M01S05943.xedit +++| WTF RMT 06176 M01S05944.xedit +++| SA1 E.LMOD 06177 M01S05945.xedit +++| ZR X1,WTF2 IF NO MODIFICATION 06178 M01S05946.xedit +++| RMT 06179 M01S05947.xedit +++| 06180 M01S05948.xedit +++| SA1 A1-B1 06181 M01S05949.xedit +++| ZR X1,WTF2 IF IN CODED MODE 06182 M01S05950.xedit +++| SB6 E.STR 06183 M01S05951.xedit +++| SB7 E.LINE 06184 M01S05952.xedit +++| RJ RTOA RE-PACK LINE 06185 M01S05953.xedit +++| MX6 0 06186 M01S05954.xedit +++| SA6 E.LMOD SET NO MODIFICATIONS 06187 M01S05955.xedit +++| EQ WTF2 WRITE LINE 06188 M01S05956.xedit +++| 06189 M01S05957.xedit +++|* PRESET CODE. 06190 M01S05958.xedit +++| 06191 M01S05959.xedit +++| WTF1 SA2 IWHERE 06192 M01S05960.xedit +++| BX6 X1 06193 M01S05961.xedit +++| SX7 B1 06194 M01S05962.xedit +++| SA6 WTFA REPLACE PRESET JUMP 06195 M01S05963.xedit +++| RJ VIS VOID INSTRUCTION STACK 06196 M01S05964.xedit +++| PL X2,WTF+1 IF NOT CREATION MODE 06197 M01S05965.xedit +++| SA7 A2 SET IWHERE = 1 06198 M01S05966.xedit +++| MX6 0 06199 M01S05967.xedit +++| SA7 NOMOD SET MODIFICATIONS MADE 06200 M01S05968.xedit +++| SA6 RC SET DATA READ 06201 M01S05969.xedit +++| EQ WTF RETURN (NO LINE TO WRITE OUT) 06202 M01S05970.xedit +++| 06203 M01S05971.xedit +++| WTFB BSS 0 06204 M01S05972.xedit +++| WTF HEREL 06205 M01S05973.xedit +++| TITLE SPECIAL PURPOSE SUBROUTINES. 06206 M01S05974.xedit +++| LCB SPACE 4,25 06207 M01S05975.xedit +++|** LCB - LOAD CIRCULAR BUFFER. 06208 M01S05976.xedit +++|* 06209 M01S05977.xedit +++|* ENTRY (A2) = ADDRESS OF OUT. 06210 M01S05978.xedit +++|* (A3) = ADDRESS OF FIRST. 06211 M01S05979.xedit +++|* (A4) = RETURN ADDRESS. 06212 M01S05980.xedit +++|* (B4) = OUT. 06213 M01S05981.xedit +++|* 06214 M01S05982.xedit +++|* EXIT TO RETURN ADDRESS -1 IF CONTINUATION READ. 06215 M01S05983.xedit +++|* TO RETURN ADDRESS IF EOR/EOF. 06216 M01S05984.xedit +++|* (X1) = LAST WORD ADDRESS OF WORKING BUFFER. 06217 M01S05985.xedit +++|* = -1 IF EOF. 06218 M01S05986.xedit +++|* = -2 IF EOI. 06219 M01S05987.xedit +++|* 06220 M01S05988.xedit +++|* MACROS READ, RECALL. 06221 M01S05989.xedit +++|* 06222 M01S05990.xedit +++|* NOTES ROUTINE IS COPIED FROM COMCRDW. 06223 M01S05991.xedit +++|* REQUEST READ IF BUFFER IS EMPTY, NOT BUSY AND NOT 06224 M01S05992.xedit +++|* EOR/EOF. IF BUFFER IS BUSY, RECALL AND RETURN. 06225 M01S05993.xedit +++|* MODIFIED TO RETURN EOI STATUS IF FET UNDER 06226 M01S05994.xedit +++|* INVESTIGATION HAS A ZERO FILENAME. (ASSUMES OPTIONS 06227 M01S05995.xedit +++|* SUCH AS I=0 USED). 06228 M01S05996.xedit +++| 06229 M01S05997.xedit +++| 06230 M01S05998.xedit +++| LCB= SA1 A3-B1 CHECK BUFFER STATUS 06231 M01S05999.xedit +++| SX6 B4 STORE OUT 06232 M01S06000.xedit +++| LX1 59-0 06233 M01S06001.xedit +++| SA6 A2 06234 M01S06002.xedit +++| NG X1,LCB2 IF BUFFER NOT BUSY 06235 M01S06003.xedit +++| SX6 -2 PREPARE EOI STATUS 06236 M01S06004.xedit +++| ZR X1,LCB8 IF NO FILE NAME (EG. L=0 USED) 06237 M01S06005.xedit +++| RECALL 06238 M01S06006.xedit +++| LCB1 SB2 A4-B1 CONTINUE READ 06239 M01S06007.xedit +++| JP B2 RETURN 06240 M01S06008.xedit +++| 06241 M01S06009.xedit +++| LCB2 SA1 A2-B1 RE-READ IN 06242 M01S06010.xedit +++| SB3 X1 06243 M01S06011.xedit +++| NE B3,B4,LCB1 IF BUFFER NOT EMPTY 06244 M01S06012.xedit +++| SA1 A3-B1 CHECK BUFFER STATUS 06245 M01S06013.xedit +++| LX1 59-4 06246 M01S06014.xedit +++| NG X1,LCB3 IF EOR/EOF/EOI 06247 M01S06015.xedit +++| READ A3-B1 XEDIT ONLY USES READ FUNCTION 06248 M01S06016.xedit +++| SB2 A4-B1 06249 M01S06017.xedit +++| JP B2 RETURN 06250 M01S06018.xedit +++| 06251 M01S06019.xedit +++| LCB3 LX6 B1,X1 06252 M01S06020.xedit +++| SA1 A3 SET IN = OUT = FIRST 06253 M01S06021.xedit +++| SX7 X1 06254 M01S06022.xedit +++| SA7 A1+B1 06255 M01S06023.xedit +++| SX1 -B1 SET EOF RESPONCE 06256 M01S06024.xedit +++| SB2 A4 SET RETURN ADDRESS 06257 M01S06025.xedit +++| NG X6,LCB4 IF EOF 06258 M01S06026.xedit +++| MX2 -4 06259 M01S06027.xedit +++| SX1 B6 06260 M01S06028.xedit +++| LX6 -14+4 06261 M01S06029.xedit +++| BX2 -X2*X6 06262 M01S06030.xedit +++| SB3 X2+ 06263 M01S06031.xedit +++| EQ B3,B1,LCB6 IF LEVEL 1 06264 M01S06032.xedit +++| 06265 M01S06033.xedit +++| LCB4 SX2 A3-B1 RESET (X2) 06266 M01S06034.xedit +++| SA7 A7+B1 06267 M01S06035.xedit +++| NG X1,LCB7 IF EOF/EOI 06268 M01S06036.xedit +++| LCB5 JP B2 RETURN 06269 M01S06037.xedit +++| 06270 M01S06038.xedit +++| LCB6 SA7 A7+B1 STORE OUT 06271 M01S06039.xedit +++| READ A3-B1,R RESTART TELETYPE READ 06272 M01S06040.xedit +++| SB2 A4-B1 06273 M01S06041.xedit +++| JP B2 RETURN 06274 M01S06042.xedit +++| 06275 M01S06043.xedit +++| LCB7 LX6 3-9 06276 M01S06044.xedit +++| PL X6,LCB5 IF NOT EOI 06277 M01S06045.xedit +++| LX1 1 SET -2 RESPONSE 06278 M01S06046.xedit +++| JP B2 RETURN 06279 M01S06047.xedit +++| 06280 M01S06048.xedit +++| LCB8 SB2 A4 06281 M01S06049.xedit +++| BX1 X6 MOVE EOI STATUS 06282 M01S06050.xedit +++| JP B2 RETURN 06283 M01S06051.xedit +++| 06284 M01S06052.xedit +++| RDX SPACE 4,20 06285 M01S06053.xedit +++|** RDX - READ EXIT. 06286 M01S06054.xedit +++|* 06287 M01S06055.xedit +++|* ENTRY (A2) = ADDRESS OF OUT. 06288 M01S06056.xedit +++|* (A3) = ADDRESS OF FIRST. 06289 M01S06057.xedit +++|* (A4) = RETURN ADDRESS. 06290 M01S06058.xedit +++|* (X3) = FIRST. 06291 M01S06059.xedit +++|* (B3) = IN. 06292 M01S06060.xedit +++|* (B4) = OUT. 06293 M01S06061.xedit +++|* (B5) = LIMIT. 06294 M01S06062.xedit +++|* 06295 M01S06063.xedit +++|* EXIT TO RETURN ADDRESS. 06296 M01S06064.xedit +++|* 06297 M01S06065.xedit +++|* MACROS READ. 06298 M01S06066.xedit +++|* 06299 M01S06067.xedit +++|* NOTES ROUTINE COPIED FROM COMCRDW. 06300 M01S06068.xedit +++|* EXIT FROM READ SUBROUTINE TO CALLER. 06301 M01S06069.xedit +++|* IF CIRCULAR BUFFER IS BUSY, OR EOR/EOF IS SENSED, NO 06302 M01S06070.xedit +++|* ACTION IS TAKEN. OTHERWISE, THE WORD COUNT REMAINING 06303 M01S06071.xedit +++|* IN THE BUFFER IS CHECKED AND A READ FUNCTION ISSUED. 06304 M01S06072.xedit +++|* IF NECESSARY. 06305 M01S06073.xedit +++| 06306 M01S06074.xedit +++| 06307 M01S06075.xedit +++| RDX= SA1 A3-B1 CHECK BUFFER STATUS 06308 M01S06076.xedit +++| SX6 B4 06309 M01S06077.xedit +++| LX1 59 06310 M01S06078.xedit +++| SA6 A2 STORE OUT 06311 M01S06079.xedit +++| SX2 A3-B1 RESET (X2) 06312 M01S06080.xedit +++| PL X1,RDX1 IF BUFFER BUSY 06313 M01S06081.xedit +++| LX1 -4 06314 M01S06082.xedit +++| NG X1,RDX1 IF EOR/EOF/EOI SET 06315 M01S06083.xedit +++| SA1 A2-B1 REREAD IN 06316 M01S06084.xedit +++| SB3 X1 06317 M01S06085.xedit +++| 06318 M01S06086.xedit +++|* IF BUFFER IS NOT BUSY, CHECK SIZE AND ISSUE READ. 06319 M01S06087.xedit +++| 06320 M01S06088.xedit +++| SX6 B3-B4 (IN-OUT) 06321 M01S06089.xedit +++| SB2 X3 (LIMIT-FIRST) 06322 M01S06090.xedit +++| LX3 X6,B1 2*(IN-OUT) 06323 M01S06091.xedit +++| SX7 B5-B2 06324 M01S06092.xedit +++| AX6 60 SIGN OF (IN-OUT) 06325 M01S06093.xedit +++| BX4 X6-X7 INVERT BUFFER IF OUT >= IN 06326 M01S06094.xedit +++| IX6 X4-X3 BUFFER SIZE - 2*(IN-OUT) 06327 M01S06095.xedit +++| AX7 9 06328 M01S06096.xedit +++| NG X6,RDX1 IF BUFFER THRESHOLD NOT REACHED 06329 M01S06097.xedit +++| ZR X7,RDX1 IF BUFFER NOT BIG ENOUGH TO READ AHEAD 06330 M01S06098.xedit +++| READ X2 READ FILE 06331 M01S06099.xedit +++| 06332 M01S06100.xedit +++| RDX1 SX1 B0 RESPONSE =0 06333 M01S06101.xedit +++| SB2 A4 06334 M01S06102.xedit +++| JP B2 RETURN 06335 M01S06103.xedit +++| SPACE 4 06336 M01S06104.xedit +++|* COMMON DECKS NEEDED GLOBALLY. 06337 M01S06105.xedit +++| 06338 M01S06106.xedit +++|*CALL COMCCDD 06339 M01S00019.xedit12 +++|*CALL COMCCFD 06340 M01S06107.xedit +++|*CALL COMCCIO 06341 M01S06108.xedit +++|*CALL COMCCPM 06342 M01S00020.xedit12 +++|*CALL COMCCUA 06343 M01S00021.xedit12 +++|*CALL COMCEDT 06344 M01S06109.xedit +++|*CALL COMCLFM 06345 M01S06110.xedit +++|*CALL COMCOVL 06346 M01S06111.xedit +++|*CALL COMCPFM 06347 M01S06112.xedit +++|*CALL COMCRDC 06348 M01S06113.xedit +++|*CALL COMCSYS 06349 M01S06114.xedit +++|*CALL COMCWTC 06350 M01S06115.xedit +++|*CALL COMCWTO 06351 M01S06116.xedit +++|*CALL COMCWTW 06352 M01S00022.xedit12 +++|*CALL COMCZTB 06353 M01S06117.xedit +++| SPACE 4 06354 M01S06118.xedit +++| IF -DEF,ACCTE,3 06355 M01S06119.xedit +++| TITLE PRESET AND BUFFER ALLOCATION. 06356 M01S06120.xedit +++| QUAL$ BSS 0 COMMON DECK QUAL DONE BY XEDIT 06357 M01S06121.xedit +++| QUAL PRESET 06358 M01S06122.xedit +++| 06359 M01S06123.xedit +++| 06360 M01S06124.xedit +++|** NOTE- PRESET RESIDES IN TWO LOCATIONS. THE MAJOR AREA 06361 M01S06125.xedit +++|* RESIDES IN THE OUTGOING EDIT FILE BUFFER. THE OTHER 06362 M01S06126.xedit +++|* SECTION DEALS ONLY WITH THE LAST MINUTE DETAILS WHICH 06363 M01S06127.xedit +++|* COULD BE WIPED OUT BY USING THE EDIT FILES. THIS CODE 06364 M01S06128.xedit +++|* RESIDES IN THE D.STR ARRAY. 06365 M01S06129.xedit +++| PRF SPACE 4,20 06366 M01S06130.xedit +++|** PRF - PRESET EDIT FILE. 06367 M01S06131.xedit +++|* 06368 M01S06132.xedit +++|* ENTRY AT *PRF*, IF FILE IS LOCAL. 06369 M01S06133.xedit +++|* AT *PRF3*, IF *C* PARAMETER USED. 06370 M01S06134.xedit +++|* AT *PRF4*, IF *P* PARAMETER USED. 06371 M01S06135.xedit +++|* (D.STR) = EDIT FILE NAME. 06372 M01S06136.xedit +++|* 06373 M01S06137.xedit +++|* EXIT TO *NCM* TO PROCESS COMMANDS. 06374 M01S06138.xedit +++|* TO *ABT* IF FATAL ERROR. 06375 M01S06139.xedit +++|* 06376 M01S06140.xedit +++|* USES A - 1, 2, 3, 4, 5, 6, 7. 06377 M01S06141.xedit +++|* X - 1, 2, 3, 4, 5, 6, 7. 06378 M01S06142.xedit +++|* B - 3, 6, 7. 06379 M01S06143.xedit +++|* 06380 M01S06144.xedit +++|* CALLS GFN, RDF, RDL, RTA, SFN, STF STK, UPL. 06381 M01S06145.xedit +++|* 06382 M01S06146.xedit +++|* MACROS ATTACH, DISTC, GET, READ, RECALL, RENAME, 06383 M01S06147.xedit +++|* REWIND, STATUS, WRITEC. 06384 M01S06148.xedit +++| 06385 M01S06149.xedit +++| 06386 M01S06150.xedit +++| ORG D.STR FILE PRESET 06387 M01S06151.xedit +++| PRF EQ PRF8 PROCESS LOCAL FILE 06388 M01S06152.xedit +++| 06389 M01S06153.xedit +++|* BAD FILE READ. 06390 M01S06154.xedit +++| 06391 M01S06155.xedit +++| PRF1 REWIND E.IN,RECALL 06392 M01S06156.xedit +++| READ X2,RECALL 06393 M01S06157.xedit +++| READ X2,RECALL 06394 M01S06158.xedit +++| SA1 X2 06395 M01S06159.xedit +++| LX1 59-9 POSITION EOI BIT 06396 M01S06160.xedit +++| SX4 PRFB * FILE NOT XEDIT-ABLE. 06397 M01S06161.xedit +++| PL X1,PRF6 IF ABOVE 06398 M01S06162.xedit +++| SA1 E.IN+2 CHECK IN POINTER 06399 M01S06163.xedit +++| SX1 X1-BUFB 06400 M01S06164.xedit +++| NZ X1,PRF6 IF DATA ON FILE 06401 M01S06165.xedit +++| PRF2 BSS 0 06402 M01S06166.xedit +++| IF DEF,CYBRNET,2 06403 M01S06167.xedit +++| WRITEC OUTPUT,PRFC * EMPTY FILE/CREATION MODE ASSUMED 06404 M01S06168.xedit +++| SKIP 2 06405 M01S06169.xedit +++| SX4 PRFC * EMPTY OR FILE NOT FOUND. 06406 M01S06170.xedit +++| EQ PRF6 CREATE FILE 06407 M01S06171.xedit +++| 06408 M01S06172.xedit +++|* ENTER IF *C* PARAMETER SPECIFIED (CREATION MODE). 06409 M01S06173.xedit +++| 06410 M01S06174.xedit +++| PRF3 SA1 UPDATE 06411 M01S06175.xedit +++| SB6 PRFE * UPDATE/CREATION MODE CONFLICT.* 06412 M01S06176.xedit +++| PL X1,ABT IF ABOVE 06413 M01S06177.xedit +++| REWIND E.IN,RECALL 06414 M01S06178.xedit +++| REWIND E.OUT,RECALL REWIND SCRATCH FILES 06415 M01S06179.xedit +++| SA1 PRFA PUT NAME INTO FET 06416 M01S06180.xedit +++| SX7 1031B NOT BUSY, EOI ENCOUNTERED 06417 M01S06181.xedit +++| SX6 -B1 06418 M01S06182.xedit +++| BX7 X7+X1 06419 M01S06183.xedit +++| SA6 IWHERE SET CREATION MODE FLAG 06420 M01S06184.xedit +++| SA7 E.IN 06421 M01S06185.xedit +++| SA6 RC SET NO DATA READ 06422 M01S06186.xedit +++| SA6 FS SET NOT READING OFF EDIT FILE 06423 M01S06187.xedit +++| EQ PRF10 COMPLETE INITIALIZATION 06424 M01S06188.xedit +++| 06425 M01S06189.xedit +++|* ENTER IF *P* PARAMETER SPECIFIED. 06426 M01S06190.xedit +++| 06427 M01S06191.xedit +++| PRF4 SA1 PRFA OLSCRB 06428 M01S06192.xedit +++| SA2 IFN 06429 M01S06193.xedit +++| MX7 59 06430 M01S06194.xedit +++| BX7 -X7+X1 SET *NOT BUSY* 06431 M01S06195.xedit +++| SA7 FS SET READING OFF SCRATCH FILE 06432 M01S06196.xedit +++| LX6 X2 06433 M01S06197.xedit +++| SA7 FT 06434 M01S06198.xedit +++| SA6 FT+8 06435 M01S06199.xedit +++| GET FT 06436 M01S06200.xedit +++| SA3 X2 06437 M01S06201.xedit +++| SX1 36000B LOAD MASK 06438 M01S06202.xedit +++| BX6 X1*X3 06439 M01S06203.xedit +++| ZR X6,PRF5 IF FILE GOTTEN 06440 M01S00030.xedit20 +++| SA1 UPDATE 06441 M01S00031.xedit20 +++| PL X1,PRF4.1 IF IN LOOK MODE 06442 M01S06204.xedit +++| ATTACH X2,,,,W
| Line S06205 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 06443 M02S06205.xedit20 ---| SA3 X2 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 M01S06206.xedit +++| SX1 36000B 06449 M01S06207.xedit +++| BX6 X1*X3 06450 M01S06208.xedit +++| SX4 ERR SET ERROR MESSAGE TO PFM 06451 M01S06209.xedit +++| NZ X6,PRF6 IF ABOVE 06452 M01S06210.xedit +++| MX7 1 SET *ATTACH* BIT 06453 M01S06211.xedit +++| LX7 57-59 06454 M01S06212.xedit +++| SA7 SPCP 06455 M01S06213.xedit +++| SA1 FT+8 06456 M01S06214.xedit +++| MX6 42 RENAME FOR D.A. EXIT PROBLEMS 06457 M01S06215.xedit +++| SX7 B0 06458 M01S06216.xedit +++| BX1 X6*X1 06459 M01S06217.xedit +++| SA7 FS SET READING OFF PRIMARY FILE 06460 M01S06218.xedit +++| RENAME FT,X1 06461 M01S06219.xedit +++| PRF5 SA1 FT GET NAME 06462 M01S06220.xedit +++| MX6 42 06463 M01S06221.xedit +++| SX7 B1 06464 M01S06222.xedit +++| BX2 X6*X1 CLEAR LOWER BITS 06465 M01S06223.xedit +++| IX7 X2+X7 SET COMPLETE 06466 M01S06224.xedit +++| RECALL E.IN 06467 M01S06225.xedit +++| SA7 E.IN PUT NEW FILENAM INTO FET 06468 M01S06226.xedit +++| SA1 SPCP SET *P* AS SPECIFIED PARAMETER 06469 M01S06227.xedit +++| MX7 1 06470 M01S06228.xedit +++| LX7 58-59 06471 M01S06229.xedit +++| BX7 X1+X7 06472 M01S06230.xedit +++| SA7 A1 06473 M01S06231.xedit +++| EQ PRF9 SET UP FILE FOR EDITING 06474 M01S06232.xedit +++| 06475 M01S06233.xedit +++|* PROCESS EDITFIL ERROR. 06476 M01S06234.xedit +++|* (X4) = ADDRESS OF ERROR MESSAGE. 06477 M01S06235.xedit +++| 06478 M01S06236.xedit +++| PRF6 WRITEC OUTPUT,X4 ISSUE MESSAGE 06479 M01S06237.xedit +++| SA1 PRFF 06480 M01S06238.xedit +++| SX6 X1-1 DECREMENT RETRY COUNT 06481 M01S06239.xedit +++| SA6 A1+ 06482 M01S06240.xedit +++| ZR X1,PRF13 IF EXCEEDED RETRY LIMIT 06483 M01S06241.xedit +++| 06484 M01S06242.xedit +++| PRF7 WRITEC OUTPUT,PRFH * NAME EDIT FILE 06485 M01S06243.xedit +++| RJ RDL READ A LINE (NOTE- PRELIX + INITIALLY SET) 06486 M01S06244.xedit +++| NZ X1,PRF7 IF HIT A CARRIAGE RETURN 06487 M01S06245.xedit +++| SA1 D.LINE 06488 M01S06246.xedit +++| SB6 E.STR *E.STR* USED AS SCRATCH 06489 M01S06247.xedit +++| RJ UPL 06490 M01S06248.xedit +++| SA5 E.STR 06491 M01S06249.xedit +++| RJ GFN GET SPECIFIED EDITFIL NAME 06492 M01S06250.xedit +++| SX4 =C* RESERVED FILE NAME.* 06493 M01S06251.xedit +++| SB6 B6-303B 06494 M01S06252.xedit +++| ZR B6,PRF7.1 IF RESERVED FILE NAME 06495 M01S06253.xedit +++| SX4 PRFL 06496 M01S06254.xedit +++| NZ B4,PRF7.1 IF SPECIAL CHARACTERS 06497 M01S06255.xedit +++| SX4 PRFM 06498 M01S06256.xedit +++| PRF7.1 NZ X1,PRF6 IF FILE NAME ERROR 06499 M01S06257.xedit +++| SA6 IFN 06500 M01S06258.xedit +++| NG X5,PRF8 IF END OF LINE 06501 M01S06259.xedit +++| MX3 -6 EXTRACT LOWER CASE PART OF CHARACTER 06502 M01S06260.xedit +++| BX5 -X3*X5 06503 M01S06261.xedit +++| SX4 X5-1RC 06504 M01S06262.xedit +++| ZR X4,PRF3 IF *C* USED 06505 M01S06263.xedit +++| SX4 X5-1RP 06506 M01S06264.xedit +++| ZR X4,PRF4 IF *P* USED 06507 M01S06265.xedit +++| 06508 M01S06266.xedit +++|* NO PARAMETER USED 06509 M01S06267.xedit +++| 06510 M01S06268.xedit +++| PRF8 SA1 IFN PUT EDIT NAME INTO FET 06511 M01S06269.xedit +++| MX7 59D 06512 M01S06270.xedit +++| BX7 -X7+X1 SET FET *NOT BUSY* 06513 M01S06271.xedit +++| RECALL E.IN 06514 M01S06272.xedit +++| MX6 0 06515 M01S06273.xedit +++| SA7 E.IN SET NAME INTO FET 06516 M01S06274.xedit +++| SA6 FS SET READING OFF EDIT FILE 06517 M01S06275.xedit +++| RJ STF SET TERMINAL FILE 06518 M01S06276.xedit +++| NZ X6,PRF9 IF EDITFIL NOT TYPE *TT* 06519 M01S06277.xedit +++| SA1 E.IN 06520 M01S06278.xedit +++| MX6 42 06521 M01S06279.xedit +++| BX1 X6*X1 06522 M01S06280.xedit +++| RJ SFN SPACE FILE NAME 06523 M01S06281.xedit +++| SX4 =C* FILENAM CANNOT BE ASSIGNED TO THE TERMINAL.* 06524 M01S06282.xedit +++| LX6 -6 06525 M01S06283.xedit +++| SA6 X4 INSERT FILE NAME INTO MESSAGE 06526 M01S06284.xedit +++| EQ PRF6 PROCESS EDITFIL ERROR 06527 M01S06285.xedit +++| 06528 M01S06286.xedit +++| PRF9 REWIND E.IN,RECALL REWIND BOTH SCRATCH FILES 06529 M01S06287.xedit +++| REWIND E.OUT,RECALL 06530 M01S06288.xedit +++| BX7 X7-X7 06531 M01S06289.xedit +++| SA7 E.IN+5 INITIALIZE STATUS RESPONCE CELLS 06532 M01S06290.xedit +++| SA7 A7+B1 06533 M01S06291.xedit +++| STATUS E.IN,P 06534 M01S06292.xedit +++| SA1 E.IN+5 GET FNT ENTRY OF EDITFIL 06535 M01S06293.xedit +++| ZR X1,PRF2 IF FILE NOT THERE 06536 M01S06294.xedit +++| BX6 X1 06537 M01S06295.xedit +++| LX1 59-14D EXECUTE ONLY FLAG 06538 M01S06296.xedit +++| SX4 PRFJ * CANNOT EDIT EXECUTE ONLY FILES 06539 M01S06297.xedit +++| NG X1,PRF6 IF ABOVE 06540 M01S06298.xedit +++| READ E.IN 06541 M01S06299.xedit +++| MX6 1 06542 M01S06300.xedit +++| SA6 RC SET DAT READ 06543 M01S06301.xedit +++| RJ RDF READ INITIAL LINE 06544 M01S06302.xedit +++| PRF10 SA1 IFN MOVE FILE NAME 06545 M01S06303.xedit +++| BX7 X1 06546 M01S06304.xedit +++| SA7 IRFN 06547 M01S06305.xedit +++| SA7 ISFN 06548 M01S06306.xedit +++| SA7 INITZ SET INITIALIZATION COMPLETE
| Line S06307 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit1 |
Seq # *Modification Id* Act ----------------------------+ 06549 M02S06307.xedit1 ---|
| Line S06308 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit1 |
Seq # *Modification Id* Act ----------------------------+ 06550 M02S06308.xedit1 ---|* (PRF.)=*EQ PRF7* IF *DB* PRARMETER USED.
| Line S06309 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit1 |
Seq # *Modification Id* Act ----------------------------+ 06551 M02S06309.xedit1 ---|
| Line S06310 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit1 |
Seq # *Modification Id* Act ----------------------------+ 06552 M02S06310.xedit1 ---| PRF. SA1 JOPR 06553 M01S00001.xedit1 +++| PRF10.1 SA1 JOPR 06554 M01S00002.xedit1 +++|* EQ PRF11 (DB PARAMETER SPECIFIED) 06555 M01S06311.xedit +++| MX2 -12 06556 M01S06312.xedit +++| LX1 0-24 06557 M01S06313.xedit +++| BX1 -X2*X1 ISOLATE ORIGIN TYPE 06558 M01S06314.xedit +++| SX1 X1-TXOT 06559 M01S06315.xedit +++| NZ X1,PRF11 IF NOT TELEX ORIGIN 06560 M01S06316.xedit +++| DISTC ON,TLX 06561 M01S06317.xedit +++| 06562 M01S06318.xedit +++|* PROCESS *FR* PARAMETER. 06563 M01S06319.xedit +++| 06564 M01S06320.xedit +++| PRF11 SA1 PRFG 06565 M01S06321.xedit +++| ZR X1,NCM IF *FR* NOT USED 06566 M01S06322.xedit +++| SA1 E.LINE 06567 M01S06323.xedit +++| SB6 E.STR 06568 M01S06324.xedit +++| RJ UPL 06569 M01S06325.xedit +++| SA1 E.STR-1 06570 M01S06326.xedit +++| SB6 A1+1 06571 M01S06327.xedit +++| 06572 M01S06328.xedit +++|* LOCATE FIRST CHARACTER AFTER 2 CONSECUTIVE BLANKS. 06573 M01S06329.xedit +++| 06574 M01S06330.xedit +++| PRF12 SA1 A1+B1 06575 M01S06331.xedit +++| SB3 A1-B6 06576 M01S06332.xedit +++| NG X1,NCM IF END OF LINE REACHED, EXIT 06577 M01S06333.xedit +++| SX2 X1-1R 06578 M01S06334.xedit +++| ZR X2,PRF12 IF CHARACTER WAS A BLANK 06579 M01S06335.xedit +++| SB6 A1+B1 06580 M01S06336.xedit +++| LE B3,B1,PRF12 IF NOT AT LEAST 2 CONSECUTIVE BLANKS 06581 M01S06337.xedit +++| SB6 B6-B1 SET TO FIRST CHARACTER 06582 M01S06338.xedit +++| SB7 P.LINE 06583 M01S06339.xedit +++| RJ RTA PACK COMMAND LINE 06584 M01S06340.xedit +++| SA1 P.DEV SET COMMAND TO PREVIOUS COMMAND 06585 M01S06341.xedit +++| RJ STK STACK DEVICES AND EXIT TO NCM 06586 M01S06342.xedit +++| .J IFEQ DEBUG,1 IF DEBUG ON 06587 M01S06343.xedit +++| WRITEC OUTPUT,PRFK 06588 M01S06344.xedit +++| .J ENDIF 06589 M01S06345.xedit +++| EQ NCM EXIT, PROCESS COMMANDS 06590 M01S06346.xedit +++| 06591 M01S06347.xedit +++|* BATCH MODE - RETRY COUNT ABORT. 06592 M01S06348.xedit +++| 06593 M01S06349.xedit +++| PRF13 SB6 PRFI * BATCH MODE - RETRY COUNT EXCEEDED. 06594 M01S06350.xedit +++| EQ ABT ABORT XEDIT 06595 M01S06351.xedit +++| 06596 M01S06352.xedit +++| PRFA DATA 0LSCRB 06597 M01S06353.xedit +++| PRFB DATA C* FILE NOT XEDIT-ABLE.* 06598 M01S06354.xedit +++| IF DEF,CYBRNET,2 06599 M01S06355.xedit +++| PRFC DATA C* EMPTY FILE/ CREATION MODE ASSUMED.* 06600 M01S06356.xedit +++| SKIP 1 06601 M01S06357.xedit +++| PRFC DATA C* EMPTY OR FILE NOT FOUND.*
| Line S06358 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 06602 M02S06358.xedit20 ---| PRFE DATA C* UPDATE/CREATION MODE CONFLICT.* 06603 M01S00036.xedit20 +++| PRFE DATA C* LOOK/CREATION MODE CONFLICT.* 06604 M01S06359.xedit +++| PRFF CON -1 RETRY COUNT. STOP WHEN 0 (SET IN PRESET) 06605 M01S06360.xedit +++| PRFG DATA 0 .NE. 0 IF *FR* USED 06606 M01S06361.xedit +++| PRFH DATA 10HNAME EDIT 06607 M01S06362.xedit +++| VFD 24/4HFILE,12/0001B,24/ 06608 M01S06363.xedit +++| PRFI DATA C* BATCH ABORT - RETRY COUNT EXCEEDED.* 06609 M01S06364.xedit +++| PRFJ DATA C* CANNOT EDIT EXECUTE ONLY FILES.* 06610 M01S06365.xedit +++| PRFK DATA C+ *FR* COMMAND STACKING ERROR.+
| Line S06366 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06611 M02S06366.v23l617 ---| PRFL DATA C* INVALID CHARACTERS IN FILE NAME.* 06612 M01S00015.v23l617 +++| PRFL DATA C* INCORRECT CHARACTERS IN FILE NAME.* 06613 M01S06367.xedit +++| PRFM DATA C* TOO MANY CHARACTERS IN FILE NAME.* 06614 M01S06368.xedit +++| 06615 M01S06369.xedit +++| ERRPL *-D.STR-D.STRL-1 IF PRF OVERFLOWS SCRATCH ARRAY 06616 M01S06370.xedit +++| ORG * RESET ORIGIN 06617 M01S06371.xedit +++| QUAL * 06618 M01S06372.xedit +++| SPACE 4 06619 M01S06373.xedit +++|* XEDIT BUFFERS. 06620 M01S06374.xedit +++| 06621 M01S06375.xedit +++| USE BUFFERS FLUSH LITERALS 06622 M01S06376.xedit +++| 06623 M01S06377.xedit +++| BUFA EQU * OUTGOING EDIT FILE 06624 M01S06378.xedit +++| BUFB EQU BUFA+BUFAL INCOMING EDIT FILE 06625 M01S06379.xedit +++| BUFI EQU BUFB+BUFBL PRIMARY INPUT FILE 06626 M01S06380.xedit +++| BUFO EQU BUFI+BUFIL OUTPUT FILE 06627 M01S06381.xedit +++| MINFL EQU BUFO+BUFOL+1 MINIMUM FL FOR XEDIT 06628 M01S06382.xedit +++| BUFC EQU MINFL ALTERNATE INPUT FILE 06629 M01S06383.xedit +++| BUFD EQU BUFC+BUFCL COPY/READ FILE 06630 M01S06384.xedit +++| MAXFL EQU BUFD+BUFDL MAX FL FOR MAIN PROGRAM 06631 M01S06385.xedit +++| RFL= EQU MINFL+1 INITIAL FIELD LENGTH 06632 M01S06386.xedit +++| FWAOVL EQU MAXFL+2 MINIMUM OVERLAY FIELD LENGTH 06633 M01S06387.xedit +++| PRS SPACE 4,15 06634 M01S06388.xedit +++|** PRS - PRESET XEDIT AND BEGIN EXECUTION. 06635 M01S06389.xedit +++|* 06636 M01S06390.xedit +++|* ENTRY NONE. 06637 M01S06391.xedit +++|* 06638 M01S06392.xedit +++|* EXIT TO *PRF*. 06639 M01S06393.xedit +++|* 06640 M01S06394.xedit +++|* USES A - ALL. 06641 M01S06395.xedit +++|* X - ALL. 06642 M01S06396.xedit +++|* B - 1, 2, 3, 4, 5, 6. 06643 M01S06397.xedit +++|* 06644 M01S06398.xedit +++|* CALLS ARG, ICH, UPL, VIS. 06645 M01S06399.xedit +++|* 06646 M01S06400.xedit +++|* MACROS ABORT, CSET, GETFNT, GETJA, MEMORY, MESSAGE, 06647 M01S06401.xedit +++|* MOVE, OPEN, TSTATUS, WRITE, WRITEC. 06648 M01S06402.xedit +++| 06649 M01S06403.xedit +++| 06650 M01S06404.xedit +++| XEDIT SB1 1 ENTRY 06651 M01S06405.xedit +++| QUAL PRESET 06652 M01S06406.xedit +++| IF DEF,TIMING,1 06653 M01S06407.xedit +++| GETJA TIMING 06654 M01S06408.xedit +++| MEMORY CM,,RECALL,RFL= 06655 M01S00023.xedit12 +++| SA1 PRSS GET TOOLNAME FOR *FNL* CALL 06656 M01S00024.xedit12 +++| RJ INT STORE INITIAL *CUA* VARIABLES 06657 M01S00025.xedit12 +++| 06658 M01S06409.xedit +++| BX6 X6-X6 CLEAR BUFFER CONTROL WORD 06659 M01S06410.xedit +++| SA6 PRSI 06660 M01S06411.xedit +++| SA1 B1+B1 06661 M01S06412.xedit +++| MX0 42 06662 M01S06413.xedit +++| BX2 X0*X1 06663 M01S06414.xedit +++| NZ X2,PRS2 IF FILE NAME PRESENT 06664 M01S06415.xedit +++| PRS1 GETFNT PRSA 06665 M01S06416.xedit +++| SA1 PRSI+1 GET FILE NAME 06666 M01S06417.xedit +++| BX2 X0*X1 06667 M01S06418.xedit +++| NZ X2,PRS2 IF FILE FOUND 06668 M01S06419.xedit +++| SA3 PRSI 06669 M01S06420.xedit +++| NG X3,PRS1 IF FILE NOT FOUND 06670 M01S06421.xedit +++| SA2 PRSB =0LTAPE1 06671 M01S06422.xedit +++| PRS2 SX7 B1 06672 M01S06423.xedit +++| SA3 ACTR 06673 M01S06424.xedit +++| BX7 X2 06674 M01S06425.xedit +++| SB4 X3-1 SET NUMBER OF PARAMETERS 06675 M01S06426.xedit +++| SA7 IFN PUT INCOMING NAME 06676 M01S06427.xedit +++| LE B4,PRS4 IF 1 PARAMETER OR LESS 06677 M01S06428.xedit +++| SA4 3 06678 M01S06429.xedit +++| SB5 PRSC 06679 M01S06430.xedit +++| RJ ARG PROCESS ARGUMENT TABLE 06680 M01S06431.xedit +++| RJ VIS VOID INSTRUCTION STACK 06681 M01S06432.xedit +++| ZR X1,PRS4 IF NO ERRORS 06682 M01S06433.xedit +++| SA0 PRSD C* ERROR IN XEDIT ARGUMENTS.* 06683 M01S06434.xedit +++| 06684 M01S06435.xedit +++|* PRESET ERROR ROUTINE - (A0) = ADDRESS OF MESSAGE. 06685 M01S06436.xedit +++|
| Line S06437 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit19 |
Seq # *Modification Id* Act ----------------------------+ 06686 M02S06437.xedit19 ---| PRS3 MESSAGE A0 ISSUE MESSAGE TO DAYFILE
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
M02 (Updated by) | xedit19 |
Seq # *Modification Id* Act ----------------------------+ 06687 M02S00026.xedit19 ---| RJ FNL SEND DAYFILE MESSAGE 06688 M01S00001.xedit19 +++| PRS3 RJ FNL ISSUE ACCOUNTING MESSAGE 06689 M01S00002.xedit19 +++| MESSAGE A0 ISSUE MESSAGE TO DAYFILE 06690 M01S00027.xedit12 +++| 06691 M01S06438.xedit +++| ABORT 06692 M01S06439.xedit +++| 06693 M01S06440.xedit +++|* IF *NH* PARAMETER, (PRS4) = EQ PRS5. 06694 M01S06441.xedit +++|* 06695 M01S06442.xedit +++| PRS4 WRITEC OUTPUT,PRSN XEDIT HEADER MESSAGE 06696 M01S06443.xedit +++| 06697 M01S06444.xedit +++|* CHECK FOR FILE NAME CONFLICTS 06698 M01S06445.xedit +++| 06699 M01S06446.xedit +++| PRS5 SA0 PRSF * FILE NAME CONFLICT.* 06700 M01S06447.xedit +++| SB2 FFET-7 06701 M01S06448.xedit +++| SB3 LFET-7 06702 M01S06449.xedit +++| PRS6 SB2 B2+7 STEP TO NEXT OUTSIDE FET ADDRESS 06703 M01S06450.xedit +++| GE B2,B3,PRS8 IF LOOPED THROUGH ALL FILES 06704 M01S06451.xedit +++| SA1 B2+ 06705 M01S06452.xedit +++| SB4 B2+7 06706 M01S06453.xedit +++| PRS7 SA2 B4 GET INNER LOOP FET NAME 06707 M01S06454.xedit +++| BX3 X1-X2 06708 M01S06455.xedit +++| SB4 B4+7 06709 M01S06456.xedit +++| ZR X2,PRS7.1 IF NO FILE THERE (L=0) 06710 M01S06457.xedit +++| ZR X3,PRS3 IF FILE NAMES COMPARE (ERROR) 06711 M01S06458.xedit +++| PRS7.1 LE B4,B3,PRS7 IF NOT FINISHED WITH INNER LOOP FET 06712 M01S06459.xedit +++| EQ PRS6 CHECK NEXT FILE NAME FROM FET-S 06713 M01S06460.xedit +++| 06714 M01S06461.xedit +++|* PRESET INPUT AND OUTPUT FETS. 06715 M01S06462.xedit +++|
| Line S06463 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit5 |
Seq # *Modification Id* Act ----------------------------+ 06716 M02S06463.xedit5 ---| PRS8 SA1 PRSE OUTPUT POINTER
| Line S06464 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit5 |
Seq # *Modification Id* Act ----------------------------+ 06717 M02S06464.xedit5 ---| BX6 X1 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 M01S06465.xedit +++| MX7 0 06724 M01S06466.xedit +++| SA6 B1+B1 06725 M01S06467.xedit +++| SA7 A6+B1 06726 M01S06468.xedit +++| OPEN INPUT,READNR,RECALL 06727 M01S06469.xedit +++| SA1 OUTPUT 06728 M01S06470.xedit +++| ZR X1,PRS9 IF NO NAME PRESENT 06729 M01S06471.xedit +++| OPEN OUTPUT,ALTERNR,RECALL 06730 M01S06472.xedit +++| WRITE OUTPUT,* HANDLE OPEN BUG 06731 M01S06473.xedit +++| 06732 M01S06474.xedit +++|* DETERMINE ASCII/CHARACTER SET/ORIGIN CODES. 06733 M01S06475.xedit +++| 06734 M01S06476.xedit +++| PRS9 GETJO PRSR 06735 M01S06477.xedit +++| SA2 BATCH 06736 M01S06478.xedit +++| SA1 PRSR 06737 M01S06479.xedit +++| SX6 X1-TXOT 06738 M01S06480.xedit +++| BX6 X6+X2 0, IF *TXOT*, ELSE BATCH 06739 M01S06481.xedit +++| SA6 A2 06740 M01S06482.xedit +++| SA1 CSMR CHARACTER SET MODE 06741 M01S06483.xedit +++| SB2 18D 64 CHARACTER SET OFFSET 06742 M01S06484.xedit +++| NG X1,PRS10 IF 64 CHARACTER SET 06743 M01S06485.xedit +++| SB2 B0 63 CHARACTER SET OFFSET 06744 M01S06486.xedit +++| PRS10 SA5 AS 06745 M01S06487.xedit +++| ZR X6,PRS11 IF TXOT AND *B* PARAMETER NOT USED 06746 M01S06488.xedit +++| BX6 X6-X6 SET NO ASCII 06747 M01S06489.xedit +++| ZR X5,PRS14 IF NO ASCII DESIRED 06748 M01S06490.xedit +++| MX6 1 SET ASCII FLAG FOR *PRS14* 06749 M01S06491.xedit +++| SB2 36D SET 64/ASCII 06750 M01S06492.xedit +++| EQ PRS14 PRESET CHARACTERS 06751 M01S06493.xedit +++| 06752 M01S06494.xedit +++| PRS11 TSTATUS TSTATUS 06753 M01S06495.xedit +++| SA1 TSTATUS 06754 M01S06496.xedit +++| MX3 -6 06755 M01S06497.xedit +++| AX1 3*6 06756 M01S06498.xedit +++| PRS11.1 BX6 -X3*X1 DETERMINE IF TERM TYPE HAS A *D* 06757 M01S06499.xedit +++| LX1 -6 06758 M01S06500.xedit +++| ZR X6,PRS11.1 IF NOT CHARACTER 06759 M01S06501.xedit +++|+ SX4 X6-1RD 06760 M01S06502.xedit +++| NZ X4,PRS12 IF NOT ...D TERMINAL TYPE 06761 M01S06503.xedit +++| SB2 B0 SET OLD CHARACTER SET 06762 M01S06504.xedit +++| SA6 A5 TURN ON ASCII FLAG (NON ZERO) 06763 M01S06505.xedit +++| EQ PRS14 PRESET CHARACTERS 06764 M01S06506.xedit +++| 06765 M01S06507.xedit +++| PRS12 SA1 A1+B1 06766 M01S06508.xedit +++| SX2 4 06767 M01S06509.xedit +++| BX6 X2*X1 06768 M01S06510.xedit +++| NZ X6,PRS13 IF ASCII FLAG SET 06769 M01S06511.xedit +++| ZR X5,PRS14 IF ASCII NOT REQUIRED 06770 M01S00028.xedit12 +++| CSET ASCII 06771 M01S06512.xedit +++| SX6 3RASC SET SPECIAL ASCII FLAG
| Line S06513 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 06772 M02S06513.xedit12 ---| CSET ASCII 06773 M01S06514.xedit +++| 06774 M01S06515.xedit +++| PRS13 SA6 A5 SET ASCII FLAG 06775 M01S06516.xedit +++| SB2 36 SET 64/ASCII 06776 M01S06517.xedit +++| 06777 M01S06518.xedit +++|* PRESET CHARACTERS DEPENDENT ON CHARACTER SET. 06778 M01S06519.xedit +++| 06779 M01S06520.xedit +++| PRS14 SX7 B1+B1 06780 M01S06521.xedit +++| SA1 CHARSET 06781 M01S06522.xedit +++| ZR X6,PRS14.1 IF ASCII NOT ON 06782 M01S06523.xedit +++| SA7 UPLA SET UNPACKS TO ASCII MODE 06783 M01S06524.xedit +++| PRS14.1 SX6 B2 SAVE SHIFT VALUE 06784 M01S06525.xedit +++| MX7 0 06785 M01S06526.xedit +++| SA6 CHARSFT 06786 M01S06527.xedit +++| SA7 CCDR+8 PLACE END OF LINE 06787 M01S06528.xedit +++| RJ ICH INITIALIZE CHARACTERS 06788 M01S06529.xedit +++|
| Line S06530 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06789 M02S06530.v23l617 ---|* MOVE CONTROL CARD IMAGE TO *C.STR* AND ANALYZE. 06790 M01S00016.v23l617 +++|* MOVE COMMAND IMAGE TO *C.STR* AND ANALYZE. 06791 M01S06531.xedit +++| 06792 M01S06532.xedit +++| SA1 CCDR 06793 M01S06533.xedit +++| SB6 C.STR SET STRING DESTINATION 06794 M01S06534.xedit +++| RJ UPL
| Line S06535 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06795 M02S06535.v23l617 ---| MOVE 9,CCDR,I.LINE MOVE CONTROL CARD IMAGE 06796 M01S00017.v23l617 +++| MOVE 9,CCDR,I.LINE MOVE COMMAND IMAGE 06797 M01S06536.xedit +++| SA1 C.STR-1 06798 M01S06537.xedit +++| MX7 1 06799 M01S06538.xedit +++| SB2 B1 SET CHARACTER POINTER 06800 M01S06539.xedit +++| SA7 C.STR SET DEFAULT END OF LINE
| Line S06540 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06801 M02S06540.v23l617 ---| SA7 C.STR+80 ALLOW ONLY 80 CHAR ON CONTROL CARD 06802 M01S00018.v23l617 +++| SA7 C.STR+80 ALLOW ONLY 80 CHAR ON COMMAND 06803 M01S06541.xedit +++| 06804 M01S06542.xedit +++| PRS15 SB2 B2+B1 INCREMENT POINTER 06805 M01S06543.xedit +++| SA2 A1+B2 06806 M01S06544.xedit +++| NG X2,PRS20 IF END OF LINE 06807 M01S06545.xedit +++| SX3 X2-1R. 06808 M01S06546.xedit +++| ZR X3,PRS16 IF . 06809 M01S06547.xedit +++| SX3 X2-1R) 06810 M01S06548.xedit +++| NZ X3,PRS15 IF NOT ) 06811 M01S06549.xedit +++| PRS16 SA2 A2+B1 GET DELIMITER CHARACTER 06812 M01S06550.xedit +++| SB2 B2+2 SET POINTER TO CHARACTER AFTER DELIMITER 06813 M01S06551.xedit +++| BX4 X2 06814 M01S06552.xedit +++| NG X2,PRS20 IF END OF LINE 06815 M01S06553.xedit +++| SX3 X2-1R
| Line S06554 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06816 M02S06554.v23l617 ---| ZR X3,PRS20 IF BLANK (ASSUME IGNORE REST OF CARD) 06817 M01S00019.v23l617 +++| ZR X3,PRS20 IF BLANK (ASSUME IGNORE REST OF COMMAND) 06818 M01S06555.xedit +++| SX6 B1 06819 M01S06556.xedit +++| AX4 6 06820 M01S06557.xedit +++| .CYB IF DEF,CYBRNET 06821 M01S06558.xedit +++| + SX7 1R; UP ARROW INVALID DELIMITER CHARACTER 06822 M01S06559.xedit +++| ZR X4,PRS16.1 IF CHARACTER NOT ASCII 06823 M01S06560.xedit +++| SX7 7402B SET FOR ASCII UP ARROW 06824 M01S06561.xedit +++| SX6 7601B SET LOWER CASE A 06825 M01S06562.xedit +++| .CYB ELSE 06826 M01S06563.xedit +++| ZR X4,PRS16.1 IF CHARACTER IS NOT ASCII 06827 M01S06564.xedit +++| SX6 7601B SET LOWER CASE A 06828 M01S06565.xedit +++| .CYB ENDIF 06829 M01S06566.xedit +++| PRS16.1 IX3 X2-X6 NEGATIVE IF NOT ALPHABETIC 06830 M01S06567.xedit +++| SX6 X6+26D 06831 M01S06568.xedit +++| IX4 X2-X6 POSITIVE IF NOT ALPHABETIC 06832 M01S06569.xedit +++| BX3 -X3*X4 NEGATIVE IF DELIMITER IS ALPHABETIC 06833 M01S06570.xedit +++| .CYB IF DEF,CYBRNET 06834 M01S06571.xedit +++| NG X3,PRS17 IF DELIMITER IS ALPHA USE ; 06835 M01S06572.xedit +++| IX6 X7-X2 UP ARROW CHECK 06836 M01S06573.xedit +++| ZR X6,PRS17 IF YES THEN USE ; 06837 M01S06574.xedit +++| SX7 X2-1R/-1 POSITIVE IF DELIMITER ABOVE / 06838 M01S06575.xedit +++| SX6 X2-1R0 NEGATIVE IF BELOW 0 06839 M01S06576.xedit +++| BX6 X7-X6 POSITIVE IFF BOTH SIGNS SAME 06840 M01S06577.xedit +++| PL X6,PRS18 IF NOT +,-,*, OR / USE DELIMITER 06841 M01S06578.xedit +++| PRS17 SX2 1R; USE SEMI-COLON 06842 M01S06579.xedit +++| SB2 B2-1 MOVE POINTER BACK 06843 M01S06580.xedit +++| PRS18 PX6 B2,X2 FORM C.STR WORD 06844 M01S06581.xedit +++| .CYB ELSE
| Line S06582 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06845 M02S06582.v23l617 ---| NG X3,PRS19 IF ILLEGAL DELIMITER CHARACTER 06846 M01S00020.v23l617 +++| NG X3,PRS19 IF INCORRECT DELIMITER CHARACTER 06847 M01S06583.xedit +++| PX6 B2,X2 FORM C.STR WORD 06848 M01S06584.xedit +++| .CYB ENDIF 06849 M01S06585.xedit +++| SA6 A1 PUT C.STR-1 06850 M01S06586.xedit +++| MX2 -18 06851 M01S06587.xedit +++| ECHO 4,P=(I.DEV,S.DEV) 06852 M01S06588.xedit +++| SA1 P+1 SET DELIMITERS IN OTHER DEVICES 06853 M01S06589.xedit +++| BX1 X2*X1 06854 M01S06590.xedit +++| IX7 X1+X6 06855 M01S06591.xedit +++| SA7 A1 06856 M01S06592.xedit +++| EQ PRS20 CHECK INPUT AND OUTPUT FILES 06857 M01S06593.xedit +++|
| Line S06594 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06858 M02S06594.v23l617 ---|* ILLEGAL DELIMITER CHARACTER. 06859 M01S00021.v23l617 +++|* INCORRECT DELIMITER CHARACTER. 06860 M01S06595.xedit +++| 06861 M01S06596.xedit +++| PRS19 SA1 BATCH
| Line S06597 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06862 M02S06597.v23l617 ---| SA0 PRSG * ILLEGAL DELIMITER CHARACTER.* 06863 M01S00022.v23l617 +++| SA0 PRSG * INCORRECT DELIMITER CHARACTER.* 06864 M01S06598.xedit +++| NZ X1,PRS3 IF BATCH MODE 06865 M01S06599.xedit +++| WRITEC OUTPUT,A0 ISSUE MESSAGE TO TERMINAL 06866 M01S06600.xedit +++| PRS20 SA1 INPUT+1 CHECK INPUT/OUTPUT = *TT* 06867 M01S06601.xedit +++| SA2 OUTPUT+1 06868 M01S06602.xedit +++| MX6 1 06869 M01S06603.xedit +++| BX1 -X6*X1 06870 M01S06604.xedit +++| BX2 -X6*X2 06871 M01S06605.xedit +++| AX1 48 06872 M01S06606.xedit +++| AX2 48 06873 M01S06607.xedit +++| SX7 X1-2RTT 06874 M01S06608.xedit +++| SX2 X2-2RTT 06875 M01S06609.xedit +++| IX2 X2+X7 06876 M01S06610.xedit +++| MX6 0 06877 M01S06611.xedit +++| ZR X2,PRS21 IF BOTH ARE *TT* 06878 M01S06612.xedit +++| SA6 PROMPT CLEAR ISSUING OF SPECIAL PROMPT 06879 M01S06613.xedit +++| SA7 TTYIN SET STATUS OF INPUT FET 06880 M01S06614.xedit +++| MOVE 2,PRSM,PRFH CHANGE *NAME EDIT FILE* MESSAGE 06881 M01S06615.xedit +++| SX7 B1 IF EITHER NOT *TT*, ALLOW ONE RETRY 06882 M01S06616.xedit +++| SA7 PRFF 06883 M01S06617.xedit +++| PRS21 SA1 BATCH 06884 M01S06618.xedit +++| ZR X1,PRS22 IF TELEX ORIGIN 06885 M01S06619.xedit +++| MOVE PRSHL,PRSH,MESSAGE+1 MOVE BATCH ERROR MESSAGES 06886 M01S06620.xedit +++| MOVE 2,PRSO,ETLA CHANGE BATCH ECHO STATUS 06887 M01S06621.xedit +++| MOVE 1,PRSP,MODA CHANGE BATCH MODIFY SHIFT 06888 M01S06622.xedit +++| PRS22 EQ PRF PRESET FILE 06889 M01S06623.xedit +++| 06890 M01S06624.xedit +++| PRSA VFD 38/0LDUMMY,1/1,3/,18/1 DUMMY GETFNT FET 06891 M01S06625.xedit +++| VFD 36/,6/10B,18/PRSI 06892 M01S06626.xedit +++| BSS 6 06893 M01S06627.xedit +++| VFD 12/1+2*1+1,6/,18/1S"PTFT",2/,1/1,1/,1/,1/,18/PRSI 06894 M01S06628.xedit +++| BSS 4 06895 M01S06629.xedit +++| PRSB DATA 0LTAPE1 06896 M01S06630.xedit +++| PRSC BSS 0 ARGUMENT TABLE 06897 M01S06631.xedit +++| AS ARG -ACTR,AS 06898 M01S06632.xedit +++| B ARG -PRSR,BATCH 06899 M01S06633.xedit +++| C ARG -PRSJ,PRF
| Line S06634 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit1 |
Seq # *Modification Id* Act ----------------------------+ 06900 M02S06634.xedit1 ---| DB ARG -PRSC,PRF. 06901 M01S00003.xedit1 +++| DB ARG -PRSL,PRF10.1 06902 M01S06635.xedit +++| FR ARG -ACTR,PRFG 06903 M01S06636.xedit +++| I ARG INPUT,INPUT 06904 M01S06637.xedit +++| L ARG OUTPUT,OUTPUT 06905 M01S00037.xedit20 +++| LK ARG -PRSZ,UPDATE 06906 M01S06638.xedit +++| NH ARG -PRSQ,PRS4 06907 M01S06639.xedit +++| P ARG -PRSK,PRF 06908 M01S06640.xedit +++| ARG 06909 M01S06641.xedit +++| PRSD DATA C* ERROR IN XEDIT ARGUMENTS.*
| Line S06642 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit5 |
Seq # *Modification Id* Act ----------------------------+ 06910 M02S06642.xedit5 ---| PRSE CON 6LOUTPUT+OUTPUT 06911 M01S06643.xedit +++| PRSF DATA C* FILE NAME CONFLICT.*
| Line S06644 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06912 M02S06644.v23l617 ---| PRSG DATA C* ILLEGAL DELIMITER CHARACTER.* 06913 M01S00023.v23l617 +++| PRSG DATA C* INCORRECT DELIMITER CHARACTER.* 06914 M01S06645.xedit +++| PRSH BSS 0 BATCH ERROR MESSAGE TABLE 06915 M01S06646.xedit +++| ERRPRS HERE 06916 M01S06647.xedit +++| PRSHL EQU *-PRSH 06917 M01S06648.xedit +++| PRSI BSS 1+2*1+1 06918 M01S06649.xedit +++| PRSJ EQ PRF3 *C* PARAMETER 06919 M01S06650.xedit +++| PRSK EQ PRF4 *P* PARAMETER 06920 M01S06651.xedit +++| PRSL EQ PRF11 *DB* PARAMETER 06921 M01S06652.xedit +++| PRSM DATA C* NAME EDIT FILE* 06922 M01S06653.xedit +++| PRSN DATA C* "VERSION"* 06923 M01S06654.xedit +++| PRSO BSS 0 06924 M01S06655.xedit +++| ETL HEREL ECHO HEADER WORDS 06925 M01S06656.xedit +++| PRSP BSS 0 06926 M01S06657.xedit +++| MOD HEREL ECHO MODIFY WORD 06927 M01S06658.xedit +++| PRSQ EQ PRS5 *NH* PARAMETER 06928 M01S06659.xedit +++| PRSR DATA 100B PSEUDO BATCH 06929 M01S00038.xedit20 +++| PRSZ DATA 0 SET LOOK MODE 06930 M01S00029.xedit12 +++| PRSS VFD 60/PRST ADDRESS OF TOOLNAME 06931 M01S00030.xedit12 +++| PRST VFD 60/0HXEDIT TOOLNAME FOR *CUA* MESSAGE 06932 M01S06660.xedit +++| 06933 M01S06661.xedit +++| USE SETCHAR 06934 M01S06662.xedit +++| DATA 0 SET END MARKER 06935 M01S06663.xedit +++| USE * 06936 M01S06664.xedit +++| SPACE 4 06937 M01S06665.xedit +++|* COMMON DECKS NEEDED IN PRESET. 06938 M01S06666.xedit +++| 06939 M01S06667.xedit +++|*CALL COMCARG 06940 M01S06668.xedit +++|*CALL COMCDXB 06941 M01S06669.xedit +++|*CALL COMCMVE 06942 M01S06670.xedit +++| QUAL * 06943 M01S06671.xedit +++|*CALL COMCSFN 06944 M01S06672.xedit +++|*CALL COMCSTF 06945 M01S06673.xedit +++| SPACE 4 06946 M01S06674.xedit +++| .MH2 EQU MH2 06947 M01S06675.xedit +++| OVLDEF 1,(USER INFORMATION ROUTINES) 06948 M01S06676.xedit +++| SPACE 4 06949 M01S06677.xedit +++|** DEFINE ALTERNATE CHARACTER REPLACEMENTS. 06950 M01S06678.xedit +++|*T 24/AS, 18/64 C, 18/63 C
Figure
06951 M01S06679.xedit +++|* 06952 M01S06680.xedit +++|* AS = ASCII 6/12 CHARACTER SET. 06953 M01S06681.xedit +++|* 64 C = 64 CHARACTER SET. 06954 M01S06682.xedit +++|* 63 C = 63 CHARACTER SET. 06955 M01S06683.xedit +++| 06956 M01S06684.xedit +++| AM. VFD 24/67B,18/67B,18/67B AMPERSAND 06957 M01S06685.xedit +++| FN. VFD 24/2RTH,18/2RTH,18/2RTH END OF HELP FILE NAME 06958 M01S06686.xedit +++| QM. VFD 24/71B,18/71B,18/71B QUESTION MARK 06959 M01S06687.xedit +++| SH. VFD 24/60B,18/60B,18/60B SHARP 06960 M01S06688.xedit +++| UA. VFD 24/7402B,18/76B,18/76B UP ARROW 06961 M01S06689.xedit +++| SPACE 4 06962 M01S06690.xedit +++| MH2 SET .MH2 06963 M01S06691.xedit +++| TITLE MACROS LOCAL TO OVERLAY. 06964 M01S06692.xedit +++| ENDHELP SPACE 4,10 06965 M01S06693.xedit +++|** ENDHELP - CLOSE EXPLAIN ENTRY. 06966 M01S06694.xedit +++|* 06967 M01S06695.xedit +++|* 06968 M01S06696.xedit +++|* ENDHELP 06969 M01S06697.xedit +++|* 06970 M01S06698.xedit +++|* ENTRY (A) = A MICRO CONTAINING THE NAME OF THE 06971 M01S06699.xedit +++|* EXPLAIN ENTRY. 06972 M01S06700.xedit +++|* 06973 M01S06701.xedit +++|* EXIT A SYMBOL IS EQUATED TO THE LENGTH OF THE MESSAGE. 06974 M01S06702.xedit +++|* 06975 M01S06703.xedit +++|* NOTES THIS MACRO IS TO BE USED END AN EXPLAIN ENTRY. 06976 M01S06704.xedit +++| 06977 M01S06705.xedit +++| PURGMAC ENDHELP 06978 M01S06706.xedit +++| 06979 M01S06707.xedit +++| ENDHELP MACRO 06980 M01S06708.xedit +++| "A"_L EQU *-"A"_A 06981 M01S06709.xedit +++| ENDM ENDHELP 06982 M01S06710.xedit +++| EXPP SPACE 4,15 06983 M01S06711.xedit +++|** EXPP - DEFINE PRIMARY EXPLAIN ENTRY. 06984 M01S06712.xedit +++|* 06985 M01S06713.xedit +++|* 06986 M01S06714.xedit +++|* EXPP NAME 06987 M01S06715.xedit +++|* 06988 M01S06716.xedit +++|* ENTRY *NAME* = NAME OF ERROR MESSAGE. 06989 M01S06717.xedit +++|* 06990 M01S06718.xedit +++|* NOTES MACRO INITIALIZES THE DEFINITION FOR THE MESSAGE 06991 M01S06719.xedit +++|* TEXT. THE *ENDHELP* MACRO IS USED TO CLOSE THE 06992 M01S06720.xedit +++|* DEFINITION. THE TABLE FORMATS ARE PLACED IN AN 06993 M01S06721.xedit +++|* UNLABELED REMOTE BLOCK. 06994 M01S06722.xedit +++| 06995 M01S06723.xedit +++| PURGMAC EXPP 06996 M01S06724.xedit +++| 06997 M01S06725.xedit +++| EXPP MACRO NAME 06998 M01S06726.xedit +++| NAME_A BSS 0 06999 M01S06727.xedit +++| A MICRO 1,, NAME 07000 M01S06728.xedit +++| RMT 07001 M01S06729.xedit +++| ORG TMSG+NAME-1 07002 M01S06730.xedit +++| VFD 12/2000B+NAME_L 07003 M01S06731.xedit +++| IF DEF,NAME_S,1 07004 M01S06732.xedit +++| VFD 30/NAME_S 07005 M01S06733.xedit +++| VFD *P/NAME_A 07006 M01S06734.xedit +++| ORG * 07007 M01S06735.xedit +++| RMT 07008 M01S06736.xedit +++| ENDM EXPP 07009 M01S06737.xedit +++| EXPS SPACE 4,10 07010 M01S06738.xedit +++|** EXPS - DEFINE SECONDARY EXPLAIN ENTRY TEXT. 07011 M01S06739.xedit +++|* 07012 M01S06740.xedit +++|* 07013 M01S06741.xedit +++|* EXPS NAME,LEVEL 07014 M01S06742.xedit +++|* 07015 M01S06743.xedit +++|* ENTRY *NAME* = NAME OF ERROR MESSAGE. 07016 M01S06744.xedit +++|* *LEVEL* = LEVEL FOR MESSAGE (1-31). 07017 M01S06745.xedit +++|* 07018 M01S06746.xedit +++|* NOTES MACRO SERVES SAME PURPOSE AS *EXPP*. 07019 M01S06747.xedit +++| 07020 M01S06748.xedit +++| PURGMAC EXPS 07021 M01S06749.xedit +++| 07022 M01S06750.xedit +++| EXPS MACRO NAME,LEVEL 07023 M01S06751.xedit +++| IF -DEF,NAME_S,1 07024 M01S06752.xedit +++| NAME_S BSS 32D 07025 M01S06753.xedit +++| NAME_LEVEL_A BSS 0 07026 M01S06754.xedit +++| A MICRO 1,, NAME_LEVEL 07027 M01S06755.xedit +++| RMT 07028 M01S06756.xedit +++| ORG NAME_S+LEVEL_B 07029 M01S06757.xedit +++| VFD 12/2000B+NAME_LEVEL_L,*P/NAME_LEVEL_A 07030 M01S06758.xedit +++| ORG * 07031 M01S06759.xedit +++| RMT 07032 M01S06760.xedit +++| ENDM EXPS 07033 M01S06761.xedit +++| EXPLAIN SPACE 4,20 07034 M01S06762.xedit +++|** EXP - PROCESS EXPLAIN COMMAND. 07035 M01S06763.xedit +++|* 07036 M01S06764.xedit +++|* ENTRY (EXPLAIN) = EXPLAIN ERROR MESSAGE POINTERS. 07037 M01S06765.xedit +++|* 07038 M01S06766.xedit +++|* EXIT TO *NCM*. 07039 M01S06767.xedit +++|* 07040 M01S06768.xedit +++|* USES A - 0, 1, 4, 6. 07041 M01S06769.xedit +++|* X - 0, 1, 2, 4, 5, 6, 7. 07042 M01S06770.xedit +++|* B - 2, 3, 7. 07043 M01S06771.xedit +++|* 07044 M01S06772.xedit +++|* MACROS WRITEC, WRITEO, WRITEW. 07045 M01S06773.xedit +++|* 07046 M01S06774.xedit +++|* NOTES EXPLAIN ISSUES A MORE DETAILED STATEMENT CONCERNING 07047 M01S06775.xedit +++|* THE LAST 4 XEDIT MESSAGES. EACH TIME THE EXPLAIN 07048 M01S06776.xedit +++|* COMMAND IS USED, XEDIT WILL GIVE THE LAST ENTRY, AND 07049 M01S06777.xedit +++|* REMOVE IT FROM THE STACK (THUS THE NEXT EXPLAIN WILL 07050 M01S06778.xedit +++|* ISSUE THE ENTRY FOR THE PREVIOUS MESSAGE.) THIS 07051 M01S06779.xedit +++|* COMMAND WILL WORK ONLY FOR THE LAST NON-EXPLAIN 07052 M01S06780.xedit +++|* COMMAND. 07053 M01S06781.xedit +++| 07054 M01S06782.xedit +++| 07055 M01S06783.xedit +++| EXP SA1 EXPLAIN ENTRY 07056 M01S06784.xedit +++| LX1 12 POSITION LAST ENTRY 07057 M01S06785.xedit +++| UX1 B7,X1 (B7) = EXPLAIN ENTRY 07058 M01S06786.xedit +++| MX7 -24 07059 M01S06787.xedit +++| LX1 12 07060 M01S06788.xedit +++| BX6 X7*X1 REMOVE THIS EXPLAIN ENTRY 07061 M01S06789.xedit +++| SA6 A1 REPLACE STACK 07062 M01S06790.xedit +++| LE B7,NCM IF NO ENTRY ON STACK, EXIT 07063 M01S06791.xedit +++| SX0 B7 ........PS/.........P 07064 M01S06792.xedit +++| LX0 -6 S........P/P......... 07065 M01S06793.xedit +++| SX2 X0 = PRIMARY IF THERE IS A SECONDARY 07066 M01S06794.xedit +++| NZ X2,EXP0 IF THERE IS A SECONDARY 07067 M01S06795.xedit +++| SX0 B7 /.........P 07068 M01S06796.xedit +++| EXP0 BX2 X7*X0 S........./.......... 07069 M01S06797.xedit +++| LX2 6 .........S/.......... 07070 M01S06798.xedit +++| SA1 TMSG-1+X0 GET PRIMARY MESSAGE INDEX 07071 M01S06799.xedit +++| ZR X1,EXP2 IF NO ENTRY FOR THIS ERROR 07072 M01S06800.xedit +++| SA0 X1 SET MESSAGE ADDRESS 07073 M01S06801.xedit +++| UX3,B2 X1 GET MESSAGE LENGTH 07074 M01S06802.xedit +++| ZR X2,EXP1 IF NO SUB-INDEX 07075 M01S06803.xedit +++| AX1 18 07076 M01S06804.xedit +++| ZR X1,EXP1 IF NO SUB-TABLE 07077 M01S06805.xedit +++| SB3 X1 07078 M01S06806.xedit +++| SA1 X2+B3 GET SUB-INDEX MESSAGE TABLE ENTRY 07079 M01S06807.xedit +++| ZR X1,EXP1 IF NO ENTRY 07080 M01S06808.xedit +++| UX3 B2,X1 SET LENGTH 07081 M01S06809.xedit +++| SA0 X1 SET ADDRESS 07082 M01S06810.xedit +++| EXP1 SX5 B2 SAVE LENGTH 07083 M01S06811.xedit +++| MX6 0 07084 M01S06812.xedit +++| WRITEO OUTPUT ISSUES LINE FEED
| Line S06813 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07085 M02S06813.xedit23 ---| WRITEC X2,EXPA * EXPLAINATION OF- 07086 M01S00002.xedit23 +++| WRITEC X2,EXPA * EXPLANATION OF- 07087 M01S06814.xedit +++| SA4 MESSAGE+X0 07088 M01S06815.xedit +++| WRITEC X2,X4 ECHO OFFENDING ERROR MESSAGE
| Line S06816 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07089 M02S06816.xedit23 ---| WRITEW X2,A0,X5 ISSUE EXPLAINATION 07090 M01S00003.xedit23 +++| WRITEW X2,A0,X5 ISSUE EXPLANATION 07091 M01S06817.xedit +++| EQ NCM EXIT 07092 M01S06818.xedit +++| 07093 M01S06819.xedit +++|* NO EXPLAIN ENTRY FOUND. 07094 M01S06820.xedit +++| 07095 M01S06821.xedit +++| EXP2 WRITEC OUTPUT,EXPB 07096 M01S06822.xedit +++| SA4 MESSAGE+X0 07097 M01S06823.xedit +++| WRITEC X2,X4 07098 M01S06824.xedit +++| EQ NCM EXIT 07099 M01S06825.xedit +++|
| Line S06826 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07100 M02S06826.xedit23 ---| EXPA DATA C* EXPLAINATION OF-* 07101 M01S00004.xedit23 +++| EXPA DATA C* EXPLANATION OF-* 07102 M01S06827.xedit +++| EXPB DATA C* NO ENTRY FOUND FOR* 07103 M01S06828.xedit +++| 07104 M01S06829.xedit +++| TMSG BSSZ 40B 07105 M01S06830.xedit +++| SPACE 4 07106 M01S06831.xedit +++|** EXPLAIN ENTRY DEFINITIONS. 07107 M01S06832.xedit +++| 07108 M01S06833.xedit +++| EXPP ARG. 07109 M01S06834.xedit +++| DATA C* USUALLY MEANS THE USE OF AN EMPTY STRING IN THE* 07110 M01S06835.xedit +++| DATA C* FIRST STRING OF A CHANGE OR LOCATE COMMAND.* 07111 M01S06836.xedit +++| ENDHELP 07112 M01S06837.xedit +++| 07113 M01S06838.xedit +++| EXPP BFN. 07114 M01S06839.xedit +++| DATA C* FILE NAME WAS NOT OF PROPER FORM OR IT WAS A* 07115 M01S06840.xedit +++| DATA C* FILE NAME WHICH IS RESERVED BY XEDIT.* 07116 M01S06841.xedit +++| ENDHELP 07117 M01S06842.xedit +++| 07118 M01S06843.xedit +++| EXPP BTL. 07119 M01S06844.xedit +++| DATA C* THE EDIT FILE CONTAINS AT LEAST ONE LINE OF * 07120 M01S06845.xedit +++| DATA C* DATA THAT IS NOT IN A FORM XEDIT CAN UNDERSTAND.* 07121 M01S06846.xedit +++| ENDHELP 07122 M01S06847.xedit +++| 07123 M01S06848.xedit +++| EXPP CNV. 07124 M01S06849.xedit +++| DATA C* DURING CERTAIN MODES WITHIN XEDIT, SOME COMMANDS* 07125 M01S06850.xedit +++| DATA C* ARE DISABLED.* 07126 M01S06851.xedit +++| ENDHELP 07127 M01S06852.xedit +++| 07128 M01S06853.xedit +++| EXPP DEL. 07129 M01S06854.xedit +++| DATA C* MISSING STRING DELIMITER IN THE STRING FIELD OF* 07130 M01S06855.xedit +++| DATA C* A COMMAND. A DELIMITER IS ASSUMED AFTER THE LAST* 07131 M01S06856.xedit +++| DATA C* NONBLANK CHARACTER OF THE COMMAND LINE.* 07132 M01S06857.xedit +++| ENDHELP 07133 M01S06858.xedit +++| 07134 M01S06859.xedit +++| EXPP EMI.
| Line S06860 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07135 M02S06860.v23l617 ---| DATA C* SPECIFIED OF DEFAULT FILE FUNCTION IS ILLEGAL* 07136 M01S00024.v23l617 +++| DATA C* SPECIFIED IF DEFAULT FILE FUNCTION IS INCORRECT* 07137 M01S06861.xedit +++| DATA C* ON SPECIFIED OR DEFAULT FILE.* 07138 M01S06862.xedit +++| ENDHELP 07139 M01S06863.xedit +++| 07140 M01S06864.xedit +++| EXPP EOF. 07141 M01S06865.xedit +++| DATA C* AN END OF FILE MARK HAS BEEN READ FROM THE EDIT* 07142 M01S06866.xedit +++| DATA C* FILE, AND, UNLESS A DEOF COMMAND WAS BEING* 07143 M01S06867.xedit +++| DATA C* PROCESSED, IT HAS BEEN RETAINED.* 07144 M01S06868.xedit +++| ENDHELP 07145 M01S06869.xedit +++| 07146 M01S06870.xedit +++| EXPP EOR. 07147 M01S06871.xedit +++| DATA C* AN END OF RECORD MARK HAS BEEN READ FROM THE EDIT* 07148 M01S06872.xedit +++| DATA C* FILE, AND, UNLESS A DEOR COMMAND WAS BEING* 07149 M01S06873.xedit +++| DATA C* PROCESSED, IT HAS BEEN RETAINED.* 07150 M01S06874.xedit +++| ENDHELP 07151 M01S06875.xedit +++| 07152 M01S06876.xedit +++| EXPP EOI. 07153 M01S06877.xedit +++| DATA C* THE EDITOR HAS GONE PAST THE LAST LINE OF THE FILE* 07154 M01S06878.xedit +++| DATA C* WHILE TRYING TO COMPLETE PROCESSING OF THE LAST* 07155 M01S06879.xedit +++| DATA C* COMMAND. PROCESSING OF THAT COMMAND IS STOPPED AND* 07156 M01S06880.xedit +++| DATA C* THE POINTER IS MOVED TO THE TOP OF THE FILE.* 07157 M01S06881.xedit +++| ENDHELP 07158 M01S06882.xedit +++| 07159 M01S06883.xedit +++| EXPP FCP. 07160 M01S06884.xedit +++| DATA C* THE SPECIFIED FILE HAS BEEN REWOUND AND RE-COPIED.* 07161 M01S06885.xedit +++| DATA C* THIS IS THE DEFAULT ACTION FOR THE END, FILE, AND* 07162 M01S06886.xedit +++| DATA C* QUIT COMMANDS IF THE FILE IS EITHER DIRECT ACCESS* 07163 M01S06887.xedit +++| DATA C* OR A MAGNETIC TAPE FILE.* 07164 M01S06888.xedit +++| ENDHELP 07165 M01S06889.xedit +++| 07166 M01S06890.xedit +++| EXPP FCR. 07167 M01S06891.xedit +++| DATA C* THE SPECIFIED FILE IS EITHER AN EXECUTE OR APPEND* 07168 M01S06892.xedit +++| DATA C* ONLY FILE; OR IS EITHER NOT A LOCAL FILE, OR A* 07169 M01S06893.xedit +++| DATA C* PERMANENT FILE DEPENDING ON THE SPECIFIED COMMAND* 07170 M01S06894.xedit +++| DATA C* OPTION.* 07171 M01S06895.xedit +++| ENDHELP 07172 M01S06896.xedit +++| 07173 M01S06897.xedit +++| EXPP FLC. 07174 M01S06898.xedit +++| DATA C* THE SPECIFIED FILE HAS BEEN MADE A LOCAL FILE.* 07175 M01S06899.xedit +++| DATA C* FOR THE END, FILE, AND QUIT COMMANDS, THIS* 07176 M01S06900.xedit +++| DATA C* FUNCTION IS DEFAULT FOR INDIRECT ACCESS FILES.* 07177 M01S06901.xedit +++| ENDHELP 07178 M01S06902.xedit +++| 07179 M01S06903.xedit +++| EXPP FRP. 07180 M01S06904.xedit +++| DATA C* THE PERMANENT FILE COPY HAS BEEN REPLACED.* 07181 M01S06905.xedit +++| ENDHELP 07182 M01S06906.xedit +++| 07183 M01S06907.xedit +++| EXPP FSV. 07184 M01S06908.xedit +++| DATA C* A PERMANENT FILE COPY HAS BEEN SAVED.* 07185 M01S06909.xedit +++| ENDHELP 07186 M01S06910.xedit +++| 07187 M01S06911.xedit +++| EXPP ILL. 07188 M01S06912.xedit +++| DATA C* USUALLY MEANS A NONNUMERIC CHARACTER IN A NUMERIC* 07189 M01S06913.xedit +++| DATA C* FIELD OR EXTRA INFORMATION IN A COMMAND.* 07190 M01S06914.xedit +++| ENDHELP 07191 M01S06915.xedit +++| 07192 M01S06916.xedit +++| EXPP LFM. 07193 M01S06917.xedit +++| DATA C+ THE SYSTEM LOCAL FILE PROCESSOR HAS DETECTED AN+ 07194 M01S06918.xedit +++| DATA C* ERROR. PLEASE REPORT THE PROBLEM, ALONG WITH AS* 07195 M01S06919.xedit +++| DATA C* MUCH INFORMATION AS POSSIBLE REGARDING THIS XEDIT* 07196 M01S06920.xedit +++| DATA C* RUN, TO A CONSULTANT.* 07197 M01S06921.xedit +++| ENDHELP 07198 M01S06922.xedit +++| 07199 M01S06923.xedit +++| EXPP LNNF. 07200 M01S06924.xedit +++| DATA C* THE SPECIFIED LINE NUMBER COULD NOT BE LOCATED.* 07201 M01S06925.xedit +++| ENDHELP 07202 M01S06926.xedit +++| 07203 M01S06927.xedit +++| EXPP LNTL. 07204 M01S06928.xedit +++| DATA C* IN THE ALN, ALNS, OR RLN COMMAND, THE LINE* 07205 M01S06929.xedit +++| DATA C* NUMBER BECAME GREATER THAN 99999.* 07206 M01S06930.xedit +++| ENDHELP 07207 M01S06931.xedit +++| 07208 M01S06932.xedit +++| EXPP NSC.
| Line S06933 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07209 M02S06933.v23l617 ---| DATA C* THE COMMAND IS ILLEGAL OR AN IMPROPER SEPARATOR* 07210 M01S00025.v23l617 +++| DATA C* THE COMMAND IS INCORRECT OR AN IMPROPER SEPARATOR* 07211 M01S06934.xedit +++| DATA C* WAS USED AFTER THE COMMAND.* 07212 M01S06935.xedit +++| ENDHELP 07213 M01S06936.xedit +++| 07214 M01S06937.xedit +++| EXPP PFM. 07215 M01S06938.xedit +++| DATA C* ERROR IN PERMANENT FILE OPERATION.* 07216 M01S06939.xedit +++| ENDHELP 07217 M01S06940.xedit +++| 07218 M01S06941.xedit +++| EXPP SNF. 07219 M01S06942.xedit +++| DATA C* IF A 0 IS USED FOR THE REPEAT COUNT ON ANY STRING* 07220 M01S06943.xedit +++| DATA C* SEARCH COMMAND, AND THE STRING IS NOT IN THE* 07221 M01S06944.xedit +++| DATA C* CURRENT LINE, XEDIT ISSUES THE ABOVE MESSAGE* 07222 M01S06945.xedit +++| DATA C* AND DOES NOT ADVANCE THE POINTER. (ALSO, ANY* 07223 M01S06946.xedit +++| DATA C* REMAINING COMMANDS ON A DELIMITED COMMAND* 07224 M01S06947.xedit +++| DATA C* LINE ARE IGNORED. IN ADDITION, THE 0 IS USED* 07225 M01S06948.xedit +++| DATA C* IF USING THE INPUT MODE ECSAPE CHARACTER.* 07226 M01S06949.xedit +++| ENDHELP 07227 M01S06950.xedit +++| 07228 M01S06951.xedit +++| EXPP STK. 07229 M01S06952.xedit +++| DATA C* AN ATTEMPT WAS MADE TO RECURRSIVELY USE AN INPUT* 07230 M01S06953.xedit +++| DATA C* SOURCE. AN EXAMPLE OF THIS IS-* 07231 M01S06954.xedit +++| DATA C* Y/PRINT/Y-WHERE-* 07232 M01S06955.xedit +++| DATA C* IN THE EXAMPLE, THE Y/Z COMMAND ATTEMPTS TO CALL*
| Line S06956 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07233 M02S06956.v23l617 ---| DATA C* ANOTHER Y/Z COMMAND, WHICH IS ILLEGAL.* 07234 M01S00026.v23l617 +++| DATA C* ANOTHER Y/Z COMMAND, WHICH IS INCORRECT.* 07235 M01S06957.xedit +++| ENDHELP 07236 M01S06958.xedit +++| 07237 M01S06959.xedit +++| EXPP TRUNC. 07238 M01S06960.xedit +++| DATA C* AS A RESULT OF A COMMAND, THE LINE WHOSE POSITION* 07239 M01S06961.xedit +++| DATA C* IS GIVEN HAS BEEN TRUNCATED TO 160 CHARACTERS.* 07240 M01S06962.xedit +++| DATA C* THIS ACTION OCCURS AUTOMATICALLY WHENEVER A LINE* 07241 M01S06963.xedit +++| DATA C* IS EXTENDED WITHIN XEDIT TO INCLUDE MORE THAN* 07242 M01S06964.xedit +++| DATA C* 160 CHARACTERS.* 07243 M01S06965.xedit +++| ENDHELP 07244 M01S06966.xedit +++| SPACE 4
| Line S06967 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07245 M02S06967.xedit23 ---|** ARGUMENT ERROR SECONDARY EXPLAINATIONS. 07246 M01S00005.xedit23 +++|** ARGUMENT ERROR SECONDARY EXPLANATIONS. 07247 M01S06968.xedit +++| 07248 M01S06969.xedit +++| EXPS ARG.,1 F0 CONFLICT IN INPUT MODE 07249 M01S06970.xedit +++| DATA C+ WHILE USING THE COMMAND ESCAPE CHARACTER OF+ 07250 M01S06971.xedit +++| DATA C+ *INPUT* MODE TO ENTER COMMANDS, THE MOVEMENT OF+ 07251 M01S06972.xedit +++| DATA C* THE POINTER IS DISALLOWED. FOR THIS REASON, XEDIT* 07252 M01S06973.xedit +++| DATA C* FORBIDS USERS FROM ENTERING ANY REPEAT COUNT ON* 07253 M01S06974.xedit +++| DATA C+ ANY COMMANDS (FOR EXAMPLE - THE *LOCATE* OR + 07254 M01S06975.xedit +++| DATA C+ *CHANGE* COMMANDS). ALSO VOIDED ARE ANY PREFIX+ 07255 M01S06976.xedit +++| DATA C* CHARACTERS WHICH POSITION THE POINTER.* 07256 M01S06977.xedit +++| ENDHELP 07257 M01S06978.xedit +++| SPACE 4
| Line S06979 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07258 M02S06979.xedit23 ---|** BAD FILE NAME SECONDARY EXPLAINATIONS. 07259 M01S00006.xedit23 +++|** BAD FILE NAME SECONDARY EXPLANATIONS. 07260 M01S06980.xedit +++| 07261 M01S06981.xedit +++| EXPS BFN.,1 BAD FILE NAME
| Line S06982 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07262 M02S06982.v23l617 ---| DATA C* THE FILE NAME ENTERED CONTAINS EITHER ILLEGAL* 07263 M01S00027.v23l617 +++| DATA C* THE FILE NAME ENTERED CONTAINS EITHER INCORRECT* 07264 M01S06983.xedit +++| DATA C* CHARACTERS, OR IS TOO LONG.* 07265 M01S06984.xedit +++| ENDHELP 07266 M01S06985.xedit +++| 07267 M01S06986.xedit +++| EXPS BFN.,2 NO FILE NAME 07268 M01S06987.xedit +++| DATA C* THE COMMAND IS MISSING A REQUIRED FILE NAME.* 07269 M01S06988.xedit +++| ENDHELP 07270 M01S06989.xedit +++| 07271 M01S06990.xedit +++| EXPS BFN.,3 RESERVED FILE NAME 07272 M01S06991.xedit +++| DATA C* THE FILE NAME ENTERED IS ONE WHICH IS RESERVED BY* 07273 M01S06992.xedit +++| DATA C* XEDIT. A PARTIAL LIST INCLUDES- INPUT, OUTPUT,*
| Line S06993 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07274 M02S06993.xedit23 ---| DATA C* SCRA, SCRB, ... SCRF, SCRG.* 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 M01S06994.xedit +++| ENDHELP 07278 M01S06995.xedit +++| SPACE 4
| Line S06996 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07279 M02S06996.xedit23 ---|** COMMAND NOT VALID SECONDARY EXPLAINATIONS. 07280 M01S00009.xedit23 +++|** COMMAND NOT VALID SECONDARY EXPLANATIONS. 07281 M01S06997.xedit +++| 07282 M01S06998.xedit +++| EXPS CNV.,1 07283 M01S06999.xedit +++| DATA C* WHILE CREATING A FILE UNDER XEDIT, VARIOUS COM-* 07284 M01S07000.xedit +++| DATA C* MANDS ARE DISABLED AS THEY ATTEMPT TO REFERENCE* 07285 M01S07001.xedit +++| DATA C* OR MODIFY PARTS OF THE FILE WHICH DO NOT EXIST.* 07286 M01S07002.xedit +++| DATA C* CREATION MODE IS AUTOMATICALLY EXITED UPON ENTRY* 07287 M01S07003.xedit +++| DATA C* OF THE FIRST TEXT LINE (USE THE INSERT OR INPUT* 07288 M01S07004.xedit +++| DATA C* COMMANDS).* 07289 M01S07005.xedit +++| ENDHELP 07290 M01S07006.xedit +++| 07291 M01S07007.xedit +++| EXPS CNV.,3 07292 M01S07008.xedit +++| DATA C* WHILE USING THE INPUT MODE COMMAND ESCAPE OPTION,*
| Line S07009 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07293 M02S07009.v23l617 ---| DATA C* ANY COMMAND WHICH MOVES THE POINTER IS ILLEGAL.*
| Line S07010 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07294 M02S07010.v23l617 ---| DATA C* THE COMMAND SPECIFED IS THUS ILLEGAL.* 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 M01S07011.xedit +++| ENDHELP 07298 M01S07012.xedit +++| SPACE 4
| Line S07013 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07299 M02S07013.v23l617 ---|** EMI - FILE FUNCTION ILLEGAL SECONDARY EXPLAINATIONS.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07300 M02S00030.xedit23 ---|** EMI - FILE FUNCTION INCORRECT SECONDARY EXPLAINATIONS. 07301 M01S00010.xedit23 +++|** EMI - FILE FUNCTION INCORRECT SECONDARY EXPLANATIONS. 07302 M01S07014.xedit +++| 07303 M01S07015.xedit +++| EXPS EMI.,1 07304 M01S07016.xedit +++| DATA C* THE SPECIFIED FILE CANNOT BE UPDATED. THIS CAN* 07305 M01S07017.xedit +++| DATA C* RESULT IF THE FILE IS LOCK OR NOT IN WRITE MODE.* 07306 M01S07018.xedit +++| ENDHELP 07307 M01S07019.xedit +++| 07308 M01S07020.xedit +++| EXPS EMI.,2
| Line S07021 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07309 M02S07021.v23l617 ---| DATA C+ THE *L* PARAMETERS IS ILLEGAL ON DIRECT ACCESS+ 07310 M01S00031.v23l617 +++| DATA C+ THE *L* PARAMETER IS INCORRECT ON DIRECT ACCESS+ 07311 M01S07022.xedit +++| DATA C* OR MAGNETIC TAPE FILES.* 07312 M01S07023.xedit +++| ENDHELP 07313 M01S07024.xedit +++| SPACE 4
| Line S07025 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07314 M02S07025.xedit23 ---|** FILE CANNOT BE ACCESSED SECONDARY EXPLAINATIONS. 07315 M01S00011.xedit23 +++|** FILE CANNOT BE ACCESSED SECONDARY EXPLANATIONS. 07316 M01S07026.xedit +++|* 07317 M01S07027.xedit +++| 07318 M01S07028.xedit +++| 07319 M01S07029.xedit +++| EXPS FCR.,1 07320 M01S07030.xedit +++| DATA C* THE FILE IS AN EXECUTE OR APPEND ONLY FILE THUS* 07321 M01S07031.xedit +++| DATA C* IS NOT ACCESSABLE.* 07322 M01S07032.xedit +++| ENDHELP 07323 M01S07033.xedit +++| 07324 M01S07034.xedit +++| EXPS FCR.,2 07325 M01S07035.xedit +++| DATA C* THE FILE IS NOT PRESENTLY LOCAL TO THE JOB. ALSO,* 07326 M01S07036.xedit +++| DATA C* WHEN IF THE FILE IS DIRECT ACCESS (AND CURRENTLY* 07327 M01S07037.xedit +++| DATA C* ATTACHED) THE FILE CANNOT BE ACCESS FROM THE* 07328 M01S07038.xedit +++| DATA C* PERMANENT FILE AREA.* 07329 M01S07039.xedit +++| ENDHELP 07330 M01S07040.xedit +++| 07331 M01S07041.xedit +++| EXPS FCR.,3 07332 M01S07042.xedit +++| DATA C* THE FILE IS NOT OBTAINABLE FROM THE PERMANENT* 07333 M01S07043.xedit +++| DATA C* FILE AREA.* 07334 M01S07044.xedit +++| ENDHELP 07335 M01S07045.xedit +++| SPACE 4
| Line S07046 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | xedit23 |
Seq # *Modification Id* Act ----------------------------+ 07336 M02S07046.xedit23 ---|** PFM SECONDARY EXPLAINATIONS. 07337 M01S00012.xedit23 +++|** PFM SECONDARY EXPLANATIONS. 07338 M01S07047.xedit +++| EXPS PFM.,1 (FILE) BUSY. 07339 M01S07048.xedit +++| DATA C* DIRECT ACCESS FILE IS ATTACHED ELSEWHERE IN WRITE* 07340 M01S07049.xedit +++| DATA C* MODE.* 07341 M01S07050.xedit +++| ENDHELP 07342 M01S07051.xedit +++| 07343 M01S07052.xedit +++| EXPS PFM.,2 (FILE) NOT FOUND. 07344 M01S07053.xedit +++| DATA C* SPECIFIED FILE COULD NOT BE FOUND.* 07345 M01S07054.xedit +++| ENDHELP 07346 M01S07055.xedit +++| 07347 M01S07056.xedit +++| EXPS PFM.,4 (FILE) NOT ON MASS STORAGE. 07348 M01S07057.xedit +++| DATA C* SPECIFIED FILE DOES NOT RESIDE ON A MASS STORAGE* 07349 M01S07058.xedit +++| DATA C* DEVICE.* 07350 M01S07059.xedit +++| ENDHELP 07351 M01S07060.xedit +++| 07352 M01S07061.xedit +++| EXPS PFM.,5 (FILE) ALREADY PERMANENT. 07353 M01S07062.xedit +++| DATA C* THERE IS ALREADY A FILE EITHER SAVED OR DEFINED* 07354 M01S07063.xedit +++| DATA C* UNDER THE DESIRED NAME. TRY USING THE RENAME* 07355 M01S07064.xedit +++| DATA C* PARAMETER.* 07356 M01S07065.xedit +++| ENDHELP 07357 M01S07066.xedit +++|
| Line S07067 Modification History | |
|---|---|
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07358 M02S07067.v23l617 ---| EXPS PFM.,10 ILLEGAL USER ACCESS 07359 M01S00032.v23l617 +++| EXPS PFM.,10 USER ACCESS NOT VALID 07360 M01S07068.xedit +++| DATA C* USER IN NOT VALIDATED TO SAVE FILES AND/OR TO* 07361 M01S07069.xedit +++| DATA C* ACCESS A REMOVABLE DEVICE.* 07362 M01S07070.xedit +++| ENDHELP 07363 M01S07071.xedit +++| 07364 M01S07072.xedit +++| EXPS PFM.,12 FILE TOO LONG. 07365 M01S07073.xedit +++| DATA C* THE SPECIFIED FILE IS TOO LONG TO BE SAVED OR* 07366 M01S07074.xedit +++| DATA C* REPLACED.* 07367 M01S07075.xedit +++| ENDHELP 07368 M01S07076.xedit +++| 07369 M01S07077.xedit +++| EXPS PFM.,16 PF UTILITY ACTIVE. 07370 M01S07078.xedit +++| DATA C* DUE TO ACTIVITY WITHIN THE SYSTEM, THE SPECIFIED* 07371 M01S07079.xedit +++| DATA C* PERMANENT FILE OPERATION CANNOT BE DONE AT THE* 07372 M01S07080.xedit +++| DATA C* PRESENT TIME. THE OPERATION SHOULD BE RETRIED* 07373 M01S07081.xedit +++| ENDHELP 07374 M01S07082.xedit +++| 07375 M01S07083.xedit +++| EXPS PFM.,20 CATALOG OVERFLOW - FILES. 07376 M01S07084.xedit +++| DATA C* YOU HAVE EXCEEDED YOUR VALIDATED LIMIT FOR THE* 07377 M01S07085.xedit +++| DATA C* MAXIMUM NUMBER OF PERMANENT FILES.* 07378 M01S07086.xedit +++| ENDHELP 07379 M01S07087.xedit +++| 07380 M01S07088.xedit +++| EXPS PFM.,21 CATALOG OVERFLOW - SIZE. 07381 M01S07089.xedit +++| DATA C* THE CUMULATIVE SIZE OF THE INDIRECT ACCESS FILES* 07382 M01S07090.xedit +++| DATA C* IN YOUR CATALOG HAVE EXCEEDED YOUR VALIDATION* 07383 M01S07091.xedit +++| DATA C* LIMIT.* 07384 M01S07092.xedit +++| ENDHELP 07385 M01S07093.xedit +++| 07386 M01S07094.xedit +++| EXPS PFM.,23 I/O SEQUENCE ERROR. 07387 M01S07095.xedit +++| DATA C* PLEASE NOTIFY A CONSULTANT OF THIS ERROR,* 07388 M01S07096.xedit +++| DATA C* ENCLOSING (IF POSSIBLE) A HARD COPY OF YOUR* 07389 M01S07097.xedit +++| DATA C* SESSION. PLEASE RETRY YOUR COMMAND.* 07390 M01S07098.xedit +++| ENDHELP 07391 M01S07099.xedit +++| 07392 M01S07100.xedit +++| EXPS PFM.,30 TRACK LIMIT 07393 M01S07101.xedit +++| DATA C* PERMANET FILE DEVICE HAS RUN OUT OF TRACKS. PLEASE* 07394 M01S07102.xedit +++| DATA C* NOTIFY CONSULTANT AS SOON AS POSSIBLE.* 07395 M01S07103.xedit +++| ENDHELP 07396 M01S07104.xedit +++| 07397 M01S07105.xedit +++| EXPS PFM.,31 FILE LENGTH ERROR 07398 M01S07106.xedit +++| DATA C* ERROR IN PERMANENT FILE. NOTIFY CONSULTANT AS SOON* 07399 M01S07107.xedit +++| DATA C* AS POSSIBLE. PLEASE DO NOT USE THE SPECIFIED FILE.* 07400 M01S07108.xedit +++| ENDHELP 07401 M01S07109.xedit +++| 07402 M01S07110.xedit +++| EXPS PFM.,33 DIRECT ACCESS FILE ERROR 07403 M01S07111.xedit +++| DATA C* ERROR IN SYSTEM DIRECT ACCESS FILE DEFINITION.* 07404 M01S07112.xedit +++| DATA C* PLEASE NOTIFY CONSULTANT AS SOON AS POSSIBLE.* 07405 M01S07113.xedit +++| ENDHELP 07406 M01S07114.xedit +++| 07407 M01S07115.xedit +++| EXPS PFM.,34 REPLACE ERROR 07408 M01S07116.xedit +++| DATA C* NOTIFY CONSULTANT.* 07409 M01S07117.xedit +++| ENDHELP 07410 M01S07118.xedit +++| 07411 M01S07119.xedit +++| EXPS PFM.,35 PFM ABORTED 07412 M01S07120.xedit +++| DATA C* PERMANENT FILE MANAGER ABORTED. RETRY OPERATION.* 07413 M01S07121.xedit +++| ENDHELP 07414 M01S07122.xedit +++| HELP SPACE 4,30 07415 M01S07123.xedit +++|** HELP - PROCESS XEDIT HELP COMMAND. 07416 M01S07124.xedit +++|* 07417 M01S07125.xedit +++|* ENTRY (IN - IN+80) = COMMAND LINE. 07418 M01S07126.xedit +++|* (LSEP) = SUBSCRIPT OF SEPARATOR. 07419 M01S07127.xedit +++|* 07420 M01S07128.xedit +++|* EXIT HELP ENTRY LISTED. 07421 M01S07129.xedit +++|* 07422 M01S07130.xedit +++|* USES A - 1, 2, 3, 5, 6, 7. 07423 M01S07131.xedit +++|* X - ALL. 07424 M01S07132.xedit +++|* B - 2, 3. 07425 M01S07133.xedit +++|* 07426 M01S07134.xedit +++|* CALLS HTI. 07427 M01S07135.xedit +++|* 07428 M01S07136.xedit +++|* MACROS CSET, GET, OPEN, READ, READW, RECALL, REWIND, 07429 M01S07137.xedit +++|* STATUS, WRITEC, WRITER, WRITEW. 07430 M01S07138.xedit +++|* 07431 M01S07139.xedit +++|* NOTES HELP PICKS THE COMMAND OFF THE ARGUMENT OF THE HELP 07432 M01S07140.xedit +++|* COMMAND. IF NO COMMAND IS SPECIFIED, A LISTING OF ALL XEDIT 07433 M01S07141.xedit +++|* COMMANDS AND COMMAND ABBREVIATIONS AND PREFIX CHARACTERS IS 07434 M01S07142.xedit +++|* GIVEN. IF A COMMAND OR PREFIX CHARACTER IS SPECIFIED ON THE 07435 M01S07143.xedit +++|* HELP COMMAND, IT IS COMPARED WITH THOSE IN THE XEDIT COMMAND 07436 M01S07144.xedit +++|* TABLE AND THE UNABBREVIATED FORM IS SELECTED. XEDITI FILE 07437 M01S07145.xedit +++|* IS THEN GOTTEN FROM THE LIBRARY IF IT IS NOT ALREADY LOCAL. 07438 M01S07146.xedit +++|* THE FILE IS THEN SEARCHED FOR A MATCHING COMMAND AND THE 07439 M01S07147.xedit +++|* COMMAND ENTRY IS PRINTED OUT. NOTE - PAGEINATION LINES ARE 07440 M01S07148.xedit +++|* FLAGGED WITH A *>*. THE LINE BEFORE EACH COMMAND ENTRY IS 07441 M01S07149.xedit +++|* FLAGGED WITH A *-* IN COLUMN 35. 07442 M01S07150.xedit +++| 07443 M01S07151.xedit +++| 07444 M01S07152.xedit +++| HELP SA1 NUMS RESTORE A5 POINTER 07445 M01S07153.xedit +++| SA2 A1+B1 07446 M01S07154.xedit +++| MX7 1 07447 M01S07155.xedit +++| ZR X1,HLP21 IF NO PARAMETER 07448 M01S07156.xedit +++| SA2 X2 07449 M01S07157.xedit +++| SA5 X1 07450 M01S07158.xedit +++| NG X5,HLP21 IF NO PARAMETER 07451 M01S07159.xedit +++| BX6 X7+X2 07452 M01S07160.xedit +++| SA6 A2 07453 M01S07161.xedit +++| SA1 A5+B1 CHECK NEXT CHARACTER 07454 M01S07162.xedit +++| PL X1,HLP0 IF NOT END OF LINE 07455 M01S07163.xedit +++| MX1 0 CLEAR CHARACTER 07456 M01S07164.xedit +++| HLP0 SX4 X5-1R0 07457 M01S07165.xedit +++| SX3 X5-1R+ 07458 M01S07166.xedit +++| SX2 X5 MOVE CHARACTER 07459 M01S07167.xedit +++| LX2 6 07460 M01S07168.xedit +++| BX2 X2+X1 07461 M01S07169.xedit +++| SB2 X2 07462 M01S07170.xedit +++| BX3 -X4*X3 NEG. IF NUMBER 07463 M01S07171.xedit +++| SA2 HLPA 07464 M01S07172.xedit +++| NG X3,HLP11 IF A NUMBER 07465 M01S07173.xedit +++| SB3 X2 07466 M01S07174.xedit +++| HLP1 EQ B3,B2,HLP12 IF SPECIAL CHARACTER 07467 M01S07175.xedit +++| SA2 A2+B1 07468 M01S07176.xedit +++| SB3 X2 07469 M01S07177.xedit +++| NZ X2,HLP1 IF NOT END OF LIST 07470 M01S07178.xedit +++| MX6 1 PREPARE TO PARSE COMMAND 07471 M01S07179.xedit +++| MX4 26 07472 M01S07180.xedit +++| MX3 -6 07473 M01S07181.xedit +++| LX4 -5 PREPARE CHARACTER MASK 07474 M01S07182.xedit +++| HLP2 BX0 -X3*X5 REMOVE ASCII 07475 M01S07183.xedit +++| SB3 X0+4 07476 M01S07184.xedit +++| LX1 B3,X4 SHIFT MASK 07477 M01S07185.xedit +++| PL X1,HLP4 IF NOT A-Z 07478 M01S07186.xedit +++| BX1 X3*X5 07479 M01S07187.xedit +++| ZR X1,HLP3 IF NOT ASCII CHARACTER 07480 M01S07188.xedit +++| SX1 X1-7600B 07481 M01S07189.xedit +++| NZ X1,HLP4 IF NOT LOWER CASE A-Z 07482 M01S07190.xedit +++| 07483 M01S07191.xedit +++|* MERGE CHARACTERS. 07484 M01S07192.xedit +++|
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/xedit.003.txt · Last modified: by 127.0.0.1