Move field select, high scroes, and options screens into separate files

4 files changed, 3062 insertions, 3062 deletions

diff --git a/engine/field_select_screen.asm b/engine/field_select_screen.asm
new file mode 100755
index 0000000..2d5cd7c
--- /dev/null
+++ b/engine/field_select_screen.asm
@@ -0,0 +1,217 @@
+HandleFieldSelectScreen: ; 0xd6d3

+	ld a, [wScreenState]

+	rst JumpTable  ; calls JumpToFuncInTable

+FieldSelectScreenFunctions: ; 0xd6d7

+	dw LoadFieldSelectScreen

+	dw ChooseFieldToPlay

+	dw ExitFieldSelectScreen

+

+LoadFieldSelectScreen: ; 0xd6dd

+	ld a, $43

+	ld [hLCDC], a

+	ld a, $e4

+	ld [wBGP], a

+	ld a, $d2

+	ld [wOBP0], a

+	ld [wOBP1], a

+	xor a

+	ld [hSCX], a

+	ld [hSCY], a

+	ld hl, FieldSelectGfxPointers

+	ld a, [hGameBoyColorFlag]

+	call LoadVideoData

+	call ClearOAMBuffer

+	ld a, $8

+	ld [wFieldSelectBlinkingBorderFrame], a

+	call Func_b66

+	ld a, $12

+	call SetSongBank

+	ld de, $0003

+	call PlaySong

+	call Func_588

+	call Func_bbe

+	ld hl, wScreenState

+	inc [hl]

+	ret

+

+FieldSelectGfxPointers: ; 0xd71c

+	dw FieldSelectGfx_GameBoy

+	dw FieldSelectGfx_GameBoyColor

+

+FieldSelectGfx_GameBoy: ; 0xd720

+	VIDEO_DATA_TILES   FieldSelectScreenGfx, vTilesSH - $100, $d00

+	VIDEO_DATA_TILEMAP FieldSelectTilemap, vBGMap, $240

+	db $FF, $FF ; terminators

+

+FieldSelectGfx_GameBoyColor: ; 0xd730

+	VIDEO_DATA_TILES    FieldSelectScreenGfx, vTilesSH - $100, $d00

+	VIDEO_DATA_TILEMAP  FieldSelectTilemap, vBGMap, $240

+	VIDEO_DATA_BGATTR   FieldSelectBGAttributes, vBGMap, $240

+	VIDEO_DATA_PALETTES FieldSelectScreenPalettes, $48

+	db $FF, $FF ; terminators

+

+ChooseFieldToPlay: ; 0xd74e

+	call MoveFieldSelectCursor

+	ld hl, FieldSelectBorderAnimationData

+	call AnimateBlinkingFieldSelectBorder

+	ld a, [hNewlyPressedButtons]

+	and (A_BUTTON | B_BUTTON)

+	ret z

+	ld [wd8f6], a

+	ld a, $18  ; number of frames to blink the border after selecting the Field

+	ld [wFieldSelectBlinkingBorderTimer], a

+	ld a, $1

+	ld [wFieldSelectBlinkingBorderFrame], a

+	lb de, $00, $01

+	call PlaySoundEffect

+	ld hl, wScreenState

+	inc [hl]

+	ret

+

+ExitFieldSelectScreen: ; 0xd774

+	ld a, [wd8f6]  ; this holds the button that was pressed (A or B)

+	bit BIT_A_BUTTON, a

+	jr z, .didntPressA

+	ld hl, FieldSelectConfirmationAnimationData

+	call AnimateBlinkingFieldSelectBorder

+	ld a, [wFieldSelectBlinkingBorderTimer]

+	dec a

+	ld [wFieldSelectBlinkingBorderTimer], a

+	ret nz

+.didntPressA

+	ld a, [hJoypadState]

+	push af

+	call Func_cb5

+	call Func_576

+	ld a, [wd8f6]

+	bit BIT_A_BUTTON, a

+	jr z, .pressedB

+	ld a, [wSelectedFieldIndex]

+	ld c, a

+	ld b, $0

+	ld hl, StartingStages

+	add hl, bc

+	ld a, [hl]

+	ld [wCurrentStage], a

+	pop af

+	xor a

+	ld [wd7c2], a

+	ld hl, wPartyMons

+	ld de, sSaveGame

+	ld bc, $04c3

+	call SaveData

+	xor a

+	ld [wd7c1], a

+	; Start a round of Pinball! Yayy

+	ld a, SCREEN_PINBALL_GAME

+	ld [wCurrentScreen], a

+	xor a

+	ld [wScreenState], a

+	ret

+

+.pressedB

+	pop af

+	ld a, SCREEN_TITLESCREEN

+	ld [wCurrentScreen], a

+	xor a

+	ld [wScreenState], a

+	ret

+

+StartingStages: ; 0xd7d1

+; wSelectedFieldIndex is used to index this array

+	db STAGE_RED_FIELD_BOTTOM, STAGE_BLUE_FIELD_BOTTOM

+

+MoveFieldSelectCursor: ; 0xd7d3

+; When the player presses Right or Left, the stage is

+; illuminated with a blinking border.  This function keeps tracks

+; of which field is currently selected.

+	ld a, [hPressedButtons]

+	ld b, a

+	ld a, [wSelectedFieldIndex]

+	bit BIT_D_LEFT, b

+	jr z, .didntPressLeft

+	and a

+	ret z  ; if cursor is already hovering over Red stage, don't do anything

+	dec a  ; move cursor over Red stage

+	ld [wSelectedFieldIndex], a

+	lb de, $00, $3c

+	call PlaySoundEffect

+	ret

+

+.didntPressLeft

+	bit BIT_D_RIGHT, b

+	ret z

+	cp $1

+	ret z  ; if cursor is already hovering over Blue stage, don't do anything

+	inc a  ; move cursor over Red stage

+	ld [wSelectedFieldIndex], a

+	lb de, $00, $3d

+	call PlaySoundEffect

+	ret

+

+AnimateBlinkingFieldSelectBorder: ; 0xd7fb

+; This makes the border of the currently-selected Field blink in the Field Select screen.

+	push hl

+	ld a, [wSelectedFieldIndex]

+	sla a

+	ld c, a

+	ld b, $0

+	ld hl, FieldSelectBorderOAMPixelOffsetData

+	add hl, bc

+	ld a, [hli]

+	ld c, a

+	ld a, [hli]

+	ld b, a

+	ld a, [wd915]

+	sla a

+	ld e, a

+	ld d, $0

+	pop hl

+	push hl

+	add hl, de

+	ld a, [hl]

+	call LoadOAMData

+	ld a, [wFieldSelectBlinkingBorderFrame]

+	dec a

+	jr nz, .asm_d838

+	inc hl

+	inc hl

+	ld a, [hl]

+	and a

+	jr z, .asm_d82b

+	ld a, [wd915]

+	inc a

+.asm_d82b

+	ld [wd915], a

+	sla a

+	ld c, a

+	ld b, $0

+	pop hl

+	push hl

+	inc hl

+	add hl, bc

+	ld a, [hl]

+.asm_d838

+	ld [wFieldSelectBlinkingBorderFrame], a

+	pop hl

+	ret

+

+FieldSelectBorderAnimationData:

+; [OAM id][duration]

+	db $9e, $08

+	db $9f, $08

+	db $9e, $08

+	db $a0, $08

+	db $00  ; terminator

+

+FieldSelectConfirmationAnimationData:

+; [OAM id][duration]

+	db $9F, $03

+	db $A0, $03

+	db $9F, $03

+	db $A0, $03

+	db $00  ; terminator

+

+FieldSelectBorderOAMPixelOffsetData:

+	dw $2A42

+	dw $7242

diff --git a/engine/high_scores_screen.asm b/engine/high_scores_screen.asm
new file mode 100755
index 0000000..1969f62
--- /dev/null
+++ b/engine/high_scores_screen.asm
@@ -0,0 +1,1755 @@
+HandleHighScoresScreen: ; 0xca7f

+	ld a, [wScreenState]

+	rst JumpTable  ; calls JumpToFuncInTable

+HighScoresScreenFunctions: ; 0xca83

+	dw Func_ca8f

+	dw Func_cb14

+	dw Func_ccac

+	dw Func_ccb6

+	dw Func_cd6c

+	dw ExitHighScoresScreen

+

+Func_ca8f: ; 0xca8f

+	ld hl, wd473

+	call GenRandom

+	ld [hli], a

+	call GenRandom

+	ld [hli], a

+	call GenRandom

+	ld [hli], a

+	call GenRandom

+	ld [hli], a

+	ld hl, wRedHighScore5Points + $5

+	ld a, [wHighScoresStage]

+	and a

+	jr z, .asm_caae

+	ld hl, wBlueHighScore5Points + $5

+.asm_caae

+	ld b, $5

+.asm_cab0

+	ld de, wScore + $5

+	ld c, $6

+.asm_cab5

+	ld a, [de]

+	cp [hl]

+	jr c, .asm_cad0

+	jr nz, .asm_cac2

+	dec de

+	dec hl

+	dec c

+	jr nz, .asm_cab5

+	jr .asm_cad0

+

+.asm_cac2

+	dec hl

+	dec c

+	jr nz, .asm_cac2

+	ld a, l

+	sub $7

+	ld l, a

+	jr nc, .asm_cacd

+	dec h

+.asm_cacd

+	dec b

+	jr nz, .asm_cab0

+.asm_cad0

+	ld a, b

+	ld [wda81], a

+	xor a

+	ld [wda80], a

+	inc b

+	ld hl, wRedHighScore4Unknown0x09 + 3

+	ld de, wRedHighScore5Unknown0x09 + 3

+	ld a, [wHighScoresStage]

+	and a

+	jr z, .asm_caeb

+	ld hl, wBlueHighScore4Unknown0x09 + 3

+	ld de, wBlueHighScore5Unknown0x09 + 3

+.asm_caeb

+	ld a, $5

+.asm_caed

+	cp b

+	jr c, .asm_cb02

+	push af

+	jr nz, .asm_caf6

+	ld hl, wd473 + $3

+.asm_caf6

+	ld c, $d

+.asm_caf8

+	ld a, [hld]

+	ld [de], a

+	dec de

+	dec c

+	jr nz, .asm_caf8

+	pop af

+	dec a

+	jr nz, .asm_caed

+.asm_cb02

+	ld a, [wda81]

+	cp $5

+	ld a, $1

+	jr nz, .asm_cb0c

+	xor a

+.asm_cb0c

+	ld [wda7f], a

+	ld hl, wScreenState

+	inc [hl]

+	ret

+

+Func_cb14: ; 0xcb14

+	ld a, $43

+	ld [hLCDC], a

+	ld a, $e0

+	ld [wBGP], a

+	ld a, $e1

+	ld [wOBP0], a

+	ld [wOBP1], a

+	xor a

+	ld [hSCX], a

+	ld [hNextFrameHBlankSCX], a

+	ld [hSCY], a

+	ld [hNextFrameHBlankSCY], a

+	ld a, $e

+	ld [hLYC], a

+	ld [hLastLYC], a

+	ld a, $82

+	ld [hNextLYCSub], a

+	ld [hLYCSub], a

+	ld hl, hSTAT

+	set 6, [hl]

+	ld hl, rIE

+	set 1, [hl]

+	ld a, $3

+	ld [hHBlankRoutine], a

+	ld a, [hGameBoyColorFlag]

+	and a

+	jr z, .asm_cb51

+	ld a, [wHighScoresStage]

+	inc a

+.asm_cb51

+	ld hl, HighScoresVideoDataPointers

+	call LoadVideoData

+	call ClearOAMBuffer

+	ld a, $20

+	ld [wda82], a

+	call Func_d211

+	hlCoord 0, 14, vBGMap

+	ld de, wRedHighScore5Unknown0x09 + $3

+	call Func_d2cb

+	hlCoord 0, 14, vBGWin

+	ld de, wBlueHighScore5Unknown0x09 + $3

+	call Func_d2cb

+	ld a, [wHighScoresStage]

+	and a

+	jr z, .asm_cb7f

+	ld hl, hLCDC

+	set 3, [hl]

+.asm_cb7f

+	call Func_b66

+	ld a, [wda7f]

+	and a

+	jr z, .asm_cbbd

+	ld a, [wda81]

+	and a

+	jr nz, .asm_cb9b

+	ld a, $13

+	call SetSongBank

+	ld de, $0001

+	call PlaySong

+	jr .asm_cba6

+

+.asm_cb9b

+	ld a, $13

+	call SetSongBank

+	ld de, $0002

+	call PlaySong

+.asm_cba6

+	call Func_588

+	ld bc, $0009

+	call Func_d68a

+	ld bc, $03c9

+	call Func_d68a

+	call Func_bbe

+	ld hl, wScreenState

+	inc [hl]

+	ret

+

+.asm_cbbd

+	ld a, $10

+	call SetSongBank

+	ld de, $0004

+	call PlaySong

+	call Func_588

+	ld bc, $0009

+	call Func_d68a

+	ld bc, $03c9

+	call Func_d68a

+	call Func_bbe

+	ld hl, wScreenState

+	inc [hl]

+	ld hl, wScreenState

+	inc [hl]

+	ret

+

+HighScoresVideoDataPointers: ; 0xcbe3

+	dw HighScoresVideoData_GameBoy

+	dw HighScoresRedStageVideoData_GameBoyColor

+	dw HighScoresBlueStageVideoData_GameBoyColor

+

+HighScoresVideoData_GameBoy: ; 0xcbe9

+	VIDEO_DATA_TILES HighScoresBaseGameBoyGfx, vTilesOB, $1800

+	VIDEO_DATA_TILEMAP HighScoresTilemap, vBGMap, $400

+	VIDEO_DATA_TILEMAP HighScoresTilemap2, vBGWin, $400

+	dw HighScoresTilemap + $3c0

+	db Bank(HighScoresTilemap)

+	dw vBGMap

+	dw ($40 << 2)

+	dw HighScoresTilemap + $280

+	db Bank(HighScoresTilemap)

+	dw vBGMap + $200

+	dw ($40 << 2)

+	dw HighScoresTilemap2 + $3c0

+	db Bank(HighScoresTilemap2)

+	dw vBGWin

+	dw ($40 << 2)

+	dw HighScoresTilemap2 + $280

+	db Bank(HighScoresTilemap2)

+	dw vBGWin + $200

+	dw ($40 << 2)

+	db $FF, $FF  ; terminators

+

+HighScoresRedStageVideoData_GameBoyColor: ; 0xcc1c

+	VIDEO_DATA_TILES HighScoresBaseGameBoyGfx, vTilesOB, $1800

+	VIDEO_DATA_TILEMAP HighScoresTilemap, vBGMap, $400

+	VIDEO_DATA_TILEMAP HighScoresTilemap2, vBGWin, $400

+	VIDEO_DATA_TILEMAP_BANK2 HighScoresTilemap4, vBGMap, $400

+	VIDEO_DATA_TILEMAP_BANK2 HighScoresTilemap5, vBGWin, $400

+	dw HighScoresTilemap + $3c0

+	db Bank(HighScoresTilemap)

+	dw vBGMap

+	dw ($40 << 2)

+	dw HighScoresTilemap + $280

+	db Bank(HighScoresTilemap)

+	dw vBGMap + $200

+	dw ($40 << 2)

+	dw HighScoresTilemap2 + $3c0

+	db Bank(HighScoresTilemap2)

+	dw vBGWin

+	dw ($40 << 2)

+	dw HighScoresTilemap2 + $280

+	db Bank(HighScoresTilemap2)

+	dw vBGWin + $200

+	dw ($40 << 2)

+	VIDEO_DATA_PALETTES HighScoresRedStagePalettes, $80

+	db $FF, $FF

+

+HighScoresBlueStageVideoData_GameBoyColor: ; 0xcc64

+	VIDEO_DATA_TILES HighScoresBaseGameBoyGfx, vTilesOB, $1800

+	VIDEO_DATA_TILEMAP HighScoresTilemap, vBGMap, $400

+	VIDEO_DATA_TILEMAP HighScoresTilemap2, vBGWin, $400

+	VIDEO_DATA_TILEMAP_BANK2 HighScoresTilemap4, vBGMap, $400

+	VIDEO_DATA_TILEMAP_BANK2 HighScoresTilemap5, vBGWin, $400

+	dw HighScoresTilemap + $3c0

+	db Bank(HighScoresTilemap)

+	dw vBGMap

+	dw ($40 << 2)

+	dw HighScoresTilemap + $280

+	db Bank(HighScoresTilemap)

+	dw vBGMap + $200

+	dw ($40 << 2)

+	dw HighScoresTilemap2 + $3c0

+	db Bank(HighScoresTilemap2)

+	dw vBGWin

+	dw ($40 << 2)

+	dw HighScoresTilemap2 + $280

+	db Bank(HighScoresTilemap2)

+	dw vBGWin + $200

+	dw ($40 << 2)

+	VIDEO_DATA_PALETTES HighScoresBlueStagePalettes, $80

+	db $FF, $FF  ; terminators

+

+Func_ccac: ; 0xccac

+	call Func_d18b

+	call Func_d1d2

+	call Func_d211

+	ret

+

+Func_ccb6: ; 0xccb6

+	call Func_d4cf

+	call AnimateHighScoresArrow

+	ld a, [hNewlyPressedButtons]

+	bit BIT_A_BUTTON, a

+	jr z, .asm_ccd1

+	lb de, $00, $01

+	call PlaySoundEffect

+	ld hl, wScreenState

+	inc [hl]

+	ld hl, wScreenState

+	inc [hl]

+	ret

+

+.asm_ccd1

+	bit 1, a

+	jr z, .asm_cce4

+	lb de, $00, $01

+	call PlaySoundEffect

+	ld hl, wScreenState

+	inc [hl]

+	ld hl, wScreenState

+	inc [hl]

+	ret

+

+.asm_cce4

+	bit 3, a

+	jr z, .asm_ccfb

+	call Func_1a43

+	ld a, [hGameBoyColorFlag]

+	ld [wd8f0], a

+	lb de, $00, $01

+	call PlaySoundEffect

+	ld hl, wScreenState

+	inc [hl]

+	ret

+

+.asm_ccfb

+	ld a, [hJoypadState]

+	cp (SELECT | D_UP)

+	ret nz

+	ld a, [hNewlyPressedButtons]

+	and (SELECT | D_UP)

+	ret z

+	lb de, $00, $01

+	call PlaySoundEffect

+	call ClearOAMBuffer

+	ld bc, $473b

+	ld a, $94

+	call LoadOAMData

+.asm_cd16

+	rst AdvanceFrame

+	ld a, [hNewlyPressedButtons]

+	bit BIT_B_BUTTON, a

+	jr z, .asm_cd24

+	lb de, $00, $01

+	call PlaySoundEffect

+	ret

+

+.asm_cd24

+	bit 0, a

+	jr z, .asm_cd16

+	lb de, $00, $01

+	call PlaySoundEffect

+	call CopyInitialHighScores

+	ld a, BANK(HighScoresTilemap)

+	ld hl, HighScoresTilemap + $40

+	deCoord 0, 2, vBGMap

+	ld bc, $01c0

+	call LoadVRAMData

+	ld a, BANK(HighScoresTilemap2)

+	ld hl, HighScoresTilemap2 + $40

+	deCoord 0, 2, vBGWin

+	ld bc, $01c0

+	call LoadVRAMData

+	hlCoord 0, 14, vBGMap

+	ld de, wRedHighScore5Unknown0x09 + $3

+	call Func_d361

+	hlCoord 0, 14, vBGWin

+	ld de, wBlueHighScore5Unknown0x09 + $3

+	call Func_d361

+	ld hl, wRedHighScore1Points

+	ld de, $a000

+	ld bc, $0082

+	call SaveData

+	ret

+

+Func_cd6c: ; 0xcd6c

+	ld a, [hNumFramesDropped]

+	and $1f

+	call z, Func_1a43

+	call Func_cf7d

+	call Func_cfa6

+	ld a, [hNewlyPressedButtons]

+	bit BIT_A_BUTTON, a

+	jr z, .asm_cdbb

+	lb de, $00, $01

+	call PlaySoundEffect

+	ld a, [wda85]

+	and a

+	jr nz, .asm_cda1

+	ld a, [wd86e]

+	and a

+	jr z, .asm_cdbb

+	call ClearOAMBuffer

+	ld bc, $473b

+	ld a, $8e

+	call LoadOAMData

+	call Func_d042

+	jr .asm_cdc6

+

+.asm_cda1

+	ld a, [wd8f0]

+	and a

+	jr z, .asm_cdbb

+	ld de, $0000

+	call PlaySong

+	rst AdvanceFrame

+	call Func_cdce

+	push af

+	ld de, $0004

+	call PlaySong

+	pop af

+	jr nc, .asm_cdc6

+.asm_cdbb

+	ld a, [hNewlyPressedButtons]

+	bit BIT_B_BUTTON, a

+	ret z

+	lb de, $00, $01

+	call PlaySoundEffect

+.asm_cdc6

+	xor a

+	ld [rRP], a

+	ld hl, wScreenState

+	dec [hl]

+	ret

+

+Func_cdce: ; 0xcdce

+	push af

+	ld a, $0

+	ld [$abf6], a

+	pop af

+	call ClearOAMBuffer

+	call Func_1be3

+	call SendHighScores

+	push af

+	ld a, $1

+	ld [$abf6], a

+	pop af

+	di

+	ld a, [wd8ea]

+	cp $0

+	jp nz, .asm_ceb6

+	ld a, [wd8e9]

+	cp $1

+	jr z, .asm_ce23

+	push af

+	ld a, $2

+	ld [$abf6], a

+	pop af

+	ld b, $82

+	ld hl, wRedHighScore1Points

+	call Func_1cf8

+	ld a, [wd8ea]

+	cp $0

+	jp nz, .asm_ceb6

+	push af

+	ld a, $3

+	ld [$abf6], a

+	pop af

+	ld hl, wc4c0

+	call Func_1dda

+	ld a, [wd8ea]

+	cp $0

+	jp nz, .asm_ceb6

+	jr .asm_ce4d

+

+.asm_ce23

+	push af

+	ld a, $4

+	ld [$abf6], a

+	pop af

+	ld hl, wc4c0

+	call Func_1dda

+	ld a, [wd8ea]

+	cp $0

+	jr nz, .asm_ceb6

+	push af

+	ld a, $5

+	ld [$abf6], a

+	pop af

+	ld b, $82

+	ld hl, wRedHighScore1Points

+	call Func_1cf8

+	ld a, [wd8ea]

+	cp $0

+	jr nz, .asm_ceb6

+.asm_ce4d

+	push af

+	ld a, $6

+	ld [$abf6], a

+	pop af

+	call Func_ceca

+	rst AdvanceFrame

+	ld hl, wc4cc

+	ld b, $5

+.asm_ce5d

+	push bc

+	push hl

+	ld d, h

+	ld e, l

+	ld hl, wRedHighScore5Unknown0x09 + $3

+	call Func_cfcb

+	pop hl

+	pop bc

+	ld de, $000d

+	add hl, de

+	dec b

+	jr nz, .asm_ce5d

+	push af

+	ld a, $7

+	ld [$abf6], a

+	pop af

+	ld hl, wBottomMessageText + $0d

+	ld b, $5

+.asm_ce7c

+	push bc

+	push hl

+	ld d, h

+	ld e, l

+	ld hl, wBlueHighScore5Unknown0x09 + $3

+	call Func_cfcb

+	pop hl

+	pop bc

+	ld de, $000d

+	add hl, de

+	dec b

+	jr nz, .asm_ce7c

+	push af

+	ld a, $8

+	ld [$abf6], a

+	pop af

+	hlCoord 0, 14, vBGMap

+	ld de, wRedHighScore5Unknown0x09 + $3

+	call Func_d361

+	hlCoord 0, 14, vBGWin

+	ld de, wBlueHighScore5Unknown0x09 + $3

+	call Func_d361

+	ld hl, wRedHighScore1Points

+	ld de, $a000

+	ld bc, $0082

+	call SaveData

+	and a

+	ret

+

+.asm_ceb6

+	push af

+	ld a, $9

+	ld [$abf6], a

+	pop af

+	call Func_ceca

+	rst AdvanceFrame

+	push af

+	ld a, $a

+	ld [$abf6], a

+	pop af

+	scf

+	ret

+

+Func_ceca: ; 0xceca

+	ld a, [rLY]

+	and a

+	jr nz, Func_ceca

+	ei

+	ret

+

+SendHighScores: ; 0xced1

+; Sends high scores, and plays the animation for sending the high scores.

+	ld hl, SendHighScoresAnimationData

+	ld de, wSendHighScoresAnimationFrameCounter

+	call CopyHLToDE

+	ld bc, $4800

+	ld a, [wSendHighScoresAnimationFrame]

+	call LoadOAMData

+	ld bc, $473b

+	ld a, $8f

+	call LoadOAMData

+	call CleanOAMBuffer

+	rst AdvanceFrame

+	ld a, $1

+	ld [wd8e9], a

+	ld b, $b4  ; maximum attempts to send high scores

+.attemptToSendHighScoresLoop

+	push bc

+	xor a

+	ld [hNumFramesSinceLastVBlank], a

+.asm_cefa

+	ld b, $2

+	ld c, $56

+	ld a, [$ff00+c]

+	and b

+	jr z, .asm_cf09

+	ld a, [hNumFramesSinceLastVBlank]

+	and a

+	jr z, .asm_cefa

+	jr .asm_cf0e

+

+.asm_cf09

+	call Func_1c50

+	jr .continueAttempts

+

+.asm_cf0e

+	ld hl, SendHighScoresAnimationData

+	ld de, wSendHighScoresAnimationFrameCounter

+	call UpdateAnimation

+	jr nc, .continueAttempts

+	ld bc, $4800

+	ld a, [wSendHighScoresAnimationFrame]

+	call LoadOAMData

+	ld bc, $473b

+	ld a, $8f

+	call LoadOAMData

+	call CleanOAMBuffer

+	call Func_1ca1

+	ld a, [wSendHighScoresAnimationFrameIndex]

+	cp $6

+	jr nz, .continueAttempts

+	ld hl, SendHighScoresAnimationData

+	ld de, wSendHighScoresAnimationFrameCounter

+	call CopyHLToDE

+.continueAttempts

+	pop bc

+	ld a, [wd8ea]

+	cp $0

+	ret z

+	dec b

+	jr nz, .attemptToSendHighScoresLoop

+	ret

+

+SendHighScoresAnimationData: ; 0xcf4b

+; Each entry is [OAM id][duration]

+	db $0C, $98

+	db $06, $99

+	db $0A, $9A

+	db $0C, $9B

+	db $0A, $9C

+	db $06, $9D

+	db $00  ; terminator

+

+Func_cf58: ; 0xcf58

+	cp $5

+	ret z

+	push af

+	lb de, $00, $02

+	call PlaySoundEffect

+	call ClearOAMBuffer

+	rst AdvanceFrame

+	pop af

+	ld bc, $473b

+	add $8f

+	call LoadOAMData

+.asm_cf6f

+	rst AdvanceFrame

+	ld a, [hNewlyPressedButtons]

+	bit BIT_A_BUTTON, a

+	jr z, .asm_cf6f

+	lb de, $00, $01

+	call PlaySoundEffect

+	ret

+

+Func_cf7d: ; 0xcf7d

+	ld a, [wd809]

+	ld b, a

+	ld a, [wda85]

+	bit 6, b

+	jr z, .asm_cf95

+	and a

+	ret z

+	dec a

+	ld [wda85], a

+	lb de, $00, $03

+	call PlaySoundEffect

+	ret

+

+.asm_cf95

+	bit 7, b

+	ret z

+	cp $1

+	ret z

+	inc a

+	ld [wda85], a

+	lb de, $00, $03

+	call PlaySoundEffect

+	ret

+

+Func_cfa6: ; 0xcfa6

+	ld bc, $473b

+	ld a, $87

+	call LoadOAMData

+	ld a, [wd8f0]

+	and a

+	jr z, .asm_cfb6

+	ld a, $2

+.asm_cfb6

+	ld e, a

+	ld a, [wd86e]

+	add e

+	xor $3

+	add $8a

+	call LoadOAMData

+	ld a, [wda85]

+	add $88

+	call LoadOAMData

+	ret

+

+Func_cfcb: ; 0xcfcb

+	ld a, e

+	ld [$ff8c], a

+	ld a, d

+	ld [$ff8d], a

+	push hl

+	ld b, $5

+.asm_cfd4

+	ld a, [$ff8c]

+	ld e, a

+	ld a, [$ff8d]

+	ld d, a

+	call Func_d005

+	call Func_d017

+	jr c, .asm_cfe5

+	dec b

+	jr nz, .asm_cfd4

+.asm_cfe5

+	inc b

+	pop de

+	ld hl, $fff3

+	add hl, de

+	ld a, $5

+.asm_cfed

+	cp b

+	ret c

+	push af

+	jr nz, .asm_cff8

+	ld a, [$ff8c]

+	ld l, a

+	ld a, [$ff8d]

+	ld h, a

+.asm_cff8

+	ld c, $d

+.asm_cffa

+	ld a, [hld]

+	ld [de], a

+	dec de

+	dec c

+	jr nz, .asm_cffa

+	pop af

+	dec a

+	jr nz, .asm_cfed

+	ret

+

+Func_d005: ; 0xd005

+	ld c, $7

+.asm_d007

+	ld a, [de]

+	cp [hl]

+	jr nz, .asm_d010

+	dec de

+	dec hl

+	dec c

+	jr nz, .asm_d007

+.asm_d010

+	ld a, c

+	ld [$ff8e], a

+	call Func_d035

+	ret

+

+Func_d017: ; 0xd017

+	ld c, $6

+.asm_d019

+	ld a, [de]

+	cp [hl]

+	jr c, .asm_d02b

+	jr nz, .asm_d030

+	dec de

+	dec hl

+	dec c

+	jr nz, .asm_d019

+	ld a, [$ff8e]

+	and a

+	jr nz, .asm_d02b

+	ld b, $5

+.asm_d02b

+	call Func_d035

+	scf

+	ret

+

+.asm_d030

+	call Func_d035

+	and a

+	ret

+

+Func_d035: ; 0xd035

+	ld a, e

+	sub c

+	ld e, a

+	jr nc, .asm_d03b

+	dec d

+.asm_d03b

+	ld a, l

+	sub c

+	ld l, a

+	jr nc, .asm_d041

+	dec h

+.asm_d041

+	ret

+

+Func_d042: ; 0xd042

+	ld a, [hJoypadState]

+	ld [wda86], a

+	ld b, a

+	ld a, $80

+	bit BIT_D_LEFT, b

+	jr z, .asm_d052

+	ld a, $7f

+	jr .asm_d058

+

+.asm_d052

+	bit BIT_D_RIGHT, b

+	jr z, .asm_d058

+	ld a, $10

+.asm_d058

+	ld [wd8a7], a

+	ld a, $e0

+	ld [wd8aa], a

+	ld a, BANK(HighScoresTilemap)

+	ld hl, HighScoresTilemap + $3c0

+	ld de, wc280

+	ld bc, $0040

+	call FarCopyData

+	ld a, $0

+	hlCoord 0, 2, vBGMap

+	ld de, wc2c0

+	ld bc, $01c0

+	call LoadVRAMData

+	ld a, BANK(HighScoresTilemap)

+	ld hl, HighScoresTilemap + $280

+	ld de, wc480

+	ld bc, $0040

+	call FarCopyData

+	call Func_d6b6

+	call Func_d0e3

+	ret c

+	ld a, [wda86]

+	bit 2, a

+	jr z, .asm_d0a2

+	ld de, wRedHighScore1Unknown0x09

+	call Func_d107

+	call Func_d0f5

+	ret c

+.asm_d0a2

+	ld a, BANK(HighScoresTilemap2)

+	ld hl, HighScoresTilemap2 + $3c0

+	ld de, wc280

+	ld bc, $0040

+	call FarCopyData

+	ld a, $0

+	hlCoord 0, 2, vBGWin

+	ld de, wc2c0

+	ld bc, $01c0

+	call LoadVRAMData

+	ld a, BANK(HighScoresTilemap2)

+	ld hl, HighScoresTilemap2 + $280

+	ld de, wc480

+	ld bc, $0040

+	call FarCopyData

+	call Func_d6b6

+	call Func_d0e3

+	ret c

+	ld a, [wda86]

+	bit 2, a

+	ret z

+	ld de, wBlueHighScore1Unknown0x09

+	call Func_d107

+	call Func_d0f5

+	ret

+

+Func_d0e3: ; 0xd0e3

+	ld a, BANK(HighScoresBaseGameBoyGfx)

+	ld hl, HighScoresBaseGameBoyGfx + $800

+	call Func_1a21

+	ld a, [wd86d]

+	and a

+	ret z

+	call Func_cf58

+	scf

+	ret

+

+Func_d0f5: ; 0xd0f5

+	ld a, BANK(HighScoresHexadecimalCharsGfx)

+	ld hl, HighScoresHexadecimalCharsGfx

+	call Func_1a21

+	ld a, [wd86d]

+	and a

+	ret z

+	call Func_cf58

+	scf

+	ret

+

+Func_d107: ; 0xd107

+	ld hl, wc280

+	ld a, $c0

+	ld b, $20

+.clear

+rept 32

+	ld [hli], a

+endr

+	dec b

+	jr nz, .clear

+	ld hl, wc280

+	ld b, $5

+.loop

+	ld c, $4

+.inner

+	ld a, [de]

+	swap a

+	call Func_d159

+	ld a, [de]

+	call Func_d159

+	inc de

+	inc hl

+	dec c

+	jr nz, .inner

+	ld a, l

+	add $4c

+	ld l, a

+	jr nc, .no_carry_1

+	inc h

+.no_carry_1

+	ld a, e

+	add $9

+	ld e, a

+	jr nc, .no_carry_2

+	inc d

+.no_carry_2

+	dec b

+	jr nz, .loop

+	ret

+

+Func_d159: ; 0xd159

+	and $f

+	sla a

+	sla a

+	xor $80

+	ld [hli], a

+	inc a

+	ld [hli], a

+	inc a

+	push bc

+	push hl

+	ld bc, $001e

+	add hl, bc

+	ld [hli], a

+	inc a

+	ld [hli], a

+	pop hl

+	pop bc

+	ret

+

+ExitHighScoresScreen: ; 0xd171

+	call Func_cb5

+	call Func_576

+	ld hl, hSTAT

+	res 6, [hl]

+	ld hl, rIE

+	res 1, [hl]

+	ld a, SCREEN_TITLESCREEN

+	ld [wCurrentScreen], a

+	xor a

+	ld [wScreenState], a

+	ret

+

+Func_d18b: ; 0xd18b

+	ld a, [hPressedButtons]

+	ld b, a

+	ld a, [wda81]

+	ld e, a

+	sla e

+	sla e

+	add e

+	sla e

+	add e

+	ld e, a

+	ld a, [wda80]

+	add e

+	ld e, a

+	ld d, $0

+	ld hl, wRedHighScore1Name

+	ld a, [wHighScoresStage]

+	and a

+	jr z, .asm_d1ae

+	ld hl, wBlueHighScore1Name

+.asm_d1ae

+	add hl, de

+	ld a, [hl]

+	bit 4, b

+	jr z, .asm_d1bd

+	inc a

+	cp $38

+	jr nz, .asm_d1c7

+	ld a, $a

+	jr .asm_d1c7

+

+.asm_d1bd

+	bit 5, b

+	ret z

+	dec a

+	cp $9

+	jr nz, .asm_d1c7

+	ld a, $37

+.asm_d1c7

+	ld [hl], a

+	call Func_d46f

+	lb de, $00, $03

+	call PlaySoundEffect

+	ret

+

+Func_d1d2: ; 0xd1d2

+	ld a, [hNewlyPressedButtons]

+	ld b, a

+	ld a, [wda80]

+	bit BIT_A_BUTTON, b

+	jr z, .asm_d1fc

+	inc a

+	cp $3

+	jr nz, .asm_d202

+	lb de, $07, $45

+	call PlaySoundEffect

+	xor a

+	ld [wda7f], a

+	ld hl, wScreenState

+	inc [hl]

+	ld hl, wRedHighScore1Points

+	ld de, $a000

+	ld bc, $0082

+	call SaveData

+	ret

+

+.asm_d1fc

+	bit 1, b

+	ret z

+	and a

+	ret z

+	dec a

+.asm_d202

+	ld [wda80], a

+	ld a, $20

+	ld [wda82], a

+	lb de, $00, $01

+	call PlaySoundEffect

+	ret

+

+Func_d211: ; 0xd211

+; related to high scores name entry?

+	ld a, [wda7f]

+	and a

+	ret z

+	ld a, [hJoypadState]

+	and (D_RIGHT | D_LEFT)

+	jr z, .asm_d221

+	xor a

+	ld [wda82], a

+	ret

+

+.asm_d221

+	ld a, [wda82]

+	inc a

+	ld [wda82], a

+	bit 5, a

+	ret z

+	ld a, [wda81]

+	ld e, a

+	ld d, $0

+	ld hl, OAMPixelYOffsets_d247

+	add hl, de

+	ld c, [hl]

+	ld a, [wda80]

+	ld e, a

+	ld d, $0

+	ld hl, OAMPixelXOffsets_d24c

+	add hl, de

+	ld b, [hl]

+	ld a, $86

+	call LoadOAMData

+	ret

+

+OAMPixelYOffsets_d247: ; 0xd247

+	db $10, $28, $40, $58, $70

+

+OAMPixelXOffsets_d24c: ; 0xd24c

+	db $18, $20, $28

+

+AnimateHighScoresArrow: ; 0xd24f

+; Handles the animation of the arrow in the bottom

+; corner of the high scores screens.

+	ld a, [wHighScoresArrowAnimationCounter]

+	inc a

+	cp $28

+	jr c, .noOverflow

+	xor a

+.noOverflow

+	ld [wHighScoresArrowAnimationCounter], a

+	ld a, [wHighScoresStage]

+	and a

+	ld c, $77

+	ld a, $95

+	ld hl, HighScoresRightArrowOAMPixelXOffsets

+	jr z, .asm_d26d

+	ld a, $96

+	ld hl, HighScoresLeftArrowOAMPixelXOffsets

+.asm_d26d

+	push af

+	ld a, [wHighScoresArrowAnimationCounter]

+	ld e, a

+	ld d, $0

+	add hl, de

+	ld b, [hl]

+	pop af

+	call LoadOAMData

+	ret

+

+HighScoresRightArrowOAMPixelXOffsets: ; 0xd27b

+; Controls the animation of the right-arrow in the bottom corner of the

+; high scores screen.

+	db $87, $87, $8A, $8A, $8A, $8A, $8A, $8A

+	db $89, $89, $88, $88, $88, $88, $88, $88

+	db $88, $88, $88, $88, $88, $88, $88, $88

+	db $88, $88, $88, $88, $88, $88, $88, $88

+	db $88, $88, $88, $88, $88, $88, $88, $88

+

+HighScoresLeftArrowOAMPixelXOffsets: ; 0xd2a3

+	db $02, $02, $FF, $FF, $FF, $FF, $FF, $FF

+	db $00, $00, $01, $01, $01, $01, $01, $01

+	db $01, $01, $01, $01, $01, $01, $01, $01

+	db $01, $01, $01, $01, $01, $01, $01, $01

+	db $01, $01, $01, $01, $01, $01, $01, $01

+

+Func_d2cb: ; 0xd2cb

+	ld b, $5

+.asm_d2cd

+	push bc

+	push hl

+	dec de

+	dec de

+	dec de

+	dec de

+	ld a, l

+	add $5

+	ld l, a

+	ld b, $3

+.asm_d2d9

+	ld a, [de]

+	call Func_d348

+	dec de

+	dec hl

+	dec b

+	jr nz, .asm_d2d9

+	pop hl

+	push hl

+	ld a, l

+	add $6

+	ld l, a

+	ld bc, $0c01

+.asm_d2eb

+	ld a, [de]

+	swap a

+	and $f

+	call Func_d30e

+	inc hl

+	dec b

+	ld a, [de]

+	and $f

+	call Func_d30e

+	dec de

+	inc hl

+	dec b

+	jr nz, .asm_d2eb

+	xor a

+	call Func_d317

+	pop hl

+	ld bc, hSCY

+	add hl, bc

+	pop bc

+	dec b

+	jr nz, .asm_d2cd

+	ret

+

+Func_d30e: ; 0xd30e

+	jr nz, Func_d317

+	ld a, b

+	dec a

+	jr z, Func_d317

+	ld a, c

+	and a

+	ret nz

+	; fall through

+Func_d317: ; 0xd317

+	push de

+	push af

+	call Func_d336

+	pop af

+	ld c, $0

+	sla a

+	add e

+	ld [hl], a

+	cp $fe

+	jr z, .asm_d328

+	inc a

+.asm_d328

+	push hl

+	push af

+	ld a, l

+	add $20

+	ld l, a

+	jr nc, .asm_d331

+	inc h

+.asm_d331

+	pop af

+	ld [hl], a

+	pop hl

+	pop de

+	ret

+

+Func_d336: ; 0xd336

+	ld e, $6c

+	ld a, b

+	cp $3

+	ret z

+	cp $6

+	ret z

+	cp $9

+	ret z

+	cp $c

+	ret z

+	ld e, $58

+	ret

+

+Func_d348: ; 0xd348

+	ld c, $0

+	sla a

+	add $90

+	ld [hl], a

+	cp $fe

+	jr z, .asm_d354

+	inc a

+.asm_d354

+	push hl

+	push af

+	ld a, l

+	add $20

+	ld l, a

+	jr nc, .asm_d35d

+	inc h

+.asm_d35d

+	pop af

+	ld [hl], a

+	pop hl

+	ret

+

+Func_d361: ; 0xd361

+	ld b, $5

+.asm_d363

+	push bc

+	push hl

+	dec de

+	dec de

+	dec de

+	dec de

+	ld a, l

+	add $5

+	ld l, a

+	ld b, $3

+.asm_d36f

+	ld a, [de]

+	call Func_d3e2

+	dec de

+	dec hl

+	dec b

+	jr nz, .asm_d36f

+	pop hl

+	push hl

+	ld a, l

+	add $6

+	ld l, a

+	ld bc, $0c01

+.asm_d381

+	ld a, [de]

+	swap a

+	and $f

+	call Func_d3a4

+	inc hl

+	dec b

+	ld a, [de]

+	and $f

+	call Func_d3a4

+	dec de

+	inc hl

+	dec b

+	jr nz, .asm_d381

+	xor a

+	call Func_d3ad

+	pop hl

+	ld bc, hSCY

+	add hl, bc

+	pop bc

+	dec b

+	jr nz, .asm_d363

+	ret

+

+Func_d3a4: ; 0xd3a4

+	jr nz, Func_d3ad

+	ld a, b

+	dec a

+	jr z, Func_d3ad

+	ld a, c

+	and a

+	ret nz

+	; fall through

+Func_d3ad: ; 0xd3ad

+	push de

+	push af

+	call Func_d3d0

+	pop af

+	ld c, $0

+	sla a

+	add e

+	call PutTileInVRAM

+	cp $fe

+	jr z, .asm_d3c0

+	inc a

+.asm_d3c0

+	push hl

+	push af

+	ld a, l

+	add $20

+	ld l, a

+	jr nc, .asm_d3c9

+	inc h

+.asm_d3c9

+	pop af

+	call PutTileInVRAM

+	pop hl

+	pop de

+	ret

+

+Func_d3d0: ; 0xd3d0

+	ld e, $6c

+	ld a, b

+	cp $3

+	ret z

+	cp $6

+	ret z

+	cp $9

+	ret z

+	cp $c

+	ret z

+	ld e, $58

+	ret

+

+Func_d3e2: ; 0xd3e2

+	ld c, $0

+	sla a

+	add $90

+	call PutTileInVRAM

+	cp $fe

+	jr z, .asm_d3f0

+	inc a

+.asm_d3f0

+	push hl

+	push af

+	ld a, l

+	add $20

+	ld l, a

+	jr nc, .asm_d3f9

+	inc h

+.asm_d3f9

+	pop af

+	call PutTileInVRAM

+	pop hl

+	ret

+

+CopyInitialHighScores: ; 0xd3ff

+	ld hl, InitialHighScores

+	ld de, wRedHighScore1Points

+	call CopyInitialHighScoresForStage

+	ld hl, InitialHighScores

+	ld de, wBlueHighScore1Points

+

+CopyInitialHighScoresForStage: ; 0xd40e

+; input:  hl = address of high score entries

+;         de = destination address for high score entries to be copied

+	ld b, $5  ; 5 high score entries to copy

+.copyHighScoreEntry

+	ld c, $6  ; high score points are 6 bytes long

+.copyPoints

+	ld a, [hli]

+	ld [de], a

+	inc de

+	dec c

+	jr nz, .copyPoints

+	ld c, $3  ; name is 3 bytes

+.copyName

+	ld a, [hli]

+	sub $37

+	ld [de], a

+	inc de

+	dec c

+	jr nz, .copyName

+	ld c, $4

+.asm_d424  ; TODO: what are these 4 bytes used for?

+	ld a, [hli]

+	ld [de], a

+	inc de

+	dec c

+	jr nz, .asm_d424

+	dec b

+	jr nz, .copyHighScoreEntry

+	ret

+

+INCLUDE "data/initial_high_scores.asm" ; 0xd42e

+

+Func_d46f: ; 0xd46f

+	ld a, [wda81]

+	ld d, a

+	sla a

+	add d

+	ld d, a

+	ld e, $0

+	srl d

+	rr e

+	srl d

+	rr e

+	srl d

+	rr e

+	ld a, [wda80]

+	add e

+	ld e, a

+	hlCoord 3, 2, vBGMap

+	ld a, [wHighScoresStage]

+	and a

+	jr z, .asm_d496

+	hlCoord 3, 2, vBGWin

+.asm_d496

+	add hl, de

+	push hl

+	ld a, [wda81]

+	ld e, a

+	sla e

+	sla e

+	add e

+	sla e

+	add e

+	ld e, a

+	ld a, [wda80]

+	add e

+	ld e, a

+	ld d, $0

+	ld hl, wRedHighScore1Name

+	ld a, [wHighScoresStage]

+	and a

+	jr z, .asm_d4b8

+	ld hl, wBlueHighScore1Name

+.asm_d4b8

+	add hl, de

+	ld a, [hl]

+	sla a

+	add $90

+	pop hl

+	call PutTileInVRAM

+	ld de, $0020

+	add hl, de

+	cp $fe

+	jr z, .asm_d4cb

+	inc a

+.asm_d4cb

+	call PutTileInVRAM

+	ret

+

+Func_d4cf: ; 0xd4cf

+	ld a, [hNewlyPressedButtons]

+	ld b, a

+	ld a, [wHighScoresStage]

+	bit 4, b

+	jr z, .asm_d4e3

+	and a

+	ret nz

+	lb de, $00, $03

+	call PlaySoundEffect

+	jr .asm_d4f0

+

+.asm_d4e3

+	bit 5, b

+	ret z

+	and a

+	ret z

+	lb de, $00, $03

+	call PlaySoundEffect

+	jr .asm_d537

+

+.asm_d4f0

+	call ClearOAMBuffer

+	call Func_d57b

+	ld a, $a5

+	ld [hWX], a

+	xor a

+	ld [hWY], a

+	ld a, $2

+	ld [hSCX], a

+	ld hl, hLCDC

+	set 5, [hl]

+	ld b, $27

+.asm_d508

+	push bc

+	ld a, $27

+	sub b

+	bit 0, b

+	call nz, TransitionHighScoresPalettes

+	ld hl, hWX

+	dec [hl]

+	dec [hl]

+	dec [hl]

+	dec [hl]

+	ld hl, hSCX

+	inc [hl]

+	inc [hl]

+	inc [hl]

+	inc [hl]

+	rst AdvanceFrame

+	pop bc

+	dec b

+	jr nz, .asm_d508

+	xor a

+	ld [hSCX], a

+	ld hl, hLCDC

+	res 5, [hl]

+	set 3, [hl]

+	ld a, $1

+	ld [wHighScoresStage], a

+	call Func_d5d0

+	ret

+

+.asm_d537

+	call ClearOAMBuffer

+	call Func_d57b

+	ld a, $7

+	ld [hWX], a

+	xor a

+	ld [hWY], a

+	ld a, $a0

+	ld [hSCX], a

+	ld hl, hLCDC

+	set 5, [hl]

+	res 3, [hl]

+	ld b, $27

+.asm_d551

+	push bc

+	ld a, b

+	bit 0, b

+	call nz, TransitionHighScoresPalettes

+	ld hl, hWX

+	inc [hl]

+	inc [hl]

+	inc [hl]

+	inc [hl]

+	ld hl, hSCX

+	dec [hl]

+	dec [hl]

+	dec [hl]

+	dec [hl]

+	rst AdvanceFrame

+	pop bc

+	dec b

+	jr nz, .asm_d551

+	xor a

+	ld [hSCX], a

+	ld hl, hLCDC

+	res 5, [hl]

+	xor a

+	ld [wHighScoresStage], a

+	call Func_d5d0

+	ret

+

+Func_d57b: ; 0xd57b

+	ld a, $f0

+	ld [hSCY], a

+	xor a

+	ld [hNextFrameHBlankSCX], a

+	ld a, $10

+	ld [hNextFrameHBlankSCY], a

+	rst AdvanceFrame

+	ld a, BANK(HighScoresTilemap)

+	ld hl, HighScoresTilemap

+	deCoord 0, 0, vBGMap

+	ld bc, $0040

+	call LoadVRAMData

+	ld a, BANK(HighScoresTilemap)

+	ld hl, HighScoresTilemap + $200

+	deCoord 0, 16, vBGMap

+	ld bc, $0040

+	call LoadVRAMData

+	ld a, BANK(HighScoresTilemap2)

+	ld hl, HighScoresTilemap2

+	deCoord 0, 0, vBGWin

+	ld bc, $0040

+	call LoadVRAMData

+	ld a, BANK(HighScoresTilemap2)

+	ld hl, HighScoresTilemap2 + $200

+	deCoord 0, 16, vBGWin

+	ld bc, $0040

+	call LoadVRAMData

+	ld b, $10

+.asm_d5c1

+	push bc

+	ld hl, hSCY

+	inc [hl]

+	ld hl, hNextFrameHBlankSCY

+	dec [hl]

+	rst AdvanceFrame

+	pop bc

+	dec b

+	jr nz, .asm_d5c1

+	ret

+

+Func_d5d0: ; 0xd5d0

+	ld b, $10

+.asm_d5d2

+	push bc

+	ld hl, hSCY

+	dec [hl]

+	ld hl, hNextFrameHBlankSCY

+	inc [hl]

+	rst AdvanceFrame

+	pop bc

+	dec b

+	jr nz, .asm_d5d2

+	ld a, BANK(HighScoresTilemap)

+	ld hl, HighScoresTilemap + $3c0

+	deCoord 0, 0, vBGMap

+	ld bc, $0040

+	call LoadVRAMData

+	ld a, BANK(HighScoresTilemap)

+	ld hl, HighScoresTilemap + $280

+	deCoord 0, 16, vBGMap

+	ld bc, $0040

+	call LoadVRAMData

+	ld a, BANK(HighScoresTilemap2)

+	ld hl, HighScoresTilemap2 + $3c0

+	deCoord 0, 0, vBGWin

+	ld bc, $0040

+	call LoadVRAMData

+	ld a, BANK(HighScoresTilemap2)

+	ld hl, HighScoresTilemap2 + $280

+	deCoord 0, 16, vBGWin

+	ld bc, $0040

+	call LoadVRAMData

+	ld bc, $0009

+	call Func_d68a

+	xor a

+	ld [hSCY], a

+	ld [hNextFrameHBlankSCX], a

+	ld [hNextFrameHBlankSCY], a

+	ret

+

+TransitionHighScoresPalettes: ; 0xd626

+; When switching between the Red and Blue field high scores, the palettes

+; of the rows smoothly transition between red and blue.

+	ld c, a

+	ld a, [hGameBoyColorFlag]

+	and a

+	ret z

+	ld a, c

+	srl a

+	sub $2

+	cp $10

+	ret nc

+	ld c, a

+	ld b, $0

+	sla c

+	add c

+	ld c, a

+	ld hl, HighScoresPalettesTransition

+	add hl, bc

+	ld a, [hli]

+	ld c, a

+	ld a, [hli]

+	ld b, a

+	ld a, [hl]

+	ld h, b

+	ld l, c

+	ld de, $0008

+	ld bc, $0038

+	push af

+	call Func_7dc

+	pop af

+	ld de, $0040

+	ld bc, $0008

+	call Func_7dc

+	ret

+

+HighScoresPalettesTransition: ; 0xd65a

+; When switching between the Red and Blue field high scores, the palette

+; of the rows fades between red and blue. This table defines the transition

+; of those palettes.

+	dwb HighScoresTransitionPalettes1,  Bank(HighScoresTransitionPalettes1)

+	dwb HighScoresTransitionPalettes2,  Bank(HighScoresTransitionPalettes2)

+	dwb HighScoresTransitionPalettes3,  Bank(HighScoresTransitionPalettes3)

+	dwb HighScoresTransitionPalettes4,  Bank(HighScoresTransitionPalettes4)

+	dwb HighScoresTransitionPalettes5,  Bank(HighScoresTransitionPalettes5)

+	dwb HighScoresTransitionPalettes6,  Bank(HighScoresTransitionPalettes6)

+	dwb HighScoresTransitionPalettes7,  Bank(HighScoresTransitionPalettes7)

+	dwb HighScoresTransitionPalettes8,  Bank(HighScoresTransitionPalettes8)

+	dwb HighScoresTransitionPalettes9,  Bank(HighScoresTransitionPalettes9)

+	dwb HighScoresTransitionPalettes10, Bank(HighScoresTransitionPalettes10)

+	dwb HighScoresTransitionPalettes11, Bank(HighScoresTransitionPalettes11)

+	dwb HighScoresTransitionPalettes12, Bank(HighScoresTransitionPalettes12)

+	dwb HighScoresTransitionPalettes13, Bank(HighScoresTransitionPalettes13)

+	dwb HighScoresTransitionPalettes14, Bank(HighScoresTransitionPalettes14)

+	dwb HighScoresTransitionPalettes15, Bank(HighScoresTransitionPalettes15)

+	dwb HighScoresTransitionPalettes16, Bank(HighScoresTransitionPalettes16)

+

+Func_d68a: ; 0xd68a

+	push bc

+	ld hl, wPokedexFlags

+	ld bc, (NUM_POKEMON << 8)

+.asm_d691

+	bit 1, [hl]

+	jr z, .asm_d696

+	inc c

+.asm_d696

+	inc hl

+	dec b

+	jr nz, .asm_d691

+	ld a, c

+	pop bc

+	cp NUM_POKEMON

+	ret nz

+	ld hl, vBGMap

+	add hl, bc

+	call Func_d6aa

+	ld hl, vBGWin

+	add hl, bc

+	; fall through

+Func_d6aa: ; 0xd6aa

+	ld a, $56

+	call PutTileInVRAM

+	inc hl

+	ld a, $57

+	call PutTileInVRAM

+	ret

+

+Func_d6b6: ; 0xd6b6

+	ld hl, wPokedexFlags

+	ld bc, (NUM_POKEMON << 8)

+.asm_d6bc

+	bit 1, [hl]

+	jr z, .asm_d6c1

+	inc c

+.asm_d6c1

+	inc hl

+	dec b

+	jr nz, .asm_d6bc

+	ld a, c

+	cp NUM_POKEMON

+	ret nz

+	ld hl, wc289

+	ld a, $56

+	ld [hli], a

+	ld a, $57

+	ld [hli], a

+	ret

diff --git a/engine/options_screen.asm b/engine/options_screen.asm
new file mode 100755
index 0000000..427e6d2
--- /dev/null
+++ b/engine/options_screen.asm
@@ -0,0 +1,1087 @@
+HandleOptionsScreen: ; 0xc34a

+	ld a, [wScreenState]

+	rst JumpTable  ; calls JumpToFuncInTable

+OptionsScreenFunctions: ; 0xc34e

+	dw Func_c35a

+	dw Func_c400

+	dw Func_c483

+	dw Func_c493

+	dw Func_c506

+	dw Func_c691

+

+Func_c35a: ; 0xc35a

+	ld a, $47

+	ld [hLCDC], a

+	ld a, $e4

+	ld [wBGP], a

+	ld [wOBP0], a

+	ld a, $d2

+	ld [wOBP1], a

+	xor a

+	ld [hSCX], a

+	ld [hSCY], a

+	ld hl, OptionsScreenVideoDataPointers

+	ld a, [hGameBoyColorFlag]

+	call LoadVideoData

+	call ClearOAMBuffer

+	ld a, $2

+	ld [wd921], a

+	ld [wd91d], a

+	ld a, $9

+	ld [wd91f], a

+	call Func_c43a

+	call Func_c948

+	call Func_b66

+	ld a, $12

+	call SetSongBank

+	ld de, $0002

+	call PlaySong

+	call Func_588

+	ld a, [wSoundTestCurrentBackgroundMusic]

+	hlCoord 7, 11, vBGMap

+	call RedrawSoundTestID

+	ld a, [wSoundTextCurrentSoundEffect]

+	hlCoord 7, 13, vBGMap

+	call RedrawSoundTestID

+	call Func_bbe

+	ld hl, wScreenState

+	inc [hl]

+	ret

+

+OptionsScreenVideoDataPointers: ; 0xc3b9

+	dw OptionsScreenVideoData_GameBoy

+	dw OptionsScreenVideoData_GameBoyColor

+

+OptionsScreenVideoData_GameBoy: ; 0xc3bd

+	VIDEO_DATA_TILES   OptionMenuAndKeyConfigGfx, vTilesOB, $1400

+	VIDEO_DATA_TILEMAP OptionMenuTilemap,  vBGMap, $240

+	VIDEO_DATA_TILEMAP OptionMenuTilemap2, vBGWin, $240

+	db $FF, $FF ; terminators

+

+OptionsScreenVideoData_GameBoyColor: ; 0xc3d4

+	VIDEO_DATA_TILES         OptionMenuAndKeyConfigGfx, vTilesOB, $1400

+	VIDEO_DATA_TILEMAP       OptionMenuTilemap, vBGMap, $240

+	VIDEO_DATA_TILEMAP_BANK2 OptionMenuTilemap3, vBGMap, $240

+	VIDEO_DATA_TILEMAP       OptionMenuTilemap2, vBGWin, $240

+	VIDEO_DATA_TILEMAP_BANK2 OptionMenuTilemap4, vBGWin, $240

+	VIDEO_DATA_PALETTES      OptionMenuPalettes, $80

+	db $FF, $FF ; terminators

+

+Func_c400: ; 0xc400

+	call Func_c41a

+	call Func_c43a

+	call Func_c447

+	ld a, [hNewlyPressedButtons]

+	bit 1, a

+	ret z

+	lb de, $00, $01

+	call PlaySoundEffect

+	ld a, $2

+	ld [wScreenState], a

+	ret

+

+Func_c41a: ; 0xc41a

+	ld a, [hPressedButtons]

+	ld b, a

+	ld a, [wd916]

+	bit 6, b

+	jr z, .asm_c429

+	and a

+	ret z

+	dec a

+	jr .asm_c430

+

+.asm_c429

+	bit 7, b

+	ret z

+	cp $2

+	ret z

+	inc a

+.asm_c430

+	ld [wd916], a

+	lb de, $00, $03

+	call PlaySoundEffect

+	ret

+

+Func_c43a: ; 0xc43a

+	call Func_c7ac

+	call Func_c80b

+	call Func_c88a

+	call Func_c92e

+	ret

+

+Func_c447: ; 0xc447

+	ld a, [hNewlyPressedButtons]

+	bit BIT_A_BUTTON, a

+	ret z

+	lb de, $00, $01

+	call PlaySoundEffect

+	ld a, [wd916]

+	and a

+	jr nz, .asm_c465

+	ld a, [hSGBFlag]

+	and a

+	ret nz

+	call Func_c4f4

+	ld a, $3

+	ld [wScreenState], a

+	ret

+

+.asm_c465

+	cp $1

+	jr nz, .asm_c477

+	call ClearOAMBuffer

+	ld hl, hLCDC

+	set 3, [hl]

+	ld a, $4

+	ld [wScreenState], a

+	ret

+

+.asm_c477

+	ld de, $0000

+	call PlaySong

+	ld a, $5

+	ld [wScreenState], a

+	ret

+

+Func_c483: ; 0xc483

+	call Func_cb5

+	call Func_576

+	ld a, SCREEN_TITLESCREEN

+	ld [wCurrentScreen], a

+	xor a

+	ld [wScreenState], a

+	ret

+

+Func_c493: ; 0xc493

+	call Func_c4b4

+	call Func_c4e6

+	call Func_c869

+	ld a, [hNewlyPressedButtons]

+	bit BIT_B_BUTTON, a

+	ret z

+	lb de, $00, $01

+	call PlaySoundEffect

+	xor a

+	ld [wd803], a

+	ld [wd804], a

+	ld a, $1

+	ld [wScreenState], a

+	ret

+

+Func_c4b4: ; 0xc4b4

+	ld a, [hNewlyPressedButtons]

+	ld b, a

+	ld a, [wd917]

+	bit BIT_D_LEFT, b

+	jr z, .asm_c4ce

+	and a

+	ret z

+	dec a

+	ld [wd917], a

+	call Func_c4f4

+	lb de, $00, $03

+	call PlaySoundEffect

+	ret

+

+.asm_c4ce

+	bit BIT_D_RIGHT, b

+	ret z

+	cp $1

+	ret z

+	inc a

+	ld [wd917], a

+	xor a

+	ld [wd803], a

+	ld [wd804], a

+	lb de, $00, $03

+	call PlaySoundEffect

+	ret

+

+Func_c4e6: ; 0xc4e6

+	call Func_c7ac

+	call Func_c80b

+	call Func_c88a

+	xor a

+	call Func_c8f1

+	ret

+

+Func_c4f4: ; 0xc4f4

+	xor a

+	ld [wd91c], a

+	ld [wd91e], a

+	ld a, $2

+	ld [wd91d], a

+	ld a, $9

+	ld [wd91f], a

+	ret

+

+Func_c506: ; 0xc506

+	call Func_c534

+	call Func_c554

+	call Func_c55a

+	ld a, [hNewlyPressedButtons]

+	bit BIT_B_BUTTON, a

+	ret z

+	lb de, $00, $01

+	call PlaySoundEffect

+	call ClearOAMBuffer

+	ld hl, hLCDC

+	res 3, [hl]

+	ld hl, wKeyConfigBallStart

+	ld de, sKeyConfigs

+	ld bc, $000e

+	call SaveData

+	ld a, $1

+	ld [wScreenState], a

+	ret

+

+Func_c534: ; 0xc534

+	ld a, [hNewlyPressedButtons]

+	ld b, a

+	ld a, [wd918]

+	bit BIT_D_UP, b

+	jr z, .asm_c543

+	and a

+	ret z

+	dec a

+	jr .asm_c54a

+

+.asm_c543

+	bit BIT_D_DOWN, b

+	ret z

+	cp $7

+	ret z

+	inc a

+.asm_c54a

+	ld [wd918], a

+	lb de, $00, $03

+	call PlaySoundEffect

+	ret

+

+Func_c554: ; 0xc554

+	ld a, $1

+	call Func_c8f1

+	ret

+

+Func_c55a: ; 0xc55a

+	ld a, [wd918]

+	and a

+	jr nz, .asm_c572

+	ld a, [hNewlyPressedButtons]

+	bit BIT_A_BUTTON, a

+	ret z

+	lb de, $00, $01

+	call PlaySoundEffect

+	call SaveDefaultKeyConfigs

+	call Func_c948

+	ret

+

+.asm_c572

+	ld a, [hNewlyPressedButtons]

+	bit BIT_A_BUTTON, a

+	ret z

+	lb de, $00, $01

+	call PlaySoundEffect

+	ld bc, $001e

+	call AdvanceFrames

+	ld a, [wd918]

+	dec a

+	sla a

+	ld c, a

+	ld b, $0

+	ld hl, PointerTable_c65f

+	add hl, bc

+	ld a, [hli]

+	ld h, [hl]

+	ld l, a

+	ld a, [wd918]

+	dec a

+	sla a

+	call Func_c644

+	ld bc, $00ff

+.asm_c59f

+	push bc

+	push hl

+	ld a, [wd918]

+	dec a

+	sla a

+	call Func_c621

+	call Func_c554

+	call CleanOAMBuffer

+	rst AdvanceFrame

+	pop hl

+	pop bc

+	ld a, [hJoypadState]

+	and a

+	jr z, .asm_c5c2

+	ld c, $0

+	call Func_c9be

+	call Func_c95f

+	jr .asm_c59f

+

+.asm_c5c2

+	or c

+	jr nz, .asm_c59f

+	ld a, [wd918]

+	dec a

+	sla a

+	call Func_c639

+	push hl

+	ld bc, $001e

+	call AdvanceFrames

+	pop hl

+	ld bc, $0020

+	add hl, bc

+	ld a, [wd918]

+	dec a

+	sla a

+	inc a

+	call Func_c644

+	ld bc, $00ff

+	ld d, $5a

+.asm_c5e9

+	push bc

+	push de

+	push hl

+	ld a, [wd918]

+	dec a

+	sla a

+	inc a

+	call Func_c621

+	call Func_c554

+	call CleanOAMBuffer

+	rst AdvanceFrame

+	pop hl

+	pop de

+	pop bc

+	dec d

+	ret z

+	ld a, [hJoypadState]

+	and a

+	jr z, .asm_c613

+	ld d, $ff

+	ld c, $0

+	call Func_c9be

+	call Func_c95f

+	jr .asm_c5e9

+

+.asm_c613

+	or c

+	jr nz, .asm_c5e9

+	ld a, [wd918]

+	dec a

+	sla a

+	inc a

+	call Func_c639

+	ret

+

+Func_c621: ; 0xc621

+	sla a

+	ld c, a

+	ld b, $0

+	ld hl, OAMPixelOffsetData_c66d

+	add hl, bc

+	ld a, [hli]

+	ld c, a

+	ld a, [hl]

+	ld b, a

+	ld a, [hNumFramesDropped]

+	bit 2, a

+	ret z

+	ld a, $84

+	call LoadOAMData

+	ret

+

+Func_c639: ; 0xc639

+	push hl

+	ld e, a

+	ld d, $0

+	ld hl, wKeyConfigBallStart

+	add hl, de

+	ld [hl], b

+	pop hl

+	ret

+

+Func_c644: ; 0xc644

+	push hl

+	ld c, a

+	ld b, $0

+	ld hl, wKeyConfigBallStart

+	add hl, bc

+	ld [hl], $0

+	pop hl

+	push hl

+	ld d, h

+	ld e, l

+	ld hl, Data_c689

+	ld a, Bank(Data_c689)

+	ld bc, $0008

+	call LoadVRAMData

+	pop hl

+	ret

+

+PointerTable_c65f: ; 0xc65f

+	dw $9C6D

+	dw $9CAD

+	dw $9CED

+	dw $9D2D

+	dw $9D6D

+	dw $9DAD

+	dw $9DED

+

+OAMPixelOffsetData_c66d: ; 0xc66d

+	dw $6018

+	dw $6020

+	dw $6028

+	dw $6030

+	dw $6038

+	dw $6040

+	dw $6048

+	dw $6050

+	dw $6058

+	dw $6060

+	dw $6068

+	dw $6070

+	dw $6078

+	dw $6080

+

+Data_c689: ; 0xc689

+	db $81, $81, $81, $81, $81, $81, $81, $81

+

+Func_c691: ; 0xc91

+	call Func_c6bf

+	call Func_c6d9

+	call Func_c6e8

+	ld a, [hNewlyPressedButtons]

+	bit BIT_B_BUTTON, a

+	ret z

+	ld de, $0000

+	call PlaySong

+	rst AdvanceFrame

+	rst AdvanceFrame

+	rst AdvanceFrame

+	ld a, $12

+	call SetSongBank

+	ld de, $0002

+	call PlaySong

+	lb de, $00, $01

+	call PlaySoundEffect

+	ld a, $1

+	ld [wScreenState], a

+	ret

+

+Func_c6bf: ; 0xc6bf

+	ld a, [hNewlyPressedButtons]

+	ld b, a

+	ld a, [wd919]

+	bit BIT_D_UP, b

+	jr z, .asm_c6ce

+	and a

+	ret z

+	dec a

+	jr .asm_c6d5

+

+.asm_c6ce

+	bit BIT_D_DOWN, b

+	ret z

+	cp $1

+	ret z

+	inc a

+.asm_c6d5

+	ld [wd919], a

+	ret

+

+Func_c6d9: ; 0xc6d9

+	call Func_c7ac

+	call Func_c80b

+	call Func_c88a

+	ld a, $2

+	call Func_c8f1

+	ret

+

+Func_c6e8: ; 0xc6e8

+	ld a, [wd919]

+	and a

+	jr nz, UpdateSoundTestSoundEffectSelection

+	ld a, [hNewlyPressedButtons]

+	bit BIT_A_BUTTON, a

+	jr z, UpdateSoundTestBackgroundMusicSelection

+	ld de, $0000

+	call PlaySong

+	rst AdvanceFrame

+	rst AdvanceFrame

+	rst AdvanceFrame

+	ld a, [wSoundTestCurrentBackgroundMusic]

+	sla a

+	ld c, a

+	ld b, $0

+	ld hl, SongBanks

+	add hl, bc

+	ld a, [hli]

+	ld e, a

+	ld d, $0

+	ld a, [hl]

+	call SetSongBank

+	call PlaySong

+	ret

+

+UpdateSoundTestBackgroundMusicSelection: ; 0xc715

+	ld a, [hPressedButtons] ; joypad state

+	ld b, a

+	ld a, [wSoundTestCurrentBackgroundMusic]

+	bit BIT_D_LEFT, b  ; was the left dpad button pressed?

+	jr z, .checkIfRightPressed

+	dec a     ; decrement background music id

+	bit 7, a  ; did it wrap around to $ff?

+	jr z, .saveBackgroundMusicID

+	ld a, NUM_SONGS - 1

+	jr .saveBackgroundMusicID

+

+.checkIfRightPressed

+	bit BIT_D_RIGHT, b  ; was the right dpad button pressed?

+	ret z

+	inc a         ; increment background music id

+	cp NUM_SONGS  ; should it wrap around to 0?

+	jr nz, .saveBackgroundMusicID

+	xor a

+.saveBackgroundMusicID

+	ld [wSoundTestCurrentBackgroundMusic], a

+	hlCoord 7, 11, vBGMap

+	jp RedrawSoundTestID

+

+UpdateSoundTestSoundEffectSelection: ; 0xc73a

+	ld a, [hNewlyPressedButtons] ; joypad state

+	bit BIT_A_BUTTON, a

+	jr z, .didntPressAButton

+	ld a, [wSoundTextCurrentSoundEffect]

+	ld e, a

+	ld d, $0

+	call PlaySoundEffect

+	ret

+

+.didntPressAButton

+	ld a, [hPressedButtons] ; joypad state

+	ld b, a

+	ld a, [wSoundTextCurrentSoundEffect]

+	bit BIT_D_LEFT, b  ; was the left dpad button pressed?

+	jr z, .checkIfRightPressed

+	dec a     ; decrement sound effect id

+	bit 7, a  ; did it wrap around to $ff?

+	jr z, .saveSoundEffectID

+	ld a, NUM_SOUND_EFFECTS - 1

+	jr .saveSoundEffectID

+

+.checkIfRightPressed

+	bit BIT_D_RIGHT, b  ; was the right dpad button pressed?

+	ret z

+	inc a                  ; increment background music id

+	cp NUM_SOUND_EFFECTS   ; should it wrap around to 0?

+	jr nz, .saveSoundEffectID

+	xor a

+.saveSoundEffectID

+	ld [wSoundTextCurrentSoundEffect], a

+	hlCoord 7, 13, vBGMap

+	; fall through

+

+RedrawSoundTestID: ; 0xc76c

+; Redraws the 2-digit id number for the sound test's current background music or sound effect id.

+; input:  a = id number

+;        hl = pointer to bg map location where the new 2-digit id should be drawn

+	push af  ; save music or sound effect id number

+	swap a

+	and $f   ; a contains high nybble of music id

+	call .drawDigit

+	pop af

+	and $f   ; a contains low nybble of music id

+.drawDigit

+	add $b7  ; hexadecimal digit tiles start at tile number $b7

+	call PutTileInVRAM

+	inc hl

+	ret

+

+SongBanks: ; 0xc77e

+	db MUSIC_NOTHING_0F,BANK(Music_Nothing0F)

+	db MUSIC_BLUE_FIELD,BANK(Music_BlueField)

+	db MUSIC_CATCH_EM_RED,BANK(Music_CatchEmRed)

+	db MUSIC_HURRY_UP_RED,BANK(Music_HurryUpRed)

+	db MUSIC_POKEDEX,BANK(Music_Pokedex)

+	db MUSIC_GASTLY_GRAVEYARD,BANK(Music_GastlyInTheGraveyard)

+	db MUSIC_HAUNTER_GRAVEYARD,BANK(Music_HaunterInTheGraveyard)

+	db MUSIC_GENGAR_GRAVEYARD,BANK(Music_GengarInTheGraveyard)

+	db MUSIC_RED_FIELD,BANK(Music_RedField)

+	db MUSIC_CATCH_EM_BLUE,BANK(Music_CatchEmBlue)

+	db MUSIC_HURRY_UP_BLUE,BANK(Music_HurryUpBlue)

+	db MUSIC_HI_SCORE,BANK(Music_HiScore)

+	db MUSIC_GAME_OVER,BANK(Music_GameOver)

+	db MUSIC_WHACK_DIGLETT,BANK(Music_WhackTheDiglett)

+	db MUSIC_WHACK_DUGTRIO,BANK(Music_WhackTheDugtrio)

+	db MUSIC_SEEL_STAGE,BANK(Music_SeelStage)

+	db MUSIC_TITLE_SCREEN,BANK(Music_Title)

+	db MUSIC_MEWTWO_STAGE,BANK(Music_MewtwoStage)

+	db MUSIC_OPTIONS,BANK(Music_Options)

+	db MUSIC_FIELD_SELECT,BANK(Music_FieldSelect)

+	db MUSIC_MEOWTH_STAGE,BANK(Music_MeowthStage)

+	db MUSIC_END_CREDITS,BANK(Music_EndCredits)

+	db MUSIC_NAME_ENTRY,BANK(Music_NameEntry)

+

+Func_c7ac: ; 0xc7ac

+	ld c, $0

+	ld a, [wScreenState]

+	cp $1

+	jr z, .asm_c7cc

+	ld a, [wd916]

+	and a

+	jr nz, .asm_c7cc

+	ld a, [wd917]

+	and a

+	jr nz, .asm_c7cc

+	ld a, [wd91e]

+	cp $4

+	jr nz, .asm_c7cc

+	ld a, [wd91c]

+	ld c, a

+.asm_c7cc

+	sla c

+	ld b, $0

+	ld hl, Data_c806

+	add hl, bc

+	ld a, [hl]

+	ld bc, $5050

+	call LoadOAMData

+	ld a, [wd91d]

+	dec a

+	jr nz, .asm_c802

+	ld a, [wd91c]

+	sla a

+	ld c, a

+	ld b, $0

+	ld hl, Data_c806 + 2

+	add hl, bc

+	ld a, [hl]

+	and a

+	jr z, .asm_c7f5

+	ld a, [wd91c]

+	inc a

+.asm_c7f5

+	ld [wd91c], a

+	sla a

+	ld c, a

+	ld b, $0

+	ld hl, Data_c806 + 1

+	add hl, bc

+	ld a, [hl]

+.asm_c802

+	ld [wd91d], a

+	ret

+

+Data_c806: ; 0xc806

+	db $7B, $02, $7C, $02, $00

+

+Func_c80b: ; 0xc80b

+	ld c, $0

+	ld a, [wScreenState]

+	cp $1

+	jr z, .asm_c824

+	ld a, [wd916]

+	and a

+	jr nz, .asm_c824

+	ld a, [wd917]

+	and a

+	jr nz, .asm_c824

+	ld a, [wd91e]

+	ld c, a

+.asm_c824

+	sla c

+	ld b, $0

+	ld hl, Data_c85e

+	add hl, bc

+	ld bc, $7870

+	ld a, [hl]

+	call LoadOAMData

+	ld a, [wd91f]

+	dec a

+	jr nz, .asm_c85a

+	ld a, [wd91e]

+	sla a

+	ld c, a

+	ld b, $0

+	ld hl, Data_c85e + 2

+	add hl, bc

+	ld a, [hl]

+	and a

+	ld a, [wd91e]

+	jr z, .asm_c850

+	inc a

+	ld [wd91e], a

+.asm_c850

+	sla a

+	ld c, a

+	ld b, $0

+	ld hl, Data_c85e + 1

+	add hl, bc

+	ld a, [hl]

+.asm_c85a

+	ld [wd91f], a

+	ret

+

+Data_c85e: ; 0xc85e

+	db $77, $09, $78, $09, $79, $09, $7A, $0D, $7A, $01, $00

+

+Func_c869: ; 0xc869

+	ld a, [wd916]

+	and a

+	ret nz

+	ld a, [wd917]

+	and a

+	ret nz

+	ld a, [wd91e]

+	cp $3

+	ret nz

+	ld a, [wd91f]

+	cp $1

+	ret nz

+	ld a, $55

+	ld [wd803], a

+	ld a, $40

+	ld [wd804], a

+	ret

+

+Func_c88a: ; 0xc88a

+	ld a, [wd916]

+	sla a

+	ld c, a

+	ld b, $0

+	ld hl, Data_c8eb

+	add hl, bc

+	ld a, [hli]

+	ld c, a

+	ld a, [hli]

+	ld b, a

+	ld e, $0

+	ld a, [wScreenState]

+	cp $1

+	jr nz, .asm_c8a9

+	ld a, [wd920]

+	sla a

+	ld e, a

+.asm_c8a9

+	ld d, $0

+	ld hl, Data_c8de

+	add hl, de

+	ld a, [hl]

+	call LoadOAMData

+	ld a, [wd921]

+	dec a

+	jr nz, .asm_c8da

+	ld a, [wd920]

+	sla a

+	ld c, a

+	ld b, $0

+	ld hl, Data_c8de + 2

+	add hl, bc

+	ld a, [hl]

+	and a

+	jr z, .asm_c8cd

+	ld a, [wd920]

+	inc a

+.asm_c8cd

+	ld [wd920], a

+	sla a

+	ld c, a

+	ld b, $0

+	ld hl, Data_c8de + 1

+	add hl, bc

+	ld a, [hl]

+.asm_c8da

+	ld [wd921], a

+	ret

+

+Data_c8de: ; 0xc8de

+	db $7D, $02, $7E, $06, $7F, $02, $80, $04, $81, $06, $7F, $04, $00

+

+Data_c8eb: ; 0xc8eb

+	db $18, $08, $30, $08, $48, $08

+

+Func_c8f1: ; 0xc8f1

+	ld c, a

+	ld b, $0

+	ld hl, wd917

+	add hl, bc

+	ld e, [hl]

+	sla c

+	ld hl, PointerTable_c910

+	add hl, bc

+	ld a, [hli]

+	ld h, [hl]

+	ld l, a

+	ld c, e

+	sla c

+	add hl, bc

+	ld a, [hli]

+	ld c, a

+	ld a, [hl]

+	ld b, a

+	ld a, $82

+	call LoadOAMData

+	ret

+

+PointerTable_c910: ; 0xc910

+	dw OAMPixelOffsetData_c916

+	dw OAMPixelOffsetData_c91a

+	dw OAMPixelOffsetData_c92a

+

+OAMPixelOffsetData_c916: ; 0xc916

+	dw $5018

+	dw $7018

+

+OAMPixelOffsetData_c91a: ; 0xc91a

+	dw $0808

+	dw $0818

+	dw $0828

+	dw $0838

+	dw $0848

+	dw $0858

+	dw $0868

+	dw $0878

+

+OAMPixelOffsetData_c92a: ; 0xc92a

+	dw $1058

+	dw $1068

+

+Func_c92e: ; 0xc92e

+	ld a, [wd917]

+	sla a

+	ld c, a

+	ld b, $0

+	ld hl, OAMPixelOffsetData_c944

+	add hl, bc

+	ld a, [hli]

+	ld c, a

+	ld a, [hli]

+	ld b, a

+	ld a, $85

+	call LoadOAMData

+	ret

+

+OAMPixelOffsetData_c944: ; 0xc944

+	dw $5018

+	dw $7018

+

+Func_c948: ; 0xc948

+	hlCoord 13, 3, vBGWin

+	ld de, wKeyConfigBallStart

+	ld b, $e

+.asm_c950

+	push bc

+	ld a, [de]

+	call Func_c95f

+	inc de

+	ld bc, $0020

+	add hl, bc

+	pop bc

+	dec b

+	jr nz, .asm_c950

+	ret

+

+Func_c95f: ; 0xc95f

+	push bc

+	push de

+	push hl

+	push hl

+	push af

+	ld hl, wd922

+	ld a, $81

+	ld [hli], a

+	ld [hli], a

+	ld [hli], a

+	ld [hli], a

+	ld [hli], a

+	ld [hli], a

+	ld [hl], a

+	pop af

+	ld hl, wd922

+	ld de, Data_c9ae

+	ld b, $8

+.asm_c979

+	srl a

+	push af

+	jr nc, .asm_c994

+	ld a, [de]

+	inc de

+	call Func_c9aa

+	ld a, [de]

+	inc de

+	call Func_c9aa

+	pop af

+	push af

+	and a

+	jr z, .asm_c996

+	ld a, $1a

+	call Func_c9aa

+	jr .asm_c996

+

+.asm_c994

+	inc de

+	inc de

+.asm_c996

+	pop af

+	dec b

+	jr nz, .asm_c979

+	pop de

+	ld hl, wd922

+	ld a, $0

+	ld bc, $0008

+	call LoadOrCopyVRAMData

+	pop hl

+	pop de

+	pop bc

+	ret

+

+Func_c9aa: ; 0xc9aa

+	and a

+	ret z

+	ld [hli], a

+	ret

+

+Data_c9ae: ; 0xc9ae

+	db $14, $00, $15, $00, $18, $19, $16, $17, $13, $00, $12, $00, $10, $00, $11, $00

+

+Func_c9be: ; 0xc9be

+	push af

+	push bc

+	push hl

+	ld c, a

+	xor b

+	and c

+	ld hl, wd936

+	call Func_c9ff

+	ld a, b

+	ld hl, wd93f

+	call Func_c9ff

+	ld a, [wd947]

+	cp $3

+	jr nc, .asm_c9f3

+	ld hl, wd93e

+	add [hl]

+	sub $4

+	ld hl, wd936

+	call nc, Func_ca15

+	ld de, wd936

+	ld hl, wd93f

+	ld b, $8

+.asm_c9ec

+	ld a, [de]

+	or [hl]

+	ld [hli], a

+	inc de

+	dec b

+	jr nz, .asm_c9ec

+.asm_c9f3

+	ld hl, wd93f

+	call Func_ca29

+	pop hl

+	pop bc

+	ld b, a

+	pop af

+	ld a, b

+	ret

+

+Func_c9ff: ; 0xc9ff

+	push bc

+	ld bc, $0800

+.asm_ca03

+	sla a

+	jr nc, .asm_ca0c

+	ld [hl], $ff

+	inc c

+	jr .asm_ca0e

+

+.asm_ca0c

+	ld [hl], $0

+.asm_ca0e

+	inc hl

+	dec b

+	jr nz, .asm_ca03

+	ld [hl], c

+	pop bc

+	ret

+

+Func_ca15: ; 0xca15

+	push bc

+	inc a

+	ld c, a

+	ld b, $8

+.asm_ca1a

+	ld a, [hl]

+	and a

+	jr z, .asm_ca23

+	ld [hl], $0

+	dec c

+	jr z, .asm_ca27

+.asm_ca23

+	inc hl

+	dec b

+	jr nz, .asm_ca1a

+.asm_ca27

+	pop bc

+	ret

+

+Func_ca29: ; 0ca29

+	push bc

+	ld bc, $0800

+.asm_ca2d

+	ld a, [hli]

+	and a

+	jr z, .asm_ca32

+	scf

+.asm_ca32

+	rl c

+	dec b

+	jr nz, .asm_ca2d

+	ld a, c

+	pop bc

+	ret

+

+SaveDefaultKeyConfigs: ; 0ca3a

+	ld hl, DefaultKeyConfigs

+	ld de, wKeyConfigs

+	ld b, $e

+.loop

+	ld a, [hli]

+	ld [de], a

+	inc de

+	dec b

+	jr nz, .loop

+	ld hl, wKeyConfigs

+	ld de, sKeyConfigs

+	ld bc, $000e

+	call SaveData

+	ret

+

+DefaultKeyConfigs: ; 0xca55

+	db A_BUTTON, $00  ; wKeyConfigBallStart

+	db D_LEFT,   $00  ; wKeyConfigLeftFlipper

+	db A_BUTTON, $00  ; wKeyConfigRightFlipper

+	db D_DOWN,   $00  ; wKeyConfigLeftTilt

+	db B_BUTTON, $00  ; wKeyConfigRightTilt

+	db SELECT,   $00  ; wKeyConfigUpperTilt

+	db START,    $00  ; wKeyConfigMenu

+

+UnusedKeyConfig1: ; 0xca63

+	db A_BUTTON,       $00  ; wKeyConfigBallStart

+	db D_LEFT,         $00  ; wKeyConfigLeftFlipper

+	db A_BUTTON,       $00  ; wKeyConfigRightFlipper

+	db D_DOWN,         $00  ; wKeyConfigLeftTilt

+	db B_BUTTON,       $00  ; wKeyConfigRightTilt

+	db START,          $04  ; wKeyConfigUpperTilt

+	db D_UP | D_RIGHT, $00  ; wKeyConfigMenu

+

+UnusedKeyConfig2: ; 0xca71

+	db A_BUTTON,              $00  ; wKeyConfigBallStart

+	db D_LEFT,                $00  ; wKeyConfigLeftFlipper

+	db A_BUTTON,              $00  ; wKeyConfigRightFlipper

+	db D_DOWN,                $00  ; wKeyConfigLeftTilt

+	db B_BUTTON,              $00  ; wKeyConfigRightTilt

+	db START,                 $00  ; wKeyConfigUpperTilt

+	db D_UP | START | SELECT, $00  ; wKeyConfigMenu

diff --git a/main.asm b/main.asm
index 891938c..40b3863 100755
--- a/main.asm
+++ b/main.asm
@@ -1903,3068 +1903,9 @@ PokedexCharactersGfx: ; 0xa000
 SECTION "bank3", ROMX, BANK[$3]
 
 INCLUDE "engine/titlescreen.asm"
-
-HandleOptionsScreen: ; 0xc34a
-	ld a, [wScreenState]
-	rst JumpTable  ; calls JumpToFuncInTable
-OptionsScreenFunctions: ; 0xc34e
-	dw Func_c35a
-	dw Func_c400
-	dw Func_c483
-	dw Func_c493
-	dw Func_c506
-	dw Func_c691
-
-Func_c35a: ; 0xc35a
-	ld a, $47
-	ld [hLCDC], a
-	ld a, $e4
-	ld [wBGP], a
-	ld [wOBP0], a
-	ld a, $d2
-	ld [wOBP1], a
-	xor a
-	ld [hSCX], a
-	ld [hSCY], a
-	ld hl, OptionsScreenVideoDataPointers
-	ld a, [hGameBoyColorFlag]
-	call LoadVideoData
-	call ClearOAMBuffer
-	ld a, $2
-	ld [wd921], a
-	ld [wd91d], a
-	ld a, $9
-	ld [wd91f], a
-	call Func_c43a
-	call Func_c948
-	call Func_b66
-	ld a, $12
-	call SetSongBank
-	ld de, $0002
-	call PlaySong
-	call Func_588
-	ld a, [wSoundTestCurrentBackgroundMusic]
-	hlCoord 7, 11, vBGMap
-	call RedrawSoundTestID
-	ld a, [wSoundTextCurrentSoundEffect]
-	hlCoord 7, 13, vBGMap
-	call RedrawSoundTestID
-	call Func_bbe
-	ld hl, wScreenState
-	inc [hl]
-	ret
-
-OptionsScreenVideoDataPointers: ; 0xc3b9
-	dw OptionsScreenVideoData_GameBoy
-	dw OptionsScreenVideoData_GameBoyColor
-
-OptionsScreenVideoData_GameBoy: ; 0xc3bd
-	VIDEO_DATA_TILES   OptionMenuAndKeyConfigGfx, vTilesOB, $1400
-	VIDEO_DATA_TILEMAP OptionMenuTilemap,  vBGMap, $240
-	VIDEO_DATA_TILEMAP OptionMenuTilemap2, vBGWin, $240
-	db $FF, $FF ; terminators
-
-OptionsScreenVideoData_GameBoyColor: ; 0xc3d4
-	VIDEO_DATA_TILES         OptionMenuAndKeyConfigGfx, vTilesOB, $1400
-	VIDEO_DATA_TILEMAP       OptionMenuTilemap, vBGMap, $240
-	VIDEO_DATA_TILEMAP_BANK2 OptionMenuTilemap3, vBGMap, $240
-	VIDEO_DATA_TILEMAP       OptionMenuTilemap2, vBGWin, $240
-	VIDEO_DATA_TILEMAP_BANK2 OptionMenuTilemap4, vBGWin, $240
-	VIDEO_DATA_PALETTES      OptionMenuPalettes, $80
-	db $FF, $FF ; terminators
-
-Func_c400: ; 0xc400
-	call Func_c41a
-	call Func_c43a
-	call Func_c447
-	ld a, [hNewlyPressedButtons]
-	bit 1, a
-	ret z
-	lb de, $00, $01
-	call PlaySoundEffect
-	ld a, $2
-	ld [wScreenState], a
-	ret
-
-Func_c41a: ; 0xc41a
-	ld a, [hPressedButtons]
-	ld b, a
-	ld a, [wd916]
-	bit 6, b
-	jr z, .asm_c429
-	and a
-	ret z
-	dec a
-	jr .asm_c430
-
-.asm_c429
-	bit 7, b
-	ret z
-	cp $2
-	ret z
-	inc a
-.asm_c430
-	ld [wd916], a
-	lb de, $00, $03
-	call PlaySoundEffect
-	ret
-
-Func_c43a: ; 0xc43a
-	call Func_c7ac
-	call Func_c80b
-	call Func_c88a
-	call Func_c92e
-	ret
-
-Func_c447: ; 0xc447
-	ld a, [hNewlyPressedButtons]
-	bit BIT_A_BUTTON, a
-	ret z
-	lb de, $00, $01
-	call PlaySoundEffect
-	ld a, [wd916]
-	and a
-	jr nz, .asm_c465
-	ld a, [hSGBFlag]
-	and a
-	ret nz
-	call Func_c4f4
-	ld a, $3
-	ld [wScreenState], a
-	ret
-
-.asm_c465
-	cp $1
-	jr nz, .asm_c477
-	call ClearOAMBuffer
-	ld hl, hLCDC
-	set 3, [hl]
-	ld a, $4
-	ld [wScreenState], a
-	ret
-
-.asm_c477
-	ld de, $0000
-	call PlaySong
-	ld a, $5
-	ld [wScreenState], a
-	ret
-
-Func_c483: ; 0xc483
-	call Func_cb5
-	call Func_576
-	ld a, SCREEN_TITLESCREEN
-	ld [wCurrentScreen], a
-	xor a
-	ld [wScreenState], a
-	ret
-
-Func_c493: ; 0xc493
-	call Func_c4b4
-	call Func_c4e6
-	call Func_c869
-	ld a, [hNewlyPressedButtons]
-	bit BIT_B_BUTTON, a
-	ret z
-	lb de, $00, $01
-	call PlaySoundEffect
-	xor a
-	ld [wd803], a
-	ld [wd804], a
-	ld a, $1
-	ld [wScreenState], a
-	ret
-
-Func_c4b4: ; 0xc4b4
-	ld a, [hNewlyPressedButtons]
-	ld b, a
-	ld a, [wd917]
-	bit BIT_D_LEFT, b
-	jr z, .asm_c4ce
-	and a
-	ret z
-	dec a
-	ld [wd917], a
-	call Func_c4f4
-	lb de, $00, $03
-	call PlaySoundEffect
-	ret
-
-.asm_c4ce
-	bit BIT_D_RIGHT, b
-	ret z
-	cp $1
-	ret z
-	inc a
-	ld [wd917], a
-	xor a
-	ld [wd803], a
-	ld [wd804], a
-	lb de, $00, $03
-	call PlaySoundEffect
-	ret
-
-Func_c4e6: ; 0xc4e6
-	call Func_c7ac
-	call Func_c80b
-	call Func_c88a
-	xor a
-	call Func_c8f1
-	ret
-
-Func_c4f4: ; 0xc4f4
-	xor a
-	ld [wd91c], a
-	ld [wd91e], a
-	ld a, $2
-	ld [wd91d], a
-	ld a, $9
-	ld [wd91f], a
-	ret
-
-Func_c506: ; 0xc506
-	call Func_c534
-	call Func_c554
-	call Func_c55a
-	ld a, [hNewlyPressedButtons]
-	bit BIT_B_BUTTON, a
-	ret z
-	lb de, $00, $01
-	call PlaySoundEffect
-	call ClearOAMBuffer
-	ld hl, hLCDC
-	res 3, [hl]
-	ld hl, wKeyConfigBallStart
-	ld de, sKeyConfigs
-	ld bc, $000e
-	call SaveData
-	ld a, $1
-	ld [wScreenState], a
-	ret
-
-Func_c534: ; 0xc534
-	ld a, [hNewlyPressedButtons]
-	ld b, a
-	ld a, [wd918]
-	bit BIT_D_UP, b
-	jr z, .asm_c543
-	and a
-	ret z
-	dec a
-	jr .asm_c54a
-
-.asm_c543
-	bit BIT_D_DOWN, b
-	ret z
-	cp $7
-	ret z
-	inc a
-.asm_c54a
-	ld [wd918], a
-	lb de, $00, $03
-	call PlaySoundEffect
-	ret
-
-Func_c554: ; 0xc554
-	ld a, $1
-	call Func_c8f1
-	ret
-
-Func_c55a: ; 0xc55a
-	ld a, [wd918]
-	and a
-	jr nz, .asm_c572
-	ld a, [hNewlyPressedButtons]
-	bit BIT_A_BUTTON, a
-	ret z
-	lb de, $00, $01
-	call PlaySoundEffect
-	call SaveDefaultKeyConfigs
-	call Func_c948
-	ret
-
-.asm_c572
-	ld a, [hNewlyPressedButtons]
-	bit BIT_A_BUTTON, a
-	ret z
-	lb de, $00, $01
-	call PlaySoundEffect
-	ld bc, $001e
-	call AdvanceFrames
-	ld a, [wd918]
-	dec a
-	sla a
-	ld c, a
-	ld b, $0
-	ld hl, PointerTable_c65f
-	add hl, bc
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	ld a, [wd918]
-	dec a
-	sla a
-	call Func_c644
-	ld bc, $00ff
-.asm_c59f
-	push bc
-	push hl
-	ld a, [wd918]
-	dec a
-	sla a
-	call Func_c621
-	call Func_c554
-	call CleanOAMBuffer
-	rst AdvanceFrame
-	pop hl
-	pop bc
-	ld a, [hJoypadState]
-	and a
-	jr z, .asm_c5c2
-	ld c, $0
-	call Func_c9be
-	call Func_c95f
-	jr .asm_c59f
-
-.asm_c5c2
-	or c
-	jr nz, .asm_c59f
-	ld a, [wd918]
-	dec a
-	sla a
-	call Func_c639
-	push hl
-	ld bc, $001e
-	call AdvanceFrames
-	pop hl
-	ld bc, $0020
-	add hl, bc
-	ld a, [wd918]
-	dec a
-	sla a
-	inc a
-	call Func_c644
-	ld bc, $00ff
-	ld d, $5a
-.asm_c5e9
-	push bc
-	push de
-	push hl
-	ld a, [wd918]
-	dec a
-	sla a
-	inc a
-	call Func_c621
-	call Func_c554
-	call CleanOAMBuffer
-	rst AdvanceFrame
-	pop hl
-	pop de
-	pop bc
-	dec d
-	ret z
-	ld a, [hJoypadState]
-	and a
-	jr z, .asm_c613
-	ld d, $ff
-	ld c, $0
-	call Func_c9be
-	call Func_c95f
-	jr .asm_c5e9
-
-.asm_c613
-	or c
-	jr nz, .asm_c5e9
-	ld a, [wd918]
-	dec a
-	sla a
-	inc a
-	call Func_c639
-	ret
-
-Func_c621: ; 0xc621
-	sla a
-	ld c, a
-	ld b, $0
-	ld hl, OAMPixelOffsetData_c66d
-	add hl, bc
-	ld a, [hli]
-	ld c, a
-	ld a, [hl]
-	ld b, a
-	ld a, [hNumFramesDropped]
-	bit 2, a
-	ret z
-	ld a, $84
-	call LoadOAMData
-	ret
-
-Func_c639: ; 0xc639
-	push hl
-	ld e, a
-	ld d, $0
-	ld hl, wKeyConfigBallStart
-	add hl, de
-	ld [hl], b
-	pop hl
-	ret
-
-Func_c644: ; 0xc644
-	push hl
-	ld c, a
-	ld b, $0
-	ld hl, wKeyConfigBallStart
-	add hl, bc
-	ld [hl], $0
-	pop hl
-	push hl
-	ld d, h
-	ld e, l
-	ld hl, Data_c689
-	ld a, Bank(Data_c689)
-	ld bc, $0008
-	call LoadVRAMData
-	pop hl
-	ret
-
-PointerTable_c65f: ; 0xc65f
-	dw $9C6D
-	dw $9CAD
-	dw $9CED
-	dw $9D2D
-	dw $9D6D
-	dw $9DAD
-	dw $9DED
-
-OAMPixelOffsetData_c66d: ; 0xc66d
-	dw $6018
-	dw $6020
-	dw $6028
-	dw $6030
-	dw $6038
-	dw $6040
-	dw $6048
-	dw $6050
-	dw $6058
-	dw $6060
-	dw $6068
-	dw $6070
-	dw $6078
-	dw $6080
-
-Data_c689: ; 0xc689
-	db $81, $81, $81, $81, $81, $81, $81, $81
-
-Func_c691: ; 0xc91
-	call Func_c6bf
-	call Func_c6d9
-	call Func_c6e8
-	ld a, [hNewlyPressedButtons]
-	bit BIT_B_BUTTON, a
-	ret z
-	ld de, $0000
-	call PlaySong
-	rst AdvanceFrame
-	rst AdvanceFrame
-	rst AdvanceFrame
-	ld a, $12
-	call SetSongBank
-	ld de, $0002
-	call PlaySong
-	lb de, $00, $01
-	call PlaySoundEffect
-	ld a, $1
-	ld [wScreenState], a
-	ret
-
-Func_c6bf: ; 0xc6bf
-	ld a, [hNewlyPressedButtons]
-	ld b, a
-	ld a, [wd919]
-	bit BIT_D_UP, b
-	jr z, .asm_c6ce
-	and a
-	ret z
-	dec a
-	jr .asm_c6d5
-
-.asm_c6ce
-	bit BIT_D_DOWN, b
-	ret z
-	cp $1
-	ret z
-	inc a
-.asm_c6d5
-	ld [wd919], a
-	ret
-
-Func_c6d9: ; 0xc6d9
-	call Func_c7ac
-	call Func_c80b
-	call Func_c88a
-	ld a, $2
-	call Func_c8f1
-	ret
-
-Func_c6e8: ; 0xc6e8
-	ld a, [wd919]
-	and a
-	jr nz, UpdateSoundTestSoundEffectSelection
-	ld a, [hNewlyPressedButtons]
-	bit BIT_A_BUTTON, a
-	jr z, UpdateSoundTestBackgroundMusicSelection
-	ld de, $0000
-	call PlaySong
-	rst AdvanceFrame
-	rst AdvanceFrame
-	rst AdvanceFrame
-	ld a, [wSoundTestCurrentBackgroundMusic]
-	sla a
-	ld c, a
-	ld b, $0
-	ld hl, SongBanks
-	add hl, bc
-	ld a, [hli]
-	ld e, a
-	ld d, $0
-	ld a, [hl]
-	call SetSongBank
-	call PlaySong
-	ret
-
-UpdateSoundTestBackgroundMusicSelection: ; 0xc715
-	ld a, [hPressedButtons] ; joypad state
-	ld b, a
-	ld a, [wSoundTestCurrentBackgroundMusic]
-	bit BIT_D_LEFT, b  ; was the left dpad button pressed?
-	jr z, .checkIfRightPressed
-	dec a     ; decrement background music id
-	bit 7, a  ; did it wrap around to $ff?
-	jr z, .saveBackgroundMusicID
-	ld a, NUM_SONGS - 1
-	jr .saveBackgroundMusicID
-
-.checkIfRightPressed
-	bit BIT_D_RIGHT, b  ; was the right dpad button pressed?
-	ret z
-	inc a         ; increment background music id
-	cp NUM_SONGS  ; should it wrap around to 0?
-	jr nz, .saveBackgroundMusicID
-	xor a
-.saveBackgroundMusicID
-	ld [wSoundTestCurrentBackgroundMusic], a
-	hlCoord 7, 11, vBGMap
-	jp RedrawSoundTestID
-
-UpdateSoundTestSoundEffectSelection: ; 0xc73a
-	ld a, [hNewlyPressedButtons] ; joypad state
-	bit BIT_A_BUTTON, a
-	jr z, .didntPressAButton
-	ld a, [wSoundTextCurrentSoundEffect]
-	ld e, a
-	ld d, $0
-	call PlaySoundEffect
-	ret
-
-.didntPressAButton
-	ld a, [hPressedButtons] ; joypad state
-	ld b, a
-	ld a, [wSoundTextCurrentSoundEffect]
-	bit BIT_D_LEFT, b  ; was the left dpad button pressed?
-	jr z, .checkIfRightPressed
-	dec a     ; decrement sound effect id
-	bit 7, a  ; did it wrap around to $ff?
-	jr z, .saveSoundEffectID
-	ld a, NUM_SOUND_EFFECTS - 1
-	jr .saveSoundEffectID
-
-.checkIfRightPressed
-	bit BIT_D_RIGHT, b  ; was the right dpad button pressed?
-	ret z
-	inc a                  ; increment background music id
-	cp NUM_SOUND_EFFECTS   ; should it wrap around to 0?
-	jr nz, .saveSoundEffectID
-	xor a
-.saveSoundEffectID
-	ld [wSoundTextCurrentSoundEffect], a
-	hlCoord 7, 13, vBGMap
-	; fall through
-
-RedrawSoundTestID: ; 0xc76c
-; Redraws the 2-digit id number for the sound test's current background music or sound effect id.
-; input:  a = id number
-;        hl = pointer to bg map location where the new 2-digit id should be drawn
-	push af  ; save music or sound effect id number
-	swap a
-	and $f   ; a contains high nybble of music id
-	call .drawDigit
-	pop af
-	and $f   ; a contains low nybble of music id
-.drawDigit
-	add $b7  ; hexadecimal digit tiles start at tile number $b7
-	call PutTileInVRAM
-	inc hl
-	ret
-
-SongBanks: ; 0xc77e
-	db MUSIC_NOTHING_0F,BANK(Music_Nothing0F)
-	db MUSIC_BLUE_FIELD,BANK(Music_BlueField)
-	db MUSIC_CATCH_EM_RED,BANK(Music_CatchEmRed)
-	db MUSIC_HURRY_UP_RED,BANK(Music_HurryUpRed)
-	db MUSIC_POKEDEX,BANK(Music_Pokedex)
-	db MUSIC_GASTLY_GRAVEYARD,BANK(Music_GastlyInTheGraveyard)
-	db MUSIC_HAUNTER_GRAVEYARD,BANK(Music_HaunterInTheGraveyard)
-	db MUSIC_GENGAR_GRAVEYARD,BANK(Music_GengarInTheGraveyard)
-	db MUSIC_RED_FIELD,BANK(Music_RedField)
-	db MUSIC_CATCH_EM_BLUE,BANK(Music_CatchEmBlue)
-	db MUSIC_HURRY_UP_BLUE,BANK(Music_HurryUpBlue)
-	db MUSIC_HI_SCORE,BANK(Music_HiScore)
-	db MUSIC_GAME_OVER,BANK(Music_GameOver)
-	db MUSIC_WHACK_DIGLETT,BANK(Music_WhackTheDiglett)
-	db MUSIC_WHACK_DUGTRIO,BANK(Music_WhackTheDugtrio)
-	db MUSIC_SEEL_STAGE,BANK(Music_SeelStage)
-	db MUSIC_TITLE_SCREEN,BANK(Music_Title)
-	db MUSIC_MEWTWO_STAGE,BANK(Music_MewtwoStage)
-	db MUSIC_OPTIONS,BANK(Music_Options)
-	db MUSIC_FIELD_SELECT,BANK(Music_FieldSelect)
-	db MUSIC_MEOWTH_STAGE,BANK(Music_MeowthStage)
-	db MUSIC_END_CREDITS,BANK(Music_EndCredits)
-	db MUSIC_NAME_ENTRY,BANK(Music_NameEntry)
-
-Func_c7ac: ; 0xc7ac
-	ld c, $0
-	ld a, [wScreenState]
-	cp $1
-	jr z, .asm_c7cc
-	ld a, [wd916]
-	and a
-	jr nz, .asm_c7cc
-	ld a, [wd917]
-	and a
-	jr nz, .asm_c7cc
-	ld a, [wd91e]
-	cp $4
-	jr nz, .asm_c7cc
-	ld a, [wd91c]
-	ld c, a
-.asm_c7cc
-	sla c
-	ld b, $0
-	ld hl, Data_c806
-	add hl, bc
-	ld a, [hl]
-	ld bc, $5050
-	call LoadOAMData
-	ld a, [wd91d]
-	dec a
-	jr nz, .asm_c802
-	ld a, [wd91c]
-	sla a
-	ld c, a
-	ld b, $0
-	ld hl, Data_c806 + 2
-	add hl, bc
-	ld a, [hl]
-	and a
-	jr z, .asm_c7f5
-	ld a, [wd91c]
-	inc a
-.asm_c7f5
-	ld [wd91c], a
-	sla a
-	ld c, a
-	ld b, $0
-	ld hl, Data_c806 + 1
-	add hl, bc
-	ld a, [hl]
-.asm_c802
-	ld [wd91d], a
-	ret
-
-Data_c806: ; 0xc806
-	db $7B, $02, $7C, $02, $00
-
-Func_c80b: ; 0xc80b
-	ld c, $0
-	ld a, [wScreenState]
-	cp $1
-	jr z, .asm_c824
-	ld a, [wd916]
-	and a
-	jr nz, .asm_c824
-	ld a, [wd917]
-	and a
-	jr nz, .asm_c824
-	ld a, [wd91e]
-	ld c, a
-.asm_c824
-	sla c
-	ld b, $0
-	ld hl, Data_c85e
-	add hl, bc
-	ld bc, $7870
-	ld a, [hl]
-	call LoadOAMData
-	ld a, [wd91f]
-	dec a
-	jr nz, .asm_c85a
-	ld a, [wd91e]
-	sla a
-	ld c, a
-	ld b, $0
-	ld hl, Data_c85e + 2
-	add hl, bc
-	ld a, [hl]
-	and a
-	ld a, [wd91e]
-	jr z, .asm_c850
-	inc a
-	ld [wd91e], a
-.asm_c850
-	sla a
-	ld c, a
-	ld b, $0
-	ld hl, Data_c85e + 1
-	add hl, bc
-	ld a, [hl]
-.asm_c85a
-	ld [wd91f], a
-	ret
-
-Data_c85e: ; 0xc85e
-	db $77, $09, $78, $09, $79, $09, $7A, $0D, $7A, $01, $00
-
-Func_c869: ; 0xc869
-	ld a, [wd916]
-	and a
-	ret nz
-	ld a, [wd917]
-	and a
-	ret nz
-	ld a, [wd91e]
-	cp $3
-	ret nz
-	ld a, [wd91f]
-	cp $1
-	ret nz
-	ld a, $55
-	ld [wd803], a
-	ld a, $40
-	ld [wd804], a
-	ret
-
-Func_c88a: ; 0xc88a
-	ld a, [wd916]
-	sla a
-	ld c, a
-	ld b, $0
-	ld hl, Data_c8eb
-	add hl, bc
-	ld a, [hli]
-	ld c, a
-	ld a, [hli]
-	ld b, a
-	ld e, $0
-	ld a, [wScreenState]
-	cp $1
-	jr nz, .asm_c8a9
-	ld a, [wd920]
-	sla a
-	ld e, a
-.asm_c8a9
-	ld d, $0
-	ld hl, Data_c8de
-	add hl, de
-	ld a, [hl]
-	call LoadOAMData
-	ld a, [wd921]
-	dec a
-	jr nz, .asm_c8da
-	ld a, [wd920]
-	sla a
-	ld c, a
-	ld b, $0
-	ld hl, Data_c8de + 2
-	add hl, bc
-	ld a, [hl]
-	and a
-	jr z, .asm_c8cd
-	ld a, [wd920]
-	inc a
-.asm_c8cd
-	ld [wd920], a
-	sla a
-	ld c, a
-	ld b, $0
-	ld hl, Data_c8de + 1
-	add hl, bc
-	ld a, [hl]
-.asm_c8da
-	ld [wd921], a
-	ret
-
-Data_c8de: ; 0xc8de
-	db $7D, $02, $7E, $06, $7F, $02, $80, $04, $81, $06, $7F, $04, $00
-
-Data_c8eb: ; 0xc8eb
-	db $18, $08, $30, $08, $48, $08
-
-Func_c8f1: ; 0xc8f1
-	ld c, a
-	ld b, $0
-	ld hl, wd917
-	add hl, bc
-	ld e, [hl]
-	sla c
-	ld hl, PointerTable_c910
-	add hl, bc
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	ld c, e
-	sla c
-	add hl, bc
-	ld a, [hli]
-	ld c, a
-	ld a, [hl]
-	ld b, a
-	ld a, $82
-	call LoadOAMData
-	ret
-
-PointerTable_c910: ; 0xc910
-	dw OAMPixelOffsetData_c916
-	dw OAMPixelOffsetData_c91a
-	dw OAMPixelOffsetData_c92a
-
-OAMPixelOffsetData_c916: ; 0xc916
-	dw $5018
-	dw $7018
-
-OAMPixelOffsetData_c91a: ; 0xc91a
-	dw $0808
-	dw $0818
-	dw $0828
-	dw $0838
-	dw $0848
-	dw $0858
-	dw $0868
-	dw $0878
-
-OAMPixelOffsetData_c92a: ; 0xc92a
-	dw $1058
-	dw $1068
-
-Func_c92e: ; 0xc92e
-	ld a, [wd917]
-	sla a
-	ld c, a
-	ld b, $0
-	ld hl, OAMPixelOffsetData_c944
-	add hl, bc
-	ld a, [hli]
-	ld c, a
-	ld a, [hli]
-	ld b, a
-	ld a, $85
-	call LoadOAMData
-	ret
-
-OAMPixelOffsetData_c944: ; 0xc944
-	dw $5018
-	dw $7018
-
-Func_c948: ; 0xc948
-	hlCoord 13, 3, vBGWin
-	ld de, wKeyConfigBallStart
-	ld b, $e
-.asm_c950
-	push bc
-	ld a, [de]
-	call Func_c95f
-	inc de
-	ld bc, $0020
-	add hl, bc
-	pop bc
-	dec b
-	jr nz, .asm_c950
-	ret
-
-Func_c95f: ; 0xc95f
-	push bc
-	push de
-	push hl
-	push hl
-	push af
-	ld hl, wd922
-	ld a, $81
-	ld [hli], a
-	ld [hli], a
-	ld [hli], a
-	ld [hli], a
-	ld [hli], a
-	ld [hli], a
-	ld [hl], a
-	pop af
-	ld hl, wd922
-	ld de, Data_c9ae
-	ld b, $8
-.asm_c979
-	srl a
-	push af
-	jr nc, .asm_c994
-	ld a, [de]
-	inc de
-	call Func_c9aa
-	ld a, [de]
-	inc de
-	call Func_c9aa
-	pop af
-	push af
-	and a
-	jr z, .asm_c996
-	ld a, $1a
-	call Func_c9aa
-	jr .asm_c996
-
-.asm_c994
-	inc de
-	inc de
-.asm_c996
-	pop af
-	dec b
-	jr nz, .asm_c979
-	pop de
-	ld hl, wd922
-	ld a, $0
-	ld bc, $0008
-	call LoadOrCopyVRAMData
-	pop hl
-	pop de
-	pop bc
-	ret
-
-Func_c9aa: ; 0xc9aa
-	and a
-	ret z
-	ld [hli], a
-	ret
-
-Data_c9ae: ; 0xc9ae
-	db $14, $00, $15, $00, $18, $19, $16, $17, $13, $00, $12, $00, $10, $00, $11, $00
-
-Func_c9be: ; 0xc9be
-	push af
-	push bc
-	push hl
-	ld c, a
-	xor b
-	and c
-	ld hl, wd936
-	call Func_c9ff
-	ld a, b
-	ld hl, wd93f
-	call Func_c9ff
-	ld a, [wd947]
-	cp $3
-	jr nc, .asm_c9f3
-	ld hl, wd93e
-	add [hl]
-	sub $4
-	ld hl, wd936
-	call nc, Func_ca15
-	ld de, wd936
-	ld hl, wd93f
-	ld b, $8
-.asm_c9ec
-	ld a, [de]
-	or [hl]
-	ld [hli], a
-	inc de
-	dec b
-	jr nz, .asm_c9ec
-.asm_c9f3
-	ld hl, wd93f
-	call Func_ca29
-	pop hl
-	pop bc
-	ld b, a
-	pop af
-	ld a, b
-	ret
-
-Func_c9ff: ; 0xc9ff
-	push bc
-	ld bc, $0800
-.asm_ca03
-	sla a
-	jr nc, .asm_ca0c
-	ld [hl], $ff
-	inc c
-	jr .asm_ca0e
-
-.asm_ca0c
-	ld [hl], $0
-.asm_ca0e
-	inc hl
-	dec b
-	jr nz, .asm_ca03
-	ld [hl], c
-	pop bc
-	ret
-
-Func_ca15: ; 0xca15
-	push bc
-	inc a
-	ld c, a
-	ld b, $8
-.asm_ca1a
-	ld a, [hl]
-	and a
-	jr z, .asm_ca23
-	ld [hl], $0
-	dec c
-	jr z, .asm_ca27
-.asm_ca23
-	inc hl
-	dec b
-	jr nz, .asm_ca1a
-.asm_ca27
-	pop bc
-	ret
-
-Func_ca29: ; 0ca29
-	push bc
-	ld bc, $0800
-.asm_ca2d
-	ld a, [hli]
-	and a
-	jr z, .asm_ca32
-	scf
-.asm_ca32
-	rl c
-	dec b
-	jr nz, .asm_ca2d
-	ld a, c
-	pop bc
-	ret
-
-SaveDefaultKeyConfigs: ; 0ca3a
-	ld hl, DefaultKeyConfigs
-	ld de, wKeyConfigs
-	ld b, $e
-.loop
-	ld a, [hli]
-	ld [de], a
-	inc de
-	dec b
-	jr nz, .loop
-	ld hl, wKeyConfigs
-	ld de, sKeyConfigs
-	ld bc, $000e
-	call SaveData
-	ret
-
-DefaultKeyConfigs: ; 0xca55
-	db A_BUTTON, $00  ; wKeyConfigBallStart
-	db D_LEFT,   $00  ; wKeyConfigLeftFlipper
-	db A_BUTTON, $00  ; wKeyConfigRightFlipper
-	db D_DOWN,   $00  ; wKeyConfigLeftTilt
-	db B_BUTTON, $00  ; wKeyConfigRightTilt
-	db SELECT,   $00  ; wKeyConfigUpperTilt
-	db START,    $00  ; wKeyConfigMenu
-
-Data_ca63:
-	db A_BUTTON,       $00  ; wKeyConfigBallStart
-	db D_LEFT,         $00  ; wKeyConfigLeftFlipper
-	db A_BUTTON,       $00  ; wKeyConfigRightFlipper
-	db D_DOWN,         $00  ; wKeyConfigLeftTilt
-	db B_BUTTON,       $00  ; wKeyConfigRightTilt
-	db START,          $04  ; wKeyConfigUpperTilt
-	db D_UP | D_RIGHT, $00  ; wKeyConfigMenu
-
-Data_ca71:
-	db A_BUTTON,              $00  ; wKeyConfigBallStart
-	db D_LEFT,                $00  ; wKeyConfigLeftFlipper
-	db A_BUTTON,              $00  ; wKeyConfigRightFlipper
-	db D_DOWN,                $00  ; wKeyConfigLeftTilt
-	db B_BUTTON,              $00  ; wKeyConfigRightTilt
-	db START,                 $00  ; wKeyConfigUpperTilt
-	db D_UP | START | SELECT, $00  ; wKeyConfigMenu
-
-HandleHighScoresScreen: ; 0xca7f
-	ld a, [wScreenState]
-	rst JumpTable  ; calls JumpToFuncInTable
-HighScoresScreenFunctions: ; 0xca83
-	dw Func_ca8f
-	dw Func_cb14
-	dw Func_ccac
-	dw Func_ccb6
-	dw Func_cd6c
-	dw ExitHighScoresScreen
-
-Func_ca8f: ; 0xca8f
-	ld hl, wd473
-	call GenRandom
-	ld [hli], a
-	call GenRandom
-	ld [hli], a
-	call GenRandom
-	ld [hli], a
-	call GenRandom
-	ld [hli], a
-	ld hl, wRedHighScore5Points + $5
-	ld a, [wHighScoresStage]
-	and a
-	jr z, .asm_caae
-	ld hl, wBlueHighScore5Points + $5
-.asm_caae
-	ld b, $5
-.asm_cab0
-	ld de, wScore + $5
-	ld c, $6
-.asm_cab5
-	ld a, [de]
-	cp [hl]
-	jr c, .asm_cad0
-	jr nz, .asm_cac2
-	dec de
-	dec hl
-	dec c
-	jr nz, .asm_cab5
-	jr .asm_cad0
-
-.asm_cac2
-	dec hl
-	dec c
-	jr nz, .asm_cac2
-	ld a, l
-	sub $7
-	ld l, a
-	jr nc, .asm_cacd
-	dec h
-.asm_cacd
-	dec b
-	jr nz, .asm_cab0
-.asm_cad0
-	ld a, b
-	ld [wda81], a
-	xor a
-	ld [wda80], a
-	inc b
-	ld hl, wRedHighScore4Unknown0x09 + 3
-	ld de, wRedHighScore5Unknown0x09 + 3
-	ld a, [wHighScoresStage]
-	and a
-	jr z, .asm_caeb
-	ld hl, wBlueHighScore4Unknown0x09 + 3
-	ld de, wBlueHighScore5Unknown0x09 + 3
-.asm_caeb
-	ld a, $5
-.asm_caed
-	cp b
-	jr c, .asm_cb02
-	push af
-	jr nz, .asm_caf6
-	ld hl, wd473 + $3
-.asm_caf6
-	ld c, $d
-.asm_caf8
-	ld a, [hld]
-	ld [de], a
-	dec de
-	dec c
-	jr nz, .asm_caf8
-	pop af
-	dec a
-	jr nz, .asm_caed
-.asm_cb02
-	ld a, [wda81]
-	cp $5
-	ld a, $1
-	jr nz, .asm_cb0c
-	xor a
-.asm_cb0c
-	ld [wda7f], a
-	ld hl, wScreenState
-	inc [hl]
-	ret
-
-Func_cb14: ; 0xcb14
-	ld a, $43
-	ld [hLCDC], a
-	ld a, $e0
-	ld [wBGP], a
-	ld a, $e1
-	ld [wOBP0], a
-	ld [wOBP1], a
-	xor a
-	ld [hSCX], a
-	ld [hNextFrameHBlankSCX], a
-	ld [hSCY], a
-	ld [hNextFrameHBlankSCY], a
-	ld a, $e
-	ld [hLYC], a
-	ld [hLastLYC], a
-	ld a, $82
-	ld [hNextLYCSub], a
-	ld [hLYCSub], a
-	ld hl, hSTAT
-	set 6, [hl]
-	ld hl, rIE
-	set 1, [hl]
-	ld a, $3
-	ld [hHBlankRoutine], a
-	ld a, [hGameBoyColorFlag]
-	and a
-	jr z, .asm_cb51
-	ld a, [wHighScoresStage]
-	inc a
-.asm_cb51
-	ld hl, HighScoresVideoDataPointers
-	call LoadVideoData
-	call ClearOAMBuffer
-	ld a, $20
-	ld [wda82], a
-	call Func_d211
-	hlCoord 0, 14, vBGMap
-	ld de, wRedHighScore5Unknown0x09 + $3
-	call Func_d2cb
-	hlCoord 0, 14, vBGWin
-	ld de, wBlueHighScore5Unknown0x09 + $3
-	call Func_d2cb
-	ld a, [wHighScoresStage]
-	and a
-	jr z, .asm_cb7f
-	ld hl, hLCDC
-	set 3, [hl]
-.asm_cb7f
-	call Func_b66
-	ld a, [wda7f]
-	and a
-	jr z, .asm_cbbd
-	ld a, [wda81]
-	and a
-	jr nz, .asm_cb9b
-	ld a, $13
-	call SetSongBank
-	ld de, $0001
-	call PlaySong
-	jr .asm_cba6
-
-.asm_cb9b
-	ld a, $13
-	call SetSongBank
-	ld de, $0002
-	call PlaySong
-.asm_cba6
-	call Func_588
-	ld bc, $0009
-	call Func_d68a
-	ld bc, $03c9
-	call Func_d68a
-	call Func_bbe
-	ld hl, wScreenState
-	inc [hl]
-	ret
-
-.asm_cbbd
-	ld a, $10
-	call SetSongBank
-	ld de, $0004
-	call PlaySong
-	call Func_588
-	ld bc, $0009
-	call Func_d68a
-	ld bc, $03c9
-	call Func_d68a
-	call Func_bbe
-	ld hl, wScreenState
-	inc [hl]
-	ld hl, wScreenState
-	inc [hl]
-	ret
-
-HighScoresVideoDataPointers: ; 0xcbe3
-	dw HighScoresVideoData_GameBoy
-	dw HighScoresRedStageVideoData_GameBoyColor
-	dw HighScoresBlueStageVideoData_GameBoyColor
-
-HighScoresVideoData_GameBoy: ; 0xcbe9
-	VIDEO_DATA_TILES HighScoresBaseGameBoyGfx, vTilesOB, $1800
-	VIDEO_DATA_TILEMAP HighScoresTilemap, vBGMap, $400
-	VIDEO_DATA_TILEMAP HighScoresTilemap2, vBGWin, $400
-	dw HighScoresTilemap + $3c0
-	db Bank(HighScoresTilemap)
-	dw vBGMap
-	dw ($40 << 2)
-	dw HighScoresTilemap + $280
-	db Bank(HighScoresTilemap)
-	dw vBGMap + $200
-	dw ($40 << 2)
-	dw HighScoresTilemap2 + $3c0
-	db Bank(HighScoresTilemap2)
-	dw vBGWin
-	dw ($40 << 2)
-	dw HighScoresTilemap2 + $280
-	db Bank(HighScoresTilemap2)
-	dw vBGWin + $200
-	dw ($40 << 2)
-	db $FF, $FF  ; terminators
-
-HighScoresRedStageVideoData_GameBoyColor: ; 0xcc1c
-	VIDEO_DATA_TILES HighScoresBaseGameBoyGfx, vTilesOB, $1800
-	VIDEO_DATA_TILEMAP HighScoresTilemap, vBGMap, $400
-	VIDEO_DATA_TILEMAP HighScoresTilemap2, vBGWin, $400
-	VIDEO_DATA_TILEMAP_BANK2 HighScoresTilemap4, vBGMap, $400
-	VIDEO_DATA_TILEMAP_BANK2 HighScoresTilemap5, vBGWin, $400
-	dw HighScoresTilemap + $3c0
-	db Bank(HighScoresTilemap)
-	dw vBGMap
-	dw ($40 << 2)
-	dw HighScoresTilemap + $280
-	db Bank(HighScoresTilemap)
-	dw vBGMap + $200
-	dw ($40 << 2)
-	dw HighScoresTilemap2 + $3c0
-	db Bank(HighScoresTilemap2)
-	dw vBGWin
-	dw ($40 << 2)
-	dw HighScoresTilemap2 + $280
-	db Bank(HighScoresTilemap2)
-	dw vBGWin + $200
-	dw ($40 << 2)
-	VIDEO_DATA_PALETTES HighScoresRedStagePalettes, $80
-	db $FF, $FF
-
-HighScoresBlueStageVideoData_GameBoyColor: ; 0xcc64
-	VIDEO_DATA_TILES HighScoresBaseGameBoyGfx, vTilesOB, $1800
-	VIDEO_DATA_TILEMAP HighScoresTilemap, vBGMap, $400
-	VIDEO_DATA_TILEMAP HighScoresTilemap2, vBGWin, $400
-	VIDEO_DATA_TILEMAP_BANK2 HighScoresTilemap4, vBGMap, $400
-	VIDEO_DATA_TILEMAP_BANK2 HighScoresTilemap5, vBGWin, $400
-	dw HighScoresTilemap + $3c0
-	db Bank(HighScoresTilemap)
-	dw vBGMap
-	dw ($40 << 2)
-	dw HighScoresTilemap + $280
-	db Bank(HighScoresTilemap)
-	dw vBGMap + $200
-	dw ($40 << 2)
-	dw HighScoresTilemap2 + $3c0
-	db Bank(HighScoresTilemap2)
-	dw vBGWin
-	dw ($40 << 2)
-	dw HighScoresTilemap2 + $280
-	db Bank(HighScoresTilemap2)
-	dw vBGWin + $200
-	dw ($40 << 2)
-	VIDEO_DATA_PALETTES HighScoresBlueStagePalettes, $80
-	db $FF, $FF  ; terminators
-
-Func_ccac: ; 0xccac
-	call Func_d18b
-	call Func_d1d2
-	call Func_d211
-	ret
-
-Func_ccb6: ; 0xccb6
-	call Func_d4cf
-	call AnimateHighScoresArrow
-	ld a, [hNewlyPressedButtons]
-	bit BIT_A_BUTTON, a
-	jr z, .asm_ccd1
-	lb de, $00, $01
-	call PlaySoundEffect
-	ld hl, wScreenState
-	inc [hl]
-	ld hl, wScreenState
-	inc [hl]
-	ret
-
-.asm_ccd1
-	bit 1, a
-	jr z, .asm_cce4
-	lb de, $00, $01
-	call PlaySoundEffect
-	ld hl, wScreenState
-	inc [hl]
-	ld hl, wScreenState
-	inc [hl]
-	ret
-
-.asm_cce4
-	bit 3, a
-	jr z, .asm_ccfb
-	call Func_1a43
-	ld a, [hGameBoyColorFlag]
-	ld [wd8f0], a
-	lb de, $00, $01
-	call PlaySoundEffect
-	ld hl, wScreenState
-	inc [hl]
-	ret
-
-.asm_ccfb
-	ld a, [hJoypadState]
-	cp (SELECT | D_UP)
-	ret nz
-	ld a, [hNewlyPressedButtons]
-	and (SELECT | D_UP)
-	ret z
-	lb de, $00, $01
-	call PlaySoundEffect
-	call ClearOAMBuffer
-	ld bc, $473b
-	ld a, $94
-	call LoadOAMData
-.asm_cd16
-	rst AdvanceFrame
-	ld a, [hNewlyPressedButtons]
-	bit BIT_B_BUTTON, a
-	jr z, .asm_cd24
-	lb de, $00, $01
-	call PlaySoundEffect
-	ret
-
-.asm_cd24
-	bit 0, a
-	jr z, .asm_cd16
-	lb de, $00, $01
-	call PlaySoundEffect
-	call CopyInitialHighScores
-	ld a, BANK(HighScoresTilemap)
-	ld hl, HighScoresTilemap + $40
-	deCoord 0, 2, vBGMap
-	ld bc, $01c0
-	call LoadVRAMData
-	ld a, BANK(HighScoresTilemap2)
-	ld hl, HighScoresTilemap2 + $40
-	deCoord 0, 2, vBGWin
-	ld bc, $01c0
-	call LoadVRAMData
-	hlCoord 0, 14, vBGMap
-	ld de, wRedHighScore5Unknown0x09 + $3
-	call Func_d361
-	hlCoord 0, 14, vBGWin
-	ld de, wBlueHighScore5Unknown0x09 + $3
-	call Func_d361
-	ld hl, wRedHighScore1Points
-	ld de, $a000
-	ld bc, $0082
-	call SaveData
-	ret
-
-Func_cd6c: ; 0xcd6c
-	ld a, [hNumFramesDropped]
-	and $1f
-	call z, Func_1a43
-	call Func_cf7d
-	call Func_cfa6
-	ld a, [hNewlyPressedButtons]
-	bit BIT_A_BUTTON, a
-	jr z, .asm_cdbb
-	lb de, $00, $01
-	call PlaySoundEffect
-	ld a, [wda85]
-	and a
-	jr nz, .asm_cda1
-	ld a, [wd86e]
-	and a
-	jr z, .asm_cdbb
-	call ClearOAMBuffer
-	ld bc, $473b
-	ld a, $8e
-	call LoadOAMData
-	call Func_d042
-	jr .asm_cdc6
-
-.asm_cda1
-	ld a, [wd8f0]
-	and a
-	jr z, .asm_cdbb
-	ld de, $0000
-	call PlaySong
-	rst AdvanceFrame
-	call Func_cdce
-	push af
-	ld de, $0004
-	call PlaySong
-	pop af
-	jr nc, .asm_cdc6
-.asm_cdbb
-	ld a, [hNewlyPressedButtons]
-	bit BIT_B_BUTTON, a
-	ret z
-	lb de, $00, $01
-	call PlaySoundEffect
-.asm_cdc6
-	xor a
-	ld [rRP], a
-	ld hl, wScreenState
-	dec [hl]
-	ret
-
-Func_cdce: ; 0xcdce
-	push af
-	ld a, $0
-	ld [$abf6], a
-	pop af
-	call ClearOAMBuffer
-	call Func_1be3
-	call SendHighScores
-	push af
-	ld a, $1
-	ld [$abf6], a
-	pop af
-	di
-	ld a, [wd8ea]
-	cp $0
-	jp nz, .asm_ceb6
-	ld a, [wd8e9]
-	cp $1
-	jr z, .asm_ce23
-	push af
-	ld a, $2
-	ld [$abf6], a
-	pop af
-	ld b, $82
-	ld hl, wRedHighScore1Points
-	call Func_1cf8
-	ld a, [wd8ea]
-	cp $0
-	jp nz, .asm_ceb6
-	push af
-	ld a, $3
-	ld [$abf6], a
-	pop af
-	ld hl, wc4c0
-	call Func_1dda
-	ld a, [wd8ea]
-	cp $0
-	jp nz, .asm_ceb6
-	jr .asm_ce4d
-
-.asm_ce23
-	push af
-	ld a, $4
-	ld [$abf6], a
-	pop af
-	ld hl, wc4c0
-	call Func_1dda
-	ld a, [wd8ea]
-	cp $0
-	jr nz, .asm_ceb6
-	push af
-	ld a, $5
-	ld [$abf6], a
-	pop af
-	ld b, $82
-	ld hl, wRedHighScore1Points
-	call Func_1cf8
-	ld a, [wd8ea]
-	cp $0
-	jr nz, .asm_ceb6
-.asm_ce4d
-	push af
-	ld a, $6
-	ld [$abf6], a
-	pop af
-	call Func_ceca
-	rst AdvanceFrame
-	ld hl, wc4cc
-	ld b, $5
-.asm_ce5d
-	push bc
-	push hl
-	ld d, h
-	ld e, l
-	ld hl, wRedHighScore5Unknown0x09 + $3
-	call Func_cfcb
-	pop hl
-	pop bc
-	ld de, $000d
-	add hl, de
-	dec b
-	jr nz, .asm_ce5d
-	push af
-	ld a, $7
-	ld [$abf6], a
-	pop af
-	ld hl, wBottomMessageText + $0d
-	ld b, $5
-.asm_ce7c
-	push bc
-	push hl
-	ld d, h
-	ld e, l
-	ld hl, wBlueHighScore5Unknown0x09 + $3
-	call Func_cfcb
-	pop hl
-	pop bc
-	ld de, $000d
-	add hl, de
-	dec b
-	jr nz, .asm_ce7c
-	push af
-	ld a, $8
-	ld [$abf6], a
-	pop af
-	hlCoord 0, 14, vBGMap
-	ld de, wRedHighScore5Unknown0x09 + $3
-	call Func_d361
-	hlCoord 0, 14, vBGWin
-	ld de, wBlueHighScore5Unknown0x09 + $3
-	call Func_d361
-	ld hl, wRedHighScore1Points
-	ld de, $a000
-	ld bc, $0082
-	call SaveData
-	and a
-	ret
-
-.asm_ceb6
-	push af
-	ld a, $9
-	ld [$abf6], a
-	pop af
-	call Func_ceca
-	rst AdvanceFrame
-	push af
-	ld a, $a
-	ld [$abf6], a
-	pop af
-	scf
-	ret
-
-Func_ceca: ; 0xceca
-	ld a, [rLY]
-	and a
-	jr nz, Func_ceca
-	ei
-	ret
-
-SendHighScores: ; 0xced1
-; Sends high scores, and plays the animation for sending the high scores.
-	ld hl, SendHighScoresAnimationData
-	ld de, wSendHighScoresAnimationFrameCounter
-	call CopyHLToDE
-	ld bc, $4800
-	ld a, [wSendHighScoresAnimationFrame]
-	call LoadOAMData
-	ld bc, $473b
-	ld a, $8f
-	call LoadOAMData
-	call CleanOAMBuffer
-	rst AdvanceFrame
-	ld a, $1
-	ld [wd8e9], a
-	ld b, $b4  ; maximum attempts to send high scores
-.attemptToSendHighScoresLoop
-	push bc
-	xor a
-	ld [hNumFramesSinceLastVBlank], a
-.asm_cefa
-	ld b, $2
-	ld c, $56
-	ld a, [$ff00+c]
-	and b
-	jr z, .asm_cf09
-	ld a, [hNumFramesSinceLastVBlank]
-	and a
-	jr z, .asm_cefa
-	jr .asm_cf0e
-
-.asm_cf09
-	call Func_1c50
-	jr .continueAttempts
-
-.asm_cf0e
-	ld hl, SendHighScoresAnimationData
-	ld de, wSendHighScoresAnimationFrameCounter
-	call UpdateAnimation
-	jr nc, .continueAttempts
-	ld bc, $4800
-	ld a, [wSendHighScoresAnimationFrame]
-	call LoadOAMData
-	ld bc, $473b
-	ld a, $8f
-	call LoadOAMData
-	call CleanOAMBuffer
-	call Func_1ca1
-	ld a, [wSendHighScoresAnimationFrameIndex]
-	cp $6
-	jr nz, .continueAttempts
-	ld hl, SendHighScoresAnimationData
-	ld de, wSendHighScoresAnimationFrameCounter
-	call CopyHLToDE
-.continueAttempts
-	pop bc
-	ld a, [wd8ea]
-	cp $0
-	ret z
-	dec b
-	jr nz, .attemptToSendHighScoresLoop
-	ret
-
-SendHighScoresAnimationData: ; 0xcf4b
-; Each entry is [OAM id][duration]
-	db $0C, $98
-	db $06, $99
-	db $0A, $9A
-	db $0C, $9B
-	db $0A, $9C
-	db $06, $9D
-	db $00  ; terminator
-
-Func_cf58: ; 0xcf58
-	cp $5
-	ret z
-	push af
-	lb de, $00, $02
-	call PlaySoundEffect
-	call ClearOAMBuffer
-	rst AdvanceFrame
-	pop af
-	ld bc, $473b
-	add $8f
-	call LoadOAMData
-.asm_cf6f
-	rst AdvanceFrame
-	ld a, [hNewlyPressedButtons]
-	bit BIT_A_BUTTON, a
-	jr z, .asm_cf6f
-	lb de, $00, $01
-	call PlaySoundEffect
-	ret
-
-Func_cf7d: ; 0xcf7d
-	ld a, [wd809]
-	ld b, a
-	ld a, [wda85]
-	bit 6, b
-	jr z, .asm_cf95
-	and a
-	ret z
-	dec a
-	ld [wda85], a
-	lb de, $00, $03
-	call PlaySoundEffect
-	ret
-
-.asm_cf95
-	bit 7, b
-	ret z
-	cp $1
-	ret z
-	inc a
-	ld [wda85], a
-	lb de, $00, $03
-	call PlaySoundEffect
-	ret
-
-Func_cfa6: ; 0xcfa6
-	ld bc, $473b
-	ld a, $87
-	call LoadOAMData
-	ld a, [wd8f0]
-	and a
-	jr z, .asm_cfb6
-	ld a, $2
-.asm_cfb6
-	ld e, a
-	ld a, [wd86e]
-	add e
-	xor $3
-	add $8a
-	call LoadOAMData
-	ld a, [wda85]
-	add $88
-	call LoadOAMData
-	ret
-
-Func_cfcb: ; 0xcfcb
-	ld a, e
-	ld [$ff8c], a
-	ld a, d
-	ld [$ff8d], a
-	push hl
-	ld b, $5
-.asm_cfd4
-	ld a, [$ff8c]
-	ld e, a
-	ld a, [$ff8d]
-	ld d, a
-	call Func_d005
-	call Func_d017
-	jr c, .asm_cfe5
-	dec b
-	jr nz, .asm_cfd4
-.asm_cfe5
-	inc b
-	pop de
-	ld hl, $fff3
-	add hl, de
-	ld a, $5
-.asm_cfed
-	cp b
-	ret c
-	push af
-	jr nz, .asm_cff8
-	ld a, [$ff8c]
-	ld l, a
-	ld a, [$ff8d]
-	ld h, a
-.asm_cff8
-	ld c, $d
-.asm_cffa
-	ld a, [hld]
-	ld [de], a
-	dec de
-	dec c
-	jr nz, .asm_cffa
-	pop af
-	dec a
-	jr nz, .asm_cfed
-	ret
-
-Func_d005: ; 0xd005
-	ld c, $7
-.asm_d007
-	ld a, [de]
-	cp [hl]
-	jr nz, .asm_d010
-	dec de
-	dec hl
-	dec c
-	jr nz, .asm_d007
-.asm_d010
-	ld a, c
-	ld [$ff8e], a
-	call Func_d035
-	ret
-
-Func_d017: ; 0xd017
-	ld c, $6
-.asm_d019
-	ld a, [de]
-	cp [hl]
-	jr c, .asm_d02b
-	jr nz, .asm_d030
-	dec de
-	dec hl
-	dec c
-	jr nz, .asm_d019
-	ld a, [$ff8e]
-	and a
-	jr nz, .asm_d02b
-	ld b, $5
-.asm_d02b
-	call Func_d035
-	scf
-	ret
-
-.asm_d030
-	call Func_d035
-	and a
-	ret
-
-Func_d035: ; 0xd035
-	ld a, e
-	sub c
-	ld e, a
-	jr nc, .asm_d03b
-	dec d
-.asm_d03b
-	ld a, l
-	sub c
-	ld l, a
-	jr nc, .asm_d041
-	dec h
-.asm_d041
-	ret
-
-Func_d042: ; 0xd042
-	ld a, [hJoypadState]
-	ld [wda86], a
-	ld b, a
-	ld a, $80
-	bit BIT_D_LEFT, b
-	jr z, .asm_d052
-	ld a, $7f
-	jr .asm_d058
-
-.asm_d052
-	bit BIT_D_RIGHT, b
-	jr z, .asm_d058
-	ld a, $10
-.asm_d058
-	ld [wd8a7], a
-	ld a, $e0
-	ld [wd8aa], a
-	ld a, BANK(HighScoresTilemap)
-	ld hl, HighScoresTilemap + $3c0
-	ld de, wc280
-	ld bc, $0040
-	call FarCopyData
-	ld a, $0
-	hlCoord 0, 2, vBGMap
-	ld de, wc2c0
-	ld bc, $01c0
-	call LoadVRAMData
-	ld a, BANK(HighScoresTilemap)
-	ld hl, HighScoresTilemap + $280
-	ld de, wc480
-	ld bc, $0040
-	call FarCopyData
-	call Func_d6b6
-	call Func_d0e3
-	ret c
-	ld a, [wda86]
-	bit 2, a
-	jr z, .asm_d0a2
-	ld de, wRedHighScore1Unknown0x09
-	call Func_d107
-	call Func_d0f5
-	ret c
-.asm_d0a2
-	ld a, BANK(HighScoresTilemap2)
-	ld hl, HighScoresTilemap2 + $3c0
-	ld de, wc280
-	ld bc, $0040
-	call FarCopyData
-	ld a, $0
-	hlCoord 0, 2, vBGWin
-	ld de, wc2c0
-	ld bc, $01c0
-	call LoadVRAMData
-	ld a, BANK(HighScoresTilemap2)
-	ld hl, HighScoresTilemap2 + $280
-	ld de, wc480
-	ld bc, $0040
-	call FarCopyData
-	call Func_d6b6
-	call Func_d0e3
-	ret c
-	ld a, [wda86]
-	bit 2, a
-	ret z
-	ld de, wBlueHighScore1Unknown0x09
-	call Func_d107
-	call Func_d0f5
-	ret
-
-Func_d0e3: ; 0xd0e3
-	ld a, BANK(HighScoresBaseGameBoyGfx)
-	ld hl, HighScoresBaseGameBoyGfx + $800
-	call Func_1a21
-	ld a, [wd86d]
-	and a
-	ret z
-	call Func_cf58
-	scf
-	ret
-
-Func_d0f5: ; 0xd0f5
-	ld a, BANK(HighScoresHexadecimalCharsGfx)
-	ld hl, HighScoresHexadecimalCharsGfx
-	call Func_1a21
-	ld a, [wd86d]
-	and a
-	ret z
-	call Func_cf58
-	scf
-	ret
-
-Func_d107: ; 0xd107
-	ld hl, wc280
-	ld a, $c0
-	ld b, $20
-.clear
-rept 32
-	ld [hli], a
-endr
-	dec b
-	jr nz, .clear
-	ld hl, wc280
-	ld b, $5
-.loop
-	ld c, $4
-.inner
-	ld a, [de]
-	swap a
-	call Func_d159
-	ld a, [de]
-	call Func_d159
-	inc de
-	inc hl
-	dec c
-	jr nz, .inner
-	ld a, l
-	add $4c
-	ld l, a
-	jr nc, .no_carry_1
-	inc h
-.no_carry_1
-	ld a, e
-	add $9
-	ld e, a
-	jr nc, .no_carry_2
-	inc d
-.no_carry_2
-	dec b
-	jr nz, .loop
-	ret
-
-Func_d159: ; 0xd159
-	and $f
-	sla a
-	sla a
-	xor $80
-	ld [hli], a
-	inc a
-	ld [hli], a
-	inc a
-	push bc
-	push hl
-	ld bc, $001e
-	add hl, bc
-	ld [hli], a
-	inc a
-	ld [hli], a
-	pop hl
-	pop bc
-	ret
-
-ExitHighScoresScreen: ; 0xd171
-	call Func_cb5
-	call Func_576
-	ld hl, hSTAT
-	res 6, [hl]
-	ld hl, rIE
-	res 1, [hl]
-	ld a, SCREEN_TITLESCREEN
-	ld [wCurrentScreen], a
-	xor a
-	ld [wScreenState], a
-	ret
-
-Func_d18b: ; 0xd18b
-	ld a, [hPressedButtons]
-	ld b, a
-	ld a, [wda81]
-	ld e, a
-	sla e
-	sla e
-	add e
-	sla e
-	add e
-	ld e, a
-	ld a, [wda80]
-	add e
-	ld e, a
-	ld d, $0
-	ld hl, wRedHighScore1Name
-	ld a, [wHighScoresStage]
-	and a
-	jr z, .asm_d1ae
-	ld hl, wBlueHighScore1Name
-.asm_d1ae
-	add hl, de
-	ld a, [hl]
-	bit 4, b
-	jr z, .asm_d1bd
-	inc a
-	cp $38
-	jr nz, .asm_d1c7
-	ld a, $a
-	jr .asm_d1c7
-
-.asm_d1bd
-	bit 5, b
-	ret z
-	dec a
-	cp $9
-	jr nz, .asm_d1c7
-	ld a, $37
-.asm_d1c7
-	ld [hl], a
-	call Func_d46f
-	lb de, $00, $03
-	call PlaySoundEffect
-	ret
-
-Func_d1d2: ; 0xd1d2
-	ld a, [hNewlyPressedButtons]
-	ld b, a
-	ld a, [wda80]
-	bit BIT_A_BUTTON, b
-	jr z, .asm_d1fc
-	inc a
-	cp $3
-	jr nz, .asm_d202
-	lb de, $07, $45
-	call PlaySoundEffect
-	xor a
-	ld [wda7f], a
-	ld hl, wScreenState
-	inc [hl]
-	ld hl, wRedHighScore1Points
-	ld de, $a000
-	ld bc, $0082
-	call SaveData
-	ret
-
-.asm_d1fc
-	bit 1, b
-	ret z
-	and a
-	ret z
-	dec a
-.asm_d202
-	ld [wda80], a
-	ld a, $20
-	ld [wda82], a
-	lb de, $00, $01
-	call PlaySoundEffect
-	ret
-
-Func_d211: ; 0xd211
-; related to high scores name entry?
-	ld a, [wda7f]
-	and a
-	ret z
-	ld a, [hJoypadState]
-	and (D_RIGHT | D_LEFT)
-	jr z, .asm_d221
-	xor a
-	ld [wda82], a
-	ret
-
-.asm_d221
-	ld a, [wda82]
-	inc a
-	ld [wda82], a
-	bit 5, a
-	ret z
-	ld a, [wda81]
-	ld e, a
-	ld d, $0
-	ld hl, OAMPixelYOffsets_d247
-	add hl, de
-	ld c, [hl]
-	ld a, [wda80]
-	ld e, a
-	ld d, $0
-	ld hl, OAMPixelXOffsets_d24c
-	add hl, de
-	ld b, [hl]
-	ld a, $86
-	call LoadOAMData
-	ret
-
-OAMPixelYOffsets_d247: ; 0xd247
-	db $10, $28, $40, $58, $70
-
-OAMPixelXOffsets_d24c: ; 0xd24c
-	db $18, $20, $28
-
-AnimateHighScoresArrow: ; 0xd24f
-; Handles the animation of the arrow in the bottom
-; corner of the high scores screens.
-	ld a, [wHighScoresArrowAnimationCounter]
-	inc a
-	cp $28
-	jr c, .noOverflow
-	xor a
-.noOverflow
-	ld [wHighScoresArrowAnimationCounter], a
-	ld a, [wHighScoresStage]
-	and a
-	ld c, $77
-	ld a, $95
-	ld hl, HighScoresRightArrowOAMPixelXOffsets
-	jr z, .asm_d26d
-	ld a, $96
-	ld hl, HighScoresLeftArrowOAMPixelXOffsets
-.asm_d26d
-	push af
-	ld a, [wHighScoresArrowAnimationCounter]
-	ld e, a
-	ld d, $0
-	add hl, de
-	ld b, [hl]
-	pop af
-	call LoadOAMData
-	ret
-
-HighScoresRightArrowOAMPixelXOffsets: ; 0xd27b
-; Controls the animation of the right-arrow in the bottom corner of the
-; high scores screen.
-	db $87, $87, $8A, $8A, $8A, $8A, $8A, $8A
-	db $89, $89, $88, $88, $88, $88, $88, $88
-	db $88, $88, $88, $88, $88, $88, $88, $88
-	db $88, $88, $88, $88, $88, $88, $88, $88
-	db $88, $88, $88, $88, $88, $88, $88, $88
-
-HighScoresLeftArrowOAMPixelXOffsets: ; 0xd2a3
-	db $02, $02, $FF, $FF, $FF, $FF, $FF, $FF
-	db $00, $00, $01, $01, $01, $01, $01, $01
-	db $01, $01, $01, $01, $01, $01, $01, $01
-	db $01, $01, $01, $01, $01, $01, $01, $01
-	db $01, $01, $01, $01, $01, $01, $01, $01
-
-Func_d2cb: ; 0xd2cb
-	ld b, $5
-.asm_d2cd
-	push bc
-	push hl
-	dec de
-	dec de
-	dec de
-	dec de
-	ld a, l
-	add $5
-	ld l, a
-	ld b, $3
-.asm_d2d9
-	ld a, [de]
-	call Func_d348
-	dec de
-	dec hl
-	dec b
-	jr nz, .asm_d2d9
-	pop hl
-	push hl
-	ld a, l
-	add $6
-	ld l, a
-	ld bc, $0c01
-.asm_d2eb
-	ld a, [de]
-	swap a
-	and $f
-	call Func_d30e
-	inc hl
-	dec b
-	ld a, [de]
-	and $f
-	call Func_d30e
-	dec de
-	inc hl
-	dec b
-	jr nz, .asm_d2eb
-	xor a
-	call Func_d317
-	pop hl
-	ld bc, hSCY
-	add hl, bc
-	pop bc
-	dec b
-	jr nz, .asm_d2cd
-	ret
-
-Func_d30e: ; 0xd30e
-	jr nz, Func_d317
-	ld a, b
-	dec a
-	jr z, Func_d317
-	ld a, c
-	and a
-	ret nz
-	; fall through
-Func_d317: ; 0xd317
-	push de
-	push af
-	call Func_d336
-	pop af
-	ld c, $0
-	sla a
-	add e
-	ld [hl], a
-	cp $fe
-	jr z, .asm_d328
-	inc a
-.asm_d328
-	push hl
-	push af
-	ld a, l
-	add $20
-	ld l, a
-	jr nc, .asm_d331
-	inc h
-.asm_d331
-	pop af
-	ld [hl], a
-	pop hl
-	pop de
-	ret
-
-Func_d336: ; 0xd336
-	ld e, $6c
-	ld a, b
-	cp $3
-	ret z
-	cp $6
-	ret z
-	cp $9
-	ret z
-	cp $c
-	ret z
-	ld e, $58
-	ret
-
-Func_d348: ; 0xd348
-	ld c, $0
-	sla a
-	add $90
-	ld [hl], a
-	cp $fe
-	jr z, .asm_d354
-	inc a
-.asm_d354
-	push hl
-	push af
-	ld a, l
-	add $20
-	ld l, a
-	jr nc, .asm_d35d
-	inc h
-.asm_d35d
-	pop af
-	ld [hl], a
-	pop hl
-	ret
-
-Func_d361: ; 0xd361
-	ld b, $5
-.asm_d363
-	push bc
-	push hl
-	dec de
-	dec de
-	dec de
-	dec de
-	ld a, l
-	add $5
-	ld l, a
-	ld b, $3
-.asm_d36f
-	ld a, [de]
-	call Func_d3e2
-	dec de
-	dec hl
-	dec b
-	jr nz, .asm_d36f
-	pop hl
-	push hl
-	ld a, l
-	add $6
-	ld l, a
-	ld bc, $0c01
-.asm_d381
-	ld a, [de]
-	swap a
-	and $f
-	call Func_d3a4
-	inc hl
-	dec b
-	ld a, [de]
-	and $f
-	call Func_d3a4
-	dec de
-	inc hl
-	dec b
-	jr nz, .asm_d381
-	xor a
-	call Func_d3ad
-	pop hl
-	ld bc, hSCY
-	add hl, bc
-	pop bc
-	dec b
-	jr nz, .asm_d363
-	ret
-
-Func_d3a4: ; 0xd3a4
-	jr nz, Func_d3ad
-	ld a, b
-	dec a
-	jr z, Func_d3ad
-	ld a, c
-	and a
-	ret nz
-	; fall through
-Func_d3ad: ; 0xd3ad
-	push de
-	push af
-	call Func_d3d0
-	pop af
-	ld c, $0
-	sla a
-	add e
-	call PutTileInVRAM
-	cp $fe
-	jr z, .asm_d3c0
-	inc a
-.asm_d3c0
-	push hl
-	push af
-	ld a, l
-	add $20
-	ld l, a
-	jr nc, .asm_d3c9
-	inc h
-.asm_d3c9
-	pop af
-	call PutTileInVRAM
-	pop hl
-	pop de
-	ret
-
-Func_d3d0: ; 0xd3d0
-	ld e, $6c
-	ld a, b
-	cp $3
-	ret z
-	cp $6
-	ret z
-	cp $9
-	ret z
-	cp $c
-	ret z
-	ld e, $58
-	ret
-
-Func_d3e2: ; 0xd3e2
-	ld c, $0
-	sla a
-	add $90
-	call PutTileInVRAM
-	cp $fe
-	jr z, .asm_d3f0
-	inc a
-.asm_d3f0
-	push hl
-	push af
-	ld a, l
-	add $20
-	ld l, a
-	jr nc, .asm_d3f9
-	inc h
-.asm_d3f9
-	pop af
-	call PutTileInVRAM
-	pop hl
-	ret
-
-CopyInitialHighScores: ; 0xd3ff
-	ld hl, InitialHighScores
-	ld de, wRedHighScore1Points
-	call CopyInitialHighScoresForStage
-	ld hl, InitialHighScores
-	ld de, wBlueHighScore1Points
-
-CopyInitialHighScoresForStage: ; 0xd40e
-; input:  hl = address of high score entries
-;         de = destination address for high score entries to be copied
-	ld b, $5  ; 5 high score entries to copy
-.copyHighScoreEntry
-	ld c, $6  ; high score points are 6 bytes long
-.copyPoints
-	ld a, [hli]
-	ld [de], a
-	inc de
-	dec c
-	jr nz, .copyPoints
-	ld c, $3  ; name is 3 bytes
-.copyName
-	ld a, [hli]
-	sub $37
-	ld [de], a
-	inc de
-	dec c
-	jr nz, .copyName
-	ld c, $4
-.asm_d424  ; TODO: what are these 4 bytes used for?
-	ld a, [hli]
-	ld [de], a
-	inc de
-	dec c
-	jr nz, .asm_d424
-	dec b
-	jr nz, .copyHighScoreEntry
-	ret
-
-INCLUDE "data/initial_high_scores.asm" ; 0xd42e
-
-Func_d46f: ; 0xd46f
-	ld a, [wda81]
-	ld d, a
-	sla a
-	add d
-	ld d, a
-	ld e, $0
-	srl d
-	rr e
-	srl d
-	rr e
-	srl d
-	rr e
-	ld a, [wda80]
-	add e
-	ld e, a
-	hlCoord 3, 2, vBGMap
-	ld a, [wHighScoresStage]
-	and a
-	jr z, .asm_d496
-	hlCoord 3, 2, vBGWin
-.asm_d496
-	add hl, de
-	push hl
-	ld a, [wda81]
-	ld e, a
-	sla e
-	sla e
-	add e
-	sla e
-	add e
-	ld e, a
-	ld a, [wda80]
-	add e
-	ld e, a
-	ld d, $0
-	ld hl, wRedHighScore1Name
-	ld a, [wHighScoresStage]
-	and a
-	jr z, .asm_d4b8
-	ld hl, wBlueHighScore1Name
-.asm_d4b8
-	add hl, de
-	ld a, [hl]
-	sla a
-	add $90
-	pop hl
-	call PutTileInVRAM
-	ld de, $0020
-	add hl, de
-	cp $fe
-	jr z, .asm_d4cb
-	inc a
-.asm_d4cb
-	call PutTileInVRAM
-	ret
-
-Func_d4cf: ; 0xd4cf
-	ld a, [hNewlyPressedButtons]
-	ld b, a
-	ld a, [wHighScoresStage]
-	bit 4, b
-	jr z, .asm_d4e3
-	and a
-	ret nz
-	lb de, $00, $03
-	call PlaySoundEffect
-	jr .asm_d4f0
-
-.asm_d4e3
-	bit 5, b
-	ret z
-	and a
-	ret z
-	lb de, $00, $03
-	call PlaySoundEffect
-	jr .asm_d537
-
-.asm_d4f0
-	call ClearOAMBuffer
-	call Func_d57b
-	ld a, $a5
-	ld [hWX], a
-	xor a
-	ld [hWY], a
-	ld a, $2
-	ld [hSCX], a
-	ld hl, hLCDC
-	set 5, [hl]
-	ld b, $27
-.asm_d508
-	push bc
-	ld a, $27
-	sub b
-	bit 0, b
-	call nz, TransitionHighScoresPalettes
-	ld hl, hWX
-	dec [hl]
-	dec [hl]
-	dec [hl]
-	dec [hl]
-	ld hl, hSCX
-	inc [hl]
-	inc [hl]
-	inc [hl]
-	inc [hl]
-	rst AdvanceFrame
-	pop bc
-	dec b
-	jr nz, .asm_d508
-	xor a
-	ld [hSCX], a
-	ld hl, hLCDC
-	res 5, [hl]
-	set 3, [hl]
-	ld a, $1
-	ld [wHighScoresStage], a
-	call Func_d5d0
-	ret
-
-.asm_d537
-	call ClearOAMBuffer
-	call Func_d57b
-	ld a, $7
-	ld [hWX], a
-	xor a
-	ld [hWY], a
-	ld a, $a0
-	ld [hSCX], a
-	ld hl, hLCDC
-	set 5, [hl]
-	res 3, [hl]
-	ld b, $27
-.asm_d551
-	push bc
-	ld a, b
-	bit 0, b
-	call nz, TransitionHighScoresPalettes
-	ld hl, hWX
-	inc [hl]
-	inc [hl]
-	inc [hl]
-	inc [hl]
-	ld hl, hSCX
-	dec [hl]
-	dec [hl]
-	dec [hl]
-	dec [hl]
-	rst AdvanceFrame
-	pop bc
-	dec b
-	jr nz, .asm_d551
-	xor a
-	ld [hSCX], a
-	ld hl, hLCDC
-	res 5, [hl]
-	xor a
-	ld [wHighScoresStage], a
-	call Func_d5d0
-	ret
-
-Func_d57b: ; 0xd57b
-	ld a, $f0
-	ld [hSCY], a
-	xor a
-	ld [hNextFrameHBlankSCX], a
-	ld a, $10
-	ld [hNextFrameHBlankSCY], a
-	rst AdvanceFrame
-	ld a, BANK(HighScoresTilemap)
-	ld hl, HighScoresTilemap
-	deCoord 0, 0, vBGMap
-	ld bc, $0040
-	call LoadVRAMData
-	ld a, BANK(HighScoresTilemap)
-	ld hl, HighScoresTilemap + $200
-	deCoord 0, 16, vBGMap
-	ld bc, $0040
-	call LoadVRAMData
-	ld a, BANK(HighScoresTilemap2)
-	ld hl, HighScoresTilemap2
-	deCoord 0, 0, vBGWin
-	ld bc, $0040
-	call LoadVRAMData
-	ld a, BANK(HighScoresTilemap2)
-	ld hl, HighScoresTilemap2 + $200
-	deCoord 0, 16, vBGWin
-	ld bc, $0040
-	call LoadVRAMData
-	ld b, $10
-.asm_d5c1
-	push bc
-	ld hl, hSCY
-	inc [hl]
-	ld hl, hNextFrameHBlankSCY
-	dec [hl]
-	rst AdvanceFrame
-	pop bc
-	dec b
-	jr nz, .asm_d5c1
-	ret
-
-Func_d5d0: ; 0xd5d0
-	ld b, $10
-.asm_d5d2
-	push bc
-	ld hl, hSCY
-	dec [hl]
-	ld hl, hNextFrameHBlankSCY
-	inc [hl]
-	rst AdvanceFrame
-	pop bc
-	dec b
-	jr nz, .asm_d5d2
-	ld a, BANK(HighScoresTilemap)
-	ld hl, HighScoresTilemap + $3c0
-	deCoord 0, 0, vBGMap
-	ld bc, $0040
-	call LoadVRAMData
-	ld a, BANK(HighScoresTilemap)
-	ld hl, HighScoresTilemap + $280
-	deCoord 0, 16, vBGMap
-	ld bc, $0040
-	call LoadVRAMData
-	ld a, BANK(HighScoresTilemap2)
-	ld hl, HighScoresTilemap2 + $3c0
-	deCoord 0, 0, vBGWin
-	ld bc, $0040
-	call LoadVRAMData
-	ld a, BANK(HighScoresTilemap2)
-	ld hl, HighScoresTilemap2 + $280
-	deCoord 0, 16, vBGWin
-	ld bc, $0040
-	call LoadVRAMData
-	ld bc, $0009
-	call Func_d68a
-	xor a
-	ld [hSCY], a
-	ld [hNextFrameHBlankSCX], a
-	ld [hNextFrameHBlankSCY], a
-	ret
-
-TransitionHighScoresPalettes: ; 0xd626
-; When switching between the Red and Blue field high scores, the palettes
-; of the rows smoothly transition between red and blue.
-	ld c, a
-	ld a, [hGameBoyColorFlag]
-	and a
-	ret z
-	ld a, c
-	srl a
-	sub $2
-	cp $10
-	ret nc
-	ld c, a
-	ld b, $0
-	sla c
-	add c
-	ld c, a
-	ld hl, HighScoresPalettesTransition
-	add hl, bc
-	ld a, [hli]
-	ld c, a
-	ld a, [hli]
-	ld b, a
-	ld a, [hl]
-	ld h, b
-	ld l, c
-	ld de, $0008
-	ld bc, $0038
-	push af
-	call Func_7dc
-	pop af
-	ld de, $0040
-	ld bc, $0008
-	call Func_7dc
-	ret
-
-HighScoresPalettesTransition: ; 0xd65a
-; When switching between the Red and Blue field high scores, the palette
-; of the rows fades between red and blue. This table defines the transition
-; of those palettes.
-	dwb HighScoresTransitionPalettes1,  Bank(HighScoresTransitionPalettes1)
-	dwb HighScoresTransitionPalettes2,  Bank(HighScoresTransitionPalettes2)
-	dwb HighScoresTransitionPalettes3,  Bank(HighScoresTransitionPalettes3)
-	dwb HighScoresTransitionPalettes4,  Bank(HighScoresTransitionPalettes4)
-	dwb HighScoresTransitionPalettes5,  Bank(HighScoresTransitionPalettes5)
-	dwb HighScoresTransitionPalettes6,  Bank(HighScoresTransitionPalettes6)
-	dwb HighScoresTransitionPalettes7,  Bank(HighScoresTransitionPalettes7)
-	dwb HighScoresTransitionPalettes8,  Bank(HighScoresTransitionPalettes8)
-	dwb HighScoresTransitionPalettes9,  Bank(HighScoresTransitionPalettes9)
-	dwb HighScoresTransitionPalettes10, Bank(HighScoresTransitionPalettes10)
-	dwb HighScoresTransitionPalettes11, Bank(HighScoresTransitionPalettes11)
-	dwb HighScoresTransitionPalettes12, Bank(HighScoresTransitionPalettes12)
-	dwb HighScoresTransitionPalettes13, Bank(HighScoresTransitionPalettes13)
-	dwb HighScoresTransitionPalettes14, Bank(HighScoresTransitionPalettes14)
-	dwb HighScoresTransitionPalettes15, Bank(HighScoresTransitionPalettes15)
-	dwb HighScoresTransitionPalettes16, Bank(HighScoresTransitionPalettes16)
-
-Func_d68a: ; 0xd68a
-	push bc
-	ld hl, wPokedexFlags
-	ld bc, (NUM_POKEMON << 8)
-.asm_d691
-	bit 1, [hl]
-	jr z, .asm_d696
-	inc c
-.asm_d696
-	inc hl
-	dec b
-	jr nz, .asm_d691
-	ld a, c
-	pop bc
-	cp NUM_POKEMON
-	ret nz
-	ld hl, vBGMap
-	add hl, bc
-	call Func_d6aa
-	ld hl, vBGWin
-	add hl, bc
-	; fall through
-Func_d6aa: ; 0xd6aa
-	ld a, $56
-	call PutTileInVRAM
-	inc hl
-	ld a, $57
-	call PutTileInVRAM
-	ret
-
-Func_d6b6: ; 0xd6b6
-	ld hl, wPokedexFlags
-	ld bc, (NUM_POKEMON << 8)
-.asm_d6bc
-	bit 1, [hl]
-	jr z, .asm_d6c1
-	inc c
-.asm_d6c1
-	inc hl
-	dec b
-	jr nz, .asm_d6bc
-	ld a, c
-	cp NUM_POKEMON
-	ret nz
-	ld hl, wc289
-	ld a, $56
-	ld [hli], a
-	ld a, $57
-	ld [hli], a
-	ret
-
-HandleFieldSelectScreen: ; 0xd6d3
-	ld a, [wScreenState]
-	rst JumpTable  ; calls JumpToFuncInTable
-FieldSelectScreenFunctions: ; 0xd6d7
-	dw LoadFieldSelectScreen
-	dw ChooseFieldToPlay
-	dw ExitFieldSelectScreen
-
-LoadFieldSelectScreen: ; 0xd6dd
-	ld a, $43
-	ld [hLCDC], a
-	ld a, $e4
-	ld [wBGP], a
-	ld a, $d2
-	ld [wOBP0], a
-	ld [wOBP1], a
-	xor a
-	ld [hSCX], a
-	ld [hSCY], a
-	ld hl, FieldSelectGfxPointers
-	ld a, [hGameBoyColorFlag]
-	call LoadVideoData
-	call ClearOAMBuffer
-	ld a, $8
-	ld [wFieldSelectBlinkingBorderFrame], a
-	call Func_b66
-	ld a, $12
-	call SetSongBank
-	ld de, $0003
-	call PlaySong
-	call Func_588
-	call Func_bbe
-	ld hl, wScreenState
-	inc [hl]
-	ret
-
-FieldSelectGfxPointers: ; 0xd71c
-	dw FieldSelectGfx_GameBoy
-	dw FieldSelectGfx_GameBoyColor
-
-FieldSelectGfx_GameBoy: ; 0xd720
-	VIDEO_DATA_TILES   FieldSelectScreenGfx, vTilesSH - $100, $d00
-	VIDEO_DATA_TILEMAP FieldSelectTilemap, vBGMap, $240
-	db $FF, $FF ; terminators
-
-FieldSelectGfx_GameBoyColor: ; 0xd730
-	VIDEO_DATA_TILES    FieldSelectScreenGfx, vTilesSH - $100, $d00
-	VIDEO_DATA_TILEMAP  FieldSelectTilemap, vBGMap, $240
-	VIDEO_DATA_BGATTR   FieldSelectBGAttributes, vBGMap, $240
-	VIDEO_DATA_PALETTES FieldSelectScreenPalettes, $48
-	db $FF, $FF ; terminators
-
-ChooseFieldToPlay: ; 0xd74e
-	call MoveFieldSelectCursor
-	ld hl, FieldSelectBorderAnimationData
-	call AnimateBlinkingFieldSelectBorder
-	ld a, [hNewlyPressedButtons]
-	and (A_BUTTON | B_BUTTON)
-	ret z
-	ld [wd8f6], a
-	ld a, $18  ; number of frames to blink the border after selecting the Field
-	ld [wFieldSelectBlinkingBorderTimer], a
-	ld a, $1
-	ld [wFieldSelectBlinkingBorderFrame], a
-	lb de, $00, $01
-	call PlaySoundEffect
-	ld hl, wScreenState
-	inc [hl]
-	ret
-
-ExitFieldSelectScreen: ; 0xd774
-	ld a, [wd8f6]  ; this holds the button that was pressed (A or B)
-	bit BIT_A_BUTTON, a
-	jr z, .didntPressA
-	ld hl, FieldSelectConfirmationAnimationData
-	call AnimateBlinkingFieldSelectBorder
-	ld a, [wFieldSelectBlinkingBorderTimer]
-	dec a
-	ld [wFieldSelectBlinkingBorderTimer], a
-	ret nz
-.didntPressA
-	ld a, [hJoypadState]
-	push af
-	call Func_cb5
-	call Func_576
-	ld a, [wd8f6]
-	bit BIT_A_BUTTON, a
-	jr z, .pressedB
-	ld a, [wSelectedFieldIndex]
-	ld c, a
-	ld b, $0
-	ld hl, StartingStages
-	add hl, bc
-	ld a, [hl]
-	ld [wCurrentStage], a
-	pop af
-	xor a
-	ld [wd7c2], a
-	ld hl, wPartyMons
-	ld de, sSaveGame
-	ld bc, $04c3
-	call SaveData
-	xor a
-	ld [wd7c1], a
-	; Start a round of Pinball! Yayy
-	ld a, SCREEN_PINBALL_GAME
-	ld [wCurrentScreen], a
-	xor a
-	ld [wScreenState], a
-	ret
-
-.pressedB
-	pop af
-	ld a, SCREEN_TITLESCREEN
-	ld [wCurrentScreen], a
-	xor a
-	ld [wScreenState], a
-	ret
-
-StartingStages: ; 0xd7d1
-; wSelectedFieldIndex is used to index this array
-	db STAGE_RED_FIELD_BOTTOM, STAGE_BLUE_FIELD_BOTTOM
-
-MoveFieldSelectCursor: ; 0xd7d3
-; When the player presses Right or Left, the stage is
-; illuminated with a blinking border.  This function keeps tracks
-; of which field is currently selected.
-	ld a, [hPressedButtons]
-	ld b, a
-	ld a, [wSelectedFieldIndex]
-	bit BIT_D_LEFT, b
-	jr z, .didntPressLeft
-	and a
-	ret z  ; if cursor is already hovering over Red stage, don't do anything
-	dec a  ; move cursor over Red stage
-	ld [wSelectedFieldIndex], a
-	lb de, $00, $3c
-	call PlaySoundEffect
-	ret
-
-.didntPressLeft
-	bit BIT_D_RIGHT, b
-	ret z
-	cp $1
-	ret z  ; if cursor is already hovering over Blue stage, don't do anything
-	inc a  ; move cursor over Red stage
-	ld [wSelectedFieldIndex], a
-	lb de, $00, $3d
-	call PlaySoundEffect
-	ret
-
-AnimateBlinkingFieldSelectBorder: ; 0xd7fb
-; This makes the border of the currently-selected Field blink in the Field Select screen.
-	push hl
-	ld a, [wSelectedFieldIndex]
-	sla a
-	ld c, a
-	ld b, $0
-	ld hl, FieldSelectBorderOAMPixelOffsetData
-	add hl, bc
-	ld a, [hli]
-	ld c, a
-	ld a, [hli]
-	ld b, a
-	ld a, [wd915]
-	sla a
-	ld e, a
-	ld d, $0
-	pop hl
-	push hl
-	add hl, de
-	ld a, [hl]
-	call LoadOAMData
-	ld a, [wFieldSelectBlinkingBorderFrame]
-	dec a
-	jr nz, .asm_d838
-	inc hl
-	inc hl
-	ld a, [hl]
-	and a
-	jr z, .asm_d82b
-	ld a, [wd915]
-	inc a
-.asm_d82b
-	ld [wd915], a
-	sla a
-	ld c, a
-	ld b, $0
-	pop hl
-	push hl
-	inc hl
-	add hl, bc
-	ld a, [hl]
-.asm_d838
-	ld [wFieldSelectBlinkingBorderFrame], a
-	pop hl
-	ret
-
-FieldSelectBorderAnimationData:
-; [OAM id][duration]
-	db $9e, $08
-	db $9f, $08
-	db $9e, $08
-	db $a0, $08
-	db $00  ; terminator
-
-FieldSelectConfirmationAnimationData:
-; [OAM id][duration]
-	db $9F, $03
-	db $A0, $03
-	db $9F, $03
-	db $A0, $03
-	db $00  ; terminator
-
-FieldSelectBorderOAMPixelOffsetData:
-	dw $2A42
-	dw $7242
+INCLUDE "engine/options_screen.asm"
+INCLUDE "engine/high_scores_screen.asm"
+INCLUDE "engine/field_select_screen.asm"
 
 HandlePinballGame: ; 0xd853
 	ld a, [wScreenState]