ld a,0ffh
cp h
jr nz,l9ddahsub_9d9ah
ld de,00000h
ld hl,00014h
ld (0a410h),hl
ret
l9ddahsub_9d9ah:
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
l9ef5h:
pop de
ret
sub_9eb7h:
ld hl,(0a41ah)
ld de,(0a412h)
l9efeh:
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
l9f15h:
ld de,0ffech
ld hl,00000h
call 0bbc3h ;; gra move relative
ld bc,(0a420h)
l9f22h:
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)