X-Git-Url: http://git.mutantstargoat.com/user/nuclear/?p=retrocrawl;a=blobdiff_plain;f=src%2Famiga%2Flibc%2Flibc_asm.s;fp=src%2Famiga%2Flibc%2Flibc_asm.s;h=095c8df648429c6115c111e92cd9efbf7bb2207a;hp=0000000000000000000000000000000000000000;hb=cab072d239d772d1c3445612d2599da36b087b25;hpb=03ec5d69f5f53b61e8b6aefbcd23b0b258c6b60a

diff --git a/src/amiga/libc/libc_asm.s b/src/amiga/libc/libc_asm.s
new file mode 100644
index 0000000..095c8df
--- /dev/null
+++ b/src/amiga/libc/libc_asm.s
@@ -0,0 +1,24 @@
+| vi:filetype=gas68k:
+	.text
+
+	| optimize: transfer words at a time
+	.global memcpy
+memcpy:
+	move.l 4(%sp), %a0
+	move.l 8(%sp), %a1
+	move.l 12(%sp), %d0
+	sub.l #1, %d0
+0:	move.b (%a1)+, (%a0)+
+	dbra %d0, 0b
+	rts
+
+	| optimize: same as above
+	.global memset
+memset:
+	move.l 4(%sp), %a0
+	move.l 8(%sp), %d1
+	move.l 12(%sp), %d0
+	sub.l #1, %d0
+0:	move.b %d1, (%a0)+
+	dbra %d0, 0b
+	rts