	.globl	asl_l

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

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

0:	sub	$1,10(sp)
	sbc	6(sp)
	bmi	0f
	asl	r1
	rol	r0
	br	0b

0:	return
