;	SUBROUTINE STRPAD(A,I,{,ERR})
;	LOGICAL*1 ERR
;
; PADS A CHARACTER STRING(A) WITH RIGHTMOST BALNKS UNTIL THE
; STRING IS LENGTH I.  IF LOGICAL ARGUMENT ERR IS
; GIVEN AND THE STRING IS LONGER THAN I CHARACTERS INITIALLY
; THEN ERR IS SET .TRUE., OTHERWISE ERR IS UNCHANGED.

	.TITLE	STRPAD
	.IDENT	/V2/
	.PSECT

	.GLOBL	STRPAD

STRPAD:	MOV	(R5)+,R3
	MOV	(R5)+,R1
	MOV	@(R5)+,R2
STRPDC:	BEQ	STRPDA 
	TSTB	(R1)+
	BEQ	STRPDB 
	DEC	R2
	BNE	STRPDC 
STRPDA:	CMPB	#3 ,R3
	BHI	STRPDD 
	MOVB	#177777 ,@(R5)+
STRPDD:	RTS	PC
STRPDB:	DEC	R1
STRPDE:	MOVB	#' ,(R1)+
	DEC	R2
	BNE	STRPDE 
	CLRB	(R1)+
	RTS	PC

	.END