FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 150

4845 * 4846 * 4847 * *************** 4848 * *INPUT INTEGER* 4849 * *************** 4850 * INPUT ITEM AND ENSURE THAT IT IS AN INTEGER CONSTANT 4851 * GREATER THAN ZERO 4852 * 4853 07645 0 000000 IG00 DAC ** INPUT INTEGER 4854 07646 0 10 01350 JST DN00 INPUT - DNA 4855 07647 0 02 01342 LDA F1 4856 07650 100040 SZE IF F1 = 0, 4857 07651 0 01 07663 JMP IG20 AND NT = 1, 4858 07652 0 02 00054 LDA NT AND IM = INT, 4859 07653 101040 SNZ AND TID L2**15, 4860 07654 0 01 07663 JMP IG20 GO TO IG10 4861 07655 0 02 00706 LDA IM ELSE, GO TO IG20 4862 07656 0 07 00735 SUB K101 4863 07657 100040 SZE 4864 07660 0 01 07663 JMP IG20 4865 07661 0 02 00774 LDA TID 4866 07662 -0 01 07645 JMP* IG00 4867 07663 0 10 02615 IG20 JST ER00 ERROR 4868 07664 144716 BCI 1,IN INTEGER REQUIRED 4869 EJCT