d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Replaced clr by the faster mov #0, (for d registers).

Browse source
This commit is contained in:
keie 1984-12-18 17:06:36 +00:00
parent 5f41dcd958
commit b544d3b401
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
mach/mantra/int/mloop6
View file

@ -93,7 +93,7 @@ mli_2W:
#else
move.l (sp)+,d0 ; move.l (sp)+,d1
#endif
4: clr.w d5 ; tst.l d0 ; bpl 5f
4: move.l #0,d5 ; tst.l d0 ; bpl 5f
neg.l d0 ; not.w d5
5: tst.l d1 ; bpl 6f
neg.l d1 ; not.w d5
@ -189,6 +189,7 @@ rmi_2W:
jmp (a4)
! 2byte division . In d1: quotient=low word ; remainder=high word
#ifndef lword
dvi2: move.l (sp)+,d2
move.w (sp)+,d0 !divisor
move.w (sp)+,d1 ; ext.l d1 !dividend
@ -203,6 +204,7 @@ dvi2: move.l (sp)+,d2
#endif
divs d0,d1
4: move.l d2,-(sp) ; rts
#endif
! long signed division . quotient in d1 , remainder in d3
dvi4: move.l (sp)+,d5
@ -214,7 +216,7 @@ dvi4: move.l (sp)+,d5
0: bsr e_iund
1:
#endif
clr.l d4 !sign in d4
move.l #0,d4 !sign in d4
tst.l d0 ; bpl 1f
neg.l d0 ; not.w d4
1: tst.l d1 ; bpl 2f
@ -238,7 +240,7 @@ dvu4:
bsr e_idivz
1:
#endif
clr.l d3 ; move.l #32,d2
move.l #0,d3 ; move.l #32,d2
3: lsl.l #1,d1 ; roxl.l #1,d3
cmp.l d0,d3 ; blt 4f
sub.l d0,d3 ; add.l #1,d1