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