.segment "LIBCODE"
;
; Piotr Fusik, 24.10.2003
; originally by Ullrich von Bassewitz
;
; CC65 runtime: Multiply the primary register by 7
;

	.export		mulax7
	.importzp	ptr1

.proc	mulax7

	sta	ptr1
	stx	ptr1+1
	asl	a
	rol	ptr1+1			; * 2
	asl	a
	rol	ptr1+1			; * 4
	asl	a
	rol	ptr1+1			; * 8
	sec
	sbc	ptr1
	pha
	txa
	eor	#$ff
	adc	ptr1+1			; * (8 - 1)
	tax
	pla
	rts

.endproc


