ack/mach/vax4/libem/lpb.s

19 lines
202 B
ArmAsm
Raw Normal View History

1985-01-18 14:30:03 +00:00
# $Header$
.globl .lpb
.lpb:
cmpl r0,fp
bneq L1
moval 4(ap),r0
rsb
L1:
movl fp,r1
L2:
cmpl 12(r1),r0
beql L3
movl 12(r1),r1
jbr L2
L3:
addl3 $4,8(r1),r0 # Argument Base = ap + 4
rsb