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

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

2599 04452 0 10 00000 CALL F4$END CLOSE-OUT I/0 DEVICES AND STOP 2600 04453 0 01 01003 JMP A0 RESTART NEW COMPILATION 2601 04454 030000 CCRK OCT 030000 EOJ CONTROL CODE 2602 * 2603 * **************** 2604 * *STATEMENT SCAN* 2605 * **************** 2606 * DETERMINE THE CLASS OF THE STATEMENT 2607 * IF AN = IS FOUND WITH A FOLLOWING , 2608 * THE STATEMENT IS A DO 2609 * IF NO FOLLOWING COMMA, THE PAREN FLAG 2610 * IS TESTED, IF NO PARENS, THE STATEMENT 2611 * IS ARITHMETIC ASSIGNMENT 2612 * IF PARENS WERE DETECTED AND THE FIRST 2613 * NAME IS AN ARRAY, THE STATEMENT IS 2614 * ARITHMETIC ASSIGNMENT 2615 * OTHERWISE, IT IS A STATEMENT FUNCTION 2616 * IF NO = IS FOUND, THE STATEMENT IS 2617 * PROCESSED FURTHER IN STATEMENT ID 2618 04455 0 00 00000 C8T1 PZE 0 2619 04456 0 02 00662 C8 LDA CC SAVE CC 2620 04457 0 04 04576 STA C8X9 2621 04460 0 02 00717 LDA K101 2622 04461 0 04 04455 STA C8T1 T (1) = 1 2623 04462 140040 CRA 2624 04463 0 04 00651 STA ICSW ICSW = SIR 2625 04464 0 10 01256 C8A JST CH00 INPUT CHARACTER 2626 04465 0 02 00607 C8B LDA TC IF TC = ) 2627 04466 0 07 00671 SUB K4 2628 04467 100040 SZE 2629 04470 0 01 04502 JMP C8C 2630 04471 0 10 01256 JST CH00 INPUT CHAR 2631 04472 0 02 00643 C8B2 LDA DFL IF DFL NOT ZERO 2632 04473 100040 SZE 2633 04474 0 01 04465 JMP C8B GO TO C8B 2634 04475 0 02 04576 C8B4 LDA C8X9 RESTORE CC 2635 04476 0 04 00662 STA CC 2636 04477 0 02 00717 LDA K101 IPL 2637 04500 0 04 00651 STA ICSW ICSW = IPL 2638 04501 0 01 04602 JMP A9 GO TO STATEMENT ID 2639 04502 0 02 00607 C8C LDA TC IF TC NOT (, 2640 04503 0 07 00702 SUB K17 2641 04504 100040 SZE 2642 04505 0 01 04515 JMP C8D GO TO C8D 2643 04506 0 02 04455 LDA C8T1 T1 = T1 - 1 2644 04507 0 07 00717 SUB K101 2645 04510 0 04 04455 STA C8T1 2646 04511 100040 C8C4 SZE IF T1 = 0 2647 04512 0 01 04475 JMP C8B4 2648 04513 0 10 01521 JST DN00 INPUT DNA