INHALT

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

2452 02445 -0 01 02435 JMP* SPUT EXIT, 'T' SET FOR NEXT LOC. 2453 * 2454 * 2455 * 2456 02446 0 000000 DEFS DAC ** HERE TO DEFINE SUBPROG OR COMMON. 2457 02447 140040 CRA SET FLAG TO LEAVE ONE ENTRY 2458 02450 0 04 02676 STA DEFF IN SYMBOL TABLE. 2459 02451 0 10 02357 JST SSS SET UP SEARCH OF SYMBOL TABLE. 2460 02452 0 02 02706 DEFL LDA ='000077 GET ALL ENTRIES OF SAME TYPE. 2461 02453 0 10 02363 JST SSN MOVE TO NEXT ENTRY. 2462 02454 0 01 02512 JMP DEFE END OF TABLE. GO ENTER NAME. 2463 02455 0 10 02413 JST MACH COMPARE THIS ENTRY. 2464 02456 0 01 02452 JMP DEFL NOT THE SAME. RESUME SEARCH. 2465 02457 101040 SNZ SAME. CALLED OR LOADED.Q 2466 02460 -0 01 02446 JMP* DEFS ALREADY LOADED. IGNORE. 2467 02461 0 10 01623 JST SETS CALLED. SET BASE, MMOD, AND DACF. 2468 02462 140040 CRA MAKE SURE THE LOAD FLAG IS ON. 2469 02463 0 04 03671 STA SKIF 2470 02464 0 02 02676 LDA DEFF IS THIS THE FIRST ENTRY SEEN 2471 02465 100040 SZE FOR THIS NAME.Q 2472 02466 0 01 02504 JMP DEFW NO. GO WIPE OUT ENTRY. 2473 02467 -0 02 03672 LDA* SSSP YES. SET FLAG NOW SEEN. 2474 02470 0 04 02676 STA DEFF CHANGE CALL ENTRY 2475 02471 0 03 02705 ANA ='100077 TO LOADED ENTRY. 2476 02472 -0 04 03672 DEFJ STA* SSSP 2477 02473 0 02 03672 LDA SSSP 2478 02474 0 06 02723 ADD ='000004 2479 02475 0 10 02656 JST GET GET LAST REFER LOC IN A, REPLACE WITH 2480 02476 0 04 03674 STA T+1 DEFINED VALUE (FUR FUTURE CALLS). 2481 02477 0 02 03677 LDA VALU 2482 02500 -0 04 03673 STA* T 2483 02501 0 02 03674 LDA T+1 2484 02502 0 10 02233 JST UNST RUN THE REFERENCE STRING. 2485 02503 0 01 02452 JMP DEFL CHECK FOR MORE REFERENCES. 2486 * 2487 02504 0 02 03672 DEFW LDA SSSP SEEN AN ENTRY BEFORE 2488 02505 0 06 02711 ADD ='000003 BOTH HALVES MUST BE SET 2489 02506 0 04 03673 STA T TO ZERO TO AVOID FOULING 2490 02507 140040 CRA LATER TABLE SEARCHES. 2491 02510 -0 04 03673 STA* T 2492 02511 0 01 02472 JMP DEFJ GO JOIN REGULAR PROCESSING. 2493 * 2494 02512 0 02 02676 DEFE LDA DEFF NO MORE ENTRIES FOUND. 2495 02513 100040 SZE HAVE WE SEEN ANY.Q 2496 02514 -0 01 02446 JMP* DEFS YES. ALL DONE, EXIT. 2497 02515 0 10 02330 JST GEN6 NO. WE MUST MAKE ENTRY. 2498 02516 0 02 03665 LDA KEY GET THE KEY. 2499 02517 0 03 02705 ANA ='100077 MAKE SURE IT SAYS LOADED. 2500 02520 0 10 02435 JST SPUT FILL IN KEY AND NAME. 2501 02521 0 02 03677 LDA VALU FILL IN VALUE.