FORTRAN-86 COMPILER 04/23/95 06:01:43 PAGE 1 FISTEST4.FTN DOS 5.0 (046-N) FORTRAN-86 COMPILER X420 COMPILER INVOKED BY: D:\F86\FORT86.EXE FISTEST4.FTN CO XR PW(80) PL(63) MOD387 SR(I4) IE 1 c FISTEST4.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 = 4 . 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 = 4 , iwb = 8*iw ) 11 c ~~~~~~ ***** 12 INTEGER*4 i, i4FIST, in 13 c ... ~~ ~~ ... Why can't INTEGER*iw work here ? ***** 14 DATA in / Z'80000000' / 15 EXTERNAL i4FIST 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:43 PAGE 2 FISTEST4.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 *, ' FISTEST4 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 = i4FIST(w, kflag) 115 Li = (i .NE. 0) .OR. (kflag .NE. 0 ) FORTRAN-86 COMPILER 04/23/95 06:01:43 PAGE 3 FISTEST4.FTN @MAIN 116 IF ( Li ) CALL SayFail( w, w, 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 = i4FIST(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, 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 = i4FIST(u, kflag) FORTRAN-86 COMPILER 04/23/95 06:01:43 PAGE 4 FISTEST4.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, 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 = i4FIST(x, kflag) 224 Li = (i .NE. in) .OR. (kflag .NE. Invalid) 225 IF ( Li ) CALL SayFail( x, x, 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 *, '+ FISTEST4 tested O.K. at precn.', ipr FORTRAN-86 COMPILER 04/23/95 06:01:43 PAGE 5 FISTEST4.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:43 PAGE 6 FISTEST4.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, ' FISTEST4 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:43 PAGE 7 FISTEST4.FTN SAYFAIL 269 FORTRAN-86 COMPILER PROGRAM CROSS-REFERENCE 04/23/95 06:01:43 PAGE 8 FISTEST4.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 . . . . . . . . . . . . . C2H D CHARACTER*8 VARIABLE, INITIALIZE -D, DIMENSIONED 28 30 105 56 DUMMY . . . . . . . . . . . . . 30H D TEMPREAL VARIABLE, INITIALIZE -D 56 75 12 I . . . . . . . . . . . . . . . 8H D INTEGER*4 VARIABLE 12 114 115 116 131 134 135 175 193 198 201 223 224 225 12 I4FIST. . . . . . . . . . . . . INTEGER*4 FUNCTION 12 15 114 131 175 223 6 ICW . . . . . . . . . . . . . . 14H D INTEGER*2 VARIABLE 6 102 104 12 IN. . . . . . . . . . . . . . . 0H D INTEGER*4 VARIABLE, INITIALIZE -D 12 14 80 87 89 198 224 40 INAN. . . . . . . . . . . . . . 62H 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 . . . . . . . . . . . . 1EH D INTEGER*2 VARIABLE, INITIALIZE -D 46 47 134 194 9 INFINITY. . . . . . . . . . . . 76H D TEMPREAL VARIABLE, EQUIVALENC -ED 9 41 217 40 INFY. . . . . . . . . . . . . . 76H D INTEGER*2 VARIABLE, INITIALIZE -D, DIMENSIONED, EQUI -VALENCED 40 41 44 46 INVALID . . . . . . . . . . . . 20H 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. . . . . . . . . . . . . . . 2AH D INTEGER*2 VARIABLE, INITIALIZE -D, DIMENSIONED 6 33 93 6 IPCW. . . . . . . . . . . . . . 24H D INTEGER*2 VARIABLE, INITIALIZE -D, DIMENSIONED 6 34 102 6 IPR . . . . . . . . . . . . . . 10H E INTEGER*2 VARIABLE, IN COMMON -// 6 29 93 95 100 164 235 40 ISB . . . . . . . . . . . . . . A4H D INTEGER*2 VARIABLE, INITIALIZE -D, DIMENSIONED, EQUI FORTRAN-86 COMPILER PROGRAM CROSS-REFERENCE 04/23/95 06:01:43 PAGE 9 FISTEST4.FTN @MAIN -VALENCED 40 41 42 57 IV. . . . . . . . . . . . . . . 1AH 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. . . . . . . . . . . . . . . 18H D INTEGER*2 VARIABLE 57 123 125 152 153 218 57 IZ. . . . . . . . . . . . . . . 16H D INTEGER*2 VARIABLE 57 83 95 154 155 162 165 6 JP. . . . . . . . . . . . . . . 22H D INTEGER*2 VARIABLE 6 92 93 102 121 68 JY. . . . . . . . . . . . . . . 4EH D INTEGER*2 VARIABLE, DIMENSIONE -D, EQUIVALENCED 68 69 164 68 JZ. . . . . . . . . . . . . . . 80H D INTEGER*2 VARIABLE, DIMENSIONE -D, EQUIVALENCED 68 69 160 164 6 KCW . . . . . . . . . . . . . . 10H D INTEGER*2 VARIABLE 6 101 102 105 6 KFLAG . . . . . . . . . . . . . 12H 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. . . . . . . . . . . . . . . E2H D LOGICAL*1 VARIABLE, INITIALIZE -D 58 75 116 135 201 225 235 236 58 LI. . . . . . . . . . . . . . . E4H D LOGICAL*1 VARIABLE 58 115 116 134 135 195 196 196 196 198 199 199 201 224 225 58 LK. . . . . . . . . . . . . . . E3H D LOGICAL*1 VARIABLE 58 194 196 9 NAN . . . . . . . . . . . . . . 62H D TEMPREAL VARIABLE, EQUIVALENC -ED 9 41 228 SAYFAIL . . . . . . . . . . . . SUBROUTINE 116 135 201 225 9 SB. . . . . . . . . . . . . . . A4H D TEMPREAL VARIABLE, DIMENSIONE -D, EQUIVALENCED 9 41 121 59 TNR . . . . . . . . . . . . . . 8AH 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 . . . . . . . . . . . . . . . 58H D TEMPREAL VARIABLE 56 121 122 125 140 140 140 165 167 173 173 175 177 195 FORTRAN-86 COMPILER PROGRAM CROSS-REFERENCE 04/23/95 06:01:43 PAGE 10 FISTEST4.FTN @MAIN 201 55 V . . . . . . . . . . . . . . . 4H D REAL*4 VARIABLE 55 99 129 129 133 133 172 172 178 178 55 VP. . . . . . . . . . . . . . . CH D REAL*4 VARIABLE 55 94 96 96 96 99 100 178 56 W . . . . . . . . . . . . . . . 3AH D TEMPREAL VARIABLE 56 110 112 112 114 116 116 133 134 135 177 178 178 178 193 195 198 198 201 56 X . . . . . . . . . . . . . . . 44H 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. . . . . . . . . . . . . . . 6CH D TEMPREAL VARIABLE 56 146 147 210 211 56 Y . . . . . . . . . . . . . . . 4EH D TEMPREAL VARIABLE, EQUIVALENC -ED 56 69 153 157 165 167 56 Z . . . . . . . . . . . . . . . 80H D TEMPREAL VARIABLE, EQUIVALENC -ED 56 69 157 162 163 165 FORTRAN-86 COMPILER PROGRAM CROSS-REFERENCE 04/23/95 06:01:43 PAGE 11 FISTEST4.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:43 PAGE 12 FISTEST4.FTN @MAIN ; STATEMENT # 1 00000168 8BEC MOV BP,SP 0000016A 81EC0C00 SUB SP,0CH 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 B80400 MOV AX,4H 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 8B060000 MOV AX,IN 000001DD 8B160200 MOV DX,IN+2H 000001E1 2E8E060B00 MOV ES,CS:@CONST+0BH 000001E6 2689060C00 MOV ES:INDEF,AX 000001EB 2689160E00 MOV ES:INDEF+2H,DX ; STATEMENT # 82 000001F0 2EDF064900 FLD CS:@CONST+49H 000001F5 26D91E0800 FSTP ES:TW ; 7 000001FA 9B WAIT ; STATEMENT # 83 000001FB C70616000C00 MOV IZ,0CH 00000201 C746FE1500 MOV [BP].@TEMP1+2H,15H @@000000: ; STATEMENT # 84 00000206 2E8E060B00 MOV ES,CS:@CONST+0BH FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 13 FISTEST4.FTN @MAIN 0000020B 26D9060800 FLD ES:TW 00000210 D8C0 FADD TOS,@TOS ; 7 00000212 26D91E0800 FSTP ES:TW ; 7 00000217 9B WAIT ; STATEMENT # 85 ?100: 00000218 FF061600 INC IZ 0000021C FF4EFE DEC [BP].@TEMP1+2H 0000021F 7403 JZ $+5H 00000221 E9E2FF JMP @@000000 @@000001: ; STATEMENT # 87 00000224 DB060000 FLD IN 00000228 2E8E060B00 MOV ES,CS:@CONST+0BH 0000022D 26D9060800 FLD ES:TW ; 7 00000232 D9E0 FCHS ; 6 00000234 DAE9 FUCOMPP TOS,@TOS+1H ; 6 00000236 9B WAIT 00000237 DFE0 FSTSW AX 00000239 250041 AND AX,4100H 0000023C 350040 XOR AX,4000H 0000023F 7503 JNE $+5H 00000241 E96C00 JMP @@000002 @@000003: ; STATEMENT # 88 00000244 B006 MOV AL,6H 00000246 9A00000000 CALL FQ_121 0000024B 0E PUSH CS ; 1 0000024C 07 POP ES ; 1 0000024D 8D1E4D00 LEA BX,@CONST+4DH 00000251 B82600 MOV AX,26H 00000254 9A00000000 CALL FQ_401 00000259 9A00000000 CALL FQ_902 ; STATEMENT # 89 0000025E B006 MOV AL,6H 00000260 9A00000000 CALL FQ_121 00000265 0E PUSH CS ; 1 00000266 07 POP ES ; 1 00000267 8D1E7300 LEA BX,@CONST+73H 0000026B B80C00 MOV AX,0CH 0000026E 9A00000000 CALL FQ_401 00000273 8B060000 MOV AX,IN 00000277 8B160200 MOV DX,IN+2H 0000027B 9A00000000 CALL FQ_413 00000280 0E PUSH CS ; 1 00000281 07 POP ES ; 1 00000282 8D1E7F00 LEA BX,@CONST+7FH 00000286 B80A00 MOV AX,0AH 00000289 9A00000000 CALL FQ_401 0000028E 2E8E060B00 MOV ES,CS:@CONST+0BH 00000293 26D9060800 FLD ES:TW 00000298 D9E0 FCHS ; 7 0000029A 9A00000000 CALL FQ_416 0000029F 9A00000000 CALL FQ_902 ; STATEMENT # 90 000002A4 BE0000 MOV SI,0H 000002A7 89F0 MOV AX,SI 000002A9 8EC0 MOV ES,AX 000002AB 9A00000000 CALL FQ_911 ; STATEMENT # 91 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 14 FISTEST4.FTN @MAIN @@000002: ; STATEMENT # 92 000002B0 C70622000100 MOV JP,1H 000002B6 C746FE0300 MOV [BP].@TEMP1+2H,3H @@000004: ; STATEMENT # 93 000002BB 8B362200 MOV SI,JP 000002BF D1E6 SAL SI,1 000002C1 8B842800 MOV AX,IP[SI]-2H 000002C5 99 CWD 000002C6 2E8E060B00 MOV ES,CS:@CONST+0BH 000002CB 2689061000 MOV ES:IPR,AX ; STATEMENT # 94 000002D0 2EDF064900 FLD CS:@CONST+49H 000002D5 D91E0C00 FSTP VP ; 7 000002D9 9B WAIT ; STATEMENT # 95 000002DA C70616000C00 MOV IZ,0CH 000002E0 81E80B00 SUB AX,0BH 000002E4 81DA0000 SBB DX,0H 000002E8 50 PUSH AX ; 1 000002E9 8946FC MOV [BP].@TEMP1+4H,AX 000002EC 58 POP AX ; 1 000002ED 9A00000000 CALL TQ_152 000002F2 7F03 JG $+5H 000002F4 E91700 JMP @@000007 @@000006: ; STATEMENT # 96 000002F7 D9060C00 FLD VP ; 7 000002FB D8C0 FADD TOS,@TOS ; 7 000002FD D91E0C00 FSTP VP ; 7 00000301 9B WAIT ; STATEMENT # 97 ?200: 00000302 FF061600 INC IZ 00000306 FF4EFC DEC [BP].@TEMP1+4H 00000309 7403 JZ $+5H 0000030B E9E9FF JMP @@000006 @@000007: ; STATEMENT # 99 0000030E D9060C00 FLD VP ; 7 00000312 D91E0400 FSTP V ; 7 00000316 9B WAIT ; STATEMENT # 100 00000317 B006 MOV AL,6H 00000319 9A00000000 CALL FQ_121 0000031E 2E8E060B00 MOV ES,CS:@CONST+0BH 00000323 268B061000 MOV AX,ES:IPR 00000328 9A00000000 CALL FQ_411 0000032D 0E PUSH CS ; 1 0000032E 07 POP ES ; 1 0000032F 8D1E8900 LEA BX,@CONST+89H 00000333 B81A00 MOV AX,1AH 00000336 9A00000000 CALL FQ_401 0000033B D9060C00 FLD VP ; 7 0000033F 9A00000000 CALL FQ_416 00000344 9A00000000 CALL FQ_902 ; STATEMENT # 101 00000349 C70610000000 MOV KCW,0H 0000034F C746FC0400 MOV [BP].@TEMP1+4H,4H FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 15 FISTEST4.FTN @MAIN @@000008: ; STATEMENT # 102 00000354 8B362200 MOV SI,JP 00000358 D1E6 SAL SI,1 0000035A 8B061000 MOV AX,KCW 0000035E 69C00004 IMUL AX,AX,400H 00000362 03842200 ADD AX,IPCW[SI]-2H 00000366 89061400 MOV ICW,AX ; STATEMENT # 104 0000036A 8D361400 LEA SI,ICW 0000036E D92C FLDCW [SI] 00000370 9B WAIT ; STATEMENT # 105 00000371 8D1E0000 LEA BX,DIRN 00000375 2E8E060B00 MOV ES,CS:@CONST+0BH 0000037A 06 PUSH ES ; 1 0000037B 53 PUSH BX ; 2 0000037C 680100 PUSH 1H 0000037F B80800 MOV AX,8H 00000382 50 PUSH AX ; 4 00000383 8B361000 MOV SI,KCW 00000387 69F60800 IMUL SI,SI,8H 0000038B 8D9CC200 LEA BX,DIRNS[SI] 0000038F 1E PUSH DS ; 5 00000390 53 PUSH BX ; 6 00000391 680100 PUSH 1H 00000394 50 PUSH AX ; 8 00000395 9A00000000 CALL FQ_800 ; STATEMENT # 106 0000039A B006 MOV AL,6H 0000039C 9A00000000 CALL FQ_121 000003A1 0E PUSH CS ; 1 000003A2 07 POP ES ; 1 000003A3 8D1EA300 LEA BX,@CONST+0A3H 000003A7 B81600 MOV AX,16H 000003AA 9A00000000 CALL FQ_401 000003AF 8D1E0000 LEA BX,DIRN 000003B3 B80800 MOV AX,8H 000003B6 2E8E060B00 MOV ES,CS:@CONST+0BH 000003BB 9A00000000 CALL FQ_401 000003C0 9A00000000 CALL FQ_902 ; STATEMENT # 109 000003C5 B006 MOV AL,6H 000003C7 9A00000000 CALL FQ_121 000003CC 0E PUSH CS ; 1 000003CD 07 POP ES ; 1 000003CE 8D1EB900 LEA BX,@CONST+0B9H 000003D2 B80200 MOV AX,2H 000003D5 9A00000000 CALL FQ_401 000003DA 1E PUSH DS ; 1 000003DB 07 POP ES ; 1 000003DC 8D1E8A00 LEA BX,TNR 000003E0 B81A00 MOV AX,1AH 000003E3 9A00000000 CALL FQ_401 000003E8 0E PUSH CS ; 1 000003E9 07 POP ES ; 1 000003EA 8D1EBB00 LEA BX,@CONST+0BBH 000003EE B80700 MOV AX,7H 000003F1 9A00000000 CALL FQ_401 000003F6 9A00000000 CALL FQ_902 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 16 FISTEST4.FTN @MAIN ; STATEMENT # 110 000003FB D9EE FLDZ ; 7 000003FD DB3E3A00 FSTP W ; 7 00000401 9B WAIT ; STATEMENT # 111 00000402 C7061A000000 MOV IV,0H 00000408 C746FA0200 MOV [BP].@TEMP1+6H,2H @@000010: ; STATEMENT # 112 0000040D DB2E3A00 FLD W ; 7 00000411 D9E0 FCHS ; 7 00000413 DB3E3A00 FSTP W ; 7 00000417 9B WAIT ; STATEMENT # 114 00000418 1E PUSH DS ; 1 00000419 683A00 PUSH OFFSET W ; 2 0000041C 1E PUSH DS ; 3 0000041D 681200 PUSH OFFSET KFLAG; 4 00000420 9A00000000 CALL I4FIST 00000425 89060800 MOV I,AX 00000429 89160A00 MOV I+2H,DX ; STATEMENT # 115 0000042D 8B060800 MOV AX,I 00000431 8B160A00 MOV DX,I+2H 00000435 9A00000000 CALL TQ_152 0000043A B0FF MOV AL,0FFH 0000043C 7501 JNZ $+3H 0000043E 40 INC AX 0000043F 813E12000000 CMP KFLAG,0H 00000445 50 PUSH AX ; 1 00000446 B0FF MOV AL,0FFH 00000448 7501 JNZ $+3H 0000044A 40 INC AX 0000044B 5B POP BX ; 1 0000044C 0AD8 OR BL,AL 0000044E 881EE400 MOV LI,BL ; STATEMENT # 116 00000452 D0DB RCR BL,1 00000454 7203 JB $+5H 00000456 E91900 JMP @@000012 @@000013: 00000459 1E PUSH DS ; 1 0000045A 683A00 PUSH OFFSET W ; 2 0000045D 1E PUSH DS ; 3 0000045E 683A00 PUSH OFFSET W ; 4 00000461 1E PUSH DS ; 5 00000462 680800 PUSH OFFSET I ; 6 00000465 1E PUSH DS ; 7 00000466 681200 PUSH OFFSET KFLAG; 8 00000469 1E PUSH DS ; 9 0000046A 68E200 PUSH OFFSET LF ; 10 0000046D 9A00000000 CALL SAYFAIL @@000012: ; STATEMENT # 117 ?300: 00000472 FF061A00 INC IV 00000476 FF4EFA DEC [BP].@TEMP1+6H 00000479 7403 JZ $+5H 0000047B E98FFF JMP @@000010 @@000011: FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 17 FISTEST4.FTN @MAIN ; STATEMENT # 120 0000047E B006 MOV AL,6H 00000480 9A00000000 CALL FQ_121 00000485 0E PUSH CS ; 1 00000486 07 POP ES ; 1 00000487 8D1EC200 LEA BX,@CONST+0C2H 0000048B B80200 MOV AX,2H 0000048E 9A00000000 CALL FQ_401 00000493 1E PUSH DS ; 1 00000494 07 POP ES ; 1 00000495 8D1E8A00 LEA BX,TNR 00000499 B81A00 MOV AX,1AH 0000049C 9A00000000 CALL FQ_401 000004A1 0E PUSH CS ; 1 000004A2 07 POP ES ; 1 000004A3 8D1EC400 LEA BX,@CONST+0C4H 000004A7 B80C00 MOV AX,0CH 000004AA 9A00000000 CALL FQ_401 000004AF 9A00000000 CALL FQ_902 ; STATEMENT # 121 000004B4 8B362200 MOV SI,JP 000004B8 69F60A00 IMUL SI,SI,0AH 000004BC DBAC9A00 FLD SB[SI]-0AH 000004C0 DB3E5800 FSTP U ; 7 000004C4 9B WAIT ; STATEMENT # 122 @@000014: 000004C5 D9E8 FLD1 ; 7 000004C7 DB2E5800 FLD U ; 6 000004CB D9C9 FXCH @TOS+1H 000004CD DED9 FCOMPP ; 6 000004CF 9B WAIT 000004D0 DFE0 FSTSW AX 000004D2 9E SAHF 000004D3 7703 JA $+5H 000004D5 E9D400 JMP @@000015 @@000016: ; STATEMENT # 123 000004D8 C70618000100 MOV IY,1H 000004DE C746FA0400 MOV [BP].@TEMP1+6H,4H @@000017: ; STATEMENT # 125 000004E3 DF061800 FLD IY 000004E7 DB2E5800 FLD U ; 6 000004EB DEC9 FMULP ; 6 000004ED DB3E4400 FSTP X ; 7 000004F1 9B WAIT ; STATEMENT # 126 000004F2 C7061A000000 MOV IV,0H 000004F8 C746F80200 MOV [BP].@TEMP1+8H,2H @@000019: ; STATEMENT # 128 000004FD DB2E4400 FLD X ; 7 00000501 D9E0 FCHS ; 7 00000503 DB3E4400 FSTP X ; 7 00000507 9B WAIT ; STATEMENT # 129 00000508 D9060400 FLD V ; 7 0000050C D9E0 FCHS ; 7 0000050E D91E0400 FSTP V ; 7 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 18 FISTEST4.FTN @MAIN 00000512 9B WAIT ; STATEMENT # 131 00000513 1E PUSH DS ; 1 00000514 684400 PUSH OFFSET X ; 2 00000517 1E PUSH DS ; 3 00000518 681200 PUSH OFFSET KFLAG; 4 0000051B 9A00000000 CALL I4FIST 00000520 89060800 MOV I,AX 00000524 89160A00 MOV I+2H,DX ; STATEMENT # 133 00000528 DB2E4400 FLD X ; 7 0000052C D8060400 FADD V ; 7 00000530 D8260400 FSUB V ; 7 00000534 DDD1 FST @TOS+1H 00000536 DB3E3A00 FSTP W ; 7 0000053A 9B WAIT ; STATEMENT # 134 0000053B DB060800 FLD I 0000053F DAE9 FUCOMPP TOS,@TOS+1H ; 7 00000541 9B WAIT 00000542 DFE0 FSTSW AX 00000544 250041 AND AX,4100H 00000547 350040 XOR AX,4000H 0000054A B0FF MOV AL,0FFH 0000054C 7501 JNE $+3H 0000054E 40 INC AX 0000054F 8B1E1200 MOV BX,KFLAG 00000553 3B1E1E00 CMP BX,INEXACT 00000557 50 PUSH AX ; 1 00000558 B0FF MOV AL,0FFH 0000055A 7501 JNZ $+3H 0000055C 40 INC AX 0000055D 5B POP BX ; 1 0000055E 0AD8 OR BL,AL 00000560 881EE400 MOV LI,BL ; STATEMENT # 135 00000564 D0DB RCR BL,1 00000566 7203 JB $+5H 00000568 E91900 JMP @@000021 @@000022: 0000056B 1E PUSH DS ; 1 0000056C 684400 PUSH OFFSET X ; 2 0000056F 1E PUSH DS ; 3 00000570 683A00 PUSH OFFSET W ; 4 00000573 1E PUSH DS ; 5 00000574 680800 PUSH OFFSET I ; 6 00000577 1E PUSH DS ; 7 00000578 681200 PUSH OFFSET KFLAG; 8 0000057B 1E PUSH DS ; 9 0000057C 68E200 PUSH OFFSET LF ; 10 0000057F 9A00000000 CALL SAYFAIL @@000021: ; STATEMENT # 136 ?400: 00000584 FF061A00 INC IV 00000588 FF4EF8 DEC [BP].@TEMP1+8H 0000058B 7403 JZ $+5H 0000058D E96DFF JMP @@000019 @@000020: ; STATEMENT # 138 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 19 FISTEST4.FTN @MAIN ?430: 00000590 810618000200 ADD IY,2H 00000596 FF4EFA DEC [BP].@TEMP1+6H 00000599 7403 JZ $+5H 0000059B E945FF JMP @@000017 @@000018: ; STATEMENT # 140 0000059E DB2E5800 FLD U ; 7 000005A2 D8C0 FADD TOS,@TOS ; 7 000005A4 DB3E5800 FSTP U ; 7 000005A8 9B WAIT ; STATEMENT # 141 ?460: 000005A9 E919FF JMP @@000014 @@000015: ; STATEMENT # 145 000005AC 2ED906D000 FLD CS:@CONST+0D0H; 7 000005B1 DB3E4400 FSTP X ; 7 000005B5 9B WAIT ; STATEMENT # 146 000005B6 2ED906D400 FLD CS:@CONST+0D4H; 7 000005BB DB3E6C00 FSTP X2 ; 7 000005BF 9B WAIT ; STATEMENT # 147 @@000023: 000005C0 DB2E6C00 FLD X2 ; 7 000005C4 DB2E4400 FLD X ; 6 000005C8 D9C9 FXCH @TOS+1H 000005CA DED9 FCOMPP ; 6 000005CC 9B WAIT 000005CD DFE0 FSTSW AX 000005CF 9E SAHF 000005D0 7703 JA $+5H 000005D2 E98502 JMP @@000024 @@000025: ; STATEMENT # 150 000005D5 2ED906D800 FLD CS:@CONST+0D8H; 7 000005DA DB2E4400 FLD X ; 6 000005DE D9C9 FXCH @TOS+1H 000005E0 DED9 FCOMPP ; 6 000005E2 9B WAIT 000005E3 DFE0 FSTSW AX 000005E5 9E SAHF 000005E6 7703 JA $+5H 000005E8 E92900 JMP @@000026 @@000027: 000005EB 0E PUSH CS ; 1 000005EC 07 POP ES ; 1 000005ED 8D360000 LEA SI,?1 000005F1 B006 MOV AL,6H 000005F3 9A00000000 CALL FQ_112 000005F8 1E PUSH DS ; 1 000005F9 07 POP ES ; 1 000005FA 8D1E8A00 LEA BX,TNR 000005FE B81A00 MOV AX,1AH 00000601 9A00000000 CALL FQ_301 00000606 DB2E4400 FLD X ; 7 0000060A 9A00000000 CALL FQ_324 0000060F 9A00000000 CALL FQ_901 @@000026: FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 20 FISTEST4.FTN @MAIN ; STATEMENT # 152 00000614 C7061800FDFF MOV IY,0FFFDH 0000061A C746FA0700 MOV [BP].@TEMP1+6H,7H @@000028: ; STATEMENT # 153 0000061F DF061800 FLD IY 00000623 2ED80EDC00 FMUL CS:@CONST+0DCH; 7 00000628 DB2E4400 FLD X ; 6 0000062C DEC1 FADDP ; 6 0000062E DB3E4E00 FSTP Y ; 7 00000632 9B WAIT ; STATEMENT # 154 00000633 C7061600FFFF MOV IZ,0FFFFH 00000639 C746F80300 MOV [BP].@TEMP1+8H,3H @@000030: ; STATEMENT # 155 0000063E 813E16000000 CMP IZ,0H 00000644 9C PUSHF 00000645 8F46F4 POP [BP].@TEMP3+2H 00000648 7503 JNZ $+5H 0000064A E97100 JMP @@000032 @@000033: ; STATEMENT # 157 0000064D DB2E4E00 FLD Y ; 7 00000651 DB3E8000 FSTP Z ; 7 00000655 9B WAIT ; STATEMENT # 158 00000656 C7061A000100 MOV IV,1H ; STATEMENT # 160 0000065C 8B061C00 MOV AX,IONEXP 00000660 89068800 MOV JZ+8H,AX ; STATEMENT # 162 00000664 D9E8 FLD1 ; 7 00000666 DB2E8000 FLD Z ; 6 0000066A DAE9 FUCOMPP TOS,@TOS+1H ; 6 0000066C 9B WAIT 0000066D DFE0 FSTSW AX 0000066F 250041 AND AX,4100H 00000672 350040 XOR AX,4000H 00000675 7403 JE $+5H 00000677 E90F00 JMP @@000034 @@000035: 0000067A FF76F4 PUSH [BP].@TEMP3+2H; 1 0000067D 9D POPF 0000067E 7C03 JL $+5H 00000680 E90600 JMP @@000034 @@000036: 00000683 C7061A000000 MOV IV,0H @@000034: ; STATEMENT # 163 00000689 D9E8 FLD1 ; 7 0000068B DB3E8000 FSTP Z ; 7 0000068F 9B WAIT ; STATEMENT # 164 00000690 8B065600 MOV AX,JY+8H 00000694 2E8E060B00 MOV ES,CS:@CONST+0BH 00000699 262B061000 SUB AX,ES:IPR 0000069E 03061A00 ADD AX,IV 000006A2 89068800 MOV JZ+8H,AX ; STATEMENT # 165 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 21 FISTEST4.FTN @MAIN 000006A6 DF061600 FLD IZ 000006AA DB2E8000 FLD Z ; 6 000006AE DEC9 FMULP ; 6 000006B0 DB2E4E00 FLD Y ; 6 000006B4 DEC1 FADDP ; 6 000006B6 DB3E5800 FSTP U ; 7 000006BA 9B WAIT ; STATEMENT # 166 000006BB E90900 JMP @@000037 @@000032: ; STATEMENT # 167 000006BE DB2E4E00 FLD Y ; 7 000006C2 DB3E5800 FSTP U ; 7 000006C6 9B WAIT ; STATEMENT # 168 @@000037: ; STATEMENT # 170 000006C7 C7061A000000 MOV IV,0H 000006CD C746F60200 MOV [BP].@TEMP1+0AH,2H @@000038: ; STATEMENT # 172 000006D2 D9060400 FLD V ; 7 000006D6 D9E0 FCHS ; 7 000006D8 D91E0400 FSTP V ; 7 000006DC 9B WAIT ; STATEMENT # 173 000006DD DB2E5800 FLD U ; 7 000006E1 D9E0 FCHS ; 7 000006E3 DB3E5800 FSTP U ; 7 000006E7 9B WAIT ; STATEMENT # 175 000006E8 1E PUSH DS ; 1 000006E9 685800 PUSH OFFSET U ; 2 000006EC 1E PUSH DS ; 3 000006ED 681200 PUSH OFFSET KFLAG; 4 000006F0 9A00000000 CALL I4FIST 000006F5 89060800 MOV I,AX 000006F9 89160A00 MOV I+2H,DX ; STATEMENT # 177 000006FD DB2E5800 FLD U ; 7 00000701 DB3E3A00 FSTP W ; 7 00000705 9B WAIT ; STATEMENT # 178 00000706 DB2E5800 FLD U ; 7 0000070A D9E1 FABS ; 7 0000070C D9060C00 FLD VP ; 6 00000710 DED9 FCOMPP ; 6 00000712 9B WAIT 00000713 DFE0 FSTSW AX 00000715 9E SAHF 00000716 7703 JA $+5H 00000718 E91100 JMP @@000040 @@000041: 0000071B DB2E5800 FLD U ; 7 0000071F D8060400 FADD V ; 7 00000723 D8260400 FSUB V ; 7 00000727 DB3E3A00 FSTP W ; 7 0000072B 9B WAIT @@000040: ; STATEMENT # 193 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 22 FISTEST4.FTN @MAIN 0000072C DB060800 FLD I 00000730 DB2E3A00 FLD W ; 6 00000734 DAE9 FUCOMPP TOS,@TOS+1H ; 6 00000736 9B WAIT 00000737 DFE0 FSTSW AX 00000739 250041 AND AX,4100H 0000073C 350040 XOR AX,4000H 0000073F 7403 JE $+5H 00000741 E94D00 JMP @@000042 @@000043: ; STATEMENT # 194 00000744 8B061200 MOV AX,KFLAG 00000748 3B061E00 CMP AX,INEXACT 0000074C B0FF MOV AL,0FFH 0000074E 7501 JNZ $+3H 00000750 40 INC AX 00000751 8806E300 MOV LK,AL ; STATEMENT # 195 00000755 DB2E3A00 FLD W ; 7 00000759 DB2E5800 FLD U ; 6 0000075D 50 PUSH AX ; 1 0000075E DAE9 FUCOMPP TOS,@TOS+1H ; 6 00000760 9B WAIT 00000761 DFE0 FSTSW AX 00000763 250041 AND AX,4100H 00000766 350040 XOR AX,4000H 00000769 B0FF MOV AL,0FFH 0000076B 7501 JNE $+3H 0000076D 40 INC AX 0000076E 8806E400 MOV LI,AL ; STATEMENT # 196 00000772 50 PUSH AX ; 2 00000773 F6D0 NOT AL 00000775 813E12000000 CMP KFLAG,0H 0000077B 50 PUSH AX ; 3 0000077C B0FF MOV AL,0FFH 0000077E 7501 JNZ $+3H 00000780 40 INC AX 00000781 5B POP BX ; 3 00000782 22D8 AND BL,AL 00000784 5A POP DX ; 2 00000785 58 POP AX ; 1 00000786 22C2 AND AL,DL 00000788 0AC3 OR AL,BL 0000078A 8806E400 MOV LI,AL ; STATEMENT # 197 0000078E E96B00 JMP @@000044 @@000042: ; STATEMENT # 198 00000791 8B060800 MOV AX,I 00000795 8B160A00 MOV DX,I+2H 00000799 8B1E0000 MOV BX,IN 0000079D 8B0E0200 MOV CX,IN+2H 000007A1 9A00000000 CALL TQ_150 000007A6 B0FF MOV AL,0FFH 000007A8 7501 JNZ $+3H 000007AA 40 INC AX 000007AB 2E8E060B00 MOV ES,CS:@CONST+0BH 000007B0 26D9060800 FLD ES:TW 000007B5 DB2E3A00 FLD W ; 6 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 23 FISTEST4.FTN @MAIN 000007B9 50 PUSH AX ; 1 000007BA D9C1 FLD @TOS+1H ; 6 000007BC DED9 FCOMPP ; 5 000007BE 9B WAIT 000007BF DFE0 FSTSW AX 000007C1 9E SAHF 000007C2 B0FF MOV AL,0FFH 000007C4 7701 JA $+3H 000007C6 40 INC AX 000007C7 D9E0 FCHS ; 7 000007C9 DB2E3A00 FLD W ; 6 000007CD 50 PUSH AX ; 2 000007CE DED9 FCOMPP ; 6 000007D0 9B WAIT 000007D1 DFE0 FSTSW AX 000007D3 9E SAHF 000007D4 B0FF MOV AL,0FFH 000007D6 7301 JAE $+3H 000007D8 40 INC AX 000007D9 5B POP BX ; 2 000007DA 22D8 AND BL,AL 000007DC 58 POP AX ; 1 000007DD 0AC3 OR AL,BL 000007DF 8806E400 MOV LI,AL ; STATEMENT # 199 000007E3 8B1E2000 MOV BX,INVALID 000007E7 231E1200 AND BX,KFLAG 000007EB 3B1E2000 CMP BX,INVALID 000007EF 50 PUSH AX ; 1 000007F0 B0FF MOV AL,0FFH 000007F2 7501 JNZ $+3H 000007F4 40 INC AX 000007F5 5B POP BX ; 1 000007F6 0AC3 OR AL,BL 000007F8 8806E400 MOV LI,AL ; STATEMENT # 200 @@000044: ; STATEMENT # 201 000007FC F606E40001 TEST LI,1H 00000801 7503 JNZ $+5H 00000803 E91900 JMP @@000045 @@000046: 00000806 1E PUSH DS ; 1 00000807 685800 PUSH OFFSET U ; 2 0000080A 1E PUSH DS ; 3 0000080B 683A00 PUSH OFFSET W ; 4 0000080E 1E PUSH DS ; 5 0000080F 680800 PUSH OFFSET I ; 6 00000812 1E PUSH DS ; 7 00000813 681200 PUSH OFFSET KFLAG; 8 00000816 1E PUSH DS ; 9 00000817 68E200 PUSH OFFSET LF ; 10 0000081A 9A00000000 CALL SAYFAIL @@000045: ; STATEMENT # 204 ?500: 0000081F FF061A00 INC IV 00000823 FF4EF6 DEC [BP].@TEMP1+0AH 00000826 7403 JZ $+5H 00000828 E9A7FE JMP @@000038 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 24 FISTEST4.FTN @MAIN @@000039: ; STATEMENT # 206 ?530: 0000082B FF061600 INC IZ 0000082F FF4EF8 DEC [BP].@TEMP1+8H 00000832 7403 JZ $+5H 00000834 E907FE JMP @@000030 @@000031: ; STATEMENT # 208 ?560: 00000837 FF061800 INC IY 0000083B FF4EFA DEC [BP].@TEMP1+6H 0000083E 7403 JZ $+5H 00000840 E9DCFD JMP @@000028 @@000029: ; STATEMENT # 210 00000843 DB2E6C00 FLD X2 ; 7 00000847 DB3E4400 FSTP X ; 7 0000084B 9B WAIT ; STATEMENT # 211 0000084C DB2E6C00 FLD X2 ; 7 00000850 D8C0 FADD TOS,@TOS ; 7 00000852 DB3E6C00 FSTP X2 ; 7 00000856 9B WAIT ; STATEMENT # 212 ?590: 00000857 E966FD JMP @@000023 @@000024: ; STATEMENT # 216 0000085A B006 MOV AL,6H 0000085C 9A00000000 CALL FQ_121 00000861 0E PUSH CS ; 1 00000862 07 POP ES ; 1 00000863 8D1EC200 LEA BX,@CONST+0C2H 00000867 B80200 MOV AX,2H 0000086A 9A00000000 CALL FQ_401 0000086F 1E PUSH DS ; 1 00000870 07 POP ES ; 1 00000871 8D1E8A00 LEA BX,TNR 00000875 B81A00 MOV AX,1AH 00000878 9A00000000 CALL FQ_401 0000087D 0E PUSH CS ; 1 0000087E 07 POP ES ; 1 0000087F 8D1EE000 LEA BX,@CONST+0E0H 00000883 B81400 MOV AX,14H 00000886 9A00000000 CALL FQ_401 0000088B 9A00000000 CALL FQ_902 ; STATEMENT # 217 00000890 DB2E7600 FLD INFINITY ; 7 00000894 DB3E4400 FSTP X ; 7 00000898 9B WAIT ; STATEMENT # 218 00000899 C70618000000 MOV IY,0H 0000089F C746FA0200 MOV [BP].@TEMP1+6H,2H @@000047: ; STATEMENT # 219 000008A4 C7061A000000 MOV IV,0H 000008AA C746F80200 MOV [BP].@TEMP1+8H,2H @@000049: ; STATEMENT # 221 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 25 FISTEST4.FTN @MAIN 000008AF DB2E4400 FLD X ; 7 000008B3 D9E0 FCHS ; 7 000008B5 DB3E4400 FSTP X ; 7 000008B9 9B WAIT ; STATEMENT # 223 000008BA 1E PUSH DS ; 1 000008BB 684400 PUSH OFFSET X ; 2 000008BE 1E PUSH DS ; 3 000008BF 681200 PUSH OFFSET KFLAG; 4 000008C2 9A00000000 CALL I4FIST 000008C7 89060800 MOV I,AX 000008CB 89160A00 MOV I+2H,DX ; STATEMENT # 224 000008CF 8B060800 MOV AX,I 000008D3 8B160A00 MOV DX,I+2H 000008D7 8B1E0000 MOV BX,IN 000008DB 8B0E0200 MOV CX,IN+2H 000008DF 9A00000000 CALL TQ_150 000008E4 B0FF MOV AL,0FFH 000008E6 7501 JNZ $+3H 000008E8 40 INC AX 000008E9 8B1E1200 MOV BX,KFLAG 000008ED 3B1E2000 CMP BX,INVALID 000008F1 50 PUSH AX ; 1 000008F2 B0FF MOV AL,0FFH 000008F4 7501 JNZ $+3H 000008F6 40 INC AX 000008F7 5B POP BX ; 1 000008F8 0AD8 OR BL,AL 000008FA 881EE400 MOV LI,BL ; STATEMENT # 225 000008FE D0DB RCR BL,1 00000900 7203 JB $+5H 00000902 E91900 JMP @@000051 @@000052: 00000905 1E PUSH DS ; 1 00000906 684400 PUSH OFFSET X ; 2 00000909 1E PUSH DS ; 3 0000090A 684400 PUSH OFFSET X ; 4 0000090D 1E PUSH DS ; 5 0000090E 680800 PUSH OFFSET I ; 6 00000911 1E PUSH DS ; 7 00000912 681200 PUSH OFFSET KFLAG; 8 00000915 1E PUSH DS ; 9 00000916 68E200 PUSH OFFSET LF ; 10 00000919 9A00000000 CALL SAYFAIL @@000051: ; STATEMENT # 226 ?600: 0000091E FF061A00 INC IV 00000922 FF4EF8 DEC [BP].@TEMP1+8H 00000925 7403 JZ $+5H 00000927 E985FF JMP @@000049 @@000050: ; STATEMENT # 228 0000092A DB2E6200 FLD NAN ; 7 0000092E DB3E4400 FSTP X ; 7 00000932 9B WAIT ; STATEMENT # 229 ?650: FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 26 FISTEST4.FTN @MAIN 00000933 FF061800 INC IY 00000937 FF4EFA DEC [BP].@TEMP1+6H 0000093A 7403 JZ $+5H 0000093C E965FF JMP @@000047 @@000048: ; STATEMENT # 232 0000093F B006 MOV AL,6H 00000941 9A00000000 CALL FQ_121 00000946 9A00000000 CALL FQ_902 ; STATEMENT # 233 ?700: 0000094B FF061000 INC KCW 0000094F FF4EFC DEC [BP].@TEMP1+4H 00000952 7403 JZ $+5H 00000954 E9FDF9 JMP @@000008 @@000009: ; STATEMENT # 235 00000957 F606E20001 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 C606E20001 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 000009AB 9A00000000 CALL FQ_121 000009B0 9A00000000 CALL FQ_902 ; STATEMENT # 239 ?800: 000009B5 FF062200 INC JP 000009B9 FF4EFE DEC [BP].@TEMP1+2H 000009BC 7403 JZ $+5H 000009BE E9FAF8 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 FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 27 FISTEST4.FTN @MAIN 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:43 PAGE 28 FISTEST4.FTN @MAIN DEFN LABEL ADDRESS ATTRIBUTES ---------- ------- ---------- 151 1 . . . . . . . . . . . . . . . 0H FORMAT LABEL 150 151 85 100 . . . . . . . . . . . . . . 218H LABEL 83 85 97 200 . . . . . . . . . . . . . . 302H LABEL 95 97 117 300 . . . . . . . . . . . . . . 472H LABEL 111 117 136 400 . . . . . . . . . . . . . . 584H LABEL 126 136 138 430 . . . . . . . . . . . . . . 590H LABEL 123 138 141 460 . . . . . . . . . . . . . . 5A9H LABEL 122 141 204 500 . . . . . . . . . . . . . . 81FH LABEL 170 204 206 530 . . . . . . . . . . . . . . 82BH LABEL 154 206 208 560 . . . . . . . . . . . . . . 837H LABEL 152 208 212 590 . . . . . . . . . . . . . . 857H 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 100 235 FQ_413. . . . . . . . . . . . . 89 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_150. . . . . . . . . . . . . 198 224 TQ_152. . . . . . . . . . . . . 95 115 TQ_999. . . . . . . . . . . . . ----- FORTRAN-86 COMPILER GENERATED CODE 04/23/95 06:01:43 PAGE 29 FISTEST4.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:43 PAGE 30 FISTEST4.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:43 PAGE 31 FISTEST4.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:43 PAGE 32 FISTEST4.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:43 PAGE 33 FISTEST4.FTN @MAIN STORAGE REQUIREMENTS FOR MODULE @MAIN: CODE AREA SIZE 87AH 2170D CONSTANT AREA SIZE 166H 358D VARIABLE AREA SIZE E5H 229D MAXIMUM STACK SIZE 28H 40D // 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:43 PAGE 34 FISTEST4.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: 45CH LAST OBJECT ID 437KB MEMORY AVAILABLE 18KB MEMORY USED (4%) 0KB DISK SPACE USED END OF FORTRAN-86 COMPILATION OF FISTEST4.FTN