INHALT

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

2252 * 2253 * 2254 * 2255 02210 0 000000 DESS DAC ** HFRE TO DESECTOR FOR STRING. 2256 02211 0 02 02210 LDA *-1 SET UP FOR A RETURN. 2257 02212 0 04 02065 STA DESE THROUGH 'DESE'. 2258 02213 0 02 03677 LDA VALU SET ASSUMED DIRECT ADDRESS. 2259 02214 0 04 03674 STA T+1 IS TARGET ADDRESS IN SAME 2260 02215 0 05 03777 ERA WORD SECTOR AS INSTRUCTION.Q 2261 02216 0 03 02722 ANA ='077000 ISOLATE SECTUR NUMBERS. 2262 02217 101040 SNZ 2263 02220 0 01 02151 JMP DESC SAME SECTOR. GO SERVICE IT. 2264 02221 0 10 02306 JST GEN3 NO. MUST CREATE POINTER WORD. 2265 02222 0 02 02711 LDA ='000003 GET SPACE IN SYMBOL TABLE. 2266 02223 0 10 03020 JST PUT INSERT POINTER WORD KEY. 2267 02224 0 02 03777 LDA WORD INSERT POINTER BACK TO CURRENT 2268 02225 0 10 03020 JST PUT LOCATION. 2269 02226 0 02 03677 LDA VALU FINALLY GET DATA POINTER. 2270 02227 0 03 02715 ANA ='077777 MAKE SURE IT IS ONLY 15-BITS. 2271 02230 -0 04 03673 STA* T PLACE IT. 2272 02231 0 02 02714 LDA ='000777 FLAG STRING POINTER BY ADDRESS 2273 02232 0 01 02154 JMP DESJ OF ABSOLUTE 00777. 2274 * 2275 * 2276 * 2277 02233 0 000000 UNST DAC ** HERE TO UNSTRING TO 'VALU'. 2278 02234 0 10 02250 UNSL JST WALK GENERATE NEXT LOCATION IN STRING. 2279 02235 0 04 02677 STA NEXT SAVE IT. 2280 02236 0 02 01661 LDA DACF ARE WE WORKING DACS OR NINE-BITS.Q 2281 02237 101040 SNZ SKIP IF DAC. 2282 02240 0 01 02243 JMP UNSN NINE-BIT. GO DESECTOR IT. 2283 02241 0 10 03167 JST PROP * 2284 * THE NEXT WORD IS USED AS BOTH AN INST. AND CONST, 2285 02242 100000 SIGN SKP SKIP NINE BIT PROCESSING 2286 02243 0 10 02065 UNSN JST DESE DESECTOR CURRENT WORD. 2287 02244 0 02 02677 LDA NEXT GET NEXT LOCATION. 2288 02245 100040 SZE CHECK FOR END OF STRING. 2289 02246 0 01 02234 JMP UNSL NO. GO CONTINUE SEARCH. 2290 02247 -0 01 02233 JMP* UNST YES. EXIT TO CALLER. 2291 * 2292 * 2293 * 2294 02250 0 000000 WALK DAC ** HERE TO MOVE DOWN STRING ONE POSITION. 2295 02251 0 04 03777 STA WORD SAVE NEXT LOCATION IN STRING. 2296 02252 -0 02 03777 LDA* WORD GET THE WORD. 2297 02253 0 03 02713 ANA ='001000 CHECK THE SECTOR BIT. 2298 02254 101040 SNZ DOES IT POINT TO THE SAME SECTOR.Q 2299 02255 0 01 02263 JMP UNSZ NO. JUMP. 2300 02256 -0 02 03777 LDA* WORD YES. FORM COMPLETE ADDRESS 2301 02257 0 05 03777 ERA WORD BY WIPING IN LOCATION ADDRESS.