minor fixes
[ia32rtools.git] / tests / x87.asm
CommitLineData
d4a985bd 1
2_text segment para public 'CODE' use32
3
4sub_test proc near
5
30620174 6var_28 = qword ptr -28h
d4a985bd 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
30620174 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
16057ce1 26 fcom [ebp+var_18]
27 xor eax, eax
28 fnstsw ax
29 test ah, 41h
30 mov eax, 0
31 setz al
d4a985bd 32 fld1
fe18df39 33 fdivr [ebp+var_18]
34 fxch st(1)
35 fchs
36 fsubrp st, st
622eb2ef 37 fld st
fe18df39 38 fyl2x
39 fld st
16057ce1 40 fistp [ebp+var_20]
41 fst [ebp+var_18]
d4a985bd 42 call __ftol
43 leave
44 retn
45sub_test endp
46
47
48_text ends
49
50; vim:expandtab