date and time created 90/05/12 16:16:27 by bostic

SCCS-vsn: lib/libc/hp300/string/strlen.s 5.1

diff --git a/usr/src/lib/libc/hp300/string/strlen.s b/usr/src/lib/libc/hp300/string/strlen.s
new file mode 100644 (file)
index 0000000..7b8063b
--- /dev/null
+++ b/usr/src/lib/libc/hp300/string/strlen.s
@@ -0,0 +1,25 @@
+/*-
+ * Copyright (c) 1990 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * the Systems Programming Group of the University of Utah Computer
+ * Science Department.
+ *
+ * %sccs.include.redist.c%
+ */
+
+#if defined(LIBC_SCCS) && !defined(lint)
+       .asciz "@(#)strlen.s    5.1 (Berkeley) %G%"
+#endif /* LIBC_SCCS and not lint */
+
+#include "DEFS.h"
+
+ENTRY(strlen)
+       moveq   #-1,d0
+       movl    sp@(4),a0       /* string */
+slloop:
+       addql   #1,d0           /* increment count */
+       tstb    a0@+            /* null? */
+       jne     slloop          /* no, keep going */
+       rts