asleax2.s



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

	.export		asleax2, shleax2
	.importzp	sreg, tmp1

asleax2:
shleax2:
	stx	tmp1
	asl	a
	rol	tmp1
	rol	sreg
	rol	sreg+1
	asl	a
	rol	tmp1
	rol	sreg
	rol	sreg+1
	ldx	tmp1
	rts



Valid HTML 4.0! asleax2.s.html; generated on Sat Oct 13 22:41:33 2001 by ca65html
uz@cc65.org