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

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

5387 11434 0 00 00000 C3T0 PZE 0 5388 11435 0 00 00000 C3T1 PZE 0 5389 11436 0 00 00000 C3T2 PZE 0 5390 11437 0 00 00000 C3T3 PZE 0 5391 11440 0 00 00000 C3T4 PZE 0 5392 11441 0 00 00000 C3T5 PZE 0 5393 011434 T0C3 EQU C3T0 5394 011435 T1C3 EQU C3T1 5395 011436 T2C3 EQU C3T2 5396 011437 T3C3 EQU C3T3 5397 011440 T4C3 EQU C3T4 5398 11442 0 02 00646 C3 LDA E0 5399 11443 0 04 00660 STA EBAR EBAR=E(0) = END OF EQUIVALENCE TABLE 5400 11444 0 02 00113 LDA L0 5401 11445 0 04 00644 STA E E=L(0) = START OF EUUIVALENCE TABLE 5402 11446 0 02 00756 LDA CRET 5403 11447 0 04 00607 STA TC 5404 11450 0 02 00644 C3B LDA E 5405 11451 0 04 00645 STA EP E-PRIME = E 5406 11452 140040 CRA 5407 11453 0 04 00664 STA F I = 0 5408 11454 0 02 00720 LDA K102 T4 = STR-ABS 5409 11455 0 04 11440 STA C3T4 5410 11456 0 10 01256 JST CH00 INPUT CHARACTER 5411 11457 0 02 00702 LDA K17 5412 11460 0 10 02547 JST TS00 (TEST 5413 11461 0 10 10761 C3D JST IL00 INPUT LIST ELEMENT 5414 11462 0 10 11751 JST SAF 5415 11463 0 02 00604 LDA S1 5416 11464 0 07 00630 SUB AF TL = S1-AF 5417 11465 0 04 11435 STA C3T1 5418 11466 0 02 00040 LDA A T2 = A 5419 11467 0 04 11436 STA C3T2 5420 11470 0 02 00664 C3F LDA F IF I=0, GO TO C3P 5421 11471 101040 SNZ 5422 11472 0 01 11607 JMP C3P 5423 11473 0 02 00664 C3G LDA F ELSE, 5424 11474 0 07 00040 SUB A 5425 11475 101040 SNZ IF A = I, GO TO C3N 5426 11476 0 01 11556 JMP C3N 5427 11477 0 02 00631 C3H LDA AT 5428 11500 0 07 00722 SUB K104 ELSE, 5429 11501 101040 SNZ IF AT = COM, GO TO C3O 5430 11502 0 01 11563 JMP C3O 5431 11503 0 02 11435 C3H2 LDA T1C3 5432 11504 0 06 00630 ADD AF 5433 11505 0 04 11434 STA T0C3 T(0) = AF +T (1) 5434 11506 0 02 11440 LDA T4C3 5435 11507 0 07 00722 SUB K104 IF T(4) = 0, GO T0 C3K 5436 11510 100040 SZE