ack/mach/z8000/libem/dup.s

13 lines
149 B
ArmAsm
Raw Normal View History

1985-01-08 11:48:43 +00:00
.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