More entry points for long ops that clear the high word of the lhs.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4025 b7a2c559-68d2-44c3-8de9-860c34a00d81
2009-08-15 21:06:06 +00:00
parent 582506b7fc
commit aa7d419165
4 changed files with 28 additions and 6 deletions
--- a/libsrc/runtime/ludiv.s
+++ b/libsrc/runtime/ludiv.s
@@ -4,11 +4,16 @@
 ; CC65 runtime: division for long unsigned ints
 ;

-       	.export		tosudiveax, getlop, udiv32
+       	.export		tosudiv0ax, tosudiveax, getlop, udiv32
 	.import		addysp1
 	.importzp	sp, sreg, tmp3, tmp4, ptr1, ptr2, ptr3, ptr4

-tosudiveax:
+tosudiv0ax:
+        ldy     #$00
+        sty     sreg
+        sty     sreg+1
+
+tosudiveax:                         
 	jsr	getlop		; Get the paramameters
 	jsr	udiv32		; Do the division
 	lda	ptr1		; Result is in ptr1:sreg