
	.globl	asl_li

/
/ long asl_li(l, n);
/ long l; int n;
/ Performs l<<n for long-int.
/

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

0:	dec	6(sp)
	bmi	0f
	asl	r1
	rol	r0
	br	0b

0:	return
