.include "macros.inc" .section .text, "ax" # 0x80006980 - 0x803E1E60 .global __ieee754_pow __ieee754_pow: /* 801D16F8 001CD358 94 21 FF 40 */ stwu r1, -0xc0(r1) /* 801D16FC 001CD35C 7C 08 02 A6 */ mflr r0 /* 801D1700 001CD360 90 01 00 C4 */ stw r0, 0xc4(r1) /* 801D1704 001CD364 DB E1 00 B0 */ stfd f31, 0xb0(r1) /* 801D1708 001CD368 F3 E1 00 B8 */ psq_st f31, 184(r1), 0, qr0 /* 801D170C 001CD36C DB C1 00 A0 */ stfd f30, 0xa0(r1) /* 801D1710 001CD370 F3 C1 00 A8 */ psq_st f30, 168(r1), 0, qr0 /* 801D1714 001CD374 DB A1 00 90 */ stfd f29, 0x90(r1) /* 801D1718 001CD378 F3 A1 00 98 */ psq_st f29, 152(r1), 0, qr0 /* 801D171C 001CD37C DB 81 00 80 */ stfd f28, 0x80(r1) /* 801D1720 001CD380 F3 81 00 88 */ psq_st f28, 136(r1), 0, qr0 /* 801D1724 001CD384 DB 61 00 70 */ stfd f27, 0x70(r1) /* 801D1728 001CD388 F3 61 00 78 */ psq_st f27, 120(r1), 0, qr0 /* 801D172C 001CD38C DB 41 00 60 */ stfd f26, 0x60(r1) /* 801D1730 001CD390 F3 41 00 68 */ psq_st f26, 104(r1), 0, qr0 /* 801D1734 001CD394 D8 41 00 10 */ stfd f2, 0x10(r1) /* 801D1738 001CD398 3C 60 80 40 */ lis r3, lbl_803FD338@ha /* 801D173C 001CD39C 38 63 D3 38 */ addi r3, r3, lbl_803FD338@l /* 801D1740 001CD3A0 80 A1 00 10 */ lwz r5, 0x10(r1) /* 801D1744 001CD3A4 D8 21 00 08 */ stfd f1, 8(r1) /* 801D1748 001CD3A8 81 61 00 14 */ lwz r11, 0x14(r1) /* 801D174C 001CD3AC 54 A7 00 7E */ clrlwi r7, r5, 1 /* 801D1750 001CD3B0 81 21 00 08 */ lwz r9, 8(r1) /* 801D1754 001CD3B4 7C E0 5B 79 */ or. r0, r7, r11 /* 801D1758 001CD3B8 81 41 00 0C */ lwz r10, 0xc(r1) /* 801D175C 001CD3BC 55 26 00 7E */ clrlwi r6, r9, 1 /* 801D1760 001CD3C0 40 82 00 0C */ bne lbl_801D176C /* 801D1764 001CD3C4 C8 22 92 F8 */ lfd f1, lbl_806418F8-_SDA2_BASE_(r2) /* 801D1768 001CD3C8 48 00 07 98 */ b lbl_801D1F00 lbl_801D176C: /* 801D176C 001CD3CC 3C 00 7F F0 */ lis r0, 0x7ff0 /* 801D1770 001CD3D0 7C 06 00 00 */ cmpw r6, r0 /* 801D1774 001CD3D4 41 81 00 38 */ bgt lbl_801D17AC /* 801D1778 001CD3D8 3C 06 80 10 */ addis r0, r6, 0x8010 /* 801D177C 001CD3DC 28 00 00 00 */ cmplwi r0, 0 /* 801D1780 001CD3E0 40 82 00 0C */ bne lbl_801D178C /* 801D1784 001CD3E4 2C 0A 00 00 */ cmpwi r10, 0 /* 801D1788 001CD3E8 40 82 00 24 */ bne lbl_801D17AC lbl_801D178C: /* 801D178C 001CD3EC 3C 00 7F F0 */ lis r0, 0x7ff0 /* 801D1790 001CD3F0 7C 07 00 00 */ cmpw r7, r0 /* 801D1794 001CD3F4 41 81 00 18 */ bgt lbl_801D17AC /* 801D1798 001CD3F8 3C 07 80 10 */ addis r0, r7, 0x8010 /* 801D179C 001CD3FC 28 00 00 00 */ cmplwi r0, 0 /* 801D17A0 001CD400 40 82 00 14 */ bne lbl_801D17B4 /* 801D17A4 001CD404 2C 0B 00 00 */ cmpwi r11, 0 /* 801D17A8 001CD408 41 82 00 0C */ beq lbl_801D17B4 lbl_801D17AC: /* 801D17AC 001CD40C FC 21 10 2A */ fadd f1, f1, f2 /* 801D17B0 001CD410 48 00 07 50 */ b lbl_801D1F00 lbl_801D17B4: /* 801D17B4 001CD414 2C 09 00 00 */ cmpwi r9, 0 /* 801D17B8 001CD418 38 80 00 00 */ li r4, 0 /* 801D17BC 001CD41C 40 80 00 78 */ bge lbl_801D1834 /* 801D17C0 001CD420 3C 00 43 40 */ lis r0, 0x4340 /* 801D17C4 001CD424 7C 07 00 00 */ cmpw r7, r0 /* 801D17C8 001CD428 41 80 00 0C */ blt lbl_801D17D4 /* 801D17CC 001CD42C 38 80 00 02 */ li r4, 2 /* 801D17D0 001CD430 48 00 00 64 */ b lbl_801D1834 lbl_801D17D4: /* 801D17D4 001CD434 3C 00 3F F0 */ lis r0, 0x3ff0 /* 801D17D8 001CD438 7C 07 00 00 */ cmpw r7, r0 /* 801D17DC 001CD43C 41 80 00 58 */ blt lbl_801D1834 /* 801D17E0 001CD440 7C E8 A6 70 */ srawi r8, r7, 0x14 /* 801D17E4 001CD444 38 08 FC 01 */ addi r0, r8, -1023 /* 801D17E8 001CD448 2C 00 00 14 */ cmpwi r0, 0x14 /* 801D17EC 001CD44C 40 81 00 24 */ ble lbl_801D1810 /* 801D17F0 001CD450 20 00 00 34 */ subfic r0, r0, 0x34 /* 801D17F4 001CD454 7D 68 04 30 */ srw r8, r11, r0 /* 801D17F8 001CD458 7D 00 00 30 */ slw r0, r8, r0 /* 801D17FC 001CD45C 7C 0B 00 40 */ cmplw r11, r0 /* 801D1800 001CD460 40 82 00 34 */ bne lbl_801D1834 /* 801D1804 001CD464 55 00 07 FE */ clrlwi r0, r8, 0x1f /* 801D1808 001CD468 20 80 00 02 */ subfic r4, r0, 2 /* 801D180C 001CD46C 48 00 00 28 */ b lbl_801D1834 lbl_801D1810: /* 801D1810 001CD470 2C 0B 00 00 */ cmpwi r11, 0 /* 801D1814 001CD474 40 82 00 20 */ bne lbl_801D1834 /* 801D1818 001CD478 20 00 00 14 */ subfic r0, r0, 0x14 /* 801D181C 001CD47C 7C E8 06 30 */ sraw r8, r7, r0 /* 801D1820 001CD480 7D 00 00 30 */ slw r0, r8, r0 /* 801D1824 001CD484 7C 07 00 00 */ cmpw r7, r0 /* 801D1828 001CD488 40 82 00 0C */ bne lbl_801D1834 /* 801D182C 001CD48C 55 00 07 FE */ clrlwi r0, r8, 0x1f /* 801D1830 001CD490 20 80 00 02 */ subfic r4, r0, 2 lbl_801D1834: /* 801D1834 001CD494 2C 0B 00 00 */ cmpwi r11, 0 /* 801D1838 001CD498 40 82 00 B0 */ bne lbl_801D18E8 /* 801D183C 001CD49C 3C 07 80 10 */ addis r0, r7, 0x8010 /* 801D1840 001CD4A0 28 00 00 00 */ cmplwi r0, 0 /* 801D1844 001CD4A4 40 82 00 54 */ bne lbl_801D1898 /* 801D1848 001CD4A8 3C 06 C0 10 */ addis r0, r6, 0xc010 /* 801D184C 001CD4AC 7C 00 53 79 */ or. r0, r0, r10 /* 801D1850 001CD4B0 40 82 00 0C */ bne lbl_801D185C /* 801D1854 001CD4B4 FC 22 10 28 */ fsub f1, f2, f2 /* 801D1858 001CD4B8 48 00 06 A8 */ b lbl_801D1F00 lbl_801D185C: /* 801D185C 001CD4BC 3C 00 3F F0 */ lis r0, 0x3ff0 /* 801D1860 001CD4C0 7C 06 00 00 */ cmpw r6, r0 /* 801D1864 001CD4C4 41 80 00 1C */ blt lbl_801D1880 /* 801D1868 001CD4C8 2C 05 00 00 */ cmpwi r5, 0 /* 801D186C 001CD4CC 41 80 00 0C */ blt lbl_801D1878 /* 801D1870 001CD4D0 FC 20 10 90 */ fmr f1, f2 /* 801D1874 001CD4D4 48 00 06 8C */ b lbl_801D1F00 lbl_801D1878: /* 801D1878 001CD4D8 C8 22 93 00 */ lfd f1, lbl_80641900-_SDA2_BASE_(r2) /* 801D187C 001CD4DC 48 00 06 84 */ b lbl_801D1F00 lbl_801D1880: /* 801D1880 001CD4E0 2C 05 00 00 */ cmpwi r5, 0 /* 801D1884 001CD4E4 40 80 00 0C */ bge lbl_801D1890 /* 801D1888 001CD4E8 FC 20 10 50 */ fneg f1, f2 /* 801D188C 001CD4EC 48 00 06 74 */ b lbl_801D1F00 lbl_801D1890: /* 801D1890 001CD4F0 C8 22 93 00 */ lfd f1, lbl_80641900-_SDA2_BASE_(r2) /* 801D1894 001CD4F4 48 00 06 6C */ b lbl_801D1F00 lbl_801D1898: /* 801D1898 001CD4F8 3C 07 C0 10 */ addis r0, r7, 0xc010 /* 801D189C 001CD4FC 28 00 00 00 */ cmplwi r0, 0 /* 801D18A0 001CD500 40 82 00 18 */ bne lbl_801D18B8 /* 801D18A4 001CD504 2C 05 00 00 */ cmpwi r5, 0 /* 801D18A8 001CD508 40 80 06 58 */ bge lbl_801D1F00 /* 801D18AC 001CD50C C8 02 92 F8 */ lfd f0, lbl_806418F8-_SDA2_BASE_(r2) /* 801D18B0 001CD510 FC 20 08 24 */ fdiv f1, f0, f1 /* 801D18B4 001CD514 48 00 06 4C */ b lbl_801D1F00 lbl_801D18B8: /* 801D18B8 001CD518 3C 05 C0 00 */ addis r0, r5, 0xc000 /* 801D18BC 001CD51C 28 00 00 00 */ cmplwi r0, 0 /* 801D18C0 001CD520 40 82 00 0C */ bne lbl_801D18CC /* 801D18C4 001CD524 FC 21 00 72 */ fmul f1, f1, f1 /* 801D18C8 001CD528 48 00 06 38 */ b lbl_801D1F00 lbl_801D18CC: /* 801D18CC 001CD52C 3C 05 C0 20 */ addis r0, r5, 0xc020 /* 801D18D0 001CD530 28 00 00 00 */ cmplwi r0, 0 /* 801D18D4 001CD534 40 82 00 14 */ bne lbl_801D18E8 /* 801D18D8 001CD538 2C 09 00 00 */ cmpwi r9, 0 /* 801D18DC 001CD53C 41 80 00 0C */ blt lbl_801D18E8 /* 801D18E0 001CD540 48 00 2F 55 */ bl sqrt /* 801D18E4 001CD544 48 00 06 1C */ b lbl_801D1F00 lbl_801D18E8: /* 801D18E8 001CD548 FC 00 0A 10 */ fabs f0, f1 /* 801D18EC 001CD54C 2C 0A 00 00 */ cmpwi r10, 0 /* 801D18F0 001CD550 D8 01 00 48 */ stfd f0, 0x48(r1) /* 801D18F4 001CD554 40 82 00 78 */ bne lbl_801D196C /* 801D18F8 001CD558 3C 06 80 10 */ addis r0, r6, 0x8010 /* 801D18FC 001CD55C 28 00 00 00 */ cmplwi r0, 0 /* 801D1900 001CD560 41 82 00 18 */ beq lbl_801D1918 /* 801D1904 001CD564 2C 06 00 00 */ cmpwi r6, 0 /* 801D1908 001CD568 41 82 00 10 */ beq lbl_801D1918 /* 801D190C 001CD56C 3C 06 C0 10 */ addis r0, r6, 0xc010 /* 801D1910 001CD570 28 00 00 00 */ cmplwi r0, 0 /* 801D1914 001CD574 40 82 00 58 */ bne lbl_801D196C lbl_801D1918: /* 801D1918 001CD578 2C 05 00 00 */ cmpwi r5, 0 /* 801D191C 001CD57C D8 01 00 50 */ stfd f0, 0x50(r1) /* 801D1920 001CD580 40 80 00 10 */ bge lbl_801D1930 /* 801D1924 001CD584 C8 22 92 F8 */ lfd f1, lbl_806418F8-_SDA2_BASE_(r2) /* 801D1928 001CD588 FC 01 00 24 */ fdiv f0, f1, f0 /* 801D192C 001CD58C D8 01 00 50 */ stfd f0, 0x50(r1) lbl_801D1930: /* 801D1930 001CD590 2C 09 00 00 */ cmpwi r9, 0 /* 801D1934 001CD594 40 80 00 30 */ bge lbl_801D1964 /* 801D1938 001CD598 3C 06 C0 10 */ addis r0, r6, 0xc010 /* 801D193C 001CD59C 7C 00 23 79 */ or. r0, r0, r4 /* 801D1940 001CD5A0 40 82 00 14 */ bne lbl_801D1954 /* 801D1944 001CD5A4 FC 00 00 28 */ fsub f0, f0, f0 /* 801D1948 001CD5A8 FC 00 00 24 */ fdiv f0, f0, f0 /* 801D194C 001CD5AC D8 01 00 50 */ stfd f0, 0x50(r1) /* 801D1950 001CD5B0 48 00 00 14 */ b lbl_801D1964 lbl_801D1954: /* 801D1954 001CD5B4 2C 04 00 01 */ cmpwi r4, 1 /* 801D1958 001CD5B8 40 82 00 0C */ bne lbl_801D1964 /* 801D195C 001CD5BC FC 00 00 50 */ fneg f0, f0 /* 801D1960 001CD5C0 D8 01 00 50 */ stfd f0, 0x50(r1) lbl_801D1964: /* 801D1964 001CD5C4 FC 20 00 90 */ fmr f1, f0 /* 801D1968 001CD5C8 48 00 05 98 */ b lbl_801D1F00 lbl_801D196C: /* 801D196C 001CD5CC 7D 28 FE 70 */ srawi r8, r9, 0x1f /* 801D1970 001CD5D0 38 08 00 01 */ addi r0, r8, 1 /* 801D1974 001CD5D4 7C 08 23 79 */ or. r8, r0, r4 /* 801D1978 001CD5D8 40 82 00 18 */ bne lbl_801D1990 /* 801D197C 001CD5DC 38 00 00 21 */ li r0, 0x21 /* 801D1980 001CD5E0 3C 60 80 64 */ lis r3, lbl_8063D6B8@ha /* 801D1984 001CD5E4 90 0D 9F C8 */ stw r0, lbl_8063F288-_SDA_BASE_(r13) /* 801D1988 001CD5E8 C0 23 D6 B8 */ lfs f1, lbl_8063D6B8@l(r3) /* 801D198C 001CD5EC 48 00 05 74 */ b lbl_801D1F00 lbl_801D1990: /* 801D1990 001CD5F0 3D 00 41 E0 */ lis r8, 0x41e0 /* 801D1994 001CD5F4 7C 07 40 00 */ cmpw r7, r8 /* 801D1998 001CD5F8 40 81 01 0C */ ble lbl_801D1AA4 /* 801D199C 001CD5FC 3C 60 43 F0 */ lis r3, 0x43f0 /* 801D19A0 001CD600 7C 07 18 00 */ cmpw r7, r3 /* 801D19A4 001CD604 40 81 00 4C */ ble lbl_801D19F0 /* 801D19A8 001CD608 3C 60 3F F0 */ lis r3, 0x3FEFFFFF@ha /* 801D19AC 001CD60C 38 E3 FF FF */ addi r7, r3, 0x3FEFFFFF@l /* 801D19B0 001CD610 7C 06 38 00 */ cmpw r6, r7 /* 801D19B4 001CD614 41 81 00 1C */ bgt lbl_801D19D0 /* 801D19B8 001CD618 2C 05 00 00 */ cmpwi r5, 0 /* 801D19BC 001CD61C 40 80 00 0C */ bge lbl_801D19C8 /* 801D19C0 001CD620 C8 22 93 08 */ lfd f1, lbl_80641908-_SDA2_BASE_(r2) /* 801D19C4 001CD624 48 00 05 3C */ b lbl_801D1F00 lbl_801D19C8: /* 801D19C8 001CD628 C8 22 93 00 */ lfd f1, lbl_80641900-_SDA2_BASE_(r2) /* 801D19CC 001CD62C 48 00 05 34 */ b lbl_801D1F00 lbl_801D19D0: /* 801D19D0 001CD630 7C 06 18 00 */ cmpw r6, r3 /* 801D19D4 001CD634 41 80 00 1C */ blt lbl_801D19F0 /* 801D19D8 001CD638 2C 05 00 00 */ cmpwi r5, 0 /* 801D19DC 001CD63C 40 81 00 0C */ ble lbl_801D19E8 /* 801D19E0 001CD640 C8 22 93 08 */ lfd f1, lbl_80641908-_SDA2_BASE_(r2) /* 801D19E4 001CD644 48 00 05 1C */ b lbl_801D1F00 lbl_801D19E8: /* 801D19E8 001CD648 C8 22 93 00 */ lfd f1, lbl_80641900-_SDA2_BASE_(r2) /* 801D19EC 001CD64C 48 00 05 14 */ b lbl_801D1F00 lbl_801D19F0: /* 801D19F0 001CD650 3C 60 3F F0 */ lis r3, 0x3FEFFFFF@ha /* 801D19F4 001CD654 38 E3 FF FF */ addi r7, r3, 0x3FEFFFFF@l /* 801D19F8 001CD658 7C 06 38 00 */ cmpw r6, r7 /* 801D19FC 001CD65C 40 80 00 1C */ bge lbl_801D1A18 /* 801D1A00 001CD660 2C 05 00 00 */ cmpwi r5, 0 /* 801D1A04 001CD664 40 80 00 0C */ bge lbl_801D1A10 /* 801D1A08 001CD668 C8 22 93 08 */ lfd f1, lbl_80641908-_SDA2_BASE_(r2) /* 801D1A0C 001CD66C 48 00 04 F4 */ b lbl_801D1F00 lbl_801D1A10: /* 801D1A10 001CD670 C8 22 93 00 */ lfd f1, lbl_80641900-_SDA2_BASE_(r2) /* 801D1A14 001CD674 48 00 04 EC */ b lbl_801D1F00 lbl_801D1A18: /* 801D1A18 001CD678 7C 06 18 00 */ cmpw r6, r3 /* 801D1A1C 001CD67C 40 81 00 1C */ ble lbl_801D1A38 /* 801D1A20 001CD680 2C 05 00 00 */ cmpwi r5, 0 /* 801D1A24 001CD684 40 81 00 0C */ ble lbl_801D1A30 /* 801D1A28 001CD688 C8 22 93 08 */ lfd f1, lbl_80641908-_SDA2_BASE_(r2) /* 801D1A2C 001CD68C 48 00 04 D4 */ b lbl_801D1F00 lbl_801D1A30: /* 801D1A30 001CD690 C8 22 93 00 */ lfd f1, lbl_80641900-_SDA2_BASE_(r2) /* 801D1A34 001CD694 48 00 04 CC */ b lbl_801D1F00 lbl_801D1A38: /* 801D1A38 001CD698 C8 62 92 F8 */ lfd f3, lbl_806418F8-_SDA2_BASE_(r2) /* 801D1A3C 001CD69C 38 60 00 00 */ li r3, 0 /* 801D1A40 001CD6A0 C8 02 93 20 */ lfd f0, lbl_80641920-_SDA2_BASE_(r2) /* 801D1A44 001CD6A4 FD 01 18 28 */ fsub f8, f1, f3 /* 801D1A48 001CD6A8 C8 22 93 30 */ lfd f1, lbl_80641930-_SDA2_BASE_(r2) /* 801D1A4C 001CD6AC C8 A2 93 18 */ lfd f5, lbl_80641918-_SDA2_BASE_(r2) /* 801D1A50 001CD6B0 C8 62 93 28 */ lfd f3, lbl_80641928-_SDA2_BASE_(r2) /* 801D1A54 001CD6B4 FC C0 02 32 */ fmul f6, f0, f8 /* 801D1A58 001CD6B8 C8 82 93 10 */ lfd f4, lbl_80641910-_SDA2_BASE_(r2) /* 801D1A5C 001CD6BC C8 02 93 38 */ lfd f0, lbl_80641938-_SDA2_BASE_(r2) /* 801D1A60 001CD6C0 FC E8 02 32 */ fmul f7, f8, f8 /* 801D1A64 001CD6C4 D9 01 00 28 */ stfd f8, 0x28(r1) /* 801D1A68 001CD6C8 FC A5 30 28 */ fsub f5, f5, f6 /* 801D1A6C 001CD6CC FC C3 02 32 */ fmul f6, f3, f8 /* 801D1A70 001CD6D0 FC A8 01 72 */ fmul f5, f8, f5 /* 801D1A74 001CD6D4 FC 21 02 32 */ fmul f1, f1, f8 /* 801D1A78 001CD6D8 FC 64 28 28 */ fsub f3, f4, f5 /* 801D1A7C 001CD6DC FC 67 00 F2 */ fmul f3, f7, f3 /* 801D1A80 001CD6E0 FC 00 00 F2 */ fmul f0, f0, f3 /* 801D1A84 001CD6E4 FC 21 00 28 */ fsub f1, f1, f0 /* 801D1A88 001CD6E8 FC 06 08 2A */ fadd f0, f6, f1 /* 801D1A8C 001CD6EC D8 01 00 30 */ stfd f0, 0x30(r1) /* 801D1A90 001CD6F0 90 61 00 34 */ stw r3, 0x34(r1) /* 801D1A94 001CD6F4 C8 01 00 30 */ lfd f0, 0x30(r1) /* 801D1A98 001CD6F8 FC 00 30 28 */ fsub f0, f0, f6 /* 801D1A9C 001CD6FC FC 01 00 28 */ fsub f0, f1, f0 /* 801D1AA0 001CD700 48 00 02 10 */ b lbl_801D1CB0 lbl_801D1AA4: /* 801D1AA4 001CD704 3C A0 00 10 */ lis r5, 0x10 /* 801D1AA8 001CD708 39 60 00 00 */ li r11, 0 /* 801D1AAC 001CD70C 7C 06 28 00 */ cmpw r6, r5 /* 801D1AB0 001CD710 40 80 00 18 */ bge lbl_801D1AC8 /* 801D1AB4 001CD714 C8 22 93 40 */ lfd f1, lbl_80641940-_SDA2_BASE_(r2) /* 801D1AB8 001CD718 39 60 FF CB */ li r11, -53 /* 801D1ABC 001CD71C FC 00 00 72 */ fmul f0, f0, f1 /* 801D1AC0 001CD720 D8 01 00 48 */ stfd f0, 0x48(r1) /* 801D1AC4 001CD724 80 C1 00 48 */ lwz r6, 0x48(r1) lbl_801D1AC8: /* 801D1AC8 001CD728 3C A0 00 04 */ lis r5, 0x0003988E@ha /* 801D1ACC 001CD72C 54 C8 03 3E */ clrlwi r8, r6, 0xc /* 801D1AD0 001CD730 38 A5 98 8E */ addi r5, r5, 0x0003988E@l /* 801D1AD4 001CD734 7C C6 A6 70 */ srawi r6, r6, 0x14 /* 801D1AD8 001CD738 7C 08 28 00 */ cmpw r8, r5 /* 801D1ADC 001CD73C 65 07 3F F0 */ oris r7, r8, 0x3ff0 /* 801D1AE0 001CD740 7C AB 32 14 */ add r5, r11, r6 /* 801D1AE4 001CD744 39 65 FC 01 */ addi r11, r5, -1023 /* 801D1AE8 001CD748 41 81 00 0C */ bgt lbl_801D1AF4 /* 801D1AEC 001CD74C 38 C0 00 00 */ li r6, 0 /* 801D1AF0 001CD750 48 00 00 28 */ b lbl_801D1B18 lbl_801D1AF4: /* 801D1AF4 001CD754 3C A0 00 0C */ lis r5, 0x000BB67A@ha /* 801D1AF8 001CD758 38 A5 B6 7A */ addi r5, r5, 0x000BB67A@l /* 801D1AFC 001CD75C 7C 08 28 00 */ cmpw r8, r5 /* 801D1B00 001CD760 40 80 00 0C */ bge lbl_801D1B0C /* 801D1B04 001CD764 38 C0 00 01 */ li r6, 1 /* 801D1B08 001CD768 48 00 00 10 */ b lbl_801D1B18 lbl_801D1B0C: /* 801D1B0C 001CD76C 3C E7 FF F0 */ addis r7, r7, 0xfff0 /* 801D1B10 001CD770 38 C0 00 00 */ li r6, 0 /* 801D1B14 001CD774 39 6B 00 01 */ addi r11, r11, 1 lbl_801D1B18: /* 801D1B18 001CD778 90 E1 00 48 */ stw r7, 0x48(r1) /* 801D1B1C 001CD77C 7C E9 0E 70 */ srawi r9, r7, 1 /* 801D1B20 001CD780 54 CA 18 38 */ slwi r10, r6, 3 /* 801D1B24 001CD784 38 A3 00 00 */ addi r5, r3, 0 /* 801D1B28 001CD788 7C E5 54 AE */ lfdx f7, r5, r10 /* 801D1B2C 001CD78C 54 C8 90 1A */ slwi r8, r6, 0x12 /* 801D1B30 001CD790 C9 41 00 48 */ lfd f10, 0x48(r1) /* 801D1B34 001CD794 6D 66 80 00 */ xoris r6, r11, 0x8000 /* 801D1B38 001CD798 C8 82 93 00 */ lfd f4, lbl_80641900-_SDA2_BASE_(r2) /* 801D1B3C 001CD79C 3C A0 43 30 */ lis r5, 0x4330 /* 801D1B40 001CD7A0 FC 6A 38 2A */ fadd f3, f10, f7 /* 801D1B44 001CD7A4 C8 22 92 F8 */ lfd f1, lbl_806418F8-_SDA2_BASE_(r2) /* 801D1B48 001CD7A8 FF 4A 38 28 */ fsub f26, f10, f7 /* 801D1B4C 001CD7AC D8 81 00 18 */ stfd f4, 0x18(r1) /* 801D1B50 001CD7B0 65 29 20 00 */ oris r9, r9, 0x2000 /* 801D1B54 001CD7B4 3D 08 00 08 */ addis r8, r8, 8 /* 801D1B58 001CD7B8 FC 21 18 24 */ fdiv f1, f1, f3 /* 801D1B5C 001CD7BC 7D 09 42 14 */ add r8, r9, r8 /* 801D1B60 001CD7C0 91 01 00 18 */ stw r8, 0x18(r1) /* 801D1B64 001CD7C4 39 20 00 00 */ li r9, 0 /* 801D1B68 001CD7C8 C8 02 93 70 */ lfd f0, lbl_80641970-_SDA2_BASE_(r2) /* 801D1B6C 001CD7CC 38 E3 00 20 */ addi r7, r3, 0x20 /* 801D1B70 001CD7D0 FC 9A 00 72 */ fmul f4, f26, f1 /* 801D1B74 001CD7D4 C9 21 00 18 */ lfd f9, 0x18(r1) /* 801D1B78 001CD7D8 C8 62 93 68 */ lfd f3, lbl_80641968-_SDA2_BASE_(r2) /* 801D1B7C 001CD7DC FD 09 38 28 */ fsub f8, f9, f7 /* 801D1B80 001CD7E0 C8 C2 93 60 */ lfd f6, lbl_80641960-_SDA2_BASE_(r2) /* 801D1B84 001CD7E4 90 C1 00 5C */ stw r6, 0x5c(r1) /* 801D1B88 001CD7E8 FC A4 01 32 */ fmul f5, f4, f4 /* 801D1B8C 001CD7EC D8 81 00 20 */ stfd f4, 0x20(r1) /* 801D1B90 001CD7F0 CB C2 93 58 */ lfd f30, lbl_80641958-_SDA2_BASE_(r2) /* 801D1B94 001CD7F4 FD 6A 40 28 */ fsub f11, f10, f8 /* 801D1B98 001CD7F8 90 A1 00 58 */ stw r5, 0x58(r1) /* 801D1B9C 001CD7FC CB E2 93 50 */ lfd f31, lbl_80641950-_SDA2_BASE_(r2) /* 801D1BA0 001CD800 FC E0 01 72 */ fmul f7, f0, f5 /* 801D1BA4 001CD804 91 21 00 24 */ stw r9, 0x24(r1) /* 801D1BA8 001CD808 C9 A2 93 48 */ lfd f13, lbl_80641948-_SDA2_BASE_(r2) /* 801D1BAC 001CD80C C8 01 00 20 */ lfd f0, 0x20(r1) /* 801D1BB0 001CD810 C9 82 93 78 */ lfd f12, lbl_80641978-_SDA2_BASE_(r2) /* 801D1BB4 001CD814 FC E3 38 2A */ fadd f7, f3, f7 /* 801D1BB8 001CD818 FF 60 02 72 */ fmul f27, f0, f9 /* 801D1BBC 001CD81C C9 42 93 88 */ lfd f10, lbl_80641988-_SDA2_BASE_(r2) /* 801D1BC0 001CD820 C9 22 93 90 */ lfd f9, lbl_80641990-_SDA2_BASE_(r2) /* 801D1BC4 001CD824 FD 05 01 F2 */ fmul f8, f5, f7 /* 801D1BC8 001CD828 C8 E2 94 00 */ lfd f7, lbl_80641A00-_SDA2_BASE_(r2) /* 801D1BCC 001CD82C FF 80 02 F2 */ fmul f28, f0, f11 /* 801D1BD0 001CD830 C9 62 93 80 */ lfd f11, lbl_80641980-_SDA2_BASE_(r2) /* 801D1BD4 001CD834 FF A6 40 2A */ fadd f29, f6, f8 /* 801D1BD8 001CD838 C8 C1 00 58 */ lfd f6, 0x58(r1) /* 801D1BDC 001CD83C FF 7A D8 28 */ fsub f27, f26, f27 /* 801D1BE0 001CD840 7D 07 54 AE */ lfdx f8, r7, r10 /* 801D1BE4 001CD844 FC C6 38 28 */ fsub f6, f6, f7 /* 801D1BE8 001CD848 FF A5 07 72 */ fmul f29, f5, f29 /* 801D1BEC 001CD84C FF 9B E0 28 */ fsub f28, f27, f28 /* 801D1BF0 001CD850 D8 C1 00 28 */ stfd f6, 0x28(r1) /* 801D1BF4 001CD854 FC 60 00 32 */ fmul f3, f0, f0 /* 801D1BF8 001CD858 FC FE E8 2A */ fadd f7, f30, f29 /* 801D1BFC 001CD85C FF 41 07 32 */ fmul f26, f1, f28 /* 801D1C00 001CD860 FC E5 01 F2 */ fmul f7, f5, f7 /* 801D1C04 001CD864 FF A5 01 72 */ fmul f29, f5, f5 /* 801D1C08 001CD868 FF FF 38 2A */ fadd f31, f31, f7 /* 801D1C0C 001CD86C FC 20 20 2A */ fadd f1, f0, f4 /* 801D1C10 001CD870 FC A5 07 F2 */ fmul f5, f5, f31 /* 801D1C14 001CD874 FC FA 00 72 */ fmul f7, f26, f1 /* 801D1C18 001CD878 FC AD 28 2A */ fadd f5, f13, f5 /* 801D1C1C 001CD87C FC 2C 18 2A */ fadd f1, f12, f3 /* 801D1C20 001CD880 FD BD 01 72 */ fmul f13, f29, f5 /* 801D1C24 001CD884 FD AD 38 2A */ fadd f13, f13, f7 /* 801D1C28 001CD888 FC 21 68 2A */ fadd f1, f1, f13 /* 801D1C2C 001CD88C D8 21 00 18 */ stfd f1, 0x18(r1) /* 801D1C30 001CD890 91 21 00 1C */ stw r9, 0x1c(r1) /* 801D1C34 001CD894 C8 E1 00 18 */ lfd f7, 0x18(r1) /* 801D1C38 001CD898 FC A7 60 28 */ fsub f5, f7, f12 /* 801D1C3C 001CD89C FC 3A 01 F2 */ fmul f1, f26, f7 /* 801D1C40 001CD8A0 FC 65 18 28 */ fsub f3, f5, f3 /* 801D1C44 001CD8A4 FC A0 01 F2 */ fmul f5, f0, f7 /* 801D1C48 001CD8A8 FC 0D 18 28 */ fsub f0, f13, f3 /* 801D1C4C 001CD8AC FC 00 01 32 */ fmul f0, f0, f4 /* 801D1C50 001CD8B0 FC 81 00 2A */ fadd f4, f1, f0 /* 801D1C54 001CD8B4 FC 65 20 2A */ fadd f3, f5, f4 /* 801D1C58 001CD8B8 D8 61 00 40 */ stfd f3, 0x40(r1) /* 801D1C5C 001CD8BC 91 21 00 44 */ stw r9, 0x44(r1) /* 801D1C60 001CD8C0 C8 61 00 40 */ lfd f3, 0x40(r1) /* 801D1C64 001CD8C4 FC 03 28 28 */ fsub f0, f3, f5 /* 801D1C68 001CD8C8 FC 2A 00 F2 */ fmul f1, f10, f3 /* 801D1C6C 001CD8CC FC 04 00 28 */ fsub f0, f4, f0 /* 801D1C70 001CD8D0 FC 6B 00 F2 */ fmul f3, f11, f3 /* 801D1C74 001CD8D4 FC 09 00 32 */ fmul f0, f9, f0 /* 801D1C78 001CD8D8 FC 01 00 2A */ fadd f0, f1, f0 /* 801D1C7C 001CD8DC FC 88 00 2A */ fadd f4, f8, f0 /* 801D1C80 001CD8E0 38 63 00 10 */ addi r3, r3, 0x10 /* 801D1C84 001CD8E4 FC 03 20 2A */ fadd f0, f3, f4 /* 801D1C88 001CD8E8 7C 23 54 AE */ lfdx f1, r3, r10 /* 801D1C8C 001CD8EC FC 00 08 2A */ fadd f0, f0, f1 /* 801D1C90 001CD8F0 FC 06 00 2A */ fadd f0, f6, f0 /* 801D1C94 001CD8F4 D8 01 00 30 */ stfd f0, 0x30(r1) /* 801D1C98 001CD8F8 91 21 00 34 */ stw r9, 0x34(r1) /* 801D1C9C 001CD8FC C8 01 00 30 */ lfd f0, 0x30(r1) /* 801D1CA0 001CD900 FC 00 30 28 */ fsub f0, f0, f6 /* 801D1CA4 001CD904 FC 00 08 28 */ fsub f0, f0, f1 /* 801D1CA8 001CD908 FC 00 18 28 */ fsub f0, f0, f3 /* 801D1CAC 001CD90C FC 04 00 28 */ fsub f0, f4, f0 lbl_801D1CB0: /* 801D1CB0 001CD910 38 64 FF FF */ addi r3, r4, -1 /* 801D1CB4 001CD914 CB E2 92 F8 */ lfd f31, lbl_806418F8-_SDA2_BASE_(r2) /* 801D1CB8 001CD918 7C 00 1B 79 */ or. r0, r0, r3 /* 801D1CBC 001CD91C 40 82 00 08 */ bne lbl_801D1CC4 /* 801D1CC0 001CD920 CB E2 93 98 */ lfd f31, lbl_80641998-_SDA2_BASE_(r2) lbl_801D1CC4: /* 801D1CC4 001CD924 D8 41 00 38 */ stfd f2, 0x38(r1) /* 801D1CC8 001CD928 38 00 00 00 */ li r0, 0 /* 801D1CCC 001CD92C FC 02 00 32 */ fmul f0, f2, f0 /* 801D1CD0 001CD930 C8 21 00 30 */ lfd f1, 0x30(r1) /* 801D1CD4 001CD934 90 01 00 3C */ stw r0, 0x3c(r1) /* 801D1CD8 001CD938 3C 00 40 90 */ lis r0, 0x4090 /* 801D1CDC 001CD93C C8 61 00 38 */ lfd f3, 0x38(r1) /* 801D1CE0 001CD940 FC 42 18 28 */ fsub f2, f2, f3 /* 801D1CE4 001CD944 FC 63 00 72 */ fmul f3, f3, f1 /* 801D1CE8 001CD948 FC 21 00 B2 */ fmul f1, f1, f2 /* 801D1CEC 001CD94C D8 61 00 40 */ stfd f3, 0x40(r1) /* 801D1CF0 001CD950 FD 61 00 2A */ fadd f11, f1, f0 /* 801D1CF4 001CD954 FC 0B 18 2A */ fadd f0, f11, f3 /* 801D1CF8 001CD958 D8 01 00 50 */ stfd f0, 0x50(r1) /* 801D1CFC 001CD95C 80 C1 00 50 */ lwz r6, 0x50(r1) /* 801D1D00 001CD960 80 A1 00 54 */ lwz r5, 0x54(r1) /* 801D1D04 001CD964 7C 06 00 00 */ cmpw r6, r0 /* 801D1D08 001CD968 41 80 00 44 */ blt lbl_801D1D4C /* 801D1D0C 001CD96C 3C 06 BF 70 */ addis r0, r6, 0xbf70 /* 801D1D10 001CD970 7C 00 2B 79 */ or. r0, r0, r5 /* 801D1D14 001CD974 41 82 00 14 */ beq lbl_801D1D28 /* 801D1D18 001CD978 C8 22 93 A0 */ lfd f1, lbl_806419A0-_SDA2_BASE_(r2) /* 801D1D1C 001CD97C FC 01 07 F2 */ fmul f0, f1, f31 /* 801D1D20 001CD980 FC 21 00 32 */ fmul f1, f1, f0 /* 801D1D24 001CD984 48 00 01 DC */ b lbl_801D1F00 lbl_801D1D28: /* 801D1D28 001CD988 C8 22 93 A8 */ lfd f1, lbl_806419A8-_SDA2_BASE_(r2) /* 801D1D2C 001CD98C FC 00 18 28 */ fsub f0, f0, f3 /* 801D1D30 001CD990 FC 21 58 2A */ fadd f1, f1, f11 /* 801D1D34 001CD994 FC 01 00 40 */ fcmpo cr0, f1, f0 /* 801D1D38 001CD998 40 81 00 68 */ ble lbl_801D1DA0 /* 801D1D3C 001CD99C C8 22 93 A0 */ lfd f1, lbl_806419A0-_SDA2_BASE_(r2) /* 801D1D40 001CD9A0 FC 01 07 F2 */ fmul f0, f1, f31 /* 801D1D44 001CD9A4 FC 21 00 32 */ fmul f1, f1, f0 /* 801D1D48 001CD9A8 48 00 01 B8 */ b lbl_801D1F00 lbl_801D1D4C: /* 801D1D4C 001CD9AC 3C 60 40 91 */ lis r3, 0x4090CC00@ha /* 801D1D50 001CD9B0 54 C4 00 7E */ clrlwi r4, r6, 1 /* 801D1D54 001CD9B4 38 03 CC 00 */ addi r0, r3, 0x4090CC00@l /* 801D1D58 001CD9B8 7C 04 00 00 */ cmpw r4, r0 /* 801D1D5C 001CD9BC 41 80 00 44 */ blt lbl_801D1DA0 /* 801D1D60 001CD9C0 3C 66 3F 6F */ addis r3, r6, 0x3f6f /* 801D1D64 001CD9C4 38 03 34 00 */ addi r0, r3, 0x3400 /* 801D1D68 001CD9C8 7C 00 2B 79 */ or. r0, r0, r5 /* 801D1D6C 001CD9CC 41 82 00 14 */ beq lbl_801D1D80 /* 801D1D70 001CD9D0 C8 22 93 B0 */ lfd f1, lbl_806419B0-_SDA2_BASE_(r2) /* 801D1D74 001CD9D4 FC 01 07 F2 */ fmul f0, f1, f31 /* 801D1D78 001CD9D8 FC 21 00 32 */ fmul f1, f1, f0 /* 801D1D7C 001CD9DC 48 00 01 84 */ b lbl_801D1F00 lbl_801D1D80: /* 801D1D80 001CD9E0 FC 00 18 28 */ fsub f0, f0, f3 /* 801D1D84 001CD9E4 FC 0B 00 40 */ fcmpo cr0, f11, f0 /* 801D1D88 001CD9E8 4C 40 13 82 */ cror 2, 0, 2 /* 801D1D8C 001CD9EC 40 82 00 14 */ bne lbl_801D1DA0 /* 801D1D90 001CD9F0 C8 22 93 B0 */ lfd f1, lbl_806419B0-_SDA2_BASE_(r2) /* 801D1D94 001CD9F4 FC 01 07 F2 */ fmul f0, f1, f31 /* 801D1D98 001CD9F8 FC 21 00 32 */ fmul f1, f1, f0 /* 801D1D9C 001CD9FC 48 00 01 64 */ b lbl_801D1F00 lbl_801D1DA0: /* 801D1DA0 001CDA00 54 C3 00 7E */ clrlwi r3, r6, 1 /* 801D1DA4 001CDA04 3C 00 3F E0 */ lis r0, 0x3fe0 /* 801D1DA8 001CDA08 7C 03 00 00 */ cmpw r3, r0 /* 801D1DAC 001CDA0C 54 C4 65 7E */ rlwinm r4, r6, 0xc, 0x15, 0x1f /* 801D1DB0 001CDA10 38 60 00 00 */ li r3, 0 /* 801D1DB4 001CDA14 40 81 00 60 */ ble lbl_801D1E14 /* 801D1DB8 001CDA18 3C 60 00 10 */ lis r3, 0x000FFFFF@ha /* 801D1DBC 001CDA1C 38 04 FC 02 */ addi r0, r4, -1022 /* 801D1DC0 001CDA20 7C 60 06 30 */ sraw r0, r3, r0 /* 801D1DC4 001CDA24 C8 02 93 00 */ lfd f0, lbl_80641900-_SDA2_BASE_(r2) /* 801D1DC8 001CDA28 7C E6 02 14 */ add r7, r6, r0 /* 801D1DCC 001CDA2C 38 63 FF FF */ addi r3, r3, 0x000FFFFF@l /* 801D1DD0 001CDA30 54 E0 00 7E */ clrlwi r0, r7, 1 /* 801D1DD4 001CDA34 D8 01 00 28 */ stfd f0, 0x28(r1) /* 801D1DD8 001CDA38 7C 04 A6 70 */ srawi r4, r0, 0x14 /* 801D1DDC 001CDA3C 2C 06 00 00 */ cmpwi r6, 0 /* 801D1DE0 001CDA40 38 A4 FC 01 */ addi r5, r4, -1023 /* 801D1DE4 001CDA44 54 E0 03 3E */ clrlwi r0, r7, 0xc /* 801D1DE8 001CDA48 7C 64 2E 30 */ sraw r4, r3, r5 /* 801D1DEC 001CDA4C 7C E4 20 78 */ andc r4, r7, r4 /* 801D1DF0 001CDA50 64 03 00 10 */ oris r3, r0, 0x10 /* 801D1DF4 001CDA54 20 05 00 14 */ subfic r0, r5, 0x14 /* 801D1DF8 001CDA58 90 81 00 28 */ stw r4, 0x28(r1) /* 801D1DFC 001CDA5C 7C 63 06 30 */ sraw r3, r3, r0 /* 801D1E00 001CDA60 40 80 00 08 */ bge lbl_801D1E08 /* 801D1E04 001CDA64 7C 63 00 D0 */ neg r3, r3 lbl_801D1E08: /* 801D1E08 001CDA68 C8 01 00 28 */ lfd f0, 0x28(r1) /* 801D1E0C 001CDA6C FC 63 00 28 */ fsub f3, f3, f0 /* 801D1E10 001CDA70 D8 61 00 40 */ stfd f3, 0x40(r1) lbl_801D1E14: /* 801D1E14 001CDA74 FC 2B 18 2A */ fadd f1, f11, f3 /* 801D1E18 001CDA78 38 00 00 00 */ li r0, 0 /* 801D1E1C 001CDA7C C8 02 93 C8 */ lfd f0, lbl_806419C8-_SDA2_BASE_(r2) /* 801D1E20 001CDA80 54 64 A0 16 */ slwi r4, r3, 0x14 /* 801D1E24 001CDA84 C9 02 93 C0 */ lfd f8, lbl_806419C0-_SDA2_BASE_(r2) /* 801D1E28 001CDA88 D8 21 00 28 */ stfd f1, 0x28(r1) /* 801D1E2C 001CDA8C C9 42 93 B8 */ lfd f10, lbl_806419B8-_SDA2_BASE_(r2) /* 801D1E30 001CDA90 90 01 00 2C */ stw r0, 0x2c(r1) /* 801D1E34 001CDA94 C8 C2 93 F0 */ lfd f6, lbl_806419F0-_SDA2_BASE_(r2) /* 801D1E38 001CDA98 C9 21 00 28 */ lfd f9, 0x28(r1) /* 801D1E3C 001CDA9C C8 22 93 E8 */ lfd f1, lbl_806419E8-_SDA2_BASE_(r2) /* 801D1E40 001CDAA0 FC 49 18 28 */ fsub f2, f9, f3 /* 801D1E44 001CDAA4 C8 A2 93 E0 */ lfd f5, lbl_806419E0-_SDA2_BASE_(r2) /* 801D1E48 001CDAA8 FC E0 02 72 */ fmul f7, f0, f9 /* 801D1E4C 001CDAAC C8 82 93 D8 */ lfd f4, lbl_806419D8-_SDA2_BASE_(r2) /* 801D1E50 001CDAB0 C8 62 93 D0 */ lfd f3, lbl_806419D0-_SDA2_BASE_(r2) /* 801D1E54 001CDAB4 FC 0B 10 28 */ fsub f0, f11, f2 /* 801D1E58 001CDAB8 FD 4A 02 72 */ fmul f10, f10, f9 /* 801D1E5C 001CDABC C8 42 93 F8 */ lfd f2, lbl_806419F8-_SDA2_BASE_(r2) /* 801D1E60 001CDAC0 FD 08 00 32 */ fmul f8, f8, f0 /* 801D1E64 001CDAC4 C8 02 92 F8 */ lfd f0, lbl_806418F8-_SDA2_BASE_(r2) /* 801D1E68 001CDAC8 FD 68 38 2A */ fadd f11, f8, f7 /* 801D1E6C 001CDACC FD 2A 58 2A */ fadd f9, f10, f11 /* 801D1E70 001CDAD0 FC E9 02 72 */ fmul f7, f9, f9 /* 801D1E74 001CDAD4 FD 09 50 28 */ fsub f8, f9, f10 /* 801D1E78 001CDAD8 FC C6 01 F2 */ fmul f6, f6, f7 /* 801D1E7C 001CDADC D8 E1 00 28 */ stfd f7, 0x28(r1) /* 801D1E80 001CDAE0 FD 0B 40 28 */ fsub f8, f11, f8 /* 801D1E84 001CDAE4 FC C1 30 2A */ fadd f6, f1, f6 /* 801D1E88 001CDAE8 FC 29 02 32 */ fmul f1, f9, f8 /* 801D1E8C 001CDAEC FC C7 01 B2 */ fmul f6, f7, f6 /* 801D1E90 001CDAF0 FC 28 08 2A */ fadd f1, f8, f1 /* 801D1E94 001CDAF4 FC A5 30 2A */ fadd f5, f5, f6 /* 801D1E98 001CDAF8 FC A7 01 72 */ fmul f5, f7, f5 /* 801D1E9C 001CDAFC FC 84 28 2A */ fadd f4, f4, f5 /* 801D1EA0 001CDB00 FC 87 01 32 */ fmul f4, f7, f4 /* 801D1EA4 001CDB04 FC 63 20 2A */ fadd f3, f3, f4 /* 801D1EA8 001CDB08 FC 67 00 F2 */ fmul f3, f7, f3 /* 801D1EAC 001CDB0C FC 89 18 28 */ fsub f4, f9, f3 /* 801D1EB0 001CDB10 FC 69 01 32 */ fmul f3, f9, f4 /* 801D1EB4 001CDB14 D8 81 00 30 */ stfd f4, 0x30(r1) /* 801D1EB8 001CDB18 FC 44 10 28 */ fsub f2, f4, f2 /* 801D1EBC 001CDB1C FC 43 10 24 */ fdiv f2, f3, f2 /* 801D1EC0 001CDB20 FC 22 08 28 */ fsub f1, f2, f1 /* 801D1EC4 001CDB24 FC 21 48 28 */ fsub f1, f1, f9 /* 801D1EC8 001CDB28 FC 20 08 28 */ fsub f1, f0, f1 /* 801D1ECC 001CDB2C D8 21 00 50 */ stfd f1, 0x50(r1) /* 801D1ED0 001CDB30 80 01 00 50 */ lwz r0, 0x50(r1) /* 801D1ED4 001CDB34 7C 00 22 14 */ add r0, r0, r4 /* 801D1ED8 001CDB38 7C 00 A6 71 */ srawi. r0, r0, 0x14 /* 801D1EDC 001CDB3C 41 81 00 10 */ bgt lbl_801D1EEC /* 801D1EE0 001CDB40 4B FF EA E1 */ bl scalbn /* 801D1EE4 001CDB44 D8 21 00 50 */ stfd f1, 0x50(r1) /* 801D1EE8 001CDB48 48 00 00 10 */ b lbl_801D1EF8 lbl_801D1EEC: /* 801D1EEC 001CDB4C 80 01 00 50 */ lwz r0, 0x50(r1) /* 801D1EF0 001CDB50 7C 00 22 14 */ add r0, r0, r4 /* 801D1EF4 001CDB54 90 01 00 50 */ stw r0, 0x50(r1) lbl_801D1EF8: /* 801D1EF8 001CDB58 C8 01 00 50 */ lfd f0, 0x50(r1) /* 801D1EFC 001CDB5C FC 3F 00 32 */ fmul f1, f31, f0 lbl_801D1F00: /* 801D1F00 001CDB60 E3 E1 00 B8 */ psq_l f31, 184(r1), 0, qr0 /* 801D1F04 001CDB64 CB E1 00 B0 */ lfd f31, 0xb0(r1) /* 801D1F08 001CDB68 E3 C1 00 A8 */ psq_l f30, 168(r1), 0, qr0 /* 801D1F0C 001CDB6C CB C1 00 A0 */ lfd f30, 0xa0(r1) /* 801D1F10 001CDB70 E3 A1 00 98 */ psq_l f29, 152(r1), 0, qr0 /* 801D1F14 001CDB74 CB A1 00 90 */ lfd f29, 0x90(r1) /* 801D1F18 001CDB78 E3 81 00 88 */ psq_l f28, 136(r1), 0, qr0 /* 801D1F1C 001CDB7C CB 81 00 80 */ lfd f28, 0x80(r1) /* 801D1F20 001CDB80 E3 61 00 78 */ psq_l f27, 120(r1), 0, qr0 /* 801D1F24 001CDB84 CB 61 00 70 */ lfd f27, 0x70(r1) /* 801D1F28 001CDB88 E3 41 00 68 */ psq_l f26, 104(r1), 0, qr0 /* 801D1F2C 001CDB8C 80 01 00 C4 */ lwz r0, 0xc4(r1) /* 801D1F30 001CDB90 CB 41 00 60 */ lfd f26, 0x60(r1) /* 801D1F34 001CDB94 7C 08 03 A6 */ mtlr r0 /* 801D1F38 001CDB98 38 21 00 C0 */ addi r1, r1, 0xc0 /* 801D1F3C 001CDB9C 4E 80 00 20 */ blr