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