.PSECT	SCOPY
SCOPY::	MOV	(R5)+,	R0
	MOV	(R5)+,	R1
	MOV	(R5)+,	R2
	CMP	R0,	#2
	BEQ	10$
	MOV	@(R5)+,	R3
1$:	MOVB	(R1)+,	(R2)+
	BEQ	20$
	SOB	R3,	1$
	CLRB	(R2)+
	RTS	PC
10$:	MOVB	(R1)+,	(R2)+
	BNE	10$
20$:	RTS	PC

	.PSECT	STRPAD
STRPAD:: TST	(R5)+
	MOV	(R5)+,	R0
	MOV	@(R5)+,	R1
1$:	TSTB	(R0)+
	BEQ	2$
	SOB	R1,	1$
	CLRB	@R0
	RTS	PC
2$:	DEC	R0
3$:	MOVB	#' ,	(R0)+
	SOB	R1,	3$
	CLRB	@R0
	RTS	PC

	.PSECT	TRIM
TRIM::	TST	(R5)+
	MOV	(R5)+,	R0
	CLR	R1
1$:	INC	R1
	TSTB	(R0)+
	BNE	1$
	DEC	R0
2$:	DEC	R1
	BEQ	3$
	CMPB	-(R0),	#' 
	BEQ	2$
	CLRB	1(R0)
	RTS	PC
3$:	CLRB	(R0)
	RTS	PC
	.END