DAP-16M2

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

1196 01626 0 12 00462 IRS FREE INCREMENT NULL SYMBOL TABLE ENTRY COUNT 1197 01627 0 10 02512 DEND JST ISCP INCREMENT SYMBOL TABLE POINTER 1198 01630 0 12 00467 IRS SYMC INCREMENT COUNT 1199 01631 0 01 01561 JMP DLOP CONTINUE SCAN 1200 01632 0 02 00462 DINS LDA FREE CHECK FOR FREE ENTRIES IN TABLE 1201 01633 100040 SZE SKIP IF NONE AVAILABLE 1202 01634 -0 10 00572 JST* ZSC FIND A FREE ENTRY - RETURN AT *+3 1203 01635 -0 10 00555 JST* XCHK ADD A ENTRY TO THE TABLE 1204 01636 -0 01 01550 JMP* DLOC TABLE OVERFLOW - EXIT 1205 01637 0 02 00454 LDA SYL1 FETCH FIRST WORD OF NAME 1206 01640 140500 SSM SET DEFINED BIT 1207 01641 0 05 00527 ERA ZPTX LEAVE IT UNDEF. IF END OF PASS WRAP UP 1208 01642 1 04 00000 STA 0,1 STORE WORD IN SYMBOL TABLE 1209 01643 0 02 00406 SETJ LDA ABSW FETCH ASSEMBLY MODE SWITCH 1210 01644 0414 62 LGL 14 MOVE IT TO CODE POSITION 1211 01645 0 06 00455 ADD SYL1+1 INSERT LAST WORD OF NAME 1212 01646 1 04 00001 STA 1,1 PLACE WORD IN TABLE 1213 01647 0 02 00405 LDA CLOC FETCH LOCATION COUNTER 1214 01650 1 04 00002 STA 2,1 IT IS THIRD WORD OF ENTRY 1215 01651 0 02 00524 DXIT LDA WORT RESTORE WORD TO ITS 1216 01652 0 04 00437 STA WORD INITIAL VALUE 1217 01653 -0 01 01550 JMP* DLOC EXIT 1218 * 1219 * HERE IF SYMBOL HAS ALREADY BEEN DEFINED 1220 * 1221 01654 1 02 00000 MDE LDA 0,1 FETCH FIRST WORD OF THIS ENTRY 1222 01655 0 03 00621 ANA B4 ISOLATE EXTERNAL FLAG 1223 01656 101040 SNZ SKIP IF EXTERNAL SYMBOL ENTRY 1224 01657 0 01 01664 JMP *+5 NOT EXTERNAL, CHECK INTERNAL MULT. DEF. 1225 01660 1 02 00002 LDA 2,1 FETCH THIRD WORD OF EXTERNAL ENTRY 1226 01661 101040 SNZ SKIP IF 5TH AND 6TH CHARS. ARE NOT SPACES 1227 01662 -0 01 00570 JMP* MDFP 'M' ERROR - NAME IS DECLARED EXTERNAL 1228 01663 0 01 01627 JMP DEND NAMES ARE DIFFERENT - CONTINUE SCAN 1229 01664 1 02 00001 LDA 1,1 FETCH SECOND WORD OF ENTRY 1230 01665 100400 SPL SKIP IF SUBR FLAG IS NOT SET 1231 01666 0 01 01716 JMP SUBP GO PROCESS SUBR ENTRY 1232 01667 0 02 00431 LDA SETF IF SETF > 0, MULT. DEF. IS OK 1233 01670 100040 SZE SKIP IF NOT SET 1234 01671 0 01 01643 JMP SETJ GO GIVE SYMBOL NEW VALUE 1235 01672 1 02 00000 LDA 0,1 GET FIRST WORD OF TABLE ENTRY 1236 01673 0 03 00620 ANA B3 ISOLATE BIT 3 1237 01674 100040 SZE NOT SET 1238 01675 -0 01 00570 JMP* MDFP BIT NOW SET - 'M' ERROR REQUIRED 1239 01676 1 02 00002 LDA 2,1 GET ORIGINAL DEFINITION 1240 01677 0 07 00405 SUB CLOC COMPARE TO CURRENT DEFINTION 1241 01700 101040 SNZ UNEQUAL 1242 01701 0 01 01651 JMP DXIT EQUAL, SO OK 1243 01702 0 02 00436 LDA ZP SKIP IF NOT OUTPUT PASS 1244 01703 101400 SMI NOT OUTPUT PASS 1245 01704 0 01 03777 JMP PERR OUTPUT PASS - REPORT PHASE ERROR