;	SUBROUTINE TRIM(A)
;
; SHORTENS A SPECIFIED CHARACTER STRING(A) BY REMOVING ALL
; TRAILING BLANKS.

 
	.TITLE	TRIM
	.IDENT	/V2/
	.PSECT
 
	.GLOBL	TRIM
 
TRIM:	TST	(R5)+
	MOV	(R5)+,R1
	MOV	R1,R2
	MOVB	-(R2),R3
	CLRB	(R2)
TRIMA:	TSTB	(R1)+
	BNE	TRIMA 
	DEC	R1
TRIMB:	CMPB	#' ,-(R1)
	BEQ	TRIMB 
	CLRB	1 (R1)
	MOVB	R3,(R2)
	RTS	PC

	.END