ack/mach/z8000/libem/dup.s
1985-02-17 00:57:20 +00:00

13 lines
149 B
ArmAsm

.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