ack/mach/vax4/libem/exg.s
1985-01-18 14:30:03 +00:00

19 lines
223 B
ArmAsm

# $Header$
.globl .exg
# bytes in r0
.exg:
movl (sp)+,r3
addl3 sp,r0,r2
addl2 r0,r2
ashl $-2,r0,r1
L1:
movl -(r2),-(sp)
sobgtr r1,L1
addl3 r0,r2,r1
L2:
movw -(r2),-(r1)
sobgtr r0,L2
movl r1,sp
jmp (r3)