FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 167

5455 10632 0 10 10717 C4I JST SAF 5456 10633 0 02 00735 LDA K101 5457 10634 000201 IAB (B) = REL 5458 10635 0 02 10557 LDA C4T0 (A) = T0-AF 5459 10636 0 07 00025 SUB AF 5460 10637 0 10 03571 JST AF00 DEFINE AFT 5461 10640 0 10 03426 JST FL00 FETCH LINK 5462 10641 100040 SZE IF (A) NOT ZERO, 5463 10642 0 01 10632 JMP C4I NOT END OF EQUIVALENCE GROUP 5464 10643 0 01 10562 JMP C4C CHECK NEXT ITEM IN ASSIGNMENT TABLE 5465 * 5466 10644 0 02 00044 C4L2 LDA FLT1 = LINK LOCATION TO COMMON BLOCK NAME 5467 10645 0 04 10560 STA C4T1 5468 10646 0 02 00625 C4L3 LDA A 5469 10647 0 04 00626 STA I SAVE A FOR LATER MODIFICATION 5470 10650 0 10 03426 JST FL00 FETCH LINK 5471 10651 101040 SNZ 5472 10652 0 01 10677 JMP C4M END OF COMMON GROUP 5473 10653 0 35 00626 LDX I SET INDEX TO POINT TO CURRENT ITEM IN 5474 * COMMON GROUP. 5475 10654 1 02 17400 LDA DP,1 SET CL FIELD TO POINT AT COMMON BLOCK 5476 * NAME. 5477 10655 0 03 00674 ANA K119 (='177000) 5478 10656 0 06 10560 ADD C4T1 (= LINK LOCATION OF COMMON BLOCK NAME) 5479 10657 1 04 17400 STA DP,1 5480 10660 0 01 10646 JMP C4L3 PROCESS NEXT ITEM IN COMMON BLOCK 5481 * 5482 10661 0 02 00641 C4 LDA CFL LOC. OF FIRST (BLANK) COMMON BLOCK 5483 10662 0 04 00045 STA F 5484 10663 0 04 00625 C4L6 STA A 5485 10664 140040 CRA 5486 10665 0 04 10557 STA C4T0 5487 10666 0 10 03426 C4L JST FL00 FETCH LINK 5488 10667 101040 SNZ 5489 10670 0 01 10644 JMP C4L2 NO MORE ITEMS IN COMMON BLOCK 5490 10671 0 02 00030 LDA D0 ELSE, IF T0 .LT. D0+AF, 5491 10672 0 06 00025 ADD AF 5492 10673 0 11 10557 CAS C4T0 T0 = D0 + AF 5493 10674 0 04 10557 STA C4T0 5494 10675 101000 NOP 5495 10676 0 01 10666 JMP C4L GO TO C4L 5496 10677 0 02 00025 C4M LDA AF 5497 10700 0 04 00045 STA F I=AF 5498 10701 0 02 10557 LDA C4T0 (A) = T0 5499 10702 0 10 03477 JST DA00 DEFINE AF 5500 *....OUTPUT COMMON BLOCK NAME AND SIZE TO LOADER 5501 10703 0 02 00025 LDA AF LENGTH OF COMMON BLOCK 5502 10704 101040 SNZ 5503 10705 0 01 10711 JMP *+4 DON'T GENERATE BLOCK OF LENGTH ZERO 5504 10706 0 03 00670 ANA K111 ='37777