TITLE	cube.c
	.386P
include listing.inc
if @Version gt 510
.model FLAT
else
_TEXT	SEGMENT PARA USE32 PUBLIC 'CODE'
_TEXT	ENDS
_DATA	SEGMENT DWORD USE32 PUBLIC 'DATA'
_DATA	ENDS
CONST	SEGMENT DWORD USE32 PUBLIC 'CONST'
CONST	ENDS
_BSS	SEGMENT DWORD USE32 PUBLIC 'BSS'
_BSS	ENDS
_TLS	SEGMENT DWORD USE32 PUBLIC 'TLS'
_TLS	ENDS
FLAT	GROUP _DATA, CONST, _BSS
	ASSUME	CS: FLAT, DS: FLAT, SS: FLAT
endif
PUBLIC	_cbrt1
PUBLIC	__real@8@3ffd8000000000000000
EXTRN	__fltused:NEAR
;	COMDAT __real@8@3ffd8000000000000000
; File cube.c
CONST	SEGMENT
__real@8@3ffd8000000000000000 DQ 03fd0000000000000r ; 0.25
CONST	ENDS
_TEXT	SEGMENT
_cube$ = 8
_cbrt1	PROC NEAR
; File cube.c
; Line 4
	fld	QWORD PTR _cube$[esp-4]
	fld	ST(0)
	fmul	QWORD PTR __real@8@3ffd8000000000000000
	mov	eax, 5
$L92:
; Line 8
	fld	ST(0)
	fmul	ST(0), ST(1)
	dec	eax
	fmul	ST(0), ST(1)
; Line 9
	fld	ST(0)
	fsub	ST(0), ST(3)
	fmul	ST(0), ST(2)
	fxch	ST(1)
	fadd	ST(0), ST(0)
	fadd	ST(0), ST(3)
	fdivp	ST(1), ST(0)
	fsubp	ST(1), ST(0)
	jne	SHORT $L92
	fstp	ST(0)
	fstp	ST(0)
; Line 11
	ret	0
_cbrt1	ENDP
_TEXT	ENDS
END