Previous File Previous Page Single Page Next Page Next File

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

5437 11511 0 01 11521 JMP C3K 5438 11512 0 02 11437 LDA T3C3 5439 11513 0 07 11434 SUB T0C3 ELSE, 5440 11514 0 04 11434 STA T0C3 T(0) = T(3)-T(0) 5441 11515 101400 SMI 5442 11516 0 01 11521 JMP C3K 5443 11517 0 10 03116 JST ER00 IF T(0)<0, 5444 11520 144703 BCI 1,IC 5445 11521 0 02 11440 C3K LDA C3T4 IMPOSSIBLE COMMON EQUIVALENCING 5446 11522 000201 IAB 5447 11523 0 02 11434 LDA T0C3 AT (A) = COM 5448 11524 0415 76 ALS 2 5449 11525 0404 76 LGR 2 5450 11526 0 10 04214 JST AF00 5451 11527 0 10 03770 JST FL00 DEFINE AF 5452 11530 0 10 11751 JST SAF FETCH LINK 5453 11531 0 02 00040 LDA A 5454 11532 0 07 11436 SUB C3T2 5455 11533 100040 SZE IF A .NE. T (2), 5456 11534 0 01 11473 JMP C3G GO TO C3G (5) 5457 * 5458 11535 0 10 10624 JST EL00 EXCHANGE CL(A) == CL(I) 5459 11536 0 02 00607 C3M LDA TC EXCHANGE LINKS (CL(A) WITH CL(F) ) 5460 11537 0 07 00752 SUB K134 IF TC = , 5461 11540 101040 SNZ 5462 11541 0 01 11461 JMP C3D ELSE, 5463 11542 0 10 02555 JST IP00 )-INPUT OPERATOR 5464 11543 0 02 00607 LDA TC 5465 11544 0 07 00752 SUB K134 IF TC = , OR C/R 5466 11545 101040 SNZ GO TO C3B (1) 5467 11546 0 01 11450 JMP C3B 5468 11547 0 02 00607 LDA TC 5469 11550 0 07 00756 SUB CRET 5470 11551 101040 SNZ 5471 11552 0 01 11450 JMP C3B ELSE, 5472 11553 0 10 03116 JST ER00 5473 11554 142703 BCI 1,EC EOUIVALENCE GROUP NOT FOLLOWED BY , OR CR 5474 11555 0 01 11450 JMP C3B 5475 11556 0 02 11435 C3N LDA T1C3 IF T1 = 0, GO TO C3M 5476 11557 101040 SNZ 5477 11560 0 01 11536 JMP C3M 5478 11561 0 10 03116 C3N5 JST ER00 ERROR IMPOSSIBLE GROUP 5479 11562 144705 BCI 1,IE IMPOSSIBLE EQUIVALENCE GROUPING 5480 11563 0 02 00604 C3O LDA S1 5481 11564 0 06 00630 ADD AF 5482 11565 0 04 11437 STA T3C3 5483 11566 0 02 00722 LDA K104 =4 5484 11567 0 11 11440 CAS T4C3 5485 11570 0 01 11572 JMP *+2 5486 11571 0 01 11561 JMP C3N5
Previous File Previous Page Single Page Next Page Next File