.TITLE	BCMP	Compare 2 strings of bytes
	.IDENT	/1.00/



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

; bcmp(s1, s2, n)

	.ENTRY	BCMP,^M<R2,R3,R4,R5>
	MOVL	4(AP),R1
	MOVL	8(AP),R3
	MOVL	12(AP),R4
1$:
	MOVZWL	#65535,R0
	CMPL	R4,R0
	BLEQ	2$
	SUBL2	R0,R4
	CMPC3	R0,(R1),(R3)
	BEQL	1$
	ADDL2	R4,R0
	RET
2$:
	CMPC3	R4,(R1),(R3)
	RET

	.END