; ( source dest count -- )
code 'cmove', $cmove
              mov ecx,eax
              drop
	mov edi,eax
              drop
	push esi
	mov esi,eax
.1            mov edx, [esi] 
              mov [edi], edx
              inc edi
              inc esi
              loop .1
	pop esi
              drop
next
