Pokémon Gold: Get TM36 in Balls pocket 1 with Coin Case

Get TM36 in balls pocket 1
========

Ap'va'vZ'v-
é7(female symbol)p'v7'v'd
é-2péD9'l
'l5555555
A'lx'd

;code begins box 1 character 2 (D8C0)
xor a
sub a0
sub 99
sub e3
ld d,b
ld (f5fd),a
xor a
sub fd
sub d0
ld d,b
ld (f8e3),a
xor a
ld (ff83),a
pop de
ld d,b
pop de
ei
ei
ei
ei
ei
ei
ei
ld d,b
add b
pop de
or a
ret nc