.title	trim0
;
; call trim0( a )
;
; remove trailing ASCII 0's
;
	.psect	user$i
trim0::	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),#'0
	beq	20$
	clrb	1(r1)
	movb	r3,(r2)
	return

	.end