relicsong.asm

.org 0xC81000
push {r4-r6,lr}
ldr r1, .CurrentBattScript
ldr r0, [r1, #0x0]
add r0, #0x1
str r0, [r1, #0x0]

FindUser:
ldr r1, .UserBank
ldrb r0, [r1, #0x0]
cmp r0, #0x0
beq ResolvePlayer
cmp r0, #0x2
beq ResolvePlayer
b ResolveEnemy

ResolvePlayer:
ldr r2, .PlayerParty
b ResolveGeneral

ResolveEnemy:
ldr r2, .EnemyParty

ResolveGeneral:
ldr r3, .ActiveBanks
add r3, r3, r0
ldrb r0, [r3, #0x0]

#At this point r0=slot in party
#And r2=start of party

mov r1, #0x64
mul r0, r1
add r0, r2
mov r5, r0
mov r1, #0xB
bl Decrypter
mov r1, #0xFC
cmp r0, r1
beq ResolveAria
mov r1, #0xFD
cmp r0, r1
beq ResolvePirouette
b Done

ResolveAria:
mov r4, #0xFD
mov r6, #0x1
mov r0, r5
mov r1, #0xB
mov r2, r4
push {r2}
mov r2, sp
bl Encrypter
pop {r2}
b ResolveStats

ResolvePirouette:
mov r4, #0xFC
mov r6, #0xE
mov r0, r5
mov r1, #0xB
mov r2, r4
push {r2}
mov r2, sp
bl Encrypter
pop {r2}
b ResolveStats

ResolveStats:
mov r0, r5
bl Recalc

UpdateBattleStruct:
ldrb r0, .UserBank
ldr r1, .BattleStructs
mov r2, #0x58
ldrb r0, [r0, #0x0]
mul r0, r2
add r0, r1
strh r4, [r0, #0x0]
mov r1, #0x0
add r0, #0x20
strb r1, [r0, #0x1]
strb r6, [r0, #0x2]
sub r0, #0x20

mov r4, r0
mov r0, r5
mov r1, #0x3B
bl Decrypter
strh r0, [r4, #0x2]
mov r0, r5
mov r1, #0x3C
bl Decrypter
strh r0, [r4, #0x4]
mov r0, r5
mov r1, #0x3D
bl Decrypter
strh r0, [r4, #0x6]
mov r0, r5
mov r1, #0x3E
bl Decrypter
strh r0, [r4, #0x8]
mov r0, r5
mov r1, #0x3F
bl Decrypter
strh r0, [r4, #0xA]


Done:
pop {r4-r6}
pop {r0}
bx r0

Decrypter:
ldr r3, .Decrypt_Addr
bx r3

Encrypter:
ldr r3, .Encrypt_Addr
bx r3

Recalc:
ldr r3, .Recalc_Addr
bx r3

.CurrentBattScript: .word 0x02023d74
.UserBank: .word 0x02023D6B
.ActiveBanks: .word 0x02023bce
.PlayerParty: .word 0x02024284
.EnemyParty: .word 0x0202402C
.BattleStructs: .word 0x02023be4
.Decrypt_Addr: .word 0x0803fbe9
.Encrypt_Addr: .word 0x0804037d
.Recalc_Addr: .word 0x0803e47d