;
; Ullrich von Bassewitz, 27.09.1998
;
; CC65 runtime: modulo operation for long unsigned ints
;

       	.export		tosumod0ax, tosumodeax
       	.import		getlop, udiv32
       	.importzp	sreg, tmp3, tmp4, ptr2

tosumod0ax:                          
        ldy     #$00
        sty     sreg
        sty     sreg+1

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+1
	lda	ptr2
	ldx	ptr2+1
	rts

