INHALT

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

2905 03255 0 02 03522 LDA ='100000 SET NEXT PASS OFFSET TO BE 2906 03256 0 04 03775 MAPK STA DATA+1 AS LARGE AS POSSIBLE. 2907 03257 140040 MAPL CRA LOOK AT ENTRIES OF ALL KEYS. 2908 03260 0 10 02363 JST SSN MOVE TO NEXT ENTRY. 2909 03261 0 01 03322 JMP MAPE END OF TABLE. GO CLOSE THIS PASS. 2910 03262 -0 02 03672 LDA* SSSP GET KEY FOR THIS ENTRY. 2911 03263 100400 SPL CHECK FOR NAME ENTRY (MINUS). 2912 03264 0 01 03304 JMP MAPS YES. SEE IF NOW IS TIME TO PRINT IT. 2913 03265 0 03 03525 ANA ='000077 NO. MAYBE IT IS A BASE SECTOR 2914 03266 0 05 03521 ERA ='000004 ENTRY (KEY=4). 2915 03267 0 06 03774 ADD DATA PRINT THEM ONLY ON FIRST PASS. 2916 03270 100040 SZE SKIP IF BASE ENTRY ON FIRST PASS. 2917 03271 0 01 03257 JMP MAPL NO. RESUME SEARCH. 2918 03272 -0 02 03673 LDA* T YES. GET BASE TABLE ORIGIN. 2919 03273 0 12 03673 IRS T MOVE TO USAGE. 2920 03274 -0 07 03673 SUB* T CALCULATE LAST LOCATION 2921 03275 0 06 03530 ADD ='177777 USED PLUS ONE. 2922 03276 0 04 03364 STA MA55 SAVE IT FOR PRINTING. 2923 03277 0 02 03360 LDA MAP5 GET POINTER FOR PRINTER. 2924 03300 100000 SKP SKIP AROUND NAME JOINT. 2925 03301 0 02 03673 MAPC LDA T GET POYNTER TO PRINT NAME. 2926 03302 0 10 03365 JST LINE TYPE SYMBOL TABLE LINE. 2927 03303 0 01 03257 JMP MAPL RESUME SEARCH LOOP. 2928 * 2929 03304 0 02 03672 MAPS LDA SSSP HERE FOR NAME ENTRY. 2930 03305 0 06 03521 ADD ='000004 FIND THE VALUE OF THIS NAME. 2931 03306 0 04 03674 STA T+1 2932 03307 -0 02 03674 LDA* T+1 VALUE TO A-REGISTER. 2933 03310 0 07 03774 SUB DATA CHECK IF IT MATCHES VALUES BEING 2934 03311 101040 SNZ PRINTED ON THIS PASS. 2935 03312 0 01 03301 JMP MAPC YES. GO PRINT THIS NAME. 2936 03313 100400 SPL NO. IF IT IS LESS THAN THE CURRENT 2937 03314 0 01 03257 JMP MAPL VALUE, IGNORE IT. 2938 03315 0 07 03775 SUB DATA+1 NO, MORE. COMPARE IT WITH THE 2939 03316 101400 SMI OFFSET FOR THE NEXT PASS. 2940 03317 0 01 03257 JMP MAPL TOO HIGH. IGNORE IT. 2941 03320 0 06 03775 ADD DATA+1 LOWER THAN PRESENT OFFSET. 2942 03321 0 01 03256 JMP MAPK GO DROP OFFSET. 2943 * 2944 03322 0 02 03775 MAPE LDA DATA+1 END OF PASS. CHECK OFFSET. 2945 03323 100400 SPL IF STILL SET TO '100000, THERE IS 2946 03324 0 01 03225 JMP MAPF NO NEXT PASS. EXIT FROM MAP. 2947 03325 0 06 03774 ADD DATA NO. BUMP VALUE AND GO FOR MORE. 2948 03326 0 01 03253 JMP MAPP START NEXT PASS. 2949 * 2950 03327 0 003330 LOWP DAC *+1 2951 03330 125314 BCI 3,*LOW 03331 147727 03332 120240 2952 03333 0 000000 LOW DAC **