INHALT

* NAME: LDR-APM DOC. 70180005000 REV. E PAGE 28

1324 00524 0 05 03666 ERA MMOD MMOD 0 1 0 1 0 1 0 1 1325 00525 -0 03 03777 ANA* WORD WORD 0 0 1 0 1 1 1 1 RESULT 1326 00526 0 05 03677 ERA VALU ********************* 1327 00527 -0 04 03777 STA* WORD LOAD WORD 1328 00530 0 01 00437 JMP NSDT GO TO NEXT DATA WORD. 1329 * 1330 * 1331 * 1332 * HERE FOR FORWARD-REFERENCE DAC. 1333 * 1334 00531 0 02 03774 NSD3 LDA DATA PLACE THE FLAG AND TAG BITS. 1335 00532 0 03 00664 ANA ='140000 1336 00533 -0 04 03777 STA* WORD 1337 00534 0 10 00645 NSDM JST EXT EXTRACT THE SYMBOL NUMBER. 1338 00535 0 03 00674 ANA ='017777 RETAIN ONLY 13 BITS. 1339 00536 0 04 00661 STA K 1340 00537 0 10 02306 JST GEN3 GET SPACE IN SYMBOL TABLE. 1341 00540 0 02 00702 LDA ='000001 KEY FOR UNDEFINED DAC. 1342 00541 0 10 03020 JST PUT PLACE KEY IN SYMBOL TABLE. 1343 00542 0 02 00661 LDA K GET SYMBOL NUMBER. 1344 00543 0 10 03020 JST PUT PLACE IT IN TABLE. 1345 00544 0 02 03777 LDA WORD GET POINTER TO CURRENT LOCATION. 1346 00545 -0 04 03673 STA* T PLACE IT IN TABLE. 1347 00546 0 02 03774 LDA DATA GET THE 'MORE' BIT. 1348 00547 0 03 00665 ANA ='400 ISOLATE IT 1349 00550 101040 SNZ ARE THERE MORE SYMBOLS.Q 1350 00551 0 01 00437 JMP NSDT NO. GO GET NEXT DATA WORD. 1351 00552 0 10 01520 JST R24B YES. READ NEXT SYMBOL. 1352 00553 -0 02 03777 LDA* WORD GET PREVIOUS FLAG/TAG 1353 00554 0 05 03774 ERA DATA OLD OR NEW FLAG/TAG, NOT BOTH 1354 00555 -0 03 03777 ANA* WORD OLD FLAG/TAG WHERE NOT NEW 1355 00556 0 05 03774 ERA DATA BOTH OLD AND NEW 1356 00557 0 03 00664 ANA ='140000 WIPE OUT LOW ORDER BITS 1357 00560 0 01 00533 JMP NSDM-1 1358 * 1359 * 1360 * 1361 * HERE FOR NINE-BIT KNOWN ADDRESS. 1362 * 1363 00561 0 02 03774 NSD4 LDA DATA PLACE THE FLAG, TAG AND 1364 00562 0 03 00666 ANA ='176000 OP-CODE INTO STORAGE. 1365 00563 -0 04 03777 STA* WORD 1366 00564 0 10 00645 JST EXT EXTRACT 15-BIT VALUE. 1367 00565 0 03 00663 ANA ='077777 1368 00566 0 04 03677 STA VALU SAVE IT FOR RELOCATION. 1369 00567 0 02 03775 LDA DATA+1 GET RELOCATION BITS. 1370 00570 0414 73 LGL 5 PLACE THEM PROPERLY. 1371 00571 0 10 03201 JST RELO RELOCATE ADDRESS. 1372 00572 0 10 02065 JST DESE DESECTOR WORD. 1373 00573 0 01 00437 JMP NSDT DONE. GO GET NEXT DATA WORD.