;  strlen.S
;
;  Copyright 2000-2004 John Coffman
;  Copyright 2009-2011 Joachim Wiedorn
;  All rights reserved.
;
;  Licensed under the terms contained in the file 'COPYING'
;  in the source directory.
;

;
; strlen:  find length of a string
;	enter with:
;		DS:BX = pointer to string
;
;	return with:
;		AX = length of string
;
strlen:
	mov	ax,bx
strlen1:
	test	byte (bx),#0xFF
	jz	strlen2
	inc	bx
	jmp	strlen1
strlen2:
	sub	bx,ax
	xchg	ax,bx
	ret

; end strlen.S