.TITLE	STRPBL

	;STRPBL - REMOVE LEADING BLANKS
	;
	;CALL STRPBL(STRNG)
STRPBL::	MOV	(R5)+,R4	;MAKE SURE ENUFF ARGS
	DECB	R4		;1 ARG
	BMI	EXIT		;NOT ENUFF ARGS - IGNORE OTHERS
	MOV	(R5)+,R0	;R0 ==> STRING
	MOV	R0,R1		;R1 ==> STRING
1$:	CMPB	(R0)+,#40	;TEST FOR SPACES
	BEQ	1$		;SKIP OVER ALL OF THEM
	DEC	R0		;BACK UP TO FIRST NON BLANK
	CMP	R0,R1		;SEE IF ANY SPACES
	BEQ	EXIT		;NOPE
2$:	MOVB	(R0)+,(R1)+	;REMOVE SPACES
	BNE	2$		;UNTILL ALL THRU STRING
EXIT:	RTS	PC		;RETURN TO CALLER
	.END