FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 166

5405 * 5406 * 5407 * *********************** 5408 * *ASSIGN SPECIFICATIONS* 5409 * *********************** 5410 * NON-COMMON NON-EQUIV ITEMS ARE PROCESSED AFTER 5411 * COMMON BLOCKS ARE OUTPUT (WITH SIZE). 5412 10557 0 00 00000 C4T0 PZE 0 5413 10560 0 00 00000 C4T1 PZE 0 5414 10561 0 04 00625 C4B STA A A = 0 5415 10562 0 02 00625 C4C LDA A 5416 10563 0 06 00741 ADD K105 I = A = A+5 5417 10564 0 04 00625 STA A 5418 10565 0 04 00045 STA F 5419 10566 0 11 00637 CAS ABAR 5420 10567 0 01 04370 JMP NP35 RETURN TO FIRST NON-SPEC CHECK (POINT 1) 5421 10570 101000 NOP 5422 10571 0 10 03317 JST FA00 ELSE, FETCH ASSIGN 5423 10572 0 02 00026 LDA AT 5424 10573 0 07 00736 SUB K102 IF AT = STR-ABS 5425 10574 100040 SZE IU=VAR. OR ARR, AND 5426 10575 0 01 10562 JMP C4C NT = 0 5427 10576 0 02 00710 LDA IU GO TO C4E 5428 10577 0 07 00736 SUB K102 ELSE, GO TO C4C 5429 10600 100400 SPL 5430 10601 0 01 10562 JMP C4C 5431 10602 0 02 00054 LDA NT 5432 10603 100040 SZE 5433 10604 0 01 10562 JMP C4C 5434 10605 0 04 10557 STA C4T0 T0 = 0, T1 =-MAX 5435 10606 0 07 00670 SUB K111 5436 10607 0 04 10560 STA C4T1 5437 10610 0 10 03443 JST KT00 SET D(0) = NO. OF WORDS PER ITEM 5438 10611 0 10 10717 C4F JST SAF 5439 10612 0 11 10557 CAS C4T0 5440 10613 0 04 10557 STA C4T0 5441 10614 101000 NOP 5442 10615 0 02 00030 LDA D0 5443 10616 0 07 00025 SUB AF (A) = D(0) - AF 5444 10617 0 11 10560 CAS C4T1 5445 10620 0 04 10560 STA C4T1 5446 10621 101000 NOP 5447 10622 0 10 03426 JST FL00 FETCH LINK ( (A)=A - F 5448 10623 100040 SZE 5449 10624 0 01 10611 JMP C4F GO TO C4F 5450 10625 0 02 00643 LDA RPL 5451 10626 0 06 10557 ADD C4T0 RPL = RPL + T0 + T1 5452 10627 0 04 10557 STA C4T0 5453 10630 0 06 10560 ADD C4T1 T0 = RPL-T1 5454 10631 0 04 00643 STA RPL