FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 96

2810 * 2811 * 2812 * ********************** 2813 * *FIRST NON-SPEC CHECK* 2814 * ********************** 2815 * AT FIRST SHIFT IN LEVEL FROM ZERO, WRAP-UP 2816 * SPECIFICATION STATEMENTS 2817 04267 0 00 00000 T0NP PZE 0 2818 004267 NPT0 EQU T0NP 2819 04270 0 00 00000 T2NP PZE 0 2820 04271 0 00 00000 T1NP PZE 0 2821 04272 0 000000 NP00 DAC ** 2822 04273 0 04 04267 STA NPT0 T0 = (A) 2823 04274 0 02 00625 LDA A 2824 04275 0 04 04271 STA T1NP T1 = A 2825 04276 0 02 04267 LDA NPT0 2826 04277 0 11 00743 CAS K107 =7 2827 04300 0 01 04302 JMP *+2 2828 04301 0 01 04313 JMP NP10 TRACE STMNT. (MAY OCCUR ANYWHERE) 2829 04302 0 11 00634 CAS SPF T0 . G.R. SPF, GO TO NP30 2830 04303 0 01 04352 JMP NP30 T0 = SPF, GO TO NP25 2831 04304 0 01 04340 JMP NP25 2832 04305 0 02 00067 LDA TC IF TC = C/R 2833 04306 0 07 00702 SUB CRET GO TO NP10 2834 04307 101040 SNZ 2835 04310 0 01 04313 JMP NP10 2836 04311 0 10 02615 JST ER00 ELSE, ILLEGAL STATEMENT 2837 04312 142730 BCI 1,EX SPECIFICATION STATEMENT ADPEARS AFTER 2838 * SPECIFICATION STATEMENT CLEAN-UP 2839 04313 0 02 00651 NP10 LDA LSTN 2840 04314 0 04 00625 STA A A = LSTN 2841 04315 101040 SNZ 2842 04316 0 01 04333 JMP NP16 IF ZERO, RETURN 2843 04317 0 10 03317 JST FA00 FETCH ASSIGNS 2844 04320 0 02 00737 LDA K103 STR-REL 2845 04321 0 07 00026 SUB AT 2846 04322 100040 SZE 2847 04323 0 01 04336 JMP NP20 2848 04324 0 02 00025 LDA AF 2849 04325 0 10 13257 JST OS00 OUTPUT STRING RPL 2850 04326 0 10 03604 NP15 JST LO00 DEFINE LOCATION 2851 04327 0 02 00051 LDA NAMF 2852 04330 0 07 14264 SUB A9X5 2853 04331 100040 SZE 2854 04332 0 10 12754 JST TRSE OUTPUT TRACE COUPLING 2855 04333 0 02 04271 NP16 LDA T1NP 2856 04334 0 04 00625 STA A 2857 04335 -0 01 04272 JMP* NP00 2858 04336 0 10 02372 NP20 JST NR00 NON-REL TEST 2859 04337 0 01 04326 JMP NP15