# Kernel Library
# strchr

.include "f_asm.inc"

.equ STR,	DES
.equ CHR,	SRC

.text

.global _strchr

_strchr:
	ENTER
		movl %esi, %edx
		
		movl STR(%ebp), %esi
		movl CHR(%ebp), %ecx
				
		xorl %eax, %eax
		cld
next:				
		lodsb
		cmpb %cl, %al
		jz find
		cmpb $0, %al
		jnz next
		jmp done

find:
		movl %esi, %eax
		decl %eax
done:
		movl %edx, %esi
		
	LEAVE
		ret