DAP-16M2

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

2042 * 2043 * SCHW: WRITE EXTERNAL NAME IN SYMBOL TABLE 2044 * 2045 * 2046 * CALLING SEQUENCE: 2047 * JST SCHW 2048 * ......RETURN 2049 * 2050 * THIS ROUTINE WILL PLACE THE SIX CHARACTER NAME 2051 * FOUND IN SYL-SYL+2 IN THE SYMBOL TABLE. WITH 2052 * THE DEFINED FLAG SET. AND THE SUBR FLAG COMPLEMENTED. 2053 * 2054 * 2055 02766 0 000000 SCHW DAC ** WRITE EXTERNAL NAME IN TABLE 2056 02767 -0 10 00555 JST* XCHK SETUP SYMBOL TABLE ENTRY 2057 02770 -0 01 02766 JMP* SCHW TABLE OVERFLOW - RETURN 2058 02771 0 02 00450 LDA SYL FETCH FIRST WORD OF NAME 2059 02772 140500 SSM SET DEFINED FLAG 2060 02773 1 04 00000 STA 0,1 PLACE RESULT IN FIRST WORD OF ENTRY 2061 02774 0 02 00451 LDA SYL+1 FETCH SECOND WORD OF NAME 2062 02775 140024 CHS COMPLEMENI SUBR FLAG 2063 02776 1 04 00001 STA 1,1 PLACE RESULT IN SECOND WORD OF ENTRY 2064 02777 0 02 00452 LDA SYL+2 FETCH THIRD WORD OF NAME 2065 03000 1 04 00002 STA 2,1 PLACE IT IN THIRD WORD OF ENTRY 2066 03001 -0 01 02766 JMP* SCHW RETURN TO CALLER 2067 * 2068 * 2069 EJCT *************************************************************