	.globl	asr_li

/
/ long asr_li(l, n);
/ long l; int n;
/ Performs l>>n for long-int.
/

asr_li:	mov	2(sp),r0
	mov	4(sp),r1

0:	dec	6(sp)
	bmi	0f
	asr	r0
	ror	r1
	br	0b

0:	return
