Merge pull request #40 from Pokeglitch/master

Full dump of Bank 1

1 files changed, 4090 insertions, 0 deletions

diff --git a/engine/dumps/bank01.asm b/engine/dumps/bank01.asm
new file mode 100755
index 0000000..0ae1ffe
--- /dev/null
+++ b/engine/dumps/bank01.asm
@@ -0,0 +1,4090 @@
+include "constants.asm"
+
+SECTION "engine/dumps/bank01.asm@Function40fd", ROMX
+
+Function40fd: ; 01:40fd
+	ld hl, wd41a
+	set 5, [hl]
+	ld hl, wd41a
+	set 7, [hl]
+	ld hl, wd41a
+	set 0, [hl]
+	ld hl, wd41a
+	set 3, [hl]
+	ld hl, wd41a
+	set 6, [hl]
+	ld hl, wd41a
+	set 6, [hl]
+	ld hl, wd41e
+	set 5, [hl]
+	ld hl, wd41b
+	set 1, [hl]
+	ld hl, wd41c
+	set 4, [hl]
+	ld hl, wd41d
+	set 2, [hl]
+	ld hl, wd41b
+	set 2, [hl]
+	ld a, $01
+	ld [wd29a], a
+	ld a, $01
+	ld [wd29b], a
+	ld a, $06
+	ld [wd29c], a
+	ld a, $12
+	ld [wd29d], a
+	ld a, $06
+	ld [wd29e], a
+	ld a, $02
+	ld [wd2a0], a
+	ret
+
+SECTION "engine/dumps/bank01.asm@Table416b", ROMX
+
+Table416b:
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41ef
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41ef
+	dw Unknown420f
+	dw Unknown41f3
+	dw Unknown4203
+	dw Unknown41f7
+	dw Unknown4203
+	dw Unknown41f3
+	dw Unknown4203
+	dw Unknown41f7
+	dw Unknown420f
+	dw Unknown41fb
+	dw Unknown4203
+	dw Unknown41ff
+	dw Unknown4203
+	dw Unknown41fb
+	dw Unknown4203
+	dw Unknown41ff
+	dw Unknown4203
+	dw Unknown41fb
+	dw Unknown420f
+	dw Unknown41ff
+	dw Unknown420f
+	dw Unknown41fb
+	dw Unknown420f
+	dw Unknown41ff
+	dw Unknown420f
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+	dw Unknown41eb
+	dw Unknown4203
+
+Unknown41eb: ; 01:41eb
+	db $00, $01, $02, $03
+	
+Unknown41ef: ; 01:41ef
+	db $80, $81, $82, $83
+	
+Unknown41f3: ; 01:41f3
+	db $04, $05, $06, $07
+	
+Unknown41f7: ; 01:41f7
+	db $84, $85, $86, $87
+	
+Unknown41fb: ; 01:41fb
+	db $08, $09, $0a, $0b
+	
+Unknown41ff: ; 01:41ff
+	db $88, $89, $8a, $8b
+	
+Unknown4203: ; 01:4203
+	db $00, $00, $00, $00
+	db $08, $00, $08, $00
+	db $02, $08, $08, $03
+	
+Unknown420f: ; 01:420f
+	db $00, $08, $20, $00
+	db $00, $20, $08, $08
+	db $22, $08, $00, $23
+	
+Table421b: ; 01:421b
+	dw Unknown423b
+	dw Unknown424b
+	dw Unknown423b
+	dw Unknown425b
+	dw Unknown426b
+	dw Unknown427b
+	dw Unknown426b
+	dw Unknown428b
+	dw Unknown429b
+	dw Unknown42bb
+	dw Unknown429b
+	dw Unknown42bb
+	dw Unknown42ab
+	dw Unknown42cb
+	dw Unknown42ab
+	dw Unknown42cb
+	
+Unknown423b: ; 01:423b
+	db $00, $00, $00, $00
+	db $00, $08, $01, $00
+	db $08, $00, $02, $02
+	db $08, $08, $03, $03
+	
+Unknown424b: ; 01:424b
+	db $00, $00, $80, $00
+	db $00, $08, $81, $00
+	db $08, $00, $82, $02
+	db $08, $08, $83, $03
+
+Unknown425b: ; 01:425b
+	db $00, $08, $80, $20
+	db $00, $00, $81, $20
+	db $08, $08, $82, $22
+	db $08, $00, $83, $23
+	
+Unknown426b: ; 01:426b
+	db $00, $00, $04, $00
+	db $00, $08, $05, $00
+	db $08, $00, $06, $02
+	db $08, $08, $07, $03
+	
+Unknown427b: ; 01:427b
+	db $00, $00, $84, $00
+	db $00, $08, $85, $00
+	db $08, $00, $86, $02
+	db $08, $08, $87, $03
+	
+Unknown428b: ; 01:428b
+	db $00, $08, $84, $20
+	db $00, $00, $85, $20
+	db $08, $08, $86, $22
+	db $08, $00, $87, $23
+	
+Unknown429b: ; 01:429b
+	db $00, $00, $08, $00
+	db $00, $08, $09, $00
+	db $08, $00, $0a, $02
+	db $08, $08, $0b, $03
+	
+Unknown42ab: ; 01:42ab
+	db $00, $08, $08, $20
+	db $00, $00, $09, $20
+	db $08, $08, $0a, $22
+	db $08, $00, $0b, $23
+	
+Unknown42bb: ; 01:42bb
+	db $00, $00, $88, $00
+	db $00, $08, $89, $00
+	db $08, $00, $8a, $02
+	db $08, $08, $8b, $03
+	
+Unknown42cb: ; 01:42cb
+	db $00, $08, $88, $20
+	db $00, $00, $89, $20
+	db $08, $08, $8a, $22
+	db $08, $00, $8b, $23
+	
+Function42db: ; 01:42db
+	ld bc, wCmdQueue
+	ld a, $01
+.sub_42e0
+	ldh [hConnectedMapWidth], a
+	ld hl, $0000
+	add hl, bc
+	ld a, [hl]
+	and a
+	jr z, .sub_42ed
+	call .sub_42fb
+.sub_42ed
+	ld hl, $0010
+	add hl, bc
+	ld b, h
+	ld c, l
+	ldh a, [hConnectedMapWidth]
+	inc a
+	cp $05
+	jr nz, .sub_42e0
+	ret
+.sub_42fb
+	ld hl, $0001
+	add hl, bc
+	ld a, [hl]
+	ld hl, Table431d
+	call CallJumptable
+	ld hl, $0000
+	add hl, bc
+	ld a, [hl]
+	and a
+	ret z
+	ld hl, $0002
+	add hl, bc
+	ld e, [hl]
+	ld d, $00
+	ld hl, Table4329
+	add hl, de
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp hl
+	
+Table431d::
+	dw Function4333
+	dw Function439e
+	dw Function4430
+	dw Function4374
+	dw Function4374
+	dw Function43c9
+	
+Table4329::
+	dw Function4334
+	dw Function4452
+	dw Function4459
+	dw Function446c
+	dw Function4495
+	
+Function4333: ; 01:4333
+	ret
+
+Function4334: ; 01:4334
+	ret
+
+Function4335: ; 01:4335
+	push bc
+	ld h, b
+	ld l, c
+	ld bc, $0010
+	xor a
+	call ByteFill
+	pop bc
+	ret
+
+Function4341: ; 01:4341
+	ld hl, $000a
+	add hl, bc
+	inc [hl]
+	ret
+
+Function4347: ; 01:4347
+	pop hl
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	ld hl, $000a
+	add hl, bc
+	ld l, [hl]
+	ld h, $00
+	add hl, hl
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp hl
+
+Function4358: ; 01:4358
+	ld hl, $000a
+	add hl, bc
+	ld a, [hl]
+	add a
+	ld l, a
+	ld h, $00
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp hl
+
+Function4366: ; 01:4366
+	push bc
+	ld hl, $0000
+	add hl, bc
+	ld a, [hl]
+	dec a
+	call GetObjectStruct
+	ld d, b
+	ld e, c
+	pop bc
+	ret
+
+Function4374: ; 01:4374
+	ld de, Table437a
+	jp Function4358
+	
+Table437a: ; 01:437a
+	dw Function437e
+	dw Function439b
+	
+Function437e: ; 01:437e
+	call Function4341
+	ld hl, $000e
+	add hl, bc
+	ld a, [hl]
+	ld hl, $000b
+	add hl, bc
+	ld [hl], a
+	ld hl, $0006
+	add hl, bc
+	ld [hl], $00
+	ld hl, $000f
+	add hl, bc
+	ld a, [hl]
+	ld hl, $0007
+	add hl, bc
+	ld [hl], a
+	
+Function439b: ; 01:439b
+	jp Function4402
+
+Function439e: ; 01:439e
+	ld de, Table43a4
+	jp Function4358
+	
+Table43a4: ; 01:43a4
+	dw Function43a8
+	dw Function43c6
+
+Function43a8: ; 01:43a8
+	call Function4341
+	call Function4366
+	ld hl, $0009
+	add hl, de
+	ld a, [hl]
+	add a
+	dec a
+	ld hl, $000b
+	add hl, bc
+	ld [hl], a
+	ld hl, $0006
+	add hl, bc
+	ld [hl], $00
+	ld hl, $0007
+	add hl, bc
+	ld [hl], $08
+
+Function43c6: ; 01:43c6
+	jp Function4402
+
+Function43c9: ; 01:43c9
+	ld de, Table43cf
+	jp Function4358
+
+Table43cf: ; 01:43cf
+	dw Function43d3
+	dw Function43ff
+
+Function43d3: ; 01:43d3
+	call Function4366
+	ld hl, $0009
+	add hl, de
+	ld a, [hl]
+	add $01
+	ld hl, $000b
+	add hl, bc
+	ld [hl], a
+	ld hl, $000e
+	add hl, bc
+	ld a, [hl]
+	ld hl, $0006
+	add hl, bc
+	ld [hl], a
+	ld hl, $000f
+	add hl, bc
+	ld a, [hl]
+	ld hl, $0007
+	add hl, bc
+	ld [hl], a
+	ld hl, $000d
+	add hl, bc
+	ldh a, [rOBP1]
+	ld [hl], a
+	ldh [rOBP1], a
+
+Function43ff: ; 01:43ff
+	jp Function4402
+
+Function4402: ; 01:4402
+	ld hl, $000b
+	add hl, bc
+	ld a, [hl]
+	and a
+	jr z, .sub_440e
+	dec [hl]
+	jp z, Function4335
+.sub_440e
+	call Function4366
+	ld hl, $0018
+	add hl, de
+	ld a, [hl]
+	ld hl, $0006
+	add hl, bc
+	add [hl]
+	ld hl, $0004
+	add hl, bc
+	ld [hl], a
+	ld hl, $0019
+	add hl, de
+	ld a, [hl]
+	ld hl, $0007
+	add hl, bc
+	add [hl]
+	ld hl, $0005
+	add hl, bc
+	ld [hl], a
+	ret
+
+Function4430: ; 01:4430
+	ld hl, Table4436
+	jp Function4358
+	
+Table4436: ; 01:4436
+	dw Function443a
+	dw Function444f
+	
+Function443a: ; 01:443a
+	call Function4341
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $31
+	ld hl, $0006
+	add hl, bc
+	ld [hl], $00
+	ld hl, $0007
+	add hl, bc
+	ld [hl], $f0
+
+Function444f: ; 01:444f
+	jp Function4402
+
+Function4452: ; 01:4452
+	ld hl, $000c
+	add hl, bc
+	ld [hl], $02
+	ret
+
+Function4459: ; 01:4459
+	ld hl, $000b
+	add hl, bc
+	ld a, [hl]
+	cp $30
+	ld a, $01
+	jr c, .sub_4466
+	ld a, $00
+.sub_4466
+	ld hl, $000c
+	add hl, bc
+	ld [hl], a
+	ret
+
+Function446c: ; 01:446c
+	ld hl, $0009
+	add hl, bc
+	inc [hl]
+	ld a, [hl]
+	cp $05
+	jr c, .sub_4480
+	xor a
+	ld [hl], a
+	ld hl, $0008
+	add hl, bc
+	ld a, [hl]
+	xor $01
+	ld [hl], a
+.sub_4480
+	ld hl, $0008
+	add hl, bc
+	ld a, $00
+	bit 0, [hl]
+	jr z, .sub_448f
+	ld hl, $000d
+	add hl, bc
+	ld a, [hl]
+.sub_448f
+	ld hl, $000c
+	add hl, bc
+	ld [hl], a
+	ret
+
+Function4495: ; 01:4495
+	ld hl, $0009
+	add hl, bc
+	inc [hl]
+	ld a, [hl]
+	cp $03
+	ld a, $03
+	jr nz, .sub_44a5
+	xor a
+	ld [hl], a
+	ld a, $04
+.sub_44a5
+	ld hl, $000c
+	add hl, bc
+	ld [hl], a
+	ret
+	
+Table44ab: ; 01:44ab
+	dw Unknown44b5
+	dw Unknown44b6
+	dw Unknown44c7
+	dw Unknown44d0
+	dw Unknown44e1
+	
+Unknown44b5: ; 01:44b5
+	db $00
+	
+Unknown44b6: ; 01:44b6
+	db $04, $00, $00, $00
+	db $00, $00, $08, $01
+	db $00, $08, $00, $02
+	db $00, $08, $08, $03, $00
+	
+Unknown44c7: ; 01:44c7
+	db $02, $00, $00, $00
+	db $00, $00, $08, $00, $20
+	
+Unknown44d0: ; 01:44d0
+	db $04, $00, $00, $00
+	db $00, $00, $08, $00
+	db $00, $08, $00, $00
+	db $00, $08, $08, $00, $00
+	
+Unknown44e1: ; 01:44e1
+	db $04, $00, $00, $00
+	db $40, $00, $08, $00
+	db $40, $08, $00, $00
+	db $40, $08, $08, $00, $40
+	
+Function44f2: ; 01:44f2
+	ld hl, $0008
+	add hl, bc
+	ld a, [hl]
+	and a
+	jr nz, .sub_44fd
+	call Function486a
+.sub_44fd
+	ld e, a
+	ld d, $00
+	ld hl, Function4545
+	push hl
+	ld hl, $0005
+	add hl, bc
+	bit 5, [hl]
+	jp nz, Function453e
+	ld hl, Table4516
+	add hl, de
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp hl
+	
+Table4516::
+	dw Function486a
+	dw Function47b8
+	dw Function4b88
+	dw Function4b65
+	dw Function4b78
+	dw Function4bc9
+	dw Function4baa
+	dw Function484d
+	dw Function4856
+	dw Function4859
+	dw Function485c
+	dw Function485f
+	dw Function485f
+	dw Function485f
+	dw Function485f
+	dw Function4ed5
+	dw Function4f14
+	dw Function4a05
+	dw Function4a8b
+	dw Function4869
+	
+Function453e: ; 01:453e
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $02
+	ret
+	
+Function4545: ; 01:4545
+	ld hl, $0005
+	add hl, bc
+	bit 6, [hl]
+	jr nz, Function4560
+	ld hl, $000a
+	add hl, bc
+	ld a, [hl]
+	ld hl, Table4558
+	jp CallJumptable
+	
+Table4558: ; 01:4558
+	dw Function4560
+	dw Function4567
+	dw Function4593
+	dw Function45a0
+
+Function4560: ; 01:4560
+	ld hl, $000d
+	add hl, bc
+	ld [hl], $ff
+	ret
+
+Function4567: ; 01:4567
+	ld hl, $0004
+	add hl, bc
+	bit 3, [hl]
+	jr nz, Function4593
+	ld hl, $0005
+	add hl, bc
+	bit 5, [hl]
+	jr nz, Function4593
+	ld hl, $000b
+	add hl, bc
+	ld a, [hl]
+	inc a
+	and $0f
+	ld [hl], a
+	rrca
+	rrca
+	and $03
+	ld d, a
+	ld hl, $0007
+	add hl, bc
+	ld a, [hl]
+	and $0c
+	or d
+	ld hl, $000d
+	add hl, bc
+	ld [hl], a
+	ret
+
+Function4593: ; 01:4593
+	ld hl, $0007
+	add hl, bc
+	ld a, [hl]
+	and $0c
+	ld hl, $000d
+	add hl, bc
+	ld [hl], a
+	ret
+
+Function45a0: ; 01:45a0
+	ld hl, $000b
+	add hl, bc
+	ld a, [hl]
+	and $f0
+	ld e, a
+	ld a, [hl]
+	inc a
+	and $0f
+	ld d, a
+	cp $04
+	jr c, .sub_45b9
+	ld d, $00
+	ld a, e
+	add $10
+	and $30
+	ld e, a
+.sub_45b9
+	ld a, d
+	or e
+	ld [hl], a
+	swap e
+	ld d, $00
+	ld hl, Unknown45d0
+	add hl, de
+	ld a, [hl]
+	ld hl, $0007
+	add hl, bc
+	ld [hl], a
+	ld hl, $000d
+	add hl, bc
+	ld [hl], a
+	ret
+	
+Unknown45d0: ; 01:45d0
+	db $00, $0C, $04, $08
+
+Function45d4: ; 01:45d4
+	ld hl, $0010
+	add hl, bc
+	ld a, [hl]
+	ld hl, $0012
+	add hl, bc
+	ld [hl], a
+	ld hl, $0011
+	add hl, bc
+	ld a, [hl]
+	ld hl, $0013
+	add hl, bc
+	ld [hl], a
+	ld hl, $000e
+	add hl, bc
+	ld a, [hl]
+	ld hl, $000f
+	add hl, bc
+	ld [hl], a
+	call Function464c
+	ld hl, $000e
+	add hl, bc
+	ld a, [hl]
+	call Function4636
+	ret
+
+Function45fe: ; 01:45fe
+	ld hl, $0012
+	add hl, bc
+	ld a, [hl]
+	ld hl, $0010
+	add hl, bc
+	ld [hl], a
+	ld hl, $0013
+	add hl, bc
+	ld a, [hl]
+	ld hl, $0011
+	add hl, bc
+	ld [hl], a
+	ret
+
+Function4613: ; 01:4613
+	ld hl, $0005
+	add hl, bc
+	bit 3, [hl]
+	jr z, .sub_4623
+	ld hl, $000e
+	add hl, bc
+	ld a, [hl]
+	call Function464c
+.sub_4623
+	nop
+	ld hl, $000e
+	add hl, bc
+	ld a, [hl]
+	call Function4636
+	ret c
+	ld hl, $000f
+	add hl, bc
+	ld a, [hl]
+	call Function4636
+	ret
+
+Function4636: ; 01:4636
+	and $f0
+	cp $70
+	nop
+	nop
+	ld hl, $0005
+	add hl, bc
+	res 7, [hl]
+	and a
+	ret
+	
+Function4644: ; 01:4644
+	ld hl, $0005
+	add hl, bc
+	set 7, [hl]
+	scf
+	ret
+
+Function464c: ; 01:464c
+	call .sub_465f
+	jr c, .sub_4658
+	ld hl, $0005
+	add hl, bc
+	set 3, [hl]
+	ret
+.sub_4658
+	ld hl, $0005
+	add hl, bc
+	res 3, [hl]
+	ret
+.sub_465f
+	ld d, a
+	and $f0
+	cp $10
+	jr z, .sub_466c
+	cp $20
+	jr z, .sub_4672
+	scf
+	ret
+.sub_466c
+	ld a, d
+	and $07
+	ret z
+	scf
+	ret
+.sub_4672
+	ld a, d
+	and $07
+	ret z
+	scf
+	ret
+
+Function4678: ; 01:4678
+	xor a
+	ld hl, $000a
+	add hl, bc
+	ld [hl], a
+	ld hl, $000b
+	add hl, bc
+	ld [hl], a
+	ld hl, $0006
+	add hl, bc
+	ld [hl], $ff
+	ret
+	
+Function468a: ; 01:468a
+	and $0f
+	ld hl, $0006
+	add hl, bc
+	ld [hl], a
+	ld hl, $0004
+	add hl, bc
+	bit 2, [hl]
+	jr nz, Function46a2
+	ld hl, $0007
+	add hl, bc
+	add a
+	add a
+	and $0c
+	ld [hl], a
+
+Function46a2: ; 01:46a2
+	call Function46e5
+	ld hl, $0009
+	add hl, bc
+	ld [hl], a
+	ld a, d
+	call Function4748
+	ld hl, $0012
+	add hl, bc
+	add [hl]
+	ld hl, $0010
+	add hl, bc
+	ld [hl], a
+	ld d, a
+	ld a, e
+	call Function4748
+	ld hl, $0013
+	add hl, bc
+	add [hl]
+	ld hl, $0011
+	add hl, bc
+	ld [hl], a
+	ld e, a
+	push bc
+	call GetCoordTile
+	pop bc
+	ld hl, $000e
+	add hl, bc
+	ld [hl], a
+	ret
+
+Function46d3: ; 01:46d3
+	call Function46e5
+	ld hl, $0018
+	add hl, bc
+	ld a, [hl]
+	add d
+	ld [hl], a
+	ld hl, $0019
+	add hl, bc
+	ld a, [hl]
+	add e
+	ld [hl], a
+	ret
+
+Function46e5: ; 01:46e5
+	ld hl, $0006
+	add hl, bc
+	ld l, [hl]
+	ld h, $00
+	add hl, hl
+	add hl, hl
+	ld de, Table4708
+	add hl, de
+	ld d, [hl]
+	inc hl
+	ld e, [hl]
+	inc hl
+	ld a, [hli]
+	ld h, [hl]
+	ret
+	
+Function46f9: ; 01:46f9
+	ld hl, $0006
+	add hl, bc
+	ld l, [hl]
+	ld h, $00
+	add hl, hl
+	add hl, hl
+	ld de, Table470b
+	add hl, de
+	ld a, [hl]
+	ret
+	
+Table4708: ; 01:4708
+	db $00, $01, $10
+	
+Table470b: ; 01:470b
+	db $01, $00, $ff
+	db $10, $01, $ff
+	db $00, $10, $01
+	db $01, $00, $10
+	db $01, $00, $02
+	db $08, $02, $00
+	db $fe, $08, $02
+	db $fe, $00, $08
+	db $02, $02, $00
+	db $08, $02, $00
+	db $04, $04, $04
+	db $00, $fc, $04
+	db $04, $fc, $00
+	db $04, $04, $04
+	db $00, $04, $04
+	db $00, $08, $02
+	db $08, $00, $f8
+	db $02, $08, $f8
+	db $00, $02, $08
+	db $08, $00, $02
+	db $08
+
+Function4748: ; 01:4748
+	add a
+	ret z
+	ld a, $01
+	ret nc
+	ld a, $ff
+	ret
+
+Function4750: ; 01:4750
+	ld hl, $0006
+	add hl, bc
+	ld a, [hl]
+	and $03
+	ld [wPlayerStepDirection], a
+	call Function46e5
+	ld a, d
+	ld [wcb6c], a
+	ld a, e
+	ld [wcb6d], a
+	ld hl, wcb6e
+	set 5, [hl]
+	ret
+
+Function476b: ; 01:476b
+	ld a, [wXCoord]
+	ld d, a
+	ld hl, $0010
+	add hl, bc
+	ld a, [hl]
+	sub d
+	and $0f
+	swap a
+	ld hl, $0018
+	add hl, bc
+	ld [hl], a
+	ld a, [wYCoord]
+	ld e, a
+	ld hl, $0011
+	add hl, bc
+	ld a, [hl]
+	sub e
+	and $0f
+	swap a
+	ld hl, $0019
+	add hl, bc
+	ld [hl], a
+	ret
+
+Function4792: ; 01:4792
+	ld hl, $001d
+	add hl, bc
+	ld [hl], $00
+	ret
+
+Function4799: ; 01:4799
+	ld hl, $001d
+	add hl, bc
+	inc [hl]
+	ret
+
+Function479f: ; 01:479f
+	ld hl, $001d
+	add hl, bc
+	ld a, [hl]
+	ret
+
+Function47a5: ; 01:47a5
+	ld hl, $001d
+	add hl, bc
+	ld [hl], a
+	ret
+
+Function47ab: ; 01:47ab
+	ld hl, $001d
+	add hl, bc
+	ld l, [hl]
+	ld h, $00
+	add hl, hl
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp hl
+
+Function47b8: ; 01:47b8
+	ld hl, $0003
+	add hl, bc
+	ld a, [hl]
+	and $1f
+	ld hl, Table47c5
+	jp CallJumptable
+	
+Table47c5: ; 01:47c5
+	dw Function47fb
+	dw Function4812
+	dw Function481c
+	dw Function47fc
+	dw Function4806
+	dw Function482b
+	dw Function482f
+	dw Function4833
+	dw Function4837
+	dw $0000
+	dw $0000
+	dw $0000
+	dw $0000
+	dw $0000
+	dw $0000
+	dw $0000
+	dw Function484d
+	dw Function4856
+	dw Function4859
+	dw Function485c
+	dw Function485f
+	dw Function485f
+	dw Function485f
+	dw Function485f
+	dw Function4862
+	dw Function4865
+	dw Function4868
+
+Function47fb: ; 01:47fb
+	ret
+
+Function47fc: ; 01:47fc
+	call Random
+	ldh a, [hRandomAdd]
+	and $01
+	jp Function48a9
+
+Function4806: ; 01:4806
+	call Random
+	ldh a, [hRandomAdd]
+	and $01
+	or $02
+	jp Function48a9
+
+Function4812: ; 01:4812
+	call Random
+	ldh a, [hRandomAdd]
+	and $03
+	jp Function48a9
+
+Function481c: ; 01:481c
+	call Random
+	ldh a, [hRandomAdd]
+	and $0c
+	ld hl, $0007
+	add hl, bc
+	ld [hl], a
+	jp Function48da
+
+Function482b: ; 01:482b
+	ld a, $00
+	jr Function4839
+
+Function482f: ; 01:482f
+	ld a, $04
+	jr Function4839
+
+Function4833: ; 01:4833
+	ld a, $08
+	jr Function4839
+
+Function4837: ; 01:4837
+	ld a, $0c
+
+Function4839: ; 01:4839
+	ld hl, $0007
+	add hl, bc
+	ld [hl], a
+	call Function45fe
+	call Function4678
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $04
+	jp Function4b78
+
+Function484d: ; 01:484d
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $07
+	jp Function4bed
+
+Function4856: ; 01:4856
+	jp Function4bf9
+
+Function4859: ; 01:4859
+	jp Function4c0c
+
+Function485c: ; 01:485c
+	jp Function4fbc
+
+Function485f: ; 01:485f
+	jp Function4bf3
+
+Function4862: ; 01:4862
+	jp Function4fbc
+
+Function4865: ; 01:4865
+	jp Function4c1f
+
+Function4868: ; 01:4868
+	ret
+
+Function4869: ; 01:4869
+	ret
+
+Function486a: ; 01:486a
+	ld hl, $0010
+	add hl, bc
+	ld d, [hl]
+	ld hl, $0011
+	add hl, bc
+	ld e, [hl]
+	push bc
+	call GetCoordTile
+	pop bc
+	ld hl, $000e
+	add hl, bc
+	ld [hl], a
+	call Function45d4
+	call Function4678
+	ld a, $01
+	ld hl, $0008
+	add hl, bc
+	ld [hl], a
+	ret
+	
+Function488c: ; 01:488c
+	call Function468a
+	call Function771e
+	jr c, Function48d4
+	call Function4613
+	ldh a, [hConnectionStripLength]
+	ld d, a
+	ld a, [wCenteredObject]
+	cp d
+	jr z, Function48c6
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $02
+	jp Function4b88
+
+Function48a9: ; 01:48a9
+	call Function468a
+	call Function771e
+	jr c, Function48d4
+	call Function4613
+	ldh a, [hConnectionStripLength]
+	ld d, a
+	ld a, [wCenteredObject]
+	cp d
+	jr z, Function48c6
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $06
+	jp Function4baa
+
+Function48c6: ; 01:48c6
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $05
+	ld hl, wcb6e
+	set 7, [hl]
+	jp Function4bc9
+
+Function48d4: ; 01:48d4
+	call Function4678
+	call Function45fe
+
+Function48da: ; 01:48da
+	ld hl, $0006
+	add hl, bc
+	ld [hl], $ff
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $03
+	call Random
+	ldh a, [hRandomAdd]
+	and $7f
+	ld hl, $0009
+	add hl, bc
+	ld [hl], a
+	jp Function4b65
+	
+Function48f5: ; 01:48f5
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $01
+	ld hl, $001c
+	add hl, bc
+	ld a, [hl]
+	and $07
+	cp $04
+	ld a, $07
+	jr nc, .sub_490a
+	ld a, $06
+.sub_490a
+	call Function468a
+	call Function771e
+	jr c, .sub_4920
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $02
+	ld hl, $001c
+	add hl, bc
+	inc [hl]
+	jp Function4b88
+.sub_4920
+	ld hl, $0006
+	add hl, bc
+	ld [hl], $ff
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $01
+	call Function45fe
+	ret
+
+Function4930: ; 01:4930
+	ld a, [wPlayerNextMapX]
+	ld d, a
+	ld a, [wPlayerNextMapY]
+	ld e, a
+	ld hl, $0010
+	add hl, bc
+	ld a, d
+	sub [hl]
+	ld d, a
+	ld hl, $0011
+	add hl, bc
+	ld a, e
+	sub [hl]
+	ld e, a
+	jr z, .sub_495b
+	ld a, d
+	and a
+	jr z, .sub_4965
+	push de
+	ld a, d
+	call .sub_4973
+	ld d, a
+	ld a, e
+	call .sub_4973
+	ld e, a
+	cp d
+	pop de
+	jr nc, .sub_4965
+.sub_495b
+	ld a, $08
+	bit 7, d
+	jr nz, .sub_496d
+	ld a, $0c
+	jr .sub_496d
+.sub_4965
+	ld a, $04
+	bit 7, e
+	jr nz, .sub_496d
+	ld a, $00
+.sub_496d
+	ld hl, $0007
+	add hl, bc
+	ld [hl], a
+	ret
+.sub_4973
+	bit 7, a
+	ret z
+	dec a
+	cpl
+	ret
+
+Function4979: ; 01:4979
+	ret
+
+Function497a: ; 01:497a
+	ld hl, $001e
+	add hl, bc
+	inc [hl]
+	ld a, [hl]
+	srl a
+	srl a
+	and $07
+	ld l, a
+	ld h, $00
+	ld de, Table4994
+	add hl, de
+	ld a, [hl]
+	ld hl, $001b
+	add hl, bc
+	ld [hl], a
+	ret
+	
+Table4994: ; 01:4994
+	db $00, $FF, $FE, $FD
+	db $FC, $FD, $FE, $FF
+	
+Function499c: ; 01:499c
+	call Function46f9
+	ld hl, $001f
+	add hl, bc
+	ld e, [hl]
+	add e
+	ld [hl], a
+	ld d, $00
+	ld hl, Unknown49dc
+	add hl, de
+	ld a, [hl]
+	ld hl, $001b
+	add hl, bc
+	ld [hl], a
+	ldh a, [hConnectionStripLength]
+	cp $01
+	ret nz
+	ldh a, [hJoypadState]
+	and $f0
+	ret z
+	ld d, $00
+	bit 7, a
+	jr nz, .sub_49d0
+	ld d, $04
+	bit 6, a
+	jr nz, .sub_49d0
+	ld d, $08
+	bit 5, a
+	jr nz, .sub_49d0
+	ld d, $0c
+.sub_49d0
+	ld hl, $0007
+	add hl, bc
+	ld [hl], d
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $02
+	ret
+	
+Unknown49dc: ; 01:49dc
+	db $FC, $FB, $FA, $F9
+	db $F8, $F7, $F6, $F5
+	db $F5, $F5, $F4, $F4
+	db $F4, $F4, $F4, $F4
+	db $F5, $F5, $F6, $F6
+	db $F7, $F7, $F8, $F8
+	db $FA, $FB, $FC, $FE
+	db $FF, $00, $00, $00
+
+Function49fc: ; 01:49fc
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $11
+	call Function4792
+
+Function4a05: ; 01:4a05
+	ld de, Table4a0b
+	jp Function47ab
+	
+Table4a0b: ; 01:4a0b
+	dw Function4a13
+	dw Function4a28
+	dw Function4a38
+	dw Function4a53
+	
+Function4a13: ; 01:4a13
+	ld hl, $001e
+	add hl, bc
+	ld [hl], $04
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $00
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $10
+	call Function4799
+
+Function4a28: ; 01:4a28
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $03
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+	call Function4799
+	ret
+
+Function4a38: ; 01:4a38
+	ld hl, $001e
+	add hl, bc
+	ld [hl], $04
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $00
+	ld hl, $001f
+	add hl, bc
+	ld [hl], $10
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $10
+	call Function4799
+
+Function4a53: ; 01:4a53
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $03
+	ld hl, $001f
+	add hl, bc
+	inc [hl]
+	ld a, [hl]
+	ld d, $60
+	call Function17cd
+	ld a, h
+	sub $60
+	ld hl, $001b
+	add hl, bc
+	ld [hl], a
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $01
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $00
+	call Function4792
+	ret
+	
+Function4a82: ; 01:4a82
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $12
+	call Function4792
+
+Function4a8b: ; 01:4a8b
+	ld de, Table4a91
+	jp Function47ab
+	
+Table4a91: ; 01:4a91
+	dw Function4a9f
+	dw Function4aaf
+	dw Function4ab8
+	dw Function4ad4
+	dw Function4af6
+	dw Function4b00
+	dw Function4b0c
+
+Function4a9f: ; 01:4a9f
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $00
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $10
+	call Function4799
+	ret
+
+Function4aaf: ; 01:4aaf
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+	call Function4799
+
+Function4ab8: ; 01:4ab8
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $00
+	ld hl, $001e
+	add hl, bc
+	ld [hl], $04
+	ld hl, $001f
+	add hl, bc
+	ld [hl], $00
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $10
+	call Function4799
+	ret
+	
+Function4ad4: ; 01:4ad4
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $03
+	ld hl, $001f
+	add hl, bc
+	inc [hl]
+	ld a, [hl]
+	ld d, $60
+	call Function17cd
+	ld a, h
+	sub $60
+	ld hl, $001b
+	add hl, bc
+	ld [hl], a
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+	call Function4799
+
+Function4af6: ; 01:4af6
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $10
+	call Function4799
+	ret
+	
+Function4b00: ; 01:4b00
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $03
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+
+Function4b0c: ; 01:4b0c
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $01
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $00
+	ld hl, $001b
+	add hl, bc
+	ld [hl], $00
+	call Function4792
+	ret
+	
+Function4b22: ; 01:4b22
+	call Function4792
+	
+Function4b25: ; 01:4b25
+	ret
+
+Function4b26: ; 01:4b26
+	ld a, $01
+	ld [wcb70], a
+	push bc
+	ld de, Unknown4b42
+	call PushToCmdQueue
+	ld d, b
+	ld e, c
+	pop bc
+	ld hl, $0009
+	add hl, bc
+	ld a, [hl]
+	add a
+	dec a
+	ld hl, $000e
+	add hl, de
+	ld [hl], a
+	ret
+	
+Unknown4b42: ; 01:4b42
+	db $01, $01, $FC, $02, $00, $08
+	
+Function4b48: ; 01:4b48
+	ld e, a
+	add a
+	add e
+	ld e, a
+	ld d, $00
+	ld hl, Unknown4b5f
+	add hl, de
+	ld d, h
+	ld e, l
+	push bc
+	call PushToCmdQueue
+	pop bc
+	ld a, $06
+	ld [wcb70], a
+	ret
+
+Unknown4b5f: ; 01:4b5f
+	db $05, $04, $FC, $02, $02, $08
+	
+Function4b65: ; 01:4b65
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $02
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $01
+	ret
+
+Function4b78: ; 01:4b78
+	call Function4979
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $02
+	ld hl, $0006
+	add hl, bc
+	ld [hl], $ff
+	ret
+
+Function4b88: ; 01:4b88
+	call Function4979
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $01
+	call Function46d3
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+	call Function45d4
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $01
+	ld hl, $0006
+	add hl, bc
+	ld [hl], $ff
+	ret
+
+Function4baa: ; 01:4baa
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $01
+	call Function46d3
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+	call Function45d4
+	ld hl, $0006
+	add hl, bc
+	ld [hl], $ff
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $01
+	ret
+
+Function4bc9: ; 01:4bc9
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $01
+	call Function4750
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+	ld hl, wcb6e
+	set 6, [hl]
+	call Function45d4
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $01
+	ld hl, $0006
+	add hl, bc
+	ld [hl], $ff
+	ret
+	
+Function4bed: ; 01:4bed
+	ld a, [wPlayerMovement]
+	jp Function4c37
+
+Function4bf3: ; 01:4bf3
+	ld a, [wMovementObject]
+	jp Function4c37
+
+Function4bf9: ; 01:4bf9
+	ld hl, $001c
+	add hl, bc
+	ld e, [hl]
+	inc [hl]
+	ld d, $00
+	ld hl, wMovementObject
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	add hl, de
+	ld a, [hl]
+	jp Function4c37
+
+Function4c0c: ; 01:4c0c
+	ld hl, $001c
+	add hl, bc
+	ld e, [hl]
+	inc [hl]
+	ld d, $00
+	ld hl, wcb7c
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	add hl, de
+	ld a, [hl]
+	jp Function4c37
+
+Function4c1f: ; 01:4c1f
+	ld hl, $001c
+	add hl, bc
+	ld e, [hl]
+	inc [hl]
+	ld d, $00
+	ld hl, wMovementDataAddr
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	add hl, de
+	ld a, [wMovementDataBank]
+	call GetFarByte
+	jp Function4c37
+
+Function4c37: ; 01:4c37
+	push af
+	call Function4f86
+	pop af
+	ld l, a
+	ld h, $00
+	add hl, hl
+	ld de, Table4c48
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp hl
+	
+Table4c48: ; 01:4c48
+	dw Function4d94
+	dw Function4d98
+	dw Function4d9c
+	dw Function4da0
+	dw Function4db6
+	dw Function4dbb
+	dw Function4dc0
+	dw Function4dc5
+	dw Function4dca
+	dw Function4dcf
+	dw Function4dd4
+	dw Function4dd9
+	dw Function4dde
+	dw Function4de3
+	dw Function4de8
+	dw Function4ded
+	dw Function4df2
+	dw Function4df7
+	dw Function4dfc
+	dw Function4e01
+	dw Function4e06
+	dw Function4e0b
+	dw Function4e10
+	dw Function4e15
+	dw Function4e1a
+	dw Function4e1f
+	dw Function4e24
+	dw Function4e29
+	dw Function4e2e
+	dw Function4e33
+	dw Function4e38
+	dw Function4e3d
+	dw Function4e42
+	dw Function4e47
+	dw Function4e4c
+	dw Function4e51
+	dw Function4d5e
+	dw Function4d67
+	dw Function4d70
+	dw Function4d79
+	dw Function4d82
+	dw Function4d8b
+	dw Function4d2c
+	dw Function4d30
+	dw Function4d34
+	dw Function4d38
+	dw Function4d3c
+	dw Function4d40
+	dw Function4d44
+	dw Function4d48
+	dw Function4cc1
+	dw Function4cef
+	dw Function4cb8
+	dw Function4d1a
+	dw Function49fc
+	dw Function4a82
+
+Function4cb8: ; 01:4cb8
+	ld hl, $001c
+	add hl, bc
+	ld [hl], $00
+	jp Function47b8
+
+Function4cc1: ; 01:4cc1
+	ld hl, $0001
+	add hl, bc
+	ld a, [hl]
+	cp $ff
+	jr nz, .sub_4cce
+	ld a, $05
+	jr .sub_4cd8
+.sub_4cce
+	push bc
+	call GetMapObject
+	ld hl, $0004
+	add hl, bc
+	ld a, [hl]
+	pop bc
+.sub_4cd8
+	ld hl, $0003
+	add hl, bc
+	ld [hl], a
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $01
+	ld hl, $001c
+	add hl, bc
+	ld [hl], $00
+	ld hl, wVramState
+	res 7, [hl]
+	ret
+
+Function4cef: ; 01:4cef
+	push bc
+	ld hl, $0001
+	add hl, bc
+	ld a, [hl]
+	push af
+	ld h, b
+	ld l, c
+	ld bc, $0028
+	xor a
+	call ByteFill
+	pop af
+	call GetMapObject
+	ld hl, $0000
+	add hl, bc
+	ld [hl], $ff
+	pop bc
+	ld hl, wObjectFollow_Leader
+	ldh a, [hConnectionStripLength]
+	cp [hl]
+	jr nz, .sub_4d14
+	ld [hl], $ff
+.sub_4d14
+	ld hl, wVramState
+	res 7, [hl]
+	ret
+
+Function4d1a: ; 01:4d1a
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $02
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $04
+	ld hl, wVramState
+	res 7, [hl]
+	ret
+
+Function4d2c: ; 01:4d2c
+	ld a, $01
+	jr Function4d4a
+
+Function4d30: ; 01:4d30
+	ld a, $02
+	jr Function4d4a
+
+Function4d34: ; 01:4d34
+	ld a, $03
+	jr Function4d4a
+
+Function4d38: ; 01:4d38
+	ld a, $04
+	jr Function4d4a
+
+Function4d3c: ; 01:4d3c
+	ld a, $05
+	jr Function4d4a
+
+Function4d40: ; 01:4d40
+	ld a, $06
+	jr Function4d4a
+
+Function4d44: ; 01:4d44
+	ld a, $07
+	jr Function4d4a
+
+Function4d48: ; 01:4d48
+	ld a, $08
+
+Function4d4a: ; 01:4d4a
+	ld hl, $0009
+	add hl, bc
+	ld [hl], a
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $03
+	ld hl, $0006
+	add hl, bc
+	ld [hl], $ff
+	jp Function4b65
+
+Function4d5e: ; 01:4d5e
+	ld hl, $0004
+	add hl, bc
+	res 3, [hl]
+	jp Function47b8
+
+Function4d67: ; 01:4d67
+	ld hl, $0004
+	add hl, bc
+	set 3, [hl]
+	jp Function47b8
+
+Function4d70: ; 01:4d70
+	ld hl, $0004
+	add hl, bc
+	res 2, [hl]
+	jp Function47b8
+
+Function4d79: ; 01:4d79
+	ld hl, $0004
+	add hl, bc
+	set 2, [hl]
+	jp Function47b8
+
+Function4d82: ; 01:4d82
+	ld hl, $0005
+	add hl, bc
+	res 0, [hl]
+	jp Function47b8
+
+Function4d8b: ; 01:4d8b
+	ld hl, $0005
+	add hl, bc
+	set 0, [hl]
+	jp Function47b8
+
+Function4d94: ; 01:4d94
+	ld a, $00
+	jr Function4da4
+
+Function4d98: ; 01:4d98
+	ld a, $04
+	jr Function4da4
+
+Function4d9c: ; 01:4d9c
+	ld a, $08
+	jr Function4da4
+
+Function4da0: ; 01:4da0
+	ld a, $0c
+	jr Function4da4
+
+Function4da4: ; 01:4da4
+	ld hl, $0007
+	add hl, bc
+	ld [hl], a
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $02
+	ld hl, $0006
+	add hl, bc
+	ld [hl], $ff
+	ret
+
+Function4db6: ; 01:4db6
+	ld a, $00
+	jp Function4e56
+
+Function4dbb: ; 01:4dbb
+	ld a, $01
+	jp Function4e56
+
+Function4dc0: ; 01:4dc0
+	ld a, $02
+	jp Function4e56
+
+Function4dc5: ; 01:4dc5
+	ld a, $03
+	jp Function4e56
+
+Function4dca: ; 01:4dca
+	ld a, $04
+	jp Function4e56
+
+Function4dcf: ; 01:4dcf
+	ld a, $05
+	jp Function4e56
+
+Function4dd4: ; 01:4dd4
+	ld a, $06
+	jp Function4e56
+
+Function4dd9: ; 01:4dd9
+	ld a, $07
+	jp Function4e56
+
+Function4dde: ; 01:4dde
+	ld a, $08
+	jp Function4e56
+
+Function4de3: ; 01:4de3
+	ld a, $09
+	jp Function4e56
+
+Function4de8: ; 01:4de8
+	ld a, $0a
+	jp Function4e56
+
+Function4ded: ; 01:4ded
+	ld a, $0b
+	jp Function4e56
+
+Function4df2: ; 01:4df2
+	ld a, $0c
+	jp Function4e56
+
+Function4df7: ; 01:4df7
+	ld a, $0d
+	jp Function4e56
+
+Function4dfc: ; 01:4dfc
+	ld a, $0e
+	jp Function4e56
+
+Function4e01: ; 01:4e01
+	ld a, $0f
+	jp Function4e56
+
+Function4e06: ; 01:4e06
+	ld a, $00
+	jp Function4e7c
+
+Function4e0b: ; 01:4e0b
+	ld a, $01
+	jp Function4e7c
+
+Function4e10: ; 01:4e10
+	ld a, $02
+	jp Function4e7c
+
+Function4e15: ; 01:4e15
+	ld a, $03
+	jp Function4e7c
+
+Function4e1a: ; 01:4e1a
+	ld a, $04
+	jp Function4e7c
+
+Function4e1f: ; 01:4e1f
+	ld a, $05
+	jp Function4e7c
+
+Function4e24: ; 01:4e24
+	ld a, $06
+	jp Function4e7c
+
+Function4e29: ; 01:4e29
+	ld a, $07
+	jp Function4e7c
+
+Function4e2e: ; 01:4e2e
+	ld a, $08
+	jp Function4e7c
+
+Function4e33: ; 01:4e33
+	ld a, $09
+	jp Function4e7c
+
+Function4e38: ; 01:4e38
+	ld a, $0a
+	jp Function4e7c
+
+Function4e3d: ; 01:4e3d
+	ld a, $0b
+	jp Function4e7c
+
+Function4e42: ; 01:4e42
+	ld a, $0c
+	jp Function4e7c
+
+Function4e47: ; 01:4e47
+	ld a, $0d
+	jp Function4e7c
+
+Function4e4c: ; 01:4e4c
+	ld a, $0e
+	jp Function4e7c
+
+Function4e51: ; 01:4e51
+	ld a, $0f
+	jp Function4e7c
+
+Function4e56: ; 01:4e56
+	call Function468a
+	call Function4613
+	ld a, [wCenteredObject]
+	ld d, a
+	ldh a, [hConnectionStripLength]
+	cp d
+	jr z, .sub_4e6e
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $02
+	jp Function4b88
+.sub_4e6e
+	ld hl, wcb6e
+	set 7, [hl]
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $05
+	jp Function4bc9
+
+Function4e7c: ; 01:4e7c
+	call Function468a
+	ld hl, $001f
+	add hl, bc
+	ld [hl], $00
+	ld hl, $0005
+	add hl, bc
+	res 3, [hl]
+	call Function4792
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $02
+	call Function4b26
+	ld a, [wCenteredObject]
+	ld d, a
+	ldh a, [hConnectionStripLength]
+	cp d
+	jr z, .sub_4ea9
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $0f
+	jp Function4ed5
+.sub_4ea9
+	ld hl, wcb6e
+	set 7, [hl]
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $10
+	jp Function4f14
+
+Function4eb7: ; 01:4eb7
+	call Function468a
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $0f
+	ld hl, $000a
+	add hl, bc
+	ld [hl], $02
+	ld hl, $0005
+	add hl, bc
+	res 3, [hl]
+	ld hl, $001f
+	add hl, bc
+	ld [hl], $00
+	call Function4792
+
+Function4ed5: ; 01:4ed5
+	ld de, Table4edb
+	jp Function47ab
+
+Table4edb: ; 01:4edb
+	dw Function4edf
+	dw Function4efb
+	
+Function4edf: ; 01:4edf
+	call Function46d3
+	call Function499c
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+	call Function4799
+	call Function45d4
+	call Function46a2
+	ld hl, $0005
+	add hl, bc
+	res 3, [hl]
+	ret
+
+Function4efb: ; 01:4efb
+	call Function46d3
+	call Function499c
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $01
+	call Function45d4
+	call Function4792
+	ret
+
+Function4f14: ; 01:4f14
+	ld de, Table4f1a
+	jp Function47ab
+	
+Table4f1a: ; 01:4f1a
+	dw Function4f20
+	dw Function4f40
+	dw Function4f4b
+	
+Function4f20: ; 01:4f20
+	call Function499c
+	call Function4750
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+	call Function45d4
+	ld hl, $0005
+	add hl, bc
+	res 3, [hl]
+	ld hl, wcb6e
+	set 6, [hl]
+	set 4, [hl]
+	call Function4799
+	ret
+
+Function4f40: ; 01:4f40
+	call Function46a2
+	ld hl, wcb6e
+	set 7, [hl]
+	call Function4799
+
+Function4f4b: ; 01:4f4b
+	call Function499c
+	call Function4750
+	ld hl, $0009
+	add hl, bc
+	dec [hl]
+	ret nz
+	ld hl, $0008
+	add hl, bc
+	ld [hl], $01
+	call Function45d4
+	ld hl, wcb6e
+	set 6, [hl]
+	call Function4792
+	ldh a, [hConnectionStripLength]
+	cp $01
+	jp z, .sub_4f70
+	ret
+.sub_4f70
+	ld hl, $0007
+	add hl, bc
+	ld a, [hl]
+	rra
+	rra
+	and $03
+	ld d, a
+	ld hl, $0006
+	add hl, bc
+	ld a, [hl]
+	and $03
+	cp d
+	ret z
+	jp Function4b25
+
+Function4f86: ; 01:4f86
+	ld e, a
+	ld a, [wObjectFollow_Follower]
+	and a
+	ret z
+	cp $ff
+	ret z
+	ld a, [wObjectFollow_Leader]
+	ld d, a
+	ldh a, [hConnectionStripLength]
+	cp d
+	ret nz
+	ld a, e
+	cp $2a
+	ret z
+	cp $00
+	ret z
+	cp $01
+	ret z
+	cp $02
+	ret z
+	cp $03
+	ret z
+	cp $32
+	ret z
+	cp $35
+	ret z
+	push af
+	ld hl, wFollowerMovementQueueLength
+	inc [hl]
+	ld e, [hl]
+	ld d, $00
+	ld hl, wFollowMovementQueue
+	add hl, de
+	pop af
+	ld [hl], a
+	ret
+
+Function4fbc: ; 01:4fbc
+	call .sub_4fc5
+	ld hl, Table4c48
+	jp CallJumptable
+.sub_4fc5
+	ld hl, wFollowerMovementQueueLength
+	ld a, [hl]
+	and a
+	jr z, .sub_4fe2
+	cp $ff
+	jr z, .sub_4fe2
+	ld e, a
+	dec [hl]
+	ld d, $00
+	ld hl, wFollowMovementQueue
+	add hl, de
+	inc e
+	ld a, $ff
+.sub_4fdb
+	ld d, [hl]
+	ld [hld], a
+	ld a, d
+	dec e
+	jr nz, .sub_4fdb
+	ret
+.sub_4fe2
+	call .sub_4fe9
+	ret c
+	ld a, $2a
+	ret
+.sub_4fe9
+	ld a, [wObjectFollow_Leader]
+	cp $ff
+	jr z, .sub_4fff
+	push bc
+	call GetObjectStruct
+	ld hl, $0000
+	add hl, bc
+	ld a, [hl]
+	pop bc
+	and a
+	jr z, .sub_4fff
+	and a
+	ret
+.sub_4fff
+	xor a
+	ld [wObjectFollow_Follower], a
+	ld a, $32
+	scf
+	ret
+
+Function5007: ; 01:5007
+	ld bc, wObjectStructs
+	xor a
+.sub_500b
+	ldh [hConnectionStripLength], a
+	ld hl, $0000
+	add hl, bc
+	ld a, [hl]
+	and a
+	jr z, .sub_5034
+	ld hl, $000a
+	add hl, bc
+	ld a, [hl]
+	and a
+	ld a, $ff
+	jr z, .sub_502f
+	push bc
+	call .sub_5042
+	pop bc
+	ld a, $ff
+	jr c, .sub_502f
+	ld hl, $0007
+	add hl, bc
+	ld a, [hl]
+	and $0c
+.sub_502f
+	ld hl, $000d
+	add hl, bc
+	ld [hl], a
+.sub_5034
+	ld hl, $0028
+	add hl, bc
+	ld b, h
+	ld c, l
+	ldh a, [hConnectionStripLength]
+	inc a
+	cp $0a
+	jr nz, .sub_500b
+	ret
+.sub_5042
+	ld hl, $0010
+	add hl, bc
+	ld d, [hl]
+	ld hl, $0011
+	add hl, bc
+	ld e, [hl]
+	ld a, [wXCoord]
+	cp d
+	jr z, .sub_5059
+	jr nc, .sub_50b7
+	add $09
+	cp d
+	jr c, .sub_50b7
+.sub_5059
+	ld a, [wYCoord]
+	cp e
+	jr z, .sub_5066
+	jr nc, .sub_50b7
+	add $08
+	cp e
+	jr c, .sub_50b7
+.sub_5066
+	ld hl, $0018
+	add hl, bc
+	ld a, [hl]
+	and $07
+	ld d, $02
+	jr z, .sub_5073
+	ld d, $03
+.sub_5073
+	ld a, d
+	ldh [hFFC9], a
+	ld a, [hl]
+	srl a
+	srl a
+	srl a
+	ldh [hFFC7], a
+	ld hl, $0019
+	add hl, bc
+	ld a, [hl]
+	and $07
+	ld e, $02
+	jr z, .sub_508c
+	ld e, $03
+.sub_508c
+	ld a, [hl]
+	srl a
+	srl a
+	srl a
+	ldh [hFFC8], a
+	ldh a, [hFFC7]
+	ld c, a
+	ldh a, [hFFC8]
+	ld b, a
+	call Coord2Tile
+	ld bc, $0014
+.sub_50a1
+	push hl
+	ldh a, [hFFC9]
+	ld d, a
+.sub_50a5
+	ld a, [hli]
+	cp $60
+	jr nc, .sub_50b4
+	dec d
+	jr nz, .sub_50a5
+	pop hl
+	add hl, bc
+	dec e
+	jr nz, .sub_50a1
+	and a
+	ret
+.sub_50b4
+	pop hl
+	jr .sub_50b7
+.sub_50b7
+	scf
+	ret
+
+Function50b9: ; 01:50b9
+	call .sub_50c3
+	call .sub_50d3
+	call Function42db
+	ret
+.sub_50c3
+	xor a
+	ld [wcb6c], a
+	ld [wcb6d], a
+	ld [wcb6e], a
+	ld a, $ff
+	ld [wPlayerStepDirection], a
+	ret
+.sub_50d3
+	ld bc, wObjectStructs
+	xor a
+.sub_50d7
+	ldh [hConnectionStripLength], a
+	ld hl, $0000
+	add hl, bc
+	ld a, [hl]
+	and a
+	jr z, .sub_50e9
+	call .sub_50f7
+	jr c, .sub_50e9
+	call Function44f2
+.sub_50e9
+	ld hl, $0028
+	add hl, bc
+	ld b, h
+	ld c, l
+	ldh a, [hConnectionStripLength]
+	inc a
+	cp $0a
+	jr nz, .sub_50d7
+	ret
+.sub_50f7
+	ld hl, $0005
+	add hl, bc
+	res 6, [hl]
+	ld a, [wXCoord]
+	ld e, a
+	ld hl, $0010
+	add hl, bc
+	ld a, [hl]
+	add $01
+	sub e
+	jr c, .sub_5123
+	cp $0c
+	jr nc, .sub_5123
+	ld a, [wYCoord]
+	ld e, a
+	ld hl, $0011
+	add hl, bc
+	ld a, [hl]
+	add $01
+	sub e
+	jr c, .sub_5123
+	cp $0b
+	jr nc, .sub_5123
+	jr .sub_514d
+.sub_5123
+	ld hl, $0005
+	add hl, bc
+	set 6, [hl]
+	ld a, [wXCoord]
+	ld e, a
+	ld hl, $0014
+	add hl, bc
+	ld a, [hl]
+	add $01
+	sub e
+	jr c, .sub_514f
+	cp $0c
+	jr nc, .sub_514f
+	ld a, [wYCoord]
+	ld e, a
+	ld hl, $0015
+	add hl, bc
+	ld a, [hl]
+	add $01
+	sub e
+	jr c, .sub_514f
+	cp $0b
+	jr nc, .sub_514f
+.sub_514d
+	and a
+	ret
+.sub_514f
+	ldh a, [hConnectionStripLength]
+	cp $01
+	jr z, .sub_5162
+	ld hl, $0004
+	add hl, bc
+	bit 1, [hl]
+	jr nz, .sub_5162
+	call .sub_516a
+	scf
+	ret
+.sub_5162
+	ld hl, $0005
+	add hl, bc
+	set 6, [hl]
+	and a
+	ret
+.sub_516a
+	push bc
+	ld hl, $0001
+	add hl, bc
+	ld a, [hl]
+	push af
+	ld h, b
+	ld l, c
+	ld bc, $0028
+	xor a
+	call ByteFill
+	pop af
+	cp $ff
+	jr z, .sub_518e
+	ld hl, wMapObjects
+	ld bc, $0010
+	call AddNTimes
+	ld bc, $0000
+	add hl, bc
+	ld [hl], $ff
+.sub_518e
+	pop bc
+	ret
+
+_UpdateSprites: ; 01:5190
+	ld a, [wVramState]
+	bit 0, a
+	ret z
+	xor a
+	ldh [hFFC7], a
+	call .sub_51a3
+	call .sub_5258
+	call .sub_5243
+	ret
+.sub_51a3
+	xor a
+	ld bc, wObjectStructs
+.sub_51a7
+	push af
+	push bc
+	ld hl, $0000
+	add hl, bc
+	ld a, [hl]
+	and a
+	jp z, .sub_5234
+	ld hl, $0005
+	add hl, bc
+	bit 0, [hl]
+	jp nz, .sub_5234
+	xor a
+	bit 7, [hl]
+	jr z, .sub_51c2
+	add $80
+.sub_51c2
+	bit 4, [hl]
+	jr z, .sub_51c8
+	add $10
+.sub_51c8
+	ld d, a
+	xor a
+	bit 3, [hl]
+	jr z, .sub_51d0
+	or $80
+.sub_51d0
+	ldh [hFFCC], a
+	ld hl, $0002
+	add hl, bc
+	ld a, [hl]
+	ldh [hFFCB], a
+	ld hl, $0018
+	add hl, bc
+	ld a, [hl]
+	ld hl, $001a
+	add hl, bc
+	add [hl]
+	add $08
+	ldh [hFFC9], a
+	ld hl, $0019
+	add hl, bc
+	ld a, [hl]
+	ld hl, $001b
+	add hl, bc
+	add [hl]
+	add $10
+	ldh [hFFCA], a
+	ld hl, $000d
+	add hl, bc
+	ld a, [hl]
+	cp $ff
+	jp z, .sub_5234
+	ld l, a
+	ld h, $00
+	add hl, hl
+	ld bc, Table421b
+	add hl, bc
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ldh a, [hFFC7]
+	ld c, a
+	ld b, $c2
+.sub_520f
+	ldh a, [hFFCA]
+	add [hl]
+	inc hl
+	ld [bc], a
+	inc c
+	ldh a, [hFFC9]
+	add [hl]
+	inc hl
+	ld [bc], a
+	inc c
+	ldh a, [hFFCB]
+	add [hl]
+	inc hl
+	ld [bc], a
+	inc c
+	ld a, [hl]
+	bit 1, a
+	jr z, .sub_5229
+	ldh a, [hFFCC]
+	or [hl]
+.sub_5229
+	inc hl
+	or d
+	ld [bc], a
+	inc c
+	bit 0, a
+	jr z, .sub_520f
+	ld a, c
+	ldh [hFFC7], a
+.sub_5234
+	pop bc
+	ld hl, $0028
+	add hl, bc
+	ld b, h
+	ld c, l
+	pop af
+	inc a
+	cp $0a
+	jp nz, .sub_51a7
+	ret
+.sub_5243
+	ld b, $a0
+	ldh a, [hFFC7]
+	cp b
+	ret nc
+	ld l, a
+	ld h, $c2
+	ld de, $0004
+	ld a, b
+	ld c, $a0
+.sub_5252
+	ld [hl], c
+	add hl, de
+	cp l
+	jr nz, .sub_5252
+	ret
+.sub_5258
+	ld bc, wCmdQueue
+	ld a, $04
+.sub_525d
+	push af
+	ld hl, $0000
+	add hl, bc
+	ld a, [hl]
+	and a
+	jr z, .sub_52cf
+	ld hl, $0004
+	add hl, bc
+	ld a, [hl]
+	ld hl, $0006
+	add hl, bc
+	add [hl]
+	add $08
+	ldh [hFFC9], a
+	ld hl, $0005
+	add hl, bc
+	ld a, [hl]
+	ld hl, $0007
+	add hl, bc
+	add [hl]
+	add $10
+	ldh [hFFCA], a
+	ld hl, $0003
+	add hl, bc
+	ld a, [hl]
+	ldh [hFFCB], a
+	ld hl, $000c
+	add hl, bc
+	ld a, [hl]
+	and a
+	jr z, .sub_52cf
+	ld e, a
+	ld d, $00
+	ld hl, Table44ab
+	add hl, de
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ldh a, [hFFC7]
+	ld d, a
+	ld a, [hl]
+	and a
+	jr z, .sub_52cf
+	add a
+	add a
+	add d
+	cp $a0
+	jr nc, .sub_52da
+	ldh a, [hFFC7]
+	ld e, a
+	ld d, $c2
+	ld a, [hli]
+.sub_52b0
+	ldh [hFFC8], a
+	ldh a, [hFFCA]
+	add [hl]
+	ld [de], a
+	inc hl
+	inc de
+	ldh a, [hFFC9]
+	add [hl]
+	ld [de], a
+	inc hl
+	inc de
+	ldh a, [hFFCB]
+	add [hl]
+	ld [de], a
+	inc hl
+	inc de
+	ld a, [hli]
+	ld [de], a
+	inc de
+	ldh a, [hFFC8]
+	dec a
+	jr nz, .sub_52b0
+	ld a, e
+	ldh [hFFC7], a
+.sub_52cf
+	ld hl, $0010
+	add hl, bc
+	ld b, h
+	ld c, l
+	pop af
+	dec a
+	jr nz, .sub_525d
+	ret
+.sub_52da
+	pop af
+	ret
+
+Function52dc: ; 01:52dc
+	call MenuBoxCoord2Tile
+	push hl
+	ld de, $005a
+	add hl, de
+	call PrintNumBadges
+	pop hl
+	push hl
+	ld de, $0081
+	add hl, de
+	call PrintNumOwnedMons
+	pop hl
+	ld de, $00a8
+	add hl, de
+	call PrintPlayTime
+	ret
+	
+SECTION "engine/dumps/bank01.asm@Function5388", ROMX
+
+Function5388: ; 01:5388
+	ld a, $00
+	call OpenSRAM
+	ld a, [s0_a600]
+	ld [wce60], a
+	call CloseSRAM
+	ret
+
+Function5397: ; 01:5397
+	ld a, $00
+	call OpenSRAM
+	ld hl, s0_a600
+	ld a, [hli]
+	ld [wce5f], a
+	inc hl
+	ld a, [hli]
+	ld [wActiveFrame], a
+	ld a, [hl]
+	ld [wTextBoxFlags], a
+	call CloseSRAM
+	ret
+
+Function53b0: ; 01:53b0
+	ld a, $00
+	call OpenSRAM
+	ld hl, wDebugFlags
+	ld a, [hli]
+	ld [wDebugFlags], a
+	ld a, [hli]
+	ld [wce64], a
+	ld a, [hli]
+	ld [wce65], a
+	ld a, [hl]
+	ld [wce66], a
+	call CloseSRAM
+	ret
+	
+SECTION "engine/dumps/bank01.asm@ReanchorBGMap_NoOAMUpdate", ROMX
+
+ReanchorBGMap_NoOAMUpdate: ; 01:63d8
+	xor a
+	ldh [hLCDCPointer], a
+	ld hl, wMapObjectsEnd
+	set 7, [hl]
+	res 2, [hl]
+	ld a, $90
+	ldh [hWY], a
+	xor a
+	ldh [hBGMapMode], a
+	xor a
+	ldh [hBGMapAddress], a
+	ld a, $9c
+	ldh [hBGMapAddress+1], a
+	call LoadMapPart
+	call WaitBGMap
+	xor a
+	ldh [hBGMapMode], a
+	ldh [hWY], a
+	call .sub_6412
+	xor a
+	ld [wBGMapAnchor], a
+	ld a, $98
+	ldh [hBGMapAddress+1], a
+	ld [wBGMapAnchor+1], a
+	xor a
+	ldh [hSCX], a
+	ldh [hSCY], a
+	call WaitBGMap
+	ret
+.sub_6412
+	ld a, $60
+	ld hl, wTileMapBackup
+	ld bc, $0080
+	call ByteFill
+	ld hl, vBGMap0
+	ld c, $08
+.sub_6422
+	push bc
+	push hl
+	ld de, wTileMapBackup
+	ld bc, $0008
+	call Request2bpp
+	pop hl
+	ld bc, $0080
+	add hl, bc
+	pop bc
+	dec c
+	jr nz, .sub_6422
+	ret
+
+LoadFonts_NoOAMUpdate: ; 01:6437
+	call UpdateSprites
+	call LoadFont
+	call LoadFontExtra
+	ld a, $90
+	ldh [hWY], a
+	ret
+	
+
+Function6445: ; 01:6445
+	call BackUpTilesToBuffer
+	ld a, [wWhichPokemon]
+	ld hl, wPartyMonNicknames
+	call GetNick
+	ld hl, wStringBuffer1
+	ld de, wcd11
+	ld bc, $0006
+	call CopyBytes
+.sub_645d
+	ld hl, wPartyMon1Moves
+	ld bc, $0030
+	ld a, [wWhichPokemon]
+	call AddNTimes
+	ld d, h
+	ld e, l
+	ld b, $04
+.sub_646d
+	ld a, [hl]
+	and a
+	jr z, .sub_648d
+	inc hl
+	dec b
+	jr nz, .sub_646d
+	push de
+	call .sub_64f4
+	pop de
+	jp c, .sub_64d6
+	push hl
+	push de
+	ld [wce37], a
+	call Unreferenced_GetMoveName
+	ld hl, Text664b
+	call PrintText
+	pop de
+	pop hl
+.sub_648d
+	ld a, [wce32]
+	ld [hl], a
+	ld bc, $0015
+	add hl, bc
+	push hl
+	push de
+	dec a
+	ld hl, Moves
+	ld bc, $0007
+	call AddNTimes
+	ld a, BANK(Moves)
+	call GetFarByte
+	pop de
+	pop hl
+	ld [hl], a
+	ld a, [wBattleMode]
+	and a
+	jp z, .sub_64eb
+	ld a, [wWhichPokemon]
+	ld b, a
+	ld a, [wcd41]
+	cp b
+	jp nz, .sub_64eb
+	ld h, d
+	ld l, e
+	ld de, wca04
+	ld bc, $0004
+	call CopyBytes
+	ld bc, $0011
+	add hl, bc
+	ld de, wca0a
+	ld bc, $0004
+	call CopyBytes
+	jp .sub_64eb
+.sub_64d6
+	ld hl, Text65b9
+	call PrintText
+	call YesNoBox
+	jp c, .sub_645d
+	ld hl, Text65d7
+	call PrintText
+	ld b, $00
+	ret
+.sub_64eb
+	ld hl, Text658c
+	call PrintText
+	ld b, $01
+	ret
+.sub_64f4
+	push hl
+	ld hl, Text65f0
+	call PrintText
+	call YesNoBox
+	pop hl
+	ret c
+	ld bc, $fffc
+	add hl, bc
+	push hl
+	ld de, wce2e
+	ld bc, $0004
+	call CopyBytes
+	pop hl
+.sub_650f
+	push hl
+	ld hl, Text65a8
+	call PrintText
+	coord hl, 10, 8
+	ld b, $08
+	ld c, $08
+	call DrawTextBox
+	coord hl, 12, 10
+	ld a, $28
+	ld [wFieldMoveScriptID], a
+	ld a, $32
+	call Predef
+	ld a, $0a
+	ld [w2DMenuCursorInitY], a
+	ld a, $0b
+	ld [w2DMenuCursorInitX], a
+	ld a, [wcd57]
+	inc a
+	ld [w2DMenuNumRows], a
+	ld a, $01
+	ld [w2DMenuNumCols], a
+	ld [w2DMenuDataEnd], a
+	ld [wMenuCursorX], a
+	ld a, $03
+	ld [wMenuJoypadFilter], a
+	ld a, $20
+	ld [w2DMenuFlags], a
+	xor a
+	ld [w2DMenuFlags+1], a
+	ld a, $20
+	ld [w2DMenuCursorOffsets], a
+	call Get2DMenuJoypad
+	push af
+	call ReloadTilesFromBuffer
+	pop af
+	pop hl
+	bit 1, a
+	jr nz, .sub_658a
+	push hl
+	ld a, [w2DMenuDataEnd]
+	dec a
+	ld c, a
+	ld b, $00
+	add hl, bc
+	ld a, [hl]
+	push af
+	push bc
+	call IsHMMove
+	pop bc
+	pop de
+	ld a, d
+	jr c, .sub_6581
+	pop hl
+	add hl, bc
+	and a
+	ret
+.sub_6581
+	ld hl, Text6691
+	call PrintText
+	pop hl
+	jr .sub_650f
+.sub_658a
+	scf
+	ret
+	
+Text658c: ; 01:658c
+	text_from_ram wcd11
+	text "は　あたらしく"
+	line ""
+	text_end
+
+Text6599: ; 01:6599
+	text_from_ram wStringBuffer2
+	text "を　おぼえた！"
+	text_end
+
+Text65a5: ; 01:65a5
+	sound_dex_fanfare_50_79
+	text_waitbutton
+	text_end
+	
+Text65a8: ; 01:65a8
+	text "どの　わざを"
+	next "わすれさせたい？"
+	done
+
+Text65b9: ; 01:65b9
+	text "それでは<⋯⋯>　"
+	text_end
+	
+Text65c1: ; 01:65c1
+	text_from_ram wStringBuffer2
+	text "を"
+	line "おぼえるのを　あきらめますか？"
+	done
+	
+Text65d7: ; 01:65d7
+	text_from_ram wcd11
+	text "は　"
+	text_end
+	
+Text65de: ; 01:65de
+	text_from_ram wStringBuffer2
+	text "を"
+	line "おぼえずに　おわった！"
+	prompt
+	
+Text65f0: ; 01:65f0
+	text_from_ram wcd11
+	text "は　あたらしく"
+	line ""
+	text_end
+	
+Text65fd: ; 01:65fd
+	text_from_ram wStringBuffer2
+	text "を　おぼえたい<⋯⋯>！"
+	para "しかし　"
+	text_end
+
+Text6610: ; 01:6610
+	text_from_ram wcd11
+	text "は　わざを　４つ"
+	line "おぼえるので　せいいっぱいだ！"
+	para ""
+	text_end
+
+Text662e: ; 01:662e
+	text_from_ram wStringBuffer2
+	text "の　かわりに"
+	line "ほかの　わざを　わすれさせますか？"
+	done
+	
+Text664b: ; 01:664b
+	text "１　２の　<⋯⋯>"
+	text_end
+	
+Text6653: ; 01:6653
+	text_exit
+	start_asm
+	push de
+	ld de, $001b
+	call PlaySFX
+	pop de
+	ld hl, Text6661
+	ret
+	
+Text6661:  ; 01:6661
+	text "　ポカン！"
+	text_end
+	
+Text6668: ; 01:6668
+	text_exit
+	text ""
+	para ""
+	text_end
+	
+Text666c: ; 01:666c
+	text_from_ram wcd11
+	text "は　"
+	text_end
+
+Text6673: ; 01:6673
+	text_from_ram wStringBuffer1
+	text "の"
+	line "つかいかたを　きれいに　わすれた！"
+	para "そして<⋯⋯>！"
+	prompt
+	
+Text6691: ; 01:6691
+	text "それは　たいせつなわざです"
+	line "わすれさせることは　できません！"
+	prompt
+
+Function66b1: ; 01:66b1
+	ld hl, wcd74
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld a, [wCurItem]
+	cp $c4
+	jr nc, .sub_66d2
+	dec a
+	ld c, a
+	ld b, $00
+	add hl, bc
+	add hl, bc
+	add hl, bc
+	add hl, bc
+	inc hl
+	ld a, [hld]
+	ldh [hSpriteOffset], a
+	ld a, [hld]
+	ldh [hConnectedMapWidth], a
+	ld a, [hl]
+	ldh [hConnectionStripLength], a
+	jr .sub_66d5
+.sub_66d2
+	call .sub_66d9
+.sub_66d5
+	ld de, hConnectionStripLength
+	ret
+.sub_66d9
+	ld a, [wCurItem]
+	sub $c9
+	ret c
+	ld d, a
+	ld hl, Table66fa
+	srl a
+	ld c, a
+	ld b, $00
+	add hl, bc
+	ld a, [hl]
+	srl d
+	jr nc, .sub_66f0
+	swap a
+.sub_66f0
+	and $f0
+	ldh [hConnectedMapWidth], a
+	xor a
+	ldh [hConnectionStripLength], a
+	ldh [hSpriteOffset], a
+	ret
+	
+Table66fa: ; 01:66fa
+	db $32, $21, $34, $24
+	db $34, $21, $45, $55
+	db $32, $32, $55, $52
+	db $54, $52, $41, $21
+	db $12, $42, $25, $24
+	db $22, $52, $24, $34
+	db $42
+
+Function6713: ; 01:6713
+	push hl
+	call LoadStandardMenuHeader
+	ld a, [wBattleMode]
+	dec a
+	coord hl, 1, 0
+	ld b, $04
+	ld c, $0a
+	call z, ClearBox
+	ld a, [wMonDexIndex]
+	ld [wce37], a
+	call GetPokemonName
+	ld a, [wDebugFlags]
+	bit 1, a
+	pop hl
+	push hl
+	ld hl, Text6788
+	call PrintText
+	call YesNoBox
+	pop hl
+	jr c, .sub_6779
+	push hl
+	ld e, l
+	ld d, h
+	ld a, BANK(Function113f4)
+	ld b, $00
+	ld hl, Function113f4
+	call FarCall_hl
+	call ClearBGPalettes
+	call ClearTileMap
+	call ClearSprites
+	call GetMemSGBLayout
+	call SetPalettes
+	ld a, [wBattleMode]
+	and a
+	jr nz, .sub_676b
+	call LoadFontExtra
+	call Function3657
+	jr .sub_6773
+.sub_676b
+	ld hl, Function3e3a7
+	ld a, BANK(Function3e3a7)
+	call FarCall_hl
+.sub_6773
+	pop hl
+	ld a, [hl]
+	cp $50
+	jr nz, .sub_6784
+.sub_6779
+	ld d, h
+	ld e, l
+	ld hl, wStringBuffer1
+	ld bc, $0006
+	call CopyBytes
+.sub_6784
+	call CloseWindow
+	ret
+	
+Text6788: ; 01:6788
+	text_from_ram wStringBuffer1
+	text "に"
+	line "ニックネームを　つけますか？"
+	done
+	
+Function679d: ; 01:679d
+	ld de, wFieldMoveScriptID
+	push de
+	ld hl, Function113f4
+	ld b, $00
+	ld a, BANK(Function113f4)
+	call FarCall_hl
+	call ClearBGPalettes
+	call Function360b
+	call UpdateTimePals
+	pop de
+	ld a, [de]
+	cp $50
+	jr z, .sub_67d3
+	ld hl, wPartyMonNicknames
+	ld bc, $0006
+	ld a, [wWhichPokemon]
+	call AddNTimes
+	ld e, l
+	ld d, h
+	ld hl, wFieldMoveScriptID
+	ld bc, $0006
+	call CopyBytes
+	and a
+	ret
+.sub_67d3
+	scf
+	ret
+
+CorrectNickErrors: ; 01:67d5
+	push bc
+	push de
+	ld b, $06
+.sub_67d9
+	ld a, [de]
+	cp $50
+	jr z, .sub_6802
+	ld hl, Table6805
+	dec hl
+.sub_67e2
+	inc hl
+	ld a, [hl]
+	cp $ff
+	jr z, .sub_67f5
+	ld a, [de]
+	cp [hl]
+	inc hl
+	jr c, .sub_67e2
+	cp [hl]
+	jr nc, .sub_67e2
+	ld a, $e6
+	ld [de], a
+	jr .sub_67e2
+.sub_67f5
+	inc de
+	dec b
+	jr nz, .sub_67d9
+	pop de
+	push de
+	ld a, $e6
+	ld [de], a
+	inc de
+	ld a, $50
+	ld [de], a
+.sub_6802
+	pop de
+	pop bc
+	ret
+	
+Table6805:: ; 01:6805
+	db $00, $05, $14, $19, $1d
+	db $26, $35, $3a, $49, $7f
+	db $ff
+	
+SECTION "engine/dumps/bank01.asm@Function771e", ROMX
+
+Function771e: ; 01:771e
+	ld hl, $0004
+	add hl, bc
+	bit 4, [hl]
+	jr z, .sub_772c
+	push hl
+	call _IsObjectCollisionTileSolid
+	pop hl
+	ret c
+.sub_772c
+	bit 6, [hl]
+	jr z, .sub_7738
+	push hl
+	push bc
+	call Function77a1
+	pop bc
+	pop hl
+	ret c
+.sub_7738
+	bit 5, [hl]
+	jr z, .sub_7748
+	push hl
+	call Function782c
+	pop hl
+	ret c
+	push hl
+	call Function786e
+	pop hl
+	ret c
+.sub_7748
+	and a
+	ret
+
+SECTION "engine/dumps/bank01.asm@Function776e", ROMX
+
+Function776e: ; 01:776e
+	call GetFacingTileCoord
+	cp $90
+	jr z, .sub_7779
+	cp $98
+	jr nz, .sub_7789
+.sub_7779
+	ld a, [wPlayerNextMapX]
+	sub d
+	cpl
+	inc a
+	add d
+	ld d, a
+	ld a, [wPlayerNextMapY]
+	sub e
+	cpl
+	inc a
+	add e
+	ld e, a
+.sub_7789
+	ld bc, wPlayerSprite
+	ld a, $01
+	ldh [hConnectionStripLength], a
+	call _CheckObjectCollision
+	ret nc
+	ld hl, $0006
+	add hl, bc
+	ld a, [hl]
+	cp $ff
+	jr z, .sub_779f
+	xor a
+	ret
+.sub_779f
+	scf
+	ret
+
+Function77a1: ; 01:77a1
+	ld hl, $0010
+	add hl, bc
+	ld d, [hl]
+	ld hl, $0011
+	add hl, bc
+	ld e, [hl]
+	jr _CheckObjectCollision
+	
+Function77ad: ; 01:77ad
+	ldh a, [hConnectionStripLength]
+	call GetObjectStruct
+	call .sub_77b9
+	call _CheckObjectCollision
+	ret
+.sub_77b9
+	ld hl, $0010
+	add hl, bc
+	ld d, [hl]
+	ld hl, $0011
+	add hl, bc
+	ld e, [hl]
+	ld hl, $0007
+	add hl, bc
+	ld a, [hl]
+	and $0c
+	and a
+	jr z, .sub_77d7
+	cp $04
+	jr z, .sub_77d9
+	cp $08
+	jr z, .sub_77db
+	inc d
+	ret
+.sub_77d7
+	inc e
+	ret
+.sub_77d9
+	dec e
+	ret
+.sub_77db
+	dec d
+	ret
+
+SECTION "engine/dumps/bank01.asm@Function782c", ROMX
+
+Function782c: ; 01:782c
+	ld hl, $0016
+	add hl, bc
+	ld a, [hl]
+	and a
+	jr z, .sub_784b
+	ld e, a
+	ld d, a
+	ld hl, $0014
+	add hl, bc
+	ld a, [hl]
+	sub d
+	ld d, a
+	ld a, [hl]
+	add e
+	ld e, a
+	ld hl, $0010
+	add hl, bc
+	ld a, [hl]
+	cp d
+	jr z, .sub_786c
+	cp e
+	jr z, .sub_786c
+.sub_784b
+	ld hl, $0017
+	add hl, bc
+	ld a, [hl]
+	and a
+	jr z, .sub_786a
+	ld e, a
+	ld d, a
+	ld hl, $0015
+	add hl, bc
+	ld a, [hl]
+	sub d
+	ld d, a
+	ld a, [hl]
+	add e
+	ld e, a
+	ld hl, $0011
+	add hl, bc
+	ld a, [hl]
+	cp d
+	jr z, .sub_786c
+	cp e
+	jr z, .sub_786c
+.sub_786a
+	and a
+	ret
+.sub_786c
+	scf
+	ret
+
+Function786e: ; 01:786e
+	ld hl, $0010
+	add hl, bc
+	ld a, [wXCoord]
+	cp [hl]
+	jr z, .sub_787f
+	jr nc, .sub_7892
+	add $09
+	cp [hl]
+	jr c, .sub_7892
+.sub_787f
+	ld hl, $0011
+	add hl, bc
+	ld a, [wYCoord]
+	cp [hl]
+	jr z, .sub_7890
+	jr nc, .sub_7892
+	add $08
+	cp [hl]
+	jr c, .sub_7892
+.sub_7890
+	and a
+	ret
+.sub_7892
+	scf
+	ret
+
+SECTION "engine/dumps/bank01.asm@SettingsScreen", ROMX
+
+SettingsScreen: ; 01:78e5
+	ld a, [wVramState]
+	push af
+	xor a
+	ld [wVramState], a
+
+Function78ed: ; 01:78ed
+	call Function7a93
+
+Function78f0: ; 01:78f0
+	call Function7a41
+	ld [hl], $ed
+	call Function7a55
+	call WaitBGMap
+.sub_78fb
+	call DelayFrame
+	call GetJoypadDebounced
+	ldh a, [hJoySum]
+	ld b, a
+	and a
+	jr z, .sub_78fb
+	ld a, b
+	and $0a
+	jr nz, .sub_7924
+	ld a, b
+	and $04
+	jr nz, .sub_7939
+	ld a, b
+	and $01
+	jr z, Function7977
+	ld a, [wc409]
+	cp $10
+	jr nz, Function78f0
+	ld a, [wTileMapBackup]
+	cp $07
+	jr z, .sub_7956
+.sub_7924
+	push de
+	ld de, $0005
+	call PlaySFX
+	pop de
+	pop af
+	ld [wVramState], a
+	ld hl, wd4a9
+	bit 0, [hl]
+	jp z, TitleSequenceStart
+	ret
+.sub_7939
+	ld hl, wce5f
+	ld a, [hl]
+	xor $08
+	ld [hl], a
+	ld hl, Function96eb
+	ld a, BANK(Function96eb)
+	call FarCall_hl
+	call LoadFont
+	call LoadFontExtra
+	ld c, $70
+	call DelayFrames
+	jp Function78ed
+.sub_7956
+	ld a, [wActiveFrame]
+	inc a
+	and $07
+	ld [wActiveFrame], a
+	coord hl, 17, 16
+	add $f7
+	ld [hl], a
+	call LoadFontExtra
+	jr Function78f0
+
+Function796a: ; 01:796a
+	push af
+	call Function7a41
+	ld [hl], $7f
+	pop af
+	ld [wTileMapBackup], a
+	jp Function78f0
+
+Function7977: ; 01:7977
+	ld a, [wc409]
+	bit 7, b
+	jr nz, .sub_799e
+	bit 6, b
+	jr nz, .sub_79c1
+	cp $07
+	jp z, .sub_7a10
+	cp $0b
+	jp z, .sub_7a1b
+	cp $0d
+	jp z, .sub_7a26
+	cp $10
+	jp z, .sub_7a31
+	bit 5, b
+	jp nz, .sub_79f6
+	jp .sub_7a01
+.sub_799e
+	cp $10
+	ld b, $f3
+	ld hl, wc40a
+	jr z, .sub_79e2
+	cp $03
+	ld b, $04
+	inc hl
+	jr z, .sub_79e2
+	cp $07
+	ld b, $04
+	inc hl
+	jr z, .sub_79e2
+	cp $0b
+	ld b, $02
+	inc hl
+	jr z, .sub_79e2
+	ld b, $03
+	inc hl
+	jr .sub_79e2
+.sub_79c1
+	cp $07
+	ld b, $fc
+	ld hl, wc40a
+	jr z, .sub_79e2
+	cp $0b
+	ld b, $fc
+	inc hl
+	jr z, .sub_79e2
+	cp $0d
+	ld b, $fe
+	inc hl
+	jr z, .sub_79e2
+	cp $10
+	ld b, $fd
+	inc hl
+	jr z, .sub_79e2
+	ld b, $0d
+	inc hl
+.sub_79e2
+	add b
+	push af
+	ld a, [hl]
+	push af
+	call Function7a41
+	ld [hl], $ec
+	pop af
+	ld [wTileMapBackup], a
+	pop af
+	ld [wc409], a
+	jp Function78f0
+.sub_79f6
+	ld a, [wc40a]
+	cp $01
+	jr z, .sub_7a0a
+	sub $07
+	jr .sub_7a0a
+.sub_7a01
+	ld a, [wc40a]
+	cp $0f
+	jr z, .sub_7a0a
+	add $07
+.sub_7a0a
+	ld [wc40a], a
+	jp Function796a
+.sub_7a10
+	ld a, [wWhichPicTest]
+	xor $0b
+	ld [wWhichPicTest], a
+	jp Function796a
+.sub_7a1b
+	ld a, [wc40c]
+	xor $0b
+	ld [wc40c], a
+	jp Function796a
+.sub_7a26
+	ld a, [wc40d]
+	xor $0b
+	ld [wc40d], a
+	jp Function796a
+.sub_7a31
+	call Function7a41
+	ld [hl], $ec
+	ld a, [wTileMapBackup]
+	xor $06
+	ld [wTileMapBackup], a
+	jp Function78f0
+
+Function7a41: ; 01:7a41
+	ld a, [wc409]
+	ld hl, wTileMap
+	ld bc, $0014
+	call AddNTimes
+	ld a, [wTileMapBackup]
+	ld b, $00
+	ld c, a
+	add hl, bc
+	ret
+
+Function7a55: ; 01:7a55
+	ld hl, Table7c22
+	ld a, [wc40a]
+	ld c, a
+.sub_7a5c
+	ld a, [hli]
+	cp c
+	jr z, .sub_7a63
+	inc hl
+	jr .sub_7a5c
+.sub_7a63
+	ld a, [hl]
+	ld d, a
+	ld a, [wWhichPicTest]
+	dec a
+	jr z, .sub_7a6f
+	set 7, d
+	jr .sub_7a71
+.sub_7a6f
+	res 7, d
+.sub_7a71
+	ld a, [wc40c]
+	dec a
+	jr z, .sub_7a7b
+	set 6, d
+	jr .sub_7a7d
+.sub_7a7b
+	res 6, d
+.sub_7a7d
+	ld a, [wc40d]
+	dec a
+	jr z, .sub_7a87
+	set 5, d
+	jr .sub_7a89
+.sub_7a87
+	res 5, d
+.sub_7a89
+	ld a, [wce5f]
+	and $08
+	or d
+	ld [wce5f], a
+	ret
+
+Function7a93: ; 01:7a93
+	call ClearBGPalettes
+	call DisableLCD
+	xor a
+	ldh [hBGMapMode], a
+	call .sub_7b26
+	xor a
+	ld hl, wc40a
+	ld [hli], a
+	ld [hli], a
+	ld [hli], a
+	ld [hli], a
+	ld [hl], a
+	inc a
+	ld [wTextBoxFlags], a
+	ld hl, Table7c23
+	ld a, [wce5f]
+	ld c, a
+	and $07
+	push bc
+	ld de, $0002
+	call FindItemInTable
+	pop bc
+	dec hl
+	ld a, [hl]
+	ld [wc40a], a
+	coord hl, 0, 3
+	call .sub_7b1f
+	sla c
+	ld a, $01
+	jr nc, .sub_7ad0
+	ld a, $0a
+.sub_7ad0
+	ld [wWhichPicTest], a
+	coord hl, 0, 7
+	call .sub_7b1f
+	sla c
+	ld a, $01
+	jr nc, .sub_7ae1
+	ld a, $0a
+.sub_7ae1
+	ld [wc40c], a
+	coord hl, 0, 11
+	call .sub_7b1f
+	sla c
+	ld a, $01
+	jr nc, .sub_7af2
+	ld a, $0a
+.sub_7af2
+	ld [wc40d], a
+	coord hl, 0, 13
+	call .sub_7b1f
+	ld a, $01
+	ld [wc40e], a
+	coord hl, 1, 16
+	ld [hl], $ec
+	coord hl, 7, 16
+	ld [hl], $ec
+	ld a, [wc40a]
+	ld [wTileMapBackup], a
+	ld a, $03
+	ld [wc409], a
+	call EnableLCD
+	call WaitBGMap
+	call SetPalettes
+	ret
+.sub_7b1f
+	ld e, a
+	ld d, $00
+	add hl, de
+	ld [hl], $ec
+	ret
+.sub_7b26
+	ld de, vChars1 + $0700
+	ld hl, TrainerCardGFX
+	ld bc, $0010
+	ld a, BANK(TrainerCardGFX)
+	call FarCopyData
+	ld hl, wTileMap
+	ld bc, $0168
+	ld a, $f0
+	call ByteFill
+	coord hl, 1, 1
+	lb bc, 3, 18
+	call ClearBox
+	coord hl, 1, 5
+	lb bc, 3, 18
+	call ClearBox
+	coord hl, 1, 9
+	lb bc, 3, 18
+	call ClearBox
+	coord hl, 1, 13
+	lb bc, 1, 18
+	call ClearBox
+	coord hl, 1, 1
+	ld de, Text7bad
+	call PlaceString
+	coord hl, 1, 5
+	ld de, Text7bc9
+	call PlaceString
+	coord hl, 1, 9
+	ld de, Text7be8
+	call PlaceString
+	coord hl, 1, 13
+	ld de, Text7c03
+	call PlaceString
+	coord hl, 1, 16
+	ld de, Text7c12
+	call PlaceString
+	coord hl, 6, 15
+	ld b, $01
+	ld c, $0b
+	call DrawTextBox
+	coord hl, 7, 16
+	ld de, Text7c17
+	call PlaceString
+	ld a, [wActiveFrame]
+	coord hl, 17, 16
+	add $f7
+	ld [hl], a
+	ret
+	
+Text7bad: ; 01:7bad
+	db "はなしの　はやさ"
+	next "　はやい　　　　ふつう　　　　おそい"
+	text_end
+
+Text7bc9: ; 01:7bc9
+	db "せんとう　アニメーション"
+	next "　じっくり　みる　　とばして　みる"
+	text_end
+
+Text7be8: ; 01:7be8
+	db "しあいの　ルール"
+	next "　いれかえタイプ　　かちぬきタイプ"
+	text_end
+
+Text7c03: ; 01:7c03
+	db "　モノラル　　　　　ステレオ"
+	text_end
+
+Text7c12: ; 01:7c12
+	db "　おわり"
+	text_end
+
+Text7c17: ; 01:7c17
+	db "　わく　を　かえる　"
+	text_end
+	
+Table7c22: ; 01:7c22
+	db $0F
+	
+Table7c23: ; 01:7c23
+	db $05, $08, $03
+	db $01, $01, $08
+	db $FF
+	
+Unknown7c2a: ; 01:7c2a
+rept 491
+	db $39, $00
+endr