FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 97

2860 04340 0 02 00650 NP25 LDA LIF 2861 04341 100040 SZE 2862 04342 0 01 04333 JMP NP16 2863 04343 0 02 00653 LDA LSTP IF LSTP + LSTN =O 2864 04344 0 06 00651 ADD LSTN 2865 04345 100040 SZE 2866 04346 0 01 04313 JMP NP10 2867 04347 0 12 00653 IRS LSTP 2868 04350 0 10 02615 JST ER00 'NO PATH' ERROR 2869 04351 150310 BCI 1,PH NO PATH LEADING TO THE STATEMENT 2870 04352 0 02 00634 NP30 LDA SPF IF SPF 0 0 2871 04353 100040 SZE 2872 04354 0 01 04372 JMP NP37 2873 04355 0 02 00067 LDA TC 2874 04356 0 04 04270 STA T2NP T2 = TC 2875 04357 0 02 00643 LDA RPL 2876 04360 0 04 00640 STA XST XST = RPL 2877 04361 0 02 00644 LDA BDF BLOCK DATA SUBPROGRAM FLAG 2878 04362 100040 SZE SKIP IF NOT BLOCK DATA 2879 04363 0 01 10344 JMP C2 GO TO RELATE COMMON 2880 04364 0 04 00625 STA A SET LISTING FOR OCTAL ADDR. 2881 04365 0 02 13026 LDA OMI5 JMP INSTRUCT 2882 04366 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 2883 04367 0 01 10344 JMP C2 GO TO RELATE COMMON 2884 04370 0 02 04270 NP35 LDA T2NP 2885 04371 0 04 00067 STA TC 2886 04372 0 02 04267 NP37 LDA T0NP 2887 04373 0 04 00634 STA SPF SPF = T0 2888 04374 0 07 00740 SUB K104 2889 04375 100040 SZE 2890 04376 0 01 04313 JMP NP10 2891 04377 0 04 00625 STA A SET LISTING FOR OCTAL ADDR. 2892 04400 0 02 00640 LDA XST LOCATION OF INITIAL JUMP 2893 04401 0 10 13257 JST OS00 OUTPUT STRING 2894 04402 0 02 00643 LDA RPL 2895 04403 0 04 00640 STA XST XST = RPL 2896 04404 0 01 04313 JMP NP10 GO TO NP10 2897 EJCT