.title	trim
;
; call trim( a )
;
; remove trailing blanks
;
	.psect	user$i
trim::	tst	(r5)+			; discard nargs
	mov	(r5)+,r1		; => i/p
	mov	r1,r2			; copy
	movb	-(r2),r3
	clrb	(r2)

10$:	tstb	(r1)+
	bne	10$
	dec	r1

20$:	cmpb	-(r1),#40
	beq	20$
	clrb	1(r1)
	movb	r3,(r2)
	return

	.end