FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 98

2898 * 2899 * ***************** 2900 * *IF( PROCESSOR* 2901 * ***************** 2902 * ARITHMETIC IF ($1 $2 $3) 2903 * IF $2 NOT = $3, JZE $2 2904 * IF $3 NOT = $1, JPL $3 2905 * (IF $1 NOT = NEXT ST NO., JMP $1) 2906 * LOGICAL IF 2907 * OUTPUT JZE 77777 (FOR STRINGING AROUND 2908 * IMBEDDED STATEMENT) 2909 04405 0 10 02224 V3 JST II00 INPUT ITEM 2910 04406 101040 SNZ 2911 04407 0 01 04415 JMP V310 IM=0 (POSSIBLE UNARY + OR -) 2912 04410 0 02 00037 LDA DFL 2913 04411 100040 SZE 2914 04412 0 01 04415 JMP V310 FIRST ITEM IN EXPRESSION O.K. 2915 04413 0 10 02615 V308 JST ER00 ERROR.....IF(SENSE SWITCH..ETC)..... 2916 04414 144706 BCI 1,IF ILLEGAL IF STATEMENT TYPE 2917 04415 140040 V310 CRA (A)=0 2918 04416 0 10 06225 JST EX00 EXPRESSION EVALUATOR 2919 04417 0 02 00657 LDA K4 2920 04420 0 10 02352 JST TS00 )-TEST 2921 04421 140040 CRA 2922 04422 0 04 00625 STA A SET A TO SPECIAL (IF) ENTRY IN DATA POOL 2923 04423 0 04 00000 STA 0 2924 04424 0 02 00630 LDA MFL SET MODE OF EXPRESSIOL INTO SPECIAL (IF) 2925 04425 0414 67 LGL 9 2926 04426 1 04 17400 STA DP,1 2927 04427 0 10 12754 JST TRSE OUTPUT TRACE COUPLING (IF NECESSARY) 2928 04430 0 02 00630 LDA MFL CHECK MODE FLAG FOR LOGICAL 2929 04431 0 07 00737 SUB K103 2930 04432 100040 SZE 2931 04433 0 01 04450 JMP V320 ARITHMETIC IF 2932 04434 0 02 00650 LDA LIF 2933 04435 100040 SZE 2934 04436 0 01 04413 JMP V308 2935 04437 0 04 00025 STA AF SET ADDR OF SNZ AND JMP INSTR TO 00000 2936 04440 0 02 13034 LDA OMJ2 =SNZ INSTR. 2937 04441 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 2938 04442 0 02 00643 LDA RPL SET LIF=CURRENT +DDR. (STRING BACK) 2939 04443 0 04 00650 STA LIF 2940 04444 0 02 13026 LDA OMI5 =JMP 0 INSTR. 2941 04445 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 2942 04446 0 10 02346 JST XN00 GO TO NEXT INPUT LINE 2943 04447 0 01 04032 JMP C8 GO TO STATEMENT SCAN 2944 * 2945 04450 0 07 00736 V320 SUB K102 CHECK FOR MODE = COMPLEX 2946 04451 101040 SNZ 2947 04452 0 01 04413 JMP V308 ERROR....COMPLEX MODE EXPRESSION