.TITLE	STBLK	- STRIP BLANKS
	.IDENT	/VS01.0/
;
;	CALL STBLK (BUF1, BUF2, NCH)
;
;	WHERE -
;		BUF1	= INPUT BUFFER
;		BUF2	= OUTPUT BUFFER (BUF1 CAN BE THE SAME AS BUF2)
;		NCH	= # OF CHARACTERS TO STRIP OUT BLANKS
;
;	ALSO REFER TO STBLK.FTN FOR TRNASPORTABLE VERSION
;
STBLK::
	MOV	@6(R5),R0		; NCH
	BLE	RETURN			; DO NOTHING IF .LE. 0
	MOV	2(R5),R1		; FROM ADDR
	MOV	4(R5),R2		; TO ADDR
	CLR	R3
;
.10:
	CMPB	#' ,(R1)+		; IS IT BLANK?
	BEQ	.20			; YEP, SKIP OVER IT
	MOVB	-1(R1),(R2)+		; NOT, BLANK, TRANSFER TO OUTPUT
	BR	.30
;
.20:	INC	R3
.30:	
	SOB	R0,.10
;
;	FILL OUT WITH BLANKS
;
	TST	R3
	BEQ	RETURN
.40:
	MOVB	#' ,(R2)+
	SOB	R3,.40
;
RETURN:	RETURN
	.END