DAP-16M2

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

1768 * 1769 * ZSCN: RECOVER NULL SYMBOL TABLE ENTRY 1770 * 1771 * 1772 * CALLING SEQUENCE 1773 * LDA FREE FREE COUNT IN A ON ENTRY 1774 * JST ZSCN 1775 * .......... 1776 * .......... 1777 * ......RETURN INDEX POINTS TO FREE ENTRY ON RETURN 1778 * 1779 * 1780 02471 0 000000 ZSCN DAC ** RECOVER NULL SYMBOL TABLE ENTRY 1781 02472 0 07 00700 SUB ONE DECREMENT FREE COUNT 1782 02473 0 04 00462 STA FREE SAVE UPDATED FREE COUNT 1783 02474 0 10 02505 JST ISCN SET UP FOR TABLE SCAN 1784 02475 0 12 02471 IRS ZSCN INCREMENT RETURN ADDRESS 1785 02476 0 12 02471 IRS ZSCN INCREMENT RETURN ADDRESS 1786 02477 1 02 00000 ZLOP LDA 0,1 FETCH FIRST WORD OF CURRENT ENTRY 1787 02500 101040 SNZ SKIP IF NOT NULL 1788 02501 -0 01 02471 JMP* ZSCN NULL - EXIT 1789 02502 0 10 02512 JST ISCP INCREMENT SYMBOL TABLE POINTER 1790 02503 0 12 00467 IRS SYMC INCREMENT ENTRY COUNTER 1791 02504 0 01 02477 JMP ZLOP GO CHECK NEXT NEXT ENTRY 1792 * 1793 * 1794 EJCT *************************************************************