* Copyright (c) 1990 The Regents of the University of California.
* This code is derived from software contributed to Berkeley by
* the Systems Programming Group of the University of Utah Computer
* %sccs.include.redist.c%
#if defined(LIBC_SCCS) && !defined(lint)
.asciz "@(#)index.s 5.1 (Berkeley) %G%"
#endif /* LIBC_SCCS and not lint */
movl sp@(4),a0 /* string */
movb sp@(11),d0 /* char to look for */
cmpb a0@,d0 /* found our char? */
jeq ixfound /* yes, break out */
jne ixloop /* no, keep going */
moveq #0,d0 /* not found, return null */
movl a0,d0 /* found, return pointer */