FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 60

1739 * 1740 * 1741 * 1742 * 1743 02533 0 000000 CIB DAC ** COMPARE IBUF TO A CONSTANT 1744 02534 0 15 02554 STX CIXS SAVE INDEX 1745 02535 -0 02 02533 LDA* CIB +DDR OF CON+3,0 1746 02536 0 04 02553 STA CIBZ 1747 02537 0 35 00756 LDX IA90 1748 02540 1 02 01336 CIBB LDA IBUF+3,1 1749 02541 -0 07 02553 SUB* CIBZ 1750 02542 100040 SZE 1751 02543 0 01 02551 JMP CIBD 1752 02544 0 12 00000 IRS 0 1753 02545 0 01 02540 JMP CIBB 1754 02546 0 12 02533 CIBC IRS CIB 1755 02547 0 35 02554 LDX CIXS RESTORE INDEX 1756 02550 -0 01 02533 JMP* CIB 1757 02551 0 12 02533 CIBD IRS CIB 1758 02552 0 01 02546 JMP CIBC 1759 02553 0 000000 CIBZ DAC ** 1760 02554 CIXS BSS 1 TEMP STORAGE FOR INDEX 1761 EJCT