;		SOUND DATA TRANS
;
;		call from F-BASIC386 or High C
;	callm address,varptr(source),varptr(new)
;	void  sndTransfer(*sourcesnd,*newsnd)
;
;
;			1990 3  Hiroshi TODA
;
;			1993 12 HighC—p‚ɉü‘¢
;
;

	.386p

cseg	segment	dword public use32 'CODE'
	assume	cs:cseg,ds:cseg

	public	sndTransfer
	db	'sndTransfer',11
sndTransfer	proc	near
	push	ebp
	mov	ebp,esp
	push	esi
	push	edi
	push	ebx

	cld

	mov	esi,[ebp+8]		; esi <-- source snd. add.
	mov	edi,[ebp+12]	; edi <-- new snd. add.
	xor	edx,edx			; head trans
main01:	mov	eax,[esi][edx*4]
	mov	[edi][edx*4],eax
	inc	edx
	cmp	edx,8
	jb	main01
	mov	ecx,[esi+12]		; ecx <-- data length
	add	esi,32			; add head(32Byte)
	add	edi,32
main02:	rep movsb
	pop	ebx
	pop	edi
	pop	esi
	mov	esp,ebp
	pop	ebp
	ret
sndTransfer	endp

cseg	ends
	end