DAP-16M2

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

1246 01705 0 02 00461 LDA TST 1ST PASS- BUT OF 1 OR 2. Q. 1247 01706 101400 SMI 1ST OF 2 PASS ASSEMBLY 1248 01707 -0 01 00570 JMP* MDFP ONE PASS - REPORT 'M' ERROR NOW 1249 01710 0 02 00620 LDA B3 CLEAR BIT 3 OF TABLE ENTRY 1250 01711 140401 CMA * 1251 01712 1 03 00000 ANA 0,1 * 1252 01713 0 06 00620 ADD B3 AND THEN SET IT 1253 01714 1 04 00000 STA 0,1 AND PUT BACK IN TABLE FOR PASS TWO 1254 01715 0 01 01651 JMP DXIT 1255 * 1256 01716 0416 77 SUBP ALR 1 TEST FOR SYNONYM 1257 01717 100400 SPL SKIP IF NO SYNONYM 1258 01720 0 01 01752 JMP SSYN GO PROCESS SYNONYM 1259 01721 0 02 00000 SUBC LDA 0 FETCH ADDRESS OF CURRENT ENTRY 1260 01722 0 11 00471 CAS BSYM COMPARE WITH TABLE BASE 1261 01723 100000 SKP NOT LOWEST IN TABLE 1262 01724 0 01 01734 JMP SUBX LOWEST ENTRY - SKIP SYNONYM CHECK 1263 01725 0 07 00624 SUB C2 CALCULATE ADDRESS OF 2ND WORD OF LAST ENTRY 1264 01726 0 04 00475 STA T IF THE PREVIOUS ENTRY HAS THE 1265 01727 -0 02 00475 LDA* T SUBR AND SYNONYM FLAGS SET: 1266 01730 0 03 00622 ANA B12 THEN THE CURRENT ENTRY DOES NOT 1267 01731 0 05 00622 ERA B12 DEFINE AN ENTRY POINT 1268 01732 101040 SNZ SKIP IF PREVIOUS ENTRY IS NOT A SYNONYM 1269 01733 0 01 01627 JMP DEND FALSE ALARM - CONTINUE SCAN 1270 01734 -0 10 00577 SUBX JST* OBTD FORCE ORG BLOCK 1271 01735 000007 OCT 7 1272 01736 0 02 00624 LDA C2 1273 01737 0 04 00513 STA ROOM 1274 01740 0 02 00673 LDA M3 SET COUNTER FOR 3 WORD NAME 1275 01741 0 04 00475 STA T 1276 01742 140040 CRA 1277 01743 1 13 00000 IMA 0,1 FETCH WORD AND CLEAR ITS POSITION 1278 01744 0 10 01760 JST WSUB WRITE NAME WORD 1279 01745 0 12 00000 IRS 0 INCREMENT INDEX 1280 01746 0 12 00475 IRS T INCREMENT COUNTER 1281 01747 0 01 01742 JMP *-5 GO BACK FOR NEXT WORD 1282 01750 0 12 00462 IRS FREE INCREMENT TABLE AVAILABILITY COUNT 1283 01751 0 01 01630 JMP DEND+1 CONTINUE SCAN 1284 01752 140040 SSYN CRA DELETE SYNONYM FROM TABLE 1285 01753 1 04 00000 STA 0,1 1286 01754 0 12 00467 IRS SYMC INCREMENT SCAN COUNTER TO COVER SYNONYM 1287 01755 0 10 02512 JST ISCP INCREMENT SYMBOL TABLE POINTER 1288 01756 0 12 00462 IRS FREE INCREMENT TABLE AVAILABILITY COUNT 1289 01757 0 01 01734 JMP SUBX GO OUTPUT ENTRY NAME 1290 * 1291 * HERE TO OUTPUT TWO CHARACTERS OF ENTRY NAME 1292 * 1293 01760 0 000000 WSUB DAC ** PACKED CHAR. IN A ON ENTRY 1294 01761 -0 10 00605 JST* UPAK UNPACK THE CHARACTERS 1295 01762 -0 10 00577 JST* OBTD WRITE TWO CHARACTERS