;
; bzero(ptr, nbytes)
;
	.globl	_bzero
_bzero:
	jsr	popax		; get nbytes
	sta	tmp1
	stx	tmp2
	jsr	popax		; get ptr
	sta	ptr1
	stx	ptr1+1
	lda	#0
bz1:
	ldx	tmp2		; get nbytes^
	beq	bz3		; zero, try lo
	ldy	#0
bz2:
	sta	(ptr1),y	; zap a byte
	iny
	bne	bz2
	inc	ptr1+1		; bump ptr^
	dec	tmp2		; dec nbytes^
	bne	bz1		; around again
bz3:
	ldy	tmp1
	beq	bz5
	ldy	#0
bz4:
	sta	(ptr1),y	; zap a byte
	iny
	cpy	tmp1		; done?
	bne	bz4
bz5:
	rts