Return to udiv.s CVS log

Up to [Research Unix] / researchv10no / cmd / PDP11 / crt

researchv10 Norman

/ unsigned divide routine

.globl	udiv, urem

udiv:
	cmp	r1,$1
	ble	9f
	mov	r1,-(sp)
	mov	r0,r1
	clr	r0
	div	(sp)+,r0
	rts	pc
9:
	bne	9f
	tst	r0
	rts	pc
9:
	cmp	r1,r0
	blos	9f
	clr	r0
	rts	pc
9:
	mov	$1,r0
	rts	pc

urem:
	cmp	r1,$1
	ble	9f
	mov	r1,-(sp)
	mov	r0,r1
	clr	r0
	div	(sp)+,r0
	mov	r1,r0
	rts	pc
9:
	bne	9f
	clr	r0
	rts	pc
9:
	cmp	r0,r1
	blo	9f
	sub	r1,r0
9:
	tst	r0
	rts	pc

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.