FORTRAN-86 COMPILER 04/23/95 06:01:02 PAGE 1 FISTEST2.FTN DOS 5.0 (046-N) FORTRAN-86 COMPILER X420 COMPILER INVOKED BY: D:\F86\FORT86.EXE FISTEST2.FTN CO XR PW(80) PL(63) MOD387 SR(I4) IE 1 c FISTEST2.FTN is a Fortran program to test the ix87's FIST 2 c ( Float->Integer STore ) instruction upon INTEGER*iw integers 3 c with parameter iw = 2 . Assumes floating-point +, -, *, etc. 4 c correct. ~~~~~~ All variables are declared explicitly. 5 IMPLICIT NONE 6 INTEGER*2 ipr, ip(3), iw, iwb, jp, ipcw(3), icw, kcw, kflag 7 INTEGER*4 indef 8 REAL*4 tw 9 REAL*10 sb(3), Infinity, NaN 10 PARAMETER( iw = 2 , iwb = 8*iw ) 11 c ~~~~~~ ***** 12 INTEGER*2 i, i2FIST, in 13 c ... ~~ ~~ ... Why can't INTEGER*iw work here ? ***** 14 DATA in / Z'8000' / 15 EXTERNAL i2FIST 16 c ~~ ~~~~ 17 c :.. iw = width in bytes of INTEGERs tested, 2 or 4 but not 8. 18 c : iwb = 8*iw = width in bits of INTEGERs under test. ~~~~~~~ 19 c : tw = INTEGER*iw Overflow threshold: 2.0**(iwb-1) . 20 c : indef = in = -tw = INTEGER*iw INDEFINITE . 21 c : i will be the INTEGER*iw integer under test. 22 c : ipr = ip(jp) = rounding precision in bits, for jp = 1, 2, 3 . 23 c : sb(jp) = smallest positive subnormal for each precision. 24 c : kflag = read-out of ix87's status register's bottom 7 bits. 25 c : ipcw(jp) = rounding prec'n control words, all traps disabled. 26 c : icw = ipcw(jp) + 1024*kcw for ... 27 c :.. kcw = {0, 1, 2, 3} to explore all rounding directions: 28 CHARACTER*8 dirns(0:3), dirn 29 COMMON dirn, tw, indef, ipr 30 DATA dirns / ' Nearest', ' Down ', ' Up ', ' To Zero' / 31 c 32 c ... for REAL*4, REAL*8, REAL*10 resp. 33 DATA ip / 24, 53, 64 / 34 DATA ipcw / Z'003F', Z'023F', Z'033F' / 35 c :.. DATA sb / Z'3F6A8000000000000000', Z'3BCD8000000000000000', 36 c : X Z'0001' / 37 c : DATA Infinity / Z'7FFF8000000000000000 / 38 c : DATA NaN / Z'7FFFC000000000000000 / 39 c :.. Since this compiler rebuffs hex string DATA for REALs, ... 40 INTEGER*2 isb(15), infy(5), iNaN(5) 41 EQUIVALENCE (isb, sb), (infy, Infinity), (iNaN, NaN) 42 DATA isb / 0, 0, 0, Z'8000', Z'3F6A', 0, 0, 0, Z'8000', Z'3BCD' 43 X , 1, 0, 0, 0, 0 / 44 DATA infy / 0, 0, 0, Z'8000', Z'7FFF' / 45 DATA iNaN / 0, 0, 0, Z'C000', Z'7FFF' / 46 INTEGER*2 ionexp, Invalid, Inexact 47 DATA ionexp, Invalid, Inexact / Z'3FFF', 1, Z'20' / 48 c 49 c :.. vp = 2.0**(ip(jp) - 1) for rounding a float to an integer. 50 c : x = 2.0, 4.0, 8.0, ..., 8*tw and -2.0, -4.0, -8.0, ..., -8*tw. 51 c : y = x + { -1.5, -1.0, -0.5, 0.0, 0.5, 1.0, 1.5 } = 0.5*iy + x 52 c : z = { -eps, 0.0, eps } = eps*iz where eps = one ulp of y . 53 c : v = { -vp, vp } as iv = {0, 1} . 54 c :.. ( All floating-point expressions are evaluated in REAL*10 .) 55 REAL*4 v, vp FORTRAN-86 COMPILER 04/23/95 06:01:02 PAGE 2 FISTEST2.FTN @MAIN 56 REAL*10 dummy, u, w, x, x2, y, z 57 INTEGER*2 iv, iy, iz 58 LOGICAL*1 Lf, Li, Lk 59 CHARACTER*26 tnr 60 DATA tnr / ' Testing arguments near ' / 61 c 62 c ... The next few declarations are determined by the format of the 63 c : machine's floating-point arithmetic. Intel's is five 2-byte 64 c : words wide, with sign bit and biased exponent in the first word, 65 c : and with an explicit leading 1 in its 64th sig. bit. The 66 c : EQUIVALENCEd variables are used to generate z = one ULP of y , 67 c :.. needed because this compiler lacks IEEE 754 function NextAfter. 68 INTEGER*2 jz(5), jy(5) 69 EQUIVALENCE (z, jz), ( y, jy) 70 c --- <- y's exp. -><--- y's sig. bits ---> 71 c --- <- jy(5) ->< jy(4),jy(3),jy(2),jy(1) > To access exponent. 72 c --- <- jz exp. -><1000 ... ... 000> To generate 1 ulp. 73 c 74 c ... Initialization: 75 DATA Lf, dummy / .TRUE., 0.0 / 76 OPEN( *, CARRIAGE='FORTRAN' ) 77 PRINT *, ' FISTEST2 results:' 78 PRINT *, ' Testing Intel x87 FIST to INTEGER*', iw 79 PRINT * 80 indef = in 81 c ... In case the compiler's exponentiation is unreliable, ... 82 tw = 1024 83 DO 100, iz = 12, iwb 84 tw = tw+tw 85 100 END DO 86 c ... End DO-loop on iz with tw = 2.0**(iwb - 1) . 87 IF ( in .NE. -tw ) THEN 88 PRINT *, ' INTEGER -> REAL conversion failure:' 89 PRINT *, ' INTEGER = ', in, ', REAL =', -tw 90 STOP 91 END IF 92 DO 800, jp = 1, 3 93 ipr = ip(jp) 94 vp = 1024 95 DO 200, iz = 12, ipr 96 vp = vp+vp 97 200 END DO 98 c ... End DO-loop on iz with vp = 2.0**(ipr-1) . 99 v = vp 100 PRINT *, ipr, ' sig. bits precn.; vp =', vp 101 DO 700, kcw = 0, 3 102 icw = ipcw(jp) + 1024*kcw 103 c ... Set floating-point control word for precision and direction: 104 CALL LDCW87( icw ) 105 dirn = dirns(kcw) 106 PRINT *, ' Rounding direction: ', dirn 107 c 108 c ... Test float->integer for signed Zeros : 109 PRINT *, ' ', tnr, ' Zero.' 110 w = 0.0 111 DO 300, iv = 0, 1 112 w = -w 113 c ========> Here is the FIST instruction under test: <========== 114 i = i2FIST(w, kflag) 115 Li = (i .NE. 0) .OR. (kflag .NE. 0 ) FORTRAN-86 COMPILER 04/23/95 06:01:02 PAGE 3 FISTEST2.FTN @MAIN 116 IF ( Li ) CALL SayFail( w, w, INT4(i), kflag, Lf ) 117 300 END DO 118 c 119 c ... Test float->integer for tiny floats: 120 PRINT *, '+ ', tnr, ' Underflow.' 121 u = sb(jp) 122 DO 460 WHILE ( u .LT. 1 ) 123 DO 430, iy = 1, 7, 2 124 c ... Fractions exercise up to 4 Guard-Round-Sticky bits: 125 x = iy*u 126 DO 400, iv = 0, 1 127 c ... Test both negative and positive cases: 128 x = -x 129 v = -v 130 c ========> Here is the FIST instruction under test: <======= 131 i = i2FIST(x, kflag) 132 c ... Rounding the next FADD should give the same result: 133 w = (v + x) - v 134 Li = (i .NE. w) .OR. (kflag .NE. Inexact) 135 IF ( Li ) CALL SayFail( x, w, INT4(i), kflag, Lf ) 136 400 END DO 137 c ... End DO-loop on iv = {0, 1} for signed tiny things. 138 430 END DO 139 c ... End DO-loop on iy = { 1, 3, 5, 7 } 140 u = u+u 141 460 END DO 142 c ... End WHILE-loop on tiny values u < 1 . 143 c 144 c ... Test float->integer for floats nearly powers of 2.0 : 145 x = 2.0 146 x2 = 4.0 147 DO 590 WHILE ( x .LT. x2 ) 148 c Run x through 2.0, 4.0, 8.0, ... : 149 c ... This line overwrites itself repeatedly: 150 IF ( x .LT. 1.0E19 ) PRINT 1, tnr, x 151 1 FORMAT ('+ ', A, F20.1 ) 152 DO 560, iy = -3, 3 153 y = 0.5*iy + x 154 DO 530, iz = -1, 1 155 IF ( iz .NE. 0 ) THEN 156 c ... Compute z = one ULP of y : 157 z = y 158 iv = 1 159 c ... Set the exponent of z to the exponent of 1.0 : 160 jz(5) = ionexp 161 c ... Is y is a power of 2 to be decremented ? If so, 162 IF ( (z .EQ. 1.0) .AND. (iz .LT. 0) ) iv = 0 163 z = 1 164 jz(5) = jy(5) - ipr + iv 165 u = y + iz*z 166 ELSE 167 u = y 168 END IF 169 c ... Expect u to have been computed exactly. 170 DO 500, iv = 0, 1 171 c ... Test both negative and positive cases: 172 v = -v 173 u = -u 174 c ========> Here is the FIST instruction under test: <======= 175 i = i2FIST(u, kflag) FORTRAN-86 COMPILER 04/23/95 06:01:02 PAGE 4 FISTEST2.FTN @MAIN 176 c ... Rounding the next FADD should give the same result: 177 w = u 178 IF ( ABS(w) .LT. vp ) w = (v + w) - v 179 c 180 c :.. Table of Fistest Pass/Fail cases: 181 c : 182 c : i Indef w kflag P/F P = Pass, F = Fail 183 c : ~~~ ~~~~~ ~~~~ ~~~~~ ~~~ Indef = Integer Indefinite 184 c : w --- u 0 P 185 c : w --- u ! 0 F ! = Not 186 c : w --- ! u Inx P Inx = Inexact 187 c : w --- ! u ! Inx F big = Out of Integer Range 188 c : ! w Y big Ivl P Ivl = Invalid etc. 189 c : ! w Y big ! Ivl F Y = yes, N = no 190 c : ! w Y ! big --- F --- = Don't Care 191 c :.. ! w N --- --- F 192 c 193 IF ( i .EQ. w ) THEN 194 Lk = kflag .NE. Inexact 195 Li = w .NE. u 196 Li = ((.NOT.Li).AND.(kflag.NE.0)) .OR. (Li.AND.Lk) 197 ELSE 198 Li = (i.NE.in) .OR. ((w .LT. tw).AND.(w .GE. -tw)) 199 Li = ((kflag.AND.Invalid) .NE. Invalid) .OR. Li 200 END IF 201 IF ( Li ) CALL SayFail( u, w, INT4(i), kflag, Lf ) 202 c ... ... because the FIST instruction failed. 203 c ... Ends case of test failure. 204 500 END DO 205 c ... Ends DO-loop on v = { -vp, vp } 206 530 END DO 207 c ... Ends DO-loop on z = { -eps, 0, eps } 208 560 END DO 209 c ... ENDS DO-loop on y = {-1.5, -1., -0.5, 0., 0.5, 1., 1.5} 210 x = x2 211 x2 = x + x 212 590 END DO 213 c ... Ends WHILE-loop on x = { 2.0, 4.0, 8.0, ... }. 214 c 215 c ... Test float->integer for Infinity and NaN : 216 PRINT *, '+ ', tnr, ' Infinity and NaN.' 217 x = Infinity 218 DO 650, iy = 0, 1 219 DO 600, iv = 0, 1 220 c ... Test both negative and positive cases: 221 x = -x 222 c ========> Here is the FIST instruction under test: <========= 223 i = i2FIST(x, kflag) 224 Li = (i .NE. in) .OR. (kflag .NE. Invalid) 225 IF ( Li ) CALL SayFail( x, x, INT4(i), kflag, Lf ) 226 600 END DO 227 c ... End DO-loop on iv = {0, 1} for signed Infinities, NaNs. 228 x = NaN 229 650 END DO 230 c ... End DO-loop on iy = {0, 1} for Infinities and NaNs. 231 c 232 PRINT * 233 700 END DO 234 c ... Ends DO-loop on kcw = { 0, 1, 2, 3 } 235 IF (Lf) PRINT *, '+ FISTEST2 tested O.K. at precn.', ipr FORTRAN-86 COMPILER 04/23/95 06:01:02 PAGE 5 FISTEST2.FTN @MAIN 236 Lf = .TRUE. 237 PRINT *, ' . . . . . . . . . . . . . . . . . . . . . . .' 238 PRINT * 239 800 END DO 240 c ... Ends DO-loop on jp = { 1, 2, 3 } 241 PRINT *, ' (C) W. Kahan 21 April 1995' 242 END FORTRAN-86 COMPILER 04/23/95 06:01:02 PAGE 6 FISTEST2.FTN @MAIN 243 244 SUBROUTINE SayFail( u, w, i4, kflag, Lf ) 245 c ... The FIST instruction failed: 246 IMPLICIT NONE 247 REAL*10 u, w 248 INTEGER*4 i4, indef 249 LOGICAL*1 Lf 250 INTEGER*2 ipr, kflag 251 CHARACTER*8 dirn 252 REAL*4 tw 253 COMMON dirn, tw, indef, ipr 254 PRINT 1, ' FISTEST2 caught u =', u, u 255 1 FORMAT ( 1X, A, 1P E26.17, Z22 ) 256 PRINT *, ipr, ' sig. bits rounded', dirn 257 PRINT 2, ' u rounds to Integer w =', w, w 258 2 FORMAT ( 1X, A, F20.1, Z22 ) 259 PRINT 3, ' FIST converts u to i =', i4, i4 260 3 FORMAT ( 1X, A, I12, Z11 ) 261 IF (.NOT.( (w .LT. tw) .AND. (w .GE. -tw) ) ) THEN 262 PRINT *, ' i should be INTEGER INDEFINITE ', indef 263 END IF 264 PRINT 4, ' Floating-Point Status Word = ', kflag 265 4 FORMAT ( 1X, A, Z5, // ) 266 Lf = .FALSE. 267 RETURN 268 END FORTRAN-86 COMPILER 04/23/95 06:01:02 PAGE 7 FISTEST2.FTN SAYFAIL 269 FORTRAN-86 COMPILER PROGRAM CROSS-REFERENCE 04/23/95 06:01:02 PAGE 8 FISTEST2.FTN @MAIN DEFN NAME ADDRESS DATA TYPE ATTRIBUTES ---- ---- ------- --------- ---------- //. . . . . . . . . . . . . . . COMMON SUBSYSTEM NAM -E----- 29 //. . . . . . . . . . . . . . . COMMON BLOCK, LENGTH - = 12H 29 5 @MAIN . . . . . . . . . . . . . PROGRAM UNIT NAME 5 ABS . . . . . . . . . . . . . . REAL*4 FUNCTION, GENERIC, I -NTRINSIC 178 28 DIRN. . . . . . . . . . . . . . 0H E CHARACTER*8 VARIABLE, IN COMMON -// 28 29 105 106 28 DIRNS . . . . . . . . . . . . . BEH D CHARACTER*8 VARIABLE, INITIALIZE -D, DIMENSIONED 28 30 105 56 DUMMY . . . . . . . . . . . . . 2CH D TEMPREAL VARIABLE, INITIALIZE -D 56 75 12 I . . . . . . . . . . . . . . . 1EH D INTEGER*2 VARIABLE 12 114 115 116 131 134 135 175 193 198 201 223 224 225 12 I2FIST. . . . . . . . . . . . . INTEGER*2 FUNCTION 12 15 114 131 175 223 6 ICW . . . . . . . . . . . . . . 18H D INTEGER*2 VARIABLE 6 102 104 12 IN. . . . . . . . . . . . . . . EH D INTEGER*2 VARIABLE, INITIALIZE -D 12 14 80 87 89 198 224 40 INAN. . . . . . . . . . . . . . 4AH D INTEGER*2 VARIABLE, INITIALIZE -D, DIMENSIONED, EQUI -VALENCED 40 41 45 7 INDEF . . . . . . . . . . . . . CH E INTEGER*4 VARIABLE, IN COMMON -// 7 29 80 46 INEXACT . . . . . . . . . . . . 16H D INTEGER*2 VARIABLE, INITIALIZE -D 46 47 134 194 9 INFINITY. . . . . . . . . . . . 72H D TEMPREAL VARIABLE, EQUIVALENC -ED 9 41 217 40 INFY. . . . . . . . . . . . . . 72H D INTEGER*2 VARIABLE, INITIALIZE -D, DIMENSIONED, EQUI -VALENCED 40 41 44 INT4. . . . . . . . . . . . . . INTEGER*4 FUNCTION, GENERIC, I -NTRINSIC 116 135 201 225 46 INVALID . . . . . . . . . . . . 12H D INTEGER*2 VARIABLE, INITIALIZE -D 46 47 199 199 224 46 IONEXP. . . . . . . . . . . . . 1CH D INTEGER*2 VARIABLE, INITIALIZE -D 46 47 160 6 IP. . . . . . . . . . . . . . . 26H D INTEGER*2 VARIABLE, INITIALIZE -D, DIMENSIONED 6 33 93 6 IPCW. . . . . . . . . . . . . . 20H D INTEGER*2 VARIABLE, INITIALIZE -D, DIMENSIONED 6 34 102 6 IPR . . . . . . . . . . . . . . 10H E INTEGER*2 VARIABLE, IN COMMON -// 6 29 93 FORTRAN-86 COMPILER PROGRAM CROSS-REFERENCE 04/23/95 06:01:02 PAGE 9 FISTEST2.FTN @MAIN 95 100 164 235 40 ISB . . . . . . . . . . . . . . A0H D INTEGER*2 VARIABLE, INITIALIZE -D, DIMENSIONED, EQUI -VALENCED 40 41 42 57 IV. . . . . . . . . . . . . . . 8H D INTEGER*2 VARIABLE 57 111 126 158 162 164 170 219 6 IW. . . . . . . . . . . . . . . INTEGER*2 SYMBOLIC CONSTANT 6 10 10 78 6 IWB . . . . . . . . . . . . . . INTEGER*2 SYMBOLIC CONSTANT 6 10 83 57 IY. . . . . . . . . . . . . . . AH D INTEGER*2 VARIABLE 57 123 125 152 153 218 57 IZ. . . . . . . . . . . . . . . 14H D INTEGER*2 VARIABLE 57 83 95 154 155 162 165 6 JP. . . . . . . . . . . . . . . CH D INTEGER*2 VARIABLE 6 92 93 102 121 68 JY. . . . . . . . . . . . . . . 54H D INTEGER*2 VARIABLE, DIMENSIONE -D, EQUIVALENCED 68 69 164 68 JZ. . . . . . . . . . . . . . . 40H D INTEGER*2 VARIABLE, DIMENSIONE -D, EQUIVALENCED 68 69 160 164 6 KCW . . . . . . . . . . . . . . 1AH D INTEGER*2 VARIABLE 6 101 102 105 6 KFLAG . . . . . . . . . . . . . 10H D INTEGER*2 VARIABLE 6 114 115 116 131 134 135 175 194 196 199 201 223 224 225 LDCW87. . . . . . . . . . . . . SUBROUTINE, INTRINSI -C 104 58 LF. . . . . . . . . . . . . . . DFH D LOGICAL*1 VARIABLE, INITIALIZE -D 58 75 116 135 201 225 235 236 58 LI. . . . . . . . . . . . . . . E0H D LOGICAL*1 VARIABLE 58 115 116 134 135 195 196 196 196 198 199 199 201 224 225 58 LK. . . . . . . . . . . . . . . DEH D LOGICAL*1 VARIABLE 58 194 196 9 NAN . . . . . . . . . . . . . . 4AH D TEMPREAL VARIABLE, EQUIVALENC -ED 9 41 228 SAYFAIL . . . . . . . . . . . . SUBROUTINE 116 135 201 225 9 SB. . . . . . . . . . . . . . . A0H D TEMPREAL VARIABLE, DIMENSIONE -D, EQUIVALENCED 9 41 121 59 TNR . . . . . . . . . . . . . . 86H D CHARACTER*26 VARIABLE, INITIALIZE -D 59 60 109 120 150 216 8 TW. . . . . . . . . . . . . . . 8H E REAL*4 VARIABLE, IN COMMON -// 8 29 82 84 84 84 87 89 198 198 56 U . . . . . . . . . . . . . . . 36H D TEMPREAL VARIABLE 56 121 FORTRAN-86 COMPILER PROGRAM CROSS-REFERENCE 04/23/95 06:01:02 PAGE 10 FISTEST2.FTN @MAIN 122 125 140 140 140 165 167 173 173 175 177 195 201 55 V . . . . . . . . . . . . . . . 0H D REAL*4 VARIABLE 55 99 129 129 133 133 172 172 178 178 55 VP. . . . . . . . . . . . . . . 4H D REAL*4 VARIABLE 55 94 96 96 96 99 100 178 56 W . . . . . . . . . . . . . . . 68H D TEMPREAL VARIABLE 56 110 112 112 114 116 116 133 134 135 177 178 178 178 193 195 198 198 201 56 X . . . . . . . . . . . . . . . 5EH D TEMPREAL VARIABLE 56 125 128 128 131 133 135 145 147 150 150 153 210 211 211 217 221 221 223 225 225 228 56 X2. . . . . . . . . . . . . . . 7CH D TEMPREAL VARIABLE 56 146 147 210 211 56 Y . . . . . . . . . . . . . . . 54H D TEMPREAL VARIABLE, EQUIVALENC -ED 56 69 153 157 165 167 56 Z . . . . . . . . . . . . . . . 40H D TEMPREAL VARIABLE, EQUIVALENC -ED 56 69 157 162 163 165 FORTRAN-86 COMPILER PROGRAM CROSS-REFERENCE 04/23/95 06:01:02 PAGE 11 FISTEST2.FTN SAYFAIL DEFN NAME ADDRESS DATA TYPE ATTRIBUTES ---- ---- ------- --------- ---------- 253 //. . . . . . . . . . . . . . . COMMON BLOCK, LENGTH - = 12H 253 //. . . . . . . . . . . . . . . COMMON SUBSYSTEM NAM -E 242 251 DIRN. . . . . . . . . . . . . . 0H E CHARACTER*8 VARIABLE, IN COMMON -// 251 253 256 248 I4. . . . . . . . . . . . . . . CH A INTEGER*4 ARGUMENT VARIABLE 244 248 259 259 248 INDEF . . . . . . . . . . . . . CH E INTEGER*4 VARIABLE, IN COMMON -// 248 253 262 250 IPR . . . . . . . . . . . . . . 10H E INTEGER*2 VARIABLE, IN COMMON -// 250 253 256 250 KFLAG . . . . . . . . . . . . . 8H A INTEGER*2 ARGUMENT VARIABLE 244 250 264 249 LF. . . . . . . . . . . . . . . 4H A LOGICAL*1 ARGUMENT VARIABLE 244 249 266 244 SAYFAIL . . . . . . . . . . . . PROGRAM UNIT NAME, A -RGUMENT STACK SIZE = - 14H 244 252 TW. . . . . . . . . . . . . . . 8H E REAL*4 VARIABLE, IN COMMON -// 252 253 261 261 247 U . . . . . . . . . . . . . . . 14H A TEMPREAL ARGUMENT VARIABLE 244 247 254 254 247 W . . . . . . . . . . . . . . . 10H A TEMPREAL ARGUMENT VARIABLE 244 247 257 257 261 261 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 12 FISTEST2.FTN @MAIN ; STATEMENT # 1 00000168 8BEC MOV BP,SP 0000016A 81EC1200 SUB SP,12H 0000016E 9A00000000 CALL INITFP 00000173 9A00000000 CALL TQ_001 00000178 FB STI ; STATEMENT # 76 00000179 680600 PUSH 6H 0000017C B80000 MOV AX,0H 0000017F 8EC0 MOV ES,AX 00000181 06 PUSH ES ; 2 00000182 50 PUSH AX ; 3 00000183 06 PUSH ES ; 4 00000184 50 PUSH AX ; 5 00000185 06 PUSH ES ; 6 00000186 50 PUSH AX ; 7 00000187 50 PUSH AX ; 8 00000188 50 PUSH AX ; 9 00000189 B82010 MOV AX,1020H 0000018C 9A00000000 CALL FQ_010 ; STATEMENT # 77 00000191 B006 MOV AL,6H 00000193 9A00000000 CALL FQ_121 00000198 0E PUSH CS ; 1 00000199 07 POP ES ; 1 0000019A 8D1E0D00 LEA BX,@CONST+0DH 0000019E B81400 MOV AX,14H 000001A1 9A00000000 CALL FQ_401 000001A6 9A00000000 CALL FQ_902 ; STATEMENT # 78 000001AB B006 MOV AL,6H 000001AD 9A00000000 CALL FQ_121 000001B2 0E PUSH CS ; 1 000001B3 07 POP ES ; 1 000001B4 8D1E2100 LEA BX,@CONST+21H 000001B8 B82800 MOV AX,28H 000001BB 9A00000000 CALL FQ_401 000001C0 B80200 MOV AX,2H 000001C3 9A00000000 CALL FQ_411 000001C8 9A00000000 CALL FQ_902 ; STATEMENT # 79 000001CD B006 MOV AL,6H 000001CF 9A00000000 CALL FQ_121 000001D4 9A00000000 CALL FQ_902 ; STATEMENT # 80 000001D9 8B060E00 MOV AX,IN 000001DD 99 CWD 000001DE 2E8E060B00 MOV ES,CS:@CONST+0BH 000001E3 2689060C00 MOV ES:INDEF,AX 000001E8 2689160E00 MOV ES:INDEF+2H,DX ; STATEMENT # 82 000001ED 2EDF064900 FLD CS:@CONST+49H 000001F2 26D91E0800 FSTP ES:TW ; 7 000001F7 9B WAIT ; STATEMENT # 83 000001F8 C70614000C00 MOV IZ,0CH 000001FE C746FA0500 MOV [BP].@TEMP1+2H,5H @@000000: ; STATEMENT # 84 00000203 2E8E060B00 MOV ES,CS:@CONST+0BH FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 13 FISTEST2.FTN @MAIN 00000208 26D9060800 FLD ES:TW 0000020D D8C0 FADD TOS,@TOS ; 7 0000020F 26D91E0800 FSTP ES:TW ; 7 00000214 9B WAIT ; STATEMENT # 85 ?100: 00000215 FF061400 INC IZ 00000219 FF4EFA DEC [BP].@TEMP1+2H 0000021C 7403 JZ $+5H 0000021E E9E2FF JMP @@000000 @@000001: ; STATEMENT # 87 00000221 DF060E00 FLD IN 00000225 2E8E060B00 MOV ES,CS:@CONST+0BH 0000022A 26D9060800 FLD ES:TW ; 7 0000022F D9E0 FCHS ; 6 00000231 DAE9 FUCOMPP TOS,@TOS+1H ; 6 00000233 9B WAIT 00000234 DFE0 FSTSW AX 00000236 250041 AND AX,4100H 00000239 350040 XOR AX,4000H 0000023C 7503 JNE $+5H 0000023E E96800 JMP @@000002 @@000003: ; STATEMENT # 88 00000241 B006 MOV AL,6H 00000243 9A00000000 CALL FQ_121 00000248 0E PUSH CS ; 1 00000249 07 POP ES ; 1 0000024A 8D1E4D00 LEA BX,@CONST+4DH 0000024E B82600 MOV AX,26H 00000251 9A00000000 CALL FQ_401 00000256 9A00000000 CALL FQ_902 ; STATEMENT # 89 0000025B B006 MOV AL,6H 0000025D 9A00000000 CALL FQ_121 00000262 0E PUSH CS ; 1 00000263 07 POP ES ; 1 00000264 8D1E7300 LEA BX,@CONST+73H 00000268 B80C00 MOV AX,0CH 0000026B 9A00000000 CALL FQ_401 00000270 8B060E00 MOV AX,IN 00000274 9A00000000 CALL FQ_411 00000279 0E PUSH CS ; 1 0000027A 07 POP ES ; 1 0000027B 8D1E7F00 LEA BX,@CONST+7FH 0000027F B80A00 MOV AX,0AH 00000282 9A00000000 CALL FQ_401 00000287 2E8E060B00 MOV ES,CS:@CONST+0BH 0000028C 26D9060800 FLD ES:TW 00000291 D9E0 FCHS ; 7 00000293 9A00000000 CALL FQ_416 00000298 9A00000000 CALL FQ_902 ; STATEMENT # 90 0000029D BE0000 MOV SI,0H 000002A0 89F0 MOV AX,SI 000002A2 8EC0 MOV ES,AX 000002A4 9A00000000 CALL FQ_911 ; STATEMENT # 91 @@000002: FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 14 FISTEST2.FTN @MAIN ; STATEMENT # 92 000002A9 C7060C000100 MOV JP,1H 000002AF C746FA0300 MOV [BP].@TEMP1+2H,3H @@000004: ; STATEMENT # 93 000002B4 8B360C00 MOV SI,JP 000002B8 D1E6 SAL SI,1 000002BA 8B842400 MOV AX,IP[SI]-2H 000002BE 99 CWD 000002BF 2E8E060B00 MOV ES,CS:@CONST+0BH 000002C4 2689061000 MOV ES:IPR,AX ; STATEMENT # 94 000002C9 2EDF064900 FLD CS:@CONST+49H 000002CE D91E0400 FSTP VP ; 7 000002D2 9B WAIT ; STATEMENT # 95 000002D3 C70614000C00 MOV IZ,0CH 000002D9 81E80B00 SUB AX,0BH 000002DD 81DA0000 SBB DX,0H 000002E1 50 PUSH AX ; 1 000002E2 8946F8 MOV [BP].@TEMP1+4H,AX 000002E5 58 POP AX ; 1 000002E6 9A00000000 CALL TQ_152 000002EB 7F03 JG $+5H 000002ED E91700 JMP @@000007 @@000006: ; STATEMENT # 96 000002F0 D9060400 FLD VP ; 7 000002F4 D8C0 FADD TOS,@TOS ; 7 000002F6 D91E0400 FSTP VP ; 7 000002FA 9B WAIT ; STATEMENT # 97 ?200: 000002FB FF061400 INC IZ 000002FF FF4EF8 DEC [BP].@TEMP1+4H 00000302 7403 JZ $+5H 00000304 E9E9FF JMP @@000006 @@000007: ; STATEMENT # 99 00000307 D9060400 FLD VP ; 7 0000030B D91E0000 FSTP V ; 7 0000030F 9B WAIT ; STATEMENT # 100 00000310 B006 MOV AL,6H 00000312 9A00000000 CALL FQ_121 00000317 2E8E060B00 MOV ES,CS:@CONST+0BH 0000031C 268B061000 MOV AX,ES:IPR 00000321 9A00000000 CALL FQ_411 00000326 0E PUSH CS ; 1 00000327 07 POP ES ; 1 00000328 8D1E8900 LEA BX,@CONST+89H 0000032C B81A00 MOV AX,1AH 0000032F 9A00000000 CALL FQ_401 00000334 D9060400 FLD VP ; 7 00000338 9A00000000 CALL FQ_416 0000033D 9A00000000 CALL FQ_902 ; STATEMENT # 101 00000342 C7061A000000 MOV KCW,0H 00000348 C746F80400 MOV [BP].@TEMP1+4H,4H @@000008: FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 15 FISTEST2.FTN @MAIN ; STATEMENT # 102 0000034D 8B360C00 MOV SI,JP 00000351 D1E6 SAL SI,1 00000353 8B061A00 MOV AX,KCW 00000357 69C00004 IMUL AX,AX,400H 0000035B 03841E00 ADD AX,IPCW[SI]-2H 0000035F 89061800 MOV ICW,AX ; STATEMENT # 104 00000363 8D361800 LEA SI,ICW 00000367 D92C FLDCW [SI] 00000369 9B WAIT ; STATEMENT # 105 0000036A 8D1E0000 LEA BX,DIRN 0000036E 2E8E060B00 MOV ES,CS:@CONST+0BH 00000373 06 PUSH ES ; 1 00000374 53 PUSH BX ; 2 00000375 680100 PUSH 1H 00000378 B80800 MOV AX,8H 0000037B 50 PUSH AX ; 4 0000037C 8B361A00 MOV SI,KCW 00000380 69F60800 IMUL SI,SI,8H 00000384 8D9CBE00 LEA BX,DIRNS[SI] 00000388 1E PUSH DS ; 5 00000389 53 PUSH BX ; 6 0000038A 680100 PUSH 1H 0000038D 50 PUSH AX ; 8 0000038E 9A00000000 CALL FQ_800 ; STATEMENT # 106 00000393 B006 MOV AL,6H 00000395 9A00000000 CALL FQ_121 0000039A 0E PUSH CS ; 1 0000039B 07 POP ES ; 1 0000039C 8D1EA300 LEA BX,@CONST+0A3H 000003A0 B81600 MOV AX,16H 000003A3 9A00000000 CALL FQ_401 000003A8 8D1E0000 LEA BX,DIRN 000003AC B80800 MOV AX,8H 000003AF 2E8E060B00 MOV ES,CS:@CONST+0BH 000003B4 9A00000000 CALL FQ_401 000003B9 9A00000000 CALL FQ_902 ; STATEMENT # 109 000003BE B006 MOV AL,6H 000003C0 9A00000000 CALL FQ_121 000003C5 0E PUSH CS ; 1 000003C6 07 POP ES ; 1 000003C7 8D1EB900 LEA BX,@CONST+0B9H 000003CB B80200 MOV AX,2H 000003CE 9A00000000 CALL FQ_401 000003D3 1E PUSH DS ; 1 000003D4 07 POP ES ; 1 000003D5 8D1E8600 LEA BX,TNR 000003D9 B81A00 MOV AX,1AH 000003DC 9A00000000 CALL FQ_401 000003E1 0E PUSH CS ; 1 000003E2 07 POP ES ; 1 000003E3 8D1EBB00 LEA BX,@CONST+0BBH 000003E7 B80700 MOV AX,7H 000003EA 9A00000000 CALL FQ_401 000003EF 9A00000000 CALL FQ_902 ; STATEMENT # 110 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 16 FISTEST2.FTN @MAIN 000003F4 D9EE FLDZ ; 7 000003F6 DB3E6800 FSTP W ; 7 000003FA 9B WAIT ; STATEMENT # 111 000003FB C70608000000 MOV IV,0H 00000401 C746F60200 MOV [BP].@TEMP1+6H,2H @@000010: ; STATEMENT # 112 00000406 DB2E6800 FLD W ; 7 0000040A D9E0 FCHS ; 7 0000040C DB3E6800 FSTP W ; 7 00000410 9B WAIT ; STATEMENT # 114 00000411 1E PUSH DS ; 1 00000412 686800 PUSH OFFSET W ; 2 00000415 1E PUSH DS ; 3 00000416 681000 PUSH OFFSET KFLAG; 4 00000419 9A00000000 CALL I2FIST 0000041E 89061E00 MOV I,AX ; STATEMENT # 115 00000422 8B061E00 MOV AX,I 00000426 99 CWD 00000427 09C0 OR AX,AX 00000429 50 PUSH AX ; 1 0000042A B0FF MOV AL,0FFH 0000042C 7501 JNZ $+3H 0000042E 40 INC AX 0000042F 813E10000000 CMP KFLAG,0H 00000435 50 PUSH AX ; 2 00000436 B0FF MOV AL,0FFH 00000438 7501 JNZ $+3H 0000043A 40 INC AX 0000043B 5B POP BX ; 2 0000043C 0AD8 OR BL,AL 0000043E 881EE000 MOV LI,BL ; STATEMENT # 116 00000442 D0DB RCR BL,1 00000444 5F POP DI ; 1 00000445 8956F0 MOV [BP].@TEMP3+2H,DX 00000448 897EEE MOV [BP].@TEMP3+4H,DI 0000044B 7203 JB $+5H 0000044D E92000 JMP @@000012 @@000013: 00000450 897EFC MOV [BP].@TEMP2+4H,DI 00000453 8956FE MOV [BP].@TEMP2+2H,DX 00000456 1E PUSH DS ; 1 00000457 686800 PUSH OFFSET W ; 2 0000045A 1E PUSH DS ; 3 0000045B 686800 PUSH OFFSET W ; 4 0000045E 8D46FC LEA AX,[BP].@TEMP2+4H 00000461 16 PUSH SS ; 5 00000462 50 PUSH AX ; 6 00000463 1E PUSH DS ; 7 00000464 681000 PUSH OFFSET KFLAG; 8 00000467 1E PUSH DS ; 9 00000468 68DF00 PUSH OFFSET LF ; 10 0000046B 9A00000000 CALL SAYFAIL @@000012: ; STATEMENT # 117 ?300: FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 17 FISTEST2.FTN @MAIN 00000470 FF060800 INC IV 00000474 FF4EF6 DEC [BP].@TEMP1+6H 00000477 7403 JZ $+5H 00000479 E98AFF JMP @@000010 @@000011: ; STATEMENT # 120 0000047C B006 MOV AL,6H 0000047E 9A00000000 CALL FQ_121 00000483 0E PUSH CS ; 1 00000484 07 POP ES ; 1 00000485 8D1EC200 LEA BX,@CONST+0C2H 00000489 B80200 MOV AX,2H 0000048C 9A00000000 CALL FQ_401 00000491 1E PUSH DS ; 1 00000492 07 POP ES ; 1 00000493 8D1E8600 LEA BX,TNR 00000497 B81A00 MOV AX,1AH 0000049A 9A00000000 CALL FQ_401 0000049F 0E PUSH CS ; 1 000004A0 07 POP ES ; 1 000004A1 8D1EC400 LEA BX,@CONST+0C4H 000004A5 B80C00 MOV AX,0CH 000004A8 9A00000000 CALL FQ_401 000004AD 9A00000000 CALL FQ_902 ; STATEMENT # 121 000004B2 8B360C00 MOV SI,JP 000004B6 69F60A00 IMUL SI,SI,0AH 000004BA DBAC9600 FLD SB[SI]-0AH 000004BE DB3E3600 FSTP U ; 7 000004C2 9B WAIT ; STATEMENT # 122 @@000014: 000004C3 D9E8 FLD1 ; 7 000004C5 DB2E3600 FLD U ; 6 000004C9 D9C9 FXCH @TOS+1H 000004CB DED9 FCOMPP ; 6 000004CD 9B WAIT 000004CE DFE0 FSTSW AX 000004D0 9E SAHF 000004D1 7703 JA $+5H 000004D3 E9DC00 JMP @@000015 @@000016: ; STATEMENT # 123 000004D6 C7060A000100 MOV IY,1H 000004DC C746F60400 MOV [BP].@TEMP1+6H,4H @@000017: ; STATEMENT # 125 000004E1 DF060A00 FLD IY 000004E5 DB2E3600 FLD U ; 6 000004E9 DEC9 FMULP ; 6 000004EB DB3E5E00 FSTP X ; 7 000004EF 9B WAIT ; STATEMENT # 126 000004F0 C70608000000 MOV IV,0H 000004F6 C746F40200 MOV [BP].@TEMP1+8H,2H @@000019: ; STATEMENT # 128 000004FB DB2E5E00 FLD X ; 7 000004FF D9E0 FCHS ; 7 00000501 DB3E5E00 FSTP X ; 7 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 18 FISTEST2.FTN @MAIN 00000505 9B WAIT ; STATEMENT # 129 00000506 D9060000 FLD V ; 7 0000050A D9E0 FCHS ; 7 0000050C D91E0000 FSTP V ; 7 00000510 9B WAIT ; STATEMENT # 131 00000511 1E PUSH DS ; 1 00000512 685E00 PUSH OFFSET X ; 2 00000515 1E PUSH DS ; 3 00000516 681000 PUSH OFFSET KFLAG; 4 00000519 9A00000000 CALL I2FIST 0000051E 89061E00 MOV I,AX ; STATEMENT # 133 00000522 DB2E5E00 FLD X ; 7 00000526 D8060000 FADD V ; 7 0000052A D8260000 FSUB V ; 7 0000052E DDD1 FST @TOS+1H 00000530 DB3E6800 FSTP W ; 7 00000534 9B WAIT ; STATEMENT # 134 00000535 DF061E00 FLD I 00000539 DAE9 FUCOMPP TOS,@TOS+1H ; 7 0000053B 9B WAIT 0000053C DFE0 FSTSW AX 0000053E 250041 AND AX,4100H 00000541 350040 XOR AX,4000H 00000544 B0FF MOV AL,0FFH 00000546 7501 JNE $+3H 00000548 40 INC AX 00000549 8B1E1000 MOV BX,KFLAG 0000054D 3B1E1600 CMP BX,INEXACT 00000551 50 PUSH AX ; 1 00000552 B0FF MOV AL,0FFH 00000554 7501 JNZ $+3H 00000556 40 INC AX 00000557 5B POP BX ; 1 00000558 0AD8 OR BL,AL 0000055A 881EE000 MOV LI,BL ; STATEMENT # 135 0000055E D0DB RCR BL,1 00000560 7203 JB $+5H 00000562 E92500 JMP @@000021 @@000022: 00000565 8B061E00 MOV AX,I 00000569 99 CWD 0000056A 8946FC MOV [BP].@TEMP2+4H,AX 0000056D 8956FE MOV [BP].@TEMP2+2H,DX 00000570 1E PUSH DS ; 1 00000571 685E00 PUSH OFFSET X ; 2 00000574 1E PUSH DS ; 3 00000575 686800 PUSH OFFSET W ; 4 00000578 8D46FC LEA AX,[BP].@TEMP2+4H 0000057B 16 PUSH SS ; 5 0000057C 50 PUSH AX ; 6 0000057D 1E PUSH DS ; 7 0000057E 681000 PUSH OFFSET KFLAG; 8 00000581 1E PUSH DS ; 9 00000582 68DF00 PUSH OFFSET LF ; 10 00000585 9A00000000 CALL SAYFAIL FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 19 FISTEST2.FTN @MAIN @@000021: ; STATEMENT # 136 ?400: 0000058A FF060800 INC IV 0000058E FF4EF4 DEC [BP].@TEMP1+8H 00000591 7403 JZ $+5H 00000593 E965FF JMP @@000019 @@000020: ; STATEMENT # 138 ?430: 00000596 81060A000200 ADD IY,2H 0000059C FF4EF6 DEC [BP].@TEMP1+6H 0000059F 7403 JZ $+5H 000005A1 E93DFF JMP @@000017 @@000018: ; STATEMENT # 140 000005A4 DB2E3600 FLD U ; 7 000005A8 D8C0 FADD TOS,@TOS ; 7 000005AA DB3E3600 FSTP U ; 7 000005AE 9B WAIT ; STATEMENT # 141 ?460: 000005AF E911FF JMP @@000014 @@000015: ; STATEMENT # 145 000005B2 2ED906D000 FLD CS:@CONST+0D0H; 7 000005B7 DB3E5E00 FSTP X ; 7 000005BB 9B WAIT ; STATEMENT # 146 000005BC 2ED906D400 FLD CS:@CONST+0D4H; 7 000005C1 DB3E7C00 FSTP X2 ; 7 000005C5 9B WAIT ; STATEMENT # 147 @@000023: 000005C6 DB2E7C00 FLD X2 ; 7 000005CA DB2E5E00 FLD X ; 6 000005CE D9C9 FXCH @TOS+1H 000005D0 DED9 FCOMPP ; 6 000005D2 9B WAIT 000005D3 DFE0 FSTSW AX 000005D5 9E SAHF 000005D6 7703 JA $+5H 000005D8 E98002 JMP @@000024 @@000025: ; STATEMENT # 150 000005DB 2ED906D800 FLD CS:@CONST+0D8H; 7 000005E0 DB2E5E00 FLD X ; 6 000005E4 D9C9 FXCH @TOS+1H 000005E6 DED9 FCOMPP ; 6 000005E8 9B WAIT 000005E9 DFE0 FSTSW AX 000005EB 9E SAHF 000005EC 7703 JA $+5H 000005EE E92900 JMP @@000026 @@000027: 000005F1 0E PUSH CS ; 1 000005F2 07 POP ES ; 1 000005F3 8D360000 LEA SI,?1 000005F7 B006 MOV AL,6H 000005F9 9A00000000 CALL FQ_112 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 20 FISTEST2.FTN @MAIN 000005FE 1E PUSH DS ; 1 000005FF 07 POP ES ; 1 00000600 8D1E8600 LEA BX,TNR 00000604 B81A00 MOV AX,1AH 00000607 9A00000000 CALL FQ_301 0000060C DB2E5E00 FLD X ; 7 00000610 9A00000000 CALL FQ_324 00000615 9A00000000 CALL FQ_901 @@000026: ; STATEMENT # 152 0000061A C7060A00FDFF MOV IY,0FFFDH 00000620 C746F60700 MOV [BP].@TEMP1+6H,7H @@000028: ; STATEMENT # 153 00000625 DF060A00 FLD IY 00000629 2ED80EDC00 FMUL CS:@CONST+0DCH; 7 0000062E DB2E5E00 FLD X ; 6 00000632 DEC1 FADDP ; 6 00000634 DB3E5400 FSTP Y ; 7 00000638 9B WAIT ; STATEMENT # 154 00000639 C7061400FFFF MOV IZ,0FFFFH 0000063F C746F40300 MOV [BP].@TEMP1+8H,3H @@000030: ; STATEMENT # 155 00000644 813E14000000 CMP IZ,0H 0000064A 9C PUSHF 0000064B 8F46F0 POP [BP].@TEMP3+2H 0000064E 7503 JNZ $+5H 00000650 E97100 JMP @@000032 @@000033: ; STATEMENT # 157 00000653 DB2E5400 FLD Y ; 7 00000657 DB3E4000 FSTP Z ; 7 0000065B 9B WAIT ; STATEMENT # 158 0000065C C70608000100 MOV IV,1H ; STATEMENT # 160 00000662 8B061C00 MOV AX,IONEXP 00000666 89064800 MOV JZ+8H,AX ; STATEMENT # 162 0000066A D9E8 FLD1 ; 7 0000066C DB2E4000 FLD Z ; 6 00000670 DAE9 FUCOMPP TOS,@TOS+1H ; 6 00000672 9B WAIT 00000673 DFE0 FSTSW AX 00000675 250041 AND AX,4100H 00000678 350040 XOR AX,4000H 0000067B 7403 JE $+5H 0000067D E90F00 JMP @@000034 @@000035: 00000680 FF76F0 PUSH [BP].@TEMP3+2H; 1 00000683 9D POPF 00000684 7C03 JL $+5H 00000686 E90600 JMP @@000034 @@000036: 00000689 C70608000000 MOV IV,0H @@000034: ; STATEMENT # 163 0000068F D9E8 FLD1 ; 7 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 21 FISTEST2.FTN @MAIN 00000691 DB3E4000 FSTP Z ; 7 00000695 9B WAIT ; STATEMENT # 164 00000696 8B065C00 MOV AX,JY+8H 0000069A 2E8E060B00 MOV ES,CS:@CONST+0BH 0000069F 262B061000 SUB AX,ES:IPR 000006A4 03060800 ADD AX,IV 000006A8 89064800 MOV JZ+8H,AX ; STATEMENT # 165 000006AC DF061400 FLD IZ 000006B0 DB2E4000 FLD Z ; 6 000006B4 DEC9 FMULP ; 6 000006B6 DB2E5400 FLD Y ; 6 000006BA DEC1 FADDP ; 6 000006BC DB3E3600 FSTP U ; 7 000006C0 9B WAIT ; STATEMENT # 166 000006C1 E90900 JMP @@000037 @@000032: ; STATEMENT # 167 000006C4 DB2E5400 FLD Y ; 7 000006C8 DB3E3600 FSTP U ; 7 000006CC 9B WAIT ; STATEMENT # 168 @@000037: ; STATEMENT # 170 000006CD C70608000000 MOV IV,0H 000006D3 C746F20200 MOV [BP].@TEMP1+0AH,2H @@000038: ; STATEMENT # 172 000006D8 D9060000 FLD V ; 7 000006DC D9E0 FCHS ; 7 000006DE D91E0000 FSTP V ; 7 000006E2 9B WAIT ; STATEMENT # 173 000006E3 DB2E3600 FLD U ; 7 000006E7 D9E0 FCHS ; 7 000006E9 DB3E3600 FSTP U ; 7 000006ED 9B WAIT ; STATEMENT # 175 000006EE 1E PUSH DS ; 1 000006EF 683600 PUSH OFFSET U ; 2 000006F2 1E PUSH DS ; 3 000006F3 681000 PUSH OFFSET KFLAG; 4 000006F6 9A00000000 CALL I2FIST 000006FB 89061E00 MOV I,AX ; STATEMENT # 177 000006FF DB2E3600 FLD U ; 7 00000703 DB3E6800 FSTP W ; 7 00000707 9B WAIT ; STATEMENT # 178 00000708 DB2E3600 FLD U ; 7 0000070C D9E1 FABS ; 7 0000070E D9060400 FLD VP ; 6 00000712 DED9 FCOMPP ; 6 00000714 9B WAIT 00000715 DFE0 FSTSW AX 00000717 9E SAHF 00000718 7703 JA $+5H 0000071A E91100 JMP @@000040 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 22 FISTEST2.FTN @MAIN @@000041: 0000071D DB2E3600 FLD U ; 7 00000721 D8060000 FADD V ; 7 00000725 D8260000 FSUB V ; 7 00000729 DB3E6800 FSTP W ; 7 0000072D 9B WAIT @@000040: ; STATEMENT # 193 0000072E DF061E00 FLD I 00000732 DB2E6800 FLD W ; 6 00000736 DAE9 FUCOMPP TOS,@TOS+1H ; 6 00000738 9B WAIT 00000739 DFE0 FSTSW AX 0000073B 250041 AND AX,4100H 0000073E 350040 XOR AX,4000H 00000741 7403 JE $+5H 00000743 E94D00 JMP @@000042 @@000043: ; STATEMENT # 194 00000746 8B061000 MOV AX,KFLAG 0000074A 3B061600 CMP AX,INEXACT 0000074E B0FF MOV AL,0FFH 00000750 7501 JNZ $+3H 00000752 40 INC AX 00000753 8806DE00 MOV LK,AL ; STATEMENT # 195 00000757 DB2E6800 FLD W ; 7 0000075B DB2E3600 FLD U ; 6 0000075F 50 PUSH AX ; 1 00000760 DAE9 FUCOMPP TOS,@TOS+1H ; 6 00000762 9B WAIT 00000763 DFE0 FSTSW AX 00000765 250041 AND AX,4100H 00000768 350040 XOR AX,4000H 0000076B B0FF MOV AL,0FFH 0000076D 7501 JNE $+3H 0000076F 40 INC AX 00000770 8806E000 MOV LI,AL ; STATEMENT # 196 00000774 50 PUSH AX ; 2 00000775 F6D0 NOT AL 00000777 813E10000000 CMP KFLAG,0H 0000077D 50 PUSH AX ; 3 0000077E B0FF MOV AL,0FFH 00000780 7501 JNZ $+3H 00000782 40 INC AX 00000783 5B POP BX ; 3 00000784 22D8 AND BL,AL 00000786 5A POP DX ; 2 00000787 58 POP AX ; 1 00000788 22C2 AND AL,DL 0000078A 0AC3 OR AL,BL 0000078C 8806E000 MOV LI,AL ; STATEMENT # 197 00000790 E95E00 JMP @@000044 @@000042: ; STATEMENT # 198 00000793 8B061E00 MOV AX,I 00000797 3B060E00 CMP AX,IN 0000079B B0FF MOV AL,0FFH FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 23 FISTEST2.FTN @MAIN 0000079D 7501 JNZ $+3H 0000079F 40 INC AX 000007A0 2E8E060B00 MOV ES,CS:@CONST+0BH 000007A5 26D9060800 FLD ES:TW 000007AA DB2E6800 FLD W ; 6 000007AE 50 PUSH AX ; 1 000007AF D9C1 FLD @TOS+1H ; 6 000007B1 DED9 FCOMPP ; 5 000007B3 9B WAIT 000007B4 DFE0 FSTSW AX 000007B6 9E SAHF 000007B7 B0FF MOV AL,0FFH 000007B9 7701 JA $+3H 000007BB 40 INC AX 000007BC D9E0 FCHS ; 7 000007BE DB2E6800 FLD W ; 6 000007C2 50 PUSH AX ; 2 000007C3 DED9 FCOMPP ; 6 000007C5 9B WAIT 000007C6 DFE0 FSTSW AX 000007C8 9E SAHF 000007C9 B0FF MOV AL,0FFH 000007CB 7301 JAE $+3H 000007CD 40 INC AX 000007CE 5B POP BX ; 2 000007CF 22D8 AND BL,AL 000007D1 58 POP AX ; 1 000007D2 0AC3 OR AL,BL 000007D4 8806E000 MOV LI,AL ; STATEMENT # 199 000007D8 8B1E1200 MOV BX,INVALID 000007DC 231E1000 AND BX,KFLAG 000007E0 3B1E1200 CMP BX,INVALID 000007E4 50 PUSH AX ; 1 000007E5 B0FF MOV AL,0FFH 000007E7 7501 JNZ $+3H 000007E9 40 INC AX 000007EA 5B POP BX ; 1 000007EB 0AC3 OR AL,BL 000007ED 8806E000 MOV LI,AL ; STATEMENT # 200 @@000044: ; STATEMENT # 201 000007F1 F606E00001 TEST LI,1H 000007F6 7503 JNZ $+5H 000007F8 E92500 JMP @@000045 @@000046: 000007FB 8B061E00 MOV AX,I 000007FF 99 CWD 00000800 8946FC MOV [BP].@TEMP2+4H,AX 00000803 8956FE MOV [BP].@TEMP2+2H,DX 00000806 1E PUSH DS ; 1 00000807 683600 PUSH OFFSET U ; 2 0000080A 1E PUSH DS ; 3 0000080B 686800 PUSH OFFSET W ; 4 0000080E 8D46FC LEA AX,[BP].@TEMP2+4H 00000811 16 PUSH SS ; 5 00000812 50 PUSH AX ; 6 00000813 1E PUSH DS ; 7 00000814 681000 PUSH OFFSET KFLAG; 8 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 24 FISTEST2.FTN @MAIN 00000817 1E PUSH DS ; 9 00000818 68DF00 PUSH OFFSET LF ; 10 0000081B 9A00000000 CALL SAYFAIL @@000045: ; STATEMENT # 204 ?500: 00000820 FF060800 INC IV 00000824 FF4EF2 DEC [BP].@TEMP1+0AH 00000827 7403 JZ $+5H 00000829 E9ACFE JMP @@000038 @@000039: ; STATEMENT # 206 ?530: 0000082C FF061400 INC IZ 00000830 FF4EF4 DEC [BP].@TEMP1+8H 00000833 7403 JZ $+5H 00000835 E90CFE JMP @@000030 @@000031: ; STATEMENT # 208 ?560: 00000838 FF060A00 INC IY 0000083C FF4EF6 DEC [BP].@TEMP1+6H 0000083F 7403 JZ $+5H 00000841 E9E1FD JMP @@000028 @@000029: ; STATEMENT # 210 00000844 DB2E7C00 FLD X2 ; 7 00000848 DB3E5E00 FSTP X ; 7 0000084C 9B WAIT ; STATEMENT # 211 0000084D DB2E7C00 FLD X2 ; 7 00000851 D8C0 FADD TOS,@TOS ; 7 00000853 DB3E7C00 FSTP X2 ; 7 00000857 9B WAIT ; STATEMENT # 212 ?590: 00000858 E96BFD JMP @@000023 @@000024: ; STATEMENT # 216 0000085B B006 MOV AL,6H 0000085D 9A00000000 CALL FQ_121 00000862 0E PUSH CS ; 1 00000863 07 POP ES ; 1 00000864 8D1EC200 LEA BX,@CONST+0C2H 00000868 B80200 MOV AX,2H 0000086B 9A00000000 CALL FQ_401 00000870 1E PUSH DS ; 1 00000871 07 POP ES ; 1 00000872 8D1E8600 LEA BX,TNR 00000876 B81A00 MOV AX,1AH 00000879 9A00000000 CALL FQ_401 0000087E 0E PUSH CS ; 1 0000087F 07 POP ES ; 1 00000880 8D1EE000 LEA BX,@CONST+0E0H 00000884 B81400 MOV AX,14H 00000887 9A00000000 CALL FQ_401 0000088C 9A00000000 CALL FQ_902 ; STATEMENT # 217 00000891 DB2E7200 FLD INFINITY ; 7 00000895 DB3E5E00 FSTP X ; 7 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 25 FISTEST2.FTN @MAIN 00000899 9B WAIT ; STATEMENT # 218 0000089A C7060A000000 MOV IY,0H 000008A0 C746F60200 MOV [BP].@TEMP1+6H,2H @@000047: ; STATEMENT # 219 000008A5 C70608000000 MOV IV,0H 000008AB C746F40200 MOV [BP].@TEMP1+8H,2H @@000049: ; STATEMENT # 221 000008B0 DB2E5E00 FLD X ; 7 000008B4 D9E0 FCHS ; 7 000008B6 DB3E5E00 FSTP X ; 7 000008BA 9B WAIT ; STATEMENT # 223 000008BB 1E PUSH DS ; 1 000008BC 685E00 PUSH OFFSET X ; 2 000008BF 1E PUSH DS ; 3 000008C0 681000 PUSH OFFSET KFLAG; 4 000008C3 9A00000000 CALL I2FIST 000008C8 89061E00 MOV I,AX ; STATEMENT # 224 000008CC 8B061E00 MOV AX,I 000008D0 99 CWD 000008D1 3B060E00 CMP AX,IN 000008D5 50 PUSH AX ; 1 000008D6 B0FF MOV AL,0FFH 000008D8 7501 JNZ $+3H 000008DA 40 INC AX 000008DB 8B1E1000 MOV BX,KFLAG 000008DF 3B1E1200 CMP BX,INVALID 000008E3 50 PUSH AX ; 2 000008E4 B0FF MOV AL,0FFH 000008E6 7501 JNZ $+3H 000008E8 40 INC AX 000008E9 5B POP BX ; 2 000008EA 0AD8 OR BL,AL 000008EC 881EE000 MOV LI,BL ; STATEMENT # 225 000008F0 D0DB RCR BL,1 000008F2 5F POP DI ; 1 000008F3 8956F0 MOV [BP].@TEMP3+2H,DX 000008F6 897EEE MOV [BP].@TEMP3+4H,DI 000008F9 7203 JB $+5H 000008FB E92000 JMP @@000051 @@000052: 000008FE 897EFC MOV [BP].@TEMP2+4H,DI 00000901 8956FE MOV [BP].@TEMP2+2H,DX 00000904 1E PUSH DS ; 1 00000905 685E00 PUSH OFFSET X ; 2 00000908 1E PUSH DS ; 3 00000909 685E00 PUSH OFFSET X ; 4 0000090C 8D46FC LEA AX,[BP].@TEMP2+4H 0000090F 16 PUSH SS ; 5 00000910 50 PUSH AX ; 6 00000911 1E PUSH DS ; 7 00000912 681000 PUSH OFFSET KFLAG; 8 00000915 1E PUSH DS ; 9 00000916 68DF00 PUSH OFFSET LF ; 10 00000919 9A00000000 CALL SAYFAIL FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 26 FISTEST2.FTN @MAIN @@000051: ; STATEMENT # 226 ?600: 0000091E FF060800 INC IV 00000922 FF4EF4 DEC [BP].@TEMP1+8H 00000925 7403 JZ $+5H 00000927 E986FF JMP @@000049 @@000050: ; STATEMENT # 228 0000092A DB2E4A00 FLD NAN ; 7 0000092E DB3E5E00 FSTP X ; 7 00000932 9B WAIT ; STATEMENT # 229 ?650: 00000933 FF060A00 INC IY 00000937 FF4EF6 DEC [BP].@TEMP1+6H 0000093A 7403 JZ $+5H 0000093C E966FF JMP @@000047 @@000048: ; STATEMENT # 232 0000093F B006 MOV AL,6H 00000941 9A00000000 CALL FQ_121 00000946 9A00000000 CALL FQ_902 ; STATEMENT # 233 ?700: 0000094B FF061A00 INC KCW 0000094F FF4EF8 DEC [BP].@TEMP1+4H 00000952 7403 JZ $+5H 00000954 E9F6F9 JMP @@000008 @@000009: ; STATEMENT # 235 00000957 F606DF0001 TEST LF,1H 0000095C 7503 JNZ $+5H 0000095E E92900 JMP @@000053 @@000054: 00000961 B006 MOV AL,6H 00000963 9A00000000 CALL FQ_121 00000968 0E PUSH CS ; 1 00000969 07 POP ES ; 1 0000096A 8D1EF400 LEA BX,@CONST+0F4H 0000096E B82400 MOV AX,24H 00000971 9A00000000 CALL FQ_401 00000976 2E8E060B00 MOV ES,CS:@CONST+0BH 0000097B 268B061000 MOV AX,ES:IPR 00000980 9A00000000 CALL FQ_411 00000985 9A00000000 CALL FQ_902 @@000053: ; STATEMENT # 236 0000098A C606DF0001 MOV LF,1H ; STATEMENT # 237 0000098F B006 MOV AL,6H 00000991 9A00000000 CALL FQ_121 00000996 0E PUSH CS ; 1 00000997 07 POP ES ; 1 00000998 8D1E1801 LEA BX,@CONST+118H 0000099C B82F00 MOV AX,2FH 0000099F 9A00000000 CALL FQ_401 000009A4 9A00000000 CALL FQ_902 ; STATEMENT # 238 000009A9 B006 MOV AL,6H FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 27 FISTEST2.FTN @MAIN 000009AB 9A00000000 CALL FQ_121 000009B0 9A00000000 CALL FQ_902 ; STATEMENT # 239 ?800: 000009B5 FF060C00 INC JP 000009B9 FF4EFA DEC [BP].@TEMP1+2H 000009BC 7403 JZ $+5H 000009BE E9F3F8 JMP @@000004 @@000005: ; STATEMENT # 241 000009C1 B006 MOV AL,6H 000009C3 9A00000000 CALL FQ_121 000009C8 0E PUSH CS ; 1 000009C9 07 POP ES ; 1 000009CA 8D1E4701 LEA BX,@CONST+147H 000009CE B81F00 MOV AX,1FH 000009D1 9A00000000 CALL FQ_401 000009D6 9A00000000 CALL FQ_902 ; STATEMENT # 242 000009DB 9A00000000 CALL TQ_999 FORTRAN-86 COMPILER LABELS, STATEMENT FUNCTIONS04/23/95 06:01:02 PAGE 28 FISTEST2.FTN @MAIN DEFN LABEL ADDRESS ATTRIBUTES ---------- ------- ---------- 151 1 . . . . . . . . . . . . . . . 0H FORMAT LABEL 150 151 85 100 . . . . . . . . . . . . . . 215H LABEL 83 85 97 200 . . . . . . . . . . . . . . 2FBH LABEL 95 97 117 300 . . . . . . . . . . . . . . 470H LABEL 111 117 136 400 . . . . . . . . . . . . . . 58AH LABEL 126 136 138 430 . . . . . . . . . . . . . . 596H LABEL 123 138 141 460 . . . . . . . . . . . . . . 5AFH LABEL 122 141 204 500 . . . . . . . . . . . . . . 820H LABEL 170 204 206 530 . . . . . . . . . . . . . . 82CH LABEL 154 206 208 560 . . . . . . . . . . . . . . 838H LABEL 152 208 212 590 . . . . . . . . . . . . . . 858H LABEL 147 212 226 600 . . . . . . . . . . . . . . 91EH LABEL 219 226 229 650 . . . . . . . . . . . . . . 933H LABEL 218 229 233 700 . . . . . . . . . . . . . . 94BH LABEL 101 233 239 800 . . . . . . . . . . . . . . 9B5H LABEL 92 239 EXTERNAL SYSTEM ROUTINES REFERENCES ------------------------ ---------- FQ_010. . . . . . . . . . . . . 76 FQ_112. . . . . . . . . . . . . 150 FQ_121. . . . . . . . . . . . . 77 78 79 88 89 100 106 109 120 216 232 235 237 238 241 FQ_301. . . . . . . . . . . . . 150 FQ_324. . . . . . . . . . . . . 150 FQ_401. . . . . . . . . . . . . 77 78 88 89 100 106 109 120 216 235 237 241 FQ_411. . . . . . . . . . . . . 78 89 100 235 FQ_416. . . . . . . . . . . . . 89 100 FQ_733. . . . . . . . . . . . . 151 FQ_742. . . . . . . . . . . . . 151 FQ_745. . . . . . . . . . . . . 151 FQ_758. . . . . . . . . . . . . 151 FQ_800. . . . . . . . . . . . . 105 FQ_901. . . . . . . . . . . . . 150 FQ_902. . . . . . . . . . . . . 77 78 79 88 89 100 106 109 120 216 232 235 237 238 241 FQ_911. . . . . . . . . . . . . 90 INITFP. . . . . . . . . . . . . ----- TQ_001. . . . . . . . . . . . . ----- TQ_152. . . . . . . . . . . . . 95 TQ_999. . . . . . . . . . . . . ----- FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 29 FISTEST2.FTN SAYFAIL ; STATEMENT # 243 000000CB C8140000 ENTER 14H,0H ; STATEMENT # 254 000000CF 0E PUSH CS ; 1 000000D0 07 POP ES ; 1 000000D1 8D360000 LEA SI,?1 000000D5 B006 MOV AL,6H 000000D7 9A00000000 CALL FQ_112 000000DC 0E PUSH CS ; 1 000000DD 07 POP ES ; 1 000000DE 8D1E2800 LEA BX,@CONST+28H 000000E2 B81600 MOV AX,16H 000000E5 9A00000000 CALL FQ_301 000000EA C45E16 LES BX,[BP].@PARAM+16H 000000ED 26DB2F FLD ES:[BX].U 000000F0 9A00000000 CALL FQ_324 000000F5 C45E16 LES BX,[BP].@PARAM+16H 000000F8 26DB2F FLD ES:[BX].U 000000FB 9A00000000 CALL FQ_324 00000100 9A00000000 CALL FQ_901 ; STATEMENT # 256 00000105 B006 MOV AL,6H 00000107 9A00000000 CALL FQ_121 0000010C 2E8E062600 MOV ES,CS:@CONST+26H 00000111 268B061000 MOV AX,ES:IPR 00000116 9A00000000 CALL FQ_411 0000011B 0E PUSH CS ; 1 0000011C 07 POP ES ; 1 0000011D 8D1E3E00 LEA BX,@CONST+3EH 00000121 B81200 MOV AX,12H 00000124 9A00000000 CALL FQ_401 00000129 8D1E0000 LEA BX,DIRN 0000012D B80800 MOV AX,8H 00000130 2E8E062600 MOV ES,CS:@CONST+26H 00000135 9A00000000 CALL FQ_401 0000013A 9A00000000 CALL FQ_902 ; STATEMENT # 257 0000013F 0E PUSH CS ; 1 00000140 07 POP ES ; 1 00000141 8D360B00 LEA SI,?2 00000145 B006 MOV AL,6H 00000147 9A00000000 CALL FQ_112 0000014C 0E PUSH CS ; 1 0000014D 07 POP ES ; 1 0000014E 8D1E5000 LEA BX,@CONST+50H 00000152 B81C00 MOV AX,1CH 00000155 9A00000000 CALL FQ_301 0000015A C45E12 LES BX,[BP].@PARAM+12H 0000015D 26DB2F FLD ES:[BX].W 00000160 9A00000000 CALL FQ_324 00000165 C45E12 LES BX,[BP].@PARAM+12H 00000168 26DB2F FLD ES:[BX].W 0000016B 9A00000000 CALL FQ_324 00000170 9A00000000 CALL FQ_901 ; STATEMENT # 259 00000175 0E PUSH CS ; 1 00000176 07 POP ES ; 1 00000177 8D361400 LEA SI,?3 0000017B B006 MOV AL,6H 0000017D 9A00000000 CALL FQ_112 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 30 FISTEST2.FTN SAYFAIL 00000182 0E PUSH CS ; 1 00000183 07 POP ES ; 1 00000184 8D1E6C00 LEA BX,@CONST+6CH 00000188 B81C00 MOV AX,1CH 0000018B 9A00000000 CALL FQ_301 00000190 C45E0E LES BX,[BP].@PARAM+0EH 00000193 268B07 MOV AX,ES:[BX].I4 00000196 268B5702 MOV DX,ES:[BX].I4+2H 0000019A 9A00000000 CALL FQ_313 0000019F C45E0E LES BX,[BP].@PARAM+0EH 000001A2 268B07 MOV AX,ES:[BX].I4 000001A5 268B5702 MOV DX,ES:[BX].I4+2H 000001A9 9A00000000 CALL FQ_313 000001AE 9A00000000 CALL FQ_901 ; STATEMENT # 261 000001B3 2E8E062600 MOV ES,CS:@CONST+26H 000001B8 26D9060800 FLD ES:TW 000001BD C45E12 LES BX,[BP].@PARAM+12H 000001C0 26DB2F FLD ES:[BX].W ; 7 000001C3 D9C1 FLD @TOS+1H ; 6 000001C5 D8D9 FCOMP TOS,@TOS+1H ; 5 000001C7 9B WAIT 000001C8 DFE0 FSTSW AX 000001CA 9E SAHF 000001CB DB7EF6 FSTP [BP].@TEMP3+0AH; 6 000001CE DB7EEC FSTP [BP].@TEMP3+14H; 7 000001D1 7703 JA $+5H 000001D3 E91600 JMP @@000002 @@000003: 000001D6 DB6EEC FLD [BP].@TEMP3+14H; 7 000001D9 D9E0 FCHS ; 7 000001DB DB6EF6 FLD [BP].@TEMP3+0AH; 6 000001DE DED9 FCOMPP ; 6 000001E0 9B WAIT 000001E1 DFE0 FSTSW AX 000001E3 9E SAHF 000001E4 7303 JAE $+5H 000001E6 E90300 JMP @@000002 @@000004: 000001E9 E92E00 JMP @@000001 @@000002: ; STATEMENT # 262 000001EC B006 MOV AL,6H 000001EE 9A00000000 CALL FQ_121 000001F3 0E PUSH CS ; 1 000001F4 07 POP ES ; 1 000001F5 8D1E8800 LEA BX,@CONST+88H 000001F9 B82400 MOV AX,24H 000001FC 9A00000000 CALL FQ_401 00000201 2E8E062600 MOV ES,CS:@CONST+26H 00000206 268B060C00 MOV AX,ES:INDEF 0000020B 268B160E00 MOV DX,ES:INDEF+2H 00000210 9A00000000 CALL FQ_413 00000215 9A00000000 CALL FQ_902 ; STATEMENT # 263 @@000001: ; STATEMENT # 264 0000021A 0E PUSH CS ; 1 0000021B 07 POP ES ; 1 0000021C 8D361C00 LEA SI,?4 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:02 PAGE 31 FISTEST2.FTN SAYFAIL 00000220 B006 MOV AL,6H 00000222 9A00000000 CALL FQ_112 00000227 0E PUSH CS ; 1 00000228 07 POP ES ; 1 00000229 8D1EAC00 LEA BX,@CONST+0ACH 0000022D B81F00 MOV AX,1FH 00000230 9A00000000 CALL FQ_301 00000235 C45E0A LES BX,[BP].@PARAM+0AH 00000238 268B07 MOV AX,ES:[BX].KFLAG 0000023B 9A00000000 CALL FQ_311 00000240 9A00000000 CALL FQ_901 ; STATEMENT # 266 00000245 C45E06 LES BX,[BP].@PARAM+6H 00000248 26C60700 MOV ES:[BX].LF,0H ; STATEMENT # 267 0000024C E90000 JMP @@000005 ; STATEMENT # 268 @@000005: 0000024F C9 LEAVE 00000250 CA1400 RET 14H FORTRAN-86 COMPILER LABELS, STATEMENT FUNCTIONS04/23/95 06:01:02 PAGE 32 FISTEST2.FTN SAYFAIL DEFN LABEL ADDRESS ATTRIBUTES ---------- ------- ---------- 255 1 . . . . . . . . . . . . . . . 0H FORMAT LABEL 254 255 258 2 . . . . . . . . . . . . . . . BH FORMAT LABEL 257 258 260 3 . . . . . . . . . . . . . . . 14H FORMAT LABEL 259 260 265 4 . . . . . . . . . . . . . . . 1CH FORMAT LABEL 264 265 EXTERNAL SYSTEM ROUTINES REFERENCES ------------------------ ---------- FQ_112. . . . . . . . . . . . . 254 257 259 264 FQ_121. . . . . . . . . . . . . 256 262 FQ_301. . . . . . . . . . . . . 254 257 259 264 FQ_311. . . . . . . . . . . . . 264 FQ_313. . . . . . . . . . . . . 259 FQ_324. . . . . . . . . . . . . 254 257 FQ_401. . . . . . . . . . . . . 256 262 FQ_411. . . . . . . . . . . . . 256 FQ_413. . . . . . . . . . . . . 262 FQ_733. . . . . . . . . . . . . 255 258 260 265 FQ_739. . . . . . . . . . . . . 265 FQ_742. . . . . . . . . . . . . 255 258 260 265 FQ_747. . . . . . . . . . . . . 260 FQ_750. . . . . . . . . . . . . 255 FQ_754. . . . . . . . . . . . . 255 258 260 265 FQ_755. . . . . . . . . . . . . 255 258 260 265 FQ_758. . . . . . . . . . . . . 258 FQ_759. . . . . . . . . . . . . 255 FQ_901. . . . . . . . . . . . . 254 257 259 264 FQ_902. . . . . . . . . . . . . 256 262 FORTRAN-86 COMPILER ERROR MESSAGES AND SUMMARY 04/23/95 06:01:02 PAGE 33 FISTEST2.FTN @MAIN STORAGE REQUIREMENTS FOR MODULE @MAIN: CODE AREA SIZE 87AH 2170D CONSTANT AREA SIZE 166H 358D VARIABLE AREA SIZE E1H 225D MAXIMUM STACK SIZE 2EH 46D // 12H 18D 0 ERRORS DETECTED. 0 WARNINGS ISSUED. ENTRY POINT IS 168H FLOATING-POINT OPERATIONS WERE GENERATED. COMPILATION OF @MAIN COMPLETE. FORTRAN-86 COMPILER ERROR MESSAGES AND SUMMARY 04/23/95 06:01:02 PAGE 34 FISTEST2.FTN SAYFAIL STORAGE REQUIREMENTS FOR MODULE SAYFAIL: CODE AREA SIZE 188H 392D CONSTANT AREA SIZE CBH 203D VARIABLE AREA SIZE 0H 0D MAXIMUM STACK SIZE 1EH 30D // 12H 18D 0 ERRORS DETECTED. 0 WARNINGS ISSUED. ENTRY POINT IS 0CBH FLOATING-POINT OPERATIONS WERE GENERATED. COMPILATION OF SAYFAIL COMPLETE. 0 TOTAL ERRORS DETECTED. 0 TOTAL WARNINGS ISSUED. DICTIONARY SUMMARY: 45AH LAST OBJECT ID 437KB MEMORY AVAILABLE 18KB MEMORY USED (4%) 0KB DISK SPACE USED END OF FORTRAN-86 COMPILATION OF FISTEST2.FTN