ack/mach/vax4/libem/cms.s

17 lines
187 B
ArmAsm
Raw Normal View History

1985-01-18 14:30:03 +00:00
# $Header$
.globl .cms
# bytes in r0
.cms:
movl (sp)+,r3
addl3 sp,r0,r1
addl3 r1,r0,r2
ashl $-2,r0,r0
L1:
cmpl (sp)+,(r1)+
bneq L2
sobgtr r0,L1
L2:
movl r2,sp
jmp (r3)