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

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

2649 04514 0 01 04472 JMP C8B2 GO TO C8B2 2650 04515 0 02 00607 C8D LDA TC IF TC = , 2651 04516 0 11 00752 CAS K134 ='17 ('FINISHED' CODE FOR COMMA) 2652 04517 0 01 04521 JMP *+2 2653 04520 0 01 04524 JMP C8D2 TC = COMMA 2654 04521 0 07 00672 SUB K5 2655 04522 100040 SZE 2656 04523 0 01 04526 JMP C8E 2657 04524 0 02 04455 C8D2 LDA C8T1 GO TO C8C4, 2658 04525 0 01 04511 JMP C8C4 2659 04526 0 02 00607 C8E LDA TC ELSE, IF TC = '/' 2660 04527 0 07 00674 SUB K9 2661 04530 101040 SNZ 2662 04531 0 01 04475 JMP C8B4 GO TO C8B4 2663 04532 0 02 00607 LDA TC 2664 04533 0 07 00703 SUB K18 IF NOT = , 2665 04534 100040 SZE 2666 04535 0 01 04464 JMP C8A GO TO C8A 2667 04536 0 02 00725 LDA K107 INPUT 7 CHARACTERS 2668 04537 0 10 01355 JST IA00 2669 04540 0 02 04576 LDA C8X9 RESTORE CC 2670 04541 0 04 00662 STA CC 2671 04542 0 02 00717 LDA K101 IPL 2672 04543 0 04 00651 STA ICSW ICSW = IPL 2673 04544 0 02 00607 LDA TC 2674 04545 0 07 00672 SUB K5 IF TC NOT, 2675 04546 100040 SZE 2676 04547 0 01 04563 JMP C8G GO TO C8G 2677 04550 0 02 00720 LDA K102 ELSE, INPUT 2 CHARS 2678 04551 0 10 01355 JST IA00 2679 04552 0 02 01501 LDA IBUF IF (A) = 'DO' 2680 04553 0 07 00704 SUB K19 2681 04554 101040 SNZ 2682 04555 0 01 04560 JMP *+3 2683 04556 0 10 03116 JST ER00 2684 04557 141715 BCI 1,CM COMMA OUTSIDE PARENTHESES, NOT IN DO STMNT, 2685 04560 0 02 00722 LDA K104 2686 04561 0 10 05074 JST NP00 FIRST NON-SPEC CHECK 2687 04562 0 01 05510 JMP C9 GO TO DO 2688 04563 0 02 04455 C8G LDA C8T1 1 IF NO ( TO LEFT OF EQUALS 2689 04564 100040 SZE 2690 04565 0 01 06321 JMP G2 ARITHMETIC ASSIGNMENT STATEMENT 2691 04566 0 10 02520 JST SY00 INPUT SYMBOL 2692 04567 0 02 04576 LDA C8X9 2693 04570 0 04 00662 STA CC RESTORE CC 2694 04571 0 02 00655 LDA IU IF IU = SUBR 2695 04572 0 07 00721 SUB K103 2696 04573 100040 SZE 2697 04574 0 01 06367 JMP G1 GO TO ARITH ST. FUNCT, 2698 04575 0 01 06321 JMP G2 OTHERWISE = ASSIGNMENT STATEMENT