.define dvu2
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

dvu2:
	popl	saveret, *RR14
	pop	R2, *RR14
	pop	R1, *RR14
	test	R2
	jr	MI, 1f
	ldk	R0, $0
	div	RR0, R2
2:	pushl	*RR14, saveret
	ret
1:	cp	R2, R1
	ldk	R1, $0
	jr	UGT, 2b
	inc	R1
	jr	2b