diff --git a/rtl/arm/arm.inc b/rtl/arm/arm.inc
index 4c1d2c715e..a96ea108e0 100644
--- a/rtl/arm/arm.inc
+++ b/rtl/arm/arm.inc
@@ -117,9 +117,76 @@ asm
 end;
 
 
+(*
+{$define FPC_SYSTEM_HAS_MOVE}
+procedure Move(const source;var dest;count:longint);[public, alias: 'FPC_MOVE'];assembler;nostackframe;
+asm
+	// count <=0 ?
+	cmp r2,#0
+	movle pc,lr
+	// overlap?
+	cmp r2,r1
+	bls .Lnoverlap
+	add r3,r0,r2
+	cmp r3,r2
+	bls .Lnooverlap
+	// overlap, copy backward
+.Loverlapped
+  subs r2,r2,#1
+  ldrb r3,[r0,r2]
+  strb r3,[r1,r2]
+  bne .Loverlapped
+  mov pc,lr
+.Lnooverlap:
+  // less then 16 bytes to copy?
+  cmp r2,#16
+  // yes, the forget about the whole optimizations
+  // and do a bytewise copy
+  blt .Lbyteloop
+
+  // both uneven aligned?
+  eor r3,r0,r1
+  tst r3,#1
+
+  bne .Ldifferentaligned
+  // yes, then align
+  // alignment to 4 byte boundries is enough
+  ldrb ip,[r0],#1
+  sub r2,r2,#1
+  stb ip,[r1],#1
+  tst r3,#2
+  bne .Ldifferentaligned
+  ldrh ip,[r0],#2
+  sub r2,r2,#2
+  sth ip,[r1],#2
+
+.Ldifferentaligned
+  // qword aligned?
+  orrs r3,r0,r1
+  tst r3,#7
+  bne .Ldwordloop
+.Lqwordloop:
+  sub r2,r2,#8
+  ldmia r0!,{r3,ip}
+  stmia r1!,{r3,ip}
+
+
+
+.Lbyteloop:
+  ldrb r3,[r0],#1
+  strb r3,[r1],#1
+  subs r2,r2,#1
+  bne .Lbyteloop
+  mov pc,lr
+end;
+*)
+
 {
   $Log$
-  Revision 1.11  2005-02-14 17:13:21  peter
+  Revision 1.12  2005-03-13 10:04:52  florian
+    * move draft
+
+  Revision 1.11  2005/02/14 17:13:21  peter
     * truncate log
 
   Revision 1.10  2005/01/05 15:59:02  florian
@@ -132,3 +199,4 @@ end;
     + correct setting of FPU exception mask
 
 }
+