cdc:nos2.source:opl.opl871:deck:iedit.002
Deck IEDIT Part 002
6 Modifications
Listing Sections
- Deck IEDIT Start
- Deck IEDIT Part 1 (Line 2028)
- Deck IEDIT Part 2 (Line 3899)
Source
Seq # *Modification Id* Act ----------------------------+ 03899 M01S03767.iedit +++| NZ X7,GSSX IF SEARCH STRING NOT FOUND, RETURN 03900 M01S03768.iedit +++| SX6 A3+ 03901 M01S03769.iedit +++| SA7 SUCC SET SUCCESS FLAG TO TRUE 03902 M01S03770.iedit +++| SA6 LCIP MARK WHERE SCAN ENDED 03903 M01S03771.iedit +++| SA5 STRD 03904 M01S03772.iedit +++| PL X5,GSSX IF CLOSING DELIMETER FOUND, RETURN
| Line S03773 Modification History | |
|---|---|
M01 (Added by) | iedit |
M02 (Updated by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 03905 M02S03773.iedit2 ---| WRITEC O,ERRNDF 03906 M01S00102.iedit2 +++| WRITEC O,ERRNDF *NO CLOSING DELIMITER FOUND.* 03907 M01S03774.iedit +++| EQ GSSX RETURN 03908 M01S03775.iedit +++| ABB TITLE PRESET SUBROUTINES 03909 M01S03776.iedit +++| FVT SPACE 4,20 03910 M01S03777.iedit +++|** FVT - FIND VERB IN TABLE. 03911 M01S03778.iedit +++|* 03912 M01S03779.iedit +++|* FVT SCANS THE *VERB* TABLE LOOKING FOR THE VERB 03913 M01S03780.iedit +++|* THAT MATCHES THE ONE IN THE COMMAND BUFFER. 03914 M01S03781.iedit +++|* 03915 M01S03782.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING VERB NAME. 03916 M01S03783.iedit +++|* 03917 M01S03784.iedit +++|* EXIT ((A2)) = (X2) = LINE IN *TDVB* CONTAINING VERB. 03918 M01S03785.iedit +++|* (LCIV) = (LCIP) = ADDRESS OF LAST CHARACTER IN VERB. 03919 M01S03786.iedit +++|* 03920 M01S03787.iedit +++|* USES X - 0, 1, 2, 4, 5, 6, 7. 03921 M01S03788.iedit +++|* A - 1, 2, 7. 03922 M01S03789.iedit +++|* B - 6. 03923 M01S03790.iedit +++|* 03924 M01S03791.iedit +++|* CALLS GTB. 03925 M01S03792.iedit +++| 03926 M01S03793.iedit +++| 03927 M01S03794.iedit +++| FVT2 SX7 A3+ 03928 M01S03795.iedit +++| SA7 LCIV STORE ADDRESS OF LAST CHARACTER IN VERB 03929 M01S03796.iedit +++| SA7 LCIP MARK WHERE SCAN ENDED 03930 M01S03797.iedit +++| 03931 M01S03798.iedit +++| FVT SUBR ENTRY/EXIT 03932 M01S03799.iedit +++| SX7 B0+ 03933 M01S03800.iedit +++| SA7 CNVRT 03934 M01S03801.iedit +++| RJ GTB GET VERB 03935 M01S03802.iedit +++| SA1 BLOCK
| Line S03803 Modification History | |
|---|---|
M01 (Added by) | iedit |
M02 (Updated by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 03936 M02S03803.iedit2 ---| SX5 ERRNIV 03937 M01S00103.iedit2 +++| SX5 ERRNIV *NON-EXISTENT EDIT VERB SPECIFIED.* 03938 M01S03804.iedit +++| ZR B2,ERR IF NO CHARACTERS IN BLOCK 03939 M01S03805.iedit +++| SB6 MXWS 03940 M01S03806.iedit +++| SX2 LETA 03941 M01S03807.iedit +++| GT B2,B6,ERR IF NAME TOO LONG 03942 M01S03808.iedit +++| BX6 -X2*X6
| Line S03809 Modification History | |
|---|---|
M01 (Added by) | iedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03943 M02S03809.v23l617 ---| NZ X6,ERR IF INVALID CHARACTERS FOUND 03944 M01S00016.v23l617 +++| NZ X6,ERR IF INCORRECT CHARACTERS FOUND 03945 M01S03810.iedit +++| SA2 TDVB 03946 M01S03811.iedit +++| MX0 TDVNN 03947 M01S03812.iedit +++| MX7 -TDIVN 03948 M01S03813.iedit +++| FVT1 BX4 X0*X2 VERB FROM TABLE 03949 M01S03814.iedit +++| BX4 X1-X4 03950 M01S03815.iedit +++| ZR X4,FVT2 IF MATCH FOUND 03951 M01S03816.iedit +++| BX4 -X7*X2 03952 M01S03817.iedit +++| SB6 X4+ 03953 M01S03818.iedit +++| SA2 A2+B6 NEXT TABLE ENTRY WITH VERB 03954 M01S03819.iedit +++| ZR X2,ERR IF NO VERB FOUND 03955 M01S03820.iedit +++| EQ FVT1 CHECK NEXT ENTRY FOR MATCH 03956 M01S03821.iedit +++| GCS SPACE 4,20 03957 M01S03822.iedit +++|** GCS - GET CHARACTER STRING FOR SEARCH. 03958 M01S03823.iedit +++|* 03959 M01S03824.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING STRING. 03960 M01S03825.iedit +++|* 03961 M01S03826.iedit +++|* EXIT ((A3)) = (X3) = LAST CHARACTER IN STRING. 03962 M01S03827.iedit +++|* (X7) = 0, IF FUNCTION SUCCESSFUL. 03963 M01S03828.iedit +++|* (NCIS) = NUMBER OF CHARACTERS IN SEARCH STRING. 03964 M01S03829.iedit +++|* (SBUF) = SEARCH STRING, ONE CHARACTER PER WORD. 03965 M01S03830.iedit +++|* (STRD) = STRING DELIMITER CHARACTER. 03966 M01S03831.iedit +++|* 03967 M01S03832.iedit +++|* USES X - 3, 5, 6, 7. 03968 M01S03833.iedit +++|* A - 3, 5, 6, 7. 03969 M01S03834.iedit +++|* 03970 M01S03835.iedit +++|* CALLS GTB, GTC, GTS. 03971 M01S03836.iedit +++| 03972 M01S03837.iedit +++| 03973 M01S03838.iedit +++| GCS SUBR ENTRY/EXIT 03974 M01S03839.iedit +++| SX7 B1+ 03975 M01S03840.iedit +++| RJ GTS GET SEPARATOR 03976 M01S03841.iedit +++| ZR X0,GCSX IF SEPARATOR NOT FOUND, RETURN 03977 M01S03842.iedit +++| RJ GTS GET NEXT SEPARATOR 03978 M01S03843.iedit +++| ZR X0,GCS1 IF SEPARATOR NOT FOUND 03979 M01S03844.iedit +++| SA3 A3-1 03980 M01S03845.iedit +++| GCS1 RJ GTC GET CHARACTER 03981 M01S03846.iedit +++| ZR X4,GCSX IF NO CHARACTERS FOUND, RETURN 03982 M01S03847.iedit +++| SX5 DLMA 03983 M01S03848.iedit +++| BX5 X5*X4 03984 M01S03849.iedit +++| ZR X5,GCSX IF STRING DELIMITER NOT FOUND 03985 M01S03850.iedit +++| SX7 X3 SAVE DELIMITER 03986 M01S03851.iedit +++| SX6 SBUF SET UP FOR NO ASCII TO NORMAL CONVERSION 03987 M01S03852.iedit +++| SA7 STRD 03988 M01S03853.iedit +++| SA6 CNVRT 03989 M01S03854.iedit +++| RJ GTB GET BLOCK UP TO DELIMITER 03990 M01S03855.iedit +++| SX7 B2+ SAVE CHARACTER COUNT OF SEARCH STRING 03991 M01S03856.iedit +++| SA5 STRD 03992 M01S03857.iedit +++| SA7 NCIS 03993 M01S03858.iedit +++| SX7 B0+ 03994 M01S03859.iedit +++| NG X5,GCSX IF SECOND DELIMITER NOT FOUND, RETURN 03995 M01S03860.iedit +++| SA3 A3+B1 03996 M01S03861.iedit +++| EQ GCSX RETURN 03997 M01S03862.iedit +++| GLN SPACE 4,20 03998 M01S03863.iedit +++|** GLN - GET LINE NUMBER. 03999 M01S03864.iedit +++|* 04000 M01S03865.iedit +++|* *GLN* GETS A LINE NUMBER AND CONVERTS IT TO BINARY IN *X6*. 04001 M01S03866.iedit +++|* AN ASTERISK IS CONVERTED INTO THE VALUE *MXLN+1*. 04002 M01S03867.iedit +++|* 04003 M01S03868.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING LINE NUMBER 04004 M01S03869.iedit +++|* 04005 M01S03870.iedit +++|* EXIT ((A3)) = (X3) = LAST CHARACTER IN LINE NUMBER. 04006 M01S03871.iedit +++|* (X6) = LINE NUMBER READ RIGHT JUSTIFIED (BINARY). 04007 M01S03872.iedit +++|* .LT. 0, IF LINE NUMBER NOT READ. 04008 M01S03873.iedit +++|* 04009 M01S03874.iedit +++|* USES X - 3, 5, 6, 7. 04010 M01S03875.iedit +++|* A - 3, 5, 7. 04011 M01S03876.iedit +++|* B - 2, 7. 04012 M01S03877.iedit +++|* 04013 M01S03878.iedit +++|* CALLS DXB, GTB. 04014 M01S03879.iedit +++| 04015 M01S03880.iedit +++| 04016 M01S03881.iedit +++| GLN2 SA3 A3+B1 04017 M01S03882.iedit +++| SA5 CSTI CHECK CHARACTER SET 04018 M01S03883.iedit +++| SB2 X5 04019 M01S03884.iedit +++| SB2 B2-B1 04020 M01S03885.iedit +++| SX7 X3-1R* 04021 M01S03886.iedit +++| NG B2,GLN3 IF NOT *ASCII8* CHARACTER SET 04022 M01S03887.iedit +++| SX7 X3-52B 04023 M01S03888.iedit +++| GLN3 NZ X7,GLN1 IF NOT AN ASTERISK 04024 M01S03889.iedit +++| SX6 MXLN+1 SET VALUE TO *MXLN+1* 04025 M01S03890.iedit +++| 04026 M01S03891.iedit +++| GLN SUBR ENTRY/EXIT 04027 M01S03892.iedit +++| SX7 B0+ 04028 M01S03893.iedit +++| SA7 CNVRT 04029 M01S03894.iedit +++| RJ GTB GET LINE NUMBER 04030 M01S03895.iedit +++| ZR B2,GLN2 IF NO CHARACTERS FOUND 04031 M01S03896.iedit +++| SX5 DIGA GET MASK FOR NUMBER 04032 M01S03897.iedit +++| SB7 NUMD 04033 M01S03898.iedit +++| BX5 -X5*X6 04034 M01S03899.iedit +++| NZ X5,GLN1 IF NON-DIGIT FOUND 04035 M01S03900.iedit +++| GT B2,B7,GLN1 04036 M01S03901.iedit +++| SB7 B1 04037 M01S03902.iedit +++| SA5 BLOCK 04038 M01S03903.iedit +++| RJ DXB CONVERT NUMBER TO BINARY 04039 M01S03904.iedit +++| SA3 A3 04040 M01S03905.iedit +++| ZR X4,GLNX IF NUMBER CONVERTABLE
| Line S03906 Modification History | |
|---|---|
M01 (Added by) | iedit |
M02 (Updated by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 04041 M02S03906.iedit2 ---| SX5 ERRELR 04042 M01S00104.iedit2 +++| SX5 ERRELR *LINE RANGE ERROR.* 04043 M01S03907.iedit +++| EQ ERR ISSUE *ERROR IN LINE RANGE* MESSAGE 04044 M01S03908.iedit +++| 04045 M01S03909.iedit +++| GLN1 SX6 -1 SET FAILURE FLAG 04046 M01S03910.iedit +++| EQ GLNX RETURN 04047 M01S03911.iedit +++| GLR SPACE 4,25 04048 M01S03912.iedit +++|** GLR - GET LINE RANGE. 04049 M01S03913.iedit +++|* 04050 M01S03914.iedit +++|* *GLR* GETS A LINE RANGE (INCLUDING THE RANGE OF SINGLE LINE 04051 M01S03915.iedit +++|* NUMBERS) AND MAKES A RANGE ENTRY FOR IT IN THE *LRT*. 04052 M01S03916.iedit +++|* 04053 M01S03917.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING LINE RANGE. 04054 M01S03918.iedit +++|* 04055 M01S03919.iedit +++|* EXIT ((A3)) = (X3) = LAST CHARACTER IN LINE RANGE. 04056 M01S03920.iedit +++|* (X6) = .LT. 0, IF FUNCTION NOT SUCCESSFUL. 04057 M01S03921.iedit +++|* 04058 M01S03922.iedit +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 04059 M01S03923.iedit +++|* A - 1, 3, 4, 6, 7. 04060 M01S03924.iedit +++|* B - 2. 04061 M01S03925.iedit +++|* 04062 M01S03926.iedit +++|* CALLS GLN, GTC, GTS. 04063 M01S03927.iedit +++| 04064 M01S03928.iedit +++| 04065 M01S03929.iedit +++| GLR SUBR ENTRY/EXIT 04066 M01S03930.iedit +++| SX6 -B1 04067 M01S03931.iedit +++| RJ GTS 04068 M01S03932.iedit +++| ZR X0,GLRX IF NO SEPARATOR FOUND, RETURN 04069 M01S03933.iedit +++| RJ GLN GET LINE NUMBER 04070 M01S03934.iedit +++| NG X6,GLRX IF NUMBER NOT FOUND, RETURN 04071 M01S03935.iedit +++| SA6 LROP STORE NUMBER 04072 M01S03936.iedit +++| RJ GTC GET CHARACTER 04073 M01S03937.iedit +++| ZR X4,GLR2 IF END OF LINE 04074 M01S03938.iedit +++| LX4 30 04075 M01S03939.iedit +++| MX5 -NBIC 04076 M01S03940.iedit +++| NG X4,GLR1 IF NO DISPLAY CODE EQUIVALENT 04077 M01S03941.iedit +++| LX4 NBIC+1 04078 M01S03942.iedit +++| BX1 -X5*X4 04079 M01S03943.iedit +++| SX1 X1-1R. 04080 M01S03944.iedit +++| ZR X1,GLR4 IF CHARACTER A PERIOD 04081 M01S03945.iedit +++| GLR1 SA3 A3-1 04082 M01S03946.iedit +++| GLR2 SA4 LROP 04083 M01S03947.iedit +++| SX2 X4-MXLN-1 04084 M01S03948.iedit +++| NZ X2,GLR3 IF ENTIRE FILE NOT SELECTED 04085 M01S03949.iedit +++| SX6 MXLN 04086 M01S03950.iedit +++| LX6 18 CONSTRUCT AN *..* *LRT* ENTRY 04087 M01S03951.iedit +++| EQ GLR6 APPEND TO *LRT* 04088 M01S03952.iedit +++| 04089 M01S03953.iedit +++| GLR3 SB2 18 04090 M01S03954.iedit +++| LX4 B2,X6 04091 M01S03955.iedit +++| BX6 X4+X6 CONSTRUCT A SINGLE LINE *LRT* ENTRY 04092 M01S03956.iedit +++| EQ GLR6 APPEND TO *LRT* 04093 M01S03957.iedit +++| 04094 M01S03958.iedit +++| GLR4 RJ GTC GET NEXT CHARACTER 04095 M01S03959.iedit +++| SA3 A3-B1 04096 M01S03960.iedit +++| ZR X4,GLR2 IF NO CHARACTER 04097 M01S03961.iedit +++| SA3 A3-B1 04098 M01S03962.iedit +++| LX4 30 04099 M01S03963.iedit +++| NG X4,GLR2 IF NO DISPLAY CODE EQUIVALENT 04100 M01S03964.iedit +++| LX4 NBIC+1 04101 M01S03965.iedit +++| BX1 -X5*X4 04102 M01S03966.iedit +++| SX2 X1-1R. 04103 M01S03967.iedit +++| NZ X2,GLR2 IF NOT A PERIOD 04104 M01S03968.iedit +++| SA3 A3+2 04105 M01S03969.iedit +++| RJ GLN GET SECOND LINE NUMBER 04106 M01S03970.iedit +++| NG X6,GLR7 IF NO NUMBER FOUND 04107 M01S03971.iedit +++| SA4 LROP 04108 M01S03972.iedit +++| SX2 X4-MXLN-1 04109 M01S03973.iedit +++| NZ X2,GLR5 IF FIRST NUMBER NOT AN ASTERISK 04110 M01S03974.iedit +++| SX4 B0+ 04111 M01S03975.iedit +++| GLR5 LX6 18 04112 M01S03976.iedit +++| BX6 X6+X4 04113 M01S03977.iedit +++| GLR6 SA1 NELR 04114 M01S03978.iedit +++| SA6 X1+LRT ADD ENTRY TO *LRT* 04115 M01S03979.iedit +++| SX7 X1+B1 04116 M01S03980.iedit +++| SA7 A1 ADD ONE TO *LRT* ENTRY COUNT 04117 M01S03981.iedit +++| EQ GLRX RETURN 04118 M01S03982.iedit +++|
| Line S03983 Modification History | |
|---|---|
M01 (Added by) | iedit |
M02 (Updated by) | iedit2 |
Seq # *Modification Id* Act ----------------------------+ 04119 M02S03983.iedit2 ---| GLR7 SX5 ERRELR 04120 M01S00105.iedit2 +++| GLR7 SX5 ERRELR *LINE RANGE ERROR.* 04121 M01S03984.iedit +++| EQ ERR ISSUE *ERROR IN LINE RANGE* MESSAGE 04122 M01S03985.iedit +++| GTB SPACE 4,30 04123 M01S03986.iedit +++|** GTB - GET BLOCK. 04124 M01S03987.iedit +++|* 04125 M01S03988.iedit +++|* IF (CNVRT) = 0, CHARACTERS ARE CONVERTED TO DISPLAY CODE AND 04126 M01S03989.iedit +++|* PACKED INTO *BLOCK* UP TO THE FIRST SEPARATOR, TERMINATOR, 04127 M01S03990.iedit +++|* OR DELIMITER. ANY BLANKS FOUND ARE REMOVED. IF 04128 M01S03991.iedit +++|* (CNVRT) .NE. 0, IT CONTAINS A STRING BUFFER ADDRESS TO WHICH 04129 M01S03992.iedit +++|* CHARACTERS SHOULD BE MOVED. THE CHARACTERS ARE NOT 04130 M01S03993.iedit +++|* CONVERTED TO DISPLAY CODE AND BLANKS ARE NOT DISCARDED. 04131 M01S03994.iedit +++|* THE CHARACTERS ARE STORED IN THE BUFFER, ONE CHARACTER PER 04132 M01S03995.iedit +++|* WORD UNTIL THE CHARACTER IN *STRD* IS FOUND OR THE END OF 04133 M01S03996.iedit +++|* THE COMMAND IS REACHED. 04134 M01S03997.iedit +++|* 04135 M01S03998.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING START OF BLOCK. 04136 M01S03999.iedit +++|* (CNVRT)= 0, IF BLOCK TO BE CONVERTED TO DISPLAY CODE 04137 M01S04000.iedit +++|* AND PACKED INTO *BLOCK* WITH ALL BLANKS 04138 M01S04001.iedit +++|* REMOVED. 04139 M01S04002.iedit +++|* .GT. 0, IF BLOCK IS NOT TO BE CONVERTED AND 04140 M01S04003.iedit +++|* IS TO BE MOVED IN UNPACKED FORM TO THE 04141 M01S04004.iedit +++|* ADDRESS IN *CNVRT* 04142 M01S04005.iedit +++|* (STRD) = THE DESIRED DELIMITER WHEN *CNVRT* = ZERO. 04143 M01S04006.iedit +++|* 04144 M01S04007.iedit +++|* EXIT ((A3)) = (X3) = LAST CHARACTER OF BLOCK. 04145 M01S04008.iedit +++|* (B2) = COUNT OF CHARACTERS READ IN BLOCK. 04146 M01S04009.iedit +++|* (X6) = ATTRIBUTES OF BLOCK. 04147 M01S04010.iedit +++|* BLOCK = FWA OF BLOCK OF CHARACTERS OBTAINED 04148 M01S04011.iedit +++|* CHARACTERS IN LAST WORD OF *BLOCK* LEFT 04149 M01S04012.iedit +++|* JUSTIFIED. 04150 M01S04013.iedit +++|* (STRD) = .LT. 0, IF SPECIFIED DELIMETER NOT FOUND. 04151 M01S04014.iedit +++|* 04152 M01S04015.iedit +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 04153 M01S04016.iedit +++|* A - 2, 3, 5, 7. 04154 M01S04017.iedit +++|* B - 2, 4, 6, 7. 04155 M01S04018.iedit +++|* 04156 M01S04019.iedit +++|* CALLS GTC. 04157 M01S04020.iedit +++| 04158 M01S04021.iedit +++| 04159 M01S04022.iedit +++| GTB5 LX7 B7 04160 M01S04023.iedit +++| SA7 BLOCK+B6 STORE LAST WORD OF BLOCK 04161 M01S04024.iedit +++| GTB6 MX7 -MXNA 04162 M01S04025.iedit +++| BX6 -X7*X6 LEAVE ONLY THE ATTRIBUTES IN *X6* 04163 M01S04026.iedit +++| ZR X4,GTB7 IF NO CLOSING DELIMITER FOUND 04164 M01S04027.iedit +++| SA3 A3-1 04165 M01S04028.iedit +++| EQ GTBX RETURN 04166 M01S04029.iedit +++| 04167 M01S04030.iedit +++| GTB7 SX7 -1 04168 M01S04031.iedit +++| SA7 STRD 04169 M01S04032.iedit +++| 04170 M01S04033.iedit +++| GTB SUBR ENTRY/EXIT 04171 M01S04034.iedit +++| SA2 CNVRT 04172 M01S04035.iedit +++| SX6 B0 INITIALIZE ATTRIBUTE OF BLOCK 04173 M01S04036.iedit +++| SB2 B0 INITIALIZE COUNT OF CHARACTERS IN BLOCK 04174 M01S04037.iedit +++| ZR X2,GTB2 IF BLOCK IS TO BE PACKED 04175 M01S04038.iedit +++| SA5 STRD 04176 M01S04039.iedit +++| SB4 X2-1 04177 M01S04040.iedit +++| GTB1 RJ GTC GET CHARACTER AND ATTRIBUTE 04178 M01S04041.iedit +++| ZR X4,GTB6 IF END OF LINE ENCOUNTERED 04179 M01S04042.iedit +++| IX2 X5-X3 04180 M01S04043.iedit +++| ZR X2,GTB6 IF SPECIFIED DELIMITER FOUND 04181 M01S04044.iedit +++| BX6 X6+X4 ACCUMULATE ATTRIBUTES 04182 M01S04045.iedit +++| SB2 B2+B1 INCREMENT COUNT OF CHARACTERS 04183 M01S04046.iedit +++| BX7 X3 04184 M01S04047.iedit +++| SA7 B4+B2 ADD CHARACTER TO BUFFER 04185 M01S04048.iedit +++| EQ GTB1 GET NEXT CHARACTER 04186 M01S04049.iedit +++| 04187 M01S04050.iedit +++| GTB2 SB6 B0 04188 M01S04051.iedit +++| SX7 B0 04189 M01S04052.iedit +++| SB7 60 04190 M01S04053.iedit +++| GTB3 RJ GTC 04191 M01S04054.iedit +++| ZR X4,GTB5 IF END OF LINE ENCOUNTERED 04192 M01S04055.iedit +++| SX1 X3 04193 M01S04056.iedit +++| SA2 CSTI 04194 M01S04057.iedit +++| ZR X2,GTB4 IF *NORMAL* CHARACTER SET 04195 M01S04058.iedit +++| LX4 30 04196 M01S04059.iedit +++| SX5 ERREIS *ERROR IN EDIT COMMAND SYNTAX* 04197 M01S04060.iedit +++| NG X4,ERR IF CHARACTER NOT CONVERTABLE TO *NORMAL* 04198 M01S04061.iedit +++| LX4 NBIC+1 04199 M01S04062.iedit +++| MX2 -NBIC 04200 M01S04063.iedit +++| BX1 -X2*X4 GET DISPLAY CODE EQUIVALENT 04201 M01S04064.iedit +++| LX4 29-NBIC 04202 M01S04065.iedit +++| GTB4 SX2 X1-1R 04203 M01S04066.iedit +++| ZR X2,GTB3 IF CHARACTER IS A BLANK 04204 M01S04067.iedit +++| SX2 SEDE+TERA+CHAA 04205 M01S04068.iedit +++| BX2 X2*X4 04206 M01S04069.iedit +++| NZ X2,GTB5 IF DELIMITER, SEPARATOR, OR TERMINATOR 04207 M01S04070.iedit +++| BX6 X6+X4 ACCUMULATE ATTRIBUTES 04208 M01S04071.iedit +++| SB2 B2+1 INCREMENT COUNT OF CHARACTERS 04209 M01S04072.iedit +++| LX7 NBIC 04210 M01S04073.iedit +++| BX7 X7+X1 ADD CHARACTER TO BLOCK 04211 M01S04074.iedit +++| SB7 B7-NBIC 04212 M01S04075.iedit +++| GT B7,GTB3 IF ROOM FOR MORE CHARACTERS IN *X7* 04213 M01S04076.iedit +++| SB7 60 04214 M01S04077.iedit +++| SA7 BLOCK+B6 STORE PACKED WORD 04215 M01S04078.iedit +++| SB6 B6+B1 04216 M01S04079.iedit +++| SX7 B0 04217 M01S04080.iedit +++| EQ GTB3 GET NEXT CHARACTER 04218 M01S04081.iedit +++| GTC SPACE 4,25 04219 M01S04082.iedit +++|** GTC - GET CHARACTER AND ATTRIBUTE. 04220 M01S04083.iedit +++|* 04221 M01S04084.iedit +++|* *GTC* GETS THE NEXT CHARACTER IN THE COMMAND. THE 04222 M01S04085.iedit +++|* ATTRIBUTES OF THE CHARACTER ARE OBTAINED BY EXTRACTING THE 04223 M01S04086.iedit +++|* ENTRY FROM THE ATTRIBUTE TABLE CORRESPONDING TO THAT 04224 M01S04087.iedit +++|* CHARACTER. THE ATTRIBUTES ARE RETURNED IN X4 (ONE BIT IS SET 04225 M01S04088.iedit +++|* FOR EACH ATTRIBUTE OF THE CHARACTER). FOR ASCII 6/12 AND 04226 M01S04089.iedit +++|* 8/12 CHARACTERS, THE HIGH ORDER BITS OF X4 CONTAIN THE 04227 M01S04090.iedit +++|* DISPLAY CODE EQUIVALENT OF THAT CHARACTER IF IT EXISTS. 04228 M01S04091.iedit +++|* 04229 M01S04092.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER LAST RETRIEVED BY *GTC*. 04230 M01S04093.iedit +++|* 04231 M01S04094.iedit +++|* EXIT ((A3)) = (X3) = CHARACTER RIGHT JUSTIFIED, ZERO FILL. 04232 M01S04095.iedit +++|* (X4) = ATTRIBUTES OF CHARACTER AND DISPLAY CODE 04233 M01S04096.iedit +++|* EQUIVALENT (ZERO IF END OF LINE). 04234 M01S04097.iedit +++|* AND DISPLAY CODE EQUIVALENT. 04235 M01S04098.iedit +++|* 04236 M01S04099.iedit +++|* USES X - 2, 3, 4. 04237 M01S04100.iedit +++|* A - 2, 3, 4. 04238 M01S04101.iedit +++|* B - 5. 04239 M01S04102.iedit +++| 04240 M01S04103.iedit +++| 04241 M01S04104.iedit +++| GTC SUBR ENTRY/EXIT 04242 M01S04105.iedit +++| SA2 USBC GET ADDRESS OF END OF LINE 04243 M01S04106.iedit +++| SX4 B0 INITIALIZE ATTRIBUTES TO ZERO 04244 M01S04107.iedit +++| SB5 X2 04245 M01S04108.iedit +++| SB5 A3-B5 04246 M01S04109.iedit +++| GE B5,GTCX IF END OF LINE, RETURN 04247 M01S04110.iedit +++| SA3 A3+B1 GET NEXT CHARACTER 04248 M01S04111.iedit +++| SA4 TATC 04249 M01S04112.iedit +++| SA2 CSTI DETERMINE CHARACTER SET 04250 M01S04113.iedit +++| SB5 X2 04251 M01S04114.iedit +++| GT B5,GTC3 IF ASCII 8/12 CHARACTER SET 04252 M01S04115.iedit +++| BX2 X3 04253 M01S04116.iedit +++| ZR B5,GTC2 IF *NORMAL* CHARACTER SET 04254 M01S04117.iedit +++| BX4 X3 04255 M01S04118.iedit +++| AX4 NBIC 04256 M01S04119.iedit +++| ZR X4,GTC2 IF NO ESCAPE CODE 04257 M01S04120.iedit +++| SX4 X4-EC2 04258 M01S04121.iedit +++| SB5 70 OFFSET FOR 76 ESCAPE CODE 04259 M01S04122.iedit +++| ZR X4,GTC1 IF ESCAPE CODE 76 04260 M01S04123.iedit +++| SB5 63 OFFSET FOR 74 ESCAPE CODE 04261 M01S04124.iedit +++| GTC1 SA4 A4+B5 04262 M01S04125.iedit +++| BX2 X3 04263 M01S04126.iedit +++| MX4 -NBIC 04264 M01S04127.iedit +++| BX2 -X4*X2 SET CHARACTER WITHOUT ESCAPE CODE 04265 M01S04128.iedit +++| GTC2 SB5 X2+ 04266 M01S04129.iedit +++| SA4 A4+B5 GET *6/12* OR *NORMAL* CHAR ATTRIBUTE 04267 M01S04130.iedit +++| MX2 30 04268 M01S04131.iedit +++| BX4 X2*X4 SET ATTRIBUTE 04269 M01S04132.iedit +++| LX4 30 04270 M01S04133.iedit +++| EQ GTCX RETURN 04271 M01S04134.iedit +++| 04272 M01S04135.iedit +++| GTC3 MX2 -7 04273 M01S04136.iedit +++| BX2 -X2*X3 04274 M01S04137.iedit +++| SB5 X2 04275 M01S04138.iedit +++| SA4 A4+B5 GET 8/12 CHARACTER ATTRIBUTE 04276 M01S04139.iedit +++| MX2 -30 04277 M01S04140.iedit +++| BX4 -X2*X4 04278 M01S04141.iedit +++| EQ GTCX RETURN 04279 M01S04142.iedit +++| GTS SPACE 4,15 04280 M01S04143.iedit +++|** GTS - GET SEPARATOR. 04281 M01S04144.iedit +++|* 04282 M01S04145.iedit +++|* ENTRY ((A3)) = (X3) = CHARACTER PRECEDING SEPARATOR. 04283 M01S04146.iedit +++|* 04284 M01S04147.iedit +++|* EXIT ((A3)) = (X3) = SEPARATOR RIGHT JUSTIFIED. 04285 M01S04148.iedit +++|* (X0) = 0, IF SEPARATOR NOT FOUND. 04286 M01S04149.iedit +++|* .NE. 0, IF SEPARATOR FOUND. 04287 M01S04150.iedit +++|* 04288 M01S04151.iedit +++|* USES X - 0, 1, 3, 4. 04289 M01S04152.iedit +++|* A - 3, 4. 04290 M01S04153.iedit +++|* 04291 M01S04154.iedit +++|* CALLS GTC. 04292 M01S04155.iedit +++| 04293 M01S04156.iedit +++| 04294 M01S04157.iedit +++| GTS SUBR ENTRY/EXIT 04295 M01S04158.iedit +++| SX1 SEPA GET MASK FOR SEPARATOR 04296 M01S04159.iedit +++| SX0 B0+ 04297 M01S04160.iedit +++| GTS1 RJ GTC GET NEXT CHARACTER 04298 M01S04161.iedit +++| ZR X4,GTSX IF NO MORE CHARACTERS, RETURN 04299 M01S04162.iedit +++| BX0 X1*X4 04300 M01S04163.iedit +++| NZ X0,GTSX IF CHARACTER A SEPARATOR, RETURN 04301 M01S04164.iedit +++| SA4 BLNK 04302 M01S04165.iedit +++| BX0 X4-X3 04303 M01S04166.iedit +++| ZR X0,GTS1 IF CHARACTER IS A BLANK 04304 M01S04167.iedit +++| GTS2 SA3 A3-B1 04305 M01S04168.iedit +++| SX0 B0 SEPARATOR NOT FOUND 04306 M01S04169.iedit +++| EQ GTSX RETURN 04307 M01S04170.iedit +++| STORAGE EJECT PRESET WORKING STORAGE 04308 M01S04171.iedit +++| 04309 M01S04172.iedit +++| 04310 M01S04173.iedit +++|** PRESET WORKING STORAGE. 04311 M01S04174.iedit +++| 04312 M01S04175.iedit +++| ADRF CON 0 ADDRESS OF CURRENT FUNCTION IN TABLE 04313 M01S04176.iedit +++| BLOCK BSS MXWL BLOCK OF CHARACTERS READ FROM COMMAND LINE 04314 M01S04177.iedit +++| C BSS 0 04315 M01S04178.iedit +++| CLB= FILEB CLBF,INSZ 04316 M01S04179.iedit +++| CLBF BSS INSZ 04317 M01S04180.iedit +++| CNVRT CON 0 CONVERT ASCII TO NORMAL FLAG 04318 M01S04181.iedit +++| COPT CON 0 CONTROL STATMENT OPTIONS
| Line S04182 Modification History | |
|---|---|
M01 (Added by) | iedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04319 M02S04182.v23l617 ---| CSCS CON 0 CHARACTER SET FROM CONTROL STATEMENT 04320 M01S00017.v23l617 +++| CSCS CON 0 CHARACTER SET FROM COMMAND 04321 M01S04183.iedit +++| LINE CON 0 LINE FROM DEFINED VERB TABLE BEING WORKED 04322 M01S04184.iedit +++| LROP CON 0 LOW VALUE IN ORDERED PAIR IN RANGE TABLE 04323 M01S04185.iedit +++| LCIV CON 0 NUMBER OF CHARACTERS IN VERB 04324 M01S04186.iedit +++| LCIP CON 0 04325 M01S04187.iedit +++| STRD CON 0 STRING DELIMITER 04326 M01S04188.iedit +++| SUCC CON 0 SUCCESSFUL FUNCTION FLAG, ZERO IF YES 04327 M01S04189.iedit +++| TATC EJECT ATTRIBUTE TABLE 04328 M01S04190.iedit +++|** TABLE OF ATTRIBUTES FOR CHARACTERS. 04329 M01S04191.iedit +++| 04330 M01S04192.iedit +++| TATC BSS 0 NORMAL ASCII ASCII8 04331 M01S04193.iedit +++| DAC I,,CHAA,I,,CHAA CL 00 NUL 000 04332 M01S04194.iedit +++| DAC ,01,LETA,I,,CHAA UC A 01 UC A SOH 001 04333 M01S04195.iedit +++| DAC ,02,LETA,I,,CHAA UC B 02 UC B STX 002 04334 M01S04196.iedit +++| DAC ,03,LETA,I,,CHAA UC C 03 UC C ETX 003 04335 M01S04197.iedit +++| DAC ,04,LETA,I,,CHAA UC D 04 UC D EOT 004 04336 M01S04198.iedit +++| DAC ,05,LETA,I,,CHAA UC E 05 UC E ENQ 005 04337 M01S04199.iedit +++| DAC ,06,LETA,I,,CHAA UC F 06 UC F ACK 006 04338 M01S04200.iedit +++| DAC ,07,LETA,I,,CHAA UC G 07 UC G BEL 007 04339 M01S04201.iedit +++| DAC ,10,LETA,I,,CHAA UC H 10 UC H BS 010 04340 M01S04202.iedit +++| DAC ,11,LETA,I,,CHAA UC I 11 UC I HT 011 04341 M01S04203.iedit +++| DAC ,12,LETA,I,,CHAA UC J 12 UC J LF 012 04342 M01S04204.iedit +++| DAC ,13,LETA,I,,CHAA UC K 13 UC K VT 013 04343 M01S04205.iedit +++| DAC ,14,LETA,I,,CHAA UC L 14 UC L FF 014 04344 M01S04206.iedit +++| DAC ,15,LETA,I,,CHAA UC M 15 UC M CR 015 04345 M01S04207.iedit +++| DAC ,16,LETA,I,,CHAA UC N 16 UC N SO 016 04346 M01S04208.iedit +++| DAC ,17,LETA,I,,CHAA UC O 17 UC O SI 017 04347 M01S04209.iedit +++| DAC ,20,LETA,I,,CHAA UC P 20 UC P DLE 020 04348 M01S04210.iedit +++| DAC ,21,LETA,I,,CHAA UC Q 21 UC Q DC1 021 04349 M01S04211.iedit +++| DAC ,22,LETA,I,,CHAA UC R 22 UC R DC2 022 04350 M01S04212.iedit +++| DAC ,23,LETA,I,,CHAA UC S 23 UC S DC3 023 04351 M01S04213.iedit +++| DAC ,24,LETA,I,,CHAA UC T 24 UC T DC4 024 04352 M01S04214.iedit +++| DAC ,25,LETA,I,,CHAA UC U 25 UC U NAK 025 04353 M01S04215.iedit +++| DAC ,26,LETA,I,,CHAA UC V 26 UC V SYN 026 04354 M01S04216.iedit +++| DAC ,27,LETA,I,,CHAA UC W 27 UC W ETB 027 04355 M01S04217.iedit +++| DAC ,30,LETA,I,,CHAA UC X 30 UC X CAN 030 04356 M01S04218.iedit +++| DAC ,31,LETA,I,,CHAA UC Y 31 UC Y EM 031 04357 M01S04219.iedit +++| DAC ,32,LETA,I,,CHAA UC Z 32 UC Z SUB 032 04358 M01S04220.iedit +++| DAC ,33,DIGA,I,,CHAA 0 33 0 ESC 033 04359 M01S04221.iedit +++| DAC ,34,DIGA,I,,CHAA 1 34 1 FS 034 04360 M01S04222.iedit +++| DAC ,35,DIGA,I,,CHAA 2 35 2 GS 035 04361 M01S04223.iedit +++| DAC ,36,DIGA,I,,CHAA 3 36 3 RS 036 04362 M01S04224.iedit +++| DAC ,37,DIGA,I,,CHAA 4 37 4 US 037 04363 M01S04225.iedit +++| DAC ,40,DIGA,,55,CHAA 5 40 5 SP 040 04364 M01S04226.iedit +++| DAC ,41,DIGA,,66,SEDE 6 41 6 EX 041 04365 M01S04227.iedit +++| DAC ,42,DIGA,,64,SEDE 7 42 7 DQ 042 04366 M01S04228.iedit +++| DAC ,43,DIGA,,60,SEDE 8 43 8 NM 043 04367 M01S04229.iedit +++| DAC ,44,DIGA,,53,CHAA 9 44 9 DS 044 04368 M01S04230.iedit +++| DAC ,45,SEDE,,63,SEDE PL 45 PL PC 045 04369 M01S04231.iedit +++| DAC ,46,SEDE,,67,SEDE MI 46 MI AM 046 04370 M01S04232.iedit +++| DAC ,47,CHAA,,70,SEDE AS 47 AS AP 047 04371 M01S04233.iedit +++| DAC ,50,SEDE,,51,SEDE SL 50 SL OP 050 04372 M01S04234.iedit +++| DAC ,51,SEDE,,52,TERA OP 51 OP CP 051 04373 M01S04235.iedit +++| DAC ,52,TERA,,47,CHAA CP 52 CP AS 052 04374 M01S04236.iedit +++| DAC ,53,CHAA,,45,SEDE DS 53 DS PL 053 04375 M01S04237.iedit +++| DAC ,54,SEDE,,56,SEDE EQ 54 EQ CM 054 04376 M01S04238.iedit +++| DAC ,55,CHAA,,46,SEDE SP 55 SP MI 055 04377 M01S04239.iedit +++| DAC ,56,SEDE,,57,TERA CM 56 CM PD 056 04378 M01S04240.iedit +++| DAC ,57,TERA,,50,SEDE PD 57 PD SL 057 04379 M01S04241.iedit +++| DAC ,60,SEDE,,33,DIGA NM 60 NM 0 060 04380 M01S04242.iedit +++| DAC ,61,SEDE,,34,DIGA OB 61 OB 1 061 04381 M01S04243.iedit +++| DAC ,62,SEDE,,35,DIGA CB 62 CB 2 062 04382 M01S04244.iedit +++| DAC ,63,SEDE,,36,DIGA PC 63 PC 3 063 04383 M01S04245.iedit +++| DAC ,64,SEDE,,37,DIGA DQ 64 DQ 4 064 04384 M01S04246.iedit +++| DAC ,65,SEDE,,40,DIGA UL 65 UL 5 065 04385 M01S04247.iedit +++| DAC ,66,SEDE,,41,DIGA EX 66 EX 6 066 04386 M01S04248.iedit +++| DAC ,67,SEDE,,42,DIGA AM 67 AM 7 067 04387 M01S04249.iedit +++| DAC ,70,SEDE,,43,DIGA AP 70 AP 8 070 04388 M01S04250.iedit +++| DAC ,71,SEDE,,44,DIGA QM 71 QM 9 071 04389 M01S04251.iedit +++| DAC ,72,SEDE,,00,CHAA LT 72 LT CL 072 04390 M01S04252.iedit +++| DAC ,73,SEDE,,77,SEDE GT 73 GT SC 073 04391 M01S04253.iedit +++| DAC I,,CHAA,,72,SEDE AT 74 LT 074 04392 M01S04254.iedit +++| DAC ,75,SEDE,,54,SEDE RVS 75 RVS EQ 075 04393 M01S04255.iedit +++| DAC I,,CHAA,,73,SEDE CF 76 GT 076 04394 M01S04256.iedit +++| DAC ,77,SEDE,,71,SEDE SC 77 SC QM 077 04395 M01S04257.iedit +++| DAC ,74,CHAA,,74,CHAA 7401 AT AT 100 04396 M01S04258.iedit +++| DAC ,76,CHAA,,01,LETA 7402 CF UC A 101 04397 M01S04259.iedit +++| DAC ,,,,02,LETA UC B 102 04398 M01S04260.iedit +++| DAC ,00,CHAA,,03,LETA 7404 CL UC C 103 04399 M01S04261.iedit +++| DAC ,,,,04,LETA UC D 104 04400 M01S04262.iedit +++| DAC ,,,,05,LETA UC E 105 04401 M01S04263.iedit +++| DAC I,,CHAA,,06,LETA 7407 GV UC F 106 04402 M01S04264.iedit +++| DAC ,01,LETA,,07,LETA 7601 LC A UC G 107 04403 M01S04265.iedit +++| DAC ,02,LETA,,10,LETA 7602 LC B UC H 110 04404 M01S04266.iedit +++| DAC ,03,LETA,,11,LETA 7603 LC C UC I 111 04405 M01S04267.iedit +++| DAC ,04,LETA,,12,LETA 7604 LC D UC J 112 04406 M01S04268.iedit +++| DAC ,05,LETA,,13,LETA 7605 LC E UC K 113 04407 M01S04269.iedit +++| DAC ,06,LETA,,14,LETA 7606 LC F UC L 114 04408 M01S04270.iedit +++| DAC ,07,LETA,,15,LETA 7607 LC G UC M 115 04409 M01S04271.iedit +++| DAC ,10,LETA,,16,LETA 7610 LC H UC N 116 04410 M01S04272.iedit +++| DAC ,11,LETA,,17,LETA 7611 LC I UC O 117 04411 M01S04273.iedit +++| DAC ,12,LETA,,20,LETA 7612 LC J UC P 120 04412 M01S04274.iedit +++| DAC ,13,LETA,,21,LETA 7613 LC K UC Q 121 04413 M01S04275.iedit +++| DAC ,14,LETA,,22,LETA 7614 LC L UC R 122 04414 M01S04276.iedit +++| DAC ,15,LETA,,23,LETA 7615 LC M UC S 123 04415 M01S04277.iedit +++| DAC ,16,LETA,,24,LETA 7616 LC N UC T 124 04416 M01S04278.iedit +++| DAC ,17,LETA,,25,LETA 7617 LC O UC U 125 04417 M01S04279.iedit +++| DAC ,20,LETA,,26,LETA 7620 LC P UC V 126 04418 M01S04280.iedit +++| DAC ,21,LETA,,27,LETA 7621 LC Q UC W 127 04419 M01S04281.iedit +++| DAC ,22,LETA,,30,LETA 7622 LC R UC X 130 04420 M01S04282.iedit +++| DAC ,23,LETA,,31,LETA 7623 LC S UC Y 131 04421 M01S04283.iedit +++| DAC ,24,LETA,,32,LETA 7624 LC T UC Z 132 04422 M01S04284.iedit +++| DAC ,25,LETA,,61,SEDE 7625 LC U OB 133 04423 M01S04285.iedit +++| DAC ,26,LETA,,75,SEDE 7626 LC V RVS 134 04424 M01S04286.iedit +++| DAC ,27,LETA,,62,SEDE 7627 LC W CB 135 04425 M01S04287.iedit +++| DAC ,30,LETA,,76,CHAA 7630 LC X CF 136 04426 M01S04288.iedit +++| DAC ,31,LETA,,65,SEDE 7631 LC Y UL 137 04427 M01S04289.iedit +++| DAC ,32,LETA,I,,CHAA 7632 LC Z GV 140 04428 M01S04290.iedit +++| DAC I,,CHAA,,01,LETA 7633 LB LC A 141 04429 M01S04291.iedit +++| DAC I,,CHAA,,02,LETA 7634 VL LC B 142 04430 M01S04292.iedit +++| DAC I,,CHAA,,03,LETA 7635 RB LC C 143 04431 M01S04293.iedit +++| DAC I,,CHAA,,04,LETA 7636 TL LC D 144 04432 M01S04294.iedit +++| DAC I,,CHAA,,05,LETA 7637 BRK LC E 145 04433 M01S04295.iedit +++| DAC I,,CHAA,,06,LETA 7640 NUL LC F 146 04434 M01S04296.iedit +++| DAC I,,CHAA,,07,LETA 7641 SOH LC G 147 04435 M01S04297.iedit +++| DAC I,,CHAA,,10,LETA 7642 STX LC H 150 04436 M01S04298.iedit +++| DAC I,,CHAA,,11,LETA 7643 ETX LC I 151 04437 M01S04299.iedit +++| DAC I,,CHAA,,12,LETA 7644 EOT LC J 152 04438 M01S04300.iedit +++| DAC I,,CHAA,,13,LETA 7645 ENQ LC K 153 04439 M01S04301.iedit +++| DAC I,,CHAA,,14,LETA 7646 ACK LC L 154 04440 M01S04302.iedit +++| DAC I,,CHAA,,15,LETA 7647 BEL LC M 155 04441 M01S04303.iedit +++| DAC I,,CHAA,,16,LETA 7650 BS LC N 156 04442 M01S04304.iedit +++| DAC I,,CHAA,,17,LETA 7651 HT LC O 157 04443 M01S04305.iedit +++| DAC I,,CHAA,,20,LETA 7652 LF LC P 160 04444 M01S04306.iedit +++| DAC I,,CHAA,,21,LETA 7653 VT LC Q 161 04445 M01S04307.iedit +++| DAC I,,CHAA,,22,LETA 7654 FF LC R 162 04446 M01S04308.iedit +++| DAC I,,CHAA,,23,LETA 7655 CR LC S 163 04447 M01S04309.iedit +++| DAC I,,CHAA,,24,LETA 7656 SO LC T 164 04448 M01S04310.iedit +++| DAC I,,CHAA,,25,LETA 7657 SI LC U 165 04449 M01S04311.iedit +++| DAC I,,CHAA,,26,LETA 7660 DLE LC V 166 04450 M01S04312.iedit +++| DAC I,,CHAA,,27,LETA 7661 DC1 LC W 167 04451 M01S04313.iedit +++| DAC I,,CHAA,,30,LETA 7662 DC2 LC X 170 04452 M01S04314.iedit +++| DAC I,,CHAA,,31,LETA 7663 DC3 LC Y 171 04453 M01S04315.iedit +++| DAC I,,CHAA,,32,LETA 7664 DC4 LC Z 172 04454 M01S04316.iedit +++| DAC I,,CHAA,I,,CHAA 7665 NAK LB 173 04455 M01S04317.iedit +++| DAC I,,CHAA,I,,CHAA 7666 SYN VL 174 04456 M01S04318.iedit +++| DAC I,,CHAA,I,,CHAA 7667 ETB RB 175 04457 M01S04319.iedit +++| DAC I,,CHAA,I,,CHAA 7670 CAN TL 176 04458 M01S04320.iedit +++| DAC I,,CHAA,I,,CHAA 7671 EM BRK 177 04459 M01S04321.iedit +++| DAC I,,CHAA 7672 SUB 04460 M01S04322.iedit +++| DAC I,,CHAA 7673 ESC 04461 M01S04323.iedit +++| DAC I,,CHAA 7674 FS 04462 M01S04324.iedit +++| DAC I,,CHAA 7675 GS 04463 M01S04325.iedit +++| DAC I,,CHAA 7676 RS 04464 M01S04326.iedit +++| DAC I,,CHAA 7677 US 04465 M01S04327.iedit +++| TDVB SPACE 4,10 04466 M01S04328.iedit +++|** TDVB - TABLE OF DEFINED VERBS. 04467 M01S04329.iedit +++|* 04468 M01S04330.iedit +++|* THIS TABLE DEFINES ALL THE LEGAL VERBS FOR *IEDIT*. 04469 M01S04331.iedit +++|* EACH OF THESE LEGAL VERBS EXIST IN ALL ALLOWED FORMS 04470 M01S04332.iedit +++|* (I.E. ALL VERBS WITH ABBREVIATIONS HAVE THOSE ABBREVIATIONS 04471 M01S04333.iedit +++|* INCLUDED IN THE TABLE.) 04472 M01S04334.iedit +++|* THIS TABLE ALSO CONTAINS THE PROCESSES ASSOCIATED WITH 04473 M01S04335.iedit +++|* EACH VERB. THE ADDRESS OF THAT PROCESS AND WHETHER IT IS 04474 M01S04336.iedit +++|* REQUIRED FOR THAT PROCESS BE CALLED IN ORDER FOR THE 04475 M01S04337.iedit +++|* RESPECTIVE VERB TO BE LEGAL. 04476 M01S04338.iedit +++| 04477 M01S04339.iedit +++| 04478 M01S04340.iedit +++| TDVB BSS 0 04479 M01S04341.iedit +++| LOC 0 04480 M01S04342.iedit +++| VERB ALTER,*,((GLS,O),(GSP,R)),FNAL 04481 M01S04343.iedit +++| VERB DELETE,*,((GLS,R),(GSS,O),(,A),(GSS,R)),FNDE 04482 M01S04344.iedit +++| VERB DUP,,((GSR,R),(GLI,R),(GIN,O),(,A),(GSR,R),(GLI,O)),FNDU 04483 M01S04345.iedit +++| VERB LIST,*,((GLS,O),(GSS,O)),FNLI 04484 M01S04346.iedit +++| VERB LNH,,((GLS,O),(GSS,O)),FNLI 04485 M01S04347.iedit +++| VERB READ,*,((GFN,R),(GLI,R),(GIN,O),(,A),(GFN,R),(GLI,O)),FNRE 04486 M01S04348.iedit +++| VERB MOVE,*,((GSR,R),(GLI,R),(GIN,O),(,A),(GSR,R),(GLI,O)),FNMO 04487 M01S04349.iedit +++| VERB WRITE,,((GFN,R),(GLS,O),(GSS,O)),FNWR 04488 M01S04350.iedit +++| VERB WRITEN,,((GFN,R),(GLS,O),(GSS,O)),FNWN 04489 M01S04351.iedit +++| VERB 04490 M01S04352.iedit +++| LOC *O 04491 M01S04353.iedit +++| 04492 M01S04354.iedit +++| 04493 M01S04355.iedit +++|** PRESET COMMON DECKS. 04494 M01S04356.iedit +++| 04495 M01S04357.iedit +++|*CALL COMCARG 04496 M01S04358.iedit +++| SPACE 4,10 04497 M01S04359.iedit +++| MINSZ EQU *
| Line S04360 Modification History | |
|---|---|
M01 (Added by) | iedit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04498 M02S04360.ns22000 ---| OVLDEF OVLY,PBR,1,(BASIC RESEQUENCING ROUTINES) 04499 M01S00001.ns22000 +++| OVLDEF OVLY,PBR,1,(BASIC RESEQUENCING ROUTINES.) 04500 M01S04361.iedit +++| SPACE 4,5 04501 M01S04362.iedit +++| PBR SPACE 4,15 04502 M01S04363.iedit +++|** PBR - PERFORM *BASIC* RESEQUENCING. 04503 M01S04364.iedit +++|* 04504 M01S04365.iedit +++|* EXIT *BASIC* RESEQUENCING COMPLETED. 04505 M01S04366.iedit +++|* 04506 M01S04367.iedit +++|* USES X - 1, 2, 3, 5, 6, 7. 04507 M01S04368.iedit +++|* A - 1, 2, 3, 5, 6, 7. 04508 M01S04369.iedit +++|* B - 2. 04509 M01S04370.iedit +++|* 04510 M01S04371.iedit +++|* CALLS PEF, PNL, POL, SLN, SSF. 04511 M01S04372.iedit +++|* 04512 M01S04373.iedit +++|* MACROS READEI, REWIND, WRITER. 04513 M01S04374.iedit +++| 04514 M01S04375.iedit +++| 04515 M01S04376.iedit +++| PBR SUBR ENTRY/EXIT 04516 M01S04377.iedit +++| SX6 L 04517 M01S04378.iedit +++| SA6 LBFET 04518 M01S04379.iedit +++| SA1 NTL SAVE NUMBER OF TRUNCATED LINES 04519 M01S04380.iedit +++| BX6 X1 04520 M01S04381.iedit +++| MX1 42 04521 M01S04382.iedit +++| SA6 PBRA 04522 M01S04383.iedit +++| SA3 LBFILE 04523 M01S04384.iedit +++| NZ X3,PBR1 IF WRITTEN TO DISK 04524 M01S04385.iedit +++| SA5 E SET EOI STATUS IN FET *E* 04525 M01S04386.iedit +++| SX6 741031B 04526 M01S04387.iedit +++| BX6 -X1*X6 04527 M01S04388.iedit +++| BX5 X1*X5 04528 M01S04389.iedit +++| BX6 X5+X6 04529 M01S04390.iedit +++| SA6 A5 04530 M01S04391.iedit +++| EQ PBR2 PROCESS NON-OVERLAPPED LINES 04531 M01S04392.iedit +++| 04532 M01S04393.iedit +++| PBR1 REWIND E,R REWIND FILE CONTAINING SELECTED LINES 04533 M01S04394.iedit +++| READEI X2 04534 M01S04395.iedit +++| PBR2 SA5 NNOL NUMBER OF NON-OVERLAPPED LINES 04535 M01S04396.iedit +++| RJ PNL PROCESS NON-OVERLAPPED LINES 04536 M01S04397.iedit +++| SA1 FNUM GET FUNCTION NUMBER 04537 M01S04398.iedit +++| SA2 OVLPFG 04538 M01S04399.iedit +++| SX1 X1-FNMO 04539 M01S04400.iedit +++| NZ X2,PBR3 IF OVERLAPPED LINES 04540 M01S04401.iedit +++| ZR X1,PBR4 IF A *MOVE* COMMAND 04541 M01S04402.iedit +++| WRITER L FLUSH I/O BUFFER 04542 M01S04403.iedit +++| EQ PBR8 CHECK IF TRUNCATED LINE COUNT HAS CHANGED 04543 M01S04404.iedit +++| 04544 M01S04405.iedit +++| PBR3 RJ POL PROCESS OVERLAPPED LINES 04545 M01S04406.iedit +++| PBR4 SA1 FNUM GET FUNCTION NUMBER 04546 M01S04407.iedit +++| SA2 LRT GET FIRST *LRT* ENTRY 04547 M01S04408.iedit +++| SX1 X1-FNMO 04548 M01S04409.iedit +++| SA5 OLLE GET OVERLAPPED LINE RANGE TABLE ENTRY 04549 M01S04410.iedit +++| SX6 B1 SET NUMBER OF *LRT* ENTRIES TO ONE 04550 M01S04411.iedit +++| NZ X1,PBR6 IF NOT A *MOVE* COMMAND 04551 M01S04412.iedit +++| MX1 1 04552 M01S04413.iedit +++| SA3 OVLPFG 04553 M01S04414.iedit +++| ZR X3,PBR7 IF NO OVERLAPPED LINES 04554 M01S04415.iedit +++| IX3 X5-X2 ASSURE SORTED LINE RANGE TABLE 04555 M01S04416.iedit +++| SX6 B1+B1 SET NUMBER OF *LRT* ENTRIES TO TWO 04556 M01S04417.iedit +++| PL X3,PBR5 IF *LRT* WILL BE IN ASCENDING ORDER 04557 M01S04418.iedit +++| BX3 X2 EXCHANGE *LRT* ENTRIES 04558 M01S04419.iedit +++| BX2 X5 04559 M01S04420.iedit +++| BX5 X3 04560 M01S04421.iedit +++| PBR5 BX7 -X1*X2 04561 M01S04422.iedit +++| SA7 A2 STORE *LRT* ENTRY 04562 M01S04423.iedit +++| SA2 A2+B1 04563 M01S04424.iedit +++| PBR6 SA6 NELR STORE NUMBER OF *LRT* ENTRIES 04564 M01S04425.iedit +++| BX7 X5 04565 M01S04426.iedit +++| SA7 A2 STORE *LRT* ENTRY 04566 M01S04427.iedit +++| PBR7 SA5 EFN PUT EDIT FILE NAME INTO FET *E* 04567 M01S04428.iedit +++| SX2 E 04568 M01S04429.iedit +++| RJ SLN SET LOCAL FILE NAME 04569 M01S04430.iedit +++| REWIND X2,R 04570 M01S04431.iedit +++| READEI X2 04571 M01S04432.iedit +++| RJ PEF PROCESS ENTIRE EDIT FILE 04572 M01S04433.iedit +++| PBR8 SA1 NTL 04573 M01S04434.iedit +++| SA2 PBRA 04574 M01S04435.iedit +++| IX1 X1-X2 04575 M01S04436.iedit +++| SX6 B1+ SET *WRITTEN TO DISK* FLAG FOR FET *L* 04576 M01S04437.iedit +++| SA6 LBFILE 04577 M01S04438.iedit +++| ZR X1,PBRX IF TRUNCATED LINE COUNT NEVER CHANGED 04578 M01S04439.iedit +++| WRITER TRNCFET FLUSH TRNCFET I/O BUFFER 04579 M01S04440.iedit +++| SB2 X2 SORT TRUNCATED LINES 04580 M01S04441.iedit +++| RJ SSF SORT SELECTED FILE 04581 M01S04442.iedit +++| SA6 NTL STORE NEW TRUNCATED LINE COUNT 04582 M01S04443.iedit +++| EQ PBRX RETURN 04583 M01S04444.iedit +++| 04584 M01S04445.iedit +++| PBRA CON 0 STORAGE FOR TRUNCATED LINE COUNT 04585 M01S04446.iedit +++| PEF SPACE 4,15 04586 M01S04447.iedit +++|** PEF - PROCESS EDIT FILE. 04587 M01S04448.iedit +++|* 04588 M01S04449.iedit +++|* ENTRY FET *E* REWOUND AND READ INTO I/O BUFFER. 04589 M01S04450.iedit +++|* 04590 M01S04451.iedit +++|* EXIT BASIC LINE PROCESSING PERFORMED, SELECTED LINES 04591 M01S04452.iedit +++|* WRITTEN TO FET *L*, FET *L* SORTED IF NECESSARY. 04592 M01S04453.iedit +++|* 04593 M01S04454.iedit +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 04594 M01S04455.iedit +++|* A - 1, 2, 3, 5, 6, 7. 04595 M01S04456.iedit +++|* B - 2, 3, 4, 6, 7. 04596 M01S04457.iedit +++|* 04597 M01S04458.iedit +++|* CALLS ABL, BLP, CLN, PLB, SSF, USB, WTL. 04598 M01S04459.iedit +++|* 04599 M01S04460.iedit +++|* MACROS READC, WRITEC, WRITER. 04600 M01S04461.iedit +++| 04601 M01S04462.iedit +++| 04602 M01S04463.iedit +++| PEF SUBR ENTRY/EXIT 04603 M01S04464.iedit +++| PEF1 READC E,PCKDBF,MXWL+1 READ LINE FROM FET *E* 04604 M01S04465.iedit +++| NZ X1,PEF5 IF EOI ON FET *E* 04605 M01S04466.iedit +++| MX0 -12 04606 M01S04467.iedit +++| BX7 -X0*X4 04607 M01S04468.iedit +++| SA7 PEFA SET *CLEAR OUT PARTIAL LINE* FLAG 04608 M01S04469.iedit +++| SA5 PCKDBF 04609 M01S04470.iedit +++| RJ CLN CHECK IF LINE NUMBER IN LINE RANGE TABLE 04610 M01S04471.iedit +++| NZ X4,PEF3 IF LINE IS NOT TO BE PROCESSED 04611 M01S04472.iedit +++| SA6 PEFD SAVE BINARY LINE NUMBER 04612 M01S04473.iedit +++| SA7 PEFE SAVE NUMBER OF CHARACTERS IN LINE NUMBER 04613 M01S04474.iedit +++| SB2 PCKDBF 04614 M01S04475.iedit +++| SA1 CSTI CHARACTER SET 04615 M01S04476.iedit +++| SB6 MXCIL+1 04616 M01S04477.iedit +++| SB3 X1 04617 M01S04478.iedit +++| RJ USB UNPACK STRING BUFFER 04618 M01S04479.iedit +++| SA1 F.LNTBUF FWA OF *LNT* 04619 M01S04480.iedit +++| SA2 NMLS NUMBER OF *LNT* ENTRIES 04620 M01S04481.iedit +++| SA5 LTFILE 04621 M01S04482.iedit +++| SX3 B0+ 04622 M01S04483.iedit +++| ZR X5,PEF2 IF *LNT* IS NOT WRITTEN TO DISK 04623 M01S04484.iedit +++| SA3 LTFET FET ADDRESS
| Line S04485 Modification History | |
|---|---|
M01 (Added by) | iedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04624 M02S04485.v23l617 ---| PEF2 SA5 PEFE RESEQUENCE ONE *BASIC* STATEMENT 04625 M01S00018.v23l617 +++| PEF2 SA5 PEFE RESEQUENCE ONE *BASIC* COMMAND 04626 M01S04486.iedit +++| IX2 X2+X1 04627 M01S04487.iedit +++| SB2 B7+B1 04628 M01S04488.iedit +++| SB7 X5+CLIN 04629 M01S04489.iedit +++| SX5 B1+ 04630 M01S04490.iedit +++| SX6 CLIN+MXCIL 04631 M01S04491.iedit +++| RJ BLP 04632 M01S04492.iedit +++| ZR X2,PEF3 IF NO RESEQUENCING TOOK PLACE 04633 M01S04493.iedit +++| SA2 PEFA GET PARTIAL LINE FLAG 04634 M01S04494.iedit +++| BX6 X2+X1 04635 M01S04495.iedit +++| SA6 PEFC IF TRUNCATED BY READ IN OR BY *BLP* 04636 M01S04496.iedit +++| SX7 B1 04637 M01S04497.iedit +++| SA7 PEFB SET SORT FET *L* FLAG 04638 M01S04498.iedit +++| SX7 B7-CLIN ADD BLANKS TO LINE 04639 M01S04499.iedit +++| SA2 PEFE 04640 M01S04500.iedit +++| SA7 NCOL SAVE NUMBER OF CHARACTERS 04641 M01S04501.iedit +++| RJ ABL 04642 M01S04502.iedit +++| SB4 X7+ NUMBER OF CHARACTERS NOW IN LINE 04643 M01S04503.iedit +++| SA1 PCKDBF PACK LINE INTO BUFFER 04644 M01S04504.iedit +++| SA2 CLIN 04645 M01S04505.iedit +++| SB2 60 04646 M01S04506.iedit +++| RJ PLB 04647 M01S04507.iedit +++| WRITEC L,PCKDBF WRITE CHANGED LINE TO FET *L* 04648 M01S04508.iedit +++| SA2 PEFC CHECK IF TRUNCATED BY READ OR BY *BLP* 04649 M01S04509.iedit +++| ZR X2,PEF1 IF LINE NOT TRUNCATED 04650 M01S04510.iedit +++| SA1 PEFD WRITE TRUNCATED LINE 04651 M01S04511.iedit +++| RJ WTL 04652 M01S04512.iedit +++| PEF3 SA1 PEFA 04653 M01S04513.iedit +++| ZR X1,PEF1 IF NO PARTIAL LINE TO CLEAR OUT 04654 M01S04514.iedit +++| PEF4 READC E,PCKDBF,MXWL+1 THROW AWAY REMAINDER OF LINE 04655 M01S04515.iedit +++| MX0 -12 04656 M01S04516.iedit +++| BX7 -X0*X4 04657 M01S04517.iedit +++| NZ X7,PEF4 IF EOL NOT YET FOUND 04658 M01S04518.iedit +++| EQ PEF1 READ NEXT LINE 04659 M01S04519.iedit +++| 04660 M01S04520.iedit +++| PEF5 WRITER L FLUSH I/O BUFFER 04661 M01S04521.iedit +++| SA1 PEFB 04662 M01S04522.iedit +++| ZR X1,PEFX IF NO NEED TO SORT FET *L* 04663 M01S04523.iedit +++| SB2 X2+ 04664 M01S04524.iedit +++| RJ SSF SORT SELECTED FILE 04665 M01S04525.iedit +++| EQ PEFX RETURN 04666 M01S04526.iedit +++| 04667 M01S04527.iedit +++| PEFA CON 0 PARTIAL LINE FLAG 04668 M01S04528.iedit +++| PEFB CON 0 SORT FET *L* FLAG (CHANGED LINES) 04669 M01S04529.iedit +++| PEFC CON 0 TRUNCATE BY READ OR *BLP* FLAG 04670 M01S04530.iedit +++| PEFD CON 0 BINARY LINE NUMBER 04671 M01S04531.iedit +++| PEFE CON 0 NUMBER OF CHARACTERS IN LINE NUMBER 04672 M01S04532.iedit +++| PLN SPACE 4,15 04673 M01S04533.iedit +++|** PLN - PROCESS LINE. 04674 M01S04534.iedit +++|* 04675 M01S04535.iedit +++|* ENTRY *PCKDBF* HOLDS THE LINE TO BE PROCESSED. 04676 M01S04536.iedit +++|* 04677 M01S04537.iedit +++|* EXIT BASIC LINE PROCESSING PERFORMED, TRUNCATED LINE 04678 M01S04538.iedit +++|* COUNT UPDATED, AND LINE WRITTEN TO FET *L*. 04679 M01S04539.iedit +++|* 04680 M01S04540.iedit +++|* USES X - 1, 2, 3, 5, 7. 04681 M01S04541.iedit +++|* A - 1, 2, 3, 5, 7. 04682 M01S04542.iedit +++|* B - 2, 3, 4, 6, 7. 04683 M01S04543.iedit +++|* 04684 M01S04544.iedit +++|* CALLS ABL, BLP, PLB, USB, VPL, WTL. 04685 M01S04545.iedit +++|* 04686 M01S04546.iedit +++|* MACROS WRITEC. 04687 M01S04547.iedit +++| 04688 M01S04548.iedit +++| 04689 M01S04549.iedit +++| PLN SUBR ENTRY/EXIT 04690 M01S04550.iedit +++| SB2 PCKDBF UNPACK STRING BUFFER 04691 M01S04551.iedit +++| SA1 CSTI 04692 M01S04552.iedit +++| SB3 X1+ 04693 M01S04553.iedit +++| SB6 MXCIL+1 04694 M01S04554.iedit +++| RJ USB
| Line S04555 Modification History | |
|---|---|
M01 (Added by) | iedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04695 M02S04555.v23l617 ---| SA1 F.LNTBUF RESEQUENCE ONE *BASIC* STATEMENT 04696 M01S00019.v23l617 +++| SA1 F.LNTBUF RESEQUENCE ONE *BASIC* COMMAND 04697 M01S04556.iedit +++| SA2 NMLS 04698 M01S04557.iedit +++| SA3 LTFET 04699 M01S04558.iedit +++| IX2 X2+X1 04700 M01S04559.iedit +++| SB2 B7+B1 04701 M01S04560.iedit +++| SB7 CLIN+NUMD 04702 M01S04561.iedit +++| SX6 CLIN+MXCIL 04703 M01S04562.iedit +++| SA5 LTFILE 04704 M01S04563.iedit +++| NZ X5,PLN1 IF *LNT* IS WRITTEN TO DISK 04705 M01S04564.iedit +++| SX3 B0 04706 M01S04565.iedit +++| SX5 B1 SET SORTED *LNT* 04707 M01S04566.iedit +++| PLN1 RJ BLP *BASIC* LINE PROCESSOR 04708 M01S04567.iedit +++| ZR X2,PLN3 IF LINE WAS NOT RESEQUENCED 04709 M01S04568.iedit +++| SX7 B7-CLIN 04710 M01S04569.iedit +++| SA7 NCOL 04711 M01S04570.iedit +++| ZR X1,PLN2 IF LINE WAS NOT TRUNCATED 04712 M01S04571.iedit +++| SA5 PCKDBF EVALUATE PACKED LINE NUMBER 04713 M01S04572.iedit +++| RJ VPL 04714 M01S04573.iedit +++| BX1 X6 WRITE TRUNCATED LINE NUMBER 04715 M01S04574.iedit +++| RJ WTL 04716 M01S04575.iedit +++| PLN2 SX2 NUMD ADD BLANKS TO LINE 04717 M01S04576.iedit +++| RJ ABL 04718 M01S04577.iedit +++| SB4 X7+ PACK LINE INTO BUFFER 04719 M01S04578.iedit +++| SA1 PCKDBF 04720 M01S04579.iedit +++| SA2 CLIN 04721 M01S04580.iedit +++| SB2 60 04722 M01S04581.iedit +++| RJ PLB 04723 M01S04582.iedit +++| PLN3 WRITEC L,PCKDBF WRITE CHANGED LINE TO *L* 04724 M01S04583.iedit +++| EQ PLNX RETURN 04725 M01S04584.iedit +++| PNL SPACE 4,20 04726 M01S04585.iedit +++|** PNL - PROCESS NON-OVERLAPPED LINES. 04727 M01S04586.iedit +++|* 04728 M01S04587.iedit +++|* ENTRY (X5) = NUMBER OF NON-OVERLAPPED LINES. 04729 M01S04588.iedit +++|* 04730 M01S04589.iedit +++|* EXIT NON-OVERLAPPED LINES PROCESSED. 04731 M01S04590.iedit +++|* 04732 M01S04591.iedit +++|* USES X - 1, 2, 5. 04733 M01S04592.iedit +++|* A - 0, 2. 04734 M01S04593.iedit +++|* 04735 M01S04594.iedit +++|* CALLS PLN. 04736 M01S04595.iedit +++|* 04737 M01S04596.iedit +++|* MACROS READC, WRITEC. 04738 M01S04597.iedit +++|* 04739 M01S04598.iedit +++|* NOTE THE NUMBER OF NON-OVERLAPPED LINES IS HELD IN (A0) 04740 M01S04599.iedit +++|* DURING THE LOOP AT *PNL2* SINCE *BLP* USES ALL 04741 M01S04600.iedit +++|* REGISTERS EXCEPT (A0) AND (A5). 04742 M01S04601.iedit +++| 04743 M01S04602.iedit +++| 04744 M01S04603.iedit +++| PNL2 READC E,PCKDBF READ LINE FROM FET *E* 04745 M01S04604.iedit +++| RJ PLN PROCESS LINE 04746 M01S04605.iedit +++| SA0 A0-B1 DECREMENT NON-OVERLAPPED LINE COUNT 04747 M01S04606.iedit +++| SX1 A0 04748 M01S04607.iedit +++| NZ X1,PNL2 IF MORE NON-OVERLAPPED LINES 04749 M01S04608.iedit +++| 04750 M01S04609.iedit +++| PNL SUBR ENTRY/EXIT 04751 M01S04610.iedit +++| SA0 X5+ SAVE NUMBER OF NON-OVERLAPPED LINES 04752 M01S04611.iedit +++| SA2 UNRF 04753 M01S04612.iedit +++| ZR X2,PNL2 IF NOT AN UNNUMBERED *READ* FILE 04754 M01S04613.iedit +++| PNL1 READC E,PCKDBF READ LINE FROM FET *E* 04755 M01S04614.iedit +++| WRITEC L,PCKDBF WRITE LINE TO FET *L* 04756 M01S04615.iedit +++| SX5 X5-1 04757 M01S04616.iedit +++| NZ X5,PNL1 IF MORE NON-OVERLAPPED LINES 04758 M01S04617.iedit +++| EQ PNLX RETURN 04759 M01S04618.iedit +++| POL SPACE 4,10 04760 M01S04619.iedit +++|** POL - PROCESS OVERLAPPED LINES. 04761 M01S04620.iedit +++|* 04762 M01S04621.iedit +++|* ENTRY (X1) = 0, IF A *MOVE* FUNCTION. 04763 M01S04622.iedit +++|* = NONZERO, OTHERWISE. 04764 M01S04623.iedit +++|* 04765 M01S04624.iedit +++|* EXIT OVERLAPPED LINES PROCESSED. 04766 M01S04625.iedit +++|* 04767 M01S04626.iedit +++|* CALLS PLN, RNE. 04768 M01S04627.iedit +++|* 04769 M01S04628.iedit +++|* MACROS READC. 04770 M01S04629.iedit +++| 04771 M01S04630.iedit +++| 04772 M01S04631.iedit +++| POL SUBR ENTRY/EXIT 04773 M01S04632.iedit +++| ZR X1,POL1 IF A *MOVE* COMMAND 04774 M01S04633.iedit +++| RJ RNE REMOVE NON - OVERLAPPED *LNT* ENTRIES 04775 M01S04634.iedit +++| POL1 READC E,PCKDBF READ LINE FROM FET *E* 04776 M01S04635.iedit +++| NZ X1,POLX IF EOR ON FET *E* 04777 M01S04636.iedit +++| RJ PLN PROCESS LINE 04778 M01S04637.iedit +++| EQ POL1 READ NEXT LINE 04779 M01S04638.iedit +++| RNE SPACE 4,15 04780 M01S04639.iedit +++|** RNE - REMOVE NON-OVERLAP *LNT* ENTRIES. 04781 M01S04640.iedit +++|* 04782 M01S04641.iedit +++|* *RNE* REMOVES ALL ENTRIES IN THE LINE NUMBER TABLE 04783 M01S04642.iedit +++|* WHICH DO NOT HAVE THE OVERLAP BIT SET. 04784 M01S04643.iedit +++|* 04785 M01S04644.iedit +++|* ENTRY (LTFILE) = 0, IF THE *LNT* IS BUFFER RESIDENT. 04786 M01S04645.iedit +++|* 1, IF THE *LNT* IS MASS STORAGE RESIDENT. 04787 M01S04646.iedit +++|* 04788 M01S04647.iedit +++|* EXIT *LNT* UPDATED. 04789 M01S04648.iedit +++|* 04790 M01S04649.iedit +++|* USES X - 0, 1, 2, 6, 7. 04791 M01S04650.iedit +++|* A - 1, 2, 6, 7. 04792 M01S04651.iedit +++|* B - 7. 04793 M01S04652.iedit +++|* 04794 M01S04653.iedit +++|* MACROS READEI, READO, REWIND, WRITEO, WRITER. 04795 M01S04654.iedit +++| 04796 M01S04655.iedit +++| 04797 M01S04656.iedit +++| RNE SUBR ENTRY/EXIT 04798 M01S04657.iedit +++| SA1 LTFILE 04799 M01S04658.iedit +++| NZ X1,RNE3 IF *LNT* RESIDES ON MASS STORAGE 04800 M01S04659.iedit +++| SA1 F.LNTBUF 04801 M01S04660.iedit +++| SA2 NMLS 04802 M01S04661.iedit +++| SX0 B1 04803 M01S04662.iedit +++| LX0 FOVL-0 SET UP OVERLAP BIT MASK 04804 M01S04663.iedit +++| SB7 X1 FWA OF TABLE 04805 M01S04664.iedit +++| SA1 X1 GET FIRST ENTRY 04806 M01S04665.iedit +++| RNE1 BX6 X0*X1 04807 M01S04666.iedit +++| ZR X6,RNE2 IF OVERLAP BIT NOT SET 04808 M01S04667.iedit +++| BX6 X1 04809 M01S04668.iedit +++| SA6 B7+ STORE OVERLAP *LNT* ENTRY 04810 M01S04669.iedit +++| SB7 B7+1 04811 M01S04670.iedit +++| RNE2 SA1 A1+1 04812 M01S04671.iedit +++| SX2 X2-1 04813 M01S04672.iedit +++| NZ X2,RNE1 IF MORE ENTRIES TO PROCESS 04814 M01S04673.iedit +++| SA1 F.LNTBUF 04815 M01S04674.iedit +++| SX6 B7 04816 M01S04675.iedit +++| IX6 X6-X1 04817 M01S04676.iedit +++| SA6 NMLS UPDATE NUMBER OF *LNT* ENTRIES 04818 M01S04677.iedit +++| EQ RNEX RETURN 04819 M01S04678.iedit +++| 04820 M01S04679.iedit +++| RNE3 SA2 LT2FET 04821 M01S04680.iedit +++| REWIND X2,R REWIND THE SCRATCH FILE 04822 M01S04681.iedit +++| SA2 LTFET 04823 M01S04682.iedit +++| REWIND X2,R 04824 M01S04683.iedit +++| READEI X2 PREPARE THE *LNT* FILE 04825 M01S04684.iedit +++| SX0 B1 04826 M01S04685.iedit +++| LX0 FOVL-0 SET MASK FOR THE TRUNCATE BIT 04827 M01S04686.iedit +++| SA1 LTFET 04828 M01S04687.iedit +++| SA2 LT2FET REVERSE THE FILE NAMES 04829 M01S04688.iedit +++| BX6 X1 04830 M01S04689.iedit +++| BX7 X2 04831 M01S04690.iedit +++| SA7 A1+ 04832 M01S04691.iedit +++| SA6 A2+ 04833 M01S04692.iedit +++| RNE4 SA2 LT2FET 04834 M01S04693.iedit +++| READO X2 GET NEXT ENTRY 04835 M01S04694.iedit +++| NZ X1,RNE5 IF NO MORE ENTRIES TO PROCESS 04836 M01S04695.iedit +++| BX2 X0*X6 04837 M01S04696.iedit +++| ZR X2,RNE4 IF NOT AN OVERLAP ENTRY 04838 M01S04697.iedit +++| SA2 LTFET 04839 M01S04698.iedit +++| WRITEO X2 ADD THE OVERLAP ENTRY TO THE NEW *LNT* 04840 M01S04699.iedit +++| EQ RNE4 PROCESS NEXT ENTRY 04841 M01S04700.iedit +++| 04842 M01S04701.iedit +++| RNE5 SA2 LTFET 04843 M01S04702.iedit +++| WRITER X2 FLUSH THE *LNT* TO THE FILE 04844 M01S04703.iedit +++| EQ RNEX RETURN 04845 M01S04704.iedit +++| LIST X 04846 M01S04705.iedit +++|*CALL COMCBLP 04847 M01S04706.iedit +++| TTL IEDIT - IN-LINE EDITOR. 04848 M01S04707.iedit +++| 04849 M01S04708.iedit +++| MEM2 EQU * MANAGED TABLES START ADDRESS 04850 M01S04709.iedit +++| QUAL MAKE *MEML* A GLOBAL SYMBOL 04851 M01S04710.iedit +++| 04852 M01S04711.iedit +++|* DEFINITION OF MEML IS CHANGED DURING PRESET TO MATCH 04853 M01S04712.iedit +++|* ACTUAL OVERLAY SIZES AND UTILIZATION. THE *ERRNG* CHECKS 04854 M01S04713.iedit +++|* ARE FOR THE WORST POSSIBLE CASES. 04855 M01S04714.iedit +++| 04856 M01S04715.iedit +++| MEM2 EQU /IEDIT1/MEM2 04857 M01S04716.iedit +++| 04858 M01S04717.iedit +++| MEML EQU MEM 04859 M01S04718.iedit +++| 04860 M01S04719.iedit +++| MFL= EQU 17400B 04861 M01S04720.iedit +++| SSM= EQU 0 04862 M01S04721.iedit +++| 04863 M01S04722.iedit +++| ERRNG MEM-MEM2 04864 M01S04723.iedit +++| ERRNG MFL=-MEM-BUFL 04865 M01S04724.iedit +++| ERRNG MFL=-MEM-BUFL2 04866 M01S04725.iedit +++| ERRNG MFL=-MEM2-BUFL 04867 M01S04726.iedit +++| ERRNG MFL=-MINSZ 04868 M01S04727.iedit +++| 04869 M01S04728.iedit +++| END 04870 M01S00014.iedit +++|IHFU
| Line S38153 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @017156 |
M02 (Yanked) (Updated by) | @056136 |
M03 (Yanked) (Updated by) | @025964 |
M04 (Yanked) (Updated by) | @027464 |
M05 (Yanked) (Updated by) | @057988 |
M06 (Yanked) (Added by) | @019271 |
M07 (Yanked) (Updated by) | @005251 |
M08 (Yanked) (Added by) | @028753 |
M09 (Yanked) (Updated by) | @053632 |
M10 (Yanked) (Added by) | @021267 |
M11 (Yanked) (Updated by) | @054611 |
M12 (Yanked) (Updated by) | @049747 |
M13 (Yanked) (Added by) | @039871 |
Seq # *Modification Id* Act ----------------------------+ 04871 M13S38153.@039871 +++| 04872 M01S00007.iedit +++|*COMMENT IHFU - INJECT HARDWARE FAULT UTILITY.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | iedit |
M02 (Updated by) | iedit1 |
Seq # *Modification Id* Act ----------------------------+ 04873 M02S00008.iedit1 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1979. 04874 M01S00001.iedit1 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 04875 M01S00009.iedit +++|IHFU SPACE 4,10 04876 M01S00010.iedit +++|*** IHFU - INJECT HARDWARE FAULT UTILITY. 04877 M01S00011.iedit +++|* D. A. HENSELER. 79/04/25. 04878 M01S00012.iedit +++|* P. C. SMITH. 88/06/16. 04879 M01S00013.iedit +++|IHFU SPACE 4,30 04880 M01S00014.iedit +++|*** IHFU - INJECT HARDWARE FAULT UTILITY. 04881 M01S00015.iedit +++|* 04882 M01S00016.iedit +++|* THIS UTILITY IS PROVIDED TO FORCE HARDWARE ERRORS FOR 04883 M01S00017.iedit +++|* *DFT* CHECKOUT. 04884 M01S00018.iedit +++|* 04885 M01S00019.iedit +++|* IHFU,FAULT,MODE,TRAPS,RMA. 04886 M01S00020.iedit +++|* 04887 M01S00021.iedit +++|* FAULT - FAULT KIND. ALLOWABLE VALUES ARE *RETRY*, 04888 M01S00022.iedit +++|* *EXCHANG*, *TRAP*, *HALT*, *PDMHALT* 04889 M01S00023.iedit +++|* OR *SOFTERR*. 04890 M01S00024.iedit +++|* MODE - ALLOWABLE VALUES ARE *JOB* OR *MONITOR*. 04891 M01S00025.iedit +++|* TRAPS - TRAPS ENABLED. ALLOWABLE VALUES ARE *TRUE* 04892 M01S00026.iedit +++|* OR *FALSE*. 04893 M01S00027.iedit +++|* RMA - REAL MEMORY ADDRESS PARITY ERROR. MUST BE 04894 M01S00028.iedit +++|* AN OCTAL NUMBER DIVIDED BY 1000(8). 04895 M01S00029.iedit +++|* 04896 M01S00030.iedit +++|* EXAMPLE - 04897 M01S00031.iedit +++|* 04898 M01S00032.iedit +++|* IHFU(RETRY,JOB,FALSE,60000) 04899 M01S00033.iedit +++|* 04900 M01S00034.iedit +++|* NOTE - THIS UTILITY REQUIRES SPECIAL PRIVILEGES IN ORDER TO 04901 M01S00035.iedit +++|* ISSUE THE 017 INSTRUCTIONS THAT REQUEST *EI* TO INJECT 04902 M01S00036.iedit +++|* THE HARDWARE FAULT. 04903 M01S00037.iedit +++|* 04904 M01S00038.iedit +++|* THESE PRIVILEGES MAY BE OBTAINED EITHER BY RUNNING 04905 M01S00039.iedit +++|* THIS UTILITY AS THE *NVE* SUBSYSTEM, OR BY USING THE 04906 M01S00040.iedit +++|* *IPRDECK* ENTRY *ENABLE, HARDWARE FAULT INJECTION*. 04907 M01S00041.iedit +++|* 04908 M01S00042.iedit +++|* THERE IS A FAULT INJECTION UTILITY THAT IS ACTIVATED 04909 M01S00043.iedit +++|* FROM THE SYSTEM CORE DEBUGGER FOR INJECTING FAULTS ON 04910 M01S00044.iedit +++|* THE 180 SIDE. ANY CHANGES MADE TO INJECT ERRORS HERE 04911 M01S00045.iedit +++|* SHOULD ALSO BE ADDED THERE IF IT IS APPLICABLE. THE 04912 M01S00046.iedit +++|* 180 FAULT INJECTION IS IN DECK 04913 M01S00047.iedit +++|* *SYM$INJECT_HARDWARE_FAULTS*. 04914 M01S00048.iedit +++|* 04915 M01S00049.iedit +++|* SPECIAL MICROCODE IS ALSO REQUIRED TO INJECT HARDWARE 04916 M01S00050.iedit +++|* FAULTS. 04917 M01S00051.iedit +++|* 04918 M01S00052.iedit +++| TITLE MACRO DEFINITIONS. 04919 M01S00053.iedit +++|* MACRO DEFINITIONS. 04920 M01S00054.iedit +++| RT SPACE 4,10 04921 M01S00055.iedit +++|** RT - DEFINE THE RT INSTRUCTION. 04922 M01S00056.iedit +++|* 04923 M01S00057.iedit +++| RTX,X,Q OPDEF P1,P2,K 04924 M01S00058.iedit +++|+ VFD 9/017B,3/P1,3/P2,15/K,30/0 04925 M01S00059.iedit +++| ENDM 04926 M01S00060.iedit +++| TITLE COMMON DECKS. 04927 M01S00061.iedit +++|*CALL COMCMAC 04928 M01S00062.iedit +++| LIST X 04929 M01S00063.iedit +++|*CALL COMSCVS 04930 M01S00064.iedit +++| LIST * 04931 M01S00065.iedit +++| TITLE MAIN PROGRAM. 04932 M01S00066.iedit +++| ORG 110B 04933 M01S00067.iedit +++| FWA BSS 0 04934 M01S00068.iedit +++| IHFU SPACE 4,10 04935 M01S00069.iedit +++|** IHFU - MAIN PROGRAM. 04936 M01S00070.iedit +++| 04937 M01S00071.iedit +++| 04938 M01S00072.iedit +++| IHFU BSS 0 ENTRY 04939 M01S00073.iedit +++| SB1 1 04940 M01S00074.iedit +++| SA1 B1+B1 FAULT KIND PARAMETER 04941 M01S00075.iedit +++| SB2 HFK VERIFY HARDWARE FAULT KIND PARAMETER 04942 M01S00076.iedit +++| SB3 HFKL 04943 M01S00077.iedit +++| RJ VIP 04944 M01S00078.iedit +++| NG X6,IHFU3 IF ERROR IN HARDWARE FAULT KIND 04945 M01S00079.iedit +++| BX7 X6 FAULT KIND 04946 M01S00080.iedit +++| SA1 A1+B1 MODE PARAMETER 04947 M01S00081.iedit +++| SB2 MODE VERIFY MODE PARAMETER 04948 M01S00082.iedit +++| SB3 MODEL 04949 M01S00083.iedit +++| RJ VIP 04950 M01S00084.iedit +++| NG X6,IHFU3 IF ERROR IN MODE FLAG 04951 M01S00085.iedit +++| LX6 8+8 04952 M01S00086.iedit +++| SA1 A1+B1 TRAPS ENABLED PARAMETER 04953 M01S00087.iedit +++| BX7 X7+X6 COMBINE FAULT KIND AND MODE 04954 M01S00088.iedit +++| SB2 TE VERIFY TRAPS ENABLED PARAMETER 04955 M01S00089.iedit +++| SB3 TEL 04956 M01S00090.iedit +++| RJ VIP 04957 M01S00091.iedit +++| NG X6,IHFU3 IF ERROR IN TRAPS ENABLED FLAG 04958 M01S00092.iedit +++| LX6 8 04959 M01S00093.iedit +++| SA1 A1+B1 RMA/1000(8) OF PARITY ERROR PARAMETER 04960 M01S00094.iedit +++| BX7 X7+X6 COMBINE TRAPS ENABLED, MODE AND FAULT KIND 04961 M01S00095.iedit +++| RJ CDB CONVERT DISPLAY CODE TO BINARY 04962 M01S00096.iedit +++| ZR X6,IHFU3 IF ERROR IN RMA OF PARITY ERROR 04963 M01S00097.iedit +++| BX2 X6 (RMA OF PARITY ERROR)/1000(8) 04964 M01S00098.iedit +++| BX1 X7 04965 M01S00099.iedit +++| LX2 9 04966 M01S00100.iedit +++| 04967 M01S00101.iedit +++|* ISSUE *017* INSTRUCTION TO INJECT SPECIFIED FAULT. 04968 M01S00102.iedit +++|* (X1) = 36/0 04969 M01S00103.iedit +++|* 8/MODE 04970 M01S00104.iedit +++|* 8/TRAPS ENABLED 04971 M01S00105.iedit +++|* 8/FAULT KIND 04972 M01S00106.iedit +++|* (X2) = RMA OF PARITY ERROR. 04973 M01S00107.iedit +++| 04974 M01S00108.iedit +++| RT X1,X2,CVSIHF INJECT ERROR 04975 M01S00109.iedit +++| MX6 30 04976 M01S00110.iedit +++| BX1 -X6*X1 ERROR CODE 04977 M01S00111.iedit +++| BX2 X6*X0 NOS/VE DOWN FLAG 04978 M01S00112.iedit +++| ZR X1,IHFU1 IF NO ERROR 04979 M01S00113.iedit +++| MESSAGE IHFUB,5,R *EI DID NOT RECOGNIZE FAULT KIND.* 04980 M01S00114.iedit +++| EQ IHFU4 ABORT THE JOB 04981 M01S00115.iedit +++| 04982 M01S00116.iedit +++| IHFU1 NZ X2,IHFU2 IF NOS/VE DOWN 04983 M01S00117.iedit +++| MESSAGE IHFUC,5,R *NOS/VE UP, NEED EI.* 04984 M01S00118.iedit +++| EQ IHFU4 ABORT THE JOB 04985 M01S00119.iedit +++| 04986 M01S00120.iedit +++| IHFU2 ENDRUN 04987 M01S00121.iedit +++| 04988 M01S00122.iedit +++| IHFU3 MESSAGE IHFUA,5,R *ERROR IN PARAMETER.* 04989 M01S00123.iedit +++| IHFU4 ABORT 04990 M01S00124.iedit +++| 04991 M01S00125.iedit +++| 04992 M01S00126.iedit +++| IHFUA DATA C*ERROR IN PARAMETER.* 04993 M01S00127.iedit +++| IHFUB DATA C*EI DID NOT RECOGNIZE FAULT KIND.* 04994 M01S00128.iedit +++| IHFUC DATA C*NOS/VE UP, NEED EI.* 04995 M01S00129.iedit +++| TITLE PARAMETER TABLES. 04996 M01S00130.iedit +++| HFK SPACE 4,10 04997 M01S00131.iedit +++|* HFK - TABLE OF HARDWARE FAULT KIND VALUES. THE VALUES 04998 M01S00132.iedit +++|* MUST MATCH VALUES DEFINED FOR THE 180 SIDE AND THE EI CODE. 04999 M01S00133.iedit +++| 05000 M01S00134.iedit +++| HFK BSS 0 05001 M01S00135.iedit +++| VFD 42/5LRETRY,18/0 05002 M01S00136.iedit +++| VFD 42/7LEXCHANG,18/1 05003 M01S00137.iedit +++| VFD 42/4LTRAP,18/2 05004 M01S00138.iedit +++| VFD 42/4LHALT,18/3 05005 M01S00139.iedit +++| VFD 42/7LPDMHALT,18/4 05006 M01S00140.iedit +++| VFD 42/7LSOFTERR,18/5 05007 M01S00141.iedit +++| HFKL EQU *-HFK LENGTH OF TABLE 05008 M01S00142.iedit +++| MODE SPACE 4,10 05009 M01S00143.iedit +++|* MODE - TABLE OF MODE VALUES. 05010 M01S00144.iedit +++| 05011 M01S00145.iedit +++| MODE BSS 0 05012 M01S00146.iedit +++| VFD 42/3LJOB,18/0 05013 M01S00147.iedit +++| VFD 42/7LMONITOR,18/1 05014 M01S00148.iedit +++| MODEL EQU *-MODE LENGTH OF TABLE 05015 M01S00149.iedit +++| TE SPACE 4,10 05016 M01S00150.iedit +++|* TE - TABLE OF TRAP ENABLED VALUES. 05017 M01S00151.iedit +++| 05018 M01S00152.iedit +++| TE BSS 0 05019 M01S00153.iedit +++| VFD 42/5LFALSE,18/0 05020 M01S00154.iedit +++| VFD 42/4LTRUE,18/1 05021 M01S00155.iedit +++| TEL EQU *-TE LENGTH OF TABLE 05022 M01S00156.iedit +++| TITLE SUBROUTINES. 05023 M01S00157.iedit +++| CDB SPACE 4,10 05024 M01S00158.iedit +++|** CDB - CONVERT DISPLAY CODE TO BINARY. 05025 M01S00159.iedit +++|* 05026 M01S00160.iedit +++|* *CDB* CONVERTS AN OCTAL DISPLAY CODE NUMBER TO ITS 05027 M01S00161.iedit +++|* BINARY VALUE. 05028 M01S00162.iedit +++|* 05029 M01S00163.iedit +++|* ENTRY (X1) = OCTAL NUMBER TO CONVERT, LEFT JUSTIFIED WITH 05030 M01S00164.iedit +++|* ZERO FILL. LOW ORDER 18 BITS ARE NOT CHECKED. 05031 M01S00165.iedit +++|* 05032 M01S00166.iedit +++|* EXIT (X6) = BINARY VALUE. 05033 M01S00167.iedit +++|* (X6) = 0 IF (X1) WAS NOT OCTAL DISPLAY CODE VALUE. 05034 M01S00168.iedit +++|* 05035 M01S00169.iedit +++|* USES X - 0, 1, 3, 4, 6. 05036 M01S00170.iedit +++|* B - 2. 05037 M01S00171.iedit +++| 05038 M01S00172.iedit +++| 05039 M01S00173.iedit +++| CDB2 SX6 B0 RETURN WITH ERROR 05040 M01S00174.iedit +++| 05041 M01S00175.iedit +++| CDB SUBR ENTRY/EXIT 05042 M01S00176.iedit +++| MX0 60-6 05043 M01S00177.iedit +++| LX1 6 05044 M01S00178.iedit +++| SX6 B0 INITIALIZE RESULT BINARY VALUE 05045 M01S00179.iedit +++| SB2 7 05046 M01S00180.iedit +++| CDB1 BX2 -X0*X1 DISPLAY CODE CHARACTER 05047 M01S00181.iedit +++| SB2 B2-B1 DECREMENT CHARACTER COUNT 05048 M01S00182.iedit +++| ZR X2,CDBX IF ALL CHARACTERS CONVERTED, RETURN 05049 M01S00183.iedit +++| SX3 X2-1R0 SUBTRACT DISPLAY CODE BIAS 05050 M01S00184.iedit +++| SX4 X2-1R8 05051 M01S00185.iedit +++| LX6 3 05052 M01S00186.iedit +++| NG X3,CDB2 IF NOT AN OCTAL NUMBER 05053 M01S00187.iedit +++| PL X4,CDB2 IF NOT AN OCTAL NUMBER 05054 M01S00188.iedit +++| LX1 6 POSITION NEXT CHARACTER 05055 M01S00189.iedit +++| BX6 X6+X3 ADD NEXT BINARY DIGIT TO BINARY NUMBER 05056 M01S00190.iedit +++| GE B2,B0,CDB1 IF MORE CHARACTERS TO CONVERT 05057 M01S00191.iedit +++| EQ CDBX RETURN 05058 M01S00192.iedit +++| VIP SPACE 4,20 05059 M01S00193.iedit +++|** VIP - VERIFY INPUT PARAMETER. 05060 M01S00194.iedit +++|* 05061 M01S00195.iedit +++|* *VIP* CHECKS SPECIFIED PARAMETER TABLE FOR A MATCH 05062 M01S00196.iedit +++|* AND RETURNS A PARAMETER VALUE. 05063 M01S00197.iedit +++|* 05064 M01S00198.iedit +++|* ENTRY (B2) = ADDRESS OF PARAMETER TABLE. 05065 M01S00199.iedit +++|* (B3) = LENGTH OF PARAMETER TABLE. 05066 M01S00200.iedit +++|* (X1) = PARAMETER CHECKING FOR, LEFT JUSTIFIED WITH 05067 M01S00201.iedit +++|* ZERO FILL. LOW ORDER 18 BITS ARE NOT CHECKED. 05068 M01S00202.iedit +++|* 05069 M01S00203.iedit +++|* EXIT (X6) = PARAMETER VALUE. 05070 M01S00204.iedit +++|* (X6) .LT. 0 IF PARAMETER NOT FOUND. 05071 M01S00205.iedit +++|* 05072 M01S00206.iedit +++|* USES X - 0, 2, 5, 6. 05073 M01S00207.iedit +++|* A - 2. 05074 M01S00208.iedit +++|* B - 3. 05075 M01S00209.iedit +++| 05076 M01S00210.iedit +++| 05077 M01S00211.iedit +++| VIP SUBR ENTRY/EXIT 05078 M01S00212.iedit +++| SA2 B2 INITIAL ENTRY IN PARAMETER TABLE 05079 M01S00213.iedit +++| MX0 60-18 05080 M01S00214.iedit +++| VIP1 BX5 X1-X2 05081 M01S00215.iedit +++| BX6 -X0*X2 PARAMETER VALUE 05082 M01S00216.iedit +++| SA2 A2+B1 NEXT ENTRY IN PARAMETER TABLE 05083 M01S00217.iedit +++| BX5 X0*X5 05084 M01S00218.iedit +++| SB3 B3-B1 DECREMENT TABLE LENGTH 05085 M01S00219.iedit +++| ZR X5,VIPX IF MATCHING PARAMETER 05086 M01S00220.iedit +++| GT B3,B0,VIP1 IF MORE ENTRIES IN PARAMETER TABLE 05087 M01S00221.iedit +++| SX6 -B1 SET NO MATCHING PARAMETER FOUND 05088 M01S00222.iedit +++| EQ VIPX RETURN 05089 M01S00223.iedit +++| SPACE 4,10 05090 M01S00224.iedit +++|* COMMON DECKS. 05091 M01S00225.iedit +++| 05092 M01S00226.iedit +++| 05093 M01S00227.iedit +++|*CALL COMCSYS 05094 M01S00228.iedit +++| 05095 M01S00229.iedit +++| 05096 M01S00230.iedit +++| END
cdc/nos2.source/opl.opl871/deck/iedit.002.txt · Last modified: by 127.0.0.1