blob: ee3135110363ae46c1ac41bff8046d8599369685 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
.title "H8/500 DIVIDE"
!! 2 byte integer Divide code for the H8/500
!!
!! Steve Chamberlain
!! sac@cygnus.com
!!
!!
!! args in r1 and r4, result in r0/r1
#if __CODE__==32
#define RET prts
#else
#define RET rts
#endif
.global __divmodhi4
__divmodhi4:
clr.w r0
tst.w r1 ! neg arg1
bpl PU
neg.w r1
NU: tst.w r4
bmi NN
NP: divxu.w r4,r0
neg.w r0
neg.w r1
RET
NN: neg.w r4
divxu.w r4,r0
neg.w r0 ! get rem sign right
RET
PU:
tst.w r4
bpl PP
PN: neg.w r4
divxu.w r4,r0
neg.w r1
RET
PP: divxu.w r4,r0 ! rem in r0, q in r1
RET
|
