.TITLE	BZERO	Zero out an array of bytes
	.IDENT	/1.00/

	.PSECT	$CODE,LONG,PIC,REL,SHR,EXE,RD,NOWRT

; bzero(ptr, size)

	.ENTRY	BZERO,^M<R2,R3,R4,R5>
	MOVL	4(AP),R3
	BRB	2$
1$:
	SUBL2	R0,8(AP)
	MOVC5	#0,(R3),#0,R0,(R3)
2$:
	MOVZWL	#65535,R0
	CMPL	8(AP),R0
	BGTR	1$
	MOVC5	#0,(R3),#0,8(AP),(R3)
	RET

	.END