FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 39

1424 * 1425 * 1426 * *************** 1427 * *INPUT OPERAND* 1428 * *************** 1429 * EXIT WITH ITEM MODE IN A (TC SET TO . IF NO 1430 * OPERAND) 1431 * 1432 02232 0 000000 OP00 DAC ** INPUT OPERAND 1433 02233 0 10 02224 JST II00 INPUT ITEM 1434 02234 100040 SZE IF IM = 0, SKIP 1435 02235 -0 01 02232 JMP* OP00 ELSE (A) = IM, RETURN 1436 02236 0 02 00661 LDA K10 TC = . 1437 02237 0 04 00067 STA TC (A) = 0 1438 02240 140040 CRA 1439 02241 -0 01 02232 JMP* OP00 RETURN 1440 EJCT