.TITLE	STRING_LEN
;
;	I * 4 FUNCTION TO RETURN THE LENGTH OF A STRING
;	STORED IN A BYTE ARRAY, TERMINATED BY A ZERO BYTE.
;

	.ENTRY	STRING_LEN, ^M<R2>
	MOVL	4(AP),R2	; LOC OF STRING
	LOCC	#0,#200,(R2)	; LOOK FOR END - MAX STRING = 200 BYTES
	SUBL3	R0,#200,R0	; RETURN LENGTH IN R0
	RET
	.END