.TITLE	SIVFL
	.IDENT 	.11JULY.
        .SBTTL. STANDARD INTEGER VECTOR FILL
	.PSECT	$CODE1
SIVFL::
	MOV	@6(R5),R0
	BLE	.50
	MOV	2(R5),R1
	MOV	4(R5),R2
L$LAPF:
	MOV	(R1),(R2)+
;       MOV	2(R1),(R2)+	FOR 32 BIT FILL (SFVMV)
	SOB	R0,L$LAPF
.50:	
	RTS	PC
	.END