Commit | Line | Data |
---|---|---|
4e754410 BJ |
1 | / |
2 | / INTEGER DIVISION | |
3 | / | |
4 | _DIV42: | |
5 | movif (sp)+,fr0 | |
6 | tst (sp) | |
7 | sxt -(sp) | |
8 | br 2f | |
9 | _DIV24: | |
10 | mov (sp)+,r2 | |
11 | mov (sp)+,r0 | |
12 | mov (sp)+,r1 | |
13 | div r2,r0 | |
14 | bvs 1f | |
15 | mov r0,-(sp) | |
16 | sxt -(sp) | |
17 | return | |
18 | 1: | |
19 | sub $6.,sp | |
20 | tst r2 | |
21 | sxt -(sp) | |
22 | _DIV4: | |
23 | movif (sp)+,fr0 | |
24 | 2: | |
25 | cfcc | |
26 | beq 9f | |
27 | movif (sp)+,fr1 | |
28 | divf fr0,fr1 | |
29 | movfi fr1,-(sp) | |
30 | return | |
31 | _DIV2: | |
32 | mov (sp)+,r2 | |
33 | beq 9f | |
34 | mov (sp)+,r1 | |
35 | sxt r0 | |
36 | div r2,r0 | |
37 | bvs 1f | |
38 | mov r0,-(sp) | |
39 | sxt -(sp) | |
40 | return | |
41 | 1: | |
42 | mov $100000,-(sp) | |
43 | sxt -(sp) | |
44 | return | |
45 | 9: | |
46 | mov $EDIVCHK,_perrno | |
47 | error EDIVCHK |