From 825ebcfbeb8a8bcc6b9a6791479b195849a2b4b4 Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Fri, 30 Mar 1990 17:52:13 +0000
Subject: [PATCH] add LCC - a better C-Compiler for WEGA

---
 WEGA/contrib/lcc/lib/libc/u8k/crt/conv.s | 165 +++++++++++++++++++++++
 1 file changed, 165 insertions(+)
 create mode 100644 WEGA/contrib/lcc/lib/libc/u8k/crt/conv.s

diff --git a/WEGA/contrib/lcc/lib/libc/u8k/crt/conv.s b/WEGA/contrib/lcc/lib/libc/u8k/crt/conv.s
new file mode 100644
index 0000000..4107794
--- /dev/null
+++ b/WEGA/contrib/lcc/lib/libc/u8k/crt/conv.s
@@ -0,0 +1,165 @@
+.line 1 ""
+	.seg
+	fp := r13
+	FP := rr12
+	sp := r15
+	SP := rr14
+	.psec	data   
+	.data
+	.psec
+	.code
+itod::
+	{
+	ld	r3,r2
+	exts	rr2
+	callr	ltod
+	ret
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+itof::
+	{
+	ld	r3,r2
+	exts	rr2
+	calr	ltof
+	ret
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+/* _dtoi:: */
+
+dtoi::
+	{
+	callr	dtol
+	ld	r2,r3
+	ret
+	}
+	.psec	data   
+	.data
+	.psec
+	.code
+ftoi::
+	{
+	callr	ftol
+	ld	r2,r3
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+uitod::
+	{
+	ld	r3,r2
+	xor	r2,r2
+	callr	ultod
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+uitof::
+	{
+	ld 	r3,r2
+	xor	r2,r2
+	callr	ultod
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+dtoui::
+	{
+	callr	dtoul
+	ld	r2,r3
+	ret
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+ftoui::
+	{
+	callr	ftoul
+	ld	r2,r3
+	ret
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+/* _cvtuld:: */
+ultod::
+	{
+	ldl	rr0,rr2
+	cpl	rr2,#0
+	jpr	ne,L40
+	subl	rr2,rr2
+	subl	rr0,rr0
+	jpr	L39
+L40:
+	subl	rr2,rr2
+	pushl	@SP,rr2
+	pushl	@SP,rr0 /* Argument */
+	ldl	rr2,#%41d
+	pushl	@SP,rr2
+	subl	rr2,rr2
+	pushl	@SP,rr2
+	callr	normd
+	inc	sp,#%10
+L39:
+	ret
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+/* _cvtdul:: */
+dtoul::
+	{
+	callr	dtol	
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+/* _cvtful:: */
+ftoul::
+	{
+	callr	ftol
+	}
+
+	.psec	data   
+	.data
+	.psec
+	.code
+/* _cvtulf:: */
+ultof::
+	{
+	cpl	rr2,#0
+	jpr	ne,L49
+	subl	rr2,rr2
+	ret
+L49:
+	pushl	@SP,rr2
+	ldl	rr2,#%41c
+	pushl	@SP,rr2
+	callr	normf
+	inc	sp,#%8
+	ret
+	}
+
+	.psec	data   
+	.data