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

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

4251 07401 0 02 00633 EX54 LDA D0 IF D0 = 1, GO TO EX56 4252 07402 0 07 00717 SUB K101 4253 07403 101040 SNZ 4254 07404 0 01 07427 JMP EX56 4255 07405 0 10 10016 JST EX99 DATA POOL CHECK 4256 07406 0 01 07410 JMP *+2 4257 07407 0 12 10032 EX55 IRS K K = K+1 4258 07410 0 02 10032 LDA K 4259 07411 0 04 00000 STA XR 4260 07412 1 02 00612 LDA X,1 4261 07413 0 04 07036 STA T6EX T6 = X (K) 4262 07414 0 10 02676 JST STXI 4263 07415 0 02 07036 LDA T6EX 4264 07416 1 04 15400 STA DP,1 O(I) = * 4265 07417 0 02 00721 LDA K103 I (I) = T3+13 4266 07420 0414 67 LGL 9 T3 = T3+16 4267 07421 0 06 07034 ADD T3EX A (A) = T6 4268 07422 0 06 00747 ADD K129 =13 4269 07423 1 04 15401 STA DP+1,1 4270 07424 0 03 00735 ANA K118 4271 07425 0 06 00721 ADD K103 4272 07426 0 04 07034 STA T3EX T3 = A(A) 4273 07427 0 10 02432 EX56 JST IV00 INPUT INTEGER VARIABLE 4274 07430 0 10 10016 JST EX99 DATA POOL CHECK 4275 07431 0 10 02676 JST STXI 4276 07432 0 02 00040 LDA A A(I) = A 4277 07433 1 04 15400 STA DP,1 4278 07434 0 02 00573 LDA NT 4279 07435 100040 SZE 4280 07436 0 01 07614 JMP EX68 CONSTANT ENCOUNTERED 4281 07437 0 10 01251 JST UC00 UNINPUT COLUMN 4282 07440 0 10 01521 JST DN00 INPUT DO NOT ASSIGN 4283 07441 101040 SNZ 4284 07442 0 01 07450 JMP EX57 IM = 0 4285 07443 0 07 00717 SUB K101 4286 07444 101040 SNZ 4287 07445 0 01 07450 JMP EX57 IM * INTEGEH 4288 07446 0 10 03116 JST ER00 4289 07447 151725 BCI 1,SU SUBSCRIPT INCREMENTER NOT A CONSTANT 4290 07450 0 10 02676 EX57 JST STXI 4291 07451 0 02 00717 LDA K101 4292 07452 0414 67 LGL 9 4293 07453 0 06 07034 ADD T3EX 4294 07454 0 06 00745 ADD K127 4295 07455 1 04 15401 STA DP+1,1 O(1) = +, I(I) = T3+11 4296 07456 0 10 10016 JST EX99 DATA POOL CHECK 4297 07457 0 02 07040 EX58 LDA T9EX 4298 07460 0 04 00633 STA D0 RESET D(0) 4299 07461 0 02 01475 LDA ID SUBSCRIPT SIZE 4300 07462 0 07 00717 SUB K101 ID = ID-1