Commit | Line | Data |
---|---|---|
ed4c4f10 BJ |
1 | / |
2 | / MODULO | |
3 | / | |
4 | _MOD42: | |
5 | movif (sp)+,fr0 | |
6 | tst (sp) | |
7 | sxt -(sp) | |
8 | br 2f | |
9 | _MOD24: | |
10 | mov (sp)+,r2 | |
11 | mov (sp)+,r0 | |
12 | mov (sp)+,r1 | |
13 | div r2,r0 | |
14 | bvs 1f | |
15 | mov r1,-(sp) | |
16 | sxt -(sp) | |
17 | return | |
18 | 1: | |
19 | sub $6.,sp | |
20 | tst r2 | |
21 | sxt -(sp) | |
22 | _MOD4: | |
23 | movif (sp)+,fr0 | |
24 | 2: | |
25 | cfcc | |
26 | beq 9f | |
27 | movif (sp)+,fr1 | |
28 | divf fr0,fr1 | |
29 | modf $ONE,fr1 | |
30 | mulf fr0,fr1 | |
31 | cfcc | |
32 | bgt 1f | |
33 | subf $HALF,fr1 | |
34 | br 2f | |
35 | 1: | |
36 | addf $HALF,fr1 | |
37 | 2: | |
38 | movfi fr1,-(sp) | |
39 | return | |
40 | _MOD2: | |
41 | mov (sp)+,r2 | |
42 | beq 9f | |
43 | mov (sp)+,r1 | |
44 | sxt r0 | |
45 | div r2,r0 | |
46 | bvs 1f | |
47 | mov r1,-(sp) | |
48 | sxt -(sp) | |
49 | return | |
50 | 1: | |
51 | clr -(sp) | |
52 | sxt -(sp) | |
53 | return | |
54 | 9: | |
55 | mov $EMODCHK,_perrno | |
56 | error EMODCHK |