add Berkeley/CCI specific header; fix sccsid
[unix-history] / usr / src / lib / libc / tahoe / string / strlen.s
/*
* Copyright (c) 1988 Regents of the University of California.
* All rights reserved.
*
* This code is derived from software contributed to Berkeley by
* Computer Consoles Inc.
*
* Redistribution and use in source and binary forms are permitted
* provided that this notice is preserved and that due credit is given
* to the University of California at Berkeley. The name of the University
* may not be used to endorse or promote products derived from this
* software without specific prior written permission. This software
* is provided ``as is'' without express or implied warranty.
*/
#if defined(LIBC_SCCS) && !defined(lint)
_sccsid:.asciz "@(#)strlen.s 1.2 (Berkeley) %G%"
#endif /* LIBC_SCCS and not lint */
/*
* Returns the number of
* non-NULL bytes in string argument.
*/
#include "DEFS.h"
ENTRY(strlen, 0)
movl 4(fp),r0
movl r0,r1
cmps2
subl2 4(fp),r0
ret