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

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

5537 11645 0 10 11751 C4F JST SAF 5538 11646 0 11 11612 CAS C4T0 5539 11647 0 04 11612 STA C4T0 5540 11650 101000 NOP 5541 11651 0 02 00633 LDA D0 5542 11652 0 07 00630 SUB AF (A) = D(0) - AF 5543 11653 0 11 11613 CAS C4T1 5544 11654 0 04 11613 STA C4T1 5545 11655 101000 NOP 5546 11656 0 10 03770 JST FL00 FETCH LINK ( (A)=A - F ) 5547 11657 100040 SZE 5548 11660 0 01 11645 JMP C4F GO TO C4F 5549 11661 0 02 00060 LDA RPL 5550 11662 0 06 11612 ADD C4T0 RPL * RPL + T0 + TL 5551 11663 0 04 11612 STA C4T0 5552 11664 0 06 11613 ADD C4T1 TO = RPL-T1 5553 11665 0 04 00060 STA RPL 5554 11666 0 10 11751 C4I JST SAF 5555 11667 0 02 00717 LDA K101 5556 11670 000201 IAB (B) = REL 5557 11671 0 02 11612 LDA C4T0 (A) = TO-AF 5558 11672 0 07 00630 SUB AF 5559 11673 0 10 04214 JST AF00 DEFIME AFT 5560 11674 0 10 03770 JST FL00 FETCH LINK 5561 11675 100040 SZE IF (A) NOT ZERO, 5562 11676 0 01 11666 JMP C4I NOT END OF EQUIVALENCE GROUP 5563 11677 0 01 11615 JMP C4C CHECK NEXT ITEM IN ASSIGNMENI TABLE 5564 * 5565 11700 0 02 00667 C4L2 LDA FLT1 = LINK LOCATION TO COMMON BLOCK NAME 5566 11701 0 04 11613 STA C4T1 5567 11702 0 02 00040 C4L3 LDA A 5568 11703 0 04 00041 STA I SAVE A FOR LATER MODIFICATION 5569 11704 0 10 03770 JST FL00 FETCH LINK 5570 11705 101040 SNZ 5571 11706 0 01 11733 JMP C4M END OF COMMON GROUP 5572 11707 0 10 02676 JST STXI SET INDEX TO POINT TO CURRENT ITEM IN 5573 * COMMON GROUP. 5574 11710 1 02 15400 LDA DP,1 SET CL FIELD TO POINT AT COMMON BLOCK 5575 * NAME. 5576 11711 0 03 00736 ANA K119 ( = '177000) 5577 11712 0 06 11613 ADD C4T1 (= LINK LOCATION OF COMMON BLOCK NAME) 5578 11713 1 04 15400 STA DP,1 5579 11714 0 01 11702 JMP C4L3 PROCESS NEXT ITEM IN COMMON BLOCK 5580 * 5581 11715 0 02 00056 C4 LDA CFL LOC, OF FIRST (BLANK) COMMON BLOCK 5582 11716 0 04 00664 STA F 5583 11717 0 04 00040 C4L6 STA A 5584 11720 140040 CRA 5585 11721 0 04 11612 STA C4T0 5586 11722 0 10 03770 C4L JST FL00 FETCH LINK