DAP-16M2

* O100-01-H101 (DPM2UP) DRAWING NO. 41286623-001-02 PAGE 51

1795 * 1796 * ISCN: INITIALIZE SYMBOL TABLE SCAN 1797 * 1798 * 1799 * CALLING SEQUENCE: 1800 * JST ISCN 1801 * ......RETURN 1802 * 1803 * RESULTS: 1804 * INDEX=ADDRESS OF FIRST ENTRY IN SYMBOL TABLE 1805 * SYMC=NEGATED COUNT OF ENTRIES IN TABLE 1806 * 1807 02505 0 000000 ISCN DAC ** INITIALIZE SYMBOL TABLE SCAN 1808 02506 0 35 00471 LDX BSYM SET INDEX TO POINT TO BASE OF TABLE 1809 02507 0 02 00470 LDA CSYM FETCH SYMBOL TABLE COUNT 1810 02510 0 04 00467 STA SYMC ESTABLISH SCAN COUNTER 1811 02511 -0 01 02505 JMP* ISCN EXIT 1812 * 1813 * 1814 * ISCP: INCREMENT SYMBOL TABLE SCAN POINTER 1815 * 1816 * 1817 * CALLING SEQUENCE: 1818 * JST ISCP 1819 * ......RETURN 1820 * 1821 * RESULTS: 1822 * INDEX=INDEX+3 1823 * 1824 02512 0 000000 ISCP DAC ** INCREMENT SYMBOL TABLE SCAN POINTER 1825 02513 0 02 00000 LDA 0 FETCH TABLE POINTER 1826 02514 0 06 00743 ADD C3 ADVANCE IT TO POINT TO NEXT ENTRY 1827 02515 0 04 00000 STA 0 REPLACE THE POINTER 1828 02516 -0 01 02512 JMP* ISCP RETURN TO CALLER 1829 * 1830 * 1831 EJCT *************************************************************