FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 25

0866 * 0867 * 0868 * ************* 0869 * *INPUT DIGIT* 0870 * ************* 0871 * A IS ZERO IF DIGIT 0872 * 0873 01240 0 000000 ID00 DAC ** INPUT DIGIT 0874 01241 0 10 01157 JST CH00 INPUT A CHAR 0875 01242 0 11 01237 CAS K772 ='272 CONSIDER 1 THRU : AS DIGITS 0876 01243 -0 01 01240 JMP* ID00 (A) = TC 0877 01244 0 01 01251 JMP ID10 ELSE, (A) = 0 0878 01245 0 11 00665 CAS K60 RETURN 0879 01246 101000 NOP 0880 01247 0 01 01251 JMP *+2 0881 01250 -0 01 01240 JMP* ID00 0882 01251 140040 ID10 CRA 0883 01252 -0 01 01240 JMP* ID00 0884 EJCT