DAP-16M2

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

1733 * 1734 * XCK : SYMBOL TABLE CHECK ROUTINE 1735 * 1736 * 1737 * CALLING SEQUENCE: 1738 * JST XCK 1739 * ......RETURN IF SYMBOL TABLE OVERFLOW 1740 * ......RETURN IF NO OVERFLOW - INDEX 1741 * POINTS TO FIRST WORD OF NEW ENTRY 1742 * 1743 * 1744 02444 0 000000 XCK DAC ** SYMBOL TABLE CHECK 1745 02445 0 02 00471 LDA BSYM CURRENT BASE OF TABLE 1746 02446 0 07 00743 SUB C3 ADD AN NEW ENTRY 1747 02447 0 04 00471 STA BSYM STORE NEW BASE ADDRESS 1748 02450 0 04 00000 STA 0 MAKE INDEX POINT TO NEW ENTRY 1749 02451 0 02 00470 LDA CSYM FETCH NEGATED SYMBOL COUNT 1750 02452 0 07 00700 SUB ONE UPDATE THE COUNT 1751 02453 0 04 00470 STA CSYM REPLACE THE COUNT 1752 02454 0 04 00467 STA SYMC SET ENTRY COUNTER 1753 02455 0415 77 ALS 1 MULTIPLY BY TWO 1754 02456 0 06 00470 ADD CSYM *3 1755 02457 0 06 00434 ADD D$SZ ADD IN MAX TABLE SIZE 1756 02460 100400 SPL SKIP IF NO OVERFLOW 1757 02461 0 01 02464 JMP XLV SYMBOL TABLE OVERFLOW 1758 02462 0 12 02444 IRS XCK INCREMENT RETURN ADDRESS 1759 02463 -0 01 02444 JMP* XCK TAKE NO OVERFLOW EXIT 1760 02464 -0 10 00567 XLV JST* XER FLAG AN 'X' ERROR 1761 02465 0 10 02512 JST ISCP RESTORE TABLE BASE TO ITS 1762 02466 0 04 00471 STA BSYM LAST NONOVERFLOW VALUE 1763 02467 0 12 00470 IRS CSYM DECREMENT SYMBOL TABLE ENTRY COUNT 1764 02470 -0 01 02444 JMP* XCK TAKE OVERFLOW EXIT 1765 * 1766 * 1767 EJCT *************************************************************