mirror of
https://github.com/pret/pmd-red.git
synced 2024-11-23 21:19:53 +00:00
506 lines
7.6 KiB
ArmAsm
506 lines
7.6 KiB
ArmAsm
#include "asm/constants/gba_constants.inc"
|
|
#include "asm/macros.inc"
|
|
|
|
.syntax unified
|
|
|
|
.text
|
|
|
|
thumb_func_start sub_8037810
|
|
sub_8037810:
|
|
push {r4-r6,lr}
|
|
ldr r6, _080378FC
|
|
ldr r0, [r6]
|
|
movs r5, 0xDE
|
|
lsls r5, 1
|
|
adds r0, r5
|
|
movs r1, 0
|
|
movs r2, 0x8
|
|
bl MemoryFill8
|
|
ldr r0, [r6]
|
|
movs r4, 0xE2
|
|
lsls r4, 1
|
|
adds r0, r4
|
|
movs r1, 0
|
|
movs r2, 0x8
|
|
bl MemoryFill8
|
|
ldr r0, [r6]
|
|
adds r5, r0, r5
|
|
movs r1, 0
|
|
movs r2, 0
|
|
str r1, [r5]
|
|
str r2, [r5, 0x4]
|
|
adds r4, r0, r4
|
|
str r1, [r4]
|
|
str r2, [r4, 0x4]
|
|
movs r2, 0xE6
|
|
lsls r2, 1
|
|
adds r0, r2
|
|
movs r1, 0
|
|
movs r2, 0x30
|
|
bl MemoryFill8
|
|
ldr r0, [r6]
|
|
movs r3, 0xFE
|
|
lsls r3, 1
|
|
adds r0, r3
|
|
movs r1, 0
|
|
movs r2, 0x30
|
|
bl MemoryFill8
|
|
ldr r0, [r6]
|
|
movs r1, 0x8B
|
|
lsls r1, 2
|
|
adds r0, r1
|
|
movs r1, 0
|
|
movs r2, 0x30
|
|
bl MemoryFill8
|
|
ldr r0, [r6]
|
|
movs r2, 0x97
|
|
lsls r2, 2
|
|
adds r0, r2
|
|
movs r1, 0
|
|
movs r2, 0x30
|
|
bl MemoryFill8
|
|
ldr r0, [r6]
|
|
movs r3, 0xA3
|
|
lsls r3, 2
|
|
adds r0, r3
|
|
movs r1, 0
|
|
movs r2, 0x30
|
|
bl MemoryFill8
|
|
ldr r0, [r6]
|
|
movs r1, 0xC5
|
|
lsls r1, 2
|
|
adds r0, r1
|
|
movs r1, 0
|
|
movs r2, 0x30
|
|
bl MemoryFill8
|
|
ldr r0, [r6]
|
|
movs r2, 0xAF
|
|
lsls r2, 2
|
|
adds r0, r2
|
|
movs r1, 0
|
|
movs r2, 0x58
|
|
bl MemoryFill8
|
|
ldr r0, [r6]
|
|
movs r3, 0xD1
|
|
lsls r3, 2
|
|
adds r0, r3
|
|
movs r1, 0
|
|
movs r2, 0x58
|
|
bl MemoryFill8
|
|
ldr r0, [r6]
|
|
movs r1, 0xE7
|
|
lsls r1, 2
|
|
adds r0, r1
|
|
movs r1, 0
|
|
movs r2, 0xB4
|
|
bl MemoryFill8
|
|
ldr r0, [r6]
|
|
movs r2, 0x8A
|
|
lsls r2, 3
|
|
adds r0, r2
|
|
movs r1, 0
|
|
movs r2, 0xB4
|
|
bl MemoryFill8
|
|
ldr r2, [r6]
|
|
movs r3, 0xB1
|
|
lsls r3, 2
|
|
adds r0, r2, r3
|
|
movs r1, 0
|
|
strh r1, [r0]
|
|
adds r3, 0x88
|
|
adds r0, r2, r3
|
|
strh r1, [r0]
|
|
pop {r4-r6}
|
|
pop {r0}
|
|
bx r0
|
|
.align 2, 0
|
|
_080378FC: .4byte gUnknown_203B35C
|
|
thumb_func_end sub_8037810
|
|
|
|
thumb_func_start sub_8037900
|
|
sub_8037900:
|
|
push {r4,lr}
|
|
sub sp, 0x10
|
|
ldr r4, _08037928
|
|
ldr r0, [r4]
|
|
movs r1, 0xAE
|
|
lsls r1, 1
|
|
adds r0, r1
|
|
movs r1, 0
|
|
bl sub_8035CC0
|
|
ldr r0, [r4]
|
|
ldr r0, [r0]
|
|
cmp r0, 0xA
|
|
bls _0803791E
|
|
b _08037A14
|
|
_0803791E:
|
|
lsls r0, 2
|
|
ldr r1, _0803792C
|
|
adds r0, r1
|
|
ldr r0, [r0]
|
|
mov pc, r0
|
|
.align 2, 0
|
|
_08037928: .4byte gUnknown_203B35C
|
|
_0803792C: .4byte _08037930
|
|
.align 2, 0
|
|
_08037930:
|
|
.4byte _0803795C
|
|
.4byte _0803795C
|
|
.4byte _0803797C
|
|
.4byte _0803797C
|
|
.4byte _0803799C
|
|
.4byte _0803799C
|
|
.4byte _080379BC
|
|
.4byte _080379BC
|
|
.4byte _08037A14
|
|
.4byte _080379F0
|
|
.4byte _080379F0
|
|
_0803795C:
|
|
ldr r0, _08037970
|
|
ldr r1, [r0]
|
|
adds r0, r1, 0
|
|
adds r0, 0x1C
|
|
movs r2, 0xAE
|
|
lsls r2, 1
|
|
adds r1, r2
|
|
ldr r3, _08037974
|
|
ldr r2, _08037978
|
|
b _080379CE
|
|
.align 2, 0
|
|
_08037970: .4byte gUnknown_203B35C
|
|
_08037974: .4byte gUnknown_80E6554
|
|
_08037978: .4byte gUnknown_80E656C
|
|
_0803797C:
|
|
ldr r0, _08037990
|
|
ldr r1, [r0]
|
|
adds r0, r1, 0
|
|
adds r0, 0x1C
|
|
movs r2, 0xAE
|
|
lsls r2, 1
|
|
adds r1, r2
|
|
ldr r3, _08037994
|
|
ldr r2, _08037998
|
|
b _080379CE
|
|
.align 2, 0
|
|
_08037990: .4byte gUnknown_203B35C
|
|
_08037994: .4byte gUnknown_80E6554
|
|
_08037998: .4byte gUnknown_80E65D8
|
|
_0803799C:
|
|
ldr r0, _080379B0
|
|
ldr r1, [r0]
|
|
adds r0, r1, 0
|
|
adds r0, 0x1C
|
|
movs r2, 0xAE
|
|
lsls r2, 1
|
|
adds r1, r2
|
|
ldr r3, _080379B4
|
|
ldr r2, _080379B8
|
|
b _080379CE
|
|
.align 2, 0
|
|
_080379B0: .4byte gUnknown_203B35C
|
|
_080379B4: .4byte gUnknown_80E6554
|
|
_080379B8: .4byte gUnknown_80E661C
|
|
_080379BC:
|
|
ldr r0, _080379E4
|
|
ldr r1, [r0]
|
|
adds r0, r1, 0
|
|
adds r0, 0x1C
|
|
movs r2, 0xAE
|
|
lsls r2, 1
|
|
adds r1, r2
|
|
ldr r3, _080379E8
|
|
ldr r2, _080379EC
|
|
_080379CE:
|
|
str r2, [sp]
|
|
movs r4, 0
|
|
str r4, [sp, 0x4]
|
|
movs r2, 0x6
|
|
str r2, [sp, 0x8]
|
|
str r4, [sp, 0xC]
|
|
movs r2, 0
|
|
bl SetMenuItems
|
|
b _08037A14
|
|
.align 2, 0
|
|
_080379E4: .4byte gUnknown_203B35C
|
|
_080379E8: .4byte gUnknown_80E6554
|
|
_080379EC: .4byte gUnknown_80E665C
|
|
_080379F0:
|
|
ldr r0, _08037A38
|
|
ldr r1, [r0]
|
|
adds r0, r1, 0
|
|
adds r0, 0x1C
|
|
movs r2, 0xAE
|
|
lsls r2, 1
|
|
adds r1, r2
|
|
ldr r3, _08037A3C
|
|
ldr r2, _08037A40
|
|
str r2, [sp]
|
|
movs r4, 0
|
|
str r4, [sp, 0x4]
|
|
movs r2, 0x6
|
|
str r2, [sp, 0x8]
|
|
str r4, [sp, 0xC]
|
|
movs r2, 0
|
|
bl SetMenuItems
|
|
_08037A14:
|
|
ldr r4, _08037A38
|
|
ldr r0, [r4]
|
|
adds r0, 0x1C
|
|
movs r1, 0
|
|
movs r2, 0x1
|
|
bl sub_8035CF4
|
|
bl sub_80373C4
|
|
ldr r0, [r4]
|
|
adds r0, 0x1C
|
|
bl sub_80130A8
|
|
add sp, 0x10
|
|
pop {r4}
|
|
pop {r0}
|
|
bx r0
|
|
.align 2, 0
|
|
_08037A38: .4byte gUnknown_203B35C
|
|
_08037A3C: .4byte gUnknown_80E6554
|
|
_08037A40: .4byte gUnknown_80E667C
|
|
thumb_func_end sub_8037900
|
|
|
|
thumb_func_start nullsub_202
|
|
nullsub_202:
|
|
bx lr
|
|
thumb_func_end nullsub_202
|
|
|
|
thumb_func_start sub_8037A48
|
|
sub_8037A48:
|
|
push {r4-r6,lr}
|
|
sub sp, 0x28
|
|
movs r6, 0x1
|
|
movs r0, 0
|
|
mov r1, sp
|
|
movs r2, 0x14
|
|
bl sub_800D670
|
|
add r4, sp, 0x14
|
|
movs r0, 0x1
|
|
adds r1, r4, 0
|
|
movs r2, 0x14
|
|
bl sub_800D670
|
|
ldr r1, _08037AAC
|
|
movs r3, 0x8
|
|
adds r2, r1, 0
|
|
adds r0, r2, 0x4
|
|
_08037A6C:
|
|
str r3, [r0]
|
|
subs r0, 0x4
|
|
cmp r0, r1
|
|
bge _08037A6C
|
|
ldr r0, [sp, 0x10]
|
|
str r0, [r2]
|
|
ldr r0, [r4, 0x10]
|
|
str r0, [r2, 0x4]
|
|
ldr r5, _08037AB0
|
|
mov r0, sp
|
|
adds r1, r5, 0
|
|
bl strcmp
|
|
cmp r0, 0
|
|
beq _08037A8C
|
|
movs r0, 0x1
|
|
_08037A8C:
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
bne _08037AA6
|
|
adds r0, r4, 0
|
|
adds r1, r5, 0
|
|
bl strcmp
|
|
cmp r0, 0
|
|
beq _08037AA0
|
|
movs r0, 0x1
|
|
_08037AA0:
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _08037AB4
|
|
_08037AA6:
|
|
movs r0, 0
|
|
b _08037B1E
|
|
.align 2, 0
|
|
_08037AAC: .4byte gUnknown_202EC40
|
|
_08037AB0: .4byte gUnknown_80E6E50
|
|
_08037AB4:
|
|
ldr r1, [sp, 0x10]
|
|
cmp r1, 0
|
|
bne _08037AC0
|
|
ldr r0, [r4, 0x10]
|
|
cmp r0, 0x1
|
|
beq _08037B1C
|
|
_08037AC0:
|
|
cmp r1, 0x1
|
|
bne _08037ACA
|
|
ldr r0, [r4, 0x10]
|
|
cmp r0, 0
|
|
beq _08037B1C
|
|
_08037ACA:
|
|
cmp r1, 0x2
|
|
bne _08037AD4
|
|
ldr r0, [r4, 0x10]
|
|
cmp r0, 0x3
|
|
beq _08037B1C
|
|
_08037AD4:
|
|
cmp r1, 0x3
|
|
bne _08037ADE
|
|
ldr r0, [r4, 0x10]
|
|
cmp r0, 0x2
|
|
beq _08037B1C
|
|
_08037ADE:
|
|
cmp r1, 0x9
|
|
bne _08037AE8
|
|
ldr r0, [r4, 0x10]
|
|
cmp r0, 0xA
|
|
beq _08037B1C
|
|
_08037AE8:
|
|
cmp r1, 0xA
|
|
bne _08037AF2
|
|
ldr r0, [r4, 0x10]
|
|
cmp r0, 0x9
|
|
beq _08037B1C
|
|
_08037AF2:
|
|
cmp r1, 0x4
|
|
bne _08037AFC
|
|
ldr r0, [r4, 0x10]
|
|
cmp r0, 0x5
|
|
beq _08037B1C
|
|
_08037AFC:
|
|
cmp r1, 0x5
|
|
bne _08037B06
|
|
ldr r0, [r4, 0x10]
|
|
cmp r0, 0x4
|
|
beq _08037B1C
|
|
_08037B06:
|
|
cmp r1, 0x6
|
|
bne _08037B10
|
|
ldr r0, [r4, 0x10]
|
|
cmp r0, 0x7
|
|
beq _08037B1C
|
|
_08037B10:
|
|
cmp r1, 0x7
|
|
bne _08037B1A
|
|
ldr r0, [r4, 0x10]
|
|
cmp r0, 0x6
|
|
beq _08037B1C
|
|
_08037B1A:
|
|
movs r6, 0
|
|
_08037B1C:
|
|
adds r0, r6, 0
|
|
_08037B1E:
|
|
add sp, 0x28
|
|
pop {r4-r6}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end sub_8037A48
|
|
|
|
thumb_func_start sub_8037B28
|
|
sub_8037B28:
|
|
push {r4,r5,lr}
|
|
sub sp, 0x14
|
|
adds r4, r0, 0
|
|
movs r5, 0
|
|
bl sub_800D414
|
|
ldr r0, _08037B58
|
|
str r5, [r0]
|
|
ldr r5, _08037B5C
|
|
mov r0, sp
|
|
movs r1, 0
|
|
movs r2, 0x14
|
|
bl MemoryFill8
|
|
mov r0, sp
|
|
adds r1, r5, 0
|
|
bl strcpy
|
|
str r4, [sp, 0x10]
|
|
mov r0, sp
|
|
movs r1, 0x14
|
|
bl sub_800D59C
|
|
b _08037B7A
|
|
.align 2, 0
|
|
_08037B58: .4byte gUnknown_202EC38
|
|
_08037B5C: .4byte gUnknown_80E6E50
|
|
_08037B60:
|
|
cmp r5, 0x3
|
|
beq _08037BCC
|
|
cmp r5, 0x4
|
|
beq _08037BD8
|
|
cmp r5, 0x5
|
|
beq _08037BF0
|
|
ldr r2, _08037BC0
|
|
ldr r1, [r2]
|
|
ldr r0, _08037BC4
|
|
cmp r1, r0
|
|
bgt _08037BE4
|
|
adds r0, r1, 0x1
|
|
str r0, [r2]
|
|
_08037B7A:
|
|
movs r4, 0
|
|
_08037B7C:
|
|
bl sub_80373C4
|
|
bl sub_8012AE8
|
|
cmp r0, 0x3
|
|
bgt _08037B8C
|
|
cmp r0, 0x2
|
|
bge _08037BF0
|
|
_08037B8C:
|
|
adds r4, 0x1
|
|
cmp r4, 0
|
|
ble _08037B7C
|
|
bl sub_800D33C
|
|
adds r5, r0, 0
|
|
bl sub_800D570
|
|
cmp r5, 0x2
|
|
bne _08037B60
|
|
bl sub_800D600
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _08037BFC
|
|
bl sub_8037A48
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
bne _08037BC8
|
|
movs r4, 0x4
|
|
bl sub_800D520
|
|
bl sub_800D510
|
|
b _08037C06
|
|
.align 2, 0
|
|
_08037BC0: .4byte gUnknown_202EC38
|
|
_08037BC4: .4byte 0x00000707
|
|
_08037BC8:
|
|
movs r4, 0
|
|
b _08037C06
|
|
_08037BCC:
|
|
bl sub_800D520
|
|
bl sub_800D510
|
|
movs r0, 0x2
|
|
b _08037C08
|
|
_08037BD8:
|
|
bl sub_800D520
|
|
bl sub_800D510
|
|
movs r0, 0x3
|
|
b _08037C08
|
|
_08037BE4:
|
|
bl sub_800D520
|
|
bl sub_800D510
|
|
movs r0, 0xF
|
|
b _08037C08
|
|
_08037BF0:
|
|
bl sub_800D520
|
|
bl sub_800D510
|
|
movs r0, 0x1
|
|
b _08037C08
|
|
_08037BFC:
|
|
movs r4, 0x5
|
|
bl sub_800D520
|
|
bl sub_800D510
|
|
_08037C06:
|
|
adds r0, r4, 0
|
|
_08037C08:
|
|
add sp, 0x14
|
|
pop {r4,r5}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end sub_8037B28
|
|
|
|
.align 2,0
|