.define	.dup
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

	.sect .text

!r2 will save return addres
.dup:
	movd tos, r2
	addr 0(sp), tos
	movd r0, tos
	jsr @.los
	movd r2, tos
	ret 0