xref: /csrg-svn/lib/libc/vax/string/strlen.s (revision 17329)
1/*	strlen.s	4.2	84/11/01	*/
2
3/*
4 * Return the length of cp (not counting '\0').
5 *
6 * strlen(cp)
7 *	char *cp;
8 */
9#include "DEFS.h"
10
11ENTRY(strlen, 0)
12	movl	4(ap),r2
130:
14	locc	$0,$65535,(r2)	# look for '\0'
15	beql	0b
16	subl3	r2,r1,r0	# len = cp - base
17	ret
18