Seq # *Modification Id* Act
----------------------------+
03851 M00S03719.iedit +++| NG X5,GSPX IF NO CLOSING DELIMITER ON SEARCH STRING
03852 M00S03720.iedit +++| SA7 CNVRT
03853 M00S03721.iedit +++| RJ GTB GET BLOCK UP TO DELIMITER
03854 M00S03722.iedit +++| SX7 B2+
03855 M00S03723.iedit +++| SA5 STRD CHECK THE CLOSING DELIMETER
03856 M00S03724.iedit +++| SA7 NCIR STORE NUMBER OF CHARS IN REPLACE STRING
03857 M00S03725.iedit +++| NG X5,GSP1 IF CLOSING DELIMETER MISSING
03858 M00S03726.iedit +++| SA3 A3+1
03859 M00S03727.iedit +++| EQ GSP2 SET FUNCTION SUCCESSFUL
03860 M00S03728.iedit +++| GSR SPACE 4,20
03861 M00S03729.iedit +++|** GSR - GET SINGLE RANGE OF LINE NUMBERS.
03862 M00S03730.iedit +++|*
03863 M00S03731.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING LINE RANGE.
03864 M00S03732.iedit +++|*
03865 M00S03733.iedit +++|* EXIT (LCIP) = ADDRESS OF LAST CHARACTER PARSED.
03866 M00S03734.iedit +++|* (SUCC) = 0, IF LINE NUMBER/RANGE FOUND.
03867 M00S03735.iedit +++|*
03868 M00S03736.iedit +++|* USES X - 6, 7.
03869 M00S03737.iedit +++|* A - 6, 7.
03870 M00S03738.iedit +++|*
03871 M00S03739.iedit +++|* CALL GLR.
03872 M00S03740.iedit +++|
03873 M00S03741.iedit +++|
03874 M00S03742.iedit +++| GSR SUBR ENTRY/EXIT
03875 M00S03743.iedit +++| RJ GLR GET A LINE RANGE
03876 M00S03744.iedit +++| NG X6,GSRX IF LINE NUMBER NOT FOUND, RETURN
03877 M00S03745.iedit +++| SX7 A3
03878 M00S03746.iedit +++| SX6 B0
03879 M00S03747.iedit +++| SA7 LCIP SET SUCCESS FLAG TO TRUE
03880 M00S03748.iedit +++| SA6 SUCC MARK WHERE SCAN ENDED
03881 M00S03749.iedit +++| EQ GSRX RETURN
03882 M00S03750.iedit +++| GSS SPACE 4,15
03883 M00S03751.iedit +++|** GSS - GET STRING FOR SEARCH.
03884 M00S03752.iedit +++|*
03885 M00S03753.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING STRING.
03886 M00S03754.iedit +++|*
03887 M00S03755.iedit +++|* EXIT (LCIP) = ADDRESS OF LAST CHARACTER PARSED.
03888 M00S03756.iedit +++|* (SUCC) = 0, IF FUNCTION SUCCESSFUL.
03889 M00S03757.iedit +++|* (SRTFLG) = 1, IF CHARACTER STRING SPECIFIED.
03890 M00S03758.iedit +++|*
03891 M00S03759.iedit +++|* USES X - 5, 6.
03892 M00S03760.iedit +++|* A - 5, 6, 7.
03893 M00S03761.iedit +++|*
03894 M00S03762.iedit +++|* MACROS WRITEC.
03895 M00S03763.iedit +++|
03896 M00S03764.iedit +++|
03897 M00S03765.iedit +++| GSS SUBR ENTRY/EXIT
03898 M00S03766.iedit +++| RJ GCS GET SEARCH STRING
03899 M00S03767.iedit +++| NZ X7,GSSX IF SEARCH STRING NOT FOUND, RETURN
03900 M00S03768.iedit +++| SX6 A3+
03901 M00S03769.iedit +++| SA7 SUCC SET SUCCESS FLAG TO TRUE
03902 M00S03770.iedit +++| SA6 LCIP MARK WHERE SCAN ENDED
03903 M00S03771.iedit +++| SA5 STRD
03904 M00S03772.iedit +++| PL X5,GSSX IF CLOSING DELIMETER FOUND, RETURN
| Line S03773 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03905 M01S03773.iedit2 ---| WRITEC O,ERRNDF
| Line S00102 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03906 M01S00102.iedit2 +++| WRITEC O,ERRNDF *NO CLOSING DELIMITER FOUND.*
03907 M00S03774.iedit +++| EQ GSSX RETURN
03908 M00S03775.iedit +++| ABB TITLE PRESET SUBROUTINES
03909 M00S03776.iedit +++| FVT SPACE 4,20
03910 M00S03777.iedit +++|** FVT - FIND VERB IN TABLE.
03911 M00S03778.iedit +++|*
03912 M00S03779.iedit +++|* FVT SCANS THE *VERB* TABLE LOOKING FOR THE VERB
03913 M00S03780.iedit +++|* THAT MATCHES THE ONE IN THE COMMAND BUFFER.
03914 M00S03781.iedit +++|*
03915 M00S03782.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING VERB NAME.
03916 M00S03783.iedit +++|*
03917 M00S03784.iedit +++|* EXIT ((A2)) = (X2) = LINE IN *TDVB* CONTAINING VERB.
03918 M00S03785.iedit +++|* (LCIV) = (LCIP) = ADDRESS OF LAST CHARACTER IN VERB.
03919 M00S03786.iedit +++|*
03920 M00S03787.iedit +++|* USES X - 0, 1, 2, 4, 5, 6, 7.
03921 M00S03788.iedit +++|* A - 1, 2, 7.
03922 M00S03789.iedit +++|* B - 6.
03923 M00S03790.iedit +++|*
03924 M00S03791.iedit +++|* CALLS GTB.
03925 M00S03792.iedit +++|
03926 M00S03793.iedit +++|
03927 M00S03794.iedit +++| FVT2 SX7 A3+
03928 M00S03795.iedit +++| SA7 LCIV STORE ADDRESS OF LAST CHARACTER IN VERB
03929 M00S03796.iedit +++| SA7 LCIP MARK WHERE SCAN ENDED
03930 M00S03797.iedit +++|
03931 M00S03798.iedit +++| FVT SUBR ENTRY/EXIT
03932 M00S03799.iedit +++| SX7 B0+
03933 M00S03800.iedit +++| SA7 CNVRT
03934 M00S03801.iedit +++| RJ GTB GET VERB
03935 M00S03802.iedit +++| SA1 BLOCK
| Line S03803 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03936 M01S03803.iedit2 ---| SX5 ERRNIV
| Line S00103 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
03937 M01S00103.iedit2 +++| SX5 ERRNIV *NON-EXISTENT EDIT VERB SPECIFIED.*
03938 M00S03804.iedit +++| ZR B2,ERR IF NO CHARACTERS IN BLOCK
03939 M00S03805.iedit +++| SB6 MXWS
03940 M00S03806.iedit +++| SX2 LETA
03941 M00S03807.iedit +++| GT B2,B6,ERR IF NAME TOO LONG
03942 M00S03808.iedit +++| BX6 -X2*X6
| Line S03809 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03943 M01S03809.v23l617 ---| NZ X6,ERR IF INVALID CHARACTERS FOUND
| Line S00016 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03944 M01S00016.v23l617 +++| NZ X6,ERR IF INCORRECT CHARACTERS FOUND
03945 M00S03810.iedit +++| SA2 TDVB
03946 M00S03811.iedit +++| MX0 TDVNN
03947 M00S03812.iedit +++| MX7 -TDIVN
03948 M00S03813.iedit +++| FVT1 BX4 X0*X2 VERB FROM TABLE
03949 M00S03814.iedit +++| BX4 X1-X4
03950 M00S03815.iedit +++| ZR X4,FVT2 IF MATCH FOUND
03951 M00S03816.iedit +++| BX4 -X7*X2
03952 M00S03817.iedit +++| SB6 X4+
03953 M00S03818.iedit +++| SA2 A2+B6 NEXT TABLE ENTRY WITH VERB
03954 M00S03819.iedit +++| ZR X2,ERR IF NO VERB FOUND
03955 M00S03820.iedit +++| EQ FVT1 CHECK NEXT ENTRY FOR MATCH
03956 M00S03821.iedit +++| GCS SPACE 4,20
03957 M00S03822.iedit +++|** GCS - GET CHARACTER STRING FOR SEARCH.
03958 M00S03823.iedit +++|*
03959 M00S03824.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING STRING.
03960 M00S03825.iedit +++|*
03961 M00S03826.iedit +++|* EXIT ((A3)) = (X3) = LAST CHARACTER IN STRING.
03962 M00S03827.iedit +++|* (X7) = 0, IF FUNCTION SUCCESSFUL.
03963 M00S03828.iedit +++|* (NCIS) = NUMBER OF CHARACTERS IN SEARCH STRING.
03964 M00S03829.iedit +++|* (SBUF) = SEARCH STRING, ONE CHARACTER PER WORD.
03965 M00S03830.iedit +++|* (STRD) = STRING DELIMITER CHARACTER.
03966 M00S03831.iedit +++|*
03967 M00S03832.iedit +++|* USES X - 3, 5, 6, 7.
03968 M00S03833.iedit +++|* A - 3, 5, 6, 7.
03969 M00S03834.iedit +++|*
03970 M00S03835.iedit +++|* CALLS GTB, GTC, GTS.
03971 M00S03836.iedit +++|
03972 M00S03837.iedit +++|
03973 M00S03838.iedit +++| GCS SUBR ENTRY/EXIT
03974 M00S03839.iedit +++| SX7 B1+
03975 M00S03840.iedit +++| RJ GTS GET SEPARATOR
03976 M00S03841.iedit +++| ZR X0,GCSX IF SEPARATOR NOT FOUND, RETURN
03977 M00S03842.iedit +++| RJ GTS GET NEXT SEPARATOR
03978 M00S03843.iedit +++| ZR X0,GCS1 IF SEPARATOR NOT FOUND
03979 M00S03844.iedit +++| SA3 A3-1
03980 M00S03845.iedit +++| GCS1 RJ GTC GET CHARACTER
03981 M00S03846.iedit +++| ZR X4,GCSX IF NO CHARACTERS FOUND, RETURN
03982 M00S03847.iedit +++| SX5 DLMA
03983 M00S03848.iedit +++| BX5 X5*X4
03984 M00S03849.iedit +++| ZR X5,GCSX IF STRING DELIMITER NOT FOUND
03985 M00S03850.iedit +++| SX7 X3 SAVE DELIMITER
03986 M00S03851.iedit +++| SX6 SBUF SET UP FOR NO ASCII TO NORMAL CONVERSION
03987 M00S03852.iedit +++| SA7 STRD
03988 M00S03853.iedit +++| SA6 CNVRT
03989 M00S03854.iedit +++| RJ GTB GET BLOCK UP TO DELIMITER
03990 M00S03855.iedit +++| SX7 B2+ SAVE CHARACTER COUNT OF SEARCH STRING
03991 M00S03856.iedit +++| SA5 STRD
03992 M00S03857.iedit +++| SA7 NCIS
03993 M00S03858.iedit +++| SX7 B0+
03994 M00S03859.iedit +++| NG X5,GCSX IF SECOND DELIMITER NOT FOUND, RETURN
03995 M00S03860.iedit +++| SA3 A3+B1
03996 M00S03861.iedit +++| EQ GCSX RETURN
03997 M00S03862.iedit +++| GLN SPACE 4,20
03998 M00S03863.iedit +++|** GLN - GET LINE NUMBER.
03999 M00S03864.iedit +++|*
04000 M00S03865.iedit +++|* *GLN* GETS A LINE NUMBER AND CONVERTS IT TO BINARY IN *X6*.
04001 M00S03866.iedit +++|* AN ASTERISK IS CONVERTED INTO THE VALUE *MXLN+1*.
04002 M00S03867.iedit +++|*
04003 M00S03868.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING LINE NUMBER
04004 M00S03869.iedit +++|*
04005 M00S03870.iedit +++|* EXIT ((A3)) = (X3) = LAST CHARACTER IN LINE NUMBER.
04006 M00S03871.iedit +++|* (X6) = LINE NUMBER READ RIGHT JUSTIFIED (BINARY).
04007 M00S03872.iedit +++|* .LT. 0, IF LINE NUMBER NOT READ.
04008 M00S03873.iedit +++|*
04009 M00S03874.iedit +++|* USES X - 3, 5, 6, 7.
04010 M00S03875.iedit +++|* A - 3, 5, 7.
04011 M00S03876.iedit +++|* B - 2, 7.
04012 M00S03877.iedit +++|*
04013 M00S03878.iedit +++|* CALLS DXB, GTB.
04014 M00S03879.iedit +++|
04015 M00S03880.iedit +++|
04016 M00S03881.iedit +++| GLN2 SA3 A3+B1
04017 M00S03882.iedit +++| SA5 CSTI CHECK CHARACTER SET
04018 M00S03883.iedit +++| SB2 X5
04019 M00S03884.iedit +++| SB2 B2-B1
04020 M00S03885.iedit +++| SX7 X3-1R*
04021 M00S03886.iedit +++| NG B2,GLN3 IF NOT *ASCII8* CHARACTER SET
04022 M00S03887.iedit +++| SX7 X3-52B
04023 M00S03888.iedit +++| GLN3 NZ X7,GLN1 IF NOT AN ASTERISK
04024 M00S03889.iedit +++| SX6 MXLN+1 SET VALUE TO *MXLN+1*
04025 M00S03890.iedit +++|
04026 M00S03891.iedit +++| GLN SUBR ENTRY/EXIT
04027 M00S03892.iedit +++| SX7 B0+
04028 M00S03893.iedit +++| SA7 CNVRT
04029 M00S03894.iedit +++| RJ GTB GET LINE NUMBER
04030 M00S03895.iedit +++| ZR B2,GLN2 IF NO CHARACTERS FOUND
04031 M00S03896.iedit +++| SX5 DIGA GET MASK FOR NUMBER
04032 M00S03897.iedit +++| SB7 NUMD
04033 M00S03898.iedit +++| BX5 -X5*X6
04034 M00S03899.iedit +++| NZ X5,GLN1 IF NON-DIGIT FOUND
04035 M00S03900.iedit +++| GT B2,B7,GLN1
04036 M00S03901.iedit +++| SB7 B1
04037 M00S03902.iedit +++| SA5 BLOCK
04038 M00S03903.iedit +++| RJ DXB CONVERT NUMBER TO BINARY
04039 M00S03904.iedit +++| SA3 A3
04040 M00S03905.iedit +++| ZR X4,GLNX IF NUMBER CONVERTABLE
| Line S03906 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
04041 M01S03906.iedit2 ---| SX5 ERRELR
| Line S00104 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
04042 M01S00104.iedit2 +++| SX5 ERRELR *LINE RANGE ERROR.*
04043 M00S03907.iedit +++| EQ ERR ISSUE *ERROR IN LINE RANGE* MESSAGE
04044 M00S03908.iedit +++|
04045 M00S03909.iedit +++| GLN1 SX6 -1 SET FAILURE FLAG
04046 M00S03910.iedit +++| EQ GLNX RETURN
04047 M00S03911.iedit +++| GLR SPACE 4,25
04048 M00S03912.iedit +++|** GLR - GET LINE RANGE.
04049 M00S03913.iedit +++|*
04050 M00S03914.iedit +++|* *GLR* GETS A LINE RANGE (INCLUDING THE RANGE OF SINGLE LINE
04051 M00S03915.iedit +++|* NUMBERS) AND MAKES A RANGE ENTRY FOR IT IN THE *LRT*.
04052 M00S03916.iedit +++|*
04053 M00S03917.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING LINE RANGE.
04054 M00S03918.iedit +++|*
04055 M00S03919.iedit +++|* EXIT ((A3)) = (X3) = LAST CHARACTER IN LINE RANGE.
04056 M00S03920.iedit +++|* (X6) = .LT. 0, IF FUNCTION NOT SUCCESSFUL.
04057 M00S03921.iedit +++|*
04058 M00S03922.iedit +++|* USES X - 1, 2, 3, 4, 5, 6, 7.
04059 M00S03923.iedit +++|* A - 1, 3, 4, 6, 7.
04060 M00S03924.iedit +++|* B - 2.
04061 M00S03925.iedit +++|*
04062 M00S03926.iedit +++|* CALLS GLN, GTC, GTS.
04063 M00S03927.iedit +++|
04064 M00S03928.iedit +++|
04065 M00S03929.iedit +++| GLR SUBR ENTRY/EXIT
04066 M00S03930.iedit +++| SX6 -B1
04067 M00S03931.iedit +++| RJ GTS
04068 M00S03932.iedit +++| ZR X0,GLRX IF NO SEPARATOR FOUND, RETURN
04069 M00S03933.iedit +++| RJ GLN GET LINE NUMBER
04070 M00S03934.iedit +++| NG X6,GLRX IF NUMBER NOT FOUND, RETURN
04071 M00S03935.iedit +++| SA6 LROP STORE NUMBER
04072 M00S03936.iedit +++| RJ GTC GET CHARACTER
04073 M00S03937.iedit +++| ZR X4,GLR2 IF END OF LINE
04074 M00S03938.iedit +++| LX4 30
04075 M00S03939.iedit +++| MX5 -NBIC
04076 M00S03940.iedit +++| NG X4,GLR1 IF NO DISPLAY CODE EQUIVALENT
04077 M00S03941.iedit +++| LX4 NBIC+1
04078 M00S03942.iedit +++| BX1 -X5*X4
04079 M00S03943.iedit +++| SX1 X1-1R.
04080 M00S03944.iedit +++| ZR X1,GLR4 IF CHARACTER A PERIOD
04081 M00S03945.iedit +++| GLR1 SA3 A3-1
04082 M00S03946.iedit +++| GLR2 SA4 LROP
04083 M00S03947.iedit +++| SX2 X4-MXLN-1
04084 M00S03948.iedit +++| NZ X2,GLR3 IF ENTIRE FILE NOT SELECTED
04085 M00S03949.iedit +++| SX6 MXLN
04086 M00S03950.iedit +++| LX6 18 CONSTRUCT AN *..* *LRT* ENTRY
04087 M00S03951.iedit +++| EQ GLR6 APPEND TO *LRT*
04088 M00S03952.iedit +++|
04089 M00S03953.iedit +++| GLR3 SB2 18
04090 M00S03954.iedit +++| LX4 B2,X6
04091 M00S03955.iedit +++| BX6 X4+X6 CONSTRUCT A SINGLE LINE *LRT* ENTRY
04092 M00S03956.iedit +++| EQ GLR6 APPEND TO *LRT*
04093 M00S03957.iedit +++|
04094 M00S03958.iedit +++| GLR4 RJ GTC GET NEXT CHARACTER
04095 M00S03959.iedit +++| SA3 A3-B1
04096 M00S03960.iedit +++| ZR X4,GLR2 IF NO CHARACTER
04097 M00S03961.iedit +++| SA3 A3-B1
04098 M00S03962.iedit +++| LX4 30
04099 M00S03963.iedit +++| NG X4,GLR2 IF NO DISPLAY CODE EQUIVALENT
04100 M00S03964.iedit +++| LX4 NBIC+1
04101 M00S03965.iedit +++| BX1 -X5*X4
04102 M00S03966.iedit +++| SX2 X1-1R.
04103 M00S03967.iedit +++| NZ X2,GLR2 IF NOT A PERIOD
04104 M00S03968.iedit +++| SA3 A3+2
04105 M00S03969.iedit +++| RJ GLN GET SECOND LINE NUMBER
04106 M00S03970.iedit +++| NG X6,GLR7 IF NO NUMBER FOUND
04107 M00S03971.iedit +++| SA4 LROP
04108 M00S03972.iedit +++| SX2 X4-MXLN-1
04109 M00S03973.iedit +++| NZ X2,GLR5 IF FIRST NUMBER NOT AN ASTERISK
04110 M00S03974.iedit +++| SX4 B0+
04111 M00S03975.iedit +++| GLR5 LX6 18
04112 M00S03976.iedit +++| BX6 X6+X4
04113 M00S03977.iedit +++| GLR6 SA1 NELR
04114 M00S03978.iedit +++| SA6 X1+LRT ADD ENTRY TO *LRT*
04115 M00S03979.iedit +++| SX7 X1+B1
04116 M00S03980.iedit +++| SA7 A1 ADD ONE TO *LRT* ENTRY COUNT
04117 M00S03981.iedit +++| EQ GLRX RETURN
04118 M00S03982.iedit +++|
| Line S03983 Modification History |
M01 (Removed by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
04119 M01S03983.iedit2 ---| GLR7 SX5 ERRELR
| Line S00105 Modification History |
M01 (Added by) | iedit2 |
Seq # *Modification Id* Act
----------------------------+
04120 M01S00105.iedit2 +++| GLR7 SX5 ERRELR *LINE RANGE ERROR.*
04121 M00S03984.iedit +++| EQ ERR ISSUE *ERROR IN LINE RANGE* MESSAGE
04122 M00S03985.iedit +++| GTB SPACE 4,30
04123 M00S03986.iedit +++|** GTB - GET BLOCK.
04124 M00S03987.iedit +++|*
04125 M00S03988.iedit +++|* IF (CNVRT) = 0, CHARACTERS ARE CONVERTED TO DISPLAY CODE AND
04126 M00S03989.iedit +++|* PACKED INTO *BLOCK* UP TO THE FIRST SEPARATOR, TERMINATOR,
04127 M00S03990.iedit +++|* OR DELIMITER. ANY BLANKS FOUND ARE REMOVED. IF
04128 M00S03991.iedit +++|* (CNVRT) .NE. 0, IT CONTAINS A STRING BUFFER ADDRESS TO WHICH
04129 M00S03992.iedit +++|* CHARACTERS SHOULD BE MOVED. THE CHARACTERS ARE NOT
04130 M00S03993.iedit +++|* CONVERTED TO DISPLAY CODE AND BLANKS ARE NOT DISCARDED.
04131 M00S03994.iedit +++|* THE CHARACTERS ARE STORED IN THE BUFFER, ONE CHARACTER PER
04132 M00S03995.iedit +++|* WORD UNTIL THE CHARACTER IN *STRD* IS FOUND OR THE END OF
04133 M00S03996.iedit +++|* THE COMMAND IS REACHED.
04134 M00S03997.iedit +++|*
04135 M00S03998.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING START OF BLOCK.
04136 M00S03999.iedit +++|* (CNVRT)= 0, IF BLOCK TO BE CONVERTED TO DISPLAY CODE
04137 M00S04000.iedit +++|* AND PACKED INTO *BLOCK* WITH ALL BLANKS
04138 M00S04001.iedit +++|* REMOVED.
04139 M00S04002.iedit +++|* .GT. 0, IF BLOCK IS NOT TO BE CONVERTED AND
04140 M00S04003.iedit +++|* IS TO BE MOVED IN UNPACKED FORM TO THE
04141 M00S04004.iedit +++|* ADDRESS IN *CNVRT*
04142 M00S04005.iedit +++|* (STRD) = THE DESIRED DELIMITER WHEN *CNVRT* = ZERO.
04143 M00S04006.iedit +++|*
04144 M00S04007.iedit +++|* EXIT ((A3)) = (X3) = LAST CHARACTER OF BLOCK.
04145 M00S04008.iedit +++|* (B2) = COUNT OF CHARACTERS READ IN BLOCK.
04146 M00S04009.iedit +++|* (X6) = ATTRIBUTES OF BLOCK.
04147 M00S04010.iedit +++|* BLOCK = FWA OF BLOCK OF CHARACTERS OBTAINED
04148 M00S04011.iedit +++|* CHARACTERS IN LAST WORD OF *BLOCK* LEFT
04149 M00S04012.iedit +++|* JUSTIFIED.
04150 M00S04013.iedit +++|* (STRD) = .LT. 0, IF SPECIFIED DELIMETER NOT FOUND.
04151 M00S04014.iedit +++|*
04152 M00S04015.iedit +++|* USES X - 1, 2, 3, 4, 5, 6, 7.
04153 M00S04016.iedit +++|* A - 2, 3, 5, 7.
04154 M00S04017.iedit +++|* B - 2, 4, 6, 7.
04155 M00S04018.iedit +++|*
04156 M00S04019.iedit +++|* CALLS GTC.
04157 M00S04020.iedit +++|
04158 M00S04021.iedit +++|
04159 M00S04022.iedit +++| GTB5 LX7 B7
04160 M00S04023.iedit +++| SA7 BLOCK+B6 STORE LAST WORD OF BLOCK
04161 M00S04024.iedit +++| GTB6 MX7 -MXNA
04162 M00S04025.iedit +++| BX6 -X7*X6 LEAVE ONLY THE ATTRIBUTES IN *X6*
04163 M00S04026.iedit +++| ZR X4,GTB7 IF NO CLOSING DELIMITER FOUND
04164 M00S04027.iedit +++| SA3 A3-1
04165 M00S04028.iedit +++| EQ GTBX RETURN
04166 M00S04029.iedit +++|
04167 M00S04030.iedit +++| GTB7 SX7 -1
04168 M00S04031.iedit +++| SA7 STRD
04169 M00S04032.iedit +++|
04170 M00S04033.iedit +++| GTB SUBR ENTRY/EXIT
04171 M00S04034.iedit +++| SA2 CNVRT
04172 M00S04035.iedit +++| SX6 B0 INITIALIZE ATTRIBUTE OF BLOCK
04173 M00S04036.iedit +++| SB2 B0 INITIALIZE COUNT OF CHARACTERS IN BLOCK
04174 M00S04037.iedit +++| ZR X2,GTB2 IF BLOCK IS TO BE PACKED
04175 M00S04038.iedit +++| SA5 STRD
04176 M00S04039.iedit +++| SB4 X2-1
04177 M00S04040.iedit +++| GTB1 RJ GTC GET CHARACTER AND ATTRIBUTE
04178 M00S04041.iedit +++| ZR X4,GTB6 IF END OF LINE ENCOUNTERED
04179 M00S04042.iedit +++| IX2 X5-X3
04180 M00S04043.iedit +++| ZR X2,GTB6 IF SPECIFIED DELIMITER FOUND
04181 M00S04044.iedit +++| BX6 X6+X4 ACCUMULATE ATTRIBUTES
04182 M00S04045.iedit +++| SB2 B2+B1 INCREMENT COUNT OF CHARACTERS
04183 M00S04046.iedit +++| BX7 X3
04184 M00S04047.iedit +++| SA7 B4+B2 ADD CHARACTER TO BUFFER
04185 M00S04048.iedit +++| EQ GTB1 GET NEXT CHARACTER
04186 M00S04049.iedit +++|
04187 M00S04050.iedit +++| GTB2 SB6 B0
04188 M00S04051.iedit +++| SX7 B0
04189 M00S04052.iedit +++| SB7 60
04190 M00S04053.iedit +++| GTB3 RJ GTC
04191 M00S04054.iedit +++| ZR X4,GTB5 IF END OF LINE ENCOUNTERED
04192 M00S04055.iedit +++| SX1 X3
04193 M00S04056.iedit +++| SA2 CSTI
04194 M00S04057.iedit +++| ZR X2,GTB4 IF *NORMAL* CHARACTER SET
04195 M00S04058.iedit +++| LX4 30
04196 M00S04059.iedit +++| SX5 ERREIS *ERROR IN EDIT COMMAND SYNTAX*
04197 M00S04060.iedit +++| NG X4,ERR IF CHARACTER NOT CONVERTABLE TO *NORMAL*
04198 M00S04061.iedit +++| LX4 NBIC+1
04199 M00S04062.iedit +++| MX2 -NBIC
04200 M00S04063.iedit +++| BX1 -X2*X4 GET DISPLAY CODE EQUIVALENT
04201 M00S04064.iedit +++| LX4 29-NBIC
04202 M00S04065.iedit +++| GTB4 SX2 X1-1R
04203 M00S04066.iedit +++| ZR X2,GTB3 IF CHARACTER IS A BLANK
04204 M00S04067.iedit +++| SX2 SEDE+TERA+CHAA
04205 M00S04068.iedit +++| BX2 X2*X4
04206 M00S04069.iedit +++| NZ X2,GTB5 IF DELIMITER, SEPARATOR, OR TERMINATOR
04207 M00S04070.iedit +++| BX6 X6+X4 ACCUMULATE ATTRIBUTES
04208 M00S04071.iedit +++| SB2 B2+1 INCREMENT COUNT OF CHARACTERS
04209 M00S04072.iedit +++| LX7 NBIC
04210 M00S04073.iedit +++| BX7 X7+X1 ADD CHARACTER TO BLOCK
04211 M00S04074.iedit +++| SB7 B7-NBIC
04212 M00S04075.iedit +++| GT B7,GTB3 IF ROOM FOR MORE CHARACTERS IN *X7*
04213 M00S04076.iedit +++| SB7 60
04214 M00S04077.iedit +++| SA7 BLOCK+B6 STORE PACKED WORD
04215 M00S04078.iedit +++| SB6 B6+B1
04216 M00S04079.iedit +++| SX7 B0
04217 M00S04080.iedit +++| EQ GTB3 GET NEXT CHARACTER
04218 M00S04081.iedit +++| GTC SPACE 4,25
04219 M00S04082.iedit +++|** GTC - GET CHARACTER AND ATTRIBUTE.
04220 M00S04083.iedit +++|*
04221 M00S04084.iedit +++|* *GTC* GETS THE NEXT CHARACTER IN THE COMMAND. THE
04222 M00S04085.iedit +++|* ATTRIBUTES OF THE CHARACTER ARE OBTAINED BY EXTRACTING THE
04223 M00S04086.iedit +++|* ENTRY FROM THE ATTRIBUTE TABLE CORRESPONDING TO THAT
04224 M00S04087.iedit +++|* CHARACTER. THE ATTRIBUTES ARE RETURNED IN X4 (ONE BIT IS SET
04225 M00S04088.iedit +++|* FOR EACH ATTRIBUTE OF THE CHARACTER). FOR ASCII 6/12 AND
04226 M00S04089.iedit +++|* 8/12 CHARACTERS, THE HIGH ORDER BITS OF X4 CONTAIN THE
04227 M00S04090.iedit +++|* DISPLAY CODE EQUIVALENT OF THAT CHARACTER IF IT EXISTS.
04228 M00S04091.iedit +++|*
04229 M00S04092.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER LAST RETRIEVED BY *GTC*.
04230 M00S04093.iedit +++|*
04231 M00S04094.iedit +++|* EXIT ((A3)) = (X3) = CHARACTER RIGHT JUSTIFIED, ZERO FILL.
04232 M00S04095.iedit +++|* (X4) = ATTRIBUTES OF CHARACTER AND DISPLAY CODE
04233 M00S04096.iedit +++|* EQUIVALENT (ZERO IF END OF LINE).
04234 M00S04097.iedit +++|* AND DISPLAY CODE EQUIVALENT.
04235 M00S04098.iedit +++|*
04236 M00S04099.iedit +++|* USES X - 2, 3, 4.
04237 M00S04100.iedit +++|* A - 2, 3, 4.
04238 M00S04101.iedit +++|* B - 5.
04239 M00S04102.iedit +++|
04240 M00S04103.iedit +++|
04241 M00S04104.iedit +++| GTC SUBR ENTRY/EXIT
04242 M00S04105.iedit +++| SA2 USBC GET ADDRESS OF END OF LINE
04243 M00S04106.iedit +++| SX4 B0 INITIALIZE ATTRIBUTES TO ZERO
04244 M00S04107.iedit +++| SB5 X2
04245 M00S04108.iedit +++| SB5 A3-B5
04246 M00S04109.iedit +++| GE B5,GTCX IF END OF LINE, RETURN
04247 M00S04110.iedit +++| SA3 A3+B1 GET NEXT CHARACTER
04248 M00S04111.iedit +++| SA4 TATC
04249 M00S04112.iedit +++| SA2 CSTI DETERMINE CHARACTER SET
04250 M00S04113.iedit +++| SB5 X2
04251 M00S04114.iedit +++| GT B5,GTC3 IF ASCII 8/12 CHARACTER SET
04252 M00S04115.iedit +++| BX2 X3
04253 M00S04116.iedit +++| ZR B5,GTC2 IF *NORMAL* CHARACTER SET
04254 M00S04117.iedit +++| BX4 X3
04255 M00S04118.iedit +++| AX4 NBIC
04256 M00S04119.iedit +++| ZR X4,GTC2 IF NO ESCAPE CODE
04257 M00S04120.iedit +++| SX4 X4-EC2
04258 M00S04121.iedit +++| SB5 70 OFFSET FOR 76 ESCAPE CODE
04259 M00S04122.iedit +++| ZR X4,GTC1 IF ESCAPE CODE 76
04260 M00S04123.iedit +++| SB5 63 OFFSET FOR 74 ESCAPE CODE
04261 M00S04124.iedit +++| GTC1 SA4 A4+B5
04262 M00S04125.iedit +++| BX2 X3
04263 M00S04126.iedit +++| MX4 -NBIC
04264 M00S04127.iedit +++| BX2 -X4*X2 SET CHARACTER WITHOUT ESCAPE CODE
04265 M00S04128.iedit +++| GTC2 SB5 X2+
04266 M00S04129.iedit +++| SA4 A4+B5 GET *6/12* OR *NORMAL* CHAR ATTRIBUTE
04267 M00S04130.iedit +++| MX2 30
04268 M00S04131.iedit +++| BX4 X2*X4 SET ATTRIBUTE
04269 M00S04132.iedit +++| LX4 30
04270 M00S04133.iedit +++| EQ GTCX RETURN
04271 M00S04134.iedit +++|
04272 M00S04135.iedit +++| GTC3 MX2 -7
04273 M00S04136.iedit +++| BX2 -X2*X3
04274 M00S04137.iedit +++| SB5 X2
04275 M00S04138.iedit +++| SA4 A4+B5 GET 8/12 CHARACTER ATTRIBUTE
04276 M00S04139.iedit +++| MX2 -30
04277 M00S04140.iedit +++| BX4 -X2*X4
04278 M00S04141.iedit +++| EQ GTCX RETURN
04279 M00S04142.iedit +++| GTS SPACE 4,15
04280 M00S04143.iedit +++|** GTS - GET SEPARATOR.
04281 M00S04144.iedit +++|*
04282 M00S04145.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING SEPARATOR.
04283 M00S04146.iedit +++|*
04284 M00S04147.iedit +++|* EXIT ((A3)) = (X3) = SEPARATOR RIGHT JUSTIFIED.
04285 M00S04148.iedit +++|* (X0) = 0, IF SEPARATOR NOT FOUND.
04286 M00S04149.iedit +++|* .NE. 0, IF SEPARATOR FOUND.
04287 M00S04150.iedit +++|*
04288 M00S04151.iedit +++|* USES X - 0, 1, 3, 4.
04289 M00S04152.iedit +++|* A - 3, 4.
04290 M00S04153.iedit +++|*
04291 M00S04154.iedit +++|* CALLS GTC.
04292 M00S04155.iedit +++|
04293 M00S04156.iedit +++|
04294 M00S04157.iedit +++| GTS SUBR ENTRY/EXIT
04295 M00S04158.iedit +++| SX1 SEPA GET MASK FOR SEPARATOR
04296 M00S04159.iedit +++| SX0 B0+
04297 M00S04160.iedit +++| GTS1 RJ GTC GET NEXT CHARACTER
04298 M00S04161.iedit +++| ZR X4,GTSX IF NO MORE CHARACTERS, RETURN
04299 M00S04162.iedit +++| BX0 X1*X4
04300 M00S04163.iedit +++| NZ X0,GTSX IF CHARACTER A SEPARATOR, RETURN
04301 M00S04164.iedit +++| SA4 BLNK
04302 M00S04165.iedit +++| BX0 X4-X3
04303 M00S04166.iedit +++| ZR X0,GTS1 IF CHARACTER IS A BLANK
04304 M00S04167.iedit +++| GTS2 SA3 A3-B1
04305 M00S04168.iedit +++| SX0 B0 SEPARATOR NOT FOUND
04306 M00S04169.iedit +++| EQ GTSX RETURN
04307 M00S04170.iedit +++| STORAGE EJECT PRESET WORKING STORAGE
04308 M00S04171.iedit +++|
04309 M00S04172.iedit +++|
04310 M00S04173.iedit +++|** PRESET WORKING STORAGE.
04311 M00S04174.iedit +++|
04312 M00S04175.iedit +++| ADRF CON 0 ADDRESS OF CURRENT FUNCTION IN TABLE
04313 M00S04176.iedit +++| BLOCK BSS MXWL BLOCK OF CHARACTERS READ FROM COMMAND LINE
04314 M00S04177.iedit +++| C BSS 0
04315 M00S04178.iedit +++| CLB= FILEB CLBF,INSZ
04316 M00S04179.iedit +++| CLBF BSS INSZ
04317 M00S04180.iedit +++| CNVRT CON 0 CONVERT ASCII TO NORMAL FLAG
04318 M00S04181.iedit +++| COPT CON 0 CONTROL STATMENT OPTIONS
| Line S04182 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04319 M01S04182.v23l617 ---| CSCS CON 0 CHARACTER SET FROM CONTROL STATEMENT
| Line S00017 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04320 M01S00017.v23l617 +++| CSCS CON 0 CHARACTER SET FROM COMMAND
04321 M00S04183.iedit +++| LINE CON 0 LINE FROM DEFINED VERB TABLE BEING WORKED
04322 M00S04184.iedit +++| LROP CON 0 LOW VALUE IN ORDERED PAIR IN RANGE TABLE
04323 M00S04185.iedit +++| LCIV CON 0 NUMBER OF CHARACTERS IN VERB
04324 M00S04186.iedit +++| LCIP CON 0
04325 M00S04187.iedit +++| STRD CON 0 STRING DELIMITER
04326 M00S04188.iedit +++| SUCC CON 0 SUCCESSFUL FUNCTION FLAG, ZERO IF YES
04327 M00S04189.iedit +++| TATC EJECT ATTRIBUTE TABLE
04328 M00S04190.iedit +++|** TABLE OF ATTRIBUTES FOR CHARACTERS.
04329 M00S04191.iedit +++|
04330 M00S04192.iedit +++| TATC BSS 0 NORMAL ASCII ASCII8
04331 M00S04193.iedit +++| DAC I,,CHAA,I,,CHAA CL 00 NUL 000
04332 M00S04194.iedit +++| DAC ,01,LETA,I,,CHAA UC A 01 UC A SOH 001
04333 M00S04195.iedit +++| DAC ,02,LETA,I,,CHAA UC B 02 UC B STX 002
04334 M00S04196.iedit +++| DAC ,03,LETA,I,,CHAA UC C 03 UC C ETX 003
04335 M00S04197.iedit +++| DAC ,04,LETA,I,,CHAA UC D 04 UC D EOT 004
04336 M00S04198.iedit +++| DAC ,05,LETA,I,,CHAA UC E 05 UC E ENQ 005
04337 M00S04199.iedit +++| DAC ,06,LETA,I,,CHAA UC F 06 UC F ACK 006
04338 M00S04200.iedit +++| DAC ,07,LETA,I,,CHAA UC G 07 UC G BEL 007
04339 M00S04201.iedit +++| DAC ,10,LETA,I,,CHAA UC H 10 UC H BS 010
04340 M00S04202.iedit +++| DAC ,11,LETA,I,,CHAA UC I 11 UC I HT 011
04341 M00S04203.iedit +++| DAC ,12,LETA,I,,CHAA UC J 12 UC J LF 012
04342 M00S04204.iedit +++| DAC ,13,LETA,I,,CHAA UC K 13 UC K VT 013
04343 M00S04205.iedit +++| DAC ,14,LETA,I,,CHAA UC L 14 UC L FF 014
04344 M00S04206.iedit +++| DAC ,15,LETA,I,,CHAA UC M 15 UC M CR 015
04345 M00S04207.iedit +++| DAC ,16,LETA,I,,CHAA UC N 16 UC N SO 016
04346 M00S04208.iedit +++| DAC ,17,LETA,I,,CHAA UC O 17 UC O SI 017
04347 M00S04209.iedit +++| DAC ,20,LETA,I,,CHAA UC P 20 UC P DLE 020
04348 M00S04210.iedit +++| DAC ,21,LETA,I,,CHAA UC Q 21 UC Q DC1 021
04349 M00S04211.iedit +++| DAC ,22,LETA,I,,CHAA UC R 22 UC R DC2 022
04350 M00S04212.iedit +++| DAC ,23,LETA,I,,CHAA UC S 23 UC S DC3 023
04351 M00S04213.iedit +++| DAC ,24,LETA,I,,CHAA UC T 24 UC T DC4 024
04352 M00S04214.iedit +++| DAC ,25,LETA,I,,CHAA UC U 25 UC U NAK 025
04353 M00S04215.iedit +++| DAC ,26,LETA,I,,CHAA UC V 26 UC V SYN 026
04354 M00S04216.iedit +++| DAC ,27,LETA,I,,CHAA UC W 27 UC W ETB 027
04355 M00S04217.iedit +++| DAC ,30,LETA,I,,CHAA UC X 30 UC X CAN 030
04356 M00S04218.iedit +++| DAC ,31,LETA,I,,CHAA UC Y 31 UC Y EM 031
04357 M00S04219.iedit +++| DAC ,32,LETA,I,,CHAA UC Z 32 UC Z SUB 032
04358 M00S04220.iedit +++| DAC ,33,DIGA,I,,CHAA 0 33 0 ESC 033
04359 M00S04221.iedit +++| DAC ,34,DIGA,I,,CHAA 1 34 1 FS 034
04360 M00S04222.iedit +++| DAC ,35,DIGA,I,,CHAA 2 35 2 GS 035
04361 M00S04223.iedit +++| DAC ,36,DIGA,I,,CHAA 3 36 3 RS 036
04362 M00S04224.iedit +++| DAC ,37,DIGA,I,,CHAA 4 37 4 US 037
04363 M00S04225.iedit +++| DAC ,40,DIGA,,55,CHAA 5 40 5 SP 040
04364 M00S04226.iedit +++| DAC ,41,DIGA,,66,SEDE 6 41 6 EX 041
04365 M00S04227.iedit +++| DAC ,42,DIGA,,64,SEDE 7 42 7 DQ 042
04366 M00S04228.iedit +++| DAC ,43,DIGA,,60,SEDE 8 43 8 NM 043
04367 M00S04229.iedit +++| DAC ,44,DIGA,,53,CHAA 9 44 9 DS 044
04368 M00S04230.iedit +++| DAC ,45,SEDE,,63,SEDE PL 45 PL PC 045
04369 M00S04231.iedit +++| DAC ,46,SEDE,,67,SEDE MI 46 MI AM 046
04370 M00S04232.iedit +++| DAC ,47,CHAA,,70,SEDE AS 47 AS AP 047
04371 M00S04233.iedit +++| DAC ,50,SEDE,,51,SEDE SL 50 SL OP 050
04372 M00S04234.iedit +++| DAC ,51,SEDE,,52,TERA OP 51 OP CP 051
04373 M00S04235.iedit +++| DAC ,52,TERA,,47,CHAA CP 52 CP AS 052
04374 M00S04236.iedit +++| DAC ,53,CHAA,,45,SEDE DS 53 DS PL 053
04375 M00S04237.iedit +++| DAC ,54,SEDE,,56,SEDE EQ 54 EQ CM 054
04376 M00S04238.iedit +++| DAC ,55,CHAA,,46,SEDE SP 55 SP MI 055
04377 M00S04239.iedit +++| DAC ,56,SEDE,,57,TERA CM 56 CM PD 056
04378 M00S04240.iedit +++| DAC ,57,TERA,,50,SEDE PD 57 PD SL 057
04379 M00S04241.iedit +++| DAC ,60,SEDE,,33,DIGA NM 60 NM 0 060
04380 M00S04242.iedit +++| DAC ,61,SEDE,,34,DIGA OB 61 OB 1 061
04381 M00S04243.iedit +++| DAC ,62,SEDE,,35,DIGA CB 62 CB 2 062
04382 M00S04244.iedit +++| DAC ,63,SEDE,,36,DIGA PC 63 PC 3 063
04383 M00S04245.iedit +++| DAC ,64,SEDE,,37,DIGA DQ 64 DQ 4 064
04384 M00S04246.iedit +++| DAC ,65,SEDE,,40,DIGA UL 65 UL 5 065
04385 M00S04247.iedit +++| DAC ,66,SEDE,,41,DIGA EX 66 EX 6 066
04386 M00S04248.iedit +++| DAC ,67,SEDE,,42,DIGA AM 67 AM 7 067
04387 M00S04249.iedit +++| DAC ,70,SEDE,,43,DIGA AP 70 AP 8 070
04388 M00S04250.iedit +++| DAC ,71,SEDE,,44,DIGA QM 71 QM 9 071
04389 M00S04251.iedit +++| DAC ,72,SEDE,,00,CHAA LT 72 LT CL 072
04390 M00S04252.iedit +++| DAC ,73,SEDE,,77,SEDE GT 73 GT SC 073
04391 M00S04253.iedit +++| DAC I,,CHAA,,72,SEDE AT 74 LT 074
04392 M00S04254.iedit +++| DAC ,75,SEDE,,54,SEDE RVS 75 RVS EQ 075
04393 M00S04255.iedit +++| DAC I,,CHAA,,73,SEDE CF 76 GT 076
04394 M00S04256.iedit +++| DAC ,77,SEDE,,71,SEDE SC 77 SC QM 077
04395 M00S04257.iedit +++| DAC ,74,CHAA,,74,CHAA 7401 AT AT 100
04396 M00S04258.iedit +++| DAC ,76,CHAA,,01,LETA 7402 CF UC A 101
04397 M00S04259.iedit +++| DAC ,,,,02,LETA UC B 102
04398 M00S04260.iedit +++| DAC ,00,CHAA,,03,LETA 7404 CL UC C 103
04399 M00S04261.iedit +++| DAC ,,,,04,LETA UC D 104
04400 M00S04262.iedit +++| DAC ,,,,05,LETA UC E 105
04401 M00S04263.iedit +++| DAC I,,CHAA,,06,LETA 7407 GV UC F 106
04402 M00S04264.iedit +++| DAC ,01,LETA,,07,LETA 7601 LC A UC G 107
04403 M00S04265.iedit +++| DAC ,02,LETA,,10,LETA 7602 LC B UC H 110
04404 M00S04266.iedit +++| DAC ,03,LETA,,11,LETA 7603 LC C UC I 111
04405 M00S04267.iedit +++| DAC ,04,LETA,,12,LETA 7604 LC D UC J 112
04406 M00S04268.iedit +++| DAC ,05,LETA,,13,LETA 7605 LC E UC K 113
04407 M00S04269.iedit +++| DAC ,06,LETA,,14,LETA 7606 LC F UC L 114
04408 M00S04270.iedit +++| DAC ,07,LETA,,15,LETA 7607 LC G UC M 115
04409 M00S04271.iedit +++| DAC ,10,LETA,,16,LETA 7610 LC H UC N 116
04410 M00S04272.iedit +++| DAC ,11,LETA,,17,LETA 7611 LC I UC O 117
04411 M00S04273.iedit +++| DAC ,12,LETA,,20,LETA 7612 LC J UC P 120
04412 M00S04274.iedit +++| DAC ,13,LETA,,21,LETA 7613 LC K UC Q 121
04413 M00S04275.iedit +++| DAC ,14,LETA,,22,LETA 7614 LC L UC R 122
04414 M00S04276.iedit +++| DAC ,15,LETA,,23,LETA 7615 LC M UC S 123
04415 M00S04277.iedit +++| DAC ,16,LETA,,24,LETA 7616 LC N UC T 124
04416 M00S04278.iedit +++| DAC ,17,LETA,,25,LETA 7617 LC O UC U 125
04417 M00S04279.iedit +++| DAC ,20,LETA,,26,LETA 7620 LC P UC V 126
04418 M00S04280.iedit +++| DAC ,21,LETA,,27,LETA 7621 LC Q UC W 127
04419 M00S04281.iedit +++| DAC ,22,LETA,,30,LETA 7622 LC R UC X 130
04420 M00S04282.iedit +++| DAC ,23,LETA,,31,LETA 7623 LC S UC Y 131
04421 M00S04283.iedit +++| DAC ,24,LETA,,32,LETA 7624 LC T UC Z 132
04422 M00S04284.iedit +++| DAC ,25,LETA,,61,SEDE 7625 LC U OB 133
04423 M00S04285.iedit +++| DAC ,26,LETA,,75,SEDE 7626 LC V RVS 134
04424 M00S04286.iedit +++| DAC ,27,LETA,,62,SEDE 7627 LC W CB 135
04425 M00S04287.iedit +++| DAC ,30,LETA,,76,CHAA 7630 LC X CF 136
04426 M00S04288.iedit +++| DAC ,31,LETA,,65,SEDE 7631 LC Y UL 137
04427 M00S04289.iedit +++| DAC ,32,LETA,I,,CHAA 7632 LC Z GV 140
04428 M00S04290.iedit +++| DAC I,,CHAA,,01,LETA 7633 LB LC A 141
04429 M00S04291.iedit +++| DAC I,,CHAA,,02,LETA 7634 VL LC B 142
04430 M00S04292.iedit +++| DAC I,,CHAA,,03,LETA 7635 RB LC C 143
04431 M00S04293.iedit +++| DAC I,,CHAA,,04,LETA 7636 TL LC D 144
04432 M00S04294.iedit +++| DAC I,,CHAA,,05,LETA 7637 BRK LC E 145
04433 M00S04295.iedit +++| DAC I,,CHAA,,06,LETA 7640 NUL LC F 146
04434 M00S04296.iedit +++| DAC I,,CHAA,,07,LETA 7641 SOH LC G 147
04435 M00S04297.iedit +++| DAC I,,CHAA,,10,LETA 7642 STX LC H 150
04436 M00S04298.iedit +++| DAC I,,CHAA,,11,LETA 7643 ETX LC I 151
04437 M00S04299.iedit +++| DAC I,,CHAA,,12,LETA 7644 EOT LC J 152
04438 M00S04300.iedit +++| DAC I,,CHAA,,13,LETA 7645 ENQ LC K 153
04439 M00S04301.iedit +++| DAC I,,CHAA,,14,LETA 7646 ACK LC L 154
04440 M00S04302.iedit +++| DAC I,,CHAA,,15,LETA 7647 BEL LC M 155
04441 M00S04303.iedit +++| DAC I,,CHAA,,16,LETA 7650 BS LC N 156
04442 M00S04304.iedit +++| DAC I,,CHAA,,17,LETA 7651 HT LC O 157
04443 M00S04305.iedit +++| DAC I,,CHAA,,20,LETA 7652 LF LC P 160
04444 M00S04306.iedit +++| DAC I,,CHAA,,21,LETA 7653 VT LC Q 161
04445 M00S04307.iedit +++| DAC I,,CHAA,,22,LETA 7654 FF LC R 162
04446 M00S04308.iedit +++| DAC I,,CHAA,,23,LETA 7655 CR LC S 163
04447 M00S04309.iedit +++| DAC I,,CHAA,,24,LETA 7656 SO LC T 164
04448 M00S04310.iedit +++| DAC I,,CHAA,,25,LETA 7657 SI LC U 165
04449 M00S04311.iedit +++| DAC I,,CHAA,,26,LETA 7660 DLE LC V 166
04450 M00S04312.iedit +++| DAC I,,CHAA,,27,LETA 7661 DC1 LC W 167
04451 M00S04313.iedit +++| DAC I,,CHAA,,30,LETA 7662 DC2 LC X 170
04452 M00S04314.iedit +++| DAC I,,CHAA,,31,LETA 7663 DC3 LC Y 171
04453 M00S04315.iedit +++| DAC I,,CHAA,,32,LETA 7664 DC4 LC Z 172
04454 M00S04316.iedit +++| DAC I,,CHAA,I,,CHAA 7665 NAK LB 173
04455 M00S04317.iedit +++| DAC I,,CHAA,I,,CHAA 7666 SYN VL 174
04456 M00S04318.iedit +++| DAC I,,CHAA,I,,CHAA 7667 ETB RB 175
04457 M00S04319.iedit +++| DAC I,,CHAA,I,,CHAA 7670 CAN TL 176
04458 M00S04320.iedit +++| DAC I,,CHAA,I,,CHAA 7671 EM BRK 177
04459 M00S04321.iedit +++| DAC I,,CHAA 7672 SUB
04460 M00S04322.iedit +++| DAC I,,CHAA 7673 ESC
04461 M00S04323.iedit +++| DAC I,,CHAA 7674 FS
04462 M00S04324.iedit +++| DAC I,,CHAA 7675 GS
04463 M00S04325.iedit +++| DAC I,,CHAA 7676 RS
04464 M00S04326.iedit +++| DAC I,,CHAA 7677 US
04465 M00S04327.iedit +++| TDVB SPACE 4,10
04466 M00S04328.iedit +++|** TDVB - TABLE OF DEFINED VERBS.
04467 M00S04329.iedit +++|*
04468 M00S04330.iedit +++|* THIS TABLE DEFINES ALL THE LEGAL VERBS FOR *IEDIT*.
04469 M00S04331.iedit +++|* EACH OF THESE LEGAL VERBS EXIST IN ALL ALLOWED FORMS
04470 M00S04332.iedit +++|* (I.E. ALL VERBS WITH ABBREVIATIONS HAVE THOSE ABBREVIATIONS
04471 M00S04333.iedit +++|* INCLUDED IN THE TABLE.)
04472 M00S04334.iedit +++|* THIS TABLE ALSO CONTAINS THE PROCESSES ASSOCIATED WITH
04473 M00S04335.iedit +++|* EACH VERB. THE ADDRESS OF THAT PROCESS AND WHETHER IT IS
04474 M00S04336.iedit +++|* REQUIRED FOR THAT PROCESS BE CALLED IN ORDER FOR THE
04475 M00S04337.iedit +++|* RESPECTIVE VERB TO BE LEGAL.
04476 M00S04338.iedit +++|
04477 M00S04339.iedit +++|
04478 M00S04340.iedit +++| TDVB BSS 0
04479 M00S04341.iedit +++| LOC 0
04480 M00S04342.iedit +++| VERB ALTER,*,((GLS,O),(GSP,R)),FNAL
04481 M00S04343.iedit +++| VERB DELETE,*,((GLS,R),(GSS,O),(,A),(GSS,R)),FNDE
04482 M00S04344.iedit +++| VERB DUP,,((GSR,R),(GLI,R),(GIN,O),(,A),(GSR,R),(GLI,O)),FNDU
04483 M00S04345.iedit +++| VERB LIST,*,((GLS,O),(GSS,O)),FNLI
04484 M00S04346.iedit +++| VERB LNH,,((GLS,O),(GSS,O)),FNLI
04485 M00S04347.iedit +++| VERB READ,*,((GFN,R),(GLI,R),(GIN,O),(,A),(GFN,R),(GLI,O)),FNRE
04486 M00S04348.iedit +++| VERB MOVE,*,((GSR,R),(GLI,R),(GIN,O),(,A),(GSR,R),(GLI,O)),FNMO
04487 M00S04349.iedit +++| VERB WRITE,,((GFN,R),(GLS,O),(GSS,O)),FNWR
04488 M00S04350.iedit +++| VERB WRITEN,,((GFN,R),(GLS,O),(GSS,O)),FNWN
04489 M00S04351.iedit +++| VERB
04490 M00S04352.iedit +++| LOC *O
04491 M00S04353.iedit +++|
04492 M00S04354.iedit +++|
04493 M00S04355.iedit +++|** PRESET COMMON DECKS.
04494 M00S04356.iedit +++|
04495 M00S04357.iedit +++|*CALL COMCARG
04496 M00S04358.iedit +++| SPACE 4,10
04497 M00S04359.iedit +++| MINSZ EQU *
| Line S04360 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
04498 M01S04360.ns22000 ---| OVLDEF OVLY,PBR,1,(BASIC RESEQUENCING ROUTINES)
| Line S00001 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
04499 M01S00001.ns22000 +++| OVLDEF OVLY,PBR,1,(BASIC RESEQUENCING ROUTINES.)
04500 M00S04361.iedit +++| SPACE 4,5
04501 M00S04362.iedit +++| PBR SPACE 4,15
04502 M00S04363.iedit +++|** PBR - PERFORM *BASIC* RESEQUENCING.
04503 M00S04364.iedit +++|*
04504 M00S04365.iedit +++|* EXIT *BASIC* RESEQUENCING COMPLETED.
04505 M00S04366.iedit +++|*
04506 M00S04367.iedit +++|* USES X - 1, 2, 3, 5, 6, 7.
04507 M00S04368.iedit +++|* A - 1, 2, 3, 5, 6, 7.
04508 M00S04369.iedit +++|* B - 2.
04509 M00S04370.iedit +++|*
04510 M00S04371.iedit +++|* CALLS PEF, PNL, POL, SLN, SSF.
04511 M00S04372.iedit +++|*
04512 M00S04373.iedit +++|* MACROS READEI, REWIND, WRITER.
04513 M00S04374.iedit +++|
04514 M00S04375.iedit +++|
04515 M00S04376.iedit +++| PBR SUBR ENTRY/EXIT
04516 M00S04377.iedit +++| SX6 L
04517 M00S04378.iedit +++| SA6 LBFET
04518 M00S04379.iedit +++| SA1 NTL SAVE NUMBER OF TRUNCATED LINES
04519 M00S04380.iedit +++| BX6 X1
04520 M00S04381.iedit +++| MX1 42
04521 M00S04382.iedit +++| SA6 PBRA
04522 M00S04383.iedit +++| SA3 LBFILE
04523 M00S04384.iedit +++| NZ X3,PBR1 IF WRITTEN TO DISK
04524 M00S04385.iedit +++| SA5 E SET EOI STATUS IN FET *E*
04525 M00S04386.iedit +++| SX6 741031B
04526 M00S04387.iedit +++| BX6 -X1*X6
04527 M00S04388.iedit +++| BX5 X1*X5
04528 M00S04389.iedit +++| BX6 X5+X6
04529 M00S04390.iedit +++| SA6 A5
04530 M00S04391.iedit +++| EQ PBR2 PROCESS NON-OVERLAPPED LINES
04531 M00S04392.iedit +++|
04532 M00S04393.iedit +++| PBR1 REWIND E,R REWIND FILE CONTAINING SELECTED LINES
04533 M00S04394.iedit +++| READEI X2
04534 M00S04395.iedit +++| PBR2 SA5 NNOL NUMBER OF NON-OVERLAPPED LINES
04535 M00S04396.iedit +++| RJ PNL PROCESS NON-OVERLAPPED LINES
04536 M00S04397.iedit +++| SA1 FNUM GET FUNCTION NUMBER
04537 M00S04398.iedit +++| SA2 OVLPFG
04538 M00S04399.iedit +++| SX1 X1-FNMO
04539 M00S04400.iedit +++| NZ X2,PBR3 IF OVERLAPPED LINES
04540 M00S04401.iedit +++| ZR X1,PBR4 IF A *MOVE* COMMAND
04541 M00S04402.iedit +++| WRITER L FLUSH I/O BUFFER
04542 M00S04403.iedit +++| EQ PBR8 CHECK IF TRUNCATED LINE COUNT HAS CHANGED
04543 M00S04404.iedit +++|
04544 M00S04405.iedit +++| PBR3 RJ POL PROCESS OVERLAPPED LINES
04545 M00S04406.iedit +++| PBR4 SA1 FNUM GET FUNCTION NUMBER
04546 M00S04407.iedit +++| SA2 LRT GET FIRST *LRT* ENTRY
04547 M00S04408.iedit +++| SX1 X1-FNMO
04548 M00S04409.iedit +++| SA5 OLLE GET OVERLAPPED LINE RANGE TABLE ENTRY
04549 M00S04410.iedit +++| SX6 B1 SET NUMBER OF *LRT* ENTRIES TO ONE
04550 M00S04411.iedit +++| NZ X1,PBR6 IF NOT A *MOVE* COMMAND
04551 M00S04412.iedit +++| MX1 1
04552 M00S04413.iedit +++| SA3 OVLPFG
04553 M00S04414.iedit +++| ZR X3,PBR7 IF NO OVERLAPPED LINES
04554 M00S04415.iedit +++| IX3 X5-X2 ASSURE SORTED LINE RANGE TABLE
04555 M00S04416.iedit +++| SX6 B1+B1 SET NUMBER OF *LRT* ENTRIES TO TWO
04556 M00S04417.iedit +++| PL X3,PBR5 IF *LRT* WILL BE IN ASCENDING ORDER
04557 M00S04418.iedit +++| BX3 X2 EXCHANGE *LRT* ENTRIES
04558 M00S04419.iedit +++| BX2 X5
04559 M00S04420.iedit +++| BX5 X3
04560 M00S04421.iedit +++| PBR5 BX7 -X1*X2
04561 M00S04422.iedit +++| SA7 A2 STORE *LRT* ENTRY
04562 M00S04423.iedit +++| SA2 A2+B1
04563 M00S04424.iedit +++| PBR6 SA6 NELR STORE NUMBER OF *LRT* ENTRIES
04564 M00S04425.iedit +++| BX7 X5
04565 M00S04426.iedit +++| SA7 A2 STORE *LRT* ENTRY
04566 M00S04427.iedit +++| PBR7 SA5 EFN PUT EDIT FILE NAME INTO FET *E*
04567 M00S04428.iedit +++| SX2 E
04568 M00S04429.iedit +++| RJ SLN SET LOCAL FILE NAME
04569 M00S04430.iedit +++| REWIND X2,R
04570 M00S04431.iedit +++| READEI X2
04571 M00S04432.iedit +++| RJ PEF PROCESS ENTIRE EDIT FILE
04572 M00S04433.iedit +++| PBR8 SA1 NTL
04573 M00S04434.iedit +++| SA2 PBRA
04574 M00S04435.iedit +++| IX1 X1-X2
04575 M00S04436.iedit +++| SX6 B1+ SET *WRITTEN TO DISK* FLAG FOR FET *L*
04576 M00S04437.iedit +++| SA6 LBFILE
04577 M00S04438.iedit +++| ZR X1,PBRX IF TRUNCATED LINE COUNT NEVER CHANGED
04578 M00S04439.iedit +++| WRITER TRNCFET FLUSH TRNCFET I/O BUFFER
04579 M00S04440.iedit +++| SB2 X2 SORT TRUNCATED LINES
04580 M00S04441.iedit +++| RJ SSF SORT SELECTED FILE
04581 M00S04442.iedit +++| SA6 NTL STORE NEW TRUNCATED LINE COUNT
04582 M00S04443.iedit +++| EQ PBRX RETURN
04583 M00S04444.iedit +++|
04584 M00S04445.iedit +++| PBRA CON 0 STORAGE FOR TRUNCATED LINE COUNT
04585 M00S04446.iedit +++| PEF SPACE 4,15
04586 M00S04447.iedit +++|** PEF - PROCESS EDIT FILE.
04587 M00S04448.iedit +++|*
04588 M00S04449.iedit +++|* ENTRY FET *E* REWOUND AND READ INTO I/O BUFFER.
04589 M00S04450.iedit +++|*
04590 M00S04451.iedit +++|* EXIT BASIC LINE PROCESSING PERFORMED, SELECTED LINES
04591 M00S04452.iedit +++|* WRITTEN TO FET *L*, FET *L* SORTED IF NECESSARY.
04592 M00S04453.iedit +++|*
04593 M00S04454.iedit +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
04594 M00S04455.iedit +++|* A - 1, 2, 3, 5, 6, 7.
04595 M00S04456.iedit +++|* B - 2, 3, 4, 6, 7.
04596 M00S04457.iedit +++|*
04597 M00S04458.iedit +++|* CALLS ABL, BLP, CLN, PLB, SSF, USB, WTL.
04598 M00S04459.iedit +++|*
04599 M00S04460.iedit +++|* MACROS READC, WRITEC, WRITER.
04600 M00S04461.iedit +++|
04601 M00S04462.iedit +++|
04602 M00S04463.iedit +++| PEF SUBR ENTRY/EXIT
04603 M00S04464.iedit +++| PEF1 READC E,PCKDBF,MXWL+1 READ LINE FROM FET *E*
04604 M00S04465.iedit +++| NZ X1,PEF5 IF EOI ON FET *E*
04605 M00S04466.iedit +++| MX0 -12
04606 M00S04467.iedit +++| BX7 -X0*X4
04607 M00S04468.iedit +++| SA7 PEFA SET *CLEAR OUT PARTIAL LINE* FLAG
04608 M00S04469.iedit +++| SA5 PCKDBF
04609 M00S04470.iedit +++| RJ CLN CHECK IF LINE NUMBER IN LINE RANGE TABLE
04610 M00S04471.iedit +++| NZ X4,PEF3 IF LINE IS NOT TO BE PROCESSED
04611 M00S04472.iedit +++| SA6 PEFD SAVE BINARY LINE NUMBER
04612 M00S04473.iedit +++| SA7 PEFE SAVE NUMBER OF CHARACTERS IN LINE NUMBER
04613 M00S04474.iedit +++| SB2 PCKDBF
04614 M00S04475.iedit +++| SA1 CSTI CHARACTER SET
04615 M00S04476.iedit +++| SB6 MXCIL+1
04616 M00S04477.iedit +++| SB3 X1
04617 M00S04478.iedit +++| RJ USB UNPACK STRING BUFFER
04618 M00S04479.iedit +++| SA1 F.LNTBUF FWA OF *LNT*
04619 M00S04480.iedit +++| SA2 NMLS NUMBER OF *LNT* ENTRIES
04620 M00S04481.iedit +++| SA5 LTFILE
04621 M00S04482.iedit +++| SX3 B0+
04622 M00S04483.iedit +++| ZR X5,PEF2 IF *LNT* IS NOT WRITTEN TO DISK
04623 M00S04484.iedit +++| SA3 LTFET FET ADDRESS
| Line S04485 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04624 M01S04485.v23l617 ---| PEF2 SA5 PEFE RESEQUENCE ONE *BASIC* STATEMENT
| Line S00018 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04625 M01S00018.v23l617 +++| PEF2 SA5 PEFE RESEQUENCE ONE *BASIC* COMMAND
04626 M00S04486.iedit +++| IX2 X2+X1
04627 M00S04487.iedit +++| SB2 B7+B1
04628 M00S04488.iedit +++| SB7 X5+CLIN
04629 M00S04489.iedit +++| SX5 B1+
04630 M00S04490.iedit +++| SX6 CLIN+MXCIL
04631 M00S04491.iedit +++| RJ BLP
04632 M00S04492.iedit +++| ZR X2,PEF3 IF NO RESEQUENCING TOOK PLACE
04633 M00S04493.iedit +++| SA2 PEFA GET PARTIAL LINE FLAG
04634 M00S04494.iedit +++| BX6 X2+X1
04635 M00S04495.iedit +++| SA6 PEFC IF TRUNCATED BY READ IN OR BY *BLP*
04636 M00S04496.iedit +++| SX7 B1
04637 M00S04497.iedit +++| SA7 PEFB SET SORT FET *L* FLAG
04638 M00S04498.iedit +++| SX7 B7-CLIN ADD BLANKS TO LINE
04639 M00S04499.iedit +++| SA2 PEFE
04640 M00S04500.iedit +++| SA7 NCOL SAVE NUMBER OF CHARACTERS
04641 M00S04501.iedit +++| RJ ABL
04642 M00S04502.iedit +++| SB4 X7+ NUMBER OF CHARACTERS NOW IN LINE
04643 M00S04503.iedit +++| SA1 PCKDBF PACK LINE INTO BUFFER
04644 M00S04504.iedit +++| SA2 CLIN
04645 M00S04505.iedit +++| SB2 60
04646 M00S04506.iedit +++| RJ PLB
04647 M00S04507.iedit +++| WRITEC L,PCKDBF WRITE CHANGED LINE TO FET *L*
04648 M00S04508.iedit +++| SA2 PEFC CHECK IF TRUNCATED BY READ OR BY *BLP*
04649 M00S04509.iedit +++| ZR X2,PEF1 IF LINE NOT TRUNCATED
04650 M00S04510.iedit +++| SA1 PEFD WRITE TRUNCATED LINE
04651 M00S04511.iedit +++| RJ WTL
04652 M00S04512.iedit +++| PEF3 SA1 PEFA
04653 M00S04513.iedit +++| ZR X1,PEF1 IF NO PARTIAL LINE TO CLEAR OUT
04654 M00S04514.iedit +++| PEF4 READC E,PCKDBF,MXWL+1 THROW AWAY REMAINDER OF LINE
04655 M00S04515.iedit +++| MX0 -12
04656 M00S04516.iedit +++| BX7 -X0*X4
04657 M00S04517.iedit +++| NZ X7,PEF4 IF EOL NOT YET FOUND
04658 M00S04518.iedit +++| EQ PEF1 READ NEXT LINE
04659 M00S04519.iedit +++|
04660 M00S04520.iedit +++| PEF5 WRITER L FLUSH I/O BUFFER
04661 M00S04521.iedit +++| SA1 PEFB
04662 M00S04522.iedit +++| ZR X1,PEFX IF NO NEED TO SORT FET *L*
04663 M00S04523.iedit +++| SB2 X2+
04664 M00S04524.iedit +++| RJ SSF SORT SELECTED FILE
04665 M00S04525.iedit +++| EQ PEFX RETURN
04666 M00S04526.iedit +++|
04667 M00S04527.iedit +++| PEFA CON 0 PARTIAL LINE FLAG
04668 M00S04528.iedit +++| PEFB CON 0 SORT FET *L* FLAG (CHANGED LINES)
04669 M00S04529.iedit +++| PEFC CON 0 TRUNCATE BY READ OR *BLP* FLAG
04670 M00S04530.iedit +++| PEFD CON 0 BINARY LINE NUMBER
04671 M00S04531.iedit +++| PEFE CON 0 NUMBER OF CHARACTERS IN LINE NUMBER
04672 M00S04532.iedit +++| PLN SPACE 4,15
04673 M00S04533.iedit +++|** PLN - PROCESS LINE.
04674 M00S04534.iedit +++|*
04675 M00S04535.iedit +++|* ENTRY *PCKDBF* HOLDS THE LINE TO BE PROCESSED.
04676 M00S04536.iedit +++|*
04677 M00S04537.iedit +++|* EXIT BASIC LINE PROCESSING PERFORMED, TRUNCATED LINE
04678 M00S04538.iedit +++|* COUNT UPDATED, AND LINE WRITTEN TO FET *L*.
04679 M00S04539.iedit +++|*
04680 M00S04540.iedit +++|* USES X - 1, 2, 3, 5, 7.
04681 M00S04541.iedit +++|* A - 1, 2, 3, 5, 7.
04682 M00S04542.iedit +++|* B - 2, 3, 4, 6, 7.
04683 M00S04543.iedit +++|*
04684 M00S04544.iedit +++|* CALLS ABL, BLP, PLB, USB, VPL, WTL.
04685 M00S04545.iedit +++|*
04686 M00S04546.iedit +++|* MACROS WRITEC.
04687 M00S04547.iedit +++|
04688 M00S04548.iedit +++|
04689 M00S04549.iedit +++| PLN SUBR ENTRY/EXIT
04690 M00S04550.iedit +++| SB2 PCKDBF UNPACK STRING BUFFER
04691 M00S04551.iedit +++| SA1 CSTI
04692 M00S04552.iedit +++| SB3 X1+
04693 M00S04553.iedit +++| SB6 MXCIL+1
04694 M00S04554.iedit +++| RJ USB
| Line S04555 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04695 M01S04555.v23l617 ---| SA1 F.LNTBUF RESEQUENCE ONE *BASIC* STATEMENT
| Line S00019 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04696 M01S00019.v23l617 +++| SA1 F.LNTBUF RESEQUENCE ONE *BASIC* COMMAND
04697 M00S04556.iedit +++| SA2 NMLS
04698 M00S04557.iedit +++| SA3 LTFET
04699 M00S04558.iedit +++| IX2 X2+X1
04700 M00S04559.iedit +++| SB2 B7+B1
04701 M00S04560.iedit +++| SB7 CLIN+NUMD
04702 M00S04561.iedit +++| SX6 CLIN+MXCIL
04703 M00S04562.iedit +++| SA5 LTFILE
04704 M00S04563.iedit +++| NZ X5,PLN1 IF *LNT* IS WRITTEN TO DISK
04705 M00S04564.iedit +++| SX3 B0
04706 M00S04565.iedit +++| SX5 B1 SET SORTED *LNT*
04707 M00S04566.iedit +++| PLN1 RJ BLP *BASIC* LINE PROCESSOR
04708 M00S04567.iedit +++| ZR X2,PLN3 IF LINE WAS NOT RESEQUENCED
04709 M00S04568.iedit +++| SX7 B7-CLIN
04710 M00S04569.iedit +++| SA7 NCOL
04711 M00S04570.iedit +++| ZR X1,PLN2 IF LINE WAS NOT TRUNCATED
04712 M00S04571.iedit +++| SA5 PCKDBF EVALUATE PACKED LINE NUMBER
04713 M00S04572.iedit +++| RJ VPL
04714 M00S04573.iedit +++| BX1 X6 WRITE TRUNCATED LINE NUMBER
04715 M00S04574.iedit +++| RJ WTL
04716 M00S04575.iedit +++| PLN2 SX2 NUMD ADD BLANKS TO LINE
04717 M00S04576.iedit +++| RJ ABL
04718 M00S04577.iedit +++| SB4 X7+ PACK LINE INTO BUFFER
04719 M00S04578.iedit +++| SA1 PCKDBF
04720 M00S04579.iedit +++| SA2 CLIN
04721 M00S04580.iedit +++| SB2 60
04722 M00S04581.iedit +++| RJ PLB
04723 M00S04582.iedit +++| PLN3 WRITEC L,PCKDBF WRITE CHANGED LINE TO *L*
04724 M00S04583.iedit +++| EQ PLNX RETURN
04725 M00S04584.iedit +++| PNL SPACE 4,20
04726 M00S04585.iedit +++|** PNL - PROCESS NON-OVERLAPPED LINES.
04727 M00S04586.iedit +++|*
04728 M00S04587.iedit +++|* ENTRY (X5) = NUMBER OF NON-OVERLAPPED LINES.
04729 M00S04588.iedit +++|*
04730 M00S04589.iedit +++|* EXIT NON-OVERLAPPED LINES PROCESSED.
04731 M00S04590.iedit +++|*
04732 M00S04591.iedit +++|* USES X - 1, 2, 5.
04733 M00S04592.iedit +++|* A - 0, 2.
04734 M00S04593.iedit +++|*
04735 M00S04594.iedit +++|* CALLS PLN.
04736 M00S04595.iedit +++|*
04737 M00S04596.iedit +++|* MACROS READC, WRITEC.
04738 M00S04597.iedit +++|*
04739 M00S04598.iedit +++|* NOTE THE NUMBER OF NON-OVERLAPPED LINES IS HELD IN (A0)
04740 M00S04599.iedit +++|* DURING THE LOOP AT *PNL2* SINCE *BLP* USES ALL
04741 M00S04600.iedit +++|* REGISTERS EXCEPT (A0) AND (A5).
04742 M00S04601.iedit +++|
04743 M00S04602.iedit +++|
04744 M00S04603.iedit +++| PNL2 READC E,PCKDBF READ LINE FROM FET *E*
04745 M00S04604.iedit +++| RJ PLN PROCESS LINE
04746 M00S04605.iedit +++| SA0 A0-B1 DECREMENT NON-OVERLAPPED LINE COUNT
04747 M00S04606.iedit +++| SX1 A0
04748 M00S04607.iedit +++| NZ X1,PNL2 IF MORE NON-OVERLAPPED LINES
04749 M00S04608.iedit +++|
04750 M00S04609.iedit +++| PNL SUBR ENTRY/EXIT
04751 M00S04610.iedit +++| SA0 X5+ SAVE NUMBER OF NON-OVERLAPPED LINES
04752 M00S04611.iedit +++| SA2 UNRF
04753 M00S04612.iedit +++| ZR X2,PNL2 IF NOT AN UNNUMBERED *READ* FILE
04754 M00S04613.iedit +++| PNL1 READC E,PCKDBF READ LINE FROM FET *E*
04755 M00S04614.iedit +++| WRITEC L,PCKDBF WRITE LINE TO FET *L*
04756 M00S04615.iedit +++| SX5 X5-1
04757 M00S04616.iedit +++| NZ X5,PNL1 IF MORE NON-OVERLAPPED LINES
04758 M00S04617.iedit +++| EQ PNLX RETURN
04759 M00S04618.iedit +++| POL SPACE 4,10
04760 M00S04619.iedit +++|** POL - PROCESS OVERLAPPED LINES.
04761 M00S04620.iedit +++|*
04762 M00S04621.iedit +++|* ENTRY (X1) = 0, IF A *MOVE* FUNCTION.
04763 M00S04622.iedit +++|* = NONZERO, OTHERWISE.
04764 M00S04623.iedit +++|*
04765 M00S04624.iedit +++|* EXIT OVERLAPPED LINES PROCESSED.
04766 M00S04625.iedit +++|*
04767 M00S04626.iedit +++|* CALLS PLN, RNE.
04768 M00S04627.iedit +++|*
04769 M00S04628.iedit +++|* MACROS READC.
04770 M00S04629.iedit +++|
04771 M00S04630.iedit +++|
04772 M00S04631.iedit +++| POL SUBR ENTRY/EXIT
04773 M00S04632.iedit +++| ZR X1,POL1 IF A *MOVE* COMMAND
04774 M00S04633.iedit +++| RJ RNE REMOVE NON - OVERLAPPED *LNT* ENTRIES
04775 M00S04634.iedit +++| POL1 READC E,PCKDBF READ LINE FROM FET *E*
04776 M00S04635.iedit +++| NZ X1,POLX IF EOR ON FET *E*
04777 M00S04636.iedit +++| RJ PLN PROCESS LINE
04778 M00S04637.iedit +++| EQ POL1 READ NEXT LINE
04779 M00S04638.iedit +++| RNE SPACE 4,15
04780 M00S04639.iedit +++|** RNE - REMOVE NON-OVERLAP *LNT* ENTRIES.
04781 M00S04640.iedit +++|*
04782 M00S04641.iedit +++|* *RNE* REMOVES ALL ENTRIES IN THE LINE NUMBER TABLE
04783 M00S04642.iedit +++|* WHICH DO NOT HAVE THE OVERLAP BIT SET.
04784 M00S04643.iedit +++|*
04785 M00S04644.iedit +++|* ENTRY (LTFILE) = 0, IF THE *LNT* IS BUFFER RESIDENT.
04786 M00S04645.iedit +++|* 1, IF THE *LNT* IS MASS STORAGE RESIDENT.
04787 M00S04646.iedit +++|*
04788 M00S04647.iedit +++|* EXIT *LNT* UPDATED.
04789 M00S04648.iedit +++|*
04790 M00S04649.iedit +++|* USES X - 0, 1, 2, 6, 7.
04791 M00S04650.iedit +++|* A - 1, 2, 6, 7.
04792 M00S04651.iedit +++|* B - 7.
04793 M00S04652.iedit +++|*
04794 M00S04653.iedit +++|* MACROS READEI, READO, REWIND, WRITEO, WRITER.
04795 M00S04654.iedit +++|
04796 M00S04655.iedit +++|
04797 M00S04656.iedit +++| RNE SUBR ENTRY/EXIT
04798 M00S04657.iedit +++| SA1 LTFILE
04799 M00S04658.iedit +++| NZ X1,RNE3 IF *LNT* RESIDES ON MASS STORAGE
04800 M00S04659.iedit +++| SA1 F.LNTBUF
04801 M00S04660.iedit +++| SA2 NMLS
04802 M00S04661.iedit +++| SX0 B1
04803 M00S04662.iedit +++| LX0 FOVL-0 SET UP OVERLAP BIT MASK
04804 M00S04663.iedit +++| SB7 X1 FWA OF TABLE
04805 M00S04664.iedit +++| SA1 X1 GET FIRST ENTRY
04806 M00S04665.iedit +++| RNE1 BX6 X0*X1
04807 M00S04666.iedit +++| ZR X6,RNE2 IF OVERLAP BIT NOT SET
04808 M00S04667.iedit +++| BX6 X1
04809 M00S04668.iedit +++| SA6 B7+ STORE OVERLAP *LNT* ENTRY
04810 M00S04669.iedit +++| SB7 B7+1
04811 M00S04670.iedit +++| RNE2 SA1 A1+1
04812 M00S04671.iedit +++| SX2 X2-1
04813 M00S04672.iedit +++| NZ X2,RNE1 IF MORE ENTRIES TO PROCESS
04814 M00S04673.iedit +++| SA1 F.LNTBUF
04815 M00S04674.iedit +++| SX6 B7
04816 M00S04675.iedit +++| IX6 X6-X1
04817 M00S04676.iedit +++| SA6 NMLS UPDATE NUMBER OF *LNT* ENTRIES
04818 M00S04677.iedit +++| EQ RNEX RETURN
04819 M00S04678.iedit +++|
04820 M00S04679.iedit +++| RNE3 SA2 LT2FET
04821 M00S04680.iedit +++| REWIND X2,R REWIND THE SCRATCH FILE
04822 M00S04681.iedit +++| SA2 LTFET
04823 M00S04682.iedit +++| REWIND X2,R
04824 M00S04683.iedit +++| READEI X2 PREPARE THE *LNT* FILE
04825 M00S04684.iedit +++| SX0 B1
04826 M00S04685.iedit +++| LX0 FOVL-0 SET MASK FOR THE TRUNCATE BIT
04827 M00S04686.iedit +++| SA1 LTFET
04828 M00S04687.iedit +++| SA2 LT2FET REVERSE THE FILE NAMES
04829 M00S04688.iedit +++| BX6 X1
04830 M00S04689.iedit +++| BX7 X2
04831 M00S04690.iedit +++| SA7 A1+
04832 M00S04691.iedit +++| SA6 A2+
04833 M00S04692.iedit +++| RNE4 SA2 LT2FET
04834 M00S04693.iedit +++| READO X2 GET NEXT ENTRY
04835 M00S04694.iedit +++| NZ X1,RNE5 IF NO MORE ENTRIES TO PROCESS
04836 M00S04695.iedit +++| BX2 X0*X6
04837 M00S04696.iedit +++| ZR X2,RNE4 IF NOT AN OVERLAP ENTRY
04838 M00S04697.iedit +++| SA2 LTFET
04839 M00S04698.iedit +++| WRITEO X2 ADD THE OVERLAP ENTRY TO THE NEW *LNT*
04840 M00S04699.iedit +++| EQ RNE4 PROCESS NEXT ENTRY
04841 M00S04700.iedit +++|
04842 M00S04701.iedit +++| RNE5 SA2 LTFET
04843 M00S04702.iedit +++| WRITER X2 FLUSH THE *LNT* TO THE FILE
04844 M00S04703.iedit +++| EQ RNEX RETURN
04845 M00S04704.iedit +++| LIST X
04846 M00S04705.iedit +++|*CALL COMCBLP
04847 M00S04706.iedit +++| TTL IEDIT - IN-LINE EDITOR.
04848 M00S04707.iedit +++|
04849 M00S04708.iedit +++| MEM2 EQU * MANAGED TABLES START ADDRESS
04850 M00S04709.iedit +++| QUAL MAKE *MEML* A GLOBAL SYMBOL
04851 M00S04710.iedit +++|
04852 M00S04711.iedit +++|* DEFINITION OF MEML IS CHANGED DURING PRESET TO MATCH
04853 M00S04712.iedit +++|* ACTUAL OVERLAY SIZES AND UTILIZATION. THE *ERRNG* CHECKS
04854 M00S04713.iedit +++|* ARE FOR THE WORST POSSIBLE CASES.
04855 M00S04714.iedit +++|
04856 M00S04715.iedit +++| MEM2 EQU /IEDIT1/MEM2
04857 M00S04716.iedit +++|
04858 M00S04717.iedit +++| MEML EQU MEM
04859 M00S04718.iedit +++|
04860 M00S04719.iedit +++| MFL= EQU 17400B
04861 M00S04720.iedit +++| SSM= EQU 0
04862 M00S04721.iedit +++|
04863 M00S04722.iedit +++| ERRNG MEM-MEM2
04864 M00S04723.iedit +++| ERRNG MFL=-MEM-BUFL
04865 M00S04724.iedit +++| ERRNG MFL=-MEM-BUFL2
04866 M00S04725.iedit +++| ERRNG MFL=-MEM2-BUFL
04867 M00S04726.iedit +++| ERRNG MFL=-MINSZ
04868 M00S04727.iedit +++|
04869 M00S04728.iedit +++| END