.thumb
.align 2
 
main:
    push {r4-r7, lr}
    ldr r5, =(0x20370B8)
    mov r7, r5
    mov r6, r5
    add r5, r5, #0x8
    ldrb r6, [r6]
    mov r0, #0xD
    mul r6, r6, r0 @type * 0xD
    add r6, r6, #0x1A
    ldrb r5, [r5]
    mov r0, #0x64
    mul r5, r5, r0
    ldr r0, =(0x2024284)
    add r5, r5, r0 @slot address
    mov r4, #0x0
   
loop:
    cmp r4, #0x6
    bge end    
    mov r0, r5
    mov r1, r6
    add r1, r1, r4
    mov r2, SP  
    ldr r3, =(0x0803FBE9)
    bl link_r3
    strh r0, [r7]
    add r4, r4, #0x1
    add r7, r7, #0x2
    b loop
   
link_r3:
    bx r3  
   
end:  
    pop {r4-r7, pc}
 
 
.align 2