.TITLE	VECTOR
	.IDENT	/BCPL04/
	.PSECT	BCPLIB
	P=%5
G47::	MOV	(R0)+,R1
	SUB	#6,R1
	ADD	R1,P
	ASR	R1
	MOV	6(P),R2
	INC	R2
	ASL	R2
	ADD	P,R2
1$:	MOV	-(P),-(R2)
	SOB	R1,1$
	ASR	P
	MOV	P,(SP)
	MOV	R2,P
	RTS	R0
	.PSECT	GLOBAL,GBL,OVR
GV:
	.=GV+<2*47.>
	.WORD	G47
	.END