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

diff --git a/tests/x87_f.asm b/tests/x87_f.asm
new file mode 100644
index 0000000..06a9118
--- /dev/null
+++ b/tests/x87_f.asm
@@ -0,0 +1,24 @@
+
+_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]
+                fild    [ebp+var_4]
+                fsqrt
+                fpatan
+                call    __ftol
+                mov     esp, ebp
+                pop     ebp
+                retn
+sub_test        endp
+
+_text           ends
+
+; vim:expandtab