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

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

5487 11572 0 04 11440 STA T4C3 5488 11573 0 02 00664 LDA F 5489 11574 0 11 00040 CAS A IF A = F, GO TO C3M (B) 5490 11575 0 01 11577 JMP *+2 5491 11576 0 01 11536 JMP C3M ELSE, 5492 11577 0 04 00040 STA A A = I 5493 11600 0 13 11436 IMA C3T2 5494 11601 0 04 00664 STA F 5495 11602 140040 CRA T1 = 0 5496 11603 0 04 11435 STA C3T1 5497 11604 0 10 03656 JST FA00 FETCH ASSIGNS 5498 11605 0 10 11751 JST SAF 5499 11606 0 01 11503 JMP C3H2 GO TO C3H2 5500 11607 0 02 00040 C3P LDA A 5501 11610 0 04 00664 STA F 5502 11611 0 01 11477 JMP C3H 5503 * 5504 * 5505 * *********************** 5506 * *ASSIGN SPECIFICATIONS* 5507 * *********************** 5508 * NON-COMMON NON-EQUIV ITEMS ARE PROCESSED AFTER 5509 * COMMON BLOCKS ARE OUTPUT (WITH SIZE). 5510 11612 0 00 00000 C4T0 PZE 0 5511 11613 0 00 00000 C4T1 PZE 0 5512 11614 0 04 00040 C4B STA A A = 0 5513 11615 0 02 00040 C4C LDA A 5514 11616 0 06 00723 ADD K105 I = A = A+5 5515 11617 0 04 00040 STA A 5516 11620 0 04 00664 STA F 5517 11621 0 11 00054 CAS ABAR 5518 11622 0 01 05173 JMP NP35 RETURN TO FIRST NON-SPEC CHECK (POINT 1) 5519 11623 101000 NOP 5520 11624 0 10 03656 JST FA00 ELSE, FETCH ASSIGN 5521 11625 0 02 00631 LDA AT 5522 11626 0 07 00720 SUB K102 IF AT = STR-ABS 5523 11627 100040 SZE IU=VAR, OR ARR, AND 5524 11630 0 01 11615 JMP C4C NT = 0 5525 11631 0 02 00655 LDA IU GO TO C4E 5526 11632 0 07 00720 SUB K102 ELSE, GO TO C4C 5527 11633 100400 SPL 5528 11634 0 01 11615 JMP C4C 5529 11635 0 02 00573 LDA NT 5530 11636 100040 SZE 5531 11637 0 01 11615 JMP C4C 5532 11640 140040 C4E CRA 5533 11641 0 04 11612 STA C4T0 T0 = 0. T1 =-MAX 5534 11642 0 07 00730 SUB K111 5535 11643 0 04 11613 STA C4T1 5536 11644 0 10 04005 JST KT00 SET D(0) = NO. OF WORDS PER ITEM