X-Git-Url: https://notaz.gp2x.de/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fx87_s.asm;fp=tests%2Fx87_s.asm;h=9b86871f528921bce764b8fbb25c2dfb922c8f0a;hb=fe18df39aa9dc0a3afc5a7474a27698672eceeca;hp=0000000000000000000000000000000000000000;hpb=497a6d6b4c2992fc9cbd2591985d108bc8859f72;p=ia32rtools.git

diff --git a/tests/x87_s.asm b/tests/x87_s.asm
new file mode 100644
index 0000000..9b86871
--- /dev/null
+++ b/tests/x87_s.asm
@@ -0,0 +1,37 @@
+
+_text           segment para public 'CODE' use32
+
+sub_test        proc near
+
+var_4           = dword ptr -4
+
+                push    ebp
+                mov     ebp, esp
+                sub     esp, 4
+                mov     [ebp+var_4], 4
+                fild    [ebp+var_4]
+                fld     [ebp+var_4]
+                fild    [ebp+var_4]
+                fld1
+                fild    [ebp+var_4]
+                fldz
+                fldln2
+                fild    [ebp+var_4]
+                faddp   st, st(7)
+                fdivp   st(5), st
+                fyl2x
+                fsubp   st(2), st
+                fsubrp  st, st
+                fxch    st(6)
+                fchs
+                fpatan
+                fstp    [ebp+var_4]
+                call    __ftol
+                mov     esp, ebp
+                pop     ebp
+                retn
+sub_test        endp
+
+_text           ends
+
+; vim:expandtab