*	#include <stdio.h>
*	
*	char *strchr(string, symbol)
*		register char *string;
*		register char symbol;
*	/*
*	 *	Return a pointer to the first occurance of <symbol> in <string>.
*	 *	NULL is returned if <symbol> is not found.
*	 */
*		{
*		do
*			{
*			if(*string == symbol)
*				return(string);
*			}
*			while(*string++);
*		return(NULL);
*		}

	CODE	CODE
	PUBLIC _strchr
_strchr:
	move.l	4(a7),a0
	move.l	8(a7),d0	; 05Aug89-Jal  move.w 8(a7),d0 for 2 byte ints.
strchr1:
	cmp.b	(a0),d0
	bne	strchr2
	move.l	a0,d0
	rts
strchr2:
	tst.b	(a0)+
	bne	strchr1
	clr.l	d0
	rts
	END