ack/mach/pdp/libem/cmi4.s
1984-07-19 13:34:12 +00:00

23 lines
193 B
ArmAsm

/ $Header$
.text
.globl cmi4~
.globl save1~
cmi4~:
mov (sp)+,r1
clr r0
cmp (sp),4(sp)
bgt 1f
blt 2f
cmp 2(sp),6(sp)
bhi 1f
beq 3f
2:
inc r0
br 3f
1:
dec r0
3:
add $10,sp
jmp (r1)