This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.


git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/runtime/lmod.s

@@ -0,0 +1,26 @@
+;
+; Ullrich von Bassewitz, 07.08.1998
+;
+; CC65 runtime: modulo operation for long signed ints
+;
+
+; When negating values, we will ignore the possibility here, that one of the
+; values if $8000, in which case the negate will fail.
+
+       	.export		tosmodeax
+	.import		poplsargs, udiv32, adjlsres
+	.importzp	sreg, ptr1, ptr2, tmp3, tmp4
+
+tosmodeax:
+       	jsr    	poplsargs	; Get arguments from stack, adjust sign
+      	jsr	udiv32		; Do the division
+      	lda	ptr1   	       	; Remainder is in (ptr2:tmp3:tmp4)
+	lda	ptr2
+	ldx	ptr2+1
+	ldy    	tmp3
+	sty	sreg
+	ldy	tmp4
+	sty	sreg+1
+	jmp	adjlsres	; Adjust the sign of the result if needed
+
+