Runtime function improvements by Piotr Fusik

git-svn-id: svn://svn.cc65.org/cc65/trunk@2577 b7a2c559-68d2-44c3-8de9-860c34a00d81
2003-10-28 08:47:47 +00:00
parent 4319fd9cc7
commit 6d8cdae722
7 changed files with 86 additions and 90 deletions
--- a/libsrc/runtime/mulax6.s
+++ b/libsrc/runtime/mulax6.s
@@ -1,28 +1,28 @@
 ;
-; Ullrich von Bassewitz, 16.03.2002
+; Piotr Fusik, 24.10.2003
+; originally by Ullrich von Bassewitz
 ;
-; CC65 runtime: Multiply the primary register
+; CC65 runtime: Multiply the primary register by 6
 ;

-   	.export	      	mulax6
-	.importzp     	ptr1
+	.export	 	mulax6
+	.importzp	ptr1

 .proc	mulax6

-	sta     ptr1
+	sta	ptr1
 	stx	ptr1+1
 	asl	a
 	rol	ptr1+1
 	clc
 	adc	ptr1
-	pha
+	sta	ptr1
 	txa
 	adc	ptr1+1
-	sta	ptr1+1
-	pla
-	asl	a
-	rol	ptr1+1
- 	ldx	ptr1+1
+	asl	ptr1
+	rol	a
+	tax
+	lda	ptr1
 	rts

 .endproc