diff --git a/WEGA/contrib/lcc/lib/libc/u8k/crt/doub.s b/WEGA/contrib/lcc/lib/libc/u8k/crt/doub.s
new file mode 100644
index 0000000..e057a58
--- /dev/null
+++ b/WEGA/contrib/lcc/lib/libc/u8k/crt/doub.s
@@ -0,0 +1,1178 @@
+.line 1 ""
+	.seg
+	fp := r13
+	FP := rr12
+	sp := r15
+	SP := rr14
+	.psec	data   
+	.data
+	.comm	2,	_debug;
+	.psec
+	.code
+subd::
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	_stkseg+%fff4(fp),rr0
+	ldl	_stkseg+%fff0(fp),rr4
+	ldl	_stkseg+%ffec(fp),rr2
+	ldl	_stkseg+%ffe8(fp),rr6
+	ldl	rr2,#%80000000
+	ldl	_stkseg+%ffe4(fp),rr2
+	ldl	rr2,_stkseg+%fff0(fp)
+	cpl	rr2,#0
+	jpr	ne,L27
+	ldl	rr2,_stkseg+%ffe8(fp)
+	cpl	rr2,#0
+	jpr	ne,L27
+	jpr	L26
+L27:
+	ldl	rr6,_stkseg+%ffe8(fp)
+	ldl	rr2,_stkseg+%ffe4(fp)
+	com	r2
+	com	r3
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	ldl	rr4,_stkseg+%fff0(fp)
+	com	r4
+	com	r5
+	and	r4,_stkseg+%ffe4(fp)
+	and	r5,_stkseg+%ffe6(fp)
+	or	r2,r4
+	or	r3,r5
+	ldl	rr4,rr2
+	ldl	rr2,_stkseg+%ffec(fp)
+	ldl	rr0,_stkseg+%fff4(fp)
+	callr	addd
+	inc	sp,#%10
+L26:
+	ld	sp,fp
+	ldm	r8,_stkseg-8(sp),#6
+	inc	sp,#4
+	ret
+	~L1 := 28
+	~L2 := 32
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+negd::
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	_stkseg+%fff4(fp),rr0
+	ldl	_stkseg+%fff0(fp),rr2
+	ldl	rr2,#%80000000
+	ldl	_stkseg+%ffec(fp),rr2
+	ldl	rr2,_stkseg+%fff0(fp)
+	ldl	_stkseg+%ffe8(fp),rr2
+	ldl	rr2,_stkseg+%ffec(fp)
+	com	r2
+	com	r3
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	rr4,_stkseg+%fff4(fp)
+	com	r4
+	com	r5
+	and	r4,_stkseg+%ffec(fp)
+	and	r5,_stkseg+%ffee(fp)
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%ffe4(fp),rr2
+	ldl	rr2,_stkseg+%ffe8(fp)
+	ldl	rr0,_stkseg+%ffe4(fp)
+	jpr	L29
+L29:
+	ld	sp,fp
+	ldm	r8,_stkseg-8(sp),#6
+	inc	sp,#4
+	ret
+	~L1 := 28
+	~L2 := 32
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+addd::
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	_stkseg+%fff4(fp),rr0
+	ldl	_stkseg+%fff0(fp),rr4
+	ldl	_stkseg+%ffec(fp),rr2
+	ldl	_stkseg+%ffe8(fp),rr6
+	xor	r3,r3
+	ld	r2,r3
+	ldl	_stkseg+%ffd4(fp),rr2
+	ldl	rr2,#%80000000
+	ldl	_stkseg+%ffc0(fp),rr2
+	ldl	rr2,_stkseg+%fff4(fp)
+	cpl	rr2,#0
+	jpr	ne,L31
+	ldl	rr2,_stkseg+%ffec(fp)
+	cpl	rr2,#0
+	jpr	ne,L31
+	ldl	rr2,_stkseg+%fff0(fp)
+	ldl	_stkseg+%ffb4(fp),rr2
+	ldl	rr2,_stkseg+%ffe8(fp)
+	ldl	_stkseg+%ffb8(fp),rr2
+	ldl	rr2,_stkseg+%ffb8(fp)
+	ldl	rr0,_stkseg+%ffb4(fp)
+	jpr	L30
+L31:
+	ldl	rr2,_stkseg+%fff0(fp)
+	cpl	rr2,#0
+	jpr	ne,L32
+	ldl	rr2,_stkseg+%ffe8(fp)
+	cpl	rr2,#0
+	jpr	ne,L32
+	ldl	rr2,_stkseg+%fff4(fp)
+	ldl	_stkseg+%ffb4(fp),rr2
+	ldl	rr2,_stkseg+%ffec(fp)
+	ldl	_stkseg+%ffb8(fp),rr2
+	ldl	rr2,_stkseg+%ffb8(fp)
+	ldl	rr0,_stkseg+%ffb4(fp)
+	jpr	L30
+L32:
+	ldl	rr2,#%7ff00000
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	rr4,#%7ff00000
+	and	r4,_stkseg+%fff0(fp)
+	and	r5,_stkseg+%fff2(fp)
+	subl	rr2,rr4
+	sral	rr2,#%14
+	ldl	_stkseg+%ffd8(fp),rr2
+	ldl	rr2,_stkseg+%ffd8(fp)
+	cpl	rr2,#0
+	jpr	ge,L33
+	ldl	rr2,_stkseg+%fff4(fp)
+	ldl	_stkseg+%ffbc(fp),rr2
+	ldl	rr2,_stkseg+%fff0(fp)
+	ldl	_stkseg+%fff4(fp),rr2
+	ldl	rr2,_stkseg+%ffbc(fp)
+	ldl	_stkseg+%fff0(fp),rr2
+	ldl	rr2,_stkseg+%ffec(fp)
+	ldl	_stkseg+%ffbc(fp),rr2
+	ldl	rr2,_stkseg+%ffe8(fp)
+	ldl	_stkseg+%ffec(fp),rr2
+	ldl	rr2,_stkseg+%ffbc(fp)
+	ldl	_stkseg+%ffe8(fp),rr2
+	ldl	rr2,_stkseg+%ffd8(fp)
+	com	r2
+	com	r3
+	addl	rr2,#1
+	ldl	_stkseg+%ffd8(fp),rr2
+L33:
+	ldl	rr2,_stkseg+%ffc0(fp)
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	ldl	_stkseg+%ffcc(fp),rr2
+	ldl	rr2,#%fffff
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	ldl	_stkseg+%ffc4(fp),rr2
+	ldl	rr2,#%9
+	ldl	_stkseg+%ffbc(fp),rr2
+L34:
+	ldl	rr2,_stkseg+%ffbc(fp)
+	ldl	rr4,rr2
+subl	rr4,#%1
+	ldl	_stkseg+%ffbc(fp),rr4
+	cpl	rr2,#0
+	jpr	eq,L35
+	ldl	rr2,_stkseg+%ffc0(fp)
+	and	r2,_stkseg+%ffe8(fp)
+	and	r3,_stkseg+%ffea(fp)
+	srll	rr2,#%1f
+	ldl	rr4,_stkseg+%ffc4(fp)
+	addl	rr4,rr4
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%ffc4(fp),rr2
+	ldl	rr2,_stkseg+%ffe8(fp)
+	addl	rr2,rr2
+	ldl	_stkseg+%ffe8(fp),rr2
+	jpr	L34
+L35:
+	ldl	rr2,#%20000000
+	or	r2,_stkseg+%ffc4(fp)
+	or	r3,_stkseg+%ffc6(fp)
+	ldl	_stkseg+%ffc4(fp),rr2
+	ldl	rr2,_stkseg+%ffcc(fp)
+	cpl	rr2,#0
+	jpr	eq,L36
+	ldl	rr2,_stkseg+%ffd4(fp)
+	subl	rr2,_stkseg+%ffe8(fp)
+	ldl	_stkseg+%ffe8(fp),rr2
+	callr	carry
+	ld	_stkseg+%ffb2(fp),r2
+	ld	r2,_stkseg+%ffb2(fp)
+	neg	r2
+	ld	r5,r2
+	exts	rr4
+	subl	rr4,_stkseg+%ffc4(fp)
+	ldl	_stkseg+%ffc4(fp),rr4
+L36:
+	ldl	rr2,_stkseg+%ffd8(fp)
+	ldl	_stkseg+%ffbc(fp),rr2
+L38:
+	ldl	rr2,_stkseg+%ffbc(fp)
+	ldl	rr4,rr2
+subl	rr4,#%1
+	ldl	_stkseg+%ffbc(fp),rr4
+	cpl	rr2,#0
+	jpr	eq,L39
+	ldl	rr2,#%1
+	and	r2,_stkseg+%ffc4(fp)
+	and	r3,_stkseg+%ffc6(fp)
+	slal	rr2,#%1f
+	ldl	rr4,_stkseg+%ffe8(fp)
+	srll	rr4,#%1
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%ffe8(fp),rr2
+	ldl	rr2,_stkseg+%ffc4(fp)
+	sral	rr2,#%1
+	ldl	_stkseg+%ffc4(fp),rr2
+	jpr	L38
+L39:
+	ldl	rr2,#%7ff00000
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	sral	rr2,#%14
+	ldl	_stkseg+%ffe0(fp),rr2
+	ldl	rr2,_stkseg+%ffc0(fp)
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	_stkseg+%ffd0(fp),rr2
+	ldl	rr2,#%fffff
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	_stkseg+%ffc8(fp),rr2
+	ldl	rr2,#%9
+	ldl	_stkseg+%ffbc(fp),rr2
+L40:
+	ldl	rr2,_stkseg+%ffbc(fp)
+	ldl	rr4,rr2
+subl	rr4,#%1
+	ldl	_stkseg+%ffbc(fp),rr4
+	cpl	rr2,#0
+	jpr	eq,L41
+	ldl	rr2,_stkseg+%ffc0(fp)
+	and	r2,_stkseg+%ffec(fp)
+	and	r3,_stkseg+%ffee(fp)
+	srll	rr2,#%1f
+	ldl	rr4,_stkseg+%ffc8(fp)
+	addl	rr4,rr4
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%ffc8(fp),rr2
+	ldl	rr2,_stkseg+%ffec(fp)
+	addl	rr2,rr2
+	ldl	_stkseg+%ffec(fp),rr2
+	jpr	L40
+L41:
+	ldl	rr2,#%20000000
+	or	r2,_stkseg+%ffc8(fp)
+	or	r3,_stkseg+%ffca(fp)
+	ldl	_stkseg+%ffc8(fp),rr2
+	ldl	rr2,_stkseg+%ffd0(fp)
+	cpl	rr2,#0
+	jpr	eq,L42
+	ldl	rr2,_stkseg+%ffd4(fp)
+	subl	rr2,_stkseg+%ffec(fp)
+	ldl	_stkseg+%ffec(fp),rr2
+	callr	carry
+	ld	_stkseg+%ffb2(fp),r2
+	ld	r2,_stkseg+%ffb2(fp)
+	neg	r2
+	ld	r5,r2
+	exts	rr4
+	subl	rr4,_stkseg+%ffc8(fp)
+	ldl	_stkseg+%ffc8(fp),rr4
+L42:
+	ldl	rr2,_stkseg+%ffec(fp)
+	addl	rr2,_stkseg+%ffe8(fp)
+	ldl	_stkseg+%ffb8(fp),rr2
+	callr	carry
+	ld	_stkseg+%ffb2(fp),r2
+	ld	r3,_stkseg+%ffb2(fp)
+	exts	rr2
+	addl	rr2,_stkseg+%ffc8(fp)
+	addl	rr2,_stkseg+%ffc4(fp)
+	ldl	_stkseg+%ffdc(fp),rr2
+	ldl	rr2,_stkseg+%ffd8(fp)
+	cpl	rr2,#0
+	jpr	ne,L43
+	ldl	rr2,_stkseg+%ffdc(fp)
+	cpl	rr2,#0
+	jpr	ne,L43
+	ldl	rr2,_stkseg+%ffb8(fp)
+	cpl	rr2,#0
+	jpr	ne,L43
+	xor	r3,r3
+	ld	r2,r3
+	ldl	_stkseg+%ffb4(fp),rr2
+	xor	r3,r3
+	ld	r2,r3
+	ldl	_stkseg+%ffb8(fp),rr2
+	ldl	rr2,_stkseg+%ffb8(fp)
+	ldl	rr0,_stkseg+%ffb4(fp)
+	jpr	L30
+L43:
+	ldl	rr2,_stkseg+%ffc0(fp)
+	and	r2,_stkseg+%ffdc(fp)
+	and	r3,_stkseg+%ffde(fp)
+	ldl	_stkseg+%ffe4(fp),rr2
+	ldl	rr2,_stkseg+%ffe4(fp)
+	cpl	rr2,#0
+	jpr	eq,L44
+	ldl	rr2,_stkseg+%ffd4(fp)
+	subl	rr2,_stkseg+%ffb8(fp)
+	ldl	_stkseg+%ffb8(fp),rr2
+	callr	carry
+	ld	_stkseg+%ffb2(fp),r2
+	ld	r2,_stkseg+%ffb2(fp)
+	neg	r2
+	ld	r5,r2
+	exts	rr4
+	subl	rr4,_stkseg+%ffdc(fp)
+	ldl	_stkseg+%ffdc(fp),rr4
+L44:
+	pushl	@SP,_stkseg+%ffb8(fp)
+	pushl	@SP,_stkseg+%ffdc(fp)
+	pushl	@SP,_stkseg+%ffe0(fp)
+	pushl	@SP,_stkseg+%ffe4(fp)
+	callr	normd
+	inc	sp,#%10
+L30:
+	ld	sp,fp
+	ldm	r8,_stkseg-8(sp),#6
+	inc	sp,#4
+	ret
+	~L1 := 78
+	~L2 := 82
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+normd::
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	rr2,#%40000000
+	ldl	_stkseg+%ffec(fp),rr2
+	ldl	rr2,#%20000000
+	ldl	_stkseg+%ffe8(fp),rr2
+	ldl	rr2,#%80000000
+	ldl	_stkseg+%ffe0(fp),rr2
+	ldl	rr2,_stkseg+%10(fp)
+	cpl	rr2,#0
+	jpr	ne,L46
+	ldl	rr2,_stkseg+%14(fp)
+	cpl	rr2,#0
+	jpr	ne,L46
+	ldl	rr2,#%1
+	ldl	_stkseg+%c(fp),rr2
+	jpr	L47
+L46:
+	ldl	rr2,_stkseg+%10(fp)
+	and	r2,_stkseg+%ffec(fp)
+	and	r3,_stkseg+%ffee(fp)
+	cpl	rr2,#0
+	jpr	eq,L48
+	jpr	L49
+L48:
+L50:
+	ldl	rr2,_stkseg+%10(fp)
+	and	r2,_stkseg+%ffe8(fp)
+	and	r3,_stkseg+%ffea(fp)
+	cpl	rr2,#0
+	jpr	eq,L51
+	jpr	L52
+L51:
+L53:
+	ldl	rr2,_stkseg+%ffe0(fp)
+	and	r2,_stkseg+%14(fp)
+	and	r3,_stkseg+%16(fp)
+	srll	rr2,#%1f
+	ldl	rr4,_stkseg+%10(fp)
+	addl	rr4,rr4
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%10(fp),rr2
+	ldl	rr2,_stkseg+%14(fp)
+	addl	rr2,rr2
+	ldl	_stkseg+%14(fp),rr2
+	ldl	rr2,_stkseg+%c(fp)
+	subl	rr2,#%1
+	ldl	_stkseg+%c(fp),rr2
+	jpr	L50
+L49:
+	ldl	rr2,#%1
+	and	r2,_stkseg+%10(fp)
+	and	r3,_stkseg+%12(fp)
+	slal	rr2,#%1f
+	ldl	rr4,_stkseg+%14(fp)
+	srll	rr4,#%1
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%14(fp),rr2
+	ldl	rr2,_stkseg+%10(fp)
+	srll	rr2,#%1
+	ldl	_stkseg+%10(fp),rr2
+	ldl	rr2,_stkseg+%c(fp)
+	addl	rr2,#%1
+	ldl	_stkseg+%c(fp),rr2
+L52:
+	ldl	rr2,_stkseg+%14(fp)
+	addl	rr2,#%100
+	ldl	_stkseg+%14(fp),rr2
+	callr	carry
+	ld	_stkseg+%ffde(fp),r2
+	ld	r3,_stkseg+%ffde(fp)
+	exts	rr2
+	addl	rr2,_stkseg+%10(fp)
+	ldl	_stkseg+%10(fp),rr2
+	ldl	rr2,_stkseg+%10(fp)
+	and	r2,_stkseg+%ffec(fp)
+	and	r3,_stkseg+%ffee(fp)
+	cpl	rr2,#0
+	jpr	eq,L54
+	jpr	L49
+L54:
+	ldl	rr2,_stkseg+%c(fp)
+	cpl	rr2,#0
+	jpr	ge,L55
+	ldl	rr2,#%1
+	ldl	_stkseg+%c(fp),rr2
+	ld	_errno,#%22
+	.psec	data   
+	.data
+L57:
+	.byte	%65,%78,%70,%2d,%75,%6e,%64,%65
+	.byte	%72,%66,%6c,%6f,%77,%0
+	.psec
+	.code
+	ldl	rr2,#L57
+	pushl	@SP,rr2
+	callr	_perror
+	inc	sp,#%4
+L55:
+	ldl	rr2,_stkseg+%c(fp)
+	cpl	rr2,#%7ff
+	jpr	le,L58
+	ldl	rr2,#%7ff
+	ldl	_stkseg+%c(fp),rr2
+	ld	_errno,#%22
+	.psec	data   
+	.data
+L59:
+	.byte	%65,%78,%70,%2d,%6f,%76,%65,%72
+	.byte	%66,%6c,%6f,%77,%0
+	.psec
+	.code
+	ldl	rr2,#L59
+	pushl	@SP,rr2
+	callr	_perror
+	inc	sp,#%4
+L58:
+L47:
+	ldl	rr2,#%9
+	ldl	_stkseg+%ffe4(fp),rr2
+L60:
+	ldl	rr2,_stkseg+%ffe4(fp)
+	ldl	rr4,rr2
+subl	rr4,#%1
+	ldl	_stkseg+%ffe4(fp),rr4
+	cpl	rr2,#0
+	jpr	eq,L61
+	ldl	rr2,#%1
+	and	r2,_stkseg+%10(fp)
+	and	r3,_stkseg+%12(fp)
+	slal	rr2,#%1f
+	ldl	rr4,_stkseg+%14(fp)
+	srll	rr4,#%1
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%14(fp),rr2
+	ldl	rr2,_stkseg+%10(fp)
+	srll	rr2,#%1
+	ldl	_stkseg+%10(fp),rr2
+	jpr	L60
+L61:
+	ldl	rr2,_stkseg+%c(fp)
+	slal	rr2,#%14
+	or	r2,_stkseg+%8(fp)
+	or	r3,_stkseg+%a(fp)
+	ldl	rr4,#%fffff
+	and	r4,_stkseg+%10(fp)
+	and	r5,_stkseg+%12(fp)
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%10(fp),rr2
+	ldl	rr2,_stkseg+%10(fp)
+	ldl	_stkseg+%fff0(fp),rr2
+	ldl	rr2,_stkseg+%14(fp)
+	ldl	_stkseg+%fff4(fp),rr2
+	ldl	rr2,_stkseg+%fff4(fp)
+	ldl	rr0,_stkseg+%fff0(fp)
+	jpr	L45
+L45:
+	ld	sp,fp
+	ldm	r8,_stkseg-8(sp),#6
+	inc	sp,#4
+	ret
+	~L1 := 34
+	~L2 := 38
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+multd::
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	_stkseg+%fff4(fp),rr0
+	ldl	_stkseg+%fff0(fp),rr4
+	ldl	_stkseg+%ffec(fp),rr2
+	ldl	_stkseg+%ffe8(fp),rr6
+	ldl	rr2,#%80000000
+	ldl	_stkseg+%ffd0(fp),rr2
+	ldl	rr2,_stkseg+%fff4(fp)
+	cpl	rr2,#0
+	jpr	ne,L66
+	ldl	rr2,_stkseg+%ffec(fp)
+	cpl	rr2,#0
+	jpr	eq,L65
+L66:
+	ldl	rr2,_stkseg+%fff0(fp)
+	cpl	rr2,#0
+	jpr	ne,L64
+	ldl	rr2,_stkseg+%ffe8(fp)
+	cpl	rr2,#0
+	jpr	ne,L64
+L65:
+	.psec	data   
+	.data
+	.even
+L67:
+	.long	%0	/* 0.000000e0 */
+	.long	%0
+	.psec
+	.code
+	ldl	rr2,L67+%4
+	ldl	rr0,L67
+	jpr	L63
+L64:
+	ldl	rr2,#%7ff00000
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	rr4,#%7ff00000
+	and	r4,_stkseg+%fff0(fp)
+	and	r5,_stkseg+%fff2(fp)
+	addl	rr2,rr4
+	srll	rr2,#%14
+	subl	rr2,#%3fe
+	ldl	_stkseg+%ffe0(fp),rr2
+	ldl	rr2,_stkseg+%ffd0(fp)
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	rr4,_stkseg+%ffd0(fp)
+	and	r4,_stkseg+%fff0(fp)
+	and	r5,_stkseg+%fff2(fp)
+	xor	r2,r4
+	xor	r3,r5
+	ldl	_stkseg+%ffe4(fp),rr2
+	ldl	rr2,#%fffff
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	_stkseg+%ffd8(fp),rr2
+	ldl	rr2,#%fffff
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	ldl	_stkseg+%ffd4(fp),rr2
+	ldl	rr2,#%9
+	ldl	_stkseg+%ffdc(fp),rr2
+L68:
+	ldl	rr2,_stkseg+%ffdc(fp)
+	ldl	rr4,rr2
+subl	rr4,#%1
+	ldl	_stkseg+%ffdc(fp),rr4
+	cpl	rr2,#0
+	jpr	eq,L69
+	ldl	rr2,_stkseg+%ffd0(fp)
+	and	r2,_stkseg+%ffec(fp)
+	and	r3,_stkseg+%ffee(fp)
+	srll	rr2,#%1f
+	ldl	rr4,_stkseg+%ffd8(fp)
+	addl	rr4,rr4
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%ffd8(fp),rr2
+	ldl	rr2,_stkseg+%ffec(fp)
+	addl	rr2,rr2
+	ldl	_stkseg+%ffec(fp),rr2
+	jpr	L68
+L69:
+	ldl	rr2,#%9
+	ldl	_stkseg+%ffdc(fp),rr2
+L70:
+	ldl	rr2,_stkseg+%ffdc(fp)
+	ldl	rr4,rr2
+subl	rr4,#%1
+	ldl	_stkseg+%ffdc(fp),rr4
+	cpl	rr2,#0
+	jpr	eq,L71
+	ldl	rr2,_stkseg+%ffd0(fp)
+	and	r2,_stkseg+%ffe8(fp)
+	and	r3,_stkseg+%ffea(fp)
+	srll	rr2,#%1f
+	ldl	rr4,_stkseg+%ffd4(fp)
+	addl	rr4,rr4
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%ffd4(fp),rr2
+	ldl	rr2,_stkseg+%ffe8(fp)
+	addl	rr2,rr2
+	ldl	_stkseg+%ffe8(fp),rr2
+	jpr	L70
+L71:
+	ldl	rr2,#%20000000
+	or	r2,_stkseg+%ffd8(fp)
+	or	r3,_stkseg+%ffda(fp)
+	ldl	_stkseg+%ffd8(fp),rr2
+	ldl	rr2,#%20000000
+	or	r2,_stkseg+%ffd4(fp)
+	or	r3,_stkseg+%ffd6(fp)
+	ldl	_stkseg+%ffd4(fp),rr2
+	ldl	rr2,_stkseg+%ffec(fp)
+	srll	rr2,#%1
+	ldl	_stkseg+%ffec(fp),rr2
+	ldl	rr2,_stkseg+%ffe8(fp)
+	srll	rr2,#%1
+	ldl	_stkseg+%ffe8(fp),rr2
+	pushl	@SP,_stkseg+%ffe8(fp)
+	pushl	@SP,_stkseg+%ffd8(fp)
+	callr	mul_hwt
+	inc	sp,#%8
+	ldl	_stkseg-~L1+%fffc(fp),rr2
+	pushl	@SP,_stkseg+%ffec(fp)
+	pushl	@SP,_stkseg+%ffd4(fp)
+	callr	mul_hwt
+	inc	sp,#%8
+	addl	rr2,_stkseg-~L1+%fffc(fp)
+	ldl	_stkseg+%ffc8(fp),rr2
+	ldl	rr2,_stkseg+%ffc8(fp)
+	addl	rr2,rr2
+	ldl	_stkseg+%ffc8(fp),rr2
+	ldl	rr2,_stkseg+%ffd8(fp)
+	ldl	rr6,rr2
+	multl	rq4,_stkseg+%ffd4(fp)
+	ldl	rr2,rr6
+	ldl	_stkseg+%ffdc(fp),rr2
+	pushl	@SP,_stkseg+%ffd4(fp)
+	pushl	@SP,_stkseg+%ffd8(fp)
+	callr	mul_hwt
+	inc	sp,#%8
+	ldl	rr10,rr2
+	ldl	rr2,_stkseg+%ffc8(fp)
+	addl	rr2,_stkseg+%ffdc(fp)
+	ldl	_stkseg+%ffc8(fp),rr2
+	callr	carry
+	ld	_stkseg+%ffc6(fp),r2
+	ld	r3,_stkseg+%ffc6(fp)
+	exts	rr2
+	addl	rr2,rr10
+	ldl	rr10,rr2
+	ldl	rr2,#%2
+	ldl	_stkseg+%ffdc(fp),rr2
+L72:
+	ldl	rr2,_stkseg+%ffdc(fp)
+	ldl	rr4,rr2
+subl	rr4,#%1
+	ldl	_stkseg+%ffdc(fp),rr4
+	cpl	rr2,#0
+	jpr	eq,L73
+	ldl	rr2,_stkseg+%ffd0(fp)
+	and	r2,_stkseg+%ffc8(fp)
+	and	r3,_stkseg+%ffca(fp)
+	srll	rr2,#%1f
+	ldl	rr4,rr10
+	addl	rr4,rr4
+	or	r2,r4
+	or	r3,r5
+	ldl	rr10,rr2
+	ldl	rr2,_stkseg+%ffc8(fp)
+	addl	rr2,rr2
+	ldl	_stkseg+%ffc8(fp),rr2
+	jpr	L72
+L73:
+	pushl	@SP,_stkseg+%ffc8(fp)
+	pushl	@SP,rr10
+	pushl	@SP,_stkseg+%ffe0(fp)
+	pushl	@SP,_stkseg+%ffe4(fp)
+	callr	normd
+	inc	sp,#%10
+L63:
+	ld	sp,fp
+	ldm	r8,_stkseg-8(sp),#6
+	inc	sp,#4
+	ret
+	~L1 := 58
+	~L2 := 66
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+divd::
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	_stkseg+%fff4(fp),rr0
+	ldl	_stkseg+%fff0(fp),rr4
+	ldl	_stkseg+%ffec(fp),rr2
+	ldl	_stkseg+%ffe8(fp),rr6
+	ldl	rr2,#%80000000
+	ldl	_stkseg+%ffd0(fp),rr2
+	ldl	rr2,_stkseg+%fff4(fp)
+	cpl	rr2,#0
+	jpr	ne,L76
+	ldl	rr2,_stkseg+%ffec(fp)
+	cpl	rr2,#0
+	jpr	ne,L76
+	.psec	data   
+	.data
+	.even
+L77:
+	.long	%0	/* 0.000000e0 */
+	.long	%0
+	.psec
+	.code
+	ldl	rr2,L77+%4
+	ldl	rr0,L77
+	jpr	L75
+L76:
+	ldl	rr2,_stkseg+%fff0(fp)
+	cpl	rr2,#0
+	jpr	ne,L78
+	ldl	rr2,_stkseg+%ffe8(fp)
+	cpl	rr2,#0
+	jpr	ne,L78
+	ldl	rr2,_stkseg+%fff4(fp)
+	ldl	_stkseg+%ffc8(fp),rr2
+	ldl	rr2,_stkseg+%ffec(fp)
+	ldl	_stkseg+%ffcc(fp),rr2
+	ld	_errno,#%22
+	.psec	data   
+	.data
+L79:
+	.byte	%64,%69,%76,%69,%73,%69,%6f,%6e
+	.byte	%20,%62,%79,%20,%7a,%65,%72,%6f
+	.byte	%0
+	.psec
+	.code
+	ldl	rr2,#L79
+	pushl	@SP,rr2
+	callr	_perror
+	inc	sp,#%4
+	ldl	rr2,_stkseg+%ffcc(fp)
+	ldl	rr0,_stkseg+%ffc8(fp)
+	jpr	L75
+L78:
+	ldl	rr2,#%7ff00000
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	sral	rr2,#%14
+	ldl	rr4,#%7ff00000
+	and	r4,_stkseg+%fff0(fp)
+	and	r5,_stkseg+%fff2(fp)
+	sral	rr4,#%14
+	subl	rr2,rr4
+	addl	rr2,#%3ff
+	ldl	_stkseg+%ffe0(fp),rr2
+	ldl	rr2,_stkseg+%ffd0(fp)
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	ldl	rr4,_stkseg+%ffd0(fp)
+	and	r4,_stkseg+%fff4(fp)
+	and	r5,_stkseg+%fff6(fp)
+	xor	r2,r4
+	xor	r3,r5
+	ldl	_stkseg+%ffe4(fp),rr2
+	ldl	rr2,#%fffff
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	_stkseg+%ffd8(fp),rr2
+	ldl	rr2,#%fffff
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	ldl	_stkseg+%ffd4(fp),rr2
+	ldl	rr10,#%9
+L80:
+	ldl	rr2,rr10
+	subl	rr10,#%1
+	cpl	rr2,#0
+	jpr	eq,L81
+	ldl	rr2,_stkseg+%ffd0(fp)
+	and	r2,_stkseg+%ffec(fp)
+	and	r3,_stkseg+%ffee(fp)
+	srll	rr2,#%1f
+	ldl	rr4,_stkseg+%ffd8(fp)
+	addl	rr4,rr4
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%ffd8(fp),rr2
+	ldl	rr2,_stkseg+%ffec(fp)
+	addl	rr2,rr2
+	ldl	_stkseg+%ffec(fp),rr2
+	jpr	L80
+L81:
+	ldl	rr10,#%9
+L82:
+	ldl	rr2,rr10
+	subl	rr10,#%1
+	cpl	rr2,#0
+	jpr	eq,L83
+	ldl	rr2,_stkseg+%ffd0(fp)
+	and	r2,_stkseg+%ffe8(fp)
+	and	r3,_stkseg+%ffea(fp)
+	srll	rr2,#%1f
+	ldl	rr4,_stkseg+%ffd4(fp)
+	addl	rr4,rr4
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%ffd4(fp),rr2
+	ldl	rr2,_stkseg+%ffe8(fp)
+	addl	rr2,rr2
+	ldl	_stkseg+%ffe8(fp),rr2
+	jpr	L82
+L83:
+	ldl	rr2,#%20000000
+	or	r2,_stkseg+%ffd8(fp)
+	or	r3,_stkseg+%ffda(fp)
+	ldl	_stkseg+%ffd8(fp),rr2
+	ldl	rr2,#%20000000
+	or	r2,_stkseg+%ffd4(fp)
+	or	r3,_stkseg+%ffd6(fp)
+	ldl	_stkseg+%ffd4(fp),rr2
+	ldl	rr2,#%1
+	and	r2,_stkseg+%ffd8(fp)
+	and	r3,_stkseg+%ffda(fp)
+	slal	rr2,#%1f
+	ldl	rr4,_stkseg+%ffec(fp)
+	srll	rr4,#%1
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%ffec(fp),rr2
+	ldl	rr2,_stkseg+%ffd8(fp)
+	srll	rr2,#%1
+	ldl	_stkseg+%ffd8(fp),rr2
+	pushl	@SP,_stkseg+%ffe8(fp)
+	pushl	@SP,_stkseg+%ffd4(fp)
+	pushl	@SP,_stkseg+%ffec(fp)
+	pushl	@SP,_stkseg+%ffd8(fp)
+	callr	divgdd
+	inc	sp,#%10
+	ldl	rr4,FP
+	add	r5,#%ffc8
+	ld	r6,#%4
+	ldir	@rr4,@rr2,r6
+	ldl	rr2,_stkseg+%ffc8(fp)
+	ldl	_stkseg+%ffc4(fp),rr2
+	ldl	rr8,FP(#%ffcc)
+	ldl	rr10,#%2
+L84:
+	ldl	rr2,rr10
+	subl	rr10,#%1
+	cpl	rr2,#0
+	jpr	eq,L85
+	ldl	rr2,#%1
+	and	r2,_stkseg+%ffc4(fp)
+	and	r3,_stkseg+%ffc6(fp)
+	slal	rr2,#%1f
+	ldl	rr4,rr8
+	srll	rr4,#%1
+	or	r2,r4
+	or	r3,r5
+	ldl	rr8,rr2
+	ldl	rr2,_stkseg+%ffc4(fp)
+	srll	rr2,#%1
+	ldl	_stkseg+%ffc4(fp),rr2
+	jpr	L84
+L85:
+	pushl	@SP,rr8
+	pushl	@SP,_stkseg+%ffc4(fp)
+	pushl	@SP,_stkseg+%ffe0(fp)
+	pushl	@SP,_stkseg+%ffe4(fp)
+	callr	normd
+	inc	sp,#%10
+L75:
+	ld	sp,fp
+	ldm	r8,_stkseg-8(sp),#6
+	inc	sp,#4
+	ret
+	~L1 := 62
+	~L2 := 66
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+dtol::
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	_stkseg+%fff4(fp),rr0
+	ldl	_stkseg+%fff0(fp),rr2
+	ldl	rr2,#%80000000
+	ldl	_stkseg+%ffe8(fp),rr2
+	ldl	rr2,_stkseg+%fff4(fp)
+	cpl	rr2,#0
+	jpr	ne,L88
+	ldl	rr2,_stkseg+%fff0(fp)
+	cpl	rr2,#0
+	jpr	ne,L88
+	xor	r3,r3
+	ld	r2,r3
+	jpr	L87
+L88:
+	ldl	rr2,#%7ff00000
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	sral	rr2,#%14
+	ldl	_stkseg+%ffe0(fp),rr2
+	ldl	rr2,_stkseg+%ffe8(fp)
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	_stkseg+%ffec(fp),rr2
+	ldl	rr2,#%fffff
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	_stkseg+%ffdc(fp),rr2
+	ldl	rr2,#%100000
+	or	r2,_stkseg+%ffdc(fp)
+	or	r3,_stkseg+%ffde(fp)
+	ldl	_stkseg+%ffdc(fp),rr2
+	ldl	rr2,_stkseg+%ffe0(fp)
+	cpl	rr2,#%413
+	jpr	eq,L94
+	ldl	rr2,_stkseg+%ffe0(fp)
+	cpl	rr2,#%413
+	jpr	le,L90
+	ldl	rr2,_stkseg+%ffe0(fp)
+	subl	rr2,#%413
+	ldl	_stkseg+%ffe4(fp),rr2
+L91:
+	ldl	rr2,_stkseg+%ffe4(fp)
+	ldl	rr4,rr2
+	subl	rr4,#%1
+	ldl	_stkseg+%ffe4(fp),rr4
+	cpl	rr2,#0
+	jpr	eq,L92
+	ldl	rr2,_stkseg+%ffe8(fp)
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	srll	rr2,#%1f
+	ldl	rr4,_stkseg+%ffdc(fp)
+	addl	rr4,rr4
+	or	r2,r4
+	or	r3,r5
+	ldl	_stkseg+%ffdc(fp),rr2
+	ldl	rr2,_stkseg+%fff0(fp)
+	addl	rr2,rr2
+	ldl	_stkseg+%fff0(fp),rr2
+	jpr	L91
+L92:
+L90:
+	ldl	rr2,_stkseg+%ffe0(fp)
+	cpl	rr2,#%413
+	jpr	ge,L93
+	ldl	rr2,_stkseg+%ffdc(fp)
+	ldl	rr4,#%413
+	subl	rr4,_stkseg+%ffe0(fp)
+	cp 	r5,#%20
+	jr	le,L90a
+	subl	rr2,rr2
+	jr	L90c
+L90a:
+	com	r4
+	com	r5
+	addl	rr4,#1
+	sdal	rr2,r5
+L90c:
+	ldl	_stkseg+%ffdc(fp),rr2
+L93:
+	ldl	rr2,_stkseg+%ffe0(fp)
+	cpl	rr2,#%41d
+	jpr	le,L94
+	ld	_errno,#%22
+	.psec	data   
+	.data
+L95:
+	.byte	%63,%76,%74,%64,%6c,%3a,%20,%69
+	.byte	%6e,%74,%65,%67,%65,%72,%20,%6f
+	.byte	%76,%65,%72,%66,%6c,%6f,%77,%0
+	.psec
+	.code
+	ldl	rr2,#L95
+	pushl	@SP,rr2
+	callr	_perror
+	inc	sp,#%4
+L94:
+	ldl	rr2,_stkseg+%ffec(fp)
+	cpl	rr2,#0
+	jpr	eq,L96
+	ldl	rr2,_stkseg+%ffdc(fp)
+	com	r2
+	com	r3
+	addl	rr2,#1
+	jpr	L87
+L96:
+	ldl	rr2,FP(#%ffdc)
+	jpr	L87
+L87:
+	ld	sp,fp
+	ldm	r8,_stkseg-8(sp),#6
+	inc	sp,#4
+	ret
+	~L1 := 36
+	~L2 := 40
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+ltod::
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	_stkseg+%fff4(fp),rr2
+	ldl	rr2,#%80000000
+	ldl	_stkseg+%fff0(fp),rr2
+	ldl	rr2,_stkseg+%fff4(fp)
+	cpl	rr2,#0
+	jpr	ne,L99
+	xor	r3,r3
+	ld	r2,r3
+	ldl	_stkseg+%ffec(fp),rr2
+	xor	r3,r3
+	ld	r2,r3
+	ldl	_stkseg+%ffe8(fp),rr2
+	ldl	rr2,_stkseg+%ffec(fp)
+	ldl	rr0,_stkseg+%ffe8(fp)
+	jpr	L98
+L99:
+	ldl	rr2,_stkseg+%fff0(fp)
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	_stkseg+%fff0(fp),rr2
+	ldl	rr2,_stkseg+%fff0(fp)
+	cpl	rr2,#0
+	jpr	eq,L100
+	ldl	rr2,_stkseg+%fff4(fp)
+	com	r2
+	com	r3
+	addl	rr2,#1
+	ldl	_stkseg+%fff4(fp),rr2
+L100:
+	xor	r3,r3
+	ld	r2,r3
+	pushl	@SP,rr2
+	pushl	@SP,_stkseg+%fff4(fp)
+	ldl	rr2,#%41c
+	pushl	@SP,rr2
+	pushl	@SP,_stkseg+%fff0(fp)
+	callr	normd
+	inc	sp,#%10
+L98:
+	ld	sp,fp
+	ldm	r8,_stkseg-8(sp),#6
+	inc	sp,#4
+	ret
+	~L1 := 24
+	~L2 := 28
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+ftod::
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	_stkseg+%fff4(fp),rr2
+	ldl	rr2,_stkseg+%fff4(fp)
+	ldl	_stkseg+%ffec(fp),rr2
+	xor	r3,r3
+	ld	r2,r3
+	ldl	_stkseg+%fff0(fp),rr2
+	ldl	rr2,_stkseg+%fff0(fp)
+	ldl	rr0,_stkseg+%ffec(fp)
+	jpr	L102
+L102:
+	ld	sp,fp
+	ldm	r8,_stkseg-8(sp),#6
+	inc	sp,#4
+	ret
+	~L1 := 20
+	~L2 := 24
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+dtof::
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	_stkseg+%fff4(fp),rr2
+	ldl	_stkseg+%fff0(fp),rr4
+	ldl	rr2,FP(#%fff4)
+	jpr	L104
+L104:
+	ld	sp,fp
+	ldm	r8,_stkseg-8(sp),#6
+	inc	sp,#4
+	ret
+	~L1 := 16
+	~L2 := 20
+	}
+
+	.psec	data   
+	.data