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

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

2901 05140 0 10 02574 NP20 JST NR00 NON-REL TEST 2902 05141 0 01 05130 JMP NP15 2903 05142 0 02 00070 NP25 LDA LIF 2904 05143 100040 SZE 2905 05144 0 01 05135 JMP NP16 2906 05145 0 02 00073 LDA LSTP IF LSTP + LSTN =0 2907 05146 0 06 00071 ADD LSTN 2908 05147 100040 SZE 2909 05150 0 01 05115 JMP NP10 2910 05151 0 12 00073 IRS LSTP 2911 05152 0 10 03116 JST ER00 'NO PATH' ERROR 2912 05153 150310 BCI 1,PH NO PATH LEADING TO THE STATEMENT 2913 05154 0 02 00051 NP30 LDA SPF IF SPF 0 0 2914 05155 100040 SZE 2915 05156 0 01 05175 JMP NP37 2916 05157 0 02 00607 NP32 LDA TC 2917 05160 0 04 05072 STA T2NP T2 = TC 2918 05161 0 02 00060 LDA RPL 2919 05162 0 04 00055 STA XST XST = RPL 2920 05163 0 02 00061 LDA BDF BLOCK DATA SUBPROGRAM FLAG 2921 05164 100040 SZE SKIP IF NOT BLOCK DATA SUBPROGRAM 2922 05165 0 01 11375 JMP C2 GO TO RELATE COMMON 2923 05166 0 04 00040 STA A SET LISTING FOR OCTAL ADDR. 2924 05167 0 02 13733 LDA OMI5 JMP INSTRUCTION 2925 05170 0 04 00640 STA DF SET LISTING FOR SYMBOLIC INSTR. 2926 05171 0 10 14127 JST OA00 OUTPUT ABSOLUTE 2927 05172 0 01 11375 JMP C2 GO TO RELATE COMMON 2928 05173 0 02 05072 NP35 LDA T2NP 2929 05174 0 04 00607 STA TC 2930 05175 0 02 05071 NP37 LDA T0NP 2931 05176 0 04 00051 STA SPF SPF = T0 2932 05177 0 07 00722 SUB K104 2933 05200 100040 SZE 2934 05201 0 01 05115 JMP NP10 2935 05202 0 04 00040 NP40 STA A SET LISTING FOR OCTAL ADDR. 2936 05203 0 02 00055 LDA XST LOCATION OF INITIAL JUMP 2937 05204 0 10 14135 JST OS00 OUTPUT STRING 2938 05205 0 02 00060 LDA RPL 2939 05206 0 04 00055 STA XST XST = RPL 2940 05207 0 01 05115 JMP NP10 GO TO NP10 2941 * 2942 * ***************** 2943 * *IF( PROCESSOR* 2944 * ***************** 2945 * ARITHMETIC IF ($1 $2 $3) 2946 * IF $2 NOT = $3, JZE $2 2947 * IF $3 NOT = $1, JPL $3 2948 * (IF $1 NOT = NEXT ST NO., JMP $1) LATER 2949 * LOGICAL IF 2950 * OUTPUT JZE 77777 (FOR STRINGING AROUND