INHALT

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

1274 00455 100040 SZE BEEN USED BEFORE. 1275 00456 0 01 00474 JMP NSDN ON. OMIT TABLE SEARCH, 1276 00457 0 10 02357 JST SSS OFF. SET UP SYMBOL SEARCH. 1277 00460 0 02 00671 NSDP LDA ='177777 KEY MUST MATCH EXACTLY. 1278 00461 0 10 02363 JST SSN MOVE TO NEXT ENTRY. 1279 00462 0 01 00474 JMP NSDN END OF TABLE. NOT FOUND. 1280 00463 0 05 00661 ERA K IS IT SAME SYMBOL.Q 1281 00464 100040 SZE SKIP IF SO. 1282 00465 0 01 00460 JMP NSDP NO. CONTINUE SEARCH. 1283 00466 0 10 02662 JST GET2 YES. GET LAST LOC USED. 1284 00467 0 04 03677 STA VALU MUST STRING TO IT. 1285 00470 0 02 03777 LDA WORD UPDATE USAGE POINTER IN 1286 00471 -0 04 03673 STA* T SYMBOL TABLE TO CURRENT LOC. 1287 00472 0 10 02210 JST DESS DESECTOR FOR STRING. 1288 00473 0 01 00437 JMP NSDT GO TO NEXT DATA WORD. 1289 * 1290 00474 0 10 02306 NSDN JST GEN3 NOT IN TABLE, PUT IT IN. 1291 00475 0 02 03665 LDA KEY PLACE THE KEY IN FIRST. 1292 00476 0 10 03020 JST PUT 1293 00477 0 02 00661 LDA K THEN THE SYMBOL NUMBER. 1294 00500 0 10 03020 JST PUT 1295 00501 0 02 03777 LDA WORD FINALLY THE CURRENT LOCATION. 1296 00502 -0 04 03673 STA* T 1297 00503 0 02 03774 LDA DATA GET THE 'MORE' BIT AGAIN. 1298 00504 0 03 00665 ANA ='000400 ISOLATE IT. 1299 00505 101040 SNZ ARE THERE MORE SYMBOLS.Q 1300 00506 0 01 00437 JMP NSDT NO. GO TO NEXT DATA WORD. 1301 00507 0 10 01520 JST R24B YES, READ NEXT WORD. 1302 00510 0 10 00645 JST EXT EXTRACT THE SYMBOL NUMBER. 1303 00511 0 03 00674 ANA ='017777 RETAIN ONLY 13 BITS. 1304 00512 0 04 00661 STA K 1305 00513 0 01 00474 JMP NSDN GO PUT IT INTO TABLE TOO. 1306 * 1307 * 1308 * 1309 * HERE FOR DAC, ADDRESS KNOWN. 1310 * 1311 00514 0 10 00645 NSD2 JST EXT EXTRACT ADDRESS. 1312 00515 0 04 03677 STA VALU SAVE IT FOR RELOCATION. 1313 00516 0 02 03774 LDA DATA GET RELOCATION BITS. 1314 00517 0414 75 LGL 3 LEFT ADJUST. 1315 00520 0 10 03201 JST RELO RELOCATE ADDRESS. 1316 * 1317 * SAVE 'VALU' WHERE 'MMOD' IS ONE. MERGE 'VALU' WITH 'DATA' WHERE 1318 * 'MMOD' IS ZERO. THIS ALWAYS MERGES THE FLAG BIT FROM 'DATA', AND 1319 * THE TAG BIT(IF NOT IN EXTENDED MODE) WITH 'VALU'. 1320 * 1321 00521 0 05 03774 ERA DATA ********************* 1322 00522 0 03 03774 ANA DATA VALU 0 0 0 0 1 1 1 1 1323 00523 -0 04 03777 STA* WORD DATA 0 0 1 1 0 0 1 1