DAP-16M2

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

2118 * 2119 * END : END PSEUDO-OP PROCESSOR 2120 * 2121 * 2122 003024 END EQU * END PSEUDO-OP PROCESSOR 2123 03024 0 02 00415 LDA TCNT FETCH CONDITIONAL NESTING COUNT 2124 03025 100040 SZE SKIP IF NO UNMATCHED CONDITIONALS 2125 03026 -0 10 00614 JST* ZERX UNMATCHED CONDITIONAL - 'Z' ERROR 2126 03027 -0 10 00612 JST* VARD EVALUATE EXPRESSION IN ADDRESS FIELD 2127 03030 0 02 00417 LDA RBIT FETCH RELOCATION OF EXPRESSION 2128 03031 100040 SZE SKIP IF ABSOLUTE 2129 03032 0 02 00616 LDA B1 SET RELOCATABLE FLAG 2130 03033 0 06 00423 ADD SUM INSERT ADDRESS 2131 03034 0 04 04640 STA DBLK SAVE 'END JUMP' ADDRESS 2132 03035 -0 10 00554 JST* FINP DEFINE ANY OUTSTANDING LITERALS 2133 03036 -0 10 00551 JST* LSTD ENSURE THAT 'END' LINE IS PRINTED 2134 03037 0 10 02505 JST ISCN SETUP FOR SYMBOL TABLE SEARCH 2135 03040 0 04 00473 STA DSYM SCAN COUNT 2136 03041 101040 SNZ SKIP IF TABLE NOT EMPTY 2137 03042 0 01 03077 JMP ECON N0 SYMBOLS NO UNDEFINED CHECK 2138 03043 0 02 00616 LDA B1 32768 IN ZPTX 2139 03044 0 04 00527 STA ZPTX TO INHIBIT SYMBOL DEFINITION 2140 03045 1 02 00000 EDOL LDA 0,1 FETCH FIRST WORD OF CURRENT ENTRY 2141 03046 100040 SZE SKIP IF NULL ENTRY 2142 03047 100400 SPL SKIP IF UNDEFINED 2143 03050 0 01 03070 JMP EDUP NULL OR DEFINED - ADVANCE TO NEXT ENTRY 2144 03051 0 03 00665 ANA CHR2 A(1-4)=0 2145 03052 0 04 00454 STA SYL1 SAVE FIRST WORD OF NAME FOR DEFINITION 2146 03053 -0 10 00605 JST* UPAK UNPACK THE CHARACTER PAIR 2147 03054 -0 04 00715 STA* DCON PLACE CHARACTER PAIR IN LIST BUFFER 2148 03055 1 02 00001 LDA 1,1 FETCH SECOND WORD OF NAME 2149 03056 0 03 00665 ANA CHR2 A(1-4)=0 2150 03057 0 04 00455 STA SYL1+1 SAVE SECOND WORD OF NAME FOR DEFINITION 2151 03060 -0 10 00605 JST* UPAK UNPACK THE CHARACTER PAIR 2152 03061 -0 04 00716 STA* DCN1 PLACE LAST TWO CHARACTERS IN LIST BUFFER 2153 03062 0 15 03156 STX MESG SAVE INDEX DURING DEFINITION 2154 03063 -0 10 00547 JST* DLC DEFINE THE SYMBOL 2155 03064 -0 10 00545 JST* CPC PRINT PROGRAM COUNTER 2156 03065 -0 10 00551 JST* LSTD LIST SYMBOL DEFINITION 2157 03066 0 12 00405 IRS CLOC INCREMENT PROGRAM COUNTER 2158 03067 0 35 03156 LDX MESG RESTORE INDEX REGISTER 2159 03070 0 10 02512 EDUP JST ISCP INCREMENT SYMBOL TABLE POINTER 2160 03071 0 12 00473 IRS DSYM INCREMENT SCAN COUNT 2161 03072 0 01 03045 JMP EDOL GO EXAMINE NEXT ENTRY 2162 03073 -0 10 00577 JST* OBTD FORCE ORG BLOCK 2163 03074 000007 OCT 7 HIGH SHOULD BE ABOVE UNDEFINED SYMBOLS 2164 03075 0 02 00511 LDA ZPT RESTORE CONTROL STATE 2165 03076 0 04 00436 STA ZP 2166 03077 0 02 04640 ECON LDA DBLK FETCH 'END JUMP' ADDRESS 2167 03100 101400 SMI SKIP IF RELOCATABLE