remainder now is returned in d0.

This commit is contained in:
ceriel 1987-03-27 08:49:14 +00:00
parent db5b8614f3
commit ea63596eb3

View file

@ -6,28 +6,28 @@
! unsigned long divide ! unsigned long divide
! register usage: ! register usage:
! : d0 divisor ! : d2 divisor
! d1 dividend ! d1 dividend
! exit : d1 quotient ! exit : d1 quotient
! d2 remainder ! d0 remainder
.sect .text .sect .text
.dvu: .dvu:
move.l 4(sp),d0 move.l 4(sp),d2
move.l 8(sp),d1 move.l 8(sp),d1
move.l d3,-(sp) move.l d3,-(sp)
tst.l d0 tst.l d2
bne 0f bne 0f
move.w #EIDIVZ,-(sp) move.w #EIDIVZ,-(sp)
jsr .trp jsr .trp
0: 0:
clr.l d2 clr.l d0
move.l #31,d3 move.l #31,d3
3: 3:
lsl.l #1,d1 lsl.l #1,d1
roxl.l #1,d2 roxl.l #1,d0
cmp.l d0,d2 cmp.l d2,d0
blt 4f blt 4f
sub.l d0,d2 sub.l d2,d0
add #1,d1 add #1,d1
4: 4:
dbf d3,3b dbf d3,3b