.define .rmu
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

	.sect .text

.rmu:
	enter[r2],0
	movd 1,r2
	andd 12(fp),r2
	movd 12(fp),r0
	lshd -1,r0
	remd 8(fp),r0
	lshd 1,r0
	addd r2,r0
	remd 8(fp), r0
	exit[r2]
	ret 8