include	clib.inc

PPROC	memzero, strp:DPTR, count:word
	push	di
	mov	cx,count
	MLES	di,strp
	cld
	xor	ax,ax
	shr	cx,1
	rep	stosw
	jc	memzero_one
    memzero_end:
	pop	di
	ret
    memzero_one:
	stosb
	jmp	memzero_end
PEND	memzero

	END
