DAP-16M2

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

1832 * 1833 * DUS : ENTER UNDEFINED SYMBOL IN TABLE 1834 * 1835 * 1836 * CALLING SEQUENCE: 1837 * JST DUS 1838 * ......RETURN 1839 * 1840 02517 0 000000 DUS DAC ** ENTER UNDEFINED SYMBOL IN TABLE 1841 02520 0 02 00421 LDA E1 IF EXTENSION FLAG OR DAC FLAG 1842 02521 0 06 00432 ADD DACF IS SET. ENTER SYMBOL AT BOTTOM OF TABLE 1843 02522 100040 SZE SKIP IF NEITHER IS SET 1844 02523 0 01 02552 JMP DBOT ENTER AT BASE OF TABLE 1845 02524 0 10 02505 JST ISCN SETUP FOR SYMBOL TABLE SEARCH 1846 02525 101040 SNZ SKIP IF TABLE NOT EMPTY 1847 02526 0 01 02552 JMP DBOT 1848 02527 1 02 00000 DL1 LDA 0,1 FETCH FIRST WORD OF CURRENT ENTRY 1849 02530 100400 SPL SKIP IF DEFINED FLAG IS NOT SET 1850 02531 0 01 02547 JMP DL4 DEFINED SYMBOL - ADVANCE TO NEXT ENTRY 1851 02532 0 03 00665 ANA CHR2 ELIMINATE CODE BITS 1852 02533 0 05 00450 ERA SYL MERGE WITH FIRST WORD OF TARGET NAME 1853 02534 100040 SZE SKIP IF THEY MATCH 1854 02535 0 01 02547 JMP DL4 ADVANCE TO NEXT ENTRY 1855 02536 1 02 00001 LDA 1,1 FETCH SECOND WORD OF ENTRY 1856 02537 0 03 00667 ANA CSC1 ELIMINATE CONTROL BITS 1857 02540 0 05 00451 ERA SYL+1 MERGE WITH SECOND WORD OF TARGET NAME 1858 02541 100040 SZE SKIP IF THEY MATCH 1859 02542 0 01 02547 JMP DL4 ADVANCE TO NEXT ENTRY 1860 02543 1 02 00002 LDA 2,1 FETCH THIRD WORD OF CURRENT ENTRY 1861 02544 0 05 00423 ERA SUM MERGE OFFSET 1862 02545 101040 SNZ SKIP IF OFFSETS DO NOT AGREE 1863 02546 0 01 02604 JMP FNDD MATCHING ENTRY FOUND 1864 02547 0 10 02512 DL4 JST ISCP INCREMENT SYMBOL TABLE POINTER 1865 02550 0 12 00467 IRS SYMC INCREMENT THE SCAN COUNT 1866 02551 0 01 02527 JMP DL1 GO CHECK NEXT ENTRY 1867 02552 0 02 00462 DBOT LDA FREE FETCH NULL TABLE ENTRY COUNTER 1868 02553 100040 SZE SKIP IF NO RECOVERABLE ENTRIES 1869 02554 -0 10 00572 JST* ZSC USE A FREE ENTRY 1870 02555 -0 10 00555 JST* XCHK ADD NEW ENTRY 1871 02556 0 01 02602 JMP DBZR SYMBOL TABLE OVERFLOW 1872 02557 0 02 00421 LDA E1 CHECK FOR EXTENDED OR DAC FLAGS SET 1873 02560 0 06 00432 ADD DACF DAP1 1874 02561 100040 SZE SKIP IF NEITHER IS SET 1875 02562 140600 SCB SET C BIT 1876 02563 0 02 00453 LDA SIGN GET SIGN UF SYL 1877 02564 0 03 00621 ANA B4 A(1-3)=0,A(5-16)=0 1878 02565 101040 SNZ SKIP IF A(4) SET 1879 02566 0 02 00620 LDA B3 SET PLUS 1880 02567 100001 SRC 1881 02570 0 06 00617 ADD B2 INSERT CHAIN FLAG