; SUBROUTINE CHRCNT
; TO COUNT THE NUMBER OF OCCURRENCES OF A GIVEN
; CHARACTER IN A BUFFER OF SPECIFIED LENGTH
; FORTRAN CALL:
; 	CALL CHRCNT(NBUF,CBUF,NCHR,CHAR)
; WHERE:
; 	NBUF=NO. OF CHARACTERS IN BUFFER
; 	CBUF=START OF CHAR BUFFER
; 	NCHR=NO. OF SPECIFIED CHAR COUNTED
; 	CHAR=SPECIFIED CHARACTER (BYTE VAR)
	.TITLE	CHRCNT
	.CSECT
	.GLOBL	CHRCNT
CHRCNT:	MOV	@2(R5),R1	;BUFFER COUNT IN R1
	MOV	4(R5),R2	;BUFFER ADDRESS IN R2
	MOVB	@10(R5),R3	;CHARACTER IN R3
	CLR	R0		;COUNT = 0
LOOP01:	CMPB	(R2)+,R3	;IS THIS THE ONE ?
	BNE	CONT01		;NO, DON'T COUNT
	INC	R0		;YES, I LOVE TO COUNT!!
CONT01:	SOB	R1,LOOP01	;DO IT OVER TILL DONE
	MOV	R0,@6(R5)	;PUT COUNT IN ITS PLACE
	RTS	PC
	.END