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

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

4301 07463 0 04 01475 STA ID 4302 07464 101040 SNZ IF ZERO, GO TO EX60 4303 07465 0 01 07500 JMP EX60 4304 07466 0 02 10032 LDA K 4305 07467 0 04 00000 STA 0 4306 07470 1 02 00633 LDA D0,1 D(K) = 0 4307 07471 101040 SNZ 4308 07472 0 01 07601 JMP EX67 YES - (DUMMY DIMENSION) 4309 07473 000201 IAB 4310 07474 0 02 01475 LDA ID 4311 07475 0 10 02703 JST IM00 4312 07476 0 06 07033 ADD T2EX 4313 07477 0 04 07033 STA T2EX T2 = T2+ID*D(K) 4314 07500 0 02 07040 EX60 LDA T9EX 4315 07501 0 04 00633 STA D0 RESET D(0) 4316 07502 0 02 10032 LDA K 4317 07503 0 04 00000 STA 0 4318 07504 1 02 00614 LDA X+2,1 X(K+2) = 0 4319 07505 101040 SNZ 4320 07506 0 01 07517 JMP EX62 YES - FINISHED 4321 07507 0 02 00752 LDA K134 =17 4322 07510 0 10 02547 JST TS00 COMMA TEST 4323 07511 1 02 00634 LDA D0+1,1 4324 07512 000201 IAB 4325 07513 1 02 00633 LDA D0,1 4326 07514 0 10 02703 JST IM00 4327 07515 1 04 00634 STA D0+1,1 D(K+1) = D(K+1)*D(K) 4328 07516 0 01 07407 JMP EX55 4329 07517 0 10 02676 EX62 JST STXI 4330 07520 1 02 15377 LDA DP-1,1 DOES O(--2) = * 4331 07521 140100 SSP 4332 07522 0404 67 LGR 9 4333 07523 0 11 00721 CAS K103 4334 07524 0 01 07526 JMP *+2 4335 07525 0 01 07575 JMP EX66 YES. 4336 07526 101040 SNZ NO. 4337 07527 0 01 07562 JMP EX64 O(I-2) = 0 - YES 4338 07530 0 11 00751 CAS K132 DOES O(I-2) = A 4339 07531 0 01 07537 JMP EX63 4340 07532 0 01 07534 JMP *+2 YES 4341 07533 0 01 07537 JMP EX63 4342 07534 0 02 07033 LDA T2EX IS T2 = 0 4343 07535 101040 SNZ 4344 07536 0 01 07567 JMP EX65 YES (DUMMY ARRAY (1,1,1)) 4345 07537 0 02 00717 EX63 LDA K101 4346 07540 1 04 15377 STA DP-1,1 01(I-2) = 1 4347 07541 0 02 07033 LDA T2EX A(I) = T2 4348 07542 1 04 15400 STA DP,1 4349 07543 0 02 00753 LDA K137 0='X' ('24), I=2 4350 07544 1 04 15401 STA DP+1,1