.area	text
;
; int strchr(char *s1, int c)
;
_strchr::
      ; not-found shortcut on c > byte range.
	tst	R19	     ;
	brne	strchrx0   ;
	;
	mov	R30,R16
	mov	R31,R17
strchr1:
	ld	R0,Z+
	cp	R0,R18
	 breq	strchrx1   ; found ...
	tst	R0
	 brne	strchr1    ; loop until ...
strchrx0:		     ; not found
	ldi	R16,0
	ldi	R17,0	     ;
	ret
strchrx1:	     	     ; found
	sbiw	R30,1
	mov	R16,R30
	mov	R17,R31
	ret
;
;<eof; 2003-08-02 ja>