1.global ldexpl
2.type ldexpl,@function
3ldexpl:
4	nop
5
6.global scalblnl
7.type scalblnl,@function
8scalblnl:
9	nop
10
11.global scalbnl
12.type scalbnl,@function
13scalbnl:
14	mov 16(%esp),%eax
15	add $0x3ffe,%eax
16	cmp $0x7ffd,%eax
17	jae 1f
18	inc %eax
19	fldt 4(%esp)
20	mov %eax,12(%esp)
21	mov $0x80000000,%eax
22	mov %eax,8(%esp)
23	xor %eax,%eax
24	mov %eax,4(%esp)
25	fldt 4(%esp)
26	fmulp
27	ret
281:	fildl 16(%esp)
29	fldt 4(%esp)
30	fscale
31	fstp %st(1)
32	ret
33