FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 93

2717 * 2718 * 2719 * ************************** 2720 * *STATEMENT IDENTIFICATION* 2721 * ************************** 2722 * READ FOUR CHARACTERS AND DETERMINE CORRECT ROUTINE 2723 * FOR PROCESSING, THEN CHECK SPELLING ON REST 2724 04154 0 00 00000 A9T1 PZE 0 2725 04155 0 00 00000 A9T2 PZE 0 2726 04156 0 00 00000 A9T3 PZE 0 2727 000046 STMT EQU 38 NUMBER OF STATEMENTS 2728 04157 0 02 00740 A9 LDA K104 2729 04160 0 10 01253 JST IA00 INPUT (4) CHARS 2730 04161 0 02 01333 LDA IBUF 2731 04162 0 04 00051 STA NAMF NAMF = IBUF 2732 04163 0 02 01334 LDA IBUF+1 2733 04164 0 04 00052 STA NAMF+1 2734 04165 0 35 04266 LDX A9Z9 INITIALIZE FOR LOOP THRU STMT. NAMES 2735 04166 0 02 00051 A9A LDA NAMF 2736 04167 1 07 14312 SUB A9X1+STMT,1 2737 04170 100040 SZE 2738 04171 0 01 04246 JMP A9F READ IN REST OF 2739 04172 0 02 00052 LDA NAMF+1 CHECK REST OF SPELLING FOR 2740 04173 1 07 14360 SUB A9X2+STMT,1 2741 04174 100040 SZE A MATCH ON 4 CHARACTERS 2742 04175 0 01 04246 JMP A9F NOT FOUND 2743 04176 0 02 00000 LDA 0 TEST FOR SPECIAL CASE OF 2744 04177 0 05 04266 ERA A9Z9 INTEGER V.S. INTERRUPT 2745 04200 100040 SZE X 2746 04201 0 01 04207 JMP *+6 FIRST 4 CHARACTERS ARE NOT 'INTE' 2747 04202 0 10 02346 JST XN00 EXAMINE NEXT CHARACTER 2748 04203 0 02 00067 LDA TC TEST FOR 'G' 2749 04204 0 05 04261 ERA KACG X 2750 04205 100040 SZE X 2751 04206 0 01 04246 JMP A9F NO ... HOPEFULLY IT7S AN INTERRUPT STMT 2752 04207 1 02 14474 LDA A9X4+STMT,1 2753 04210 0 03 00764 ANA K133 2754 04211 0 04 04154 STA A9T1 T1 = NUMBER OF REMAINING CHARACTERS 2755 04212 1 02 14426 LDA A9X3+STMT,1 LEFT TO CHECK 2756 04213 0400 63 LRL 13 2757 04214 000201 IAB 2758 04215 0404 75 LGR 3 2759 04216 0 04 04155 STA A9T2 T2 = ADDRESS OF ROUTINE 2760 04217 000201 IAB 2761 04220 0 10 04272 JST NP00 FIRST NON-SPECIFIC. CHECK -(A) = 2762 04221 0 02 04154 A9B LDA A9T1 HIERARCHY CODE 2763 04222 100040 SZE 2764 04223 0 01 04225 JMP A9C MUST CHECK MORE CHARACTERS 2765 04224 -0 01 04155 JMP* A9T2 FINISHED CHARACTER CHECK. EXIT TO 2766 * SPECIFIC ANALYZER.