Previous File Previous Page Single Page Next Page Next File

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 36

1700 * 1701 * 1702 02764 0 000000 CIB DAC ** COMPARE IBUF TO A CONSTANT 1703 02765 0 10 03007 JST SAV SAVE INDEX 1704 02766 -0 02 02764 LDA* CIB +DDR OF CON+3,0 1705 02767 0 04 03006 STA CIBZ 1706 02770 140040 CRA 1707 02771 0 07 00721 SUB K103 XR=-3 1708 02772 0 04 00000 STA XR 1709 02773 1 02 01504 CIBB LDA IBUF+3,1 1710 02774 -0 07 03006 SUB* CIBZ 1711 02775 100040 SZE 1712 02776 0 01 03004 JMP CIBD 1713 02777 0 12 00000 IRS XR 1714 03000 0 01 02773 JMP CIBB 1715 03001 0 12 02764 CIBC IRS CIB 1716 03002 0 10 03016 JST RST RESTORE INDEX 1717 03003 -0 01 02764 JMP* CIB 1718 03004 0 12 02764 CIBD IRS CIB 1719 03005 0 01 03001 JMP CIBC 1720 03006 0 000000 CIBZ DAC ** 1721 * 1722 * 1723 * 1724 * 1725 03007 0 000000 SAV DAC ** SAVE INDEX REGISTER 1726 03010 0 04 03027 STA SAVY STACKED IN PUSH DOWN LIST 1727 03011 0 02 00000 LDA XR 1728 03012 -0 04 03030 STA* SAV9 1729 03013 0 12 03030 IRS SAV9 1730 03014 0 02 03027 LDA SAVY 1731 03015 -0 01 03007 JMP* SAV 1732 03016 0 000000 RST DAC ** RESTORE INDEX REGISTER 1733 03017 0 04 03027 STA SAVY 1734 03020 0 02 03030 LDA SAV9 UNSTACK PUSH DOWN LIST 1735 03021 0 07 00717 SUB K101 1736 03022 0 04 03030 STA SAV9 1737 03023 -0 02 03030 LDA* SAV9 1738 03024 0 04 00000 STA XR 1739 03025 0 02 03027 LDA SAVY 1740 03026 -0 01 03016 JMP* RST 1741 03027 0 00 00000 SAVY PZE 0 1742 03030 0 003031 SAV9 DAC SAVX IS INITIATED BY A092 1743 03031 SAVX BSS 20 1744 * 1745 * 1746 03055 0 000000 PACK DAC ** PLACE CHARACTER IN A 1747 03056 0 04 03113 STA PAK7 1748 03057 0 02 00575 LDA NTID INTO ID - UPDATE 3 WORDS OF 1749 03060 101040 PAK1 SNZ
Previous File Previous Page Single Page Next Page Next File