tests/x87_s.asm

   1
   2 _text           segment para public 'CODE' use32
   3
   4 sub_test        proc near
   5
   6 var_4           = dword ptr -4
   7
   8                 push    ebp
   9                 mov     ebp, esp
  10                 sub     esp, 4
  11                 mov     [ebp+var_4], 4
  12                 fild    [ebp+var_4]
  13                 fld     [ebp+var_4]
  14                 fild    [ebp+var_4]
  15                 fld1
  16                 fild    [ebp+var_4]
  17                 fldz
  18                 fldln2
  19                 fild    [ebp+var_4]
  20                 faddp   st, st(7)
  21                 fdivp   st(5), st
  22                 fyl2x
  23                 fsubp   st(2), st
  24                 fsubrp  st, st
  25                 fxch    st(6)
  26                 fchs
  27                 fpatan
  28                 fist    [ebp+var_4]
  29                 fstp    [ebp+var_4]
  30                 mov     esp, ebp
  31                 pop     ebp
  32                 retn
  33 sub_test        endp
  34
  35 _text           ends
  36
  37 ; vim:expandtab