ack/mach/z8000/libem/rmu2.s

.define rmu2
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

rmu2:
	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:	ld	R0, R1
	cp	R2, R1
	jp	UGT, 2b
	sub	R0, R2
	jp	2b
* empty log message * 1985-01-08 11:48:43 +00:00			`.define rmu2`
new version for new assembler syntax 1987-01-19 10:51:50 +00:00			`.sect .text`
			`.sect .rom`
			`.sect .data`
			`.sect .bss`
			`.sect .text`
* empty log message * 1985-01-08 11:48:43 +00:00
			`rmu2:`
			`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: ld R0, R1`
			`cp R2, R1`
			`jp UGT, 2b`
			`sub R0, R2`
			`jp 2b`