FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 52

1620 * 1621 * 1622 * ********************* 1623 * *NON SUBPROGRAM TEST* 1624 * ********************* 1625 * 1626 02415 0 000000 NS00 DAC ** NON SUBPROGRAM TEST 1627 02416 0 02 00710 LDA IU 1628 02417 0 07 00735 SUB K101 IF IU = 1, GO TO- 1629 02420 100040 SZE ERROR TEST 1630 02421 -0 01 02415 JMP* NS00 RETURN 1631 02422 0 10 02615 JST ER00 ERROR TEST 1632 02423 147323 BCI 1,NS SUBPROGRAM NAME NOT ALLOWED 1633 EJCT