FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 162

5240 * 5241 * 5242 * ********************* 5243 * *RELATE COMMON ITEMS* 5244 * ********************* 5245 * ALL ITEMS LINKED TO A COMMON BLOCK ARE PROCESSED 5246 * AND THEIR INVERSE OFFSETS CALCULATED. THESE 5247 * WILL BE INVERTED LATER TO GIVE TRUE 5248 * POSITION IN THE BLOCK. 5249 10343 0 00 00000 C2T0 PZE 0 5250 10344 0 02 00641 C2 LDA CFL 5251 10345 0 04 00625 STA A A = F = CFL 5252 10346 140040 C2A CRA 5253 10347 0 04 10343 STA C2T0 T0 = 0 5254 10350 0 02 00625 LDA A 5255 10351 0 04 00045 STA F F = A 5256 10352 0 10 03426 C2B JST FL00 FETCH LINK 5257 10353 101040 SNZ 5258 10354 0 01 10362 JMP C2D 5259 10355 0 02 00030 LDA D0 5260 10356 0 06 10343 ADD C2T0 T0 = T0 + D0 5261 10357 0 04 10343 STA C2T0 5262 10360 0 10 03477 JST DA00 DEFINE ADDRESS FIELD 5263 10361 0 01 10352 JMP C2B 5264 10362 0 10 03426 C2D JST FL00 FETCH LINK 5265 10363 100040 SZE 5266 10364 0 01 10373 JMP C2F 5267 10365 0 02 00025 LDA AF 5268 10366 0 04 00625 STA A A = AF 5269 10367 0 07 00641 SUB CFL 5270 10370 100040 SZE 5271 10371 0 01 10346 JMP C2A AF = CFL, NO 5272 10372 0 01 10410 JMP C3 YES - GROUP EQUIVALENCE 5273 10373 0 02 10343 C2F LDA C2T0 5274 10374 0 07 00025 SUB AF (A) = T0 - AF 5275 10375 0 10 03477 JST DA00 DEFINE AF 5276 10376 0 02 00710 LDA IU 5277 10377 100040 SZE 5278 10400 0 01 10362 JMP C2D 5279 10401 0 10 03274 JST TV00 TAG VARIABLE 5280 10402 0 01 10362 JMP C2D 5281 EJCT