; find length of string, return A
strlen:	mov	r2,#0
len2:	movx	a,@dptr
	jz	len1
	inc	dptr
	inc	r2
	sjmp	len2
len1:	mov	a,r2
	ret
;