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

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

5087 11050 143323 BCI 1,FS NOT FIRST STATEMENT IN SUBPROGRAM 5088 11051 0 10 02373 R2A JST NA00 INPUT NAME 5089 11052 0 02 00040 LDA A 5090 11053 0 04 00047 STA SBF SBF = A 5091 11054 140040 CRA ADDR=0, S/C CODE =0 5092 11055 0 10 14312 JST ON00 OUTPUT NAME BLOCK TO THE LOADER 5093 11056 0 02 00045 LDA MFL 5094 11057 100040 SZE 5095 11060 0 10 04026 JST DM00 DEFINE IM 5096 11061 0 02 00607 LDA TC 5097 11062 0 07 00756 SUB CRET IF IC NOT C/R 5098 11063 100040 SZE 5099 11064 0 01 11072 JMP R2C GO TO 5100 11065 0 02 00046 LDA SFF IF SFF = 0 5101 11066 101040 SNZ 5102 11067 0 01 11076 JMP R2D GO TO R2D 5103 11070 0 10 03116 JST ER00 ERROR 5104 11071 143301 BCI 1,FA FUNCTION HAS NO ARGUMENTS 5105 11072 140040 R2C CRA 5106 11073 0 04 00041 STA I I = 0 5107 11074 0 10 10525 JST GE00 GENERATE SUBPROGRAM ENTRY 5108 11075 0 01 04266 JMP A1 GO TO C/R TEST 5109 11076 140040 R2D CRA 5110 11077 0 10 14127 JST OA00 OUTPUT ABS 5111 11100 0 01 04271 JMP C6 GO TO CONTINUE 5112 * 5113 * 5114 * ****************** 5115 * *INTEGER * 5116 * *REAL * 5117 * *DOUBLE PRECISION* 5118 * *COMPLEX * 5119 * *LOGICAL * 5120 * ****************** 5121 * THE MODE FLAG (MFL) IS SET TO THE APPROPRIATE 5122 * VALUE AND ANY ARRAY INFO IS PROCESSED 5123 11101 0 02 00717 A3 LDA K101 INTEGER 5124 11102 0 01 11112 JMP A7A TMFL = INT 5125 11103 0 02 00720 A4 LDA K102 REAL 5126 11104 0 01 11112 JMP A7A TMFL = REAL 5127 11105 0 02 00724 A5 LDA K106 DOUBLE PRECISION 5128 11106 0 01 11112 JMP A7A TMFL = DBL 5129 11107 0 02 00723 A6 LDA K105 COMPLEX 5130 11110 0 01 11112 JMP A7A TMFL = CPX 5131 11111 0 02 00721 A7 LDA K103 LOGICAL 5132 11112 0 04 00045 A7A STA MFL TMFL = LOG 5133 11113 0 02 00072 LDA LSTF IF LSTF = 0, GO TO A7B (2) 5134 11114 101040 SNZ 5135 11115 0 01 11140 JMP A7B ELSE, 5136 11116 0 02 00662 LDA CC SAVE CC