.TITLE	VMOVD  MOVE ONE VECTOR INTO ANOTHER  (DOUBLE PRECISION)
	.IDENT	/1.0/					;  08/15/79
	.GLOBL  VMOVD
	.ENABL	LSB
;
F0=R0
VMOVD:
	CMP	#3,(R5)+	;CHECK NUMBER OF ARGUMENTS
	BNE	BOMBD		;BOMB IF # OF ARGS. IS INCORRECT
	MOV	(R5)+,R0	;R0=ADDRESS OF C
	MOV	(R5)+,R1	;R1=ADDRESS OF A
	MOV	@(R5),R2	;R2=N
;		LOOP TO MOVE VECTOR
	SETD
10$:	LDD	(R1)+,F0	;C(I)=A(I)
	STD	F0,(R0)+
	SOB	R2,10$		;DONE?
	RTS	PC		;RETURN
BOMBD:	MOV	#105040,-(SP)	;MOVE 2ND HALF OF NAME TO STACK
	MOV	#105627,R4	;MOVE 1ST HALF OF NAME TO R4
	JSR	R4,NAM$		;SUBR TO PUT NAME IN WALKBACK
	JMP	$BOMB		;ABORT, $BOMB DOES NOT EXIST
	.END