Changes
        ld a,0ffh
        cp h
        jr nz,l9ddahsub_9d9ah
        ld de,00000h
        ld hl,00014h
        ld (0a410h),hl
        ret
        pop bc
        ld (0a410h),hl
        call sub_09dbeh
        call 0bbc0h ;; gra move absolute
sub_9e52h:
        call sub_09ed2h
        call sub_09de6h
        call 0bb1eh ;; km test key
        ret z
        jp l9e52hsub_9e52h
l9ea9h:
        cp h
        ret nz
        pop de
        ret
sub_9eb7h:
        ld hl,(0a41ah)
        ld de,(0a412h)
        and a
        sbc hl,de
        ret z
        jp p,09ecbhl9ecbh 
        ld hl,l9f15h
        jp 09ecehl09eceh l9ecbh:        ld hl,09ed2hsub_9ed2hl9f0ehl9eceh:
        ld (l9e52h+1),hl
        ret
sub_9ed2h:
        call sub_9e98h
        ld de,0ffech
        ld hl,00000h
        call 0bbc3h ;; gra move relative
        ld bc,(0a420h)
        push bc
        ld de,00000h
        ld a,0ffh
        cp h
        jp nz,l9efehsub_9efehsub_9ef5h:
        ld hl,(0a422h)
        ld (0a410h),hl
        jp l9d9ahsub_9d9ah sub_9efeh:
        ld (0a422h),hl
        ld de,(0a416h)
        ld (0a410h),hl
        ret
sub_9f82h:
        call sub_9e98h
        ld bc,(0a420h)
        ld a,0ffh
        cp h
        jp z,l9ef5hsub_9ef5h 
        ld (0a422h),hl
        ld de,(0a416h)
