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
2000-05-28 13:40:48 +00:00
parent 579491e8a4
commit 53dd513176
847 changed files with 91345 additions and 0 deletions
--- a/libsrc/runtime/lumod.s
+++ b/libsrc/runtime/lumod.s
@@ -0,0 +1,21 @@
+;
+; Ullrich von Bassewitz, 27.09.1998
+;
+; CC65 runtime: modulo operation for long unsigned ints
+;
+
+       	.export		tosumodeax
+       	.import		getlop, udiv32
+       	.importzp	sreg, tmp3, tmp4, ptr2
+
+tosumodeax:
+	jsr	getlop		; Get the paramameters
+ 	jsr	udiv32		; Do the division
+ 	lda	tmp3		; Remainder is in ptr2:tmp3:tmp4
+	sta	sreg
+	lda	tmp4
+	sta	sreg
+	lda	ptr2
+	ldx	ptr2+1
+	rts
+