Seq # *Modification Id* Act
----------------------------+
03736 M00S03568.xedit +++|* B - 2, 6, 7.
03737 M00S03569.xedit +++|*
03738 M00S03570.xedit +++|* CALLS IEM.
03739 M00S03571.xedit +++|
03740 M00S03572.xedit +++|
03741 M00S03573.xedit +++| CER ERROR B2 ISSUE ERROR MESSAGE
03742 M00S03574.xedit +++|
03743 M00S03575.xedit +++|* ENTRY POINT FOR COMMAND ERROR, BUT ISSUED OWN MESSAGE.
03744 M00S03576.xedit +++|
03745 M00S03577.xedit +++| CER1 SA2 BATCH ABORT/ELSE RETURN TO MAIN INPUT
03746 M00S03578.xedit +++| SB6 =C* BATCH ABORT - COMMAND ERROR.*
03747 M00S03579.xedit +++| NZ X2,ABT IF BATCH MODE
03748 M00S03580.xedit +++| SA1 INPMODE
03749 M00S03581.xedit +++| SB7 -I.DEV SET DEVICE TO CHECK AGAINST
03750 M00S03582.xedit +++| PL X1,CER2 IF NOT IN INPUT MODE
| Line S00001 Modification History |
M01 (Added by) | xedit7 |
Seq # *Modification Id* Act
----------------------------+
03751 M01S00001.xedit7 +++| SA5 C.ON GET CURRENT DEVICE
03752 M01S00002.xedit7 +++| SB7 -Y.DEV
03753 M01S00003.xedit7 +++| SB2 X5+B7
03754 M01S00004.xedit7 +++| ZR B2,NCL IF *Y/Z* COMMAND DEVICE
03755 M00S03583.xedit +++| SB7 -S.DEV SET SPECIAL INPUT DEVICE LINE
03756 M00S03584.xedit +++| CER2 SA5 C.ON POP STACK AND GET NEXT COMMAND LINE
03757 M00S03585.xedit +++| SB2 X5+B7 COMPARE DEVICES
03758 M00S03586.xedit +++| MX6 1 PREPARE TO IDLE DEVICE
03759 M00S03587.xedit +++| ZR B2,NCL IF POPPED TO PROPER DEVICE, EXIT
03760 M00S03588.xedit +++| SA5 X5 GET NEW DEVICE
03761 M00S03589.xedit +++| SA6 A5 IDLE OLD DEVICE
03762 M00S03590.xedit +++| SA2 X5+B1 GET OLD C.STR-1 WORD
03763 M00S03591.xedit +++| BX7 X5
03764 M00S03592.xedit +++| LX6 X2
03765 M00S03593.xedit +++| SA7 C.ON POP STACK
03766 M00S03594.xedit +++| SA6 C.STR-1
03767 M00S03595.xedit +++| EQ CER2 CHECK TO SEE IF AT PRIMARY
03768 M00S03596.xedit +++| CFF SPACE 4,20
03769 M00S03597.xedit +++|** CFF - COPY FAST FILE.
03770 M00S03598.xedit +++|*
03771 M00S03599.xedit +++|* ENTRY (CFET) LOADED WITH FILE NAME.
03772 M00S03600.xedit +++|* AT LEAST ONE READ STARTED ON *E.IN*.
03773 M00S03601.xedit +++|*
03774 M00S03602.xedit +++|* EXIT FILE COPIED.
03775 M00S03603.xedit +++|* BOTH FILES *NOT BUSY*.
03776 M00S03604.xedit +++|*
03777 M00S03605.xedit +++|* USES A - 1, 2, 3, 6, 7.
03778 M00S03606.xedit +++|* X - 1, 2, 3, 6, 7.
03779 M00S03607.xedit +++|*
03780 M00S03608.xedit +++|* MACROS READ, RECALL, WRITE, WRITEF, WRITER.
03781 M00S03609.xedit +++|*
03782 M00S03610.xedit +++|* COPIES INCOMING EDIT FILE STARTING AT CURRENT BUFFER
03783 M00S03611.xedit +++|* POSITION, TO THE FILE NAME WHICH IS IN *CFET*.
03784 M00S03612.xedit +++|* NEITHER FILE IS REWOUND BEFORE COPYING.
03785 M00S03613.xedit +++|* WARNING, THIS ROUTINE ASSUMES THAT THE BUFFER POINTERS
03786 M00S03614.xedit +++|* FOR THE TWO FILES ARE IDENTICAL - THUS USE ONLY ON *E.IN*
03787 M00S03615.xedit +++|* AND *CFET*.
03788 M00S03616.xedit +++|
03789 M00S03617.xedit +++|
03790 M00S03618.xedit +++| CFF PS ENTRY/EXIT
03791 M00S03619.xedit +++| SA1 E.IN+2 INITIALIZE OUTPUT FET TO AGREE WITH
03792 M00S03620.xedit +++| SA2 A1+B1 THE INPUT FET
03793 M00S03621.xedit +++| BX6 X1
03794 M00S03622.xedit +++| SA3 A1-B1 GET *FIRST*
03795 M00S03623.xedit +++| LX7 X2
03796 M00S03624.xedit +++| SX3 X3 MASK OUT ADDRESS FIELD OF *FIRST*
03797 M00S03625.xedit +++| SA1 A2+B1 GET *LIMIT*
03798 M00S03626.xedit +++| SA6 CFET+2
03799 M00S03627.xedit +++| SX1 X1 MASK OUT ADDRESS FIELD OF *LIMIT*
03800 M00S03628.xedit +++| SA7 A6+B1
03801 M00S03629.xedit +++| IX6 X1-X3 BUFFER SIZE (LIMIT-FIRST)
03802 M00S03630.xedit +++| SA6 CFFA SAVE CALCULATED BUFFER SIZE
03803 M00S03631.xedit +++| SA3 E.IN CHECK READ FET STATUS
03804 M00S03632.xedit +++| EQ CFF3 CHECK FOR EOR/EOF/EOI AT ENTRY
03805 M00S03633.xedit +++|
03806 M00S03634.xedit +++| CFF1 SA1 CFET+3 GET WRITE FET OUTPUT POINTER
03807 M00S03635.xedit +++| BX6 X1
03808 M00S03636.xedit +++| SA6 E.IN+3 REFLECT WRITE PROCESSING IN READ FET
03809 M00S03637.xedit +++| READ E.IN RESTART READ FET
03810 M00S03638.xedit +++| RECALL CFET WAIT FOR *WRITE* TO COMPLETE
03811 M00S03639.xedit +++| CFF2 SA3 E.IN SET READ FET STATUS
03812 M00S03640.xedit +++| SA1 E.IN+2
03813 M00S03641.xedit +++| SA2 CFET+3 INFORM THE TWO FETS ABOUT ACTIVITY
03814 M00S03642.xedit +++| BX6 X1 IN THE OTHER FET
03815 M00S03643.xedit +++| LX7 X2
03816 M00S03644.xedit +++| SA6 A2-B1
03817 M00S03645.xedit +++| SA7 A1+B1
03818 M00S03646.xedit +++| CFF3 LX3 59-0
03819 M00S03647.xedit +++| PL X3,CFF4 IF READ FET BUSY
03820 M00S03648.xedit +++| LX3 59-4-59+0
03821 M00S03649.xedit +++| NG X3,CFF6 IF AT EOR/EOF/EOI
03822 M00S03650.xedit +++|
03823 M00S03651.xedit +++|* CALL *CIO* FOR *READ* IF SUFFICIENT SPACE IS IN THE BUFFER.
03824 M00S03652.xedit +++|
03825 M00S03653.xedit +++| IX6 X2-X1 OUT - IN
03826 M00S03654.xedit +++| ZR X6,CFF3.1 IF BUFFER IS EMPTY
03827 M00S03655.xedit +++| BX3 X6
03828 M00S03656.xedit +++| SA1 CFFA GET BUFFER SIZE
03829 M00S03657.xedit +++| AX3 60 SIGN OF (OUT-IN)
03830 M00S03658.xedit +++| BX2 X3*X1 BUFFER SIZE IF (OUT.LT.IN), ELSE 0
03831 M00S03659.xedit +++| IX7 X2+X6 SPACE IN BUFFER
03832 M00S03660.xedit +++| AX7 7 0 IF .LT. 200B WORDS OF SPACE
03833 M00S03661.xedit +++| ZR X7,CFF4 IF NOT ENOUGH SPACE
03834 M00S03662.xedit +++| CFF3.1 READ A3 RESTART THE READ FET
03835 M00S03663.xedit +++| CFF4 SA3 CFET
03836 M00S03664.xedit +++| LX3 59-0
03837 M00S03665.xedit +++| PL X3,CFF5 IF WRITE FET BUSY
03838 M00S03666.xedit +++|
03839 M00S03667.xedit +++|* CALL *CIO* FOR *WRITE* IF SUFFICIENT DATA IS IN THE BUFFER.
03840 M00S03668.xedit +++|
03841 M00S03669.xedit +++| SA1 CFET+2 GET *IN*
03842 M00S03670.xedit +++| SA2 A1+B1 GET *OUT*
03843 M00S03671.xedit +++| IX6 X1-X2 IN - OUT
03844 M00S03672.xedit +++| BX3 X6
03845 M00S03673.xedit +++| SA1 CFFA GET CALCULATED BUFFER SIZE
03846 M00S03674.xedit +++| AX3 60 SIGN OF (IN-OUT)
03847 M00S03675.xedit +++| BX2 X3*X1 BUFFER SIZE IF (IN.LT.OUT), ELSE 0
03848 M00S03676.xedit +++| IX7 X2+X6 AVAILABLE DATA IN BUFFER
03849 M00S03677.xedit +++| AX7 7 0 IF .LT. 200B WORDS OF DATA
03850 M00S03678.xedit +++| ZR X7,CFF5 IF NOT ENOUGH DATA AVAILABLE
03851 M00S03679.xedit +++| WRITE CFET RESTART THE WRITE FET
03852 M00S03680.xedit +++| CFF5 RECALL WAIT FOR SOMETHING TO HAPPEN
03853 M00S03681.xedit +++| EQ CFF2 CONTINUE COPY
03854 M00S03682.xedit +++|
03855 M00S03683.xedit +++|* CHECK EOR/EOF/EOI AND PROCESS ACCORDINGLY
03856 M00S03684.xedit +++|
| Line S03685 Modification History |
M01 (Removed by) | xedit24 |
Seq # *Modification Id* Act
----------------------------+
03857 M01S03685.xedit24 ---| CFF6 LX3 59-3-59+4
| Line S00001 Modification History |
M01 (Added by) | xedit24 |
Seq # *Modification Id* Act
----------------------------+
03858 M01S00001.xedit24 +++| CFF6 SA1 E.IN+2 UPDATE OUTPUT BUFFER POINTER
03859 M01S00002.xedit24 +++| LX3 59-3-59+4
03860 M01S00003.xedit24 +++| BX6 X1
03861 M01S00004.xedit24 +++| SA6 CFET+2
03862 M00S03686.xedit +++| NG X3,CFF7 IF NOT EOR
03863 M00S03687.xedit +++| WRITER CFET
03864 M00S03688.xedit +++| EQ CFF1 CONTINUE COPY
03865 M00S03689.xedit +++|
03866 M00S03690.xedit +++| CFF7 LX3 59-9-59+3
03867 M00S03691.xedit +++| NG X3,CFF8 IF EOI
03868 M00S03692.xedit +++| WRITEF CFET
03869 M00S03693.xedit +++| EQ CFF1 CONTINUE COPY
03870 M00S03694.xedit +++|
03871 M00S03695.xedit +++| CFF8 RECALL CFET WAIT FOR OUTPUT TO SETTLE
03872 M00S03696.xedit +++| EQ CFF RETURN
03873 M00S03697.xedit +++|
03874 M00S03698.xedit +++| CFFA CON 0 TEMPORARY STORAGE FOR BUFFER SIZE
03875 M00S03699.xedit +++| CHS SPACE 4,20
03876 M00S03700.xedit +++|** CHS - CHANGE STRING(S).
03877 M00S03701.xedit +++|*
03878 M00S03702.xedit +++|* ENTRY (A0) = FWA OF SCRATCH BUFFER.
03879 M00S03703.xedit +++|* (X0) = LWA+1 OF SCRATCH BUFFER.
03880 M00S03704.xedit +++|* (SIGN BIT OF X0 = 1 IF *STRING* MODE).
03881 M00S03705.xedit +++|*
03882 M00S03706.xedit +++|* EXIT (B5) = 0, IF STRING NOT FOUND.
03883 M00S03707.xedit +++|* (X5) = 0, IF TRUNCATION OCCURED.
03884 M00S03708.xedit +++|* NEW CHANGED LINE (IF STRING FOUND) IN SCRATCH BUFFER.
03885 M00S03709.xedit +++|* THE NEW LINE SHOULD BE RUN THROUGH *TSL*.
03886 M00S03710.xedit +++|* B5 SHOULD BE TESTED BEFORE X5.
03887 M00S03711.xedit +++|*
03888 M00S03712.xedit +++|* USES A - 0, 1, 2, 5, 6.
03889 M00S03713.xedit +++|* X - 1, 2, 4, 5, 6.
03890 M00S03714.xedit +++|* B - 2, 3, 4, 5, 6, 7.
03891 M00S03715.xedit +++|*
03892 M00S03716.xedit +++|* CALLS LOC.
03893 M00S03717.xedit +++|
03894 M00S03718.xedit +++|
03895 M00S03719.xedit +++| CHS15 SX5 0 SET TRUNCATION OCCURED
03896 M00S03720.xedit +++| CHS16 MX6 2 SET END OF LINE IN SCRATCH BUFFER
03897 M00S03721.xedit +++| SB5 1 SET STRING FOUND
03898 M00S03722.xedit +++| SA6 B6
03899 M00S03723.xedit +++|
03900 M00S03724.xedit +++| CHS PS ENTRY/EXIT
03901 M00S03725.xedit +++| MX6 0
03902 M00S03726.xedit +++| SB4 E.STR-1 SET FIRST SEARCH ADDR
03903 M00S03727.xedit +++| SA5 B4+B1
03904 M00S03728.xedit +++| SA6 CHSB COUNT COUNTER (VOID INFINITE LENGTH)
03905 M00S03729.xedit +++| RJ LOC SEARCH FOR STRING
03906 M00S03730.xedit +++| SB6 A0
03907 M00S03731.xedit +++| SB3 X0
03908 M00S03732.xedit +++| SA1 LOC+1
03909 M00S03733.xedit +++| ZR B5,CHS IF STRING NOT FOUND, RETURN
03910 M00S03734.xedit +++| SB7 X1+ IF C//STR/ FORM, 0
03911 M00S03735.xedit +++|
03912 M00S03736.xedit +++|* COPY TO SCRATCH THAT PORTION OF LINE BEFORE MATCH.
03913 M00S03737.xedit +++|
03914 M00S03738.xedit +++| CHS1 SB2 A5
03915 M00S03739.xedit +++| SX4 B1
03916 M00S03740.xedit +++| GE B2,B4,CHS5 IF ALREADY AT START OF MATCH
03917 M00S03741.xedit +++| CHS2 PL X5,CHS3 IF NOT AT END OF EDIT LINE
03918 M00S03742.xedit +++| SA5 CHSA SET TO BLANK(SPECIAL CASE)
03919 M00S03743.xedit +++| CHS3 LT B6,B3,CHS4 IF NOT FULL SCRATCH BUFFER
03920 M00S03744.xedit +++| SX4 X5-1R
03921 M00S03745.xedit +++| NZ X4,CHS15 IF TRUNCATION
03922 M00S03746.xedit +++| CHS4 BX6 X5
03923 M00S03747.xedit +++| SB2 B2+B1 STEP A5 VALUE
03924 M00S03748.xedit +++| SA6 B6
03925 M00S03749.xedit +++| SA5 A5+B1
03926 M00S03750.xedit +++| SB6 B6+X4 CONDITIONALLY INCREMENT SCRATCH POINTER
03927 M00S03751.xedit +++| LT B2,B4,CHS2 IF MORE TO COPY
03928 M00S03752.xedit +++|
03929 M00S03753.xedit +++|* COPY TO SCRATCH THE NEW STRING, PREPARE FOR NEXT SEARCH.
03930 M00S03754.xedit +++|
03931 M00S03755.xedit +++| CHS5 SB4 B5-B1 SET TO SKIP MATCHED STRING
03932 M00S03756.xedit +++| NG X5,CHS6 IF AT END OF EDIT LINE (REMAIN THERE)
03933 M00S03757.xedit +++| NG X5,CHS14 IF AT END OF LINE
03934 M00S03758.xedit +++|
03935 M00S03759.xedit +++|* RESET TO AFTER MATCHED STRING, NEVER PAST EOL CHARACTER.
03936 M00S03760.xedit +++|
03937 M00S03761.xedit +++| SA5 B5
03938 M00S03762.xedit +++| CHS6 SA2 P3RP
03939 M00S03763.xedit +++| SA1 A2-B1 P3LP
03940 M00S03764.xedit +++| ZR X2,CHS9 IF NO STRING FOR REPLACEMENT
03941 M00S03765.xedit +++| SB2 X1
03942 M00S03766.xedit +++| SB5 X2
03943 M00S03767.xedit +++| GE B2,B5,CHS9 IF NO STRING (NULL)
03944 M00S03768.xedit +++| SA1 B2
03945 M00S03769.xedit +++| CHS7 BX6 X1
03946 M00S03770.xedit +++| SB2 B2+B1
03947 M00S03771.xedit +++| LT B6,B3,CHS8 IF END OF SCRATCH BUFFER
03948 M00S03772.xedit +++| SX4 X1-1R
03949 M00S03773.xedit +++| NZ X4,CHS15 IF TRUNCATION
03950 M00S03774.xedit +++| CHS8 SA6 B6+
03951 M00S03775.xedit +++| SB6 B6+X4 CONDITIONALLY INCREMENT SCRATCH POINTER
03952 M00S03776.xedit +++| SA1 B2
03953 M00S03777.xedit +++| LT B2,B5,CHS7 IF MORE TO TRANSFER
03954 M00S03778.xedit +++|
03955 M00S03779.xedit +++|* READY TO LOOK FOR NEXT STRING.
03956 M00S03780.xedit +++|
03957 M00S03781.xedit +++| CHS9 SA0 B6 UPDATE A0
03958 M00S03782.xedit +++| NG X0,CHS13 IF STRING MODE
03959 M00S03783.xedit +++| CHS10 ZR B7,CHS11 IF C//STR/ OPTION
03960 M00S03784.xedit +++| RJ LOC CHECK FOR NEXT MATCH
03961 M00S03785.xedit +++| SB6 A0
03962 M00S03786.xedit +++| SB3 X0
03963 M00S03787.xedit +++| SA1 CHSB
03964 M00S03788.xedit +++| SB7 B1 SET NOT C//STR/ OPTION
03965 M00S03789.xedit +++| SX6 X1+B1
03966 M00S03790.xedit +++| AX1 9
03967 M00S03791.xedit +++| SA6 A1
03968 M00S03792.xedit +++| NZ X1,CHS10.1 IF IN INFINITE LOOP
03969 M00S03793.xedit +++| NZ B5,CHS1 IF MATCH FOUND
03970 M00S03794.xedit +++| CHS10.1 SX4 1 RESET (X4)
03971 M00S03795.xedit +++|
03972 M00S03796.xedit +++|* COPY REMAINDER OF LINE TO SCRATCH.
03973 M00S03797.xedit +++|
03974 M00S03798.xedit +++| CHS11 NG X5,CHS16 IF FINISHED
03975 M00S03799.xedit +++| LT B6,B3,CHS12 IF END OF SCRATCH BUFFER
03976 M00S03800.xedit +++| SX4 X5-1R
03977 M00S03801.xedit +++| NZ X4,CHS15 IF TRUNCATION
03978 M00S03802.xedit +++| CHS12 BX6 X5
03979 M00S03803.xedit +++| SA6 B6
03980 M00S03804.xedit +++| SA5 A5+B1
03981 M00S03805.xedit +++| SB6 B6+X4
03982 M00S03806.xedit +++| EQ CHS11 CONTINUE COPY
03983 M00S03807.xedit +++|
03984 M00S03808.xedit +++|* STRING MODE - CHECK TO SEE IF FINISHED.
03985 M00S03809.xedit +++|
03986 M00S03810.xedit +++| CHS13 SA1 NUMS
| Line S03811 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03987 M01S03811.xedit21 ---| SX6 X1-1
| Line S00064 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03988 M01S00064.xedit21 +++| SX6 B1
03989 M01S00065.xedit21 +++| IX6 X1-X6
03990 M00S03812.xedit +++| AX1 1
03991 M00S03813.xedit +++| SA6 A1
03992 M00S03814.xedit +++| NZ X1,CHS10 IF MORE STRINGS
03993 M00S03815.xedit +++| EQ CHS11 COPY REST OF LINE
03994 M00S03816.xedit +++|
03995 M00S03817.xedit +++|* CHECK FOR ANY INFINITE LOOPS
03996 M00S03818.xedit +++|
03997 M00S03819.xedit +++| CHS14 SA1 CHSB
03998 M00S03820.xedit +++| SX6 X1+B1
03999 M00S03821.xedit +++| SA6 A1
04000 M00S03822.xedit +++| AX1 9
04001 M00S03823.xedit +++| ZR X1,CHS6 IF NOT INFINITE
04002 M00S03824.xedit +++| EQ CHS RETURN
04003 M00S03825.xedit +++|
04004 M00S03826.xedit +++| CHSA DATA 1R SPECIAL CASE HANDLING
04005 M00S03827.xedit +++| VFD 2/-0,*P/
04006 M00S03828.xedit +++| CHSB BSS 1 INFINITE LOOP KLUDGE
04007 M00S03829.xedit +++| ETL SPACE 4,20
04008 M00S03830.xedit +++|** ETL - ECHO TEXT LINE.
04009 M00S03831.xedit +++|*
04010 M00S03832.xedit +++|* ENTRY (A1) = FWA OF TEXT LINE.
04011 M00S03833.xedit +++|* (X1) = TEXT.
04012 M00S03834.xedit +++|* (X3) = PREFIX DEFINITIONS (SEE ETLA FOR EXAMPLE).
04013 M00S03835.xedit +++|*
04014 M00S03836.xedit +++|* EXIT DESIRED TEXT LINE ECHOED AFTER INSERTING UP
04015 M00S03837.xedit +++|* TO NINE LEADING CHARACTERS.
04016 M00S03838.xedit +++|*
04017 M00S03839.xedit +++|* USES A - 1, 6, 7.
04018 M00S03840.xedit +++|* X - 1, 2, 3, 4, 6 ,7.
04019 M00S03841.xedit +++|* B - 2.
04020 M00S03842.xedit +++|* E.SCR.
04021 M00S03843.xedit +++|*
04022 M00S03844.xedit +++|* MACROS WRITEC.
04023 M00S03845.xedit +++|
04024 M00S03846.xedit +++|
04025 M00S03847.xedit +++| ETL1 BX6 -X4*X1 GET END OF LINE BYTE
04026 M00S03848.xedit +++| LX1 B2 SHIFT WORD
04027 M00S03849.xedit +++| BX7 -X2*X1
04028 M00S03850.xedit +++| IX7 X7+X3
04029 M00S03851.xedit +++| BX3 X2*X1
04030 M00S03852.xedit +++| SA7 A7+1 SAVE NEXT WORD
04031 M00S03853.xedit +++| SA1 A1+B1 READ AHEAD TO NEXT
04032 M00S03854.xedit +++| NZ X6,ETL1 IF NOT END OF LINE
04033 M00S03855.xedit +++| BX7 X3
04034 M00S03856.xedit +++| SA7 A7+B1
04035 M00S03857.xedit +++| SA6 A7+B1 INSURE PROPER END OF LINE BYTE
04036 M00S03858.xedit +++| WRITEC OUTPUT,E.SCR+1
04037 M00S03859.xedit +++|
04038 M00S03860.xedit +++| ETL PS ENTRY/EXIT
04039 M00S03861.xedit +++| MX2 1
04040 M00S03862.xedit +++| SB2 X3 GET SHIFT COUNT-1
04041 M00S03863.xedit +++| SA7 E.SCR
04042 M00S03864.xedit +++| AX2 B2 EXTEND MASK
04043 M00S03865.xedit +++| SB2 B2-59
04044 M00S03866.xedit +++| BX3 X2*X3 CLEAR SHIFT COUNT
04045 M00S03867.xedit +++| MX4 -12
04046 M00S03868.xedit +++| SB2 -B2
04047 M00S03869.xedit +++| EQ ETL1 WRITE TEXT
04048 M00S03870.xedit +++|
04049 M00S03871.xedit +++| ETLA CHAR (VFD 6/0),QM. DATA LINE PROMPT
04050 M00S03872.xedit +++| VFD 6/1R ,*P/11
04051 M00S03873.xedit +++| ETLB CHAR (VFD 6/0),QM. COMMAND LINE PROMPT
04052 M00S03874.xedit +++| CHAR (VFD 6/0),QM.
04053 M00S03875.xedit +++| VFD 6/1R ,*P/17
04054 M00S03876.xedit +++|
04055 M00S03877.xedit +++| ETL RMT REMOTE FOR BATCH ORIGIN
04056 M00S03878.xedit +++| CHAR (VFD 12/1L ),QM.
04057 M00S03879.xedit +++| VFD 6/1R ,*P/17
04058 M00S03880.xedit +++| CHAR (VFD 12/1L ),QM.
04059 M00S03881.xedit +++| CHAR (VFD 6/0),QM.
04060 M00S03882.xedit +++| VFD 6/1R ,*P/23D
04061 M00S03883.xedit +++| RMT
04062 M00S03884.xedit +++| EXT SPACE 4,15
04063 M00S03885.xedit +++|** EXT - EXIT XEDIT.
04064 M00S03886.xedit +++|*
04065 M00S03887.xedit +++|* ENTRY (EXTA) = EXIT CODE.
04066 M00S03888.xedit +++|*
04067 M00S03889.xedit +++|* EXIT PROGRAM TERMINATED.
04068 M00S03890.xedit +++|*
04069 M00S03891.xedit +++|* USES A - 0, 1, 2, 4, 5.
04070 M00S03892.xedit +++|* X - 0, 1, 2, 3, 4, 5, 6.
04071 M00S03893.xedit +++|*
04072 M00S03894.xedit +++|* MACROS CSET, DISTC, MESSAGE, RETURN, REWIND, WRITEO, WRITER.
04073 M00S03895.xedit +++|*
04074 M00S03896.xedit +++|* NOTES ROUTINE RETURNS SCRATCH FILES (SCRA-SCRG),
04075 M00S03897.xedit +++|* TURNS OFF ASCII MODE (IF *AS* PARAMETER USED)
04076 M00S03898.xedit +++|* AND DOES OTHER HOUSEKEEPING.
04077 M00S03899.xedit +++|
04078 M00S03900.xedit +++|
04079 M00S03901.xedit +++| EXT SA1 COPY
04080 M00S03902.xedit +++| ZR X1,EXT1 IF NO COPY FILE
04081 M00S03903.xedit +++| WRITER FTD,RECALL CLOSE COPY FILE
04082 M00S03904.xedit +++| REWIND X2
04083 M00S03905.xedit +++| EXT1 MX0 3
04084 M00S03906.xedit +++| SA0 FTD SET FIRST FET TO LOOK AT
04085 M00S03907.xedit +++| LX0 -21D POSITION A-G MASK
04086 M00S03908.xedit +++| SA5 =0LSCR
04087 M00S03909.xedit +++| EXT2 SA4 A0 GET FILE NAME
04088 M00S03910.xedit +++| BX2 X4-X5 COMPARE NAMES
04089 M00S03911.xedit +++| BX1 -X0*X4 CLEAR A-G BITS
04090 M00S03912.xedit +++| AX2 18
04091 M00S03913.xedit +++| ZR X2,EXT3 IF NAME IS *SCR* (NOT ONE OF XEDIT,S)
04092 M00S03914.xedit +++| BX1 X1-X5
04093 M00S03915.xedit +++| AX1 18
04094 M00S03916.xedit +++| NZ X1,EXT3 IF NOT SRCA-SRCG
04095 M00S03917.xedit +++| RETURN A0
04096 M00S03918.xedit +++| EXT3 SA0 A0+7 STEP TO NEXT FET
04097 M00S03919.xedit +++| SX3 A0-LFET
04098 M00S03920.xedit +++| NG X3,EXT2 IF SCAN NEXT FET
04099 M00S03921.xedit +++|
04100 M00S03922.xedit +++|* CLEAN UP TELEX SPECIAL STATUS.
04101 M00S03923.xedit +++|
04102 M00S03924.xedit +++| SA2 PROMPT
04103 M00S03925.xedit +++| ZR X2,EXT4 IF DISTC NOT ON
04104 M00S03926.xedit +++| SX6 B1
04105 M00S03927.xedit +++| LX6 48 0001 BYTE
04106 M00S03928.xedit +++| WRITEO OUTPUT
04107 M00S03929.xedit +++| DISTC OFF
| Line S03930 Modification History |
M01 (Removed by) | xedit12 |
Seq # *Modification Id* Act
----------------------------+
04108 M01S03930.xedit12 ---| EXT4 SA2 AS
| Line S00008 Modification History |
M01 (Added by) | xedit12 |
Seq # *Modification Id* Act
----------------------------+
04109 M01S00008.xedit12 +++| EXT4 SA1 OUTPUT+2
04110 M01S00009.xedit12 +++| SA2 A1+B1
04111 M01S00010.xedit12 +++| IX2 X2-X1 COMPARE *IN* AND *OUT*
04112 M01S00011.xedit12 +++| ZR X2,EXT5 IF NOTHING IN BUFFER TO FLUSH
04113 M01S00012.xedit12 +++| WRITER OUTPUT,R FLUSH BUFFER (WITH RECALL)
04114 M01S00013.xedit12 +++| EXT5 SA2 AS
04115 M00S03931.xedit +++| SX2 X2-3RASC
| Line S03932 Modification History |
M01 (Removed by) | xedit12 |
Seq # *Modification Id* Act
----------------------------+
04116 M01S03932.xedit12 ---| NZ X2,EXT5 IF NOT SPECIAL ASCII MODE
04117 M01S03933.xedit12 ---| CSET RESTORE
04118 M01S03934.xedit12 ---| EXT5 MESSAGE (=0),1 CLEAR MESSAGE
04119 M01S03935.xedit12 ---| SA1 OUTPUT+2
04120 M01S03936.xedit12 ---| SA2 A1+B1
04121 M01S03937.xedit12 ---| IX2 X2-X1 COMPARE *IN* AND *OUT*
04122 M01S03938.xedit12 ---| ZR X2,EXT6 IF NOTHING IN BUFFER TO FLUSH
04123 M01S03939.xedit12 ---| WRITER OUTPUT FLUSH BUFFER
04124 M01S03940.xedit12 ---| EXT6 SA1 EXTA
| Line S00014 Modification History |
M01 (Added by) | xedit12 |
Seq # *Modification Id* Act
----------------------------+
04125 M01S00014.xedit12 +++| NZ X2,EXT6 IF NOT SPECIAL ASCII MODE
04126 M01S00015.xedit12 +++| CSET RESTORE RESTORE INITIAL MODE
04127 M01S00016.xedit12 +++| EXT6 RJ FNL ISSUE DAYFILE MESSAGE
04128 M01S00017.xedit12 +++| MESSAGE (=0),1 CLEAR MESSAGE BUFFER
04129 M01S00018.xedit12 +++| SA1 EXTA
04130 M00S03941.xedit +++| NG X1,EXT7 IF ABORT XEDIT
04131 M00S03942.xedit +++| ENDRUN END XEDIT
04132 M00S03943.xedit +++|
04133 M00S03944.xedit +++| EXT7 ABORT ABORT XEDIT
04134 M00S03945.xedit +++|
04135 M00S03946.xedit +++| GFN SPACE 4,20
04136 M00S03947.xedit +++|** GFN - GET FILE NAME.
04137 M00S03948.xedit +++|*
04138 M00S03949.xedit +++|* ENTRY (A5) = ADDRESS OF PRESET CHARACTER.
04139 M00S03950.xedit +++|* (X5) = PRESET CHARACTER.
04140 M00S03951.xedit +++|*
04141 M00S03952.xedit +++|* EXIT (X6) = FILE NAME IF .NE. 0.
04142 M00S03953.xedit +++|* = 0, IF RESERVED OR BAD (NOT INCLUDING SPECIAL).
04143 M00S03954.xedit +++|* (A1) = ADDRESS OF SPECIAL NAME ENTRY (IF SPECIAL).
04144 M00S03955.xedit +++|* 0, THEN NULL.
04145 M00S03956.xedit +++|* 1, THEN OUTPUT.
04146 M00S03957.xedit +++|* (X1) = NON-ZERO IF SPECIAL, RESERVED OR BAD NAME.
04147 M00S03958.xedit +++|* (B4) = 0, IF TOO MANY CHARACTERS IN THE FILE NAME.
04148 M00S03959.xedit +++|* = 1, IF SPECIAL CHARACTERS IN THE FILE NAME.
04149 M00S03960.xedit +++|* (B6) = ERROR MESSAGE ORDINAL (IF ERROR).
04150 M00S03961.xedit +++|* (A5) = ADDRESS OF NEXT NON-BLANK OR SECOND COMMA.
04151 M00S03962.xedit +++|* (X5) = NEXT NON-BLANK CHARACTER OR SECOND COMMA.
04152 M00S03963.xedit +++|*
04153 M00S03964.xedit +++|* USES A - 1, 5.
04154 M00S03965.xedit +++|* X - 1, 3, 4, 5, 6, 7.
04155 M00S03966.xedit +++|* B - 4, 6.
04156 M00S03967.xedit +++|
04157 M00S03968.xedit +++|
04158 M00S03969.xedit +++| GFN7 NG X5,GFN8 IF AT END OF LINE
04159 M00S03970.xedit +++| SB4 X5-1R
04160 M00S03971.xedit +++| ZR B4,GFN8 IF BLANK
04161 M00S03972.xedit +++| NE B4,B1,GFN3.1 IF SPECIAL CHARACTER
04162 M00S03973.xedit +++| GFN8 LX6 6
04163 M00S03974.xedit +++| PL X6,GFN8 IF NOT LEFT JUSTIFIED
04164 M00S03975.xedit +++| BX7 X7-X7 SET NO COMMA FOUND
04165 M00S03976.xedit +++| GFN9 SX4 X5-1R
04166 M00S03977.xedit +++| ZR X4,GFN10 IF BLANK CHARACTER
04167 M00S03978.xedit +++| SX4 X5-1R,
04168 M00S03979.xedit +++| NZ X4,GFN11 IF NOT COMMA
04169 M00S03980.xedit +++| NZ X7,GFN11 IF 2ND COMMA
04170 M00S03981.xedit +++| SX7 1 SET COMMA ENCOUNTERED
04171 M00S03982.xedit +++| GFN10 SA5 A5+1
04172 M00S03983.xedit +++| PL X5,GFN9 IF NOT END OF LINE
04173 M00S03984.xedit +++| GFN11 MX7 1 REMOVE POSITION BIT
04174 M00S03985.xedit +++| BX6 -X7*X6
04175 M00S03986.xedit +++| SB6 B0 INDICATE NO ERROR
04176 M00S03987.xedit +++| LX6 12 LEFT JUSTIFY NAME
04177 M00S03988.xedit +++| SA1 GFNA-1 PRESET TO LIST OF RESERVED NAMES
04178 M00S03989.xedit +++| ZR X6,GFN6 IF NO FILE NAME
04179 M00S03990.xedit +++| GFN12 SA1 A1+B1
04180 M00S03991.xedit +++| ZR X1,GFN IF END OF LIST
04181 M00S03992.xedit +++| BX3 X6-X1
04182 M00S03993.xedit +++| AX4 B1,X3
04183 M00S03994.xedit +++| NZ X4,GFN12 IF NOT THIS FILE NAME
04184 M00S03995.xedit +++| LX3 -1
04185 M00S03996.xedit +++| AX3 59
04186 M00S03997.xedit +++| BX6 X3*X6 IF BAD, WILL ZERO - ELSE LEAVE IT ALONE
04187 M00S03998.xedit +++| SB6 BFN.*100B+3 SET -RESERVED FILE NAME-
04188 M00S03999.xedit +++|
04189 M00S04000.xedit +++| GFN PS ENTRY/EXIT
04190 M00S04001.xedit +++| BX6 X6-X6 CLEAR ASSEMBLY
04191 M00S04002.xedit +++| SB6 B0 SET NO ERROR (END OF LINE)
04192 M00S04003.xedit +++| NG X5,GFN6 IF END OF LINE
04193 M00S04004.xedit +++| SX6 4000B SET POSITION INDICATOR
04194 M00S04005.xedit +++| GFN1 ZR X5,GFN4 IF BAD FILE NAME
04195 M00S04006.xedit +++| SX4 X5-1R9-1
04196 M00S04007.xedit +++| GFN2 PL X4,GFN3 IF NOT ALPHANUMERIC
04197 M00S04008.xedit +++| LX6 6
04198 M00S04009.xedit +++| BX6 X6+X5
04199 M00S04010.xedit +++| NG X6,GFN3.2 IF TOO MANY CHARACTERS
04200 M00S04011.xedit +++| SA5 A5+1
04201 M00S04012.xedit +++| PL X5,GFN1 IF NOT END OF LINE
04202 M00S04013.xedit +++| EQ GFN7 GET FILE NAME
04203 M00S04014.xedit +++|
04204 M00S04015.xedit +++| GFN3 SX3 X5-7601B
04205 M00S04016.xedit +++| NG X3,GFN7 IF LESS THAN 7601B
04206 M00S04017.xedit +++| SX4 X3-1RZ
04207 M00S04018.xedit +++| PL X4,GFN7 IF .GT. LOWER CASE Z
04208 M00S04019.xedit +++| SX5 X3+B1 GET LOWER CASE LETTER
04209 M00S04020.xedit +++| EQ GFN2 TEST CHARACTER
04210 M00S04021.xedit +++|
04211 M00S04022.xedit +++|* BAD FILE NAME PROCESSING.
04212 M00S04023.xedit +++|
04213 M00S04024.xedit +++| GFN3.1 SB4 B1+
04214 M00S04025.xedit +++| EQ GFN4 PROCESS BAD FILE ERROR
04215 M00S04026.xedit +++|
04216 M00S04027.xedit +++| GFN3.2 SB4 B0+
04217 M00S04028.xedit +++| GFN4 SB6 BFN.*100B+1 SET -BAD FILE NAME-
04218 M00S04029.xedit +++| GFN5 SX6 B0 CLEAR FILE NAME
04219 M00S04030.xedit +++| MX1 1 SET ERROR FLAG
04220 M00S04031.xedit +++| EQ GFN RETURN
04221 M00S04032.xedit +++|
04222 M00S04033.xedit +++| GFN6 SB6 BFN.*100B+2 SET -NO FILE NAME-
04223 M00S04034.xedit +++| EQ GFN5 CLEAR FILE NAME
04224 M00S04035.xedit +++|
04225 M00S04036.xedit +++|* RESERVED FILE NAMES.
04226 M00S04037.xedit +++|
04227 M00S04038.xedit +++| GFNA DATA 0LSCRA,0LSCRB,0LSCRC,0LSCRD,5LINPUT
04228 M00S04039.xedit +++| DATA 0LSCRE,0LSCRF,0LSCRG
04229 M00S04040.xedit +++|
04230 M00S04041.xedit +++|* FILES REQUIRING SPECIAL HANDLING.
04231 M00S04042.xedit +++|
04232 M00S04043.xedit +++| GFNB CON 4LNULL+1
04233 M00S04044.xedit +++| CON 6LOUTPUT+1
04234 M00S04045.xedit +++| GFNBL EQU *-GFNB NUMBER OF SPECIAL NAMES
04235 M00S04046.xedit +++| DATA 0 END MARKER
04236 M00S04047.xedit +++| GLN SPACE 4,30
04237 M00S04048.xedit +++|** GLN - GET LINE NUMBER (ADVANCE TO IT).
04238 M00S04049.xedit +++|*
04239 M00S04050.xedit +++|* ENTRY (X1) = LINE NUMBER TO FIND.
04240 M00S04051.xedit +++|* IF SIGN BIT SET, THEN ASSUMED CALLED FROM *MPR*
04241 M00S04052.xedit +++|* WHICH IMPLIES-
04242 M00S04053.xedit +++|* 1. THAT THE VERIFY FLAG IS ALREADY SET UP.
04243 M00S04054.xedit +++|* 2. THAT X1 CONTAINS THE ABSOLUTE LINE POSITION.
04244 M00S04055.xedit +++|* 3. THAT THE FILE IS ALREADY REWOUND IF NEEDED.
04245 M00S04056.xedit +++|*
04246 M00S04057.xedit +++|* EXIT (X6) = 0 IF LINE NUMBER FOUND.
04247 M00S04058.xedit +++|*
04248 M00S04059.xedit +++|* USES A - 1, 2, 6, 7.
04249 M00S04060.xedit +++|* X - 1, 2, 3, 6, 7.
04250 M00S04061.xedit +++|*
04251 M00S04062.xedit +++|* CALLS RDF, TOP, WTF.
04252 M00S04063.xedit +++|*
04253 M00S04064.xedit +++|* ROUTINE WILL REWIND THE FILE IF THE LINE NUMBER LIES
04254 M00S04065.xedit +++|* BEFORE THE CURRENT POINTER POSITION. IF THE USER
04255 M00S04066.xedit +++|* IS IN *WHERE* MODE, THIS ROUTINE WILL POSITION
04256 M00S04067.xedit +++|* THE FILE TO THE SPECIFIED LINE.
04257 M00S04068.xedit +++|*
04258 M00S04069.xedit +++|* NOTES UNLESS CALLED FROM *MPR*, THIS ROUTINE WILL
04259 M00S04070.xedit +++|* AUTOMATICALLY CANCEL THE VERIFICATION OF EOR/EOF,S
04260 M00S04071.xedit +++|* IF THE FILE NEEDS TO BE RESET. THIS IS DONE BY
04261 M00S04072.xedit +++|* SHIFTING *VERIFY* RIGHT AND THEN CLEARING THE SIGN
04262 M00S04073.xedit +++|* BIT (VERIFY OFF) - WHEN EXITING *GLN*, BIT 58 IS
04263 M00S04074.xedit +++|* SHIFTED TO BIT 59 (RESTORING PREVIOUS VERIFICATION).
04264 M00S04075.xedit +++|*
04265 M00S04076.xedit +++|
04266 M00S04077.xedit +++|
04267 M00S04078.xedit +++| GLN9 SA1 VERIFY RESTORE OLD VERIFICATION STATUS
04268 M00S04079.xedit +++| LX7 B1,X1
04269 M00S04080.xedit +++| SA7 A1
04270 M00S04081.xedit +++|
04271 M00S04082.xedit +++|
04272 M00S04083.xedit +++| GLN PS ENTRY/EXIT
| Line S04084 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
04273 M01S04084.xedit21 ---| SX6 X1 MOVE NUMBER (STRIP OFF SIGN BIT)
| Line S00066 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
04274 M01S00066.xedit21 +++| MX6 1
04275 M01S00067.xedit21 +++| BX6 -X6*X1 STRIP OFF SIGN BIT
04276 M00S04085.xedit +++| MX7 0
04277 M00S04086.xedit +++| SA6 GLNA SAVE LINE TO FIND
04278 M00S04087.xedit +++| SA7 GLNB SAVE *NOT REWOUND* FLAG
04279 M00S04088.xedit +++| ZR X6,GLN IF NO LINE NUMBER TO FIND
04280 M00S04089.xedit +++| NG X1,GLN7 IF CALLED FROM *MPR*
04281 M00S04090.xedit +++| SA2 VERIFY
04282 M00S04091.xedit +++| AX2 60 EXTEND FLAG STATUS
04283 M00S04092.xedit +++| BX6 X2
04284 M00S04093.xedit +++| SA6 A2+
04285 M00S04094.xedit +++| SA1 LNFLAG
04286 M00S04095.xedit +++| PL X1,GLN7 IF PROCESSING AS IWHERE.
04287 M00S04096.xedit +++| GLN1 SA1 E.LMOD
04288 M00S04097.xedit +++| NZ X1,GLN3 IF LINE IS UNPACKED
04289 M00S04098.xedit +++| SA1 E.LINE GET LINE NUMBER
04290 M00S04099.xedit +++| BX6 X6-X6 CLEAR ASSEMBLY
04291 M00S04100.xedit +++| MX7 -6 CHARACTER MASK
04292 M00S04101.xedit +++|
04293 M00S04102.xedit +++|* ASSEMBLE LINE NUMBER FROM PACKED WORD.
04294 M00S04103.xedit +++|
04295 M00S04104.xedit +++| GLN2 LX1 6
04296 M00S04105.xedit +++| BX2 -X7*X1 GET CHARACTER
04297 M00S04106.xedit +++| ZR X2,GLN5 IF END OF NUMBER
04298 M00S04107.xedit +++| SX3 X2-1R9-1 NEGATIVE IF OK
04299 M00S04108.xedit +++| SX2 X2-1R0 POSITIVE IF OK
04300 M00S04109.xedit +++| BX1 X7*X1 REMOVE PRESENT CHARACTER
04301 M00S04110.xedit +++| BX3 -X2*X3
04302 M00S04111.xedit +++| PL X3,GLN5 IF CHARACTER IS NOT NUMBER
04303 M00S04112.xedit +++| BX3 X6
04304 M00S04113.xedit +++| LX6 2 *4
04305 M00S04114.xedit +++| IX6 X6+X3 *5
04306 M00S04115.xedit +++| LX6 1 *10
04307 M00S04116.xedit +++| IX6 X6+X2 ADD NEW CHARACTER
04308 M00S04117.xedit +++| EQ GLN2 ASSEMBLE NEXT CHARACTER
04309 M00S04118.xedit +++|
04310 M00S04119.xedit +++|* ASSEMBLE LINE FROM STRING.
04311 M00S04120.xedit +++|
04312 M00S04121.xedit +++| GLN3 SA1 E.STR
04313 M00S04122.xedit +++| BX6 X6-X6 CLEAR ASSEMBLY
04314 M00S04123.xedit +++| MX7 -10 CHARACTER COUNT
04315 M00S04124.xedit +++| GLN4 NG X1,GLN5 IF END OF LINE
04316 M00S04125.xedit +++| SX3 X2-1R9-1
04317 M00S04126.xedit +++| SX2 X2-1R0
04318 M00S04127.xedit +++| AX7 1 DECREMENT CHARACTER COUNT
04319 M00S04128.xedit +++| BX3 -X2*X3 NEGATIVE IF NUMBER
04320 M00S04129.xedit +++| PL X3,GLN5 IF NOT A NUMBER
04321 M00S04130.xedit +++| BX3 X6
04322 M00S04131.xedit +++| LX6 2 *4
04323 M00S04132.xedit +++| IX6 X6+X3 *5
04324 M00S04133.xedit +++| SA1 A1+B1 NEXT CHAR.
04325 M00S04134.xedit +++| LX6 1
04326 M00S04135.xedit +++| IX6 X6+X2 ADD NEXT NUMBER
04327 M00S04136.xedit +++| NZ X7,GLN4 IF NOT 10 CHARACTERS
04328 M00S04137.xedit +++|
04329 M00S04138.xedit +++|* CHECK TO SEE IF GOT LINE NUMBER.
04330 M00S04139.xedit +++|
04331 M00S04140.xedit +++| GLN5 SA1 GLNA
04332 M00S04141.xedit +++| IX6 X6-X1
04333 M00S04142.xedit +++| PL X6,GLN6 IF ON OR PAST NUMBER
04334 M00S04143.xedit +++| RJ WTF
04335 M00S04144.xedit +++| RJ RDF
04336 M00S04145.xedit +++| EQ GLN1 CHECK NEXT LINE
04337 M00S04146.xedit +++|
04338 M00S04147.xedit +++| GLN6 ZR X6,GLN9 IF FOUND LINE NUMBER
04339 M00S04148.xedit +++| SA2 GLNB
04340 M00S04149.xedit +++| NZ X2,GLN9 IF RESET FILE AT LEAST ONCE
04341 M00S04150.xedit +++| MX6 -1
04342 M00S04151.xedit +++| SA6 A2
04343 M00S04152.xedit +++| RJ TOP
04344 M00S04153.xedit +++| SA1 VERIFY
04345 M00S04154.xedit +++| MX6 1
04346 M00S04155.xedit +++| BX6 -X6*X1 CLEAR EOR/EOF VERIFICATION
04347 M00S04156.xedit +++| SA6 A1
04348 M00S04157.xedit +++| EQ GLN1 SEARCH FROM TOP OF FILE
04349 M00S04158.xedit +++|
04350 M00S04159.xedit +++|* IF REALLY IN *IWHERE* MODE.
04351 M00S04160.xedit +++|
04352 M00S04161.xedit +++| GLN7 SA1 GLNA
04353 M00S04162.xedit +++| SA2 IWHERE
04354 M00S04163.xedit +++| IX6 X2-X1
04355 M00S04164.xedit +++| PL X6,GLN8 IF AT OR PAST POSITION
04356 M00S04165.xedit +++| RJ WTF
04357 M00S04166.xedit +++| RJ RDF
04358 M00S04167.xedit +++| EQ GLN7 GET NEXT LINE
04359 M00S04168.xedit +++|
04360 M00S04169.xedit +++| GLN8 ZR X6,GLN9 IF FOUND
04361 M00S04170.xedit +++| RJ TOP RESET AND RE-TRY
04362 M00S04171.xedit +++| SA1 VERIFY
04363 M00S04172.xedit +++| MX6 1
04364 M00S04173.xedit +++| BX6 -X6*X1 CLEAR AUTO VERIFICATION
04365 M00S04174.xedit +++| SA6 A1
04366 M00S04175.xedit +++| EQ GLN7 GET NEXT LINE
04367 M00S04176.xedit +++|
04368 M00S04177.xedit +++| GLNA DATA 0 LINE NUMBER TO FIND
04369 M00S04178.xedit +++| GLNB DATA 0 RESET FILE FLAG
04370 M00S04179.xedit +++| ICH SPACE 4,10
04371 M00S04180.xedit +++|** ICH - INITIALIZE CHARACTERS.
04372 M00S04181.xedit +++|*
04373 M00S04182.xedit +++|* ENTRY (A1) = FWA OF PARAMETER LIST.
04374 M00S04183.xedit +++|* (X1) = FIRST WORD OF PARAMETERS.
04375 M00S04184.xedit +++|*
04376 M00S04185.xedit +++|* EXIT CHARACTERS LOADED INTO PROPER CELLS.
04377 M00S04186.xedit +++|*
04378 M00S04187.xedit +++|* USES A - 1, 2, 3, 6.
04379 M00S04188.xedit +++|* X - 1, 2, 3, 6.
04380 M00S04189.xedit +++|* B - 6, 7.
04381 M00S04190.xedit +++|
04382 M00S04191.xedit +++|
04383 M00S04192.xedit +++| ICH1 SA2 CHARSFT OBTAIN SHIFT VALUE
04384 M00S04193.xedit +++| SB6 X2
04385 M00S04194.xedit +++| ICH2 SA2 X1 GET REPLACEMENT CHARACTER
04386 M00S04195.xedit +++| UX1,B7 X1 GET SHIFT COUNT
04387 M00S04196.xedit +++| AX2 B6
04388 M00S04197.xedit +++| AX1 18
04389 M00S04198.xedit +++| SX2 X2 REMOVE EXCESS CHARACTER
04390 M00S04199.xedit +++| SA3 X1 WORD TO MODIFY
04391 M00S04200.xedit +++| LX2 B7 SHIFT INTO POSITION
04392 M00S04201.xedit +++| SA1 A1+B1
04393 M00S04202.xedit +++| BX6 X3-X2 ADD CHARACTERS
04394 M00S04203.xedit +++| SA6 A3
04395 M00S04204.xedit +++| NZ X1,ICH2 IF MORE TO LIST
04396 M00S04205.xedit +++|
04397 M00S04206.xedit +++| ICH PS ENTRY/EXIT
04398 M00S04207.xedit +++| NZ X1,ICH1 IF THERE IS A TABLE
04399 M00S04208.xedit +++| EQ ICH RETURN
04400 M00S04209.xedit +++|
04401 M00S04210.xedit +++| IEM SPACE 4,15
04402 M00S04211.xedit +++|** IEM - ISSUE EXPLAIN ERROR MESSAGE.
04403 M00S04212.xedit +++|*
04404 M00S04213.xedit +++|* ENTRY (B2) = ERROR MESSAGE ORDINAL IN THE FOLLOWING FORMS -
04405 M00S04214.xedit +++|* FORM 1 - 18/PRIMARY ORDINAL.
04406 M00S04215.xedit +++|* FORM 2 - 13/PRIMARY ORDINAL,5/SECONDARY ORDINAL.
04407 M00S04216.xedit +++|*
04408 M00S04217.xedit +++|* EXIT (EXPLAIN) = UPDATED ERROR MESSAGE ENTRIES.
04409 M00S04218.xedit +++|* MESSAGE ISSUED.
04410 M00S04219.xedit +++|*
04411 M00S04220.xedit +++|* USES A - 1, 4, 6.
04412 M00S04221.xedit +++|* X - 1, 4, 6.
04413 M00S04222.xedit +++|* B - 2.
04414 M00S04223.xedit +++|*
04415 M00S04224.xedit +++|* MACROS WRITEC.
04416 M00S04225.xedit +++|
04417 M00S04226.xedit +++|
04418 M00S04227.xedit +++| IEM PS ENTRY/EXIT
04419 M00S04228.xedit +++| SA1 EXPLAIN
04420 M00S04229.xedit +++| SX4 B2
04421 M00S04230.xedit +++| AX4 6
04422 M00S04231.xedit +++| LX1 -12 SHIFT EXPLAIN WORD
04423 M00S04232.xedit +++| NZ X4,IEM1 IF GOTTEN PRIMARY
04424 M00S04233.xedit +++| SX4 B2
04425 M00S04234.xedit +++| IEM1 PX6 B2,X1 PUT NEW EXPLAIN ENTRY
04426 M00S04235.xedit +++| SA6 A1
04427 M00S04236.xedit +++| SA4 MESSAGE+X4 GET MESSAGE STARTING ADDR
04428 M00S04237.xedit +++| WRITEC OUTPUT,X4 ISSUE MESSAGE
04429 M00S04238.xedit +++| EQ IEM RETURN
04430 M00S04239.xedit +++|
04431 M00S04240.xedit +++| IFM SPACE 4,15
04432 M00S04241.xedit +++|** IFM - ISSUE FILE MESSAGE.
04433 M00S04242.xedit +++|*
04434 M00S04243.xedit +++|* ENTRY (X1) = FILE NAME TO USE (LOWER 18 CAN BE GARBAGE).
04435 M00S04244.xedit +++|* (B2) = ERROR MESSAGE (SEE *IEM* FOR FORMATS).
04436 M00S04245.xedit +++|*
04437 M00S04246.xedit +++|* EXIT (EXPLAIN) = UPDATED EXPLAIN ERROR MESSAGE ENTRIES.
04438 M00S04247.xedit +++|* MESSAGE ISSUED.
04439 M00S04248.xedit +++|*
04440 M00S04249.xedit +++|* USES A - 2, 3, 4, 6.
04441 M00S04250.xedit +++|* X - 1, 2, 3, 4, 6, 7.
04442 M00S04251.xedit +++|* B - 3.
04443 M00S04252.xedit +++|*
04444 M00S04253.xedit +++|* MACROS WRITEC.
04445 M00S04254.xedit +++|
04446 M00S04255.xedit +++|
04447 M00S04256.xedit +++| IFM PS ENTRY/EXIT
04448 M00S04257.xedit +++| SX4 B2
04449 M00S04258.xedit +++| AX4 6
04450 M00S04259.xedit +++| SA2 EXPLAIN
04451 M00S04260.xedit +++| LX2 -12
04452 M00S04261.xedit +++| NZ X4,IFM1 IF NOT LONGER FORM
04453 M00S04262.xedit +++| SX4 B2
04454 M00S04263.xedit +++| IFM1 SA3 MESSAGE+X4 GET MESSAGE POINTER
04455 M00S04264.xedit +++| PX6 B2,X2
04456 M00S04265.xedit +++| SA3 X3 GET FIRST WORD OF MESSAGE
04457 M00S04266.xedit +++| MX7 6
04458 M00S04267.xedit +++| BX7 X7*X3 GET UPPER CHARACTER
04459 M00S04268.xedit +++| MX2 42
04460 M00S04269.xedit +++| SA6 A2
04461 M00S04270.xedit +++| SB3 60-12
04462 M00S04271.xedit +++| ZR X7,IFM2 IF CHARACTER IS 00B (FIRST PART OF 0007B)
04463 M00S04272.xedit +++| BX6 X7
04464 M00S04273.xedit +++| LX7 2
04465 M00S04274.xedit +++| SB3 60-6
04466 M00S04275.xedit +++| BX7 X7*X6 NEGATIVE IF UPPER CHARACTER = 55B (BLANK)
04467 M00S04276.xedit +++| NG X7,IFM2 IF BATCH STYLE MESSAGE
04468 M00S04277.xedit +++| SB3 B0
04469 M00S04278.xedit +++| IFM2 BX1 X2*X1 REMOVE LOWER 18 BITS
04470 M00S04279.xedit +++| SX6 B1
04471 M00S04280.xedit +++| SA4 =01010101010101010101B
04472 M00S04281.xedit +++| IX6 X1-X6 SPACE FILL FILE NAME
04473 M00S04282.xedit +++| BX6 X6-X1
04474 M00S04283.xedit +++| AX6 6
04475 M00S04284.xedit +++| BX6 X4*X6
04476 M00S04285.xedit +++| BX7 X6
04477 M00S04286.xedit +++| SA4 =10H
04478 M00S04287.xedit +++| LX6 5
04479 M00S04288.xedit +++| IX7 X6-X7
04480 M00S04289.xedit +++| BX6 X6+X7
04481 M00S04290.xedit +++| BX4 X6*X4 MASK BLANKS FOR LOWER BITS
04482 M00S04291.xedit +++| LX7 B3,X2
04483 M00S04292.xedit +++| BX3 -X7*X3 REMOVE EXISTING FILE NAME
04484 M00S04293.xedit +++| BX4 X4*X2 REMOVE LOWER 18 BITS OF BLANKS
04485 M00S04294.xedit +++| IX4 X4+X1 MERGE BLANKS WITH FILENAME
04486 M00S04295.xedit +++| LX4 B3 POSITION NAME
04487 M00S04296.xedit +++| BX6 X4+X3 MERGE INTO MESSAGE
04488 M00S04297.xedit +++| SA6 A3
04489 M00S04298.xedit +++| WRITEC OUTPUT,A6 ISSUE MESSAGE
04490 M00S04299.xedit +++| EQ IFM RETURN
04491 M00S04300.xedit +++|
04492 M00S04301.xedit +++| ITM SPACE 4,15
04493 M00S04302.xedit +++|** ITM - ISSUE TRUNCATION MESSAGE.
04494 M00S04303.xedit +++|*
04495 M00S04304.xedit +++|* ENTRY (IWHERE) = LINE POSITION.
04496 M00S04305.xedit +++|*
04497 M00S04306.xedit +++|* EXIT MESSAGE ISSUED.
04498 M00S04307.xedit +++|*
04499 M00S04308.xedit +++|* USES A - 1, 6.
04500 M00S04309.xedit +++|* X - 1, 6.
04501 M00S04310.xedit +++|* B - 2.
04502 M00S04311.xedit +++|*
04503 M00S04312.xedit +++|* CALLS CDD, IEM.
04504 M00S04313.xedit +++|
04505 M00S04314.xedit +++|
04506 M00S04315.xedit +++| ITM PS ENTRY/EXIT
04507 M00S04316.xedit +++| SA1 IWHERE
04508 M00S04317.xedit +++| RJ CDD
04509 M00S04318.xedit +++| SA1 MESSAGE+TRUNC.
04510 M00S04319.xedit +++| MX6 -12
04511 M00S04320.xedit +++| BX6 X6*X4 SET EOL BYTE
04512 M00S04321.xedit +++| SB2 TRUNC.
04513 M00S04322.xedit +++| SA6 X1+2 PLACE POSITION (CHANGE MESSAGE)
04514 M00S04323.xedit +++| RJ IEM
04515 M00S04324.xedit +++| EQ ITM RETURN
04516 M00S04325.xedit +++|
04517 M00S04326.xedit +++| PCN SPACE 4,10
04518 M00S04327.xedit +++|** PCN - PRINT COLUMN NUMBERS.
04519 M00S04328.xedit +++|*
04520 M00S04329.xedit +++|* ENTRY NONE.
04521 M00S04330.xedit +++|*
04522 M00S04331.xedit +++|* EXIT COLUMN NUMBERS PRINTED.
04523 M00S04332.xedit +++|*
04524 M00S04333.xedit +++|* MACROS WRITEC.
04525 M00S04334.xedit +++|
04526 M00S04335.xedit +++|
04527 M00S04336.xedit +++| PCN PS ENTRY/EXIT
04528 M00S04337.xedit +++| WRITEC OUTPUT,PCNA
04529 M00S04338.xedit +++| WRITEC X2,PCNB
04530 M00S04339.xedit +++| EQ PCN RETURN
04531 M00S04340.xedit +++|
04532 M00S04341.xedit +++| PCNA CON 3H 0,2H 1,2H 2,2H 3,2H 4,2H 5,2L 6
04533 M00S04342.xedit +++| PCNB BSS 0
04534 M00S04343.xedit +++| DATA H* 12345678901234567890123456789012345678*
04535 M00S04344.xedit +++| DATA C*90123456789012345678901234567890*
04536 M00S04345.xedit +++| PCNAL EQU *-PCNA
04537 M00S04346.xedit +++| ERD SPACE 4,15
04538 M00S04347.xedit +++|** ERD - PROCESS END OF FILE READ.
04539 M00S04348.xedit +++|*
04540 M00S04349.xedit +++|* ENTRY AT *ERD*.
04541 M00S04350.xedit +++|* AT *ERD1*.
04542 M00S04351.xedit +++|* AT *ERD5*.
04543 M00S04352.xedit +++|*
04544 M00S04353.xedit +++|* EXIT TO *TOP*.
| Line S00008 Modification History |
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04545 M01S00008.xedit20 +++|* TO *TOP1.1* IF IN LOOK MODE.
04546 M00S04354.xedit +++|*
04547 M00S04355.xedit +++|* USES A - 1, 2, 4, 6, 7.
04548 M00S04356.xedit +++|* X - 2, 4, 6, 7.
| Line S00009 Modification History |
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04549 M01S00009.xedit20 +++|* B - 6.
04550 M00S04357.xedit +++|*
| Line S04358 Modification History |
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04551 M01S04358.xedit20 ---|* CALL RDF, TOP.
| Line S00010 Modification History |
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04552 M01S00010.xedit20 +++|* CALLS RDF.
04553 M00S04359.xedit +++|*
04554 M00S04360.xedit +++|* MACROS READ, RECALL, REWIND, WRITER.
04555 M00S04361.xedit +++|
04556 M00S04362.xedit +++|
| Line S04363 Modification History |
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04557 M01S04363.xedit20 ---| ERD PS ENTRY/EXIT
| Line S00011 Modification History |
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04558 M01S00011.xedit20 +++| ERD PS ENTRY
04559 M00S04364.xedit +++| SA1 *-1
04560 M00S04365.xedit +++| MX7 0
04561 M00S04366.xedit +++| BX6 X1 COPY ENTRY WORD TO EXIT WORD
04562 M00S04367.xedit +++| SA7 DF NO MORE DELETES OF EOF-S
04563 M00S04368.xedit +++| SA6 TOP EXIT WORD
04564 M00S04369.xedit +++| SA7 DR NO MORE DELETES OF EOR-S
| Line S00012 Modification History |
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04565 M01S00012.xedit20 +++| SA4 UPDATE
04566 M01S00013.xedit20 +++| PL X4,TOP1.1 IF IN LOOK MODE
04567 M00S04370.xedit +++|
04568 M00S04371.xedit +++|* ENTRY FROM *TOP*.
04569 M00S04372.xedit +++|
04570 M00S04373.xedit +++| ERD1 SA2 RC
04571 M00S04374.xedit +++| NZ X2,ERD2 IF NO DATA READ
04572 M00S04375.xedit +++| WRITER E.OUT
04573 M00S04376.xedit +++| ERD2 SA4 E.IN
04574 M00S04377.xedit +++| LX4 59-9
04575 M00S04378.xedit +++| PL X4,ERD9 IF EOI NOT SET
04576 M00S04379.xedit +++| REWIND E.OUT
04577 M00S04380.xedit +++| REWIND E.IN,RECALL
04578 M00S04381.xedit +++| RECALL E.OUT
04579 M00S04382.xedit +++| SA1 FS CHECK READ FILE NAME STATUS
04580 M00S04383.xedit +++| NG X1,ERD4 IF NAME TOP1
04581 M00S04384.xedit +++| SA4 E.OUT
| Line S04385 Modification History |
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04582 M01S04385.xedit20 ---| SA1 TOPA
| Line S00014 Modification History |
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04583 M01S00014.xedit20 +++| SA1 ERDA
04584 M00S04386.xedit +++| MX2 42
04585 M00S04387.xedit +++| BX6 X4-X1
04586 M00S04388.xedit +++| BX6 X2*X6 REMOVE UNWANTED
04587 M00S04389.xedit +++| NZ X6,ERD3 IF NOT A MATCH
| Line S04390 Modification History |
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04588 M01S04390.xedit20 ---| SA1 A1+B1 GET OTHER SCRATCH NAME
| Line S00015 Modification History |
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04589 M01S00015.xedit20 +++| SA1 A1+1 GET OTHER SCRATCH NAME
04590 M00S04391.xedit +++| ERD3 BX6 X1
04591 M00S04392.xedit +++| MX7 60
04592 M00S04393.xedit +++| SA6 E.IN
04593 M00S04394.xedit +++| SA7 FS
04594 M00S04395.xedit +++| REWIND A6,RECALL REWIND FILE TO BE WRITTEN ON
04595 M00S04396.xedit +++| ERD4 SA1 E.OUT SWITCH FILE NAMES IN FETS
04596 M00S04397.xedit +++| SA2 E.IN
04597 M00S04398.xedit +++| BX6 X1
04598 M00S04399.xedit +++| BX7 X2
04599 M00S04400.xedit +++| SA6 A2
04600 M00S04401.xedit +++| SA7 A1
04601 M00S04402.xedit +++|
04602 M00S04403.xedit +++|* ENTRY FROM *TOP*.
04603 M00S04404.xedit +++|
04604 M00S04405.xedit +++| ERD5 SA1 INDEX
04605 M00S04406.xedit +++| SX6 B1 RESET *IWHERE*
04606 M00S04407.xedit +++| MX7 60
04607 M00S04408.xedit +++| SA6 IWHERE
04608 M00S04409.xedit +++| SA7 NOMOD SET NO MODIFICATIONS
04609 M00S04410.xedit +++| SX1 X1-.QUIT
04610 M00S04411.xedit +++| ZR X1,ERD6 IF QUIT COMMAND
04611 M00S04412.xedit +++| SX1 X1+.QUIT-.END
04612 M00S04413.xedit +++| ZR X1,ERD6 IF END COMMAND
04613 M00S04414.xedit +++| SX1 X1+.END-.FILE
04614 M00S04415.xedit +++| NZ X1,ERD7 IF NOT FILE COMMAND
04615 M00S04416.xedit +++| ERD6 RECALL E.IN
04616 M00S04417.xedit +++| EQ TOP EXIT
04617 M00S04418.xedit +++|
04618 M00S04419.xedit +++| ERD7 READ E.IN
04619 M00S04420.xedit +++| MX6 1
04620 M00S04421.xedit +++| SA6 RC SET *NO DATA READ* FLAG
04621 M00S04422.xedit +++| SA1 INDEX
04622 M00S04423.xedit +++| SB6 X1-.TOPNUL
04623 M00S04424.xedit +++| ZR B6,ERD8 IF TOPNULL COMMAND
04624 M00S04425.xedit +++| RJ RDF
04625 M00S04426.xedit +++| EQ TOP EXIT
04626 M00S04427.xedit +++|
04627 M00S04428.xedit +++| ERD8 SX6 2R
04628 M00S04429.xedit +++| BX7 X7-X7
04629 M00S04430.xedit +++| LX6 -12
04630 M00S04431.xedit +++| SA7 E.LMOD SET NO LINE MODIFICATION
04631 M00S04432.xedit +++| SA6 E.LINE SET BLANK LINE AS EXISTING
04632 M00S04433.xedit +++| SA7 E.CMODE SET CURRENT MODE
04633 M00S04434.xedit +++| EQ TOP EXIT
04634 M00S04435.xedit +++|
04635 M00S04436.xedit +++|* XEDIT SHOULD NEVER JUMP TO HERE.
04636 M00S04437.xedit +++|
04637 M00S04438.xedit +++| ERD9 SB6 =C* XEDIT INTERNAL ERROR (ERD). NOTIFY CONSULTANT.*
04638 M00S04439.xedit +++| EQ ABT ABORT, EXIT
04639 M00S04440.xedit +++|
| Line S04441 Modification History |
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04640 M01S04441.xedit20 ---| TOPA CON 0LSCRA+1
| Line S00016 Modification History |
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04641 M01S00016.xedit20 +++| ERDA CON 0LSCRA+1
04642 M00S04442.xedit +++| CON 0LSCRB+1
| Line S04443 Modification History |
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04643 M01S04443.xedit20 ---| TOPB BSS 1
| Line S00017 Modification History |
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
04644 M01S00017.xedit20 +++| ERDB BSS 1
04645 M00S04444.xedit +++| LOC SPACE 4,15
04646 M00S04445.xedit +++|** LOC - LOCATE STRING SPECIFIED.
04647 M00S04446.xedit +++|*
04648 M00S04447.xedit +++|* ENTRY (X3) = NUMBER OF CHARACTERS IN LINE.
04649 M00S04448.xedit +++|* (X4) = EDIT LINE STARTING ADDRESS - 1.
04650 M00S04449.xedit +++|* (X5) = FIRST CHARACTER OF EDIT LINE.
04651 M00S04450.xedit +++|* (B4) = DESIRED STARTING ADDRESS - 1 FOR SEARCH
04652 M00S04451.xedit +++|* (E.STR).
04653 M00S04452.xedit +++|* (LOCA - LOCC) = PARAMETERS.
04654 M00S04453.xedit +++|* (SPCP) = NEGATIVE IF WINDOW WAS SPECIFIED.
04655 M00S04454.xedit +++|*
04656 M00S04455.xedit +++|* EXIT (B4) = FWA OF MATCH (IN E.STR).
04657 M00S04456.xedit +++|* (B5) = LWA +1 OF MATCH (IN E.STR).
04658 M00S04457.xedit +++|* 0, IF STRING NOT FOUND.
04659 M00S04458.xedit +++|*
04660 M00S04459.xedit +++|* USES A- 1, 2, 3, 4, 7.
04661 M00S04460.xedit +++|* X- 1, 2, 3, 4, 6, 7.
04662 M00S04461.xedit +++|* B- 2, 3, 4, 5, 6, 7.
04663 M00S04462.xedit +++|*
04664 M00S04463.xedit +++|* CALLS LST.
04665 M00S04464.xedit +++|
04666 M00S04465.xedit +++|
04667 M00S04466.xedit +++| LOC9 SB5 0 SET STRING NOT FOUND
04668 M00S04467.xedit +++|
04669 M00S04468.xedit +++| LOC PS ENTRY/EXIT
04670 M00S04469.xedit +++|
04671 M00S04470.xedit +++|* THERE ARE THREE OPTIONS, EACH SET BY CODE MODIFICATION.
04672 M00S04471.xedit +++|* THE THREE WORDS ARE GIVEN BELOW.
04673 M00S04472.xedit +++|
04674 M00S04473.xedit +++| LOC RMT
04675 M00S04474.xedit +++|
04676 M00S04475.xedit +++| LOCD SB5 1 THERE ARE NO STRINGS
04677 M00S04476.xedit +++| EQ LOC EXIT
04678 M00S04477.xedit +++|
04679 M00S04478.xedit +++| LOCE SA4 LOCA NORMAL STRING SEARCH REQUIRED
04680 M00S04479.xedit +++| SA3 E.STR-1
04681 M00S04480.xedit +++| LOCF EQ LOC8 NULL STRING ROUTINE
04682 M00S04481.xedit +++|- VFD *P/0 SPECIAL FLAG (SEE CHS)
04683 M00S04482.xedit +++| RMT
04684 M00S04483.xedit +++|
04685 M00S04484.xedit +++| BSSZ 1 ALLOCATE SPACE FOR WORD
04686 M00S04485.xedit +++| SB7 X4+ LEFTMOST STARTING ADDRESS - 1
04687 M00S04486.xedit +++| SB2 X3+E.STR ADDRESS OF END OF LINE
04688 M00S04487.xedit +++| SA1 TRIM
04689 M00S04488.xedit +++| SA2 SPCP
04690 M00S04489.xedit +++| NG X1,LOC1.1 IF *TRIM* FLAG SET
04691 M00S04490.xedit +++| PL X2,LOC1.1 IF WINDOW NOT SPECIFIED
04692 M00S04491.xedit +++|
04693 M00S04492.xedit +++|* BLANK FILL LINE OUT TO THE SPECIFIED WINDOW.
04694 M00S04493.xedit +++|
04695 M00S04494.xedit +++| SA2 RTWD SET TO RIGHT WINDOW MARGIN
04696 M00S04495.xedit +++| ZR X2,LOC1.1 IF WINDOW NOT SPECIFIED
04697 M00S04496.xedit +++| SB3 X3 SET TO LENGTH OF LINE
04698 M00S04497.xedit +++| SB6 X2
04699 M00S04498.xedit +++| GE B3,B6,LOC1.1 IF LINE IS LONGER THAN WINDOW
04700 M00S04499.xedit +++| SB3 B6-B3
04701 M00S04500.xedit +++| SB3 B2+B3
04702 M00S04501.xedit +++| SX6 1R SET TO BLANK
04703 M00S04502.xedit +++| LOC1 SA6 B2
04704 M00S04503.xedit +++| SB2 B2+B1
04705 M00S04504.xedit +++| NE B2,B3,LOC1 IF NOT FILLED TO RIGHT WINDOW
04706 M00S04505.xedit +++| MX6 2 SET END OF LINE INDICATOR
04707 M00S04506.xedit +++| SA6 B2
04708 M00S04507.xedit +++| LOC1.1 SA2 A4+B1 1/TRIM,11/LENGTH,12/,18/COMPARE,18/R.MAR
04709 M00S04508.xedit +++| AX4 18
04710 M00S04509.xedit +++| GE B7,B4,LOC1.2 IF LEFT START = MAX(DESIRED,WINDOW)
04711 M00S04510.xedit +++| SB7 B4
04712 M00S04511.xedit +++| LOC1.2 UX6,B6 X2 STRING LENGTH, X6 = TRIM FLAG
04713 M00S04512.xedit +++| SA1 B7 SET STARTING CHARACTER-1 (E.STR)
04714 M00S04513.xedit +++| AX2 18
04715 M00S04514.xedit +++| SB3 X6 RIGHT MARGIN (VIA WINDOW/ANCHOR)
04716 M00S04515.xedit +++| PL X4,LOC2 IF NOT ANCHOR MODE
04717 M00S04516.xedit +++| SB3 B3+B6 ADD LENGTH OF STRING
04718 M00S04517.xedit +++| SB3 B3-B1 COMPENSATE FOR EXTRA WORD IN ADDITION
04719 M00S04518.xedit +++| LOC2 SA2 X2 GET STARTING ADDR OF COMPARE STRING
04720 M00S04519.xedit +++| GE B2,B3,LOC3 IF RIGHT MARGIN NOT PAST LINE WIDTH
04721 M00S04520.xedit +++| SB3 B2 RESET TO LINE WIDTH
04722 M00S04521.xedit +++| LOC3 LX7 X2
04723 M00S04522.xedit +++| SA7 B2+B1 SET COMPARE (IMMEDIATELY AFTER EOL)
04724 M00S04523.xedit +++| SB5 B5-B5 SET FAILURE
04725 M00S04524.xedit +++| SX7 X4 PUT GLOBAL CHARACTER
04726 M00S04525.xedit +++| ZR B6,LOC4 IF NO STRING
04727 M00S04526.xedit +++| RJ LST LOCATE STRING
04728 M00S04527.xedit +++| NZ B7,LOC IF STRING NOT FOUND (FAILURE)
04729 M00S04528.xedit +++| SB4 A1 SET FIRST CHARACTER OF MATCH
04730 M00S04529.xedit +++| SB5 A1+B6 SET LWA+1
04731 M00S04530.xedit +++| SB7 B5-1
04732 M00S04531.xedit +++| SX4 0 SET NO ANCHOR
04733 M00S04532.xedit +++| LOC4 SA3 LOCC 1/TRIM,11/LENGTH,30/STARTING,18/MARGIN
04734 M00S04533.xedit +++| UX6,B6 X3 (X3) = TRIM, (B6) = LENGTH
04735 M00S04534.xedit +++| AX6 18
04736 M00S04535.xedit +++| NG X4,LOC5 IF ANCHOR (AND NULL FIRST STRING)
04737 M00S04536.xedit +++| SB3 X3+ RESET RIGHT MARGIN
04738 M00S04537.xedit +++| LOC5 SA2 X6
04739 M00S04538.xedit +++| GE B2,B3,LOC6 IF TO SET TO MINIMUM (MARGIN,LINE WIDTH)
04740 M00S04539.xedit +++| SB3 B2
04741 M00S04540.xedit +++| LOC6 ZR B6,LOC IF NO SECOND STRING
04742 M00S04541.xedit +++| SX4 X7
04743 M00S04542.xedit +++| LX7 X2
04744 M00S04543.xedit +++| SA7 B2+B1 SET COMPARE AFTER END OF STRING
04745 M00S04544.xedit +++| SX7 X4 RESTORE GLOBAL CHARACTER
04746 M00S04545.xedit +++| SA1 B7+ SET POINTER FOR SECOND STRING
04747 M00S04546.xedit +++| RJ LST
04748 M00S04547.xedit +++| LX6 59-18
04749 M00S04548.xedit +++| SB5 A1+B6 SET ENDING CHARACTER
04750 M00S04549.xedit +++| NG X6,LOC7 IF NEGATIVE LOGIC
04751 M00S04550.xedit +++| ZR B7,LOC IF POSITIVE AND FOUND IT
04752 M00S04551.xedit +++| EQ LOC9 SET FAILURE
04753 M00S04552.xedit +++|
04754 M00S04553.xedit +++| LOC7 NZ B7,LOC IF NEGATIVE AND NOT FOUND
04755 M00S04554.xedit +++| EQ LOC9 STRING NOT FOUND
04756 M00S04555.xedit +++|
04757 M00S04556.xedit +++|* SEARCHING FOR NULL STRING. FOUND ONLY WHEN AT
04758 M00S04557.xedit +++|* THE BEGINNING OF A LINE/WINDOW (DEPENDING ON TRIM SET).
04759 M00S04558.xedit +++|
04760 M00S04559.xedit +++| LOC8 SA4 LOCA
04761 M00S04560.xedit +++| SB7 X4
04762 M00S04561.xedit +++| SB5 X4+B1 SET LWA+1 OF SEARCH
04763 M00S04562.xedit +++| SA2 TRIM
04764 M00S04563.xedit +++| GT B4,B7,LOC9 IF STARTING PAST MINIMUM (FAIL)
04765 M00S04564.xedit +++| SB4 X4+1 SET FWA OF MATCH
04766 M00S04565.xedit +++| PL X2,LOC IF NOT TRIM (SUCCESSFUL)
04767 M00S04566.xedit +++| MX2 2 CHECK FOR EOL
04768 M00S04567.xedit +++| BX2 X2-X5
04769 M00S04568.xedit +++| ZR X2,LOC9 IF NOT EOL
04770 M00S04569.xedit +++| SA1 E.STR-1 GET LINE WIDTH
04771 M00S04570.xedit +++| SB3 X1+E.STR
04772 M00S04571.xedit +++| GE B7,B3,LOC9 IF PAST LAST NON-BLANK (FAIL)
04773 M00S04572.xedit +++| EQ LOC RETURN
04774 M00S04573.xedit +++|
04775 M00S04574.xedit +++| LOC HEREL ASSEMBLE ENTRY OPTIONS
04776 M00S04575.xedit +++|
04777 M00S04576.xedit +++|** LOCA - LOCC - LOCATE DEFINITION CELLS.
04778 M00S04577.xedit +++|*
04779 M00S04578.xedit +++|* FORMAT FOR THE THREE WORDS IS-
04780 M00S04579.xedit +++|*
04781 M00S04580.xedit +++|* 1/A,11/ ,12/,18,GLOBAL ,18/L.MARGIN.
04782 M00S04581.xedit +++|* 1,T,11/L,12/,18,COMPARE ,18/R.MARGIN.
04783 M00S04582.xedit +++|* 1/T,11/L,12/,18,COMPARE ,18/R.MARGIN.
04784 M00S04583.xedit +++|*
04785 M00S04584.xedit +++|* WHERE-
04786 M00S04585.xedit +++|* *A* = 1 IF ANCHOR IS SET.
04787 M00S04586.xedit +++|* *T* = 1 IF TRIM SET (ALL CHARS IN STRING SIGNIFICANT).
04788 M00S04587.xedit +++|* *L* = LENGTH OF ASSOCIATED STRING.
04789 M00S04588.xedit +++|* *GLOBAL* = THE CHARACTER THAT MATCHES ALL.
04790 M00S04589.xedit +++|* *COMPARE* = FWA IF ASSOCIATED STRING (IN COMMAND).
04791 M00S04590.xedit +++|* *RMARGIN* = ADDRESS OF LEFTMOST POSSIBLE STARTING
04792 M00S04591.xedit +++|* CHARACTER-1.
04793 M00S04592.xedit +++|* *L.MARGIN* = ADDRESS OF RIGHTMOST POSSIBLE ENDING
04794 M00S04593.xedit +++|* CHARACTER+1.
04795 M00S04594.xedit +++|
04796 M00S04595.xedit +++| LOCA BSSZ 1 LOCATE ENVIRONMENT WORD
04797 M00S04596.xedit +++| LOCB BSSZ 1 FIELD ONE DEFINITION
04798 M00S04597.xedit +++| LOCC BSSZ 1 FIELD TWO DEFINITION
04799 M00S04598.xedit +++| LST SPACE 4,20
04800 M00S04599.xedit +++|** LST - LOCATE STRING IN EDIT LINE.
04801 M00S04600.xedit +++|*
04802 M00S04601.xedit +++|* ENTRY (A1) = FWA-1 OF START OF SCAN IN EDIT LINE.
04803 M00S04602.xedit +++|* (A2) = FWA OF COMPARE STRING IN COMMAND LINE.
04804 M00S04603.xedit +++|* (X2) = FIRST WORD OF STRING IN COMMAND LINE.
04805 M00S04604.xedit +++|* (X6) = NEGATIVE IF TRAILING GLOBAL/BLANKS ARE
04806 M00S04605.xedit +++|* IMPORTANT.
04807 M00S04606.xedit +++|* (X7) = GLOBAL CHARACTER (MUST NOT BE MASK OF 2).
04808 M00S04607.xedit +++|* (B3) = LWA+1 AVAILABLE FOR SCANNING (USUALLY EOL).
04809 M00S04608.xedit +++|* (B6) = LENGTH OF COMPARE STRING.
04810 M00S04609.xedit +++|* ASSUMES THAT THE FIRST CHARACTER OF THE COMPARE
04811 M00S04610.xedit +++|* STRING HAS BEEN PLACED AT EOL+1.
04812 M00S04611.xedit +++|*
04813 M00S04612.xedit +++|* EXIT (A1) = FWA OF POSSIBLE MATCH.
04814 M00S04613.xedit +++|* (B6) = LENGTH-1 OF POSSIBLE MATCH.
04815 M00S04614.xedit +++|* (B7) = 0, IF MATCH.
04816 M00S04615.xedit +++|* IF (A1)+1 .GE. (B3) AT ENTRY, THEN IF THE COMPARE
04817 M00S04616.xedit +++|* STRING IS BLANK/GLOBAL AND TRIM IS OFF, THEN THE
04818 M00S04617.xedit +++|* RESPONSE IS -
04819 M00S04618.xedit +++|* (B7) = 0 (SUCCESSFUL MATCH).
04820 M00S04619.xedit +++|* (A1) = (A1) AT ENTRY.
04821 M00S04620.xedit +++|* (B6) = 0.
04822 M00S04621.xedit +++|*
04823 M00S04622.xedit +++|* USES A - 1, 3, 4.
04824 M00S04623.xedit +++|* X - 1, 3, 4.
04825 M00S04624.xedit +++|* B - 6, 7.
04826 M00S04625.xedit +++|
04827 M00S04626.xedit +++|
04828 M00S04627.xedit +++| LST4 SA1 A1+B1 MOVE START OF STRING POINTER
04829 M00S04628.xedit +++| BX3 X1-X2
04830 M00S04629.xedit +++| ZR X3,LST6 IF MATCH
04831 M00S04630.xedit +++| IX3 X2-X7
04832 M00S04631.xedit +++| ZR X3,LST6 IF FIRST COMPARE IS GLOBAL
04833 M00S04632.xedit +++| LST5 SA1 A1+B1 MOVE START OF STRING POINTER
04834 M00S04633.xedit +++| IX3 X1-X2
04835 M00S04634.xedit +++| NZ X3,LST5 IF NOT A MATCH
04836 M00S04635.xedit +++| LST6 SB7 A1-B3 DETERMINE LENGTH OF EDIT LEFT
04837 M00S04636.xedit +++| SB7 -B7
04838 M00S04637.xedit +++| LT B7,B6,LST8 IF NOT ENOUGH SPACE LEFT FOR MATCH
04839 M00S04638.xedit +++| SB7 B6-1
04840 M00S04639.xedit +++| LST7 ZR B7,LST IF END OF STRING (MATCH)
04841 M00S04640.xedit +++| SA3 A1+B7
04842 M00S04641.xedit +++| SA4 A2+B7
04843 M00S04642.xedit +++| SB7 B7-B1
04844 M00S04643.xedit +++| IX3 X3-X4
04845 M00S04644.xedit +++| ZR X3,LST7 IF MATCH (TRY NEXT)
04846 M00S04645.xedit +++| NG X7,LST4 IF GLOBAL NOT USED (IN STACK)
04847 M00S04646.xedit +++| IX4 X4-X7
04848 M00S04647.xedit +++| ZR X4,LST7 IF COMPARE IS GLOBAL
04849 M00S04648.xedit +++| EQ LST4 CONTINUE
04850 M00S04649.xedit +++|
04851 M00S04650.xedit +++| LST8 NG X6,LST2 IF TRAILING CHARACTERS SIGNIFICANT
04852 M00S04651.xedit +++| SX4 B7-1
04853 M00S04652.xedit +++| NG X4,LST3 IF PAST LWA AVAILABLE
04854 M00S04653.xedit +++| SB6 B6-B1 DECREASE COMPARE STRING
04855 M00S04654.xedit +++| SA4 A2+B6
04856 M00S04655.xedit +++| SX3 X4-1R
04857 M00S04656.xedit +++| ZR X3,LST6 IF LAST COMPARE IS BLANK (REMOVE IT)
04858 M00S04657.xedit +++| IX3 X4-X7
04859 M00S04658.xedit +++| ZR X3,LST6 IF LAST COMPARE IS GLOBAL (REMOVE IT)
04860 M00S04659.xedit +++| LST PS ENTRY/EXIT
04861 M00S04660.xedit +++|
04862 M00S04661.xedit +++| SB7 A1-B3 CHECK A1 VS B3
04863 M00S04662.xedit +++| SB7 B7+B1
04864 M00S04663.xedit +++| LT B7,LST4 IF STARTING NOT PAST LAST CHARACTER
04865 M00S04664.xedit +++| NG X6,LST2 IF TRIM (FAILURE)
04866 M00S04665.xedit +++| SA1 A1+B1 CHANGE POINTER
04867 M00S04666.xedit +++| SB7 B0 SET SUCCESSFUL
04868 M00S04667.xedit +++| LST1 LE B6,LST IF COMPARE IS ALL BLANKS/GLOBAL
04869 M00S04668.xedit +++| SB6 B6-B1
04870 M00S04669.xedit +++| SA4 A2+B6
04871 M00S04670.xedit +++| SX3 X4-1R
04872 M00S04671.xedit +++| ZR X3,LST1 IF COMPARE IS BLANK
04873 M00S04672.xedit +++| IX3 X4-X7
04874 M00S04673.xedit +++| ZR X3,LST1 IF COMPARE IS GLOBAL
04875 M00S04674.xedit +++| LST2 SB7 B1 SET STRING NOT FOUND
04876 M00S04675.xedit +++| EQ LST BEGIN SCANNING
04877 M00S04676.xedit +++|
04878 M00S04677.xedit +++| LST3 SA1 B3-B1
04879 M00S04678.xedit +++| EQ LST+1 RESTART SCAN AT END OF LINE
04880 M00S04679.xedit +++|
04881 M00S04680.xedit +++| MDY SPACE 4,15
04882 M00S04681.xedit +++|** MDY - PROCESS MODIFY DIRECTIVES.
04883 M00S04682.xedit +++|*
04884 M00S04683.xedit +++|* ENTRY (E.STR) = ORIGINAL LINE (UNPACKED).
04885 M00S04684.xedit +++|* (D.STR) = DIRECTIVES LINE (UNPACKED).
04886 M00S04685.xedit +++|*
04887 M00S04686.xedit +++|* EXIT (B3) = NEGATIVE, IF TRUNCATION ENCOUNTERED.
04888 M00S04687.xedit +++|* (E.STR) = NEW TEXT LINE.
04889 M00S04688.xedit +++|*
04890 M00S04689.xedit +++|* USES A - 1, 2, 6.
04891 M00S04690.xedit +++|* X - 1, 2, 6, 7.
04892 M00S04691.xedit +++|* B - 2, 3, 4, 6.
04893 M00S04692.xedit +++|* E.SCR.
04894 M00S04693.xedit +++|*
04895 M00S04694.xedit +++|* CALLS TSL.
04896 M00S04695.xedit +++|
04897 M00S04696.xedit +++|
04898 M00S04697.xedit +++| MDY5 SX6 1R SET BLANK CHARACTER
04899 M00S04698.xedit +++| MDY6 GT B3,B4,MDY1 IF AT END OF BUFFER
04900 M00S04699.xedit +++| SA6 B3
04901 M00S04700.xedit +++| SB3 B3+B1 SET TO NEXT PLACE TO SAVE
04902 M00S04701.xedit +++| MDY7 SA2 A2+B2 GET NEXT *E.STR* CHARACTER
04903 M00S04702.xedit +++| NO
04904 M00S04703.xedit +++| PL X2,MDY8 IF NOT AT END OF LINE
04905 M00S04704.xedit +++| SX6 1R
04906 M00S04705.xedit +++| SB2 B0 SET TO NOT ESCAPE END OF LIE
04907 M00S04706.xedit +++| BX2 X2+X6 GET END LINE (WITH BLANK)
04908 M00S04707.xedit +++| MDY8 SA1 A1+B1 GET NEXT DIRECTIVES CHARACTER
04909 M00S04708.xedit +++| SX6 X2 MOVE CURRENT TEXT CHAR
04910 M00S04709.xedit +++| SX7 X1-1R
04911 M00S04710.xedit +++| ZR X7,MDY6 IF SPACE DIRECTIVE
04912 M00S04711.xedit +++| NG X1,MDY16 IF END OF DIRECTIVE LINE
04913 M00S04712.xedit +++| CHAR (SX7 X1-0),SH.
04914 M00S04713.xedit +++| ZR X7,MDY7 IF SHARP (DELETE TEXT CHAR)
04915 M00S04714.xedit +++| CHAR (SX7 X1-0),AM.
04916 M00S04715.xedit +++| ZR X7,MDY5 IF AMPERSAND (SET TEXT TO BLANK)
04917 M00S04716.xedit +++| BX6 X1
04918 M00S04717.xedit +++| SB6 X1+B5 B5 = -UP ARROW
04919 M00S04718.xedit +++| NZ B6,MDY6 IF CHARACTER (REPLACE TEXT)
04920 M00S04719.xedit +++| MDY9 SA1 A1+B1 GET NEXT DIRECTIVES
04921 M00S04720.xedit +++| CHAR (SX3 X1-0),SH.
04922 M00S04721.xedit +++| BX6 X1
04923 M00S04722.xedit +++| SX7 B6+B1 SET NUMBER OF CHARACTERS SCANNED
04924 M00S04723.xedit +++| NG X1,MDY10 IF END OF DIRECTIVES
04925 M00S04724.xedit +++| SB6 B6+B1 INCREMENT COUNT OF CHARACTERS SCANNED
04926 M00S04725.xedit +++| ZR X3,MDY11 IF SHARP
04927 M00S04726.xedit +++| GT B3,B4,MDY2 IF PAST 160 CHARACTERS
04928 M00S04727.xedit +++| SA6 B3
04929 M00S04728.xedit +++| SB3 B3+B1
04930 M00S04729.xedit +++| EQ MDY9 LOOP
04931 M00S04730.xedit +++|
04932 M00S04731.xedit +++| MDY10 SX6 1R
04933 M00S04732.xedit +++| NZ B6,MDY14 IF SOMETHING WAS AFTER THE UPARROW
04934 M00S04733.xedit +++| SX7 X7+B1 INCREMENT CHARACTER COUNT
| Line S04734 Modification History |
M01 (Removed by) | xedit3 |
Seq # *Modification Id* Act
----------------------------+
04935 M01S04734.xedit3 ---| SA2 A2-B1 RESET CHARACTER POINTER
| Line S00001 Modification History |
M01 (Added by) | xedit3 |
Seq # *Modification Id* Act
----------------------------+
04936 M01S00001.xedit3 +++| SA2 A2-B2 RESET CHARACTER POINTER
04937 M00S04735.xedit +++| EQ MDY12 ELSE INSERT ONE SPACE
04938 M00S04736.xedit +++|
04939 M00S04737.xedit +++| MDY11 SX7 B6+B1
04940 M00S04738.xedit +++| NE B6,B1,MDY14 IF NOT (UP ARROW)(SHARP)
04941 M00S04739.xedit +++| SX7 B1 RESET COPY COUNTER
04942 M00S04740.xedit +++| MDY12 GT B3,B4,MDY4 IF POSSIBLE TRUNCATION
04943 M00S04741.xedit +++| SA6 B3
04944 M00S04742.xedit +++| SB3 B3+B1
04945 M00S04743.xedit +++| MDY13 SA2 A2+B2 GET NEXT E.STR CHARACTER
04946 M00S04744.xedit +++| PL X2,MDY14 IF NOT END OF LINE
04947 M00S04745.xedit +++| SB2 B0
04948 M00S04746.xedit +++| SX6 1R
04949 M00S04747.xedit +++| BX2 X2+X6
04950 M00S04748.xedit +++| MDY14 SX6 X2
04951 M00S04749.xedit +++| SX7 X7-1
04952 M00S04750.xedit +++| MDY15 PL X7,MDY12 IF MORE TO MOVE
04953 M00S04751.xedit +++| PL X1,MDY8 IF MORE DIRECTIVES
04954 M00S04752.xedit +++|
04955 M00S04753.xedit +++|* END OF DIRECTIVES, COPY REST OF TEXT.
04956 M00S04754.xedit +++|
04957 M00S04755.xedit +++| MDY16 NG X2,MDY19 IF END OF TEXT
04958 M00S04756.xedit +++| GT B3,B4,MDY3 IF END OF BUFFER
04959 M00S04757.xedit +++| SX6 X2+
| Line S04758 Modification History |
M01 (Removed by) | xedit14 |
Seq # *Modification Id* Act
----------------------------+
04960 M01S04758.xedit14 ---| SA6 B3+
| Line S00001 Modification History |
M01 (Added by) | xedit14 |
Seq # *Modification Id* Act
----------------------------+
04961 M01S00001.xedit14 +++| SA6 B3
04962 M01S00002.xedit14 +++| SB3 B3+B1
04963 M00S04759.xedit +++| MDY17 SA2 A2+B1 GET NEXT TEXT
| Line S04760 Modification History |
M01 (Removed by) | xedit14 |
Seq # *Modification Id* Act
----------------------------+
04964 M01S04760.xedit14 ---| SB3 B3+B1
| Line S00003 Modification History |
M01 (Added by) | xedit14 |
Seq # *Modification Id* Act
----------------------------+
04965 M01S00003.xedit14 +++| SX6 X2
04966 M00S04761.xedit +++| EQ MDY16 CONTINUE COPY
04967 M00S04762.xedit +++|
04968 M00S04763.xedit +++|* SET TRUNCATION FLAG AND CLEANUP.
04969 M00S04764.xedit +++|
04970 M00S04765.xedit +++| MDY18 SB2 -1
04971 M00S04766.xedit +++|
04972 M00S04767.xedit +++|* SET END OF LINE AND COPY BACK TO *E.STR*.
04973 M00S04768.xedit +++|
04974 M00S04769.xedit +++| MDY19 MX6 2
04975 M00S04770.xedit +++| NO
04976 M00S04771.xedit +++| SA6 B3+ SA6/SA1 *MUST* BE IN THIS ORDER
04977 M00S04772.xedit +++| SB6 E.STR
04978 M00S04773.xedit +++| SA1 E.SCR
04979 M00S04774.xedit +++| MDY20 BX6 X1
04980 M00S04775.xedit +++| SB6 B6+B1
04981 M00S04776.xedit +++| SA1 A1+B1
04982 M00S04777.xedit +++| SA6 B6-B1
04983 M00S04778.xedit +++| PL X6,MDY20 IF NOT FINISHED
04984 M00S04779.xedit +++| SB6 E.STR-1 SET LINE WIDTH CELL
04985 M00S04780.xedit +++| SB3 B2 MOVE TRUNCATION FLAG
04986 M00S04781.xedit +++| RJ TSL TRIM ANY TRAILING SPACES
04987 M00S04782.xedit +++| MDY PS ENTRY/EXIT
04988 M00S04783.xedit +++|
04989 M00S04784.xedit +++| CHAR (SB5 -0),UA.
04990 M00S04785.xedit +++| SB2 B1 SET NOT AT END OF TEXT LINE
04991 M00S04786.xedit +++| SB3 E.SCR SET NEXT SAVE CHAR ADDR
04992 M00S04787.xedit +++| SB4 E.SCR+159 SET LWA
04993 M00S04788.xedit +++| SA1 D.STR-1
04994 M00S04789.xedit +++| SA2 E.STR-1
04995 M00S04790.xedit +++| EQ MDY7 BEGIN LOOP
04996 M00S04791.xedit +++|
04997 M00S04792.xedit +++|* HANDLE SPECIAL CASES OF FULL BUFFER, ADDING CHARACTERS.
04998 M00S04793.xedit +++|
04999 M00S04794.xedit +++| MDY1 SX7 X6-1R
05000 M00S04795.xedit +++| ZR X7,MDY7 IF SPACE (NO TRUNCATION)
05001 M00S04796.xedit +++| EQ MDY18 TRUNCATE
05002 M00S04797.xedit +++|
05003 M00S04798.xedit +++|
05004 M00S04799.xedit +++| MDY2 SX7 X6-1R
05005 M00S04800.xedit +++| ZR X7,MDY9 IF SPACE (NO TRUNCATION)
05006 M00S04801.xedit +++| EQ MDY18 TRUNCATE
05007 M00S04802.xedit +++|
05008 M00S04803.xedit +++| MDY3 SX7 X6-1R
05009 M00S04804.xedit +++| ZR X7,MDY17 IF SPACE (NO TRUNCATION)
05010 M00S04805.xedit +++| EQ MDY18 TRUNCATE
05011 M00S04806.xedit +++|
05012 M00S04807.xedit +++| MDY4 SX7 X6-1R
05013 M00S04808.xedit +++| ZR X7,MDY13 IF SPACE (NO TRUNCATION)
05014 M00S04809.xedit +++| EQ MDY18 TRUNCATE
05015 M00S04810.xedit +++|
05016 M00S04811.xedit +++| MPR SPACE 4,15
05017 M00S04812.xedit +++|** MPR - MOVE POINTER.
05018 M00S04813.xedit +++|*
05019 M00S04814.xedit +++|* ENTRY (X1) = NUMBER OF LINES TO MOVE.
05020 M00S04815.xedit +++|*
05021 M00S04816.xedit +++|* EXIT IF (X1) IS NEGATIVE AT ENTRY, THE FILE IS REWOUND.
05022 M00S04817.xedit +++|*
05023 M00S04818.xedit +++|* USES A - 1, 3, 4, 6, 7.
05024 M00S04819.xedit +++|* X - 1, 2, 3, 4, 6, 7.
| Line S04820 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
05025 M01S04820.xedit21 ---|* B - 7.
05026 M00S04821.xedit +++|*
05027 M00S04822.xedit +++|* CALLS GLN, TOP.
05028 M00S04823.xedit +++|*
05029 M00S04824.xedit +++|* NOTES IF (X1) = -0 AT ENTRY, THIS ROUTINE WILL FORCE A COPY
05030 M00S04825.xedit +++|* TO THE NEXT SCRATCH FILE AND RETURN THE POINTER
05031 M00S04826.xedit +++|* TO THE CURRENT POINTER POSITION.
05032 M00S04827.xedit +++|
05033 M00S04828.xedit +++|
05034 M00S04829.xedit +++| MPR1 SA1 GLNA RETRIEVE DESIRED LINE FROM HOLDING
05035 M00S04830.xedit +++| RJ GLN ADVANCE TO LINE
05036 M00S04831.xedit +++| MPR PS ENTRY/EXIT
05037 M00S04832.xedit +++|
05038 M00S04833.xedit +++| SA3 IWHERE
05039 M00S04834.xedit +++| SA4 VERIFY
05040 M00S04835.xedit +++| MX2 1
05041 M00S04836.xedit +++| IX6 X3+X1 GET DESIRED *IWHERE* VALUE
05042 M00S04837.xedit +++| BX7 X2*X1 GET DIRECTION OF MOVE
| Line S04838 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
05043 M01S04838.xedit21 ---| AX4 60 EXTEND STATUS OF VERIFY
05044 M01S04839.xedit21 ---| SB7 X6
05045 M01S04840.xedit21 ---| GT B7,B0,MPR0 IF MOVING TO A LEGAL POSITION
| Line S00068 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
05046 M01S00068.xedit21 +++| SX3 B1
05047 M01S00069.xedit21 +++| IX3 X6-X3
05048 M01S00070.xedit21 +++| PL X3,MPR0 IF MOVING TO A LEGAL POSITION
05049 M00S04841.xedit +++| SX6 B1 SET DESIRED TO 1
05050 M00S04842.xedit +++| MPR0 IX6 X6+X2 SET SIGN BIT (*MPR* FLAG)
| Line S00071 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
05051 M01S00071.xedit21 +++| AX4 60 EXTEND STATUS OF VERIFY
05052 M01S00072.xedit21 +++| SA6 GLNA HOLD DESIRED POSITION
05053 M00S04843.xedit +++| BX7 -X7*X4 SET TEMPORARY VERIFICATION STATUS
| Line S04844 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
05054 M01S04844.xedit21 ---| SA6 GLNA HOLD DESIRED POSITION
05055 M00S04845.xedit +++| SA7 A4 RESET VERIFICATION FLAG
05056 M00S04846.xedit +++| PL X1,MPR1 IF FORWARD MOTION
05057 M00S04847.xedit +++| RJ TOP
05058 M00S04848.xedit +++| EQ MPR1 MOVE TO DESIRED POSITION
05059 M00S04849.xedit +++| RDF SPACE 4,30
05060 M00S04850.xedit +++|** RDF - READ EDIT FILE LINE.
05061 M00S04851.xedit +++|*
05062 M00S04852.xedit +++|* ENTRY LINE CONTROL (*E.NMODE*, ETC) SET.
05063 M00S04853.xedit +++|*
05064 M00S04854.xedit +++|* EXIT LINE READ INTO *E,LINE*.
05065 M00S04855.xedit +++|* IF *E.NMODE* = ASCII, THEN THE LINE IS UNPACKED
05066 M00S04856.xedit +++|* TO *E.STR*.
05067 M00S04857.xedit +++|* THIS ROUTINE USUALLY EXITS NORMALLY. IF THE ROUTINE
05068 M00S04858.xedit +++|* ENCOUNTERS THE END OF INFORMATION, THE ROUTINE EXITS
05069 M00S04859.xedit +++|* TO *NCM*, UNLESS PRESETTING, THEN TO *RDF2*.
05070 M00S04860.xedit +++|* IF IN CREATION MODE, THIS ROUTINE RETURNS WITHOUT
05071 M00S04861.xedit +++|* READING.
05072 M00S04862.xedit +++|*
05073 M00S04863.xedit +++|* USES A - 1, 2, 3, 4, 6, 7.
05074 M00S04864.xedit +++|* X - 1, 2, 3, 4, 6, 7.
05075 M00S04865.xedit +++|* B - 2, 4, 6, 7.
05076 M00S04866.xedit +++|*
| Line S04867 Modification History |
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
05077 M01S04867.xedit20 ---|* CALLS CIO=, ERO, RTB, UPL, VIS.
| Line S00018 Modification History |
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
05078 M01S00018.xedit20 +++|* CALLS CIO=, ERO, RTB, STL, UPL, VIS.
05079 M00S04868.xedit +++|*
05080 M00S04869.xedit +++|* MACROS READ, READC, WRITEC.
05081 M00S04870.xedit +++|*
05082 M00S04871.xedit +++|* NOTES FILE MARKS WILL BE RETAINED ACROSS THE FILE UNLESS
05083 M00S04872.xedit +++|* THE CORRESPONDING COUNTER IS SET (DF/DR).
05084 M00S04873.xedit +++|* IN ADDITION, IF IN VERIFY MODE (AND TOGGLE SET), THE
05085 M00S04874.xedit +++|* MESSAGE --EOR--/--EOF-- WILL BE PRINTED.
05086 M00S04875.xedit +++|* AFTER EACH TEXT LINE IS READ, *TLX* (TELEX INTERRUPT)
05087 M00S04876.xedit +++|* IS CHECKED. IF SET, ROUTINE EXITS TO *NCM*.
05088 M00S04877.xedit +++|
05089 M00S04878.xedit +++|
05090 M00S04879.xedit +++| RDF11 SA1 TLX
05091 M00S04880.xedit +++| ZR X1,RDF IF NO INTERRUPT
05092 M00S04881.xedit +++| RJ STL PROCESS INTERRUPT
05093 M00S04882.xedit +++| RDF PS ENTRY/EXIT
05094 M00S04883.xedit +++|
05095 M00S04884.xedit +++|* FIRST WORD OF ROUTINE IS REPLACED WHEN OUT
05096 M00S04885.xedit +++|* OF CREATION MODE.
05097 M00S04886.xedit +++|
05098 M00S04887.xedit +++| SA1 IWHERE PREPARE FOR CREATION MODE CHECK
05099 M00S04888.xedit +++| EQ RDF1 CHECK CREATION MODE
05100 M00S04889.xedit +++|
05101 M00S04890.xedit +++| RDF RMT NORMAL CODE FOLLOWS
05102 M00S04891.xedit +++| SB0 0 TEMPORARY
05103 M00S04892.xedit +++| SB0 0
05104 M00S04893.xedit +++| RMT
05105 M00S04894.xedit +++|
05106 M00S04895.xedit +++| READC E.IN,E.LINE,33D
05107 M00S04896.xedit +++| SB4 X1+B1
05108 M00S04897.xedit +++| NG B4,RDF9 IF AT EOI
05109 M00S04898.xedit +++|
05110 M00S04899.xedit +++|* WORD IS REPLACED IF TO VERIFY EOR/EOF.
05111 M00S04900.xedit +++|
05112 M00S04901.xedit +++| RDFA NE B4,B1,RDF3 IF EOR/EOF
05113 M00S04902.xedit +++| SB7 E.LINE
05114 M00S04903.xedit +++| RJ RTB TRIM OFF TRAILING BLANKS
05115 M00S04904.xedit +++| SA1 E.NMODE GET NEEDED MODE
05116 M00S04905.xedit +++| MX6 0
05117 M00S04906.xedit +++| SA3 IW
05118 M00S04907.xedit +++| SA6 A1+B1 SET CURRENT MODE TO CODED
05119 M00S04908.xedit +++| SA6 A6+B1 SET NO MODIFICATIONS
05120 M00S04909.xedit +++| SA6 RC SET DATA READ
05121 M00S04910.xedit +++| ZR X1,RDF11 IF CODED MODE DESIRED
05122 M00S04911.xedit +++| SA1 E.LINE CONVERT TO ASCII
05123 M00S04912.xedit +++| SB6 E.STR
05124 M00S04913.xedit +++| RJ UPL
05125 M00S04914.xedit +++| SA6 E.STR-1 SET NUMBER OF CHARS IN LINE
05126 M00S04915.xedit +++| SX7 B1 SET CURRENT MODE TO ASCII
05127 M00S04916.xedit +++| SA7 E.CMODE SET CURRENT MODE OF LINE
05128 M00S04917.xedit +++| EQ RDF11 CHECK FOR INTERRUPT
05129 M00S04918.xedit +++|
05130 M00S04919.xedit +++|* CREATION MODE CHECK.
05131 M00S04920.xedit +++|
05132 M00S04921.xedit +++| RDF1 NG X1,RDF IF IN CREATION MODE
05133 M00S04922.xedit +++| SA2 INITZ
05134 M00S04923.xedit +++| ZR X2,RDF2 IF INITIALIZING (CREATION MODE POSSIBLE)
05135 M00S04924.xedit +++| SA1 RDFG CHANGE INSTRUCTIONS
05136 M00S04925.xedit +++| BX6 X1
05137 M00S04926.xedit +++| SA6 RDF+1 CHANGE CREATION MODE CHECKER
05138 M00S04927.xedit +++| RJ VIS VOID INSTRUCTION STACK
05139 M00S04928.xedit +++| RDF2 BSS 0
05140 M00S04929.xedit +++| RDFG BSS 0
05141 M00S04930.xedit +++| RDF HEREL
05142 M00S04931.xedit +++| JP RDF+2 CONTINUE PROCESSING
05143 M00S04932.xedit +++|
05144 M00S04933.xedit +++|* EOF/EOR ENCOUNTERED.
05145 M00S04934.xedit +++|
05146 M00S04935.xedit +++| RDF3 SB7 B6-E.LINE
05147 M00S04936.xedit +++| NZ B7,BTL IF ENCOUNTERED NON-TEXT LINE
05148 M00S04937.xedit +++| ZR B4,RDF3.1 IF EOF
05149 M00S04938.xedit +++| SB4 B1+ SET (B4) = EOR TYPE
05150 M00S04939.xedit +++| RDF3.1 SA1 ITOGGLF+B4
05151 M00S04940.xedit +++| SA2 VERIFY
05152 M00S04941.xedit +++| BX6 X1*X2
05153 M00S04942.xedit +++| PL X6,RDF4 IF NO VERIFICATION
05154 M00S04943.xedit +++| SA3 RDFE
05155 M00S04944.xedit +++| SX6 B4
05156 M00S04945.xedit +++| BX7 X3
05157 M00S04946.xedit +++| SA7 RDFA RESET CODE AT RDFA
05158 M00S04947.xedit +++| SA6 RDFB
05159 M00S04948.xedit +++| RJ VIS VOID INSTRUCTION STACK
| Line S04949 Modification History |
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
05160 M01S04949.xedit20 ---| RDF4 SA3 DF+B4 DELETION COUNT
| Line S00019 Modification History |
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
05161 M01S00019.xedit20 +++| RDF4 SA4 UPDATE
05162 M01S00020.xedit20 +++| PL X4,RDF6 IF IN LOOK MODE
05163 M01S00021.xedit20 +++| SA3 DF+B4 DELETION COUNT
05164 M00S04950.xedit +++| SA4 RDFC+B4
05165 M00S04951.xedit +++| ZR X3,RDF5 IF NOT DELETING RECORD MARK
| Line S04952 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
05166 M01S04952.xedit21 ---| SX6 X3-1
| Line S00073 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
05167 M01S00073.xedit21 +++| SX6 B1+
05168 M01S00074.xedit21 +++| IX6 X3-X6
05169 M00S04953.xedit +++| SA6 A3 REPLACE COUNTER
05170 M00S04954.xedit +++| EQ RDF6 READ, DELETE RECORD MARK
05171 M00S04955.xedit +++|
05172 M00S04956.xedit +++| RDF5 SX2 E.OUT
05173 M00S04957.xedit +++| MX6 1
05174 M00S04958.xedit +++| BX7 -X4 SET FUNCTION AND AUTO-RECALL
05175 M00S04959.xedit +++| SA6 RC SET NO DATA READ
05176 M00S04960.xedit +++| RJ CIO=
05177 M00S04961.xedit +++| RDF6 READ E.IN
05178 M00S04962.xedit +++| EQ RDF2 RESTART ROUTINE
05179 M00S04963.xedit +++|
05180 M00S04964.xedit +++|* VERIFY EOR/EOF.
05181 M00S04965.xedit +++|
05182 M00S04966.xedit +++| RDF7 SA1 RDFB
05183 M00S04967.xedit +++| MX6 1
05184 M00S04968.xedit +++| SX7 B4
05185 M00S04969.xedit +++| PX7 B6,X7
05186 M00S04970.xedit +++| SA7 RDFD SAVE B4
05187 M00S04971.xedit +++| NG X1,RDF8 IF NOTHING TO VERIFY
05188 M00S04972.xedit +++| SB4 EOF.+X1
05189 M00S04973.xedit +++| SA3 EXPLAIN
05190 M00S04974.xedit +++| SA4 MESSAGE+B4 GET MESSAGE POINTER
05191 M00S04975.xedit +++| AX3 12
05192 M00S04976.xedit +++| SA6 A1 CLEAR MESSAGE FLAG
05193 M00S04977.xedit +++| PX7 B4,X3
05194 M00S04978.xedit +++| SA7 A3 REPLACE EXPLAIN WORD
05195 M00S04979.xedit +++| WRITEC OUTPUT,X4
05196 M00S04980.xedit +++| RDF8 SA1 RDFF RESET INSTRUCTION WORD
05197 M00S04981.xedit +++| SA2 RDFD RETRIEVE STATUS OF B4
05198 M00S04982.xedit +++| BX6 X1
05199 M00S04983.xedit +++| SB4 X2
05200 M00S04984.xedit +++| UX2,B6 X2 RETRIEVE *B6*
05201 M00S04985.xedit +++| SA6 RDFA
05202 M00S04986.xedit +++| RJ VIS VOID INSTRUCTION STACK
05203 M00S04987.xedit +++| JP RDFA CONTINUE AND VOID STACK
05204 M00S04988.xedit +++|
05205 M00S04989.xedit +++|* EOI ENCOUNTERED.
05206 M00S04990.xedit +++|
05207 M00S04991.xedit +++| RDF9 BX6 X6-X6
05208 M00S04992.xedit +++| MX7 1
05209 M00S04993.xedit +++| SA6 DF DELETE NO MORE EOF,S
05210 M00S04994.xedit +++| SA7 RDFB SET NO VERIFICATION NECESSARY
05211 M00S04995.xedit +++| SA6 DR DELETE NO MORE EOR,S
05212 M00S04996.xedit +++| SA1 INITZ
05213 M00S04997.xedit +++| ZR X1,/PRESET/PRF1 IF PRESETTING XEDIT
05214 M00S04998.xedit +++| SA4 EXPLAIN
05215 M00S04999.xedit +++| SB2 EOI.
05216 M00S05000.xedit +++| AX4 12
05217 M00S05001.xedit +++| SA3 MESSAGE+B2
05218 M00S05002.xedit +++| PX6 B2,X4
05219 M00S05003.xedit +++| SA6 A4
05220 M00S05004.xedit +++| WRITEC OUTPUT,X3 ISSUE *END OF FILE* MESSAGE
05221 M00S05005.xedit +++| SA1 IWHERE
05222 M00S05006.xedit +++| AX1 1 ZERO IF CREATION MODE OR IWHERE = 1
05223 M00S05007.xedit +++| ZR X1,RDF10 IF NO FILE
05224 M00S05008.xedit +++| RJ ERD PROCESS END OF FILE
05225 M00S05009.xedit +++| EQ NCM EXIT
05226 M00S05010.xedit +++|
05227 M00S05011.xedit +++|* EOI AND NOTHING IN FILE.
05228 M00S05012.xedit +++|
05229 M00S05013.xedit +++| RDF10 SB6 =C* YOU DELETED THE ENTIRE FILE.*
05230 M00S05014.xedit +++| EQ ABT ABORT XEDIT
05231 M00S05015.xedit +++|
05232 M00S05016.xedit +++| RDFB DATA -1 EOF/EOR ENCOUNTERED (LEVEL NUMBER)
05233 M00S05017.xedit +++| RDFC CON 34B,24B CIO CODES FOR WRITEF/WRITER
05234 M00S05018.xedit +++| RDFD BSSZ 1 STORAGE FOR B4 WHEN VERIFYING
05235 M00S05019.xedit +++| RDFE EQ RDF7 CODE TO CAUSE EOR/EOF MESSAGE ON RE-ENTRY
05236 M00S05020.xedit +++| RDFF NE B4,B1,RDF3 IF EOR/EOF (EXACT IMAGE OF *RDFA*)
05237 M00S05021.xedit +++| SB7 E.LINE
05238 M00S05022.xedit +++| RDL SPACE 4,30
05239 M00S05023.xedit +++|* RDL - READ DATA LINE INTO *D.LINE*.
05240 M00S05024.xedit +++|*
05241 M00S05025.xedit +++|* ENTRY NONE.
05242 M00S05026.xedit +++|*
05243 M00S05027.xedit +++|* EXIT (X1) = READC X1 REGESTER CONVENTION AS FOLLOWS -
05244 M00S05028.xedit +++|* (X1) = 0 FOR TRANSFER COMPLETE.
05245 M00S05029.xedit +++|* (X1) = -1 IF EOF DETECTED ON FILE.
05246 M00S05030.xedit +++|* (X1) = -2 IF EOI DETECTED ON FILE.
05247 M00S05031.xedit +++|* (X1) = ADDRESS PLUS ONE OF LAST WORD TRANSFERED TO
05248 M00S05032.xedit +++|* WORKING BUFFER, IF EOR WAS DETECTED ON FILE
05249 M00S05033.xedit +++|* BEFORE TRANSFER WAS COMPLETE.
05250 M00S05034.xedit +++|* IF (X1) .NE. 0, THEN *D.LINE* IS NOT CHANGED.
05251 M00S05035.xedit +++|* TO *ABT* IF FATAL ERROR.
05252 M00S05036.xedit +++|* IF (X1) = 0, THEN THE FOLLOWING IS ALSO DONE -
05253 M00S05037.xedit +++|* IF *E.NMODE* = 1 (ASCII), THEN THE DATA LINE IS
05254 M00S05038.xedit +++|* UNPACKED TO *D.STR*, AND THE DATA LINE WIDTH IS
05255 M00S05039.xedit +++|* ENTERED INTO *D.STR*.
05256 M00S05040.xedit +++|*
05257 M00S05041.xedit +++|* USES A - 1, 2, 3, 4, 6, 7.
05258 M00S05042.xedit +++|* X - 1, 2, 3, 4, 6, 7.
05259 M00S05043.xedit +++|* B - 2, 3, 5, 6, 7.
05260 M00S05044.xedit +++|*
05261 M00S05045.xedit +++|* CALLS NDL, RTB, RTOA, UPL.
05262 M00S05046.xedit +++|*
05263 M00S05047.xedit +++|* MACROS READ, READC.
05264 M00S05048.xedit +++|
05265 M00S05049.xedit +++|
05266 M00S05050.xedit +++| RDL8 SX7 2R SET BLANK LINE AS LINE
05267 M00S05051.xedit +++| LX7 -12
05268 M00S05052.xedit +++| SA7 D.LINE
05269 M00S05053.xedit +++| RDL9 SA2 A2
05270 M00S05054.xedit +++| PX6 B0,X2
05271 M00S05055.xedit +++| SA6 A2 *C.STR*-1
05272 M00S05056.xedit +++| MX1 0 SET SUCCESSFUL READ
05273 M00S05057.xedit +++|
05274 M00S05058.xedit +++|* CHECK DESIRED MODE OF LINE.
05275 M00S05059.xedit +++|
05276 M00S05060.xedit +++| RDL10 SA2 E.NMODE
05277 M00S05061.xedit +++| ZR X2,RDL IF CODED
05278 M00S05062.xedit +++| SA1 D.LINE
05279 M00S05063.xedit +++| SB6 D.STR
05280 M00S05064.xedit +++| RJ UPL UNPACK DATA LINE
05281 M00S05065.xedit +++| MX1 0 SET SUCCESSFUL READ
05282 M00S05066.xedit +++| SA6 D.STR-1 SET LENGTH
05283 M00S05067.xedit +++|
05284 M00S05068.xedit +++| RDL PS ENTRY/EXIT
05285 M00S05069.xedit +++| SA1 PREFIX
05286 M00S05070.xedit +++| SA2 C.STR-1
05287 M00S05071.xedit +++| LX1 59-/PREFIX/PLUS
05288 M00S05072.xedit +++| UX3 B3,X2
05289 M00S05073.xedit +++| .CYB IF DEF,CYBRNET
05290 M00S05074.xedit +++| PL X1,RDL4 IF + PREFIX GET DATA FROM COMMAND
05291 M00S05075.xedit +++| .CYB ELSE
05292 M00S05076.xedit +++| NG X1,RDL4 IF + PREFIX (READ REQUIRED)
05293 M00S05077.xedit +++| .CYB ENDIF
05294 M00S05078.xedit +++| LE B3,RDL3 IF POINTER FLAG IS READ
05295 M00S05079.xedit +++| SA4 A2+B3 GET NEXT CHARACTER FROM COMMAND LINE
05296 M00S05080.xedit +++| SB4 X2 DELIMITER
05297 M00S05081.xedit +++| NG X4,RDL8 IF AT END OF LINE
05298 M00S05082.xedit +++| SB6 A2+B3 GET FIRST CHARACTER
05299 M00S05083.xedit +++| SB7 D.LINE SET DESTINATION FOR RTOA
05300 M00S05084.xedit +++| RDL1 SB5 X4
05301 M00S05085.xedit +++| EQ B5,B4,RDL2 IF FOUND DELIMITER
05302 M00S05086.xedit +++| SB3 B3+B1
05303 M00S05087.xedit +++| SA4 A2+B3 GET NEXT CHARACTER
05304 M00S05088.xedit +++| PL X4,RDL1 IF NOT AT END OF LINE
05305 M00S05089.xedit +++| SB3 -B1 SET POSITION
05306 M00S05090.xedit +++| RDL2 MX6 1
05307 M00S05091.xedit +++| SB2 A4 SET END OF DATA LINE ADDRESS
05308 M00S05092.xedit +++| BX6 X6+X4
05309 M00S05093.xedit +++| SB3 B3+B1 SET NEXT AVAILABLE CHARACTER
05310 M00S05094.xedit +++| SA6 A4 SET PSEUDO END OF LINE
05311 M00S05095.xedit +++| PX7 B3,X2
05312 M00S05096.xedit +++| SA7 A2 REPLACE CHARACTER POINTER
05313 M00S05097.xedit +++| RJ RTOA PACK DATA LINE TO D.LINE
05314 M00S05098.xedit +++| ZR B3,RDL9 IF AT REAL END OF LINE
05315 M00S05099.xedit +++| SA2 B2
05316 M00S05100.xedit +++| MX1 0 SET READ SUCCESSFUL
05317 M00S05101.xedit +++| SX6 X2 CLEAR PSEUDO END LINE
05318 M00S05102.xedit +++| SA6 A2
05319 M00S05103.xedit +++| EQ RDL10 CHECK MODE OF LINE
05320 M00S05104.xedit +++|
05321 M00S05105.xedit +++|* READ REQUIRED FROM COMMAND LINE SOURCE.
05322 M00S05106.xedit +++|
05323 M00S05107.xedit +++| RDL3 RJ NDL
05324 M00S05108.xedit +++| ZR X1,RDL+1 IF NOT <CR>, RETRY READ
05325 M00S05109.xedit +++| EQ RDL ELSE RETURN
05326 M00S05110.xedit +++|
05327 M00S05111.xedit +++|* READ REQUIRED FROM PRIMARY INPUT SOURCE.
05328 M00S05112.xedit +++|
05329 M00S05113.xedit +++| RDL4 SA1 NCLA
05330 M00S05114.xedit +++| SA3 TTYIN
05331 M00S05115.xedit +++| BX6 X1+X3
05332 M00S05116.xedit +++| SA6 A1 REPLACE READ REQ,D FLAG
05333 M00S05117.xedit +++| NZ X1,RDL6 IF READ NOT NEEDED
05334 M00S05118.xedit +++| RDL5 READ INPUT,RECALL
05335 M00S05119.xedit +++| RDL6 READC INPUT,D.LINE,33D READ DATA
05336 M00S05120.xedit +++| ZR X1,RDL7 IF SUCCESSFUL
05337 M00S05121.xedit +++| SA2 TTYIN
05338 M00S05122.xedit +++| SB6 =C* BATCH MODE ABORT. END OF RECORD ENCOUNTERED.*
05339 M00S05123.xedit +++| SA3 TLX
05340 M00S05124.xedit +++| MX6 0
05341 M00S05125.xedit +++| SA6 A3 CLEAR INTERRUPT STATUS
05342 M00S05126.xedit +++| NZ X2,ABT IF NOT *TTY* INPUT FILE
05343 M00S05127.xedit +++| NZ X3,RDL5 IF INTERRUPTED
05344 M00S05128.xedit +++| EQ RDL RETURN
05345 M00S05129.xedit +++|
05346 M00S05130.xedit +++| RDL7 SB7 D.LINE
05347 M00S05131.xedit +++| RJ RTB TRIM TRAILING BLANKS
05348 M00S05132.xedit +++| BX7 X7-X7
05349 M00S05133.xedit +++| MX1 0 SET SUCCESSFUL READ
05350 M00S05134.xedit +++| SA7 TLX IGNORE INTERRUPTS
05351 M00S05135.xedit +++| EQ RDL10 CHECK MODE OF LINE
05352 M00S05136.xedit +++|
05353 M00S05137.xedit +++| RTA SPACE 4,10
05354 M00S05138.xedit +++|** RTA - CONVERT 160K1 TO C FORMAT (MAX 33 WORDS).
05355 M00S05139.xedit +++|*
05356 M00S05140.xedit +++|* ENTRY (B6) = INCOMING STRING ADDRESS.
05357 M00S05141.xedit +++|* (B7) = OUTGOING STRING ADDRESS.
05358 M00S05142.xedit +++|*
05359 M00S05143.xedit +++|* EXIT STRING IS CONVERTED.
05360 M00S05144.xedit +++|*
05361 M00S05145.xedit +++|* USES A - 1, 6.
05362 M00S05146.xedit +++|* X - 1, 2, 6, 7.
05363 M00S05147.xedit +++|* B - 4, 6, 7.
05364 M00S05148.xedit +++|
05365 M00S05149.xedit +++|
05366 M00S05150.xedit +++| RTA PS ENTRY/EXIT
05367 M00S05151.xedit +++| RTOA EQU RTA
05368 M00S05152.xedit +++| SB4 6 SHIFT VALUE
05369 M00S05153.xedit +++| BX6 X6-X6 CLEAR ASSEMBLY
05370 M00S05154.xedit +++| MX7 1 POSITION INDICATOR
05371 M00S05155.xedit +++| SX1 B0+ INITIALIZE FOR POSSIBLE BLANK LINE
05372 M00S05156.xedit +++| EQ RTA2 BEGIN CONVERSION
05373 M00S05157.xedit +++|
05374 M00S05158.xedit +++| RTA1 LX7 6 SHIFT POSITION
05375 M00S05159.xedit +++| BX6 X6+X1 MERGE CHARACTERS
05376 M00S05160.xedit +++| PL X7,RTA2 IF NOT FULL WORD
05377 M00S05161.xedit +++| SA6 B7
05378 M00S05162.xedit +++| SB7 B7+1
05379 M00S05163.xedit +++| BX6 X6-X6 CLEAR ASSEMBLY
05380 M00S05164.xedit +++| RTA2 BX2 X1
05381 M00S05165.xedit +++| SA1 B6 GET NEXT CHARACTER
05382 M00S05166.xedit +++| NG X1,RTA4 IF END OF BUFFER REACHED
05383 M00S05167.xedit +++| RTA3 LX6 6
05384 M00S05168.xedit +++| SB6 B6+1
05385 M00S05169.xedit +++| AX2 B4,X1
05386 M00S05170.xedit +++| ZR X2,RTA1 IF NO ASCII ESCAPE CHARACTER
05387 M00S05171.xedit +++| LX7 6
05388 M00S05172.xedit +++| LX6 6
05389 M00S05173.xedit +++| PL X7,RTA1 IF ASCII CAN FIT INTO THIS WORD
05390 M00S05174.xedit +++| LX6 -6 SHIFT ASSEMBLY BACK
05391 M00S05175.xedit +++| LX1 -7
05392 M00S05176.xedit +++| BX6 X6+X2
05393 M00S05177.xedit +++| LX7 6
05394 M00S05178.xedit +++| AX1 60-7 REMOVE ASCII ESCAPE
05395 M00S05179.xedit +++| SA6 B7 SAVE WORD
05396 M00S05180.xedit +++| SB7 B7+B1
05397 M00S05181.xedit +++| BX6 X1
05398 M00S05182.xedit +++| EQ RTA2 LOOP, PROCESS NEXT WORD
05399 M00S05183.xedit +++|
05400 M00S05184.xedit +++| RTA4 SB6 B6-1 RESET CHARACTER POINTER
05401 M00S05185.xedit +++| ZR X2,RTA6 IF LAST CHARACTER WAS A COLON
05402 M00S05186.xedit +++| RTA5 SA1 =40004000400040004000B
05403 M00S05187.xedit +++| SA6 B7
05404 M00S05188.xedit +++| BX2 X1*X7
05405 M00S05189.xedit +++| NZ X2,RTA7 IF ON BYTE BOUNDRY
05406 M00S05190.xedit +++|
05407 M00S05191.xedit +++| RTA6 SX1 1R
05408 M00S05192.xedit +++| EQ RTA3 BLANK FILL TO BYTE BOUNDARY
05409 M00S05193.xedit +++|
05410 M00S05194.xedit +++| RTA7 NG X7,RTA IF WORD IS FULL, RETURN
05411 M00S05195.xedit +++| RTA8 LX7 12
05412 M00S05196.xedit +++| LX6 12
05413 M00S05197.xedit +++| PL X7,RTA8 IF NOT LEFT JUSTIFIED
05414 M00S05198.xedit +++| SA6 B7
05415 M00S05199.xedit +++| ZR X6,RTA IF ASSURE A ZERO WORD, RETURN
05416 M00S05200.xedit +++| BX6 X6-X6
05417 M00S05201.xedit +++| SA6 A6+B1
05418 M00S05202.xedit +++| EQ RTA RETURN
05419 M00S05203.xedit +++| RTB SPACE 4,15
05420 M00S05204.xedit +++|** RTB - REMOVE TRAILING BLANKS FROM A CODED LINE.
05421 M00S05205.xedit +++|*
05422 M00S05206.xedit +++|* ENTRY (B6) = LWA+1 OF CODED LINE.
05423 M00S05207.xedit +++|* (B7) = FWA OF CODED LINE.
05424 M00S05208.xedit +++|*
05425 M00S05209.xedit +++|* EXIT UNSIGNIFICANT BLANKS REMOVED FROM LINE.
05426 M00S05210.xedit +++|*
05427 M00S05211.xedit +++|* USES A - 1, 2, 3, 6, 7.
05428 M00S05212.xedit +++|* X - 1, 2, 3, 4, 6, 7.
05429 M00S05213.xedit +++|* B - 3, 5, 6.
05430 M00S05214.xedit +++|*
05431 M00S05215.xedit +++|* CALLS RTA, UPL.
05432 M00S05216.xedit +++|*
05433 M00S05217.xedit +++|* NOTES THIS ROUTINE IS DESIGNED TO BE CALLED IMMEDIATELY
05434 M00S05218.xedit +++|* FOLLOWING A CALL TO *RDC*. THE ONLY PRESET NEEDED
05435 M00S05219.xedit +++|* IN THAT CASE IS TO SET B7. B6 IS SET VIA *RDC*.
05436 M00S05220.xedit +++|
05437 M00S05221.xedit +++|
05438 M00S05222.xedit +++| RTB7 SA1 B6-B1 GET NEXT WORD
05439 M00S05223.xedit +++| SB6 A1
05440 M00S05224.xedit +++| LT B6,B7,RTB5 IF BEGINNING OF LINE
05441 M00S05225.xedit +++| RTB8 BSS 0
05442 M00S05226.xedit +++| BX6 -X2-X1 111111 WHERE BLANK
05443 M00S05227.xedit +++| BX4 X3*X6 100000 WHERE POSSIBLE BLANK
05444 M00S05228.xedit +++| BX6 -X3*X6 011111 WHERE POSSIBLE BLANK
05445 M00S05229.xedit +++| LX4 -5 000001 WHERE POSSIBLE BLANK
05446 M00S05230.xedit +++| IX6 X4+X6 100000 WHERE BLANK
05447 M00S05231.xedit +++| BX6 X3*X6 100000 ONLY WHERE BLANK
05448 M00S05232.xedit +++| ZR X6,RTB5 IF NO BLANKS
05449 M00S05233.xedit +++| SX4 B3
05450 M00S05234.xedit +++| IX4 X1-X4 FIND LEFT MOST BIT
05451 M00S05235.xedit +++| BX4 X1-X4 REMOVE EXCESS UPPER BITS
05452 M00S05236.xedit +++| AX4 1 POSITION MASK
05453 M00S05237.xedit +++| BX4 X3*X4 100000 ONLY WHERE RIGHT 00B
05454 M00S05238.xedit +++| BX6 X6+X4 MERGE BLANKS AND 00B
05455 M00S05239.xedit +++| BX4 X6-X3 40 WHERE NOT (BLANK.OR.RIGHT 00)
05456 M00S05240.xedit +++| LX4 -1
05457 M00S05241.xedit +++| IX6 X4-X7 FIND LEFT MOST BIT
05458 M00S05242.xedit +++| BX4 X4-X6 REMOVE EXCESS UPPER BITS
05459 M00S05243.xedit +++| AX4 5 POSITION MASK
05460 M00S05244.xedit +++| BX6 -X4*X1 REMOVE CHARACTERS FROM WORD
05461 M00S05245.xedit +++| IX1 X6-X1 COMPARE INITIAL AND FINAL
05462 M00S05246.xedit +++| ZR X1,RTB4 IF NO CHANGE
05463 M00S05247.xedit +++| SA6 A1 REPLACE WORD
05464 M00S05248.xedit +++| SB3 B0 SET ZERO SEARCH OFF
05465 M00S05249.xedit +++| NG X4,RTB7 IF THIS WORD ENTIRELY ZEROED
05466 M00S05250.xedit +++| BX7 X4 CHECK LAST CHARACTER FOR 00B
05467 M00S05251.xedit +++| AX7 6
05468 M00S05252.xedit +++| BX4 X7-X4 77 AT LAST CHAR REMOVED
05469 M00S05253.xedit +++| SA3 =00770077007700770077B
05470 M00S05254.xedit +++| BX7 X4*X3
05471 M00S05255.xedit +++| NZ X7,RTB9 IF LAST CHAR REMOVED IS ODD-ADD BLANK
05472 M00S05256.xedit +++| LX4 6
05473 M00S05257.xedit +++| BX7 X6*X4 =0 IF LAST CHARACTER IS 00B
05474 M00S05258.xedit +++| NZ X7,RTB IF NEXT TO LAST NOT 00B
05475 M00S05259.xedit +++| BX3 X4 ADD 2 BLANKS
05476 M00S05260.xedit +++| LX4 -6
05477 M00S05261.xedit +++| LX3 -12
05478 M00S05262.xedit +++| BX4 X4+X3
05479 M00S05263.xedit +++| RTB9 BX2 X4*X2 ADD 1 OR 2 BLANKS
05480 M00S05264.xedit +++| IX6 X6+X2
05481 M00S05265.xedit +++| SA6 A1
05482 M00S05266.xedit +++|
05483 M00S05267.xedit +++| RTB PS ENTRY/EXIT
05484 M00S05268.xedit +++| SA1 B6-B1
05485 M00S05269.xedit +++| NZ X1,RTB0 IF WORD CONTAINS DATA
05486 M00S05270.xedit +++| SB6 B6-B1
05487 M00S05271.xedit +++|
05488 M00S05272.xedit +++|* CHECK FOR AUTOMATIC TRUNCATION TO 160 CHARACTERS.
05489 M00S05273.xedit +++|
05490 M00S05274.xedit +++| RTB0 SX7 B6-B7
05491 M00S05275.xedit +++| SB3 B1 SET CHECK FOR TRAILING 00,S
05492 M00S05276.xedit +++| SX7 X7-16D
05493 M00S05277.xedit +++| NG X7,RTB3 IF .LT. 16 WORDS SIGNIFICANT NO TRUNCATE
05494 M00S05278.xedit +++| SA2 AS
05495 M00S05279.xedit +++| SX6 2R PREPARE BLANKS
05496 M00S05280.xedit +++| ZR X2,RTB2 IF NOT IN ASCII MODE (TRUNCATE)
05497 M00S05281.xedit +++| SA2 =74747474747474747474B
05498 M00S05282.xedit +++| SA3 =01010101010101010101B
05499 M00S05283.xedit +++| SB5 B6-1
05500 M00S05284.xedit +++|
05501 M00S05285.xedit +++|* SEARCH FOR 74/76 CODES.
05502 M00S05286.xedit +++|
05503 M00S05287.xedit +++| RTB1 SA1 B5 GET CURRENT WORD
05504 M00S05288.xedit +++| BX4 -X1*X3 ISOLATE COMPLEMENT OF LOWER BIT
05505 M00S05289.xedit +++| BX7 X2*X1 GET UPPER 4 BITS
05506 M00S05290.xedit +++| LX4 2
05507 M00S05291.xedit +++| SB5 B5-B1
05508 M00S05292.xedit +++| IX4 X4+X7
05509 M00S05293.xedit +++| BX4 X4*X3
05510 M00S05294.xedit +++| NZ X4,RTB6 IF WORD CONTAINS ASCII
05511 M00S05295.xedit +++| GE B5,B7,RTB1 IF MORE TO CHECK
05512 M00S05296.xedit +++| RTB2 LX6 -12 ASSURE TRUNCATION BUT HANDLE COLON
05513 M00S05297.xedit +++| SA6 B7+16D
05514 M00S05298.xedit +++| SB6 A6+B1 RESET LWA+1 POINTER
05515 M00S05299.xedit +++| RTB3 SA2 =10H
05516 M00S05300.xedit +++| SA3 =40404040404040404040B
05517 M00S05301.xedit +++| SX7 B1
05518 M00S05302.xedit +++| EQ RTB7 REMOVE TRAILING BLANKS
05519 M00S05303.xedit +++|
05520 M00S05304.xedit +++| RTB4 NZ X4,RTB IF TRAILING ZEROS LOOKED FOR AND FOUND
05521 M00S05305.xedit +++|
05522 M00S05306.xedit +++|* HERE IF NO BLANKS FOUND IN WORD.
05523 M00S05307.xedit +++|
05524 M00S05308.xedit +++| RTB5 NZ B3,RTB IF NO CHANGES MADE
05525 M00S05309.xedit +++| SX6 2R PLACE BLANK IN LAST WORD. JUST IN CASE
05526 M00S05310.xedit +++| LX6 -12 OF POSSIBLE 00B CHARACTER IN CURRENT WORD
05527 M00S05311.xedit +++| SA6 A1+B1
05528 M00S05312.xedit +++| EQ RTB RETURN
05529 M00S05313.xedit +++|
05530 M00S05314.xedit +++|* PROCESS TRUNCATION WHEN UNPACK NECESSARY.
05531 M00S05315.xedit +++|
05532 M00S05316.xedit +++| RTB6 SA1 B7 SET FIRST WORD
05533 M00S05317.xedit +++| SB6 E.SCR SET TO SCRATCH AREA
05534 M00S05318.xedit +++| SB3 B7 SAVE FWA OF CODED BUFFER
05535 M00S05319.xedit +++| RJ UPL
05536 M00S05320.xedit +++| SB6 E.SCR
05537 M00S05321.xedit +++| SB7 B3
05538 M00S05322.xedit +++| RJ RTA RE-PACK TRUNCATED LINE
05539 M00S05323.xedit +++| EQ RTB RETURN
05540 M00S05324.xedit +++| SAC SPACE 4,15
05541 M00S05325.xedit +++|** SAC - SET ASCII MODE LINE AND READS.
05542 M00S05326.xedit +++|*
05543 M00S05327.xedit +++|* ENTRY NONE.
05544 M00S05328.xedit +++|*
05545 M00S05329.xedit +++|* EXIT LINE IN *E.STR* BUFFER,
05546 M00S05330.xedit +++|* *E.NMODE* SET TO ASCII.
05547 M00S05331.xedit +++|*
05548 M00S05332.xedit +++|* USES A - 1, 6, 7.
05549 M00S05333.xedit +++|* X - 1, 6, 7.
05550 M00S05334.xedit +++|* B - 6.
05551 M00S05335.xedit +++|*
05552 M00S05336.xedit +++|* CALLS UPL.
05553 M00S05337.xedit +++|
05554 M00S05338.xedit +++|
05555 M00S05339.xedit +++| SAC PS ENTRY/EXIT
05556 M00S05340.xedit +++| SA1 E.CMODE
05557 M00S05341.xedit +++| SX6 B1
05558 M00S05342.xedit +++| BX1 X1-X6
05559 M00S05343.xedit +++| SA6 A1-B1 SET E.NMODE TO ASCII
05560 M00S05344.xedit +++| ZR X1,SAC IF LINE ALREADY UNPACKED
05561 M00S05345.xedit +++| MX7 0
05562 M00S05346.xedit +++| SA6 A1 SET CURRENT MODE TO ASCII
05563 M00S05347.xedit +++| SA7 A1+B1 SET NO LINE MODIFICATIONS
05564 M00S05348.xedit +++|
05565 M00S05349.xedit +++|* UNPACK LINE.
05566 M00S05350.xedit +++|
05567 M00S05351.xedit +++| SA1 E.LINE
05568 M00S05352.xedit +++| SB6 E.STR
05569 M00S05353.xedit +++| RJ UPL UNPACK LINE
05570 M00S05354.xedit +++| SA6 E.STR-1 SET NUMBER OF CHARACTERS IN LINE
05571 M00S05355.xedit +++| EQ SAC RETURN
05572 M00S05356.xedit +++| SCD SPACE 4,10
05573 M00S05357.xedit +++|** SCD - SET CODED LINE.
05574 M00S05358.xedit +++|*
05575 M00S05359.xedit +++|* ENTRY NONE.
05576 M00S05360.xedit +++|*
05577 M00S05361.xedit +++|* EXIT CURRENT LINE IN *E.LINE*.
05578 M00S05362.xedit +++|* *E.CMODE* SET TO CODED.
05579 M00S05363.xedit +++|*
05580 M00S05364.xedit +++|* USES A - 1, 2, 6.
05581 M00S05365.xedit +++|* X - 1, 2, 6.
05582 M00S05366.xedit +++|* B - 6, 7.
05583 M00S05367.xedit +++|*
05584 M00S05368.xedit +++|* CALLS RTA.
05585 M00S05369.xedit +++|
05586 M00S05370.xedit +++|
05587 M00S05371.xedit +++| SCD PS ENTRY/EXIT
05588 M00S05372.xedit +++| SA1 E.CMODE
05589 M00S05373.xedit +++| MX6 0
05590 M00S05374.xedit +++| SA2 A1+B1 GET E.LMOD
05591 M00S05375.xedit +++| SA6 A1-B1 SET E.NMODE TO CODED
05592 M00S05376.xedit +++| SA6 A1 SET CURRENT MODE TO CODED
05593 M00S05377.xedit +++| ZR X2,SCD IF NO LINE MODIFICATIONS
05594 M00S05378.xedit +++| SA6 A1+B1 SET NO MODIFICATIONS
05595 M00S05379.xedit +++| SB6 E.STR
05596 M00S05380.xedit +++| SB7 E.LINE
05597 M00S05381.xedit +++| RJ RTA PACK LINE
05598 M00S05382.xedit +++| EQ SCD RETURN
05599 M00S05383.xedit +++| STL SPACE 4,15
05600 M00S05384.xedit +++|** STL - PROCESS TLX INTERRUPTS.
05601 M00S05385.xedit +++|*
05602 M00S05386.xedit +++|* ENTRY NONE.
05603 M00S05387.xedit +++|*
05604 M00S05388.xedit +++|* EXIT RETURNS TO CALLER IF NO TLX INTERRUPT SENSED,
05605 M00S05389.xedit +++|* ELSE REWINDS THE OUTPUT BUFFER AND EXITS TO *CER1* TO
05606 M00S05390.xedit +++|* POP THE INPUT STACK.
05607 M00S05391.xedit +++|*
05608 M00S05392.xedit +++|* USES A - 1, 2, 6.
05609 M00S05393.xedit +++|* X - 1, 2, 6.
05610 M00S05394.xedit +++|*
05611 M00S05395.xedit +++|* MACROS DISTC, RECALL.
05612 M00S05396.xedit +++|
05613 M00S05397.xedit +++|
05614 M00S05398.xedit +++| STL PS ENTRY/EXIT
05615 M00S05399.xedit +++| MX6 0
05616 M00S05400.xedit +++| SA2 TLX
05617 M00S05401.xedit +++| ZR X2,STL IF NO INTERRUPT, RETURN
05618 M00S05402.xedit +++| SA6 A2
05619 M00S05403.xedit +++| DISTC ON,TLX
05620 M00S05404.xedit +++| RECALL OUTPUT
05621 M00S05405.xedit +++| SA1 =XOUTPUT+1
05622 M00S05406.xedit +++| MX6 -18
05623 M00S05407.xedit +++| BX6 -X6*X1
05624 M00S05408.xedit +++| SA6 A1+1 IN=OUT=FIRST
05625 M00S05409.xedit +++| SA6 A6+1
05626 M00S05410.xedit +++| EQ CER1 GET NEXT INPUT LINE, EXIT
05627 M00S05411.xedit +++| STK SPACE 4,15
05628 M00S05412.xedit +++|** STK - STACK INPUT DEVICES.
05629 M00S05413.xedit +++|*
05630 M00S05414.xedit +++|* ENTRY (A1) = NEW DEVICE ADDRESS (EG. *I.DEV*).
05631 M00S05415.xedit +++|*
05632 M00S05416.xedit +++|* EXIT RETURNS IF DEVICE IS NOT AVAILABLE (USUALLY BUSY),
05633 M00S05417.xedit +++|* ELSE, ROUTINE EXITS TO NCM TO PROCESS THE NEW DEVICE.
05634 M00S05418.xedit +++|*
05635 M00S05419.xedit +++|* USES A - 1, 3, 4, 6, 7.
05636 M00S05420.xedit +++|* X - 1, 3, 4, 6, 7.
05637 M00S05421.xedit +++|* B- 7.
05638 M00S05422.xedit +++|*
05639 M00S05423.xedit +++|* CALLS UPL.
05640 M00S05424.xedit +++|*
05641 M00S05425.xedit +++|* NOTES THIS ROUTINE ASSUMES THAT .LINE FOR THE DEVICE HAS
05642 M00S05426.xedit +++|* BEEN PRE-LOADED WITH THE SPECIFIED COMMAND LINE.
05643 M00S05427.xedit +++|
05644 M00S05428.xedit +++|
05645 M00S05429.xedit +++| STK PS ENTRY/EXIT
05646 M00S05430.xedit +++| SA3 C.STR-1 MOVE TO DEVICE WORD
05647 M00S05431.xedit +++| SA4 C.ON GET POINTER TO CURRENT DEVICE
05648 M00S05432.xedit +++| BX6 X3
05649 M00S05433.xedit +++| SA6 X4+1
05650 M00S05434.xedit +++|
05651 M00S05435.xedit +++|* UNSTACK ANYTHING THAT CAN BE SAFELY REMOVED.
05652 M00S05436.xedit +++|
05653 M00S05437.xedit +++| STK1 SA3 X4+B1 GET CHARACTER POINTER WORD
05654 M00S05438.xedit +++| SX6 X4-I.DEV
05655 M00S05439.xedit +++| UX7,B7 X3 B7 .LE. 0, IF READY TO READ NEXT LINE
05656 M00S05440.xedit +++| ZR X6,STK2 IF ON PRIMARY INPUT DEVICE
05657 M00S05441.xedit +++| GT B7,STK2 IF DEVICE NOT AT END OF LINE
05658 M00S05442.xedit +++| SA3 X4-1 OBTAIN FET POINTER FOR DEVICE
05659 M00S05443.xedit +++| BX6 X3
05660 M00S05444.xedit +++| AX3 60 EXTEND *CMDPOP* FLAG
05661 M00S05445.xedit +++| BX6 -X3*X6 0, IF OK TO POP DEVICE
05662 M00S05446.xedit +++| NZ X6,STK2 IF (FET) .AND. (.NOT. *CMDPOP*)
05663 M00S05447.xedit +++|
05664 M00S05448.xedit +++|* POP STACK AND RE-TEST.
05665 M00S05449.xedit +++|