mirror of https://github.com/PrimeDecomp/prime.git
224 lines
9.2 KiB
ArmAsm
224 lines
9.2 KiB
ArmAsm
.include "macros.inc"
|
|
|
|
.section .text, "ax"
|
|
|
|
.global strchr
|
|
strchr:
|
|
/* 8038FF2C 0038CE8C 38 63 FF FF */ addi r3, r3, -1
|
|
/* 8038FF30 0038CE90 54 80 06 3E */ clrlwi r0, r4, 0x18
|
|
/* 8038FF34 0038CE94 48 00 00 0C */ b lbl_8038FF40
|
|
lbl_8038FF38:
|
|
/* 8038FF38 0038CE98 7C 04 00 40 */ cmplw r4, r0
|
|
/* 8038FF3C 0038CE9C 4D 82 00 20 */ beqlr
|
|
lbl_8038FF40:
|
|
/* 8038FF40 0038CEA0 8C 83 00 01 */ lbzu r4, 1(r3)
|
|
/* 8038FF44 0038CEA4 28 04 00 00 */ cmplwi r4, 0
|
|
/* 8038FF48 0038CEA8 40 82 FF F0 */ bne lbl_8038FF38
|
|
/* 8038FF4C 0038CEAC 28 00 00 00 */ cmplwi r0, 0
|
|
/* 8038FF50 0038CEB0 4D 82 00 20 */ beqlr
|
|
/* 8038FF54 0038CEB4 38 60 00 00 */ li r3, 0
|
|
/* 8038FF58 0038CEB8 4E 80 00 20 */ blr
|
|
|
|
.global strncmp
|
|
strncmp:
|
|
/* 8038FF5C 0038CEBC 38 63 FF FF */ addi r3, r3, -1
|
|
/* 8038FF60 0038CEC0 38 84 FF FF */ addi r4, r4, -1
|
|
/* 8038FF64 0038CEC4 38 C5 00 01 */ addi r6, r5, 1
|
|
/* 8038FF68 0038CEC8 48 00 00 24 */ b lbl_8038FF8C
|
|
lbl_8038FF6C:
|
|
/* 8038FF6C 0038CECC 8C 03 00 01 */ lbzu r0, 1(r3)
|
|
/* 8038FF70 0038CED0 8C A4 00 01 */ lbzu r5, 1(r4)
|
|
/* 8038FF74 0038CED4 7C 00 28 40 */ cmplw r0, r5
|
|
/* 8038FF78 0038CED8 41 82 00 0C */ beq lbl_8038FF84
|
|
/* 8038FF7C 0038CEDC 7C 65 00 50 */ subf r3, r5, r0
|
|
/* 8038FF80 0038CEE0 4E 80 00 20 */ blr
|
|
lbl_8038FF84:
|
|
/* 8038FF84 0038CEE4 28 00 00 00 */ cmplwi r0, 0
|
|
/* 8038FF88 0038CEE8 41 82 00 0C */ beq lbl_8038FF94
|
|
lbl_8038FF8C:
|
|
/* 8038FF8C 0038CEEC 34 C6 FF FF */ addic. r6, r6, -1
|
|
/* 8038FF90 0038CEF0 40 82 FF DC */ bne lbl_8038FF6C
|
|
lbl_8038FF94:
|
|
/* 8038FF94 0038CEF4 38 60 00 00 */ li r3, 0
|
|
/* 8038FF98 0038CEF8 4E 80 00 20 */ blr
|
|
|
|
.global strcmp
|
|
strcmp:
|
|
/* 8038FF9C 0038CEFC 88 A3 00 00 */ lbz r5, 0(r3)
|
|
/* 8038FFA0 0038CF00 88 04 00 00 */ lbz r0, 0(r4)
|
|
/* 8038FFA4 0038CF04 7C 00 28 51 */ subf. r0, r0, r5
|
|
/* 8038FFA8 0038CF08 41 82 00 0C */ beq lbl_8038FFB4
|
|
/* 8038FFAC 0038CF0C 7C 03 03 78 */ mr r3, r0
|
|
/* 8038FFB0 0038CF10 4E 80 00 20 */ blr
|
|
lbl_8038FFB4:
|
|
/* 8038FFB4 0038CF14 54 80 07 BE */ clrlwi r0, r4, 0x1e
|
|
/* 8038FFB8 0038CF18 54 66 07 BE */ clrlwi r6, r3, 0x1e
|
|
/* 8038FFBC 0038CF1C 7C 00 30 40 */ cmplw r0, r6
|
|
/* 8038FFC0 0038CF20 40 82 00 CC */ bne lbl_8039008C
|
|
/* 8038FFC4 0038CF24 28 06 00 00 */ cmplwi r6, 0
|
|
/* 8038FFC8 0038CF28 41 82 00 58 */ beq lbl_80390020
|
|
/* 8038FFCC 0038CF2C 28 05 00 00 */ cmplwi r5, 0
|
|
/* 8038FFD0 0038CF30 40 82 00 0C */ bne lbl_8038FFDC
|
|
/* 8038FFD4 0038CF34 38 60 00 00 */ li r3, 0
|
|
/* 8038FFD8 0038CF38 4E 80 00 20 */ blr
|
|
lbl_8038FFDC:
|
|
/* 8038FFDC 0038CF3C 20 06 00 03 */ subfic r0, r6, 3
|
|
/* 8038FFE0 0038CF40 7C 09 03 A6 */ mtctr r0
|
|
/* 8038FFE4 0038CF44 28 00 00 00 */ cmplwi r0, 0
|
|
/* 8038FFE8 0038CF48 41 82 00 30 */ beq lbl_80390018
|
|
lbl_8038FFEC:
|
|
/* 8038FFEC 0038CF4C 8C A3 00 01 */ lbzu r5, 1(r3)
|
|
/* 8038FFF0 0038CF50 8C 04 00 01 */ lbzu r0, 1(r4)
|
|
/* 8038FFF4 0038CF54 7C 00 28 51 */ subf. r0, r0, r5
|
|
/* 8038FFF8 0038CF58 41 82 00 0C */ beq lbl_80390004
|
|
/* 8038FFFC 0038CF5C 7C 03 03 78 */ mr r3, r0
|
|
/* 80390000 0038CF60 4E 80 00 20 */ blr
|
|
lbl_80390004:
|
|
/* 80390004 0038CF64 28 05 00 00 */ cmplwi r5, 0
|
|
/* 80390008 0038CF68 40 82 00 0C */ bne lbl_80390014
|
|
/* 8039000C 0038CF6C 38 60 00 00 */ li r3, 0
|
|
/* 80390010 0038CF70 4E 80 00 20 */ blr
|
|
lbl_80390014:
|
|
/* 80390014 0038CF74 42 00 FF D8 */ bdnz lbl_8038FFEC
|
|
lbl_80390018:
|
|
/* 80390018 0038CF78 38 63 00 01 */ addi r3, r3, 1
|
|
/* 8039001C 0038CF7C 38 84 00 01 */ addi r4, r4, 1
|
|
lbl_80390020:
|
|
/* 80390020 0038CF80 80 E3 00 00 */ lwz r7, 0(r3)
|
|
/* 80390024 0038CF84 3C A0 80 81 */ lis r5, 0x80808080@ha
|
|
/* 80390028 0038CF88 38 C5 80 80 */ addi r6, r5, 0x80808080@l
|
|
/* 8039002C 0038CF8C 81 04 00 00 */ lwz r8, 0(r4)
|
|
/* 80390030 0038CF90 3C A7 FE FF */ addis r5, r7, 0xfeff
|
|
/* 80390034 0038CF94 38 05 FE FF */ addi r0, r5, -257
|
|
/* 80390038 0038CF98 7C 00 30 39 */ and. r0, r0, r6
|
|
/* 8039003C 0038CF9C 40 82 00 38 */ bne lbl_80390074
|
|
/* 80390040 0038CFA0 48 00 00 1C */ b lbl_8039005C
|
|
lbl_80390044:
|
|
/* 80390044 0038CFA4 84 E3 00 04 */ lwzu r7, 4(r3)
|
|
/* 80390048 0038CFA8 85 04 00 04 */ lwzu r8, 4(r4)
|
|
/* 8039004C 0038CFAC 3C A7 FE FF */ addis r5, r7, 0xfeff
|
|
/* 80390050 0038CFB0 38 05 FE FF */ addi r0, r5, -257
|
|
/* 80390054 0038CFB4 7C 00 30 39 */ and. r0, r0, r6
|
|
/* 80390058 0038CFB8 40 82 00 1C */ bne lbl_80390074
|
|
lbl_8039005C:
|
|
/* 8039005C 0038CFBC 7C 07 40 40 */ cmplw r7, r8
|
|
/* 80390060 0038CFC0 41 82 FF E4 */ beq lbl_80390044
|
|
/* 80390064 0038CFC4 38 60 FF FF */ li r3, -1
|
|
/* 80390068 0038CFC8 4C 81 00 20 */ blelr
|
|
/* 8039006C 0038CFCC 38 60 00 01 */ li r3, 1
|
|
/* 80390070 0038CFD0 4E 80 00 20 */ blr
|
|
lbl_80390074:
|
|
/* 80390074 0038CFD4 88 A3 00 00 */ lbz r5, 0(r3)
|
|
/* 80390078 0038CFD8 88 04 00 00 */ lbz r0, 0(r4)
|
|
/* 8039007C 0038CFDC 7C 00 28 51 */ subf. r0, r0, r5
|
|
/* 80390080 0038CFE0 41 82 00 0C */ beq lbl_8039008C
|
|
/* 80390084 0038CFE4 7C 03 03 78 */ mr r3, r0
|
|
/* 80390088 0038CFE8 4E 80 00 20 */ blr
|
|
lbl_8039008C:
|
|
/* 8039008C 0038CFEC 28 05 00 00 */ cmplwi r5, 0
|
|
/* 80390090 0038CFF0 40 82 00 0C */ bne lbl_8039009C
|
|
/* 80390094 0038CFF4 38 60 00 00 */ li r3, 0
|
|
/* 80390098 0038CFF8 4E 80 00 20 */ blr
|
|
lbl_8039009C:
|
|
/* 8039009C 0038CFFC 8C A3 00 01 */ lbzu r5, 1(r3)
|
|
/* 803900A0 0038D000 8C 04 00 01 */ lbzu r0, 1(r4)
|
|
/* 803900A4 0038D004 7C 00 28 51 */ subf. r0, r0, r5
|
|
/* 803900A8 0038D008 41 82 00 0C */ beq lbl_803900B4
|
|
/* 803900AC 0038D00C 7C 03 03 78 */ mr r3, r0
|
|
/* 803900B0 0038D010 4E 80 00 20 */ blr
|
|
lbl_803900B4:
|
|
/* 803900B4 0038D014 28 05 00 00 */ cmplwi r5, 0
|
|
/* 803900B8 0038D018 40 82 FF E4 */ bne lbl_8039009C
|
|
/* 803900BC 0038D01C 38 60 00 00 */ li r3, 0
|
|
/* 803900C0 0038D020 4E 80 00 20 */ blr
|
|
|
|
.global strncpy
|
|
strncpy:
|
|
/* 803900C4 0038D024 38 84 FF FF */ addi r4, r4, -1
|
|
/* 803900C8 0038D028 38 C3 FF FF */ addi r6, r3, -1
|
|
/* 803900CC 0038D02C 38 A5 00 01 */ addi r5, r5, 1
|
|
/* 803900D0 0038D030 48 00 00 2C */ b lbl_803900FC
|
|
lbl_803900D4:
|
|
/* 803900D4 0038D034 8C 04 00 01 */ lbzu r0, 1(r4)
|
|
/* 803900D8 0038D038 28 00 00 00 */ cmplwi r0, 0
|
|
/* 803900DC 0038D03C 9C 06 00 01 */ stbu r0, 1(r6)
|
|
/* 803900E0 0038D040 40 82 00 1C */ bne lbl_803900FC
|
|
/* 803900E4 0038D044 38 00 00 00 */ li r0, 0
|
|
/* 803900E8 0038D048 48 00 00 08 */ b lbl_803900F0
|
|
lbl_803900EC:
|
|
/* 803900EC 0038D04C 9C 06 00 01 */ stbu r0, 1(r6)
|
|
lbl_803900F0:
|
|
/* 803900F0 0038D050 34 A5 FF FF */ addic. r5, r5, -1
|
|
/* 803900F4 0038D054 40 82 FF F8 */ bne lbl_803900EC
|
|
/* 803900F8 0038D058 4E 80 00 20 */ blr
|
|
lbl_803900FC:
|
|
/* 803900FC 0038D05C 34 A5 FF FF */ addic. r5, r5, -1
|
|
/* 80390100 0038D060 40 82 FF D4 */ bne lbl_803900D4
|
|
/* 80390104 0038D064 4E 80 00 20 */ blr
|
|
|
|
.global strcpy
|
|
strcpy:
|
|
/* 80390108 0038D068 54 60 07 BE */ clrlwi r0, r3, 0x1e
|
|
/* 8039010C 0038D06C 54 85 07 BE */ clrlwi r5, r4, 0x1e
|
|
/* 80390110 0038D070 7C 00 28 40 */ cmplw r0, r5
|
|
/* 80390114 0038D074 7C 67 1B 78 */ mr r7, r3
|
|
/* 80390118 0038D078 40 82 00 84 */ bne lbl_8039019C
|
|
/* 8039011C 0038D07C 28 05 00 00 */ cmplwi r5, 0
|
|
/* 80390120 0038D080 41 82 00 40 */ beq lbl_80390160
|
|
/* 80390124 0038D084 88 04 00 00 */ lbz r0, 0(r4)
|
|
/* 80390128 0038D088 28 00 00 00 */ cmplwi r0, 0
|
|
/* 8039012C 0038D08C 98 07 00 00 */ stb r0, 0(r7)
|
|
/* 80390130 0038D090 4D 82 00 20 */ beqlr
|
|
/* 80390134 0038D094 20 05 00 03 */ subfic r0, r5, 3
|
|
/* 80390138 0038D098 7C 09 03 A6 */ mtctr r0
|
|
/* 8039013C 0038D09C 28 00 00 00 */ cmplwi r0, 0
|
|
/* 80390140 0038D0A0 41 82 00 18 */ beq lbl_80390158
|
|
lbl_80390144:
|
|
/* 80390144 0038D0A4 8C 04 00 01 */ lbzu r0, 1(r4)
|
|
/* 80390148 0038D0A8 28 00 00 00 */ cmplwi r0, 0
|
|
/* 8039014C 0038D0AC 9C 07 00 01 */ stbu r0, 1(r7)
|
|
/* 80390150 0038D0B0 4D 82 00 20 */ beqlr
|
|
/* 80390154 0038D0B4 42 00 FF F0 */ bdnz lbl_80390144
|
|
lbl_80390158:
|
|
/* 80390158 0038D0B8 38 E7 00 01 */ addi r7, r7, 1
|
|
/* 8039015C 0038D0BC 38 84 00 01 */ addi r4, r4, 1
|
|
lbl_80390160:
|
|
/* 80390160 0038D0C0 81 04 00 00 */ lwz r8, 0(r4)
|
|
/* 80390164 0038D0C4 3C A0 80 81 */ lis r5, 0x80808080@ha
|
|
/* 80390168 0038D0C8 38 C5 80 80 */ addi r6, r5, 0x80808080@l
|
|
/* 8039016C 0038D0CC 3C A8 FE FF */ addis r5, r8, 0xfeff
|
|
/* 80390170 0038D0D0 38 05 FE FF */ addi r0, r5, -257
|
|
/* 80390174 0038D0D4 7C 00 30 39 */ and. r0, r0, r6
|
|
/* 80390178 0038D0D8 40 82 00 24 */ bne lbl_8039019C
|
|
/* 8039017C 0038D0DC 38 E7 FF FC */ addi r7, r7, -4
|
|
lbl_80390180:
|
|
/* 80390180 0038D0E0 95 07 00 04 */ stwu r8, 4(r7)
|
|
/* 80390184 0038D0E4 85 04 00 04 */ lwzu r8, 4(r4)
|
|
/* 80390188 0038D0E8 3C A8 FE FF */ addis r5, r8, 0xfeff
|
|
/* 8039018C 0038D0EC 38 05 FE FF */ addi r0, r5, -257
|
|
/* 80390190 0038D0F0 7C 00 30 39 */ and. r0, r0, r6
|
|
/* 80390194 0038D0F4 41 82 FF EC */ beq lbl_80390180
|
|
/* 80390198 0038D0F8 38 E7 00 04 */ addi r7, r7, 4
|
|
lbl_8039019C:
|
|
/* 8039019C 0038D0FC 88 04 00 00 */ lbz r0, 0(r4)
|
|
/* 803901A0 0038D100 28 00 00 00 */ cmplwi r0, 0
|
|
/* 803901A4 0038D104 98 07 00 00 */ stb r0, 0(r7)
|
|
/* 803901A8 0038D108 4D 82 00 20 */ beqlr
|
|
lbl_803901AC:
|
|
/* 803901AC 0038D10C 8C 04 00 01 */ lbzu r0, 1(r4)
|
|
/* 803901B0 0038D110 28 00 00 00 */ cmplwi r0, 0
|
|
/* 803901B4 0038D114 9C 07 00 01 */ stbu r0, 1(r7)
|
|
/* 803901B8 0038D118 40 82 FF F4 */ bne lbl_803901AC
|
|
/* 803901BC 0038D11C 4E 80 00 20 */ blr
|
|
|
|
.global strlen
|
|
strlen:
|
|
/* 803901C0 0038D120 38 83 FF FF */ addi r4, r3, -1
|
|
/* 803901C4 0038D124 38 60 FF FF */ li r3, -1
|
|
lbl_803901C8:
|
|
/* 803901C8 0038D128 8C 04 00 01 */ lbzu r0, 1(r4)
|
|
/* 803901CC 0038D12C 38 63 00 01 */ addi r3, r3, 1
|
|
/* 803901D0 0038D130 28 00 00 00 */ cmplwi r0, 0
|
|
/* 803901D4 0038D134 40 82 FF F4 */ bne lbl_803901C8
|
|
/* 803901D8 0038D138 4E 80 00 20 */ blr
|