tests/x87.asm

   1
   2 _text           segment para public 'CODE' use32
   3
   4 sub_test        proc near
   5
   6 var_20          = dword ptr -20h
   7 var_18          = qword ptr -18h
   8 arg_0           = dword ptr  8
   9
  10                 push    ebp
  11                 mov     ebp, esp
  12                 sub     esp, 20h
  13                 fild    [ebp+var_20]
  14                 fidiv   [ebp+arg_0]
  15                 fmul    [ebp+var_18]
  16                 fild    [ebp+var_20]
  17                 fdiv    st(1), st
  18                 faddp   st(1), st
  19                 fld1
  20                 fdivrp  [ebp+var_18]
  21                 fld     st(1)
  22                 fstp    [ebp+var_18]
  23                 fst     [ebp+var_20]
  24                 call    __ftol
  25                 leave
  26                 retn
  27 sub_test        endp
  28
  29
  30 _text           ends
  31
  32 ; vim:expandtab