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