diff --git a/rtl/i8086/math.inc b/rtl/i8086/math.inc
index 5549a6c658..b8707fff1e 100644
--- a/rtl/i8086/math.inc
+++ b/rtl/i8086/math.inc
@@ -33,13 +33,10 @@
 
     function Get8087CW:word;assembler;
       asm
-        push bp
-        mov bp, sp
-        push ax
-        fnstcw [bp - 2]
-        pop ax
-        mov sp, bp
-        pop bp
+	    push ax
+		mov bx, sp
+		fnstcw word ptr ss:[bx]
+		pop ax
       end;
 
 {****************************************************************************