ack/mach/vax4/libem/lxl.s

15 lines
159 B
ArmAsm
Raw Normal View History

1985-01-18 14:30:03 +00:00
# $Header$
.globl .lxl
# nlevels in r0 (>=2)
.lxl:
pushl r0
decl (sp)
movl 4(ap),r0
L1:
jsb .lpb
movl (r0),r0
sobgtr (sp),L1
tstl (sp)+
rsb