cdc:nos2.source:opl.opl871:deck:iedit.002
Deck IEDIT Part 002
6 Modifications
Listing Sections
- Deck IEDIT Start
- Deck IEDIT Part 1 (Line 1996)
- Deck IEDIT Part 2 (Line 3851)
Source
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
cdc/nos2.source/opl.opl871/deck/iedit.002.txt · Last modified: by 127.0.0.1