[fr] mod experience w vars

/* Poner 00 48 00 47 XX XX XX 08 a 0x21C38 */
.text
.align 2
.thumb
.thumb_func

EditarExperiencia:
    push {r1}
    ldr r0, .VarDenominador        /* Puedes cambiarla */
    mov r3, pc
    add r3, #7
    mov lr, r3
    ldr r3, .VarGet
    bx r3
    cmp r0, #0
    beq _dontdividebyzero
_continue:
    push {r0}
    ldr r0, .VarNumerador
    mov r3, pc
    add r3, #7
    mov lr, r3
    ldr r3, .VarGet
    bx r3
_terminar:
    pop {r1-r2}
    mul r0, r2
    mov r3, pc
    add r3, #7
    mov lr, r3
    ldr r3, .Dividir
    bx r3
    ldr r2, .Volver
    bx r2

_dontdividebyzero:
    mov r0, #1
    b _continue

.align 2


.Volver:
    .word 0x08021C40 | 1
.VarNumerador:
    .word 0x40XX
.VarDenominador:
    .word 0x40XX
.VarGet:
    .word 0x0806E568 | 1
.Dividir:
    .word 0x081E4018 | 1