tests/x87.asm

   1
   2 _text           segment para public 'CODE' use32
   3
   4 sub_test        proc near
   5
   6 var_28          = qword ptr -28h
   7 var_20          = dword ptr -20h
   8 var_18          = qword ptr -18h
   9 arg_0           = dword ptr  8
  10
  11                 push    ebp
  12                 mov     ebp, esp
  13                 sub     esp, 20h
  14                 fild    [ebp+var_20]
  15                 fidiv   [ebp+arg_0]
  16                 fmul    [ebp+var_18]
  17                 fild    [ebp+var_20]
  18                 fdiv    st(1), st
  19                 faddp   st(1), st
  20                 fld     [ebp+var_18]
  21                 sub     esp, 10h
  22                 fstp    [esp+30h+var_28]
  23                 fstp    qword ptr [esp+0]
  24                 call    _pow
  25                 add     esp, 10h
  26                 fcom    [ebp+var_18]
  27                 xor     eax, eax
  28                 fnstsw  ax
  29                 test    ah, 41h
  30                 mov     eax, 0
  31                 setz    al
  32                 fld1
  33                 fdivr   [ebp+var_18]
  34                 fxch    st(1)
  35                 fchs
  36                 fsubrp  st, st
  37                 fld     st
  38                 fyl2x
  39                 fld     st
  40                 fistp   [ebp+var_20]
  41                 fst     [ebp+var_18]
  42                 call    __ftol
  43                 leave
  44                 retn
  45 sub_test        endp
  46
  47
  48 _text           ends
  49
  50 ; vim:expandtab