.TITLE	SBVFL
	.IDENT 	.22OCT.
        .SBTTL. STANDARD BYTE VECTOR FILL
	.PSECT	$CODE1
SBVFL::
	MOV	@6(R5),R0
	BLE	.50
	MOV	2(R5),R1
	MOV	4(R5),R2
L$LAPF:
	MOVB	(R1),(R2)+
	SOB	R0,L$LAPF
.50:	
	RTS	PC
	.END