;
; Piotr Fusik, 24.10.2003
; originally by Ullrich von Bassewitz
;
; CC65 runtime: Multiply the primary register by 10
;

	.export	 	mulax10
	.importzp	ptr1

.proc	mulax10

	sta	ptr1
	stx	ptr1+1
	asl	a
	rol	ptr1+1
	asl	a
	rol	ptr1+1
	clc
	adc	ptr1
	sta	ptr1
	txa
	adc	ptr1+1
	asl	ptr1
	rol	a
	tax
	lda	ptr1
	rts

.endproc


