FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 54

1648 * 1649 * 1650 * ************** 1651 * *INTEGER TEST* 1652 * ************** 1653 * 1654 02433 0 000000 IT00 DAC ** INTEGER TEST 1655 02434 0 02 00706 LDA IM 1656 02435 0 07 00735 SUB K101 IF IM = 1, GO TO- 1657 02436 101040 SNZ ERROR ROUTINE, ELSE 1658 02437 -0 01 02433 JMP* IT00 RETURN 1659 02440 0 10 02615 JST ER00 TO ERROR TEST 1660 02441 144724 BCI 1,IT ITEM NOT AN INTEGER 1661 EJCT