thfan様が公開しているものを改変したプログラムです。詳細は下記リンクへどうぞ。
本家様が更新され次第、このページは削除いたします。予めご了承ください。

リンク：https://blogs.yahoo.co.jp/qawsedrftgyflanlp/17399104.html


WRA1:D9B3 21 58 DA	ld hl,DA58
WRA1:D9B6 CD 0A DA	call DA0A
WRA1:D9B9 E5		push hl
WRA1:D9BA 54		ld d,h
WRA1:D9BB 5D		ld e,l
WRA1:D9BC 3E F8		ld a,F8
WRA1:D9BE 83		add e
WRA1:D9BF 5F		ld e,a
WRA1:D9C0 38 01		jr c,+01
WRA1:D9C2 15		dec d
WRA1:D9C3 06 12		ld b,12
WRA1:D9C5 21 AB C3	ld hl,C3AB
WRA1:D9C8 3E 7C		ld a,7C
WRA1:D9CA 22		ldi (hl),a
WRA1:D9CB 7A		ld a,d
WRA1:D9CC CD FE D9	call D9FE
WRA1:D9CF 7A		ld a,d
WRA1:D9D0 CD 00 DA	call DA00
WRA1:D9D3 7B		ld a,e
WRA1:D9D4 CD FE D9	call D9FE
WRA1:D9D7 7B		ld a,e
WRA1:D9D8 CD 00 DA	call DA00
WRA1:D9DB 3E 7F		ld a,7F
WRA1:D9DD 22		ldi (hl),a
WRA1:D9DE 1A		ld a,(de)
WRA1:D9DF CD FE D9	call D9FE
WRA1:D9E2 1A		ld a,(de)
WRA1:D9E3 CD 00 DA	call DA00
WRA1:D9E6 36 7C		ld (hl),7C
WRA1:D9E8 3E 0C		ld a,0C
WRA1:D9EA 85		add l
WRA1:D9EB 6F		ld l,a
WRA1:D9EC 30 01		jr nc,+01
WRA1:D9EE 24		inc h
WRA1:D9EF 1C		inc e
WRA1:D9F0 20 01		jr nz,+01
WRA1:D9F2 14		inc d
WRA1:D9F3 05		dec b
WRA1:D9F4 20 D2		jr nz,-2E
WRA1:D9F6 21 4B C4	ld hl,C44B
WRA1:D9F9 36 ED		ld (hl),ED
WRA1:D9FB E1		pop hl
WRA1:D9FC 18 B8		jr -48

WRA1:D9FE CB 37		swap a
WRA1:DA00 E6 0F		and a,0F
WRA1:DA02 C6 F6		and a,F6
WRA1:DA04 30 02		jr nc,+02
WRA1:DA06 C6 60		add a,60
WRA1:DA08 22		ldi (hl),a
WRA1:DA09 C9		ret

WRA1:DA0A CD 67 38	call 3867
WRA1:DA0D F0 B3		ld a,(ff00+B3)
WRA1:DA0F CB 57		bit 2,a
WRA1:DA11 28 01		jr z,+01
WRA1:DA13 E9		jp hl
WRA1:DA14 CB 5F		bit 3,a
WRA1:DA16 28 02		jr z,+02
WRA1:DA18 C1		pop bc
WRA1:DA19 C9		ret
WRA1:DA1A CB 77		bit 6,a
WRA1:DA1C 28 04		jr z,+04
WRA1:DA1E 3E FF		a,FF
WRA1:DA20 18 15		jr +15
WRA1:DA22 CB 7F		bit 7,a
WRA1:DA24 28 04		jr z,+04
WRA1:DA26 3E 01		ld a,01
WRA1:DA28 18 0D		jr +0D
WRA1:DA2A CB 67		bit 4,a
WRA1:DA2C 28 04		jr z,+04
WRA1:DA2E 3E 10		ld a,10
WRA1:DA30 18 05		jr z,+05
WRA1:DA32 CB 6F		bit 5,a
WRA1:DA34 C8		ret z
WRA1:DA35 3E F0		ld a,F0
WRA1:DA37 CB 43		bit 0,e
WRA1:DA39 28 03		jr z,+03
WRA1:DA3B 86		add (hl)
WRA1:DA3C 77		ld (hl),a
WRA1:DA3D C9		ret
WRA1:DA3E CB 4B		bit 1,e
WRA1:DA40 28 03		jr z,+03
WRA1:DA42 84		add h
WRA1:DA43 67		ld h,a
WRA1:DA44 C9		ret
WRA1:DA45 CB 7F		bit 7,a
WRA1:DA47 28 05		jr +05
WRA1:DA49 85		add l
WRA1:DA4A 6F		ld l,a
WRA1:DA4B D8		ret c
WRA1:DA4C 25		dec h
WRA1:DA4D C9		ret
WRA1:DA4E 85		add l
WRA1:DA4F 6F		ld l,a
WRA1:DA50 D0		ret nc
WRA1:DA51 24		inc h
WRA1:DA52 C9		ret


	;※下記座標において対象となっている値は、移動する際にその数だけ加減する必要がある。
	;WRA1:D(9(B6|CC|D(0|4|8|F)|E3)|A19)