[Plat Research] Great Marsh routine ?

Function_202b3d8: @ 202b3d8 :thumb
    push    {r3-r7,lr}
    mov     r5, r0
    mov     r6, r1
    mov     r7, #0x0
branch_202b3e0: @ 202b3e0 :thumb
    mov     r4, #0x0                    ; r4 = 0
    cmp     r6, #0x0                    ; compare r6 with 0
    bls     branch_202b3f4              ; branch if r6 <= 0
branch_202b3e6: @ 202b3e6 :thumb
    ldr     r0, [r5, #0x28]             ; r0 = [r5 + 0x28]
    bl      Function_201d30c            ; RNG advancement
    .hword  0x1c64 @ add r4, r4, #0x1   ;    ??
    str     r0, [r5, #0x28]             ; [r5 + 0x28] = r0
    cmp     r4, r6                      ; compare r4 with r6
    blo     branch_202b3e6              ; jump if r4 < r6   (loop)
branch_202b3f4: @ 202b3f4 :thumb
    .hword  0x1c7f @ add r7, r7, #0x1   ;   ??
    add     r5, #0x2c                   ; r5 = r5 + 0x2c
    cmp     r7, #0x6                    ; compare r7 and 0x6
    blo     branch_202b3e0              ; branch if r7 < 0x6
    pop     {r3-r7,pc}
@ 0x202b3fe

; USED ONLY IN THE NEXT FUNCTION

Function_2055ac0: @ 2055ac0 :thumb
    push    {r4-r6,lr}
    mov     r4, r1
    mov     r5, r0
    bl      GetOverWorldData_VariableAreaAdresses
    mov     r1, r4
    bl      Function_2028658
    mov     r0, r5
    bl      Function_203f1fc
    ldr     r0, [r5, #0xc]
    mov     r1, r4
    bl      Function_206c2d0
    ldr     r0, [r5, #0xc]
    bl      LoadVariableAreaAdress_11
    mov     r1, r4
    bl      Function_202b3d8
    ldr     r0, [r5, #0xc]
    bl      LoadVariableAreaAdress_19
    mov     r6, r0
    ldr     r0, [r5, #0xc]
    bl      LoadVariableAreaAdress_11
    bl      Function_202b428
    mov     r1, r0
    mov     r0, r6
    bl      Function_202d80c
    ldr     r0, [r5, #0xc]
    bl      LoadPokePartyAdress
    mov     r1, r4
    bl      Function_20777b4
    ldr     r0, [r5, #0xc]
    bl      LoadFlagAdress
    mov     r6, r0
    bl      Function_206b260
    cmp     r0, r4
    ble     branch_2055b28
    sub     r0, r0, r4
    lsl     r0, r0, #16
    lsr     r1, r0, #16
    b       branch_2055b2a