.define dup

dup:
	popl	saveret, *RR14
	dec	R15, $2
	ldl	RR2, RR14
	add	R3, R0
	sra	R0
	lddr	*RR14, *RR2, R0
	inc	R15, $2
	pushl	*RR14, saveret
	ret