INHALT

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

2302 02260 0 03 02714 ANA ='000777 2303 02261 0 05 03777 ERA WORD 2304 02262 -0 01 02250 JMP* WALK RESULT IS NEXT LOCATION. EXIT. 2305 * 2306 02263 -0 02 03777 UNSZ LDA* WORD SECTOR BIT ZERO. 2307 02264 0 03 02714 ANA ='000777 IF ADDRESS IS COMPLETELY ZERO, 2308 02265 101040 SNZ THIS IS END OF STRING. 2309 02266 -0 01 02250 JMP* WALK END. GIVE FINAL EXIT. 2310 02267 0 02 03352 LDA SYM NOT END. MUST WORK THROUGH. 2311 02270 0 04 03674 STA T+1 POTNTER IN SYMBOL TABLE. 2312 02271 0 02 03674 UNSK LDA T+1 SET UP SEARCH OF TABLE. 2313 02272 0 10 02342 JST NEXE MOVE TO NEXT ENTRY. 2314 02273 0 10 02652 JST MO NOT FOUND. STRING WAS OVERWRITTEN. 2315 02274 0 04 03674 STA T+1 SAVE POINTER. 2316 02275 0 07 02721 SUB ='177777 MOVE TO BACK POINTER 2317 02276 0 10 02656 JST GET GET IT. 2318 02277 0 05 03777 ERA WORD DOES IT POINT TO US.Q 2319 02300 100040 SZE SKIP IF SO. 2320 02301 0 01 02271 JMP UNSK NO. RESUME SEARCH. 2321 02302 -0 04 03674 STA* T+1 YES. WIPE OUT ENTRY. 2322 02303 0 12 03673 IRS T MOVE TO DATA POINTER. 2323 02304 -0 02 03673 LDA* T GET IT. 2324 02305 -0 01 02250 JMP* WALK IT WILL BE NEXT STRING LOCATION. 2325 * 2326 * 2327 * 2328 * ******************************************************************* 2329 * * SYMBOL TABLE ROUTINES * 2330 * ******************************************************************* 2331 * 2332 * 2333 * 2334 02306 0 000000 GEN3 DAC ** HERE TO OBTAIN 3-WORD ENTRY. 2335 02307 0 02 03352 LDA SYM SET UP POINTER FOR SEARCH 2336 02310 0 04 03673 STA T OF SYMBOL TABLE. 2337 02311 0 02 03673 GENL LDA T MOVE TO THE FIRST OR 2338 02312 0 10 02342 JST NEXE NEXT ENTRY. 2339 02313 0 01 02320 JMP GENE TABLE EXHAUSTED. GO EXTEND IT. 2340 02314 0 10 02656 JST GET SAVE POINTER, GET KEY FOR THIS ENTRY. 2341 02315 100040 SZE CHECK FOR AVAILABLE SLOT. 2342 02316 0 01 02311 JMP GENL NO. CONTINUE HUNT. 2343 02317 -0 01 02306 JMP* GEN3 YES. EXIT TO CALLER, ANSWER IN 'T'. 2344 * 2345 02320 0 02 03352 GENE LDA SYM NEED TO EXTEND TABLE. 2346 02321 0 04 03673 STA T SAVE POINTER TO NEW SLOT. 2347 02322 0 07 02711 SUB ='000003 EXTEND TABLE BY THREE WORDS. 2348 02323 0 04 03352 STA SYM SAVE NEW TABLE INDEX. 2349 02324 0 10 02613 JST FITS SEE IF BIGGER TABLE FITS IN CORE. 2350 02325 140040 CRA YES. WIPE OUT EXTENDED 2351 02326 -0 04 03352 STA* SYM AREA KEY WORD.