FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 27

0923 * 0924 * 0925 * ***************** 0926 * *FINISH OPERATOR* 0927 * ***************** 0928 * WRAP UP LOGICAL/RELATIONAL OPERATORS 0929 * 0930 01307 0 000000 FN00 DAC ** 0931 01310 0 02 00037 LDA DFL IF DFL NOT . , 0932 01311 0 04 01333 STA IBUF 0933 01312 0 07 00661 SUB K10 0934 01313 100040 SZE 0935 01314 0 01 01317 JMP FN05 NOT REL OP 0936 01315 0 02 00740 FN82 LDA K104 INPUT NEXT FOUR CHARACTERS 0937 01316 0 10 01253 JST IA00 0938 01317 0 35 00671 FN05 LDX K110 USE TABLE TO CONVERT OPERATOR 0939 01320 1 02 00736 FN10 LDA FN90+17,1 0940 01321 0 11 01333 CAS IBUF 0941 01322 0 01 01324 JMP *+2 0942 01323 0 01 01330 JMP FN20 0943 01324 0 12 00000 IRS 0 0944 01325 0 01 01320 JMP FN10 0945 01326 0 02 00067 LDA TC 0946 01327 -0 01 01307 JMP* FN00 0947 01330 1 02 00756 FN20 LDA K101+17,1 FOUND A LOGICAL OPERATOR 0948 01331 0 04 00067 STA TC SET INTO TC 0949 01332 -0 01 01307 JMP* FN00 0950 EJCT