ack/mach/z8000/libem/dvu4.s

.define dvu4
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

dvu4:
	popl	saveret, *RR14
	ldm	savereg, R4, $10
	popl	RR4, *RR14
	popl	RR2, *RR14
	testl	RR4
	jr	MI, 1f
	ldl	RR0, $0
	divl	RQ0, RR4
	jr	2f
1:	cpl	RR4, RR2
	ldl	RR2, $0
	jr	UGT, 2f
	inc	R3
2:	ldm	R4, savereg, $10
	pushl	*RR14, saveret
	ret
* empty log message * 1985-01-08 11:48:43 +00:00			`.define dvu4`
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
			`dvu4:`
			`popl saveret, *RR14`
			`ldm savereg, R4, $10`
			`popl RR4, *RR14`
			`popl RR2, *RR14`
			`testl RR4`
			`jr MI, 1f`
			`ldl RR0, $0`
			`divl RQ0, RR4`
			`jr 2f`
			`1: cpl RR4, RR2`
			`ldl RR2, $0`
			`jr UGT, 2f`
			`inc R3`
			`2: ldm R4, savereg, $10`
			`pushl *RR14, saveret`
			`ret`