INHALT

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

1497 01035 0406 71 ARR 7 MOVE NINE-BIT 1498 01036 0 06 01661 ADD DACF WIPE IT OUT IF WE ARE 1499 01037 0416 71 ALR 7 PROCESSING A DAC. 1500 01040 0 05 01707 ERA ='100405 UNLOADED SURBPROGRAM NAME 1501 01041 0 04 03665 N44K STA KEY SAVE THE KEY. 1502 01042 0 10 02357 JST SSS SET UP FOR SYMBOL TABLE SEARCH. 1503 01043 0 02 01706 N44L LDA ='100077 ACCEPT ANY SUBPROGRAM ENTRY. 1504 01044 0 10 02363 JST SSN MOVE TO NEXT ENTRY. 1505 01045 0 01 01075 JMP N44E NOT FOUND. GO MAKE ENTRY. 1506 01046 0 10 02413 JST MACH COMPARE NAME WITH TABLE. 1507 01047 0 01 01043 JMP N44L NO MATCH. CONTINUE HUNT. 1508 01050 100040 SZE MATCH IS IT CALLED OR LOADED.Q 1509 01051 0 01 01103 JMP N44S CALLED. GO STRING TO IT. 1510 01052 0 02 03672 LDA SSSP LOADED. 1511 01053 0 06 01705 ADD ='000004 1512 01054 0 10 02656 JST GET GET ENTRY LOCATION. 1513 01055 0 06 03677 ADD VALU BUMP BY OFFSET. 1514 01056 0 04 03677 STA VALU THAT IS TRUE ADDRESS. 1515 01057 0 02 03664 LDA FLAG ARE WE PROCESSING A 'BLOCK DATA'.Q 1516 01060 101400 SMI SKIP IF NOT. 1517 01061 0 01 01500 JMP OS6R YES, RETURN TO SET COUNTER. 1518 01062 0 02 01661 LDA DACF NO. RECOVER DAC FLAG. 1519 01063 101040 SNZ IS IT A NINE-BIT OR A DAC.Q 1520 01064 0 01 01071 JMP N44N NINE-BIT. GO DESECTOR IT. 1521 01065 0 03 03677 ANA VALU DAC. WIPE VALUE TO SIZE. 1522 01066 -0 06 03777 ADD* WORD 1523 01067 -0 04 03777 STA* WORD PLACE FINAL WORD. 1524 01070 100000 SKP SKIP AROUND NINE-BIT PROCESSING. 1525 01071 0 10 02065 N44N JST DESE NINE-BIT. DESECTOR IT. 1526 01072 0 12 03777 N44X IRS WORD RESTORE THE LOCATION COUNTER. 1527 01073 0 10 02613 JST FITS CHECK IF LOAD FITS. 1528 01074 0 01 00323 JMP BLOK GO READ NEXT BLOCK. 1529 * 1530 01075 0 10 02330 N44E JST GEN6 MUST MAKE ENTRY. 1531 01076 0 02 03665 LDA KEY GET SPACE IN TABLE. 1532 01077 0 10 02435 JST SPUT PLACE KEY AND NAME. 1533 01100 0 02 03777 LDA WORD PLACE VALUE. 1534 01101 -0 04 03673 STA* T 1535 01102 0 01 01072 JMP N44X DONE. GO BUMP COUNTER AND EXIT. 1536 * 1537 01103 -0 02 03672 N44S LDA* SSSP CALLED. IN ORDER TO STRING KEY MUST 1538 01104 0 05 03665 ERA KEY MATCH EXACTLY. 1539 01105 100040 SZE SKIP IF SO. 1540 01106 0 01 01043 JMP N44L NO. CONTINUE HUNT. 1541 01107 0 02 03672 LDA SSSP YES. GET LAST LOCATION 1542 01110 0 06 01705 ADD ='000004 IT WAS USED. 1543 01111 0 10 02656 JST GET 1544 01112 0 04 03677 STA VALU FORM POINTER TO IT. 1545 01113 0 02 03777 LDA WORD UPDATE TABLE ENTRY TO POINT 1546 01114 -0 04 03673 STA* T HERE AS LAST LOC USED.