;
; Ullrich von Bassewitz, 06.08.1998
;
; CC65 runtime: Scale the 32 bit primary register by 8
;

	.export		asleax3, shleax3
	.importzp	sreg, tmp1

asleax3:
shleax3:
       	stx	tmp1
       	asl	a
       	rol	tmp1
       	rol	sreg
       	rol	sreg+1
       	asl	a
	rol	tmp1
	rol	sreg
	rol	sreg+1
       	asl	a
	rol	tmp1
	rol	sreg
	rol	sreg+1
	ldx	tmp1
	rts