Added additional entry points that clear the high word of the right operand.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4023 b7a2c559-68d2-44c3-8de9-860c34a00d81
2009-08-15 20:58:35 +00:00
parent d0f9a0d6a7
commit b1f772e9be
6 changed files with 42 additions and 11 deletions
--- a/libsrc/runtime/lmul.s
+++ b/libsrc/runtime/lmul.s
@@ -4,10 +4,16 @@
 ; CC65 runtime: multiplication for long (unsigned) ints
 ;

-       	.export		tosumuleax, tosmuleax
+       	.export		tosumul0ax, tosumuleax, tosmul0ax, tosmuleax
 	.import		addysp1
 	.importzp	sp, sreg, tmp1, tmp2, tmp3, tmp4, ptr1, ptr3, ptr4

+tosmul0ax:
+tosumul0ax:
+        ldy     #$00    
+        sty     sreg
+        sty     sreg+1
+
 tosmuleax:
 tosumuleax:
 mul32:	sta	ptr1