FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 194

6578 12602 1 02 17401 LDA DP+1,1 C1(A) 6579 12603 0 04 12245 STA T9OM T(9)=O1(A) 6580 12604 0 01 12526 JMP OM78 6581 12605 0 02 12243 OMHW LDA T2OM 6582 12606 0 04 00025 STA AF 6583 12607 0 02 00741 LDA K105 6584 12610 0 04 00026 STA AT 6585 12611 140040 CRA 6586 12612 0 04 00625 STA A 6587 12613 0 10 13072 JST OR00 6588 12614 -0 01 12247 JMP* OM00 6589 * 6590 12615 130260 OM90 OCT 130260 '00' 6591 12616 141644 OM92 OCT 141644 'C$' 6592 12617 152322 OM93 OCT 152322 'TR' 6593 12620 000021 OM94 OCT 000021 'C' CODE 6594 12621 017777 OM95 OCT 017777 (MASK) 6595 12622 147244 OM96 BCI 1,N$ 6596 * 6597 12623 0 02 00706 OMA1 LDA IM CHECK FOR IM=LOGICAL 6598 12624 0 11 00737 CAS K103 6599 12625 0 01 12355 JMP OM30 6600 12626 0 01 12722 JMP OMC1 IM=LOGICAL 6601 12627 0 05 00735 ERA K101 6602 12630 100040 SZE 6603 12631 0 01 12355 JMP OM30 6604 * 6605 12632 0 02 12241 LDA T0OM CHECK FOR T(0) = '+' 6606 12633 0 11 00737 CAS K103 =3 6607 12634 0 01 12636 JMP *+2 6608 12635 0 01 12645 JMP OMA4 T(0)= '*' 6609 12636 0 11 12620 CAS OM94 T(0)='C' 6610 12637 0 01 12641 JMP *+2 6611 12640 0 01 12662 JMP OMA6 OUTPUT 'TCA' 6612 12641 0 11 00735 CAS K101 6613 12642 0 01 12656 JMP OMA5 6614 12643 0 02 13025 LDA OMI4 =ADD INSTR. 6615 12644 0 01 12701 JMP OMB1 6616 12645 0 02 12243 OMA4 LDA T2OM VALUE OF A 6617 12646 0 07 00746 SUB K126 ='12 KNOWN LOCATION OF A FOR 2 6618 12647 100040 SZE SKIP IF MULTIPLIER IS A CONSTANT OF 2 6619 12650 0 01 12355 JMP OM30 COUPLE TO THE MULTIPLY SUBROUTINE 6620 12651 0 04 00625 STA A SET A AND AF TO ZERO (FOR LISTING FLAGS) 6621 12652 0 04 00025 STA AF 6622 12653 0 02 13053 LDA OML2 ALS 1 INSTRUCTION 6623 12654 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 6624 12655 -0 01 12247 JMP* OM00 EXIT OUTPUT ITEM 6625 12656 0 11 00736 OMA5 CAS K102 CHECK FOR T(0) = '-' 6626 12657 0 01 12670 JMP OMA7 6627 12660 0 02 13027 LDA OMI6 =SUB INSTR.