DAP-16M2

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

1146 * 1147 * DLOC: DEFINE SYMBOL IN LOCATION FIELD 1148 * 1149 * 1150 01550 0 000000 DLOC DAC ** DEFINE LOCATION 1151 01551 0 02 00454 LDA SYL1 SYL1-SYL1+1 CONTAIN LOCATION FIELD 1152 01552 101040 SNZ SKIP IF A SYMBOL IS PRESENT 1153 01553 -0 01 01550 JMP* DLOC EXIT - NO SYMBOL TO DEFINE 1154 01554 0 02 00437 LDA WORD MOVE WORD TO TEMP. STORAGE 1155 01555 0 04 00524 STA WORT 1156 01556 0 10 02505 JST ISCN SETUP FOR SYMBOL TABLE SEARCH 1157 01557 101040 SNZ SKIP IF ENTRIES IN TABLE 1158 01560 0 01 01632 JMP DINS NO SYMBOLS 1159 01561 1 02 00000 DLOP LDA 0,1 FETCH FIRST WORD OF CURRENT ENTRY 1160 01562 0 03 00665 ANA CHR2 ELIMINATE CODE BITS 1161 01563 0 05 00454 ERA SYL1 MERGE WITH FIRST WORD OF NAME 1162 01564 100040 SZE SKIP IF EQUIVALENT 1163 01565 0 01 01627 JMP DEND NO - ADVANCE TO NEXT ENTRY 1164 01566 1 02 00001 LDA 1,1 FETCH SECOND WORD OF ENTRY 1165 01567 0 03 00667 ANA CSC1 ELIMINATE CODE BITS 1166 01570 0 05 00455 ERA SYL1+1 MERGE WITH SECOND WORD OF NAME 1167 01571 100040 SZE SKIP IF EQUIVALENT 1168 01572 0 01 01627 JMP DEND NO - ADVANCE TO NEXT ENTRY 1169 01573 1 02 00000 LDA 0,1 RETRIEVE FIRST WORD OF ENTRY 1170 01574 100400 SPL SKIP IF DEFINED BIT NOT SET 1171 01575 0 01 01654 JMP MDE DEFINED FLAG SET - CHECK FOR MULT. DEF. 1172 01576 140040 CRA DELETE THE SYMBOL BY 1173 01577 1 13 00000 IMA 0,1 ZEROING OUT FIRST WORD 1174 01600 0 04 00475 STA T SAVE CODE BITS 1175 01601 140407 TCA NEGATE WORD 1176 01602 0414 77 LGL 1 A(1) = CHAIN BIT FOR LOADER 1177 01603 0 03 00616 ANA B1 ELIMINATE ALL OTHER BITS 1178 01604 0 13 00475 IMA T SAVE INDICATOR AND RETRIEVE CODE BITS 1179 01605 0414 75 LGL 3 A(1) = RELOCATION BIT 1180 01606 0405 61 ARS 15 PROPAGATE RELOCATION THROUGH A 1181 01607 0 04 00476 STA TCMP SAVE RESULT 1182 01610 0 05 00406 ERA ABSW INSERT ASSEMBLY MODE 1183 01611 0 07 00476 SUB TCMP 1184 01612 0 03 00743 ANA C3 A(1-14)=0 1185 01613 0414 63 LGL 13 A(2-3) = RELOCATION MODE 1186 01614 0 06 00475 ADD T A(1)=CHAIN BIT 1187 01615 0 07 00467 SUB SYMC A(4-16)=SYMBOL NUMBER 1188 01616 0 04 00437 STA WORD SAVE RESULT 1189 01617 0 02 00405 LDA CLOC FETCH LOCATION COUNTER 1190 01620 0 05 00476 ERA TCMP (0 OR -1) 1191 01621 0 07 00476 SUB TCMP 1192 01622 1 06 00002 ADD 2,1 ADD OFFSET 1193 01623 0 04 00440 STA W2 SAVE RESULT FOR SYMBOL DEFINITION 1194 01624 -0 10 00577 JST* OBTD DEFINE SYMBOL IN OBJECT TEXT 1195 01625 000002 OCT 2 CODE FOR SYMBOL DEFINITION BLOCK