.TITLE	FND
	.PSECT	FND
;	Search 1st n bytes of an array for a character. If found return 
;	postion, otherwise return zero.

;	Integer*4 function.  To call:	INTEGER*4 POS,FND,CHAR,N
;					BYTE	ARRAY(dimension .ge. N)
;					POS=FND(CHAR,ARRAY,N)
;						CHAR - character to find
;						ARRAY - array to search
;						N - # bytes to search in 
;						    array ARRAY
	.ENTRY 	FND ^M<>
	
	LOCC	@4(AP),@12(AP),@8(AP)	;args=char to find,length,array

	BEQL	FND1			;branch if character not found
;					R0 is now equal to zero.

;	Character is found. R0=characters remaining including CHAR.
	SUBL2	@12(AP),R0		;R0=R0-length
	MNEGL	R0,R0			;R0=postion of CHAR-1
	INCL	R0			;R0=postion of CHAR

FND1:	RET

	.END