prime/asm/Runtime/e_fmod.s

267 lines
12 KiB
ArmAsm
Raw Permalink Normal View History

2022-04-02 09:50:35 +00:00
.include "macros.inc"
2022-04-06 10:04:03 +00:00
.section .rodata
.balign 8
2022-04-06 10:04:03 +00:00
.global lbl_803D8750
lbl_803D8750:
2022-07-14 05:48:03 +00:00
# ROM: 0x3D5750
.4byte 0
.4byte 0
.4byte 0x80000000
.4byte 0
.section .text, "ax"
2022-04-02 09:50:35 +00:00
.global __ieee754_fmod
__ieee754_fmod:
/* 80391DE8 0038ED48 94 21 FF E0 */ stwu r1, -0x20(r1)
/* 80391DEC 0038ED4C D8 41 00 10 */ stfd f2, 0x10(r1)
/* 80391DF0 0038ED50 D8 21 00 08 */ stfd f1, 8(r1)
/* 80391DF4 0038ED54 81 41 00 10 */ lwz r10, 0x10(r1)
/* 80391DF8 0038ED58 80 C1 00 08 */ lwz r6, 8(r1)
/* 80391DFC 0038ED5C 80 A1 00 14 */ lwz r5, 0x14(r1)
/* 80391E00 0038ED60 55 48 00 7E */ clrlwi r8, r10, 1
/* 80391E04 0038ED64 54 C0 00 00 */ rlwinm r0, r6, 0, 0, 0
/* 80391E08 0038ED68 80 81 00 0C */ lwz r4, 0xc(r1)
/* 80391E0C 0038ED6C 7D 03 2B 79 */ or. r3, r8, r5
/* 80391E10 0038ED70 7C C7 02 78 */ xor r7, r6, r0
/* 80391E14 0038ED74 41 82 00 28 */ beq lbl_80391E3C
/* 80391E18 0038ED78 3C C0 7F F0 */ lis r6, 0x7ff0
/* 80391E1C 0038ED7C 7C 07 30 00 */ cmpw r7, r6
/* 80391E20 0038ED80 40 80 00 1C */ bge lbl_80391E3C
/* 80391E24 0038ED84 7C 65 00 D0 */ neg r3, r5
/* 80391E28 0038ED88 7C A3 1B 78 */ or r3, r5, r3
/* 80391E2C 0038ED8C 54 63 0F FE */ srwi r3, r3, 0x1f
/* 80391E30 0038ED90 7D 03 1B 78 */ or r3, r8, r3
/* 80391E34 0038ED94 7C 03 30 40 */ cmplw r3, r6
/* 80391E38 0038ED98 40 81 00 18 */ ble lbl_80391E50
lbl_80391E3C:
/* 80391E3C 0038ED9C C8 21 00 08 */ lfd f1, 8(r1)
/* 80391E40 0038EDA0 C8 01 00 10 */ lfd f0, 0x10(r1)
/* 80391E44 0038EDA4 FC 01 00 32 */ fmul f0, f1, f0
/* 80391E48 0038EDA8 FC 20 00 24 */ fdiv f1, f0, f0
/* 80391E4C 0038EDAC 48 00 02 D0 */ b lbl_8039211C
lbl_80391E50:
/* 80391E50 0038EDB0 7C 07 40 00 */ cmpw r7, r8
/* 80391E54 0038EDB4 41 81 00 30 */ bgt lbl_80391E84
/* 80391E58 0038EDB8 41 80 00 0C */ blt lbl_80391E64
/* 80391E5C 0038EDBC 7C 04 28 40 */ cmplw r4, r5
/* 80391E60 0038EDC0 40 80 00 0C */ bge lbl_80391E6C
lbl_80391E64:
/* 80391E64 0038EDC4 C8 21 00 08 */ lfd f1, 8(r1)
/* 80391E68 0038EDC8 48 00 02 B4 */ b lbl_8039211C
lbl_80391E6C:
/* 80391E6C 0038EDCC 40 82 00 18 */ bne lbl_80391E84
/* 80391E70 0038EDD0 3C 60 80 3E */ lis r3, lbl_803D8750@ha
/* 80391E74 0038EDD4 54 00 27 38 */ rlwinm r0, r0, 4, 0x1c, 0x1c
/* 80391E78 0038EDD8 38 63 87 50 */ addi r3, r3, lbl_803D8750@l
/* 80391E7C 0038EDDC 7C 23 04 AE */ lfdx f1, r3, r0
/* 80391E80 0038EDE0 48 00 02 9C */ b lbl_8039211C
lbl_80391E84:
/* 80391E84 0038EDE4 3C 60 00 10 */ lis r3, 0x10
/* 80391E88 0038EDE8 7C 07 18 00 */ cmpw r7, r3
/* 80391E8C 0038EDEC 40 80 00 4C */ bge lbl_80391ED8
/* 80391E90 0038EDF0 2C 07 00 00 */ cmpwi r7, 0
/* 80391E94 0038EDF4 40 82 00 24 */ bne lbl_80391EB8
/* 80391E98 0038EDF8 7C 83 23 78 */ mr r3, r4
/* 80391E9C 0038EDFC 39 60 FB ED */ li r11, -1043
/* 80391EA0 0038EE00 48 00 00 0C */ b lbl_80391EAC
lbl_80391EA4:
/* 80391EA4 0038EE04 54 63 08 3C */ slwi r3, r3, 1
/* 80391EA8 0038EE08 39 6B FF FF */ addi r11, r11, -1
lbl_80391EAC:
/* 80391EAC 0038EE0C 2C 03 00 00 */ cmpwi r3, 0
/* 80391EB0 0038EE10 41 81 FF F4 */ bgt lbl_80391EA4
/* 80391EB4 0038EE14 48 00 00 2C */ b lbl_80391EE0
lbl_80391EB8:
/* 80391EB8 0038EE18 54 E3 58 28 */ slwi r3, r7, 0xb
/* 80391EBC 0038EE1C 39 60 FC 02 */ li r11, -1022
/* 80391EC0 0038EE20 48 00 00 0C */ b lbl_80391ECC
lbl_80391EC4:
/* 80391EC4 0038EE24 54 63 08 3C */ slwi r3, r3, 1
/* 80391EC8 0038EE28 39 6B FF FF */ addi r11, r11, -1
lbl_80391ECC:
/* 80391ECC 0038EE2C 2C 03 00 00 */ cmpwi r3, 0
/* 80391ED0 0038EE30 41 81 FF F4 */ bgt lbl_80391EC4
/* 80391ED4 0038EE34 48 00 00 0C */ b lbl_80391EE0
lbl_80391ED8:
/* 80391ED8 0038EE38 7C E3 A6 70 */ srawi r3, r7, 0x14
/* 80391EDC 0038EE3C 39 63 FC 01 */ addi r11, r3, -1023
lbl_80391EE0:
/* 80391EE0 0038EE40 3C 60 00 10 */ lis r3, 0x10
/* 80391EE4 0038EE44 7C 08 18 00 */ cmpw r8, r3
/* 80391EE8 0038EE48 40 80 00 4C */ bge lbl_80391F34
/* 80391EEC 0038EE4C 2C 08 00 00 */ cmpwi r8, 0
/* 80391EF0 0038EE50 40 82 00 24 */ bne lbl_80391F14
/* 80391EF4 0038EE54 7C A6 2B 78 */ mr r6, r5
/* 80391EF8 0038EE58 38 60 FB ED */ li r3, -1043
/* 80391EFC 0038EE5C 48 00 00 0C */ b lbl_80391F08
lbl_80391F00:
/* 80391F00 0038EE60 54 C6 08 3C */ slwi r6, r6, 1
/* 80391F04 0038EE64 38 63 FF FF */ addi r3, r3, -1
lbl_80391F08:
/* 80391F08 0038EE68 2C 06 00 00 */ cmpwi r6, 0
/* 80391F0C 0038EE6C 41 81 FF F4 */ bgt lbl_80391F00
/* 80391F10 0038EE70 48 00 00 2C */ b lbl_80391F3C
lbl_80391F14:
/* 80391F14 0038EE74 55 06 58 28 */ slwi r6, r8, 0xb
/* 80391F18 0038EE78 38 60 FC 02 */ li r3, -1022
/* 80391F1C 0038EE7C 48 00 00 0C */ b lbl_80391F28
lbl_80391F20:
/* 80391F20 0038EE80 54 C6 08 3C */ slwi r6, r6, 1
/* 80391F24 0038EE84 38 63 FF FF */ addi r3, r3, -1
lbl_80391F28:
/* 80391F28 0038EE88 2C 06 00 00 */ cmpwi r6, 0
/* 80391F2C 0038EE8C 41 81 FF F4 */ bgt lbl_80391F20
/* 80391F30 0038EE90 48 00 00 0C */ b lbl_80391F3C
lbl_80391F34:
/* 80391F34 0038EE94 7D 03 A6 70 */ srawi r3, r8, 0x14
/* 80391F38 0038EE98 38 63 FC 01 */ addi r3, r3, -1023
lbl_80391F3C:
/* 80391F3C 0038EE9C 2C 0B FC 02 */ cmpwi r11, -1022
/* 80391F40 0038EEA0 41 80 00 10 */ blt lbl_80391F50
/* 80391F44 0038EEA4 54 E6 03 3E */ clrlwi r6, r7, 0xc
/* 80391F48 0038EEA8 64 C9 00 10 */ oris r9, r6, 0x10
/* 80391F4C 0038EEAC 48 00 00 34 */ b lbl_80391F80
lbl_80391F50:
/* 80391F50 0038EEB0 21 2B FC 02 */ subfic r9, r11, -1022
/* 80391F54 0038EEB4 2C 09 00 1F */ cmpwi r9, 0x1f
/* 80391F58 0038EEB8 41 81 00 1C */ bgt lbl_80391F74
/* 80391F5C 0038EEBC 20 C9 00 20 */ subfic r6, r9, 0x20
/* 80391F60 0038EEC0 7C E7 48 30 */ slw r7, r7, r9
/* 80391F64 0038EEC4 7C 86 34 30 */ srw r6, r4, r6
/* 80391F68 0038EEC8 7C 84 48 30 */ slw r4, r4, r9
/* 80391F6C 0038EECC 7C E9 33 78 */ or r9, r7, r6
/* 80391F70 0038EED0 48 00 00 10 */ b lbl_80391F80
lbl_80391F74:
/* 80391F74 0038EED4 38 C9 FF E0 */ addi r6, r9, -32
/* 80391F78 0038EED8 7C 89 30 30 */ slw r9, r4, r6
/* 80391F7C 0038EEDC 38 80 00 00 */ li r4, 0
lbl_80391F80:
/* 80391F80 0038EEE0 2C 03 FC 02 */ cmpwi r3, -1022
/* 80391F84 0038EEE4 41 80 00 10 */ blt lbl_80391F94
/* 80391F88 0038EEE8 55 46 03 3E */ clrlwi r6, r10, 0xc
/* 80391F8C 0038EEEC 64 C7 00 10 */ oris r7, r6, 0x10
/* 80391F90 0038EEF0 48 00 00 34 */ b lbl_80391FC4
lbl_80391F94:
/* 80391F94 0038EEF4 21 43 FC 02 */ subfic r10, r3, -1022
/* 80391F98 0038EEF8 2C 0A 00 1F */ cmpwi r10, 0x1f
/* 80391F9C 0038EEFC 41 81 00 1C */ bgt lbl_80391FB8
/* 80391FA0 0038EF00 20 CA 00 20 */ subfic r6, r10, 0x20
/* 80391FA4 0038EF04 7D 07 50 30 */ slw r7, r8, r10
/* 80391FA8 0038EF08 7C A6 34 30 */ srw r6, r5, r6
/* 80391FAC 0038EF0C 7C A5 50 30 */ slw r5, r5, r10
/* 80391FB0 0038EF10 7C E7 33 78 */ or r7, r7, r6
/* 80391FB4 0038EF14 48 00 00 10 */ b lbl_80391FC4
lbl_80391FB8:
/* 80391FB8 0038EF18 38 CA FF E0 */ addi r6, r10, -32
/* 80391FBC 0038EF1C 7C A7 30 30 */ slw r7, r5, r6
/* 80391FC0 0038EF20 38 A0 00 00 */ li r5, 0
lbl_80391FC4:
/* 80391FC4 0038EF24 7C C3 58 51 */ subf. r6, r3, r11
/* 80391FC8 0038EF28 7C C9 03 A6 */ mtctr r6
/* 80391FCC 0038EF2C 41 82 00 64 */ beq lbl_80392030
lbl_80391FD0:
/* 80391FD0 0038EF30 7C 04 28 40 */ cmplw r4, r5
/* 80391FD4 0038EF34 7D 07 48 50 */ subf r8, r7, r9
/* 80391FD8 0038EF38 7D 45 20 50 */ subf r10, r5, r4
/* 80391FDC 0038EF3C 40 80 00 08 */ bge lbl_80391FE4
/* 80391FE0 0038EF40 39 08 FF FF */ addi r8, r8, -1
lbl_80391FE4:
/* 80391FE4 0038EF44 2C 08 00 00 */ cmpwi r8, 0
/* 80391FE8 0038EF48 40 80 00 18 */ bge lbl_80392000
/* 80391FEC 0038EF4C 54 86 0F FE */ srwi r6, r4, 0x1f
/* 80391FF0 0038EF50 7C 84 22 14 */ add r4, r4, r4
/* 80391FF4 0038EF54 7C C9 32 14 */ add r6, r9, r6
/* 80391FF8 0038EF58 7D 29 32 14 */ add r9, r9, r6
/* 80391FFC 0038EF5C 48 00 00 30 */ b lbl_8039202C
lbl_80392000:
/* 80392000 0038EF60 7D 04 53 79 */ or. r4, r8, r10
/* 80392004 0038EF64 40 82 00 18 */ bne lbl_8039201C
/* 80392008 0038EF68 3C 60 80 3E */ lis r3, lbl_803D8750@ha
/* 8039200C 0038EF6C 54 00 27 38 */ rlwinm r0, r0, 4, 0x1c, 0x1c
/* 80392010 0038EF70 38 63 87 50 */ addi r3, r3, lbl_803D8750@l
/* 80392014 0038EF74 7C 23 04 AE */ lfdx f1, r3, r0
/* 80392018 0038EF78 48 00 01 04 */ b lbl_8039211C
lbl_8039201C:
/* 8039201C 0038EF7C 55 46 0F FE */ srwi r6, r10, 0x1f
/* 80392020 0038EF80 7C 8A 52 14 */ add r4, r10, r10
/* 80392024 0038EF84 7D 28 32 14 */ add r9, r8, r6
/* 80392028 0038EF88 7D 28 4A 14 */ add r9, r8, r9
lbl_8039202C:
/* 8039202C 0038EF8C 42 00 FF A4 */ bdnz lbl_80391FD0
lbl_80392030:
/* 80392030 0038EF90 7C 04 28 40 */ cmplw r4, r5
/* 80392034 0038EF94 7C C7 48 50 */ subf r6, r7, r9
/* 80392038 0038EF98 7C A5 20 50 */ subf r5, r5, r4
/* 8039203C 0038EF9C 40 80 00 08 */ bge lbl_80392044
/* 80392040 0038EFA0 38 C6 FF FF */ addi r6, r6, -1
lbl_80392044:
/* 80392044 0038EFA4 2C 06 00 00 */ cmpwi r6, 0
/* 80392048 0038EFA8 41 80 00 0C */ blt lbl_80392054
/* 8039204C 0038EFAC 7C C9 33 78 */ mr r9, r6
/* 80392050 0038EFB0 7C A4 2B 78 */ mr r4, r5
lbl_80392054:
/* 80392054 0038EFB4 7D 25 23 79 */ or. r5, r9, r4
/* 80392058 0038EFB8 40 82 00 18 */ bne lbl_80392070
/* 8039205C 0038EFBC 3C 60 80 3E */ lis r3, lbl_803D8750@ha
/* 80392060 0038EFC0 54 00 27 38 */ rlwinm r0, r0, 4, 0x1c, 0x1c
/* 80392064 0038EFC4 38 63 87 50 */ addi r3, r3, lbl_803D8750@l
/* 80392068 0038EFC8 7C 23 04 AE */ lfdx f1, r3, r0
/* 8039206C 0038EFCC 48 00 00 B0 */ b lbl_8039211C
lbl_80392070:
/* 80392070 0038EFD0 3C A0 00 10 */ lis r5, 0x10
/* 80392074 0038EFD4 48 00 00 18 */ b lbl_8039208C
lbl_80392078:
/* 80392078 0038EFD8 54 86 0F FE */ srwi r6, r4, 0x1f
/* 8039207C 0038EFDC 7C 84 22 14 */ add r4, r4, r4
/* 80392080 0038EFE0 7C C9 32 14 */ add r6, r9, r6
/* 80392084 0038EFE4 38 63 FF FF */ addi r3, r3, -1
/* 80392088 0038EFE8 7D 29 32 14 */ add r9, r9, r6
lbl_8039208C:
/* 8039208C 0038EFEC 7C 09 28 00 */ cmpw r9, r5
/* 80392090 0038EFF0 41 80 FF E8 */ blt lbl_80392078
/* 80392094 0038EFF4 2C 03 FC 02 */ cmpwi r3, -1022
/* 80392098 0038EFF8 41 80 00 24 */ blt lbl_803920BC
/* 8039209C 0038EFFC 38 63 03 FF */ addi r3, r3, 0x3ff
/* 803920A0 0038F000 3C A9 FF F0 */ addis r5, r9, 0xfff0
/* 803920A4 0038F004 54 63 A0 16 */ slwi r3, r3, 0x14
/* 803920A8 0038F008 90 81 00 0C */ stw r4, 0xc(r1)
/* 803920AC 0038F00C 7C A3 1B 78 */ or r3, r5, r3
/* 803920B0 0038F010 7C 60 03 78 */ or r0, r3, r0
/* 803920B4 0038F014 90 01 00 08 */ stw r0, 8(r1)
/* 803920B8 0038F018 48 00 00 60 */ b lbl_80392118
lbl_803920BC:
/* 803920BC 0038F01C 20 C3 FC 02 */ subfic r6, r3, -1022
/* 803920C0 0038F020 2C 06 00 14 */ cmpwi r6, 0x14
/* 803920C4 0038F024 41 81 00 1C */ bgt lbl_803920E0
/* 803920C8 0038F028 20 66 00 20 */ subfic r3, r6, 0x20
/* 803920CC 0038F02C 7C 84 34 30 */ srw r4, r4, r6
/* 803920D0 0038F030 7D 23 18 30 */ slw r3, r9, r3
/* 803920D4 0038F034 7D 29 36 30 */ sraw r9, r9, r6
/* 803920D8 0038F038 7C 83 1B 78 */ or r3, r4, r3
/* 803920DC 0038F03C 48 00 00 30 */ b lbl_8039210C
lbl_803920E0:
/* 803920E0 0038F040 2C 06 00 1F */ cmpwi r6, 0x1f
/* 803920E4 0038F044 41 81 00 1C */ bgt lbl_80392100
/* 803920E8 0038F048 20 A6 00 20 */ subfic r5, r6, 0x20
/* 803920EC 0038F04C 7C 83 34 30 */ srw r3, r4, r6
/* 803920F0 0038F050 7D 24 28 30 */ slw r4, r9, r5
/* 803920F4 0038F054 7C 09 03 78 */ mr r9, r0
/* 803920F8 0038F058 7C 83 1B 78 */ or r3, r4, r3
/* 803920FC 0038F05C 48 00 00 10 */ b lbl_8039210C
lbl_80392100:
/* 80392100 0038F060 38 66 FF E0 */ addi r3, r6, -32
/* 80392104 0038F064 7D 23 1E 30 */ sraw r3, r9, r3
/* 80392108 0038F068 7C 09 03 78 */ mr r9, r0
lbl_8039210C:
/* 8039210C 0038F06C 7D 20 03 78 */ or r0, r9, r0
/* 80392110 0038F070 90 61 00 0C */ stw r3, 0xc(r1)
/* 80392114 0038F074 90 01 00 08 */ stw r0, 8(r1)
lbl_80392118:
/* 80392118 0038F078 C8 21 00 08 */ lfd f1, 8(r1)
lbl_8039211C:
/* 8039211C 0038F07C 38 21 00 20 */ addi r1, r1, 0x20
2022-07-14 05:48:03 +00:00
/* 80392120 0038F080 4E 80 00 20 */ blr