FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 56

1684 * 1685 * 1686 * 1687 02461 177761 K120 DEC -15 1688 02462 0 000000 IM00 DAC ** 1689 02463 0 04 02477 STA T1IM MULTIPLY A BY B 1690 02464 0 02 02461 LDA K120 =-15 1691 02465 0 04 02500 STA T2IM 1692 02466 140040 CRA 1693 02467 140200 RCB C BIT = 0 1694 02470 0400 77 IM10 LRL 1 LOW BIT OF B INTO C 1695 02471 100001 SRC SKIP IF B = 0 1696 02472 0 06 02477 ADD T1IM 1697 02473 0 12 02500 IRS T2IM 1698 02474 0 01 02470 JMP IM10 1699 02475 0410 62 LLL 14 1700 02476 -0 01 02462 JMP* IM00 RETURN, RESULT IN A 1701 02477 0 00 00000 T1IM PZE 0 1702 02500 0 00 00000 T2IM PZE 0 1703 EJCT