TEXT	strlen(SB),$0

	MOVL	$0, AX
	MOVL	$-1, CX
	CLD
/*
 * look for end of string
 */

	MOVL	p+0(FP), DI
	REPN;	SCASB

	MOVL	DI, AX
	SUBL	p+0(FP), AX
	SUBL	$1, AX
	RET