INHALT

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

2402 02374 100040 SZE IS IT A MATCH.Q 2403 02375 0 01 02365 JMP SSNL NO. GO TO NEXT ENTRY. 2404 02376 0 02 03672 LDA SSSP YES. GET POTNTER. 2405 02377 0 07 02721 SUB ='177777 MOVE TO FIRST DATA WORD 2406 02400 0 10 02656 JST GET GET IT IN A-REGISTER. 2407 02401 0 12 02363 IRS SSN JST+2 RETURN. 2408 02402 -0 01 02363 JMP* SSN EXIT TO CALLER. 2409 * 2410 * 2411 * 2412 02403 0 000000 CUT DAC ** HERE TO FORM CURRENT KEY. 2413 02404 0 02 03666 LDA MMOD GET THE MEMORY MODE FLAG. 2414 02405 0 05 02721 ERA ='177777 FLIP, SO '100000 = 32K, '140000 = 16K. 2415 02406 0404 70 LGR 8 POSITION TO BIT 10, SET BIT 9. 2416 02407 0 05 02674 ERA BASE INSERT CURRENT BASE SECTOR. 2417 02410 0 03 02710 ANA ='100777 LEAVE TYPE-CODE OPEN. 2418 02411 0 05 02674 ERA BASE 2419 02412 -0 01 02403 JMP* CUT EXIT, RESULT IN A-REGISTER. 2420 * 2421 * 2422 * 2423 02413 0 000000 MACH DAC ** HERE TO COMPARE SIX-CHAR NAMES. 2424 02414 0 05 03774 ERA DATA CHECK FIRST WORD. 2425 02415 100040 SZE 2426 02416 -0 01 02413 JMP* MACH NOT THE SAME. EXIT. 2427 02417 0 10 02662 JST GET2 GET NEXT WORD. 2428 02420 0 05 03775 ERA DATA+1 2429 02421 100040 SZE 2430 02422 -0 01 02413 JMP* MACH NOT THE SAME. EXIT, 2431 02423 0 02 03672 LDA SSSP 2432 02424 0 06 02711 ADD ='000003 2433 02425 0 10 02656 JST GET GET THE THIRD WORD. 2434 02426 0 05 03776 ERA DATA+2 2435 02427 100040 SZE 2436 02430 -0 01 02413 JMP* MACH NOT THE SAME. EXIT. 2437 02431 0 12 02413 IRS MACH OK. MATCHES. INCREMENT RETURN. 2438 02432 -0 02 03672 LDA* SSSP RETURN WITH LOAD/NOLOAD 2439 02433 0 03 02707 ANA ='000400 BIT IN A-REGISTER. 2440 02434 -0 01 02413 JMP* MACH 2441 * 2442 * 2443 * 2444 02435 0 000000 SPUT DAC ** PUT AWAY A-REG FOLLOWED BY 6-CHAR NAME. 2445 02436 0 10 03020 JST PUT PUT AWAY THE KEY. 2446 02437 0 02 03774 LDA DATA GET THE FIRST WORD. 2447 02440 0 10 03020 JST PUT PLACE IT AWAY. 2448 02441 0 02 03775 LDA DATA+1 GET THE SECOND WORD. 2449 02442 0 10 03020 JST PUT PLACE IT AWAY. 2450 02443 0 02 03776 LDA DATA+2 GET THIRD WORD 2451 02444 0 10 03020 JST PUT PLACE IT.