;	FUNCTION LENSTR(A)
;
; Returns the number of characters in string A.
;
; MODIFICATIONS RECORD
; ====================
; V2.01 CJD 7-July-82
;	Change to preferred name LENSTR to avoid conflict with F77's LEN.

	.TITLE	LEN
	.IDENT	/V2.01/

	.GLOBL	LEN,LENSTR

LEN:
LENSTR:	TST	(R5)+
	MOV	(R5),R0
LENA:	TSTB	(R0)+
	BNE	LENA 
	DEC	R0
	SUB	(R5),R0
	RTS	PC

	.END