INHALT

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

2352 02327 -0 01 02306 JMP* GEN3 RETURN TO CALLER. 2353 * 2354 * 2355 * 2356 02330 0 000000 GEN6 DAC ** HERE TO OBTAIN 6-WORD ENTRY. 2357 02331 0 02 03352 LDA SYM GET THE TABLE INDEX. 2358 02332 0 07 02711 SUB ='000003 EXTEND IT BY 3 WORDS. 2359 02333 0 04 03673 STA T SAVE POINTER FOR CALLER. 2360 02334 0 07 02711 SUB ='000003 EXTEND THE TABLE A TOTAL OF 6 WORDS. 2361 02335 0 04 03352 STA SYM SAVE NEW TABLE INDEX. 2362 02336 0 10 02613 JST FITS SEE IF TABLE FITS IN CORE. 2363 02337 140040 CRA CLEAR OUT KEY WORD OF 2364 02340 -0 04 03352 STA* SYM NEW AREA. 2365 02341 -0 01 02330 JMP* GEN6 RETURN TO CALLER. 2366 * 2367 * 2368 * 2369 02342 0 000000 NEXE DAC ** HERE TO ADVANCE POINTER TO NEXT ENTRY. 2370 02343 0 10 02656 JST GET PICK UP KEY WORD, STORE POINTER. 2371 02344 0 03 02242 ANA SIGN CHECK 3/6 INDICATOR, SIGN BIT 2372 02345 100400 SPL PLUS MEANS 3 WORDS, MINUS MEANS 6. 2373 02346 0 02 02711 LDA ='000003 SIX. MOVE AN EXTRA THREE. 2374 02347 0 06 03673 ADD T BUMP THE POINTER. 2375 02350 0 07 02355 SUB NEX3 COMPARE WITH END OF TABLE. 2376 02351 100400 SPL SKIP IF EXHAUSTED. 2377 02352 0 12 02342 IRS NEXE OK. INCREMENT RETURN. 2378 02353 0 06 02356 ADD NEX0 RESTORE POINTER TO NEXT ENTRY. 2379 02354 -0 01 02342 JMP* NEXE RETURN TO CALLER. 2380 * 2381 02355 0 000045 NEX3 DAC BOT+3 BES OF SYMBOL TABLE MINUS THREE. 2382 02356 0 000050 NEX0 DAC BOT+6 BES OF SYMBOL TABLE. 2383 * 2384 * 2385 * 2386 02357 0 000000 SSS DAC ** HERE TO SET UP SYMBOL TABLE SEARCH. 2387 02360 0 02 03352 LDA SYM GET SYMBOL TABLE POINTER. 2388 02361 0 04 03672 STA SSSP SAVE IT FOR SEARCH. 2389 02362 -0 01 02357 JMP* SSS RETURN TO CALLER. 2390 * 2391 * 2392 * 2393 02363 0 000000 SSN DAC ** HERE TO LOOK AT NEXT ENTRY. 2394 02364 0 04 03674 STA T+1 SAVE KEY MASK. 2395 02365 0 02 03672 SSNL LDA SSSP GET THE SEARCH POINTER. 2396 02366 0 10 02342 JST NEXE ADVANCE TO NEXT ENTRY. 2397 02367 -0 01 02363 JMP* SSN END OF TABLE. JST+1 RETURN. 2398 02370 0 04 03672 STA SSSP SAVE ADVANCED POINTER. 2399 02371 0 10 02656 JST GET GET KEY. 2400 02372 0 05 03665 ERA KEY COMPARE WITH DESIRED KEY. 2401 02373 0 03 03674 ANA T+1 ONLY IN BITS DESIRED.