[ASM] Town Cleaner code

[MisterNobody]

I post my code here since I think it has been already made (nevertheless seperated in differents codes).

EU Version:

94000130 FFFC0000
023FF090 012FFF11
E0000000 00000046
E28F2001 E12FFF12
490E480D 2A6D5A42
2A89DD02 3A6EDA00
DA002A1B 21FF5242
31F10209 DD022A1E
DA002A25 2A1B5243
5243D100 D1002A89
39025243 4770D5E6
021E6D4C 00001FFE
023FF090 E3520003
D2000000 00000000

US Version:

94000130 FFFC0000
023FF090 012FFF11
E0000000 00000046
E28F2001 E12FFF12
490E480D 2A6D5A42
2A89DD02 3A6EDA00
DA002A1B 21FF5242
31F10209 DD022A1E
DA002A25 2A1B5243
5243D100 D1002A89
39025243 4770D5E6
021E3124 00001FFE
023FF090 E3520003
D2000000 00000000

US 1.1 Version:

94000130 FFFC0000
023FF090 012FFF11
E0000000 00000046
E28F2001 E12FFF12
490E480D 2A6D5A42
2A89DD02 3A6EDA00
DA002A1B 21FF5242
31F10209 DD022A1E
DA002A25 2A1B5243
5243D100 D1002A89
39025243 4770D5E6
021E36A4 00001FFE
023FF090 E3520003
D2000000 00000000

ASM Source:

@Thumb mode
add r2,pc,#1           
bx r2
.thumb

ldrh r0,Map
ldrh r1,MapOffset

ReviveFlowers:
ldrh r2,[r0,r1]
mov r3, #0x6F
cmp r2,r3
ble WaterFlowers
mov r3, #0x89
cmp r2,r3
bge WaterFlowers
sub r2,#0x6E

WaterFlowers:
mov r3, #0x1B
cmp r2, r3
bge RemoveWeeds
strh r2, [r0,r1]

RemoveWeeds:
mov r3, #0x1E
ldrh r5,Nothing
cmp r2,r3
ble RemoveRafflesia
mov r3, #0x25
cmp r2,r3
bge RemoveRafflesia
strh r5, [r0,r1]

RemoveRafflesia:
mov r3, #0x1B
cmp r2, r3
bne RemoveRafflesia2
strh r5, [r0,r1]

RemoveRafflesia2:
mov r3, #0x89
bne End
strh r5, [r0,r1]

End:
sub r1,#2
bpl ReviveFlowers

bx lr

.arm
Map:
.long 0x21E6D4C
MapOffset:
.short 0x1FFE
Nothing:
.short 0xFFF1

Activator: A+B

Features:
- Revive all flowers
- Water all flowers
- Remove all weeds
- Remove Rafflesias

Thanks to Demonic.