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

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

2699 04576 0 00 00000 C8X9 PZE 0 2700 * 2701 * 2702 * ************************** 2703 * *STATEMENT IDENTIFICATION* 2704 * ************************** 2705 * READ FOUR CHARACTERS AND DETERMINE CORRECT ROUTINE 2706 * FOR PROCESSING, THEN CHECK SPELLING ON REST 2707 04577 0 00 00000 A9T1 PZE 0 2708 04600 0 00 00000 A9T2 PZE 0 2709 04601 0 00 00000 A9T3 PZE 0 2710 04602 0 02 00722 A9 LDA K104 2711 04603 0 10 01355 JST IA00 INPUT (4) CHARS 2712 04604 0 02 01501 LDA IBUF 2713 04605 0 04 00570 STA NAMF NAMF = IBUF 2714 04606 0 02 01502 LDA IBUF+1 2715 04607 0 04 00571 STA NAMF+1 2716 04610 0 02 05070 LDA A9Z9 INITIALIZE INDEX FOR LOOP 2717 04611 0 04 00000 STA XR THROUGH THE STATEMENT NAMES 2718 04612 0 02 00570 A9A LDA NAMF 2719 04613 1 07 04732 SUB A9X1+30,1 2720 04614 100040 SZE 2721 04615 0 01 04661 JMP A9F READ IN REST OF 2722 04616 0 02 00571 LDA NAMF+1 CHECK REST OF SPELLING FOR 2723 04617 1 07 04770 SUB A9X2+30,1 2724 04620 100040 SZE A MATCH ON 4 CHARACTERS 2725 04621 0 01 04661 JMP A9F NOT FOUND 2726 04622 1 02 05070 LDA A9X4+30,1 2727 04623 0 03 10027 ANA K133 2728 04624 0 04 04577 STA A9T1 T1 = NUMBER OF REMAINING CHARACTERS 2729 04625 1 02 05026 LDA A9X3+30,1 LEFT TO CHECK 2730 04626 0400 63 LRL 13 2731 04627 000201 IAB 2732 04630 0404 75 LGR 3 2733 04631 0 04 04600 STA A9T2 T2 = ADDRESS OF ROUTINE 2734 04632 000201 IAB 2735 04633 0 10 05074 JST NP00 FIRST NON-SPECIFIC. CHECK -(A) = 2736 04634 0 02 04577 A9B LDA A9T1 HIERARCHY CODE 2737 04635 100040 SZE 2738 04636 0 01 04640 JMP A9C MUST CHECK MORE CHARACTERS 2739 04637 -0 01 04600 JMP* A9T2 FINISHED CHARACTER CHECK, EXIT TO 2740 * SPECIFIC ANALYZER. 2741 04640 0 07 00724 A9C SUB K106 2742 04641 100400 SPL 2743 04642 0 01 04654 JMP A9E 2744 04643 0 04 04577 STA A9T1 2745 04644 0 02 00724 LDA K106 REMAINING SPELLING 1S CHECKED. 2746 04645 0 04 04601 A9D STA A9T3 2747 04646 0 10 01355 JST IA00 2748 04647 0 07 04601 SUB A9T3