C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 109

5237 11247 0 07 00702 SUB K17 5238 11250 100040 SZE 5239 11251 0 01 11235 JMP B3D 5240 11252 0 01 11155 JMP B3A 5241 * 5242 * 5243 * ******** 5244 * *COMMON* 5245 * ******** 5246 * INPUT BLOCK NAMES AND LINK THEM WITH THE 5247 * FOLLOWING VAR/ARRAY NAMES, BLOCK NAMES 5248 * ARE LINKED TOGETHER THROUGH THEIR GENERAL FIELDS 5249 11253 0 02 02731 B4 LDA K81 5250 11254 0 04 01475 STA ID 5251 11255 0 04 01476 STA ID+1 5252 11256 0 04 01477 STA ID+2 5253 11257 0 02 11333 LDA B4Z9 SET SWITCH IN INPUT DIMENSION 5254 11260 0 04 04600 STA A9T2 5255 11261 0 10 01256 JST CH00 INPUT CHAR 5256 11262 0 07 00674 SUB K9 IF NOT SLASH 5257 11263 100040 SZE GO TO 5258 11264 0 01 11331 JMP B4E 5259 11265 0 10 01521 B40 JST DN00 INPUT DNA 5260 11266 0 02 00722 LDA K104 SLASH TEST 5261 11267 0 10 02547 JST TS00 5262 11270 0400 40 B4B LRL 32 5263 11271 0 02 00717 LDA K101 (A) = SUB, (B) = 0 5264 11272 0 10 04252 JST AA00 ASSIGN SPECIAL 5265 11273 0 02 00056 LDA CFL 5266 11274 101040 SNZ 5267 11275 0 02 00040 LDA A 5268 11276 0 04 00056 STA CFL 5269 11277 0 02 00040 LDA A 5270 11300 0 04 00664 STA F 5271 11301 0 10 03770 JST FL00 FETCH LINK 5272 11302 100040 SZE 5273 11303 0 01 11320 JMP B4D 5274 11304 0 02 00056 LDA CFL 5275 11305 0 04 00000 STA 0 5276 11306 1 02 15401 LDA DP+1,1 GF(CFL) 5277 11307 0 13 00040 IMA A 5278 11310 0 04 00000 STA 0 INDEX = A 5279 11311 0 13 00040 IMA A 5280 11312 1 04 15401 STA DP+1,1 GF(A) = GF(CFL) 5281 11313 0 02 00056 LDA CFL 5282 11314 0 04 00000 STA 0 INDEX = CFL 5283 11315 0 02 00040 LDA A 5284 11316 0 06 00740 ADD K122 ='040000 5285 11317 1 04 15401 STA DP+1,1 GF(CFL) = A 5286 11320 0 10 02373 B4D JST NA00 INPUT NAME