diff --git a/WEGA/contrib/lcc/lib/libc/u8k/crt/comp.s b/WEGA/contrib/lcc/lib/libc/u8k/crt/comp.s
new file mode 100644
index 0000000..3be0137
--- /dev/null
+++ b/WEGA/contrib/lcc/lib/libc/u8k/crt/comp.s
@@ -0,0 +1,322 @@
+.line 1 ""
+	.seg
+	fp := r13
+	FP := rr12
+	sp := r15
+	SP := rr14
+	.psec	data   
+	.data
+	.psec
+	.code
+cps::
+	{
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	FP(#%fff4),rr0
+	ldl	FP(#%fff0),rr2
+	ldl	rr2,#%80000000
+	ldl	FP(#%ffec),rr2
+	ldl	rr2,#%7ff00000
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	FP(#%ffe4),rr2
+	ldl	rr2,FP(#%ffec)
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	cpl	rr2,#0
+	jpr	eq,L24
+	ldl	rr2,FP(#%ffe4)
+	ldl	rr2,rr2
+	com	r2
+	com	r3
+	addl	rr2,#1
+	ldl	FP(#%ffe4),rr2
+L24:
+	ldl	rr2,#%7ff00000
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	ldl	FP(#%ffe0),rr2
+	ldl	rr2,FP(#%ffec)
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	cpl	rr2,#0
+	jpr	eq,L25
+	ldl	rr2,FP(#%ffe0)
+	ldl	rr2,rr2
+	com	r2
+	com	r3
+	addl	rr2,#1
+	ldl	FP(#%ffe0),rr2
+L25:
+	ldl	rr2,FP(#%ffe4)
+	cpl	rr2,_stkseg+%ffe0(fp)
+	jpr	eq,L26
+	ldl	rr2,FP(#%ffe0)
+	subl	rr2,_stkseg+%ffe4(fp)
+	ldl	FP(#%ffe0),rr2
+	ldctlb	rl0,flags
+	jpr	L23
+L26:
+	ldl	rr2,#%fffff
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	FP(#%ffe4),rr2
+	ldl	rr2,FP(#%ffec)
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	cpl	rr2,#0
+	jpr	eq,L27
+	ldl	rr2,FP(#%ffe4)
+	ldl	rr2,rr2
+	com	r2
+	com	r3
+	addl	rr2,#1
+	ldl	FP(#%ffe4),rr2
+L27:
+	ldl	rr2,#%fffff
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	ldl	FP(#%ffe0),rr2
+	ldl	rr2,FP(#%ffec)
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	cpl	rr2,#0
+	jpr	eq,L28
+	ldl	rr2,FP(#%ffe0)
+	ldl	rr2,rr2
+	com	r2
+	com	r3
+	addl	rr2,#1
+	ldl	FP(#%ffe0),rr2
+L28:
+	ldl	rr2,FP(#%ffe4)
+	subl	rr2,_stkseg+%ffe0(fp)
+	ldl	FP(#%ffe4),rr2
+	ldctlb	rl0,flags
+	jpr	L23
+L23:
+	ld	sp,fp
+	dec	sp,#8
+	ldm	r8,@SP,#6
+	inc	sp,#12
+	ldctlb	flags,rl0
+	ret
+	~L1 := 32
+	~L2 := 36
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+cpdd::
+	{
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	FP(#%fff4),rr0
+	ldl	FP(#%fff0),rr4
+	ldl	FP(#%ffec),rr2
+	ldl	FP(#%ffe8),rr6
+	ldl	rr2,#%80000000
+	ldl	FP(#%ffdc),rr2
+	subl	rr2,rr2
+	ldl	FP(#%ffd8),rr2
+	ldl	rr2,FP(#%ffec)
+	cpl	rr2,_stkseg+%ffe8(fp)
+	jpr	ne,L31
+	ldl	rr2,FP(#%fff4)
+	cpl	rr2,_stkseg+%fff0(fp)
+	jpr	ne,L31
+	ldctlb	rl0,flags
+	jpr	L30
+L31:
+	ldl	rr2,#%7ff00000
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	ldl	FP(#%ffe4),rr2
+	ldl	rr2,FP(#%ffdc)
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	cpl	rr2,#0
+	jpr	eq,L32
+	ldl	rr2,FP(#%ffe4)
+	ldl	rr2,rr2
+	com	r2
+	com	r3
+	addl	rr2,#1
+	ldl	FP(#%ffe4),rr2
+L32:
+	ldl	rr2,#%7ff00000
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	ldl	FP(#%ffe0),rr2
+	ldl	rr2,FP(#%ffdc)
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	cpl	rr2,#0
+	jpr	eq,L33
+	ldl	rr2,FP(#%ffe0)
+	ldl	rr2,rr2
+	com	r2
+	com	r3
+	addl	rr2,#1
+	ldl	FP(#%ffe0),rr2
+L33:
+	ldl	rr2,FP(#%ffe4)
+	cpl	rr2,_stkseg+%ffe0(fp)
+	jpr	eq,L34
+	ldctlb	rl0,flags
+	jpr	L30
+L34:
+	ldl	rr2,FP(#%ffdc)
+	and	r2,_stkseg+%fff4(fp)
+	and	r3,_stkseg+%fff6(fp)
+	cpl	rr2,#0
+	jpr	eq,L35
+	ldl	rr2,FP(#%ffd8)
+	subl	rr2,_stkseg+%ffec(fp)
+	ldl	FP(#%ffec),rr2
+	callr	carry
+	ld	FP(#%ffd2),r2
+	ld	r2,FP(#%ffd2)
+	neg	r2
+	ld	r3,r2
+	exts	rr2
+	subl	rr2,_stkseg+%fff4(fp)
+	ldl	FP(#%fff4),rr2
+L35:
+	ldl	rr2,FP(#%ffdc)
+	and	r2,_stkseg+%fff0(fp)
+	and	r3,_stkseg+%fff2(fp)
+	cpl	rr2,#0
+	jpr	eq,L37
+	ldl	rr2,FP(#%ffd8)
+	subl	rr2,_stkseg+%ffe8(fp)
+	ldl	FP(#%ffe8),rr2
+	callr	carry
+	ld	FP(#%ffd2),r2
+	ld	r2,FP(#%ffd2)
+	neg	r2
+	ld	r3,r2
+	exts	rr2
+	subl	rr2,_stkseg+%fff0(fp)
+	ldl	FP(#%fff0),rr2
+L37:
+	ldl	rr2,FP(#%ffec)
+	subl	rr2,_stkseg+%ffe8(fp)
+	ldl	FP(#%ffd4),rr2
+	callr	carry
+	ld	FP(#%ffd2),r2
+	ld	r2,FP(#%ffd2)
+	neg	r2
+	ld	r3,r2
+	exts	rr2
+	addl	rr2,_stkseg+%fff4(fp)
+	subl	rr2,_stkseg+%fff0(fp)
+	ldl	FP(#%ffe4),rr2
+	ldl	rr2,FP(#%ffd4)
+	cpl	rr2,#0
+	jpr	eq,L39
+	ldl	rr2,FP(#%ffe4)
+	cpl	rr2,#0
+	jpr	eq,L38
+L39:
+	ldl	rr2,FP(#%ffe4)
+	testl	rr2
+	ldctlb	rl0,flags
+	jpr	L30
+L38:
+	ld	r2,#%1
+	test	r2
+	ldctlb	rl0,flags
+	jpr	L30
+L30:
+	ld	sp,fp
+	dec	sp,#8
+	ldm	r8,@SP,#6
+	inc	sp,#12
+	ldctlb	flags,rl0
+	ret
+	~L1 := 46
+	~L2 := 50
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+cpzs::
+	{
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	rr2,FP(#%8)
+	ldl	FP(#%8),rr2
+	ldctlb	rl0,flags
+	jpr	L41
+L41:
+	ld	sp,fp
+	dec	sp,#8
+	ldm	r8,@SP,#6
+	inc	sp,#12
+	ldctlb	flags,rl0
+	ret
+	~L1 := 8
+	~L2 := 12
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+cpzd::
+	{
+	dec	sp,#12
+	ldm	@SP,r8,#6
+	ld	fp,sp
+	inc	fp,#8
+	sub	sp,#~L2-12
+	ldl	FP(#%fff4),rr0
+	ldl	FP(#%fff0),rr2
+	ldl	rr2,#%1
+	ldl	FP(#%ffec),rr2
+	ldl	rr2,FP(#%fff4)
+	cpl	rr2,#0
+	jpr	ne,L44
+	ldl	rr2,FP(#%fff0)
+	cpl	rr2,#0
+	jpr	ne,L44
+	ldctlb	rl0,flags
+	jpr	L43
+L44:
+	ldl	rr2,FP(#%fff4)
+	cpl	rr2,#0
+	jpr	eq,L45
+	ldctlb	rl0,flags
+	jpr	L43
+L45:
+	ldl	rr2,#%1
+	ldl	FP(#%fff4),rr2
+	ldctlb	rl0,flags
+	jpr	L43
+L43:
+	ld	sp,fp
+	dec	sp,#8
+	ldm	r8,@SP,#6
+	inc	sp,#12
+	ldctlb	flags,rl0
+	ret
+	~L1 := 20
+	~L2 := 24
+	}
+
+	.psec	data   
+	.data