[ASM & Hex] Refrigerate and Pixilate routine in FireRed

[Joseph 91]

I NEED HELP TO INSERT THE ABILITIES NORMALIZE, REFRIGERATE, PIXILATE AND AERILATE

Hi. Several days ago I started to insert new abilities to my hack, using as a base Fire Red 1.0, but the AMS routine that MrDollSteak posted to insert the abilities Normalize, Refrigerate, Pixilate and Aerilate, does not work for me. I do everything correctly as it says in the publication.

I want to know if someone has inserted it and if it has worked... And if someone could help me with that. Since I do not know if you have to change something in the routine.

This is the routine that does not work for me, which was published by MrDollSteak in Ability Resource Thread:

Spoiler:

.text
.align 2
.thumb
.thumb_func
.global typechangeabilities

BufferAbility:
mov r0, r6
add r0, #0x20
ldrb r1, [r0]
NormalCheck:
mov r0, r9
cmp r0, #0x0
bne NormalizeCheck
RefrigerateCheck:
cmp r1, #0xAF
bne PixilateCheck
Refrigerate:
mov r0, #0xF
b StoreType
PixilateCheck:
cmp r1, #0xB7
bne AerilateCheck
Pixilate:
mov r0, #0x17
b StoreType
AerilateCheck:
cmp r1, #0xB9
bne Return
Aerilate:
mov r0, #0x2
StoreType:
mov r9, r0
ldr r0, .ChangeTypeLoc
ldr r1, [r0]
add r1, #0x13
ldrb r1, [r1]
mov r2, #0x3F
and r2, r1
cmp r2, #0x0
bne Return
mov r2, r9
strb r2, [r1]
Boost:
mov r0, r8
mov r1, #0xA7
mul r0, r1
lsr r0, #0x7
mov r8, r0
mul r7, r1
lsr r7, #0x7
b Return
NormalizeCheck:
cmp r1, #0x61
bne Return
Normalize:
mov r0, #0x0
mov r9, r0
Return:
ldr r0, [sp, #0x4]
ldrh r0, [r0, #0xA]
str r0, [sp, #0x18]
ldrh r0, [r6, #0x2E]
cmp r0, #0xAF
bne NoEnigmaBerry
ldr r1, .Return
bx r1
NoEnigmaBerry:
ldr r0, .Return2
bx r0

.align 2
.ChangeTypeLoc: .word 0x02023FE8
.Return: .word 0x0803ED87
.Return2: .word 0x0803EDA1

Insert 01 48 00 47 00 00 xx+1 xx xx 08 at 0803ED7A