minor fixes
[ia32rtools.git] / tests / x87.asm
... / ...
CommitLineData
1
2_text segment para public 'CODE' use32
3
4sub_test proc near
5
6var_28 = qword ptr -28h
7var_20 = dword ptr -20h
8var_18 = qword ptr -18h
9arg_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
45sub_test endp
46
47
48_text ends
49
50; vim:expandtab