ack/mach/z8000/libem/dup.s

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

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
* empty log message * 1985-01-08 11:48:43 +00:00			`.define dup`
new version for new assembler syntax 1987-01-19 10:51:50 +00:00			`.sect .text`
			`.sect .rom`
			`.sect .data`
			`.sect .bss`
			`.sect .text`
* empty log message * 1985-01-08 11:48:43 +00:00
			`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`