C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 111

5337 * 5338 * 5339 * ********************* 5340 * *RELATE COMMON ITEMS* 5341 * ********************* 5342 * ALL ITEMS LINKED TO A COMMON BLOCK ARE PROCESSED 5343 * AND THEIR INVERSE OFFSETS CALCULATED. THESE 5344 * WILL BE INVERTED LATER TO GIVE TRUE 5345 * POSITION IN THE BLOCK. 5346 11374 0 00 00000 C2T0 PZE 0 5347 11375 0 02 00056 C2 LDA CFL 5348 11376 0 04 00040 STA A A = F = CFL 5349 11377 140040 C2A CRA 5350 11400 0 04 11374 STA C2T0 T0 = 0 5351 11401 0 02 00040 LDA A 5352 11402 0 04 00664 STA F F = A 5353 11403 0 10 03770 C2B JST FL00 FETCH LINK 5354 11404 101040 SNZ 5355 11405 0 01 11413 JMP C2D 5356 11406 0 02 00633 LDA D0 5357 11407 0 06 11374 ADD C2T0 T0 = T0 + D0 5358 11410 0 04 11374 STA C2T0 5359 11411 0 10 04041 JST DA00 DEFINE ADDRESS FIELD 5360 11412 0 01 11403 JMP C2B 5361 11413 0 10 03770 C2D JST FL00 FETCH LINK 5362 11414 100040 SZE 5363 11415 0 01 11424 JMP C2F 5364 11416 0 02 00630 LDA AF 5365 11417 0 04 00040 STA A A = AF 5366 11420 0 07 00056 SUB CFL 5367 11421 100040 SZE 5368 11422 0 01 11377 JMP C2A AF = CFL. NO 5369 11423 0 01 11442 JMP C3 YES - GROUP EQUIVALENCE 5370 11424 0 02 11374 C2F LDA C2T0 5371 11425 0 07 00630 SUB AF (A) = T0 - AF 5372 11426 0 10 04041 JST DA00 DEFINE AF 5373 11427 0 02 00655 LDA IU 5374 11430 100040 SZE 5375 11431 0 01 11413 JMP C2D 5376 11432 0 10 03642 JST TV00 TAG VARIABLE 5377 11433 0 01 11413 JMP C2D 5378 * 5379 * 5380 * ******************* 5381 * *GROUP EQUIVALENCE* 5382 * ******************* 5383 * THE EQUIV GROUPS ARE PROCESSED NOW. ANY COMMON 5384 * USAGE IS CHECKED TO SEE THAT THE ORIGIN 5385 * IS NOT MOVED AND THAT ONLY ONE ITEM IS 5386 * COMMON.