Juna Fruit WIP

.thumb
push    {r0-r3}
ldr r0, rand
ldrb    r0, [r0]
mov r1, #5
swi 6
add r1, #1
ldr     r2, return
ldr r0, currentCharacter
ldr r0, [r0]
ldrb    r3, [r0, #8]
sub r3, r1
strb    r3, [r0, #8]
ldrb    r3, [r0, #9]
cmp r3, #0xFF
bne Done
mov r3, #0
strb    r3, [r0, #9]
Done:
mov lr, r2
pop {r0-r3}
bx  lr

.align
currentCharacter:
    .long   0x3004690
rand:
    .long   0x3000010
return:
    .long   0x802D20F