FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 155

5021 * 5022 * 5023 * ****************** 5024 * *INTEGER * 5025 * *REAL * 5026 * *DOUBLE PRECISION* 5027 * *COMPLEX * 5028 * *LOGICAL * 5029 * ****************** 5030 * THE MODE FLAG (MFL) IS SET TO THE APPROPRIATE 5031 * VALUE AND ANY ARRAY INFO IS PROCESSED 5032 10067 0 02 00735 A3 LDA K101 INTEGER 5033 10070 0 01 10100 JMP A7A TMFL = INT 5034 10071 0 02 00736 A4 LDA K102 REAL 5035 10072 0 01 10100 JMP A7A TMFL = REAL 5036 10073 0 02 00742 A5 LDA K106 DOUBLE PRECISION 5037 10074 0 01 10100 JMP A7A TMFL = DBL 5038 10075 0 02 00741 A6 LDA K105 COMPLEX 5039 10076 0 01 10100 JMP A7A TMFL = CPX 5040 10077 0 02 00737 A7 LDA K103 LOGICAL 5041 10100 0 04 00630 A7A STA MFL TMFL = LOG 5042 10101 0 02 00652 LDA LSTF IF LSTF = 0, GO TO A7B (2) 5043 10102 101040 SNZ 5044 10103 0 01 10125 JMP A7B ELSE, 5045 10104 0 02 00656 LDA CC SAVE CC 5046 10105 0 04 10131 STA A790 5047 10106 140040 CRA 5048 10107 0 04 00705 STA ICSW 5049 10110 0 10 01350 JST DN00 INPUT DNA 5050 10111 0 02 10131 LDA A790 RESTORE CC 5051 10112 0 04 00656 STA CC 5052 10113 0 04 00705 STA ICSW ICSW = IPL 5053 10114 0 02 00037 LDA DFL IF DFL NOT = 0, GO TO A7B 5054 10115 100040 SZE 5055 10116 0 01 10125 JMP A7B 5056 10117 0 02 00774 LDA TID IF ID = FUNCTI, 5057 10120 0 07 14251 SUB A7K GO TO A9 5058 10121 101040 SNZ SKIP IF NOT 'FUNCTION' 5059 10122 0 01 04157 JMP A9 FUNCTION PROCESSOR 5060 10123 0 10 02615 JST ER00 CONSTRUCTION ERROR 5061 10124 152306 BCI 1,TF 'TYPE' NOT FOLLOWED BY 'FUNCTION' OR LIST 5062 10125 0 10 02242 A7B JST NA00 INPUT NAME 5063 10126 0 02 00630 LDA MFL 5064 10127 0 10 03464 JST DM00 DEFINE IM 5065 10130 0 01 10226 JMP B7 GO TO INPUT DIMENSION 5066 10131 0 00 00000 A790 PZE 0 5067 EJCT