INHALT

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

1374 * 1375 * 1376 * 1377 * NS1O NEW STYLE BLOCK 10.. SYMBUL NUMBER DEFINITION. 1378 * 1379 00574 0 10 03024 NS10 JST SKIP IGNORE DEFINITIONS IF SKIPPING. 1380 00575 0 10 01555 N10L JST LEFT SEE IF TWO WORDS LEFT 1381 00576 0 10 01555 JST LEFT IN INPUT BUFFER. 1382 00577 0 12 00657 IRS BUFP YES. MOVE TO FIRST. 1383 00600 -0 02 00657 LDA* BUFP PICK UP SYMBUL NUMBER, FLAGS. 1384 00601 0 04 03774 STA DATA SAVE FLAGS. 1385 00602 0 03 00674 ANA ='017777 ISOLATE SYMBOL NUMBER. 1386 00603 0 04 00661 STA K SAVE IT. 1387 00604 0 12 00657 IRS BUFP MOVE TO VALUE. 1388 00605 -0 02 00657 LDA* BUFP GET IT. 1389 00606 0 04 03677 STA VALU SAVE IT FOR POSSIBLE RELOCATION. 1390 00607 0 02 03774 LDA DATA GET RELOCATION BITS. 1391 00610 0414 77 LGL 1 POSITION THEM. 1392 00611 0 10 03201 JST RELO RELOCATE ADDRESS. 1393 00612 0 10 02002 JST SAVE SAVE LOADER FUR POSSIBLE UNSTRING. 1394 00613 0 10 02357 JST SSS SET UP SEARCH OF SYMBOL TABLE. 1395 00614 0 02 00702 LDA ='000001 SET KEY TO INDICATE SYMBOL NUMBER. 1396 00615 0 04 03665 STA KEY 1397 00616 0 02 00676 N10M LDA ='000077 LOOK AT ALL ENTRIES OF THIS TYPE. 1398 00617 0 10 02363 JST SSN MOVE TO NEXT ENTRY. 1399 00620 0 01 00643 JMP N10X ALL ENTRIES PROCESSED. GO EXIT. 1400 00621 0 05 00661 ERA K IS THIS ENTRY A MATCH.Q 1401 00622 100040 SZE SKIP IF MATCHES SYMBOL NUMBER. 1402 00623 0 01 00616 JMP N10M NO. CONTINUE HUNT. 1403 00624 0 02 03774 LDA DATA YES. NOW, IS SYMBOL 1404 00625 101400 SMI STRINGABLE OR ONE-SHOT. 1405 00626 0 01 00635 JMP N10S ONE-SHOT. GO SERVICE IT. 1406 00627 0 10 01623 JST SETS STRINGABLE. SET BASE, MMOD. 1407 00630 140040 CRA WIPE OUT THIS ENTRY 1408 00631 -0 04 03672 STA* SSSP FROM THE SYMBOL TABLE. 1409 00632 0 10 02662 JST GET2 GET LAST LOCATION USED. 1410 00633 0 10 02233 JST UNST RUN THE STRING. 1411 00634 0 01 00616 JMP N10M GO BACK FOR MORE USAGES. 1412 * 1413 00635 -0 02 03672 N10S LDA* SSSP ONE-SHOT SYMBOL NUMBER. 1414 00636 0 06 00702 ADD ='1 CHANGE ENTRY KEY 1415 00637 -0 04 03672 STA* SSSP ADDRESS-ARITHMETIC TYPE. 1416 00640 0 12 03672 IRS SSSP REPLACE SYMBOL NUMBER 1417 00641 0 02 03677 LDA VALU BY VALUE. 1418 00642 -0 04 03672 STA* SSSP * 1419 00643 0 10 02055 N10X JST REST RESTORE THE LOADER 1420 00644 0 01 00575 JMP N10L GO GET NEXT SYMBOL NUMBER. 1421 * 1422 * 1423 00645 0 000000 EXT DAC ** HERE TO EXTRACT SYMBOL VALUE