add LCC - a better C-Compiler for WEGA

1990-03-14 17:54:07 +00:00 · 1990-03-14 17:54:07 +00:00 · 136f50b5bd
parent aafb31fb68
commit 136f50b5bd
1 changed files with 22 additions and 0 deletions
--- a/WEGA/contrib/lcc/lib/libc/u8k/gen/memcpy.s
+++ b/WEGA/contrib/lcc/lib/libc/u8k/gen/memcpy.s
@ -0,0 +1,22 @@
+//
+// memcpy - copies n characters from s2 to s1, and returns s1
+//
+	.seg
+
+	sp := r15
+	SP := rr14
+
+	.psec
+	.code
+_memcpy::
+	{
+	ldm	r2,|_stkseg+4|(sp),#5	// rr2 = s1
+					// rr4 = s2
+					// r6  = n
+	cp	r6,#0
+	ret	le
+	ldl	rr0,rr2			// save s1
+	ldirb	@rr2,@rr4,r6
+	ldl	rr2,rr0			// return s1
+	ret
+	}