.define Rmu2
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

! This subroutine returns the remainder of an twobyte unsigned
! integer division.


Rmu2:
	stx ARTH
	sta ARTH+1	! first operand
	jsr Pop
	stx ARTH+2
	sta ARTH+3	! second operand
	ldy #1
	sty UNSIGN	! it unsigned
	jsr Duv
	lsr ARTH+5
	ror ARTH+4	! shift result one time
	ldx ARTH+4
	lda ARTH+5
    	rts