Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comcsrt +++| CTEXT COMCSRT - SET RECORD TYPE.
00002 M01S00002.comcsrt +++| SRT SPACE 4
00003 M01S00003.comcsrt +++| IF -DEF,QUAL$,1
00004 M01S00004.comcsrt +++| QUAL COMCSRT
00005 M01S00005.comcsrt +++| BASE D
| Line S00006 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M02S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M01S00007.comcsrt +++| SRT SPACE 4
00009 M01S00008.comcsrt +++|*** SRT - SET RECORD TYPE.
00010 M01S00009.comcsrt +++|* G. R. MANSFIELD. 70/10/09.
00011 M01S00010.comcsrt +++|* ADAPTED FROM SUBROUTINE *CPT* IN *LIBEDIT*.
00012 M01S00011.comcsrt +++|*
00013 M01S00012.comcsrt +++|* *SRT* IDENTIFIES THE FORMAT OF A RECORD FROM THE DATA
00014 M01S00013.comcsrt +++|* LOCATED IN A WORKING BUFFER DEFINED BY THE CALLER.
00015 M01S00014.comcsrt +++|* THE TYPE IS RETURNED AS FOLLOWS -
00016 M01S00015.comcsrt +++|*
00017 M01S00016.comcsrt +++|* NUMBER TYPE FORMAT
00018 M01S00017.comcsrt +++|*
00019 M01S00018.comcsrt +++|* 0 TEXT UNRECOGNIZED
00020 M01S00019.comcsrt +++|* 1 PP PP PROGRAM
00021 M01S00020.comcsrt +++|* 3 REL RELOCATABLE SUBPROGRAM
00022 M01S00021.comcsrt +++|* 4 OVL OVERLAY
00023 M01S00022.comcsrt +++|* 5 ULIB USER LIBRARY
00024 M01S00023.comcsrt +++|* 6 OPL MODIFY OPL DECK
00025 M01S00024.comcsrt +++|* 7 OPLC MODIFY OPL COMMON DECK
00026 M01S00025.comcsrt +++|* 8 OPLD MODIFY OPL DIRECTORY
00027 M01S00026.comcsrt +++|* 9 ABS ABSOLUTE PROGRAM
00028 M01S00027.comcsrt +++|* 10 PPU PPU PROGRAM
00029 M01S00028.comcsrt +++|* 14 CAP FAST DYNAMIC LOAD CAPSULE
00030 M01S00029.comcsrt +++|* 16 PROC PROCEDURE RECORD
00031 M01S00001.251l664 +++|* 20 PPL 16-BIT PP PROGRAM
00032 M01S00030.comcsrt +++|*
00033 M01S00031.comcsrt +++|* IF TYPE NUMBER AND RECORD NAME = 0, RECORD IS ZERO LENGTH.
00034 M01S00032.comcsrt +++|*
00035 M01S00033.comcsrt +++|* ENTRY (X1) = LAST WORD ADDRESS + 1 OF DATA.
00036 M01S00034.comcsrt +++|* (X2) = START OF BLOCK IN MEMORY.
00037 M01S00035.comcsrt +++|* (B1) = 1.
00038 M01S00036.comcsrt +++|*
00039 M01S00037.comcsrt +++|* EXIT (X6) = RECORD NAME AND TYPE.
00040 M01S00038.comcsrt +++|* (X7) = RECORD NAME, 0 FILL.
00041 M01S00039.comcsrt +++|*
00042 M01S00040.comcsrt +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
00043 M01S00041.comcsrt +++|* B - 2, 3.
00044 M01S00042.comcsrt +++|* A - 1, 2, 4.
00045 M01S00002.251l664 +++| SPACE 4,10
00046 M01S00003.251l664 +++|* CALL *COMSSRT* IF NOT ALREADY CALLED.
00047 M01S00004.251l664 +++|
00048 M01S00005.251l664 +++|*CALLC COMSSRT
00049 M01S00043.comcsrt +++|
00050 M01S00044.comcsrt +++|
00051 M01S00045.comcsrt +++| SRT15 MX6 0 CLEAR NAMES
00052 M01S00046.comcsrt +++| SX7 B0
00053 M01S00047.comcsrt +++|
00054 M01S00048.comcsrt +++| SRT PS ENTRY/EXIT
00055 M01S00049.comcsrt +++| IX6 X1-X2 NUMBER OF DATA WORDS
00056 M01S00050.comcsrt +++| ZR X6,SRT15 IF ZERO LENGTH RECORD
00057 M01S00051.comcsrt +++| SX4 B1+B1
00058 M01S00052.comcsrt +++| SX7 X6-2 NUMBER OF DATA WORDS - 2
00059 M01S00053.comcsrt +++| SA1 X2 CHECK FIRST WORD
00060 M01S00054.comcsrt +++| BX6 X1 (X6) = PROGRAM NAME
00061 M01S00055.comcsrt +++| MX0 -12
00062 M01S00056.comcsrt +++| LX2 X1 (X2) = RECORD NAME
00063 M01S00057.comcsrt +++| LX1 12
00064 M01S00058.comcsrt +++| BX3 -X0*X1
00065 M01S00059.comcsrt +++| SB3 X3-7700B
00066 M01S00060.comcsrt +++| NZ B3,SRT1 IF NO 7700 TABLE
00067 M01S00061.comcsrt +++| SA2 A1+B1 GET NAME FROM 7700 TABLE
00068 M01S00062.comcsrt +++|
00069 M01S00063.comcsrt +++|* CHECK FOR A VALID 7700 TABLE.
00070 M01S00064.comcsrt +++|* THERE MUST BE WC+2 DATA WORDS FOR A VALID 7700 TABLE.
00071 M01S00065.comcsrt +++|
00072 M01S00066.comcsrt +++| LX1 12 CHECK 7700 WORD COUNT .LE. REAL LENGTH
00073 M01S00067.comcsrt +++| BX3 -X0*X1
00074 M01S00068.comcsrt +++| IX7 X7-X3
00075 M01S00069.comcsrt +++| PL X7,SRT0 IF VALID 7700 TABLE
00076 M01S00070.comcsrt +++| SA2 A1 GET TEXT RECORD NAME
00077 M01S00071.comcsrt +++| SX3 B0 PROCESS AS TEXT RECORD
00078 M01S00072.comcsrt +++| SRT0 SB2 B0 REPORT *TEXT* FOR *UCF* TYPE
00079 M01S00006.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE
00080 M01S00073.comcsrt +++| ZR X3,SRT12 IF UPDATE COMPRESSED COMPILE FILE
00081 M01S00074.comcsrt +++| SB3 X2 CHECK SEQUENCE NUMBER
00082 M01S00075.comcsrt +++| NZ B3,SRT12 IF MODIFY COMPRESSED COMPILE FILE
00083 M01S00076.comcsrt +++|
00084 M01S00077.comcsrt +++|* CHECK FIRST WORD BEYOND 7700 TABLE FOR *LDSET* TABLE.
00085 M01S00078.comcsrt +++|
00086 M01S00079.comcsrt +++| SB3 X3 GET FIRST WORD BEYOND 7700 TABLE
00087 M01S00080.comcsrt +++| SA1 A2+B3
00088 M01S00081.comcsrt +++| BX6 X1
00089 M01S00082.comcsrt +++| LX1 12 POSITION FOR 7000 TABLE CHECK
00090 M01S00083.comcsrt +++| BX3 -X0*X1
00091 M01S00084.comcsrt +++| IX7 X7-X4 INSURE WORD AFTER *LDSET* TABLE
00092 M01S00085.comcsrt +++|
00093 M01S00086.comcsrt +++|* CHECK FOR *OPLD* AND *LDSET* TABLES.
00094 M01S00087.comcsrt +++|* THERE MAY OR MAY NOT BE A 7700 TABLE.
00095 M01S00088.comcsrt +++|* THERE MUST BE WC+1 MORE DATA WORDS FOR A VALID 7000 TABLE.
00096 M01S00089.comcsrt +++|
00097 M01S00090.comcsrt +++| SRT1 SB2 X3-7000B
00098 M01S00091.comcsrt +++| NZ B2,SRT2 IF NO 7000 TABLE
00099 M01S00092.comcsrt +++| LX1 12 CHECK FOR WC = 0 (*OPLD* TABLE)
00100 M01S00093.comcsrt +++| BX3 -X0*X1
00101 M01S00094.comcsrt +++| ZR X3,SRT5 IF OPLD TYPE
00102 M01S00095.comcsrt +++| SB3 X3+B1
00103 M01S00096.comcsrt +++| SX7 X7+B1 IGNORE FIRST WORD IF NO 7700 TABLE
00104 M01S00097.comcsrt +++| SB2 B0 SET TEXT RECORD TYPE
00105 M01S00007.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE
00106 M01S00098.comcsrt +++| IX7 X7-X3
00107 M01S00099.comcsrt +++| NG X7,SRT12 IF NOT VALID 7000 TABLE
00108 M01S00100.comcsrt +++| SA1 A1+B3
00109 M01S00101.comcsrt +++| BX6 X1 (X6) = FIRST WORD OF PROGRAM
00110 M01S00102.comcsrt +++|
00111 M01S00103.comcsrt +++|* CHECK FOR AND PROCESS CONTROL LANGUAGE PROCEDURE RECORDS.
00112 M01S00104.comcsrt +++|
00113 M01S00105.comcsrt +++| SRT2 SA4 SRTB CHECK FOR .PROC,
00114 M01S00106.comcsrt +++| MX0 36
00115 M01S00107.comcsrt +++| BX3 X0*X6
00116 M01S00108.comcsrt +++| BX4 X3-X4
00117 M01S00109.comcsrt +++| NZ X4,SRT5 IF NOT .PROC,
00118 M01S00110.comcsrt +++| LX6 36 GET FIRST FOUR LETTERS OF NAME
00119 M01S00111.comcsrt +++| MX0 24
00120 M01S00112.comcsrt +++| BX6 X0*X6
00121 M01S00113.comcsrt +++| SA1 A1+B1 GET LAST THREE CHARACTERS OF NAME
00122 M01S00114.comcsrt +++| MX0 18
00123 M01S00115.comcsrt +++| BX4 X0*X1
00124 M01S00116.comcsrt +++| LX4 -24
00125 M01S00117.comcsrt +++| BX6 X6+X4
00126 M01S00118.comcsrt +++| MX0 -6
00127 M01S00119.comcsrt +++| LX4 X6
00128 M01S00120.comcsrt +++| SB2 -B1
00129 M01S00121.comcsrt +++| SB3 7
00130 M01S00122.comcsrt +++| SRT3 LX4 6
00131 M01S00123.comcsrt +++| BX3 -X0*X4
00132 M01S00124.comcsrt +++| SX2 X3-1R9-1 CHECK FOR SEPARATOR
00133 M01S00125.comcsrt +++| PL X2,SRT4 IF END OF NAME
00134 M01S00126.comcsrt +++| SB3 B3-1
00135 M01S00127.comcsrt +++| SB2 B2+6
00136 M01S00128.comcsrt +++| NZ B3,SRT3 IF SEVEN LETTERS NOT PROCESSED YET
00137 M01S00129.comcsrt +++| SRT4 MX0 1 BUILD MASK
00138 M01S00130.comcsrt +++| AX0 B2
| Line S00131 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00139 M02S00131.251l664 ---| SX2 16 TYPE = 16
00140 M01S00008.251l664 +++| SX2 PRRT TYPE = PROC
00141 M01S00132.comcsrt +++| BX7 X0*X6
00142 M01S00133.comcsrt +++| IX6 X7+X2
00143 M01S00134.comcsrt +++| PL B2,SRT RETURN IF NAME PRESENT
00144 M01S00135.comcsrt +++| SX7 1R RETURN SPACE FOR NAME
00145 M01S00136.comcsrt +++| LX7 48
00146 M01S00137.comcsrt +++| BX6 X7+X2
00147 M01S00138.comcsrt +++| EQ SRT
00148 M01S00139.comcsrt +++|
00149 M01S00140.comcsrt +++|* IDENTIFY PP PROGRAM FORMAT.
00150 M01S00141.comcsrt +++|* CHARACTER 3 " 0,
00151 M01S00142.comcsrt +++|* CHARACTER 4 = 0,
00152 M01S00143.comcsrt +++|* BYTE 3 = 0,
00153 M01S00144.comcsrt +++|* BYTE 4 " 0.
00154 M01S00145.comcsrt +++|* IF CHARACTER 1 IS ALPHA, BYT2 2 " 0.
00155 M01S00146.comcsrt +++|
00156 M01S00147.comcsrt +++| SRT5 SA1 SRTA =77000077770000B
| Line S00148 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00157 M02S00148.251l664 ---| SB2 B0 TYPE = 0
00158 M01S00009.251l664 +++| SB2 B0 TYPE = TEXT
00159 M01S00010.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE
00160 M01S00149.comcsrt +++| BX3 X1*X6 CHECK FOR NAME ;3-CHARACTERS AND BYTE 3=0
00161 M01S00150.comcsrt +++| MX0 12
00162 M01S00151.comcsrt +++| BX1 X0*X6 CHECK FOR NUMERIC FIRST CHARACTER
00163 M01S00152.comcsrt +++| LX0 48
00164 M01S00153.comcsrt +++| BX4 X0*X6 CHECK FOR 3-CHARACTER NAME
00165 M01S00154.comcsrt +++| LX1 12
00166 M01S00155.comcsrt +++| LX0 48
00167 M01S00156.comcsrt +++| NZ X3,SRT7 IF NAME .GT. 3 CHARACTERS OR BYTE 3 .NE. 0
00168 M01S00157.comcsrt +++| ZR X4,SRT7 IF NAME .LT. 3 CHARACTERS
00169 M01S00158.comcsrt +++| SB3 X1-2R0A
00170 M01S00159.comcsrt +++| BX3 X0*X6
00171 M01S00160.comcsrt +++| MX0 6
00172 M01S00161.comcsrt +++| LX0 54
00173 M01S00162.comcsrt +++| BX7 X0*X6
00174 M01S00163.comcsrt +++| ZR X7,SRT7 IF CHARACTER TWO = 0
00175 M01S00164.comcsrt +++| PL B3,SRT6 IF NUMERIC PP NAME
00176 M01S00165.comcsrt +++| ZR X3,SRT7 IF NO LOAD ADDRESS
00177 M01S00166.comcsrt +++| SRT6 MX0 18
00178 M01S00167.comcsrt +++| SB3 X6
00179 M01S00168.comcsrt +++| ZR B3,SRT12 IF ZERO LENGTH PROGRAM
| Line S00169 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00180 M02S00169.251l664 ---| SB2 B1 TYPE = 1
00181 M01S00011.251l664 +++| SB2 B1 TYPE = PP
00182 M01S00012.251l664 +++| ERRNZ PPRT-1 CODE ASSUMES VALUE
00183 M01S00170.comcsrt +++| BX2 X0*X2
00184 M01S00171.comcsrt +++| EQ SRT12 EXIT
00185 M01S00172.comcsrt +++|
00186 M01S00173.comcsrt +++|* CHECK FOR.
00187 M01S00174.comcsrt +++|* REL
00188 M01S00175.comcsrt +++|* ULIB
00189 M01S00176.comcsrt +++|* OPL
00190 M01S00177.comcsrt +++|* OPLC
00191 M01S00178.comcsrt +++|* OPLD
00192 M01S00179.comcsrt +++|* ABS
00193 M01S00180.comcsrt +++|* PPU
00194 M01S00181.comcsrt +++|
| Line S00182 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00195 M02S00182.251l664 ---| SRT7 SB2 3 TYPE = 3
00196 M01S00013.251l664 +++| SRT7 SB2 RLRT TYPE = REL
00197 M01S00183.comcsrt +++| SB3 X1-3400B
00198 M01S00184.comcsrt +++| ZR B3,SRT12 IF RELOCATABLE
| Line S00185 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00199 M02S00185.251l664 ---| SB2 5 TYPE = 5
00200 M01S00014.251l664 +++| SB2 ULRT TYPE = ULIB
00201 M01S00186.comcsrt +++| SB3 X1-7600B
00202 M01S00187.comcsrt +++| ZR B3,SRT12 IF USER LIBRARY
| Line S00188 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00203 M02S00188.251l664 ---| SB2 6 TYPE = 6
00204 M01S00015.251l664 +++| SB2 OPRT TYPE = OPL
00205 M01S00189.comcsrt +++| SB3 X1-7001B
00206 M01S00190.comcsrt +++| ZR B3,SRT12 IF OLD PROGRAM LIBRARY
| Line S00191 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00207 M02S00191.251l664 ---| SB2 7 TYPE = 7
00208 M01S00016.251l664 +++| SB2 OCRT TYPE = OPLC
00209 M01S00192.comcsrt +++| SB3 X1-7002B
00210 M01S00193.comcsrt +++| ZR B3,SRT12 IF OPL COMMON DECK
| Line S00194 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00211 M02S00194.251l664 ---| SB2 8 TYPE = 8
00212 M01S00017.251l664 +++| SB2 ODRT TYPE = OPLD
00213 M01S00195.comcsrt +++| SB3 X1-7000B
00214 M01S00196.comcsrt +++| ZR B3,SRT12 IF OPL DIRECTORY
| Line S00197 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00215 M02S00197.251l664 ---| SB2 14D TYPE = 14
00216 M01S00018.251l664 +++| SB2 CART TYPE = CAP
00217 M01S00198.comcsrt +++| SB3 X1-6000B
00218 M01S00199.comcsrt +++| ZR B3,SRT12 IF CAP
00219 M01S00019.251l664 +++| SB2 PLRT TYPE = PPL
00220 M01S00020.251l664 +++| SB3 X1-6100B
00221 M01S00021.251l664 +++| ZR B3,SRT12 IF 16-BIT PP PROGRAM
| Line S00200 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00222 M02S00200.251l664 ---| SB2 9 TYPE = 9
00223 M01S00022.251l664 +++| SB2 ABRT TYPE = ABS
00224 M01S00201.comcsrt +++| SB3 X1-5400B
00225 M01S00202.comcsrt +++| NZ B3,SRT8 IF NOT *5400* TABLE
00226 M01S00203.comcsrt +++| LX0 12
00227 M01S00204.comcsrt +++| BX0 X0*X6 CHECK OVERLAY LEVELS
00228 M01S00205.comcsrt +++| ZR X0,SRT12 IF 00,00 OVERLAY
00229 M01S00206.comcsrt +++| JP SRT10 CHECK NAME
00230 M01S00207.comcsrt +++|
00231 M01S00208.comcsrt +++| SRT8 SB3 X1-5300B
00232 M01S00209.comcsrt +++| NZ B3,SRT9 IF NOT *ACPM* TYPE
00233 M01S00210.comcsrt +++| SB3 X6+
00234 M01S00211.comcsrt +++| NG B3,SRT12 IF NOT ABS TYPE *ACPM*
00235 M01S00212.comcsrt +++| JP SRT10 CHECK NAME
00236 M01S00213.comcsrt +++|
00237 M01S00214.comcsrt +++| SRT9 SB3 X1-5100B
00238 M01S00215.comcsrt +++| ZR B3,SRT12 IF ABS
| Line S00216 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00239 M02S00216.251l664 ---| SB2 10 TYPE = 10
00240 M01S00023.251l664 +++| SB2 PURT TYPE = PPU
00241 M01S00217.comcsrt +++| SB3 X1-5200B
00242 M01S00218.comcsrt +++| ZR B3,SRT12 IF PPU
00243 M01S00219.comcsrt +++| SB3 X1-5000B
00244 M01S00220.comcsrt +++| NZ B3,SRT11 IF NOT OVERLAY
| Line S00221 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00245 M02S00221.251l664 ---| SRT10 SB2 4
00246 M01S00024.251l664 +++| SRT10 SB2 OVRT TYPE = OVL
00247 M01S00222.comcsrt +++| BX7 X2-X6
00248 M01S00223.comcsrt +++| NZ X7,SRT12 IF NAME .NE. FIRST WORD OF PROGRAM
| Line S00224 Modification History |
M01 (Added by) | comcsrt |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00249 M02S00224.251l664 ---| SRT11 SB2 B0+ TYPE =0
00250 M01S00025.251l664 +++| SRT11 SB2 B0+ TYPE = TEXT
00251 M01S00026.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE
00252 M01S00225.comcsrt +++|
00253 M01S00226.comcsrt +++|* SET NAME AND TYPE.
00254 M01S00227.comcsrt +++|
00255 M01S00228.comcsrt +++| SRT12 MX0 42
00256 M01S00229.comcsrt +++| SX4 1R CHECK FOR TRAILING SPACES
00257 M01S00230.comcsrt +++| BX7 X0*X2
00258 M01S00231.comcsrt +++| LX4 12
00259 M01S00232.comcsrt +++| MX2 6
00260 M01S00233.comcsrt +++| LX2 -42
00261 M01S00234.comcsrt +++| SRT13 LX4 6
00262 M01S00235.comcsrt +++| NG X2,SRT14 IF END OF WORD
00263 M01S00236.comcsrt +++| LX2 6 POSITION MASK
00264 M01S00237.comcsrt +++| BX3 X2*X7
00265 M01S00238.comcsrt +++| ZR X3,SRT13 IF COLON OR NULL CHARACTER
00266 M01S00239.comcsrt +++| BX6 X4-X3
00267 M01S00240.comcsrt +++| NZ X6,SRT14 IF NOT BLANK
00268 M01S00241.comcsrt +++| BX7 -X2*X7 DELETE TRAILING SPACE
00269 M01S00242.comcsrt +++| EQ SRT13 CHECK NEXT CHARACTER
00270 M01S00243.comcsrt +++|
00271 M01S00244.comcsrt +++| SRT14 SX6 B2 TYPE
00272 M01S00245.comcsrt +++| IX6 X6+X7
00273 M01S00246.comcsrt +++| EQ SRT RETURN
00274 M01S00247.comcsrt +++|
00275 M01S00248.comcsrt +++| SRTA CON 77000077770000B
00276 M01S00249.comcsrt +++| SRTB CON 6L.PROC,
00277 M01S00250.comcsrt +++| SPACE 4
00278 M01S00251.comcsrt +++| BASE *
00279 M01S00252.comcsrt +++| QUAL$ IF -DEF,QUAL$
00280 M01S00253.comcsrt +++| QUAL *
00281 M01S00254.comcsrt +++| SRT EQU /COMCSRT/SRT
00282 M01S00255.comcsrt +++| QUAL$ ENDIF
00283 M01S00256.comcsrt +++| ENDX