X-Git-Url: https://notaz.gp2x.de/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fx87.asm;fp=tests%2Fx87.asm;h=240730f61a6c5aeeca3c568545b6af45a6375483;hb=d4a985bd88473515445c6f9f0ae51be9895b9d60;hp=0000000000000000000000000000000000000000;hpb=e7f5bc393577e0486826a9f913a2825d5c57a2f1;p=ia32rtools.git

diff --git a/tests/x87.asm b/tests/x87.asm
new file mode 100644
index 0000000..240730f
--- /dev/null
+++ b/tests/x87.asm
@@ -0,0 +1,32 @@
+
+_text           segment para public 'CODE' use32
+
+sub_test        proc near
+
+var_20          = dword ptr -20h
+var_18          = qword ptr -18h
+arg_0           = dword ptr  8
+
+                push    ebp
+                mov     ebp, esp
+                sub     esp, 20h
+                fild    [ebp+var_20]
+                fidiv   [ebp+arg_0]
+                fmul    [ebp+var_18]
+                fild    [ebp+var_20]
+                fdiv    st(1), st
+                faddp   st(1), st
+                fld1
+                fdivrp  [ebp+var_18]
+                fld     st(1)
+                fstp    [ebp+var_18]
+                fst     [ebp+var_20]
+                call    __ftol
+                leave
+                retn
+sub_test        endp
+
+
+_text           ends
+
+; vim:expandtab