montmulf.il (2226B)
1 ! 2 ! This Source Code Form is subject to the terms of the Mozilla Public 3 ! License, v. 2.0. If a copy of the MPL was not distributed with this 4 ! file, You can obtain one at http://mozilla.org/MPL/2.0/. 5 6 ! 7 ! double upper32(double /*frs1*/); 8 ! 9 .inline upper32,8 10 std %o0,[%sp+0x48] 11 ldd [%sp+0x48],%f10 12 13 fdtox %f10,%f10 14 fitod %f10,%f0 15 .end 16 17 ! 18 ! double lower32(double /*frs1*/, double /* Zero */); 19 ! 20 .inline lower32,8 21 std %o0,[%sp+0x48] 22 ldd [%sp+0x48],%f10 23 std %o2,[%sp+0x48] 24 ldd [%sp+0x48],%f12 25 26 fdtox %f10,%f10 27 fmovs %f12,%f10 28 fxtod %f10,%f0 29 .end 30 31 ! 32 ! double mod(double /*x*/, double /*1/m*/, double /*m*/); 33 ! 34 .inline mod,12 35 std %o0,[%sp+0x48] 36 ldd [%sp+0x48],%f2 37 std %o2,[%sp+0x48] 38 ldd [%sp+0x48],%f4 39 std %o4,[%sp+0x48] 40 ldd [%sp+0x48],%f6 41 42 fmuld %f2,%f4,%f4 43 fdtox %f4,%f4 44 fxtod %f4,%f4 45 fmuld %f4,%f6,%f4 46 fsubd %f2,%f4,%f0 47 .end 48 49 50 ! 51 ! void i16_to_d16_and_d32x4(double * /*1/(2^16)*/, double * /* 2^16*/, 52 ! double * /* 0 */, 53 ! double * /*result16*/, double * /* result32 */ 54 ! float * /*source - should be unsigned int* 55 ! converted to float* */); 56 ! 57 .inline i16_to_d16_and_d32x4,24 58 ldd [%o0],%f2 ! 1/(2^16) 59 ldd [%o1],%f4 ! 2^16 60 ldd [%o2],%f22 61 62 fmovd %f22,%f6 63 ld [%o5],%f7 64 fmovd %f22,%f10 65 ld [%o5+4],%f11 66 fmovd %f22,%f14 67 ld [%o5+8],%f15 68 fmovd %f22,%f18 69 ld [%o5+12],%f19 70 fxtod %f6,%f6 71 std %f6,[%o4] 72 fxtod %f10,%f10 73 std %f10,[%o4+8] 74 fxtod %f14,%f14 75 std %f14,[%o4+16] 76 fxtod %f18,%f18 77 std %f18,[%o4+24] 78 fmuld %f2,%f6,%f8 79 fmuld %f2,%f10,%f12 80 fmuld %f2,%f14,%f16 81 fmuld %f2,%f18,%f20 82 fdtox %f8,%f8 83 fdtox %f12,%f12 84 fdtox %f16,%f16 85 fdtox %f20,%f20 86 fxtod %f8,%f8 87 std %f8,[%o3+8] 88 fxtod %f12,%f12 89 std %f12,[%o3+24] 90 fxtod %f16,%f16 91 std %f16,[%o3+40] 92 fxtod %f20,%f20 93 std %f20,[%o3+56] 94 fmuld %f8,%f4,%f8 95 fmuld %f12,%f4,%f12 96 fmuld %f16,%f4,%f16 97 fmuld %f20,%f4,%f20 98 fsubd %f6,%f8,%f8 99 std %f8,[%o3] 100 fsubd %f10,%f12,%f12 101 std %f12,[%o3+16] 102 fsubd %f14,%f16,%f16 103 std %f16,[%o3+32] 104 fsubd %f18,%f20,%f20 105 std %f20,[%o3+48] 106 .end 107 108