.TITLE	IBLUF	- BYTE LOOK UP FUNCTION
;
;	I = IBLUF (BCHR, BVEC)
;	FIND BCHR IN BVEC, IF ENCOUNTER A ZERO BYTE IN BVEC THEN
;	TERMINATE WITH I = -1, ELSE I = POSITION IN BVEC WHERE MATCH MADE
;
IBLUF::
	CLR	R0		; INIT COUNTER
	MOV	4(R5),R1
10$:	TSTB	(R1)		; ZERO BYTE ?
	BEQ	RTN1		; YES
	INC	R0		; BUMP POINTER
	CMPB	@2(R5),(R1)+	; MATCH ?
	BEQ	RTN2		; YES
	BR	10$		; NO, GET NEXT CHAR
RTN1:	MOV	#-1,R0		; INDICATE ERROR
RTN2:	RETURN
	.END