diff --git a/engine/battle/core.asm b/engine/battle/core.asm
index 81300691e5d..b8cd5408336 100644
--- a/engine/battle/core.asm
+++ b/engine/battle/core.asm
@@ -651,8 +651,7 @@ ParsePlayerAction:
 	jr nz, .locked_in
 	xor a
 	ld [wMoveSelectionMenuType], a
-	assert POUND == 1
-	inc a
+	inc a ; POUND
 	ld [wFXAnimID], a
 	call MoveSelectionScreen
 	push af
@@ -3856,8 +3855,7 @@ TryToRunAwayFromBattle:
 	cp BATTLEACTION_FORFEIT
 	ld a, DRAW
 	jr z, .fled
-	assert DRAW - 1 == LOSE
-	dec a
+	dec a ; LOSE
 .fled
 	ld b, a
 	ld a, [wBattleResult]
diff --git a/engine/battle_anims/functions.asm b/engine/battle_anims/functions.asm
index 0fcaa46436e..c82134c72f6 100644
--- a/engine/battle_anims/functions.asm
+++ b/engine/battle_anims/functions.asm
@@ -1222,9 +1222,7 @@ BattleAnimFunc_Sing:
 	ld hl, BATTLEANIMSTRUCT_PARAM
 	add hl, bc
 	ld a, BATTLE_ANIM_FRAMESET_MUSIC_NOTE_1
-	assert BATTLE_ANIM_FRAMESET_MUSIC_NOTE_1 + 1 == BATTLE_ANIM_FRAMESET_MUSIC_NOTE_2 \
-		&& BATTLE_ANIM_FRAMESET_MUSIC_NOTE_2 + 1 == BATTLE_ANIM_FRAMESET_MUSIC_NOTE_3
-	add [hl]
+	add [hl] ; BATTLE_ANIM_FRAMESET_MUSIC_NOTE_2 BATTLE_ANIM_FRAMESET_MUSIC_NOTE_3
 	call ReinitBattleAnimFrameset
 
 .one
@@ -1490,15 +1488,15 @@ BattleAnimFunc_Clamp_Encore:
 	ld hl, BATTLEANIMSTRUCT_VAR2
 	add hl, bc
 	ld a, [hl]
-	assert BATTLE_ANIM_FRAMESET_CLAMP + 1 ==  BATTLE_ANIM_FRAMESET_CLAMP_FLIPPED
-	assert BATTLE_ANIM_FRAMESET_ENCORE_HAND + 1 == BATTLE_ANIM_FRAMESET_ENCORE_HAND_FLIPPED
-	inc a
+	inc a ; BATTLE_ANIM_FRAMESET_3B (Clamp Flipped)
+	      ; BATTLE_ANIM_FRAMESET_A1 (Hands Flipped)
 	jr .reinit
 
 .load_no_inc
 	ld hl, BATTLEANIMSTRUCT_VAR2
 	add hl, bc
-	ld a, [hl] ; BATTLE_ANIM_FRAMESET_CLAMP or BATTLE_ANIM_FRAMESET_ENCORE_HAND
+	ld a, [hl] ; BATTLE_ANIM_FRAMESET_3A (Clamp)
+	           ; BATTLE_ANIM_FRAMESET_A0 (Hands)
 .reinit
 	call ReinitBattleAnimFrameset
 	ld hl, BATTLEANIMSTRUCT_VAR1
@@ -1824,10 +1822,8 @@ BattleAnimFunc_Wrap:
 	ld hl, BATTLEANIMSTRUCT_FRAMESET_ID
 	add hl, bc
 	ld a, [hl]
-	assert BATTLE_ANIM_FRAMESET_BIND_1 + 1 == BATTLE_ANIM_FRAMESET_BIND_2 \ 
-		&& BATTLE_ANIM_FRAMESET_BIND_2 + 1 == BATTLE_ANIM_FRAMESET_BIND_3 \
-		&& BATTLE_ANIM_FRAMESET_BIND_3 + 1 == BATTLE_ANIM_FRAMESET_BIND_4
-	inc a
+	inc a ; BATTLE_ANIM_FRAMESET_BIND_2
+	      ; BATTLE_ANIM_FRAMESET_BIND_4
 	call ReinitBattleAnimFrameset
 	call BattleAnim_IncAnonJumptableIndex
 	ld hl, BATTLEANIMSTRUCT_VAR1 ; Unused?
@@ -2326,9 +2322,7 @@ BattleAnimFunc_Sound:
 	ld hl, BATTLEANIMSTRUCT_PARAM
 	add hl, bc
 	ld a, BATTLE_ANIM_FRAMESET_SOUND_1
-	assert BATTLE_ANIM_FRAMESET_SOUND_1 + 1 == BATTLE_ANIM_FRAMESET_SOUND_2 \
-		&& BATTLE_ANIM_FRAMESET_SOUND_2 + 1 == BATTLE_ANIM_FRAMESET_SOUND_3
-	add [hl]
+	add [hl] ; BATTLE_ANIM_FRAMESET_SOUND_2 BATTLE_ANIM_FRAMESET_SOUND_3
 	call ReinitBattleAnimFrameset
 	ret
 
@@ -2404,8 +2398,7 @@ BattleAnimFunc_ConfuseRay:
 	and $80
 	rlca
 	ld [hl], a
-	assert BATTLE_ANIM_FRAMESET_CONFUSE_RAY_1 + 1 == BATTLE_ANIM_FRAMESET_CONFUSE_RAY_2
-	add BATTLE_ANIM_FRAMESET_CONFUSE_RAY_1
+	add BATTLE_ANIM_FRAMESET_CONFUSE_RAY_1 ; BATTLE_ANIM_FRAMESET_CONFUSE_RAY_2
 	call ReinitBattleAnimFrameset
 	ret
 
@@ -2475,9 +2468,8 @@ BattleAnimFunc_Dizzy:
 	rlca
 	ld hl, BATTLEANIMSTRUCT_VAR1
 	add hl, bc
-	assert BATTLE_ANIM_FRAMESET_CHICK_1 + 1 ==  BATTLE_ANIM_FRAMESET_CHICK_2
-	assert BATTLE_ANIM_FRAMESET_IMP + 1 == BATTLE_ANIM_FRAMESET_IMP_FLIPPED
-	add [hl]
+	add [hl] ; BATTLE_ANIM_FRAMESET_61 BATTLE_ANIM_FRAMESET_62
+	         ; BATTLE_ANIM_FRAMESET_9C BATTLE_ANIM_FRAMESET_9D
 	call ReinitBattleAnimFrameset
 	ld hl, BATTLEANIMSTRUCT_PARAM
 	add hl, bc
@@ -2514,15 +2506,15 @@ BattleAnimFunc_Dizzy:
 	ld hl, BATTLEANIMSTRUCT_VAR1
 	add hl, bc
 	ld a, [hl]
-	assert BATTLE_ANIM_FRAMESET_CHICK_1 + 1 ==  BATTLE_ANIM_FRAMESET_CHICK_2
-	assert BATTLE_ANIM_FRAMESET_IMP + 1 == BATTLE_ANIM_FRAMESET_IMP_FLIPPED
-	inc a
+	inc a ; BATTLE_ANIM_FRAMESET_62
+	      ; BATTLE_ANIM_FRAMESET_9D
 	jr .got_frameset
 
 .not_flipped
 	ld hl, BATTLEANIMSTRUCT_VAR1
 	add hl, bc
-	ld a, [hl] ; BATTLE_ANIM_FRAMESET_CHICK_1 or BATTLE_ANIM_FRAMESET_IMP
+	ld a, [hl] ; BATTLE_ANIM_FRAMESET_61
+	           ; BATTLE_ANIM_FRAMESET_9C
 .got_frameset
 	call ReinitBattleAnimFrameset
 	ret
@@ -2542,9 +2534,7 @@ BattleAnimFunc_Amnesia:
 	ld hl, BATTLEANIMSTRUCT_PARAM
 	add hl, bc
 	ld a, [hl]
-	assert BATTLE_ANIM_FRAMESET_AMNESIA_1 + 1 == BATTLE_ANIM_FRAMESET_AMNESIA_2 \
-		&& BATTLE_ANIM_FRAMESET_AMNESIA_2 + 1 == BATTLE_ANIM_FRAMESET_AMNESIA_3
-	add BATTLE_ANIM_FRAMESET_AMNESIA_1
+	add BATTLE_ANIM_FRAMESET_AMNESIA_1 ; BATTLE_ANIM_FRAMESET_AMNESIA_2 BATTLE_ANIM_FRAMESET_AMNESIA_3
 	call ReinitBattleAnimFrameset
 	ld hl, BATTLEANIMSTRUCT_PARAM
 	add hl, bc
@@ -2632,9 +2622,7 @@ BattleAnimFunc_String:
 	add hl, bc
 	set OAM_Y_FLIP, [hl]
 .not_param_zero
-	assert BATTLE_ANIM_FRAMESET_STRING_SHOT_1 + 1 == BATTLE_ANIM_FRAMESET_STRING_SHOT_2 \
-		&& BATTLE_ANIM_FRAMESET_STRING_SHOT_2 + 1 == BATTLE_ANIM_FRAMESET_STRING_SHOT_3
-	add BATTLE_ANIM_FRAMESET_STRING_SHOT_1
+	add BATTLE_ANIM_FRAMESET_STRING_SHOT_1 ; BATTLE_ANIM_FRAMESET_STRING_SHOT_2 BATTLE_ANIM_FRAMESET_STRING_SHOT_3
 	call ReinitBattleAnimFrameset
 .one
 	ret
@@ -3531,9 +3519,7 @@ BattleAnimFunc_SpeedLine:
 	add hl, bc
 	ld a, [hl]
 	and $7f
-	assert BATTLE_ANIM_FRAMESET_SPEED_LINE_1 + 1 == BATTLE_ANIM_FRAMESET_SPEED_LINE_2 \
-		&& BATTLE_ANIM_FRAMESET_SPEED_LINE_2 + 1 == BATTLE_ANIM_FRAMESET_SPEED_LINE_3
-	add BATTLE_ANIM_FRAMESET_SPEED_LINE_1
+	add BATTLE_ANIM_FRAMESET_SPEED_LINE_1 ; BATTLE_ANIM_FRAMESET_SPEED_LINE_2 BATTLE_ANIM_FRAMESET_SPEED_LINE_3
 	call ReinitBattleAnimFrameset
 .one
 	ld hl, BATTLEANIMSTRUCT_PARAM
@@ -3705,13 +3691,8 @@ BattleAnimFunc_LockOnMindReader:
 	and $f
 	ld hl, BATTLEANIMSTRUCT_FRAMESET_ID
 	add hl, bc
-	assert BATTLE_ANIM_FRAMESET_LOCK_ON_1 + 1 == BATTLE_ANIM_FRAMESET_LOCK_ON_2 \
-		&& BATTLE_ANIM_FRAMESET_LOCK_ON_2 + 1 == BATTLE_ANIM_FRAMESET_LOCK_ON_3 \
-		&& BATTLE_ANIM_FRAMESET_LOCK_ON_3 + 1 == BATTLE_ANIM_FRAMESET_LOCK_ON_4
-	assert BATTLE_ANIM_FRAMESET_MIND_READER_1 + 1 == BATTLE_ANIM_FRAMESET_MIND_READER_2 \
-		&& BATTLE_ANIM_FRAMESET_MIND_READER_2 + 1 == BATTLE_ANIM_FRAMESET_MIND_READER_3 \
-		&& BATTLE_ANIM_FRAMESET_MIND_READER_3 + 1 == BATTLE_ANIM_FRAMESET_MIND_READER_4
-	add [hl]
+	add [hl] ; BATTLE_ANIM_FRAMESET_8F BATTLE_ANIM_FRAMESET_90 BATTLE_ANIM_FRAMESET_91
+	         ; BATTLE_ANIM_FRAMESET_93 BATTLE_ANIM_FRAMESET_94 BATTLE_ANIM_FRAMESET_95
 	call ReinitBattleAnimFrameset
 	ld hl, BATTLEANIMSTRUCT_PARAM
 	add hl, bc
@@ -3771,9 +3752,7 @@ BattleAnimFunc_HealBellNotes:
 	ld hl, BATTLEANIMSTRUCT_PARAM
 	add hl, bc
 	ld a, BATTLE_ANIM_FRAMESET_MUSIC_NOTE_1
-	assert BATTLE_ANIM_FRAMESET_MUSIC_NOTE_1 + 1 == BATTLE_ANIM_FRAMESET_MUSIC_NOTE_2 \
-		&& BATTLE_ANIM_FRAMESET_MUSIC_NOTE_2 + 1 == BATTLE_ANIM_FRAMESET_MUSIC_NOTE_3
-	add [hl]
+	add [hl] ; BATTLE_ANIM_FRAMESET_MUSIC_NOTE_2 BATTLE_ANIM_FRAMESET_MUSIC_NOTE_3
 	call ReinitBattleAnimFrameset
 .one
 	ld hl, BATTLEANIMSTRUCT_YOFFSET
diff --git a/engine/items/pack.asm b/engine/items/pack.asm
index c9c40c18c91..8f41ff0f61c 100644
--- a/engine/items/pack.asm
+++ b/engine/items/pack.asm
@@ -517,14 +517,11 @@ TossMenu:
 
 ResetPocketCursorPositions: ; unreferenced
 	ld a, [wCurPocket]
-	assert ITEM_POCKET == 0
-	and a
+	and a ; ITEM_POCKET
 	jr z, .items
-	assert BALL_POCKET == 1
-	dec a
+	dec a ; BALL_POCKET
 	jr z, .balls
-	assert KEY_ITEM_POCKET == 2
-	dec a
+	dec a ; KEY_ITEM_POCKET
 	jr z, .key
 	ret
 
diff --git a/engine/link/link.asm b/engine/link/link.asm
index 65017afa170..42b9ce09414 100644
--- a/engine/link/link.asm
+++ b/engine/link/link.asm
@@ -2212,8 +2212,7 @@ endc
 	call DelayFrames
 	xor a
 	ldh [hVBlank], a
-	assert LINK_TIMECAPSULE == 1
-	inc a
+	inc a ; LINK_TIMECAPSULE
 	ld [wLinkMode], a
 	ret
 
@@ -2286,7 +2285,7 @@ SetBitsForTimeCapsuleRequest:
 	ldh [rSC], a
 	ld a, (1 << rSC_ON) | (0 << rSC_CLOCK)
 	ldh [rSC], a
-	xor a ; LINK_NULL
+	xor a ; LINK_TIMECAPSULE - 1
 	ld [wPlayerLinkAction], a
 	ld [wChosenCableClubRoom], a
 	ret
diff --git a/engine/overworld/map_object_action.asm b/engine/overworld/map_object_action.asm
index f88ed48421d..720571b6737 100644
--- a/engine/overworld/map_object_action.asm
+++ b/engine/overworld/map_object_action.asm
@@ -271,8 +271,8 @@ SetFacingBoulderDust:
 	and 2
 	ld a, FACING_BOULDER_DUST_1
 	jr z, .ok
-	assert FACING_BOULDER_DUST_1 + 1 == FACING_BOULDER_DUST_2
 	inc a
+	assert FACING_BOULDER_DUST_1 + 1 == FACING_BOULDER_DUST_2
 .ok
 	ld [hl], a
 	ret
@@ -287,8 +287,8 @@ SetFacingGrassShake:
 	and 4
 	ld a, FACING_GRASS_1
 	jr z, .ok
-	assert FACING_GRASS_1 + 1 == FACING_GRASS_2
-	inc a
+	inc a ; FACING_GRASS_2
+
 .ok
 	ld [hl], a
 	ret
diff --git a/engine/pokegear/pokegear.asm b/engine/pokegear/pokegear.asm
index 2729de2b573..57ce6e25b24 100644
--- a/engine/pokegear/pokegear.asm
+++ b/engine/pokegear/pokegear.asm
@@ -2358,6 +2358,7 @@ Pokedex_GetArea:
 	call TownMapPals
 	hlbgcoord 0, 0, vBGMap1
 	call TownMapBGUpdate
+	call FillJohtoMap
 	call .PlaceString_MonsNest
 	call TownMapPals
 	hlbgcoord 0, 0
@@ -2366,6 +2367,8 @@ Pokedex_GetArea:
 	call GetSGBLayout
 	call SetDefaultBGPAndOBP
 	xor a
+	ldh [hBGMapMode], a
+	xor a ; JOHTO_REGION
 	call .GetAndPlaceNest
 .loop
 	call JoyTextDelay
diff --git a/engine/pokegear/pokegear.asm.orig b/engine/pokegear/pokegear.asm.orig
new file mode 100644
index 00000000000..339d86c3015
--- /dev/null
+++ b/engine/pokegear/pokegear.asm.orig
@@ -0,0 +1,2934 @@
+; Pokégear cards
+	const_def
+	const POKEGEARCARD_CLOCK ; 0
+	const POKEGEARCARD_MAP   ; 1
+	const POKEGEARCARD_PAGER ; 2
+	const POKEGEARCARD_RADIO ; 3
+DEF NUM_POKEGEAR_CARDS EQU const_value
+
+DEF PAGER_DISPLAY_HEIGHT EQU 4
+
+; PokegearJumptable.Jumptable indexes
+	const_def
+	const POKEGEARSTATE_CLOCKINIT       ; 0
+	const POKEGEARSTATE_CLOCKJOYPAD     ; 1
+	const POKEGEARSTATE_MAPCHECKREGION  ; 2
+	const POKEGEARSTATE_JOHTOMAPINIT    ; 3
+	const POKEGEARSTATE_JOHTOMAPJOYPAD  ; 4
+	const POKEGEARSTATE_KANTOMAPINIT    ; 5
+	const POKEGEARSTATE_KANTOMAPJOYPAD  ; 6
+	const POKEGEARSTATE_PAGERINIT       ; 7
+	const POKEGEARSTATE_PAGERJOYPAD     ; 8
+	const POKEGEARSTATE_MAKEPAGERCALL   ; 9
+	const POKEGEARSTATE_FINISHPAGERCALL ; a
+	const POKEGEARSTATE_RADIOINIT       ; b
+	const POKEGEARSTATE_RADIOJOYPAD     ; c
+
+PokeGear:
+	ld hl, wOptions
+	ld a, [hl]
+	push af
+	set NO_TEXT_SCROLL, [hl]
+	ldh a, [hInMenu]
+	push af
+	ld a, $1
+	ldh [hInMenu], a
+	ld a, [wStateFlags]
+	push af
+	xor a
+	ld [wStateFlags], a
+	call .InitTilemap
+	call DelayFrame
+.loop
+	call UpdateTime
+	call JoyTextDelay
+	ld a, [wJumptableIndex]
+	bit 7, a
+	jr nz, .done
+	call PokegearJumptable
+	farcall PlaySpriteAnimations
+	call DelayFrame
+	jr .loop
+
+.done
+	ld de, SFX_PRESS_AB_1
+	call PlaySFX
+	call WaitSFX
+	pop af
+	ld [wStateFlags], a
+	pop af
+	ldh [hInMenu], a
+	pop af
+	ld [wOptions], a
+	call ClearBGPalettes
+	xor a ; LOW(vBGMap0)
+	ldh [hBGMapAddress], a
+	ld a, HIGH(vBGMap0)
+	ldh [hBGMapAddress + 1], a
+	ld a, SCREEN_HEIGHT_PX
+	ldh [hWY], a
+	call ExitPokegearRadio_HandleMusic
+	ret
+
+.InitTilemap:
+	call ClearBGPalettes
+	call ClearTilemap
+	call ClearSprites
+	call DisableLCD
+	xor a
+	ldh [hSCY], a
+	ldh [hSCX], a
+	ld a, $7
+	ldh [hWX], a
+	call Pokegear_LoadGFX
+	farcall ClearSpriteAnims
+	call InitPokegearModeIndicatorArrow
+	ld a, 8
+	call SkipMusic
+	ld a, LCDC_DEFAULT
+	ldh [rLCDC], a
+	call TownMap_InitCursorAndPlayerIconPositions
+	xor a
+	ld [wJumptableIndex], a ; POKEGEARSTATE_CLOCKINIT
+	ld [wPokegearCard], a ; POKEGEARCARD_CLOCK
+	ld [wPokegearMapRegion], a ; JOHTO_REGION
+	ld [wUnusedPokegearByte], a
+	ld [wPokegearPagerScrollPosition], a
+	ld [wPokegearPagerCursorPosition], a
+	ld [wPokegearPagerSelectedPerson], a
+	ld [wPokegearRadioChannelBank], a
+	ld [wPokegearRadioChannelAddr], a
+	ld [wPokegearRadioChannelAddr + 1], a
+	call Pokegear_InitJumptableIndices
+	call InitPokegearTilemap
+	ld b, SCGB_POKEGEAR_PALS
+	call GetSGBLayout
+	call SetDefaultBGPAndOBP
+	ldh a, [hCGB]
+	and a
+	ret z
+	ld a, %11100100
+	call DmgToCgbObjPal0
+	ret
+
+Pokegear_LoadGFX:
+	call ClearVBank1
+	ld hl, TownMapGFX
+	ld de, vTiles2
+	ld a, BANK(TownMapGFX)
+	call FarDecompress
+	ld hl, PokegearGFX
+	ld de, vTiles2 tile $50
+	ld a, BANK(PokegearGFX)
+	call FarDecompress
+	ld hl, PokegearSpritesGFX
+	ld de, vTiles0
+	ld a, BANK(PokegearSpritesGFX)
+	call Decompress
+	ld a, [wMapGroup]
+	ld b, a
+	ld a, [wMapNumber]
+	ld c, a
+	call GetWorldMapLocation
+	cp LANDMARK_SS_ANNE
+	jr z, .ssanne
+	farcall GetPlayerIcon
+	push de
+	ld h, d
+	ld l, e
+	ld a, b
+	; standing sprite
+	push af
+	ld de, vTiles0 tile $10
+	ld bc, 4 tiles
+	call FarCopyBytes
+	pop af
+	pop hl
+	; walking sprite
+	ld de, 12 tiles
+	add hl, de
+	ld de, vTiles0 tile $14
+	ld bc, 4 tiles
+	call FarCopyBytes
+	ret
+
+.ssanne
+	ld hl, FastShipGFX
+	ld de, vTiles0 tile $10
+	ld bc, 8 tiles
+	call CopyBytes
+	ret
+
+FastShipGFX:
+INCBIN "gfx/pokegear/fast_ship.2bpp"
+
+InitPokegearModeIndicatorArrow:
+	depixel 4, 2, 4, 0
+	ld a, SPRITE_ANIM_OBJ_POKEGEAR_ARROW
+	call InitSpriteAnimStruct
+	ld hl, SPRITEANIMSTRUCT_TILE_ID
+	add hl, bc
+	ld [hl], $0
+	ret
+
+AnimatePokegearModeIndicatorArrow:
+	ld hl, wPokegearCard
+	ld e, [hl]
+	ld d, 0
+	ld hl, .XCoords
+	add hl, de
+	ld a, [hl]
+	ld hl, SPRITEANIMSTRUCT_XOFFSET
+	add hl, bc
+	ld [hl], a
+	ret
+
+.XCoords:
+	db $00 ; POKEGEARCARD_CLOCK
+	db $10 ; POKEGEARCARD_MAP
+	db $20 ; POKEGEARCARD_PAGER
+	db $30 ; POKEGEARCARD_RADIO
+
+TownMap_GetCurrentLandmark:
+	ld a, [wMapGroup]
+	ld b, a
+	ld a, [wMapNumber]
+	ld c, a
+	call GetWorldMapLocation
+	cp LANDMARK_SPECIAL
+	ret nz
+	ld a, [wBackupMapGroup]
+	ld b, a
+	ld a, [wBackupMapNumber]
+	ld c, a
+	call GetWorldMapLocation
+	ret
+
+TownMap_InitCursorAndPlayerIconPositions:
+	ld a, [wMapGroup]
+	ld b, a
+	ld a, [wMapNumber]
+	ld c, a
+	call GetWorldMapLocation
+	cp LANDMARK_SS_ANNE
+	jr z, .FastShip
+	cp LANDMARK_SPECIAL
+	jr nz, .LoadLandmark
+	ld a, [wBackupMapGroup]
+	ld b, a
+	ld a, [wBackupMapNumber]
+	ld c, a
+	call GetWorldMapLocation
+.LoadLandmark:
+	ld [wPokegearMapPlayerIconLandmark], a
+	ld [wPokegearMapCursorLandmark], a
+	ret
+
+.FastShip:
+	ld [wPokegearMapPlayerIconLandmark], a
+	ld a, LANDMARK_NEW_BARK_TOWN
+	ld [wPokegearMapCursorLandmark], a
+	ret
+
+Pokegear_InitJumptableIndices:
+	ld a, POKEGEARSTATE_CLOCKINIT
+	ld [wJumptableIndex], a
+	xor a ; POKEGEARCARD_CLOCK
+	ld [wPokegearCard], a
+	ret
+
+InitPokegearTilemap:
+	xor a
+	ldh [hBGMapMode], a
+	hlcoord 0, 0
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
+	ld a, $6f
+	call ByteFill
+	ld a, [wPokegearCard]
+	maskbits NUM_POKEGEAR_CARDS
+	add a
+	ld e, a
+	ld d, 0
+	ld hl, .Jumptable
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld de, .return_from_jumptable
+	push de
+	jp hl
+
+.return_from_jumptable
+	call Pokegear_FinishTilemap
+	farcall TownMapPals
+	ld a, [wPokegearMapRegion]
+	and a
+	jr nz, .kanto_0
+	xor a ; LOW(vBGMap0)
+	ldh [hBGMapAddress], a
+	ld a, HIGH(vBGMap0)
+	ldh [hBGMapAddress + 1], a
+	call .UpdateBGMap
+	ld a, SCREEN_HEIGHT_PX
+	jr .finish
+
+.kanto_0
+	xor a ; LOW(vBGMap1)
+	ldh [hBGMapAddress], a
+	ld a, HIGH(vBGMap1)
+	ldh [hBGMapAddress + 1], a
+	call .UpdateBGMap
+	xor a
+.finish
+	ldh [hWY], a
+	; swap region maps
+	ld a, [wPokegearMapRegion]
+	maskbits NUM_REGIONS
+	xor 1
+	ld [wPokegearMapRegion], a
+	ret
+
+.UpdateBGMap:
+	ldh a, [hCGB]
+	and a
+	jr z, .dmg
+	ld a, $2
+	ldh [hBGMapMode], a
+	ld c, 3
+	call DelayFrames
+.dmg
+	call WaitBGMap
+	ret
+
+.Jumptable:
+; entries correspond to POKEGEARCARD_* constants
+	dw .Clock
+	dw .Map
+	dw .Pager
+	dw .Radio
+
+.Clock:
+	ld de, ClockTilemapRLE
+	call Pokegear_LoadTilemapRLE
+	hlcoord 12, 1
+	ld de, .switch
+	call PlaceString
+	hlcoord 0, 12
+	lb bc, 4, 18
+	call Textbox
+	call Pokegear_UpdateClock
+	ret
+
+.switch
+	db " SWITCH▶@"
+
+.Map:
+	ld a, [wPokegearMapPlayerIconLandmark]
+	cp LANDMARK_SS_ANNE
+	jr z, .johto
+	cp KANTO_LANDMARK
+	jr nc, .kanto
+.johto
+	ld e, 0
+	jr .ok
+
+.kanto
+	ld e, 1
+.ok
+	farcall PokegearMap
+	ld a, $07
+	ld bc, SCREEN_WIDTH - 2
+	hlcoord 1, 2
+	call ByteFill
+	hlcoord 0, 2
+	ld [hl], $06
+	hlcoord 19, 2
+	ld [hl], $17
+	ld a, [wPokegearMapCursorLandmark]
+	call PokegearMap_UpdateLandmarkName
+	ret
+
+.Radio:
+	ld de, RadioTilemapRLE
+	call Pokegear_LoadTilemapRLE
+	hlcoord 0, 12
+	lb bc, 4, 18
+	call Textbox
+	ret
+
+.Pager:
+	ld de, PagerTilemapRLE
+	call Pokegear_LoadTilemapRLE
+	hlcoord 0, 12
+	lb bc, 4, 18
+	call Textbox
+	call .PlacePagerBars
+	call PokegearPager_UpdateDisplayList
+	ret
+
+.PlacePagerBars:
+	hlcoord 17, 1
+	ld a, $5c
+	ld [hli], a
+	inc a
+	ld [hl], a
+	hlcoord 17, 2
+	inc a
+	ld [hli], a
+	call GetMapPagerService
+	and a
+	ret nz
+	hlcoord 18, 2
+	ld [hl], $5f
+	ret
+
+Pokegear_FinishTilemap:
+	hlcoord 0, 0
+	ld bc, $8
+	ld a, $6f
+	call ByteFill
+	hlcoord 0, 1
+	ld bc, $8
+	ld a, $6f
+	call ByteFill
+	ld de, wPokegearFlags
+	ld a, [de]
+	bit POKEGEAR_MAP_CARD_F, a
+	call nz, .PlaceMapIcon
+	ld a, [de]
+	bit POKEGEAR_PAGER_CARD_F, a
+	call nz, .PlacePagerIcon
+	ld a, [de]
+	bit POKEGEAR_RADIO_CARD_F, a
+	call nz, .PlaceRadioIcon
+	hlcoord 0, 0
+	ld a, $66
+	call .PlacePokegearCardIcon
+	ret
+
+.PlaceMapIcon:
+	hlcoord 2, 0
+	ld a, $60
+	jr .PlacePokegearCardIcon
+
+.PlacePagerIcon:
+	hlcoord 4, 0
+	ld a, $64
+	jr .PlacePokegearCardIcon
+
+.PlaceRadioIcon:
+	hlcoord 6, 0
+	ld a, $62
+.PlacePokegearCardIcon:
+	ld [hli], a
+	inc a
+	ld [hld], a
+	ld bc, $14
+	add hl, bc
+	add $f
+	ld [hli], a
+	inc a
+	ld [hld], a
+	ret
+
+PokegearJumptable:
+	jumptable .Jumptable, wJumptableIndex
+
+.Jumptable:
+; entries correspond to POKEGEARSTATE_* constants
+	dw PokegearClock_Init
+	dw PokegearClock_Joypad
+	dw PokegearMap_CheckRegion
+	dw PokegearMap_Init
+	dw PokegearMap_JohtoMap
+	dw PokegearMap_Init
+	dw PokegearMap_KantoMap
+	dw PokegearPager_Init
+	dw PokegearPager_Joypad
+	dw PokegearPager_MakePagerCall
+	dw PokegearPager_FinishPagerCall
+	dw PokegearRadio_Init
+	dw PokegearRadio_Joypad
+
+PokegearClock_Init:
+	call InitPokegearTilemap
+	ld hl, PokegearPressButtonText
+	call PrintText
+	ld hl, wJumptableIndex
+	inc [hl]
+	call ExitPokegearRadio_HandleMusic
+	ret
+
+PokegearClock_Joypad:
+	call .UpdateClock
+	ld hl, hJoyLast
+	ld a, [hl]
+	and A_BUTTON | B_BUTTON | START | SELECT
+	jr nz, .quit
+	ld a, [hl]
+	and D_RIGHT
+	ret z
+	ld a, [wPokegearFlags]
+	bit POKEGEAR_MAP_CARD_F, a
+	jr z, .no_map_card
+	ld c, POKEGEARSTATE_MAPCHECKREGION
+	ld b, POKEGEARCARD_MAP
+	jr .done
+
+.no_map_card
+	ld a, [wPokegearFlags]
+	bit POKEGEAR_PAGER_CARD_F, a
+	jr z, .no_pager_card
+	ld c, POKEGEARSTATE_PAGERINIT
+	ld b, POKEGEARCARD_PAGER
+	jr .done
+
+.no_pager_card
+	ld a, [wPokegearFlags]
+	bit POKEGEAR_RADIO_CARD_F, a
+	ret z
+	ld c, POKEGEARSTATE_RADIOINIT
+	ld b, POKEGEARCARD_RADIO
+.done
+	call Pokegear_SwitchPage
+	ret
+
+.quit
+	ld hl, wJumptableIndex
+	set 7, [hl]
+	ret
+
+.UpdateClock:
+	xor a
+	ldh [hBGMapMode], a
+	call Pokegear_UpdateClock
+	ld a, $1
+	ldh [hBGMapMode], a
+	ret
+
+Pokegear_UpdateClock:
+	hlcoord 3, 5
+	lb bc, 5, 14
+	call ClearBox
+	ldh a, [hHours]
+	ld b, a
+	ldh a, [hMinutes]
+	ld c, a
+	decoord 6, 8
+	farcall PrintHoursMins
+	ld hl, .GearTodayText
+	bccoord 6, 6
+	call PrintTextboxTextAt
+	ret
+
+	db "ごぜん@"
+	db "ごご@"
+
+.GearTodayText:
+	text_far _GearTodayText
+	text_end
+
+PokegearMap_CheckRegion:
+	ld a, [wPokegearMapPlayerIconLandmark]
+	cp LANDMARK_SS_ANNE
+	jr z, .johto
+	cp KANTO_LANDMARK
+	jr nc, .kanto
+.johto
+	ld a, POKEGEARSTATE_JOHTOMAPINIT
+	jr .done
+	ret
+
+.kanto
+	ld a, POKEGEARSTATE_KANTOMAPINIT
+.done
+	ld [wJumptableIndex], a
+	call ExitPokegearRadio_HandleMusic
+	ret
+
+PokegearMap_Init:
+	call InitPokegearTilemap
+	ld a, [wPokegearMapPlayerIconLandmark]
+	call PokegearMap_InitPlayerIcon
+	ld a, [wPokegearMapCursorLandmark]
+	call PokegearMap_InitCursor
+	ld a, c
+	ld [wPokegearMapCursorObjectPointer], a
+	ld a, b
+	ld [wPokegearMapCursorObjectPointer + 1], a
+	ld hl, wJumptableIndex
+	inc [hl]
+	ret
+
+PokegearMap_KantoMap:
+	call TownMap_GetKantoLandmarkLimits
+	jr PokegearMap_ContinueMap
+
+PokegearMap_JohtoMap:
+	ld d, LANDMARK_SILVER_CAVE
+	ld e, LANDMARK_NEW_BARK_TOWN
+PokegearMap_ContinueMap:
+	ld hl, hJoyLast
+	ld a, [hl]
+	and B_BUTTON
+	jr nz, .cancel
+	ld a, [hl]
+	and D_RIGHT
+	jr nz, .right
+	ld a, [hl]
+	and D_LEFT
+	jr nz, .left
+	call .DPad
+	ret
+
+.right
+	ld a, [wPokegearFlags]
+	bit POKEGEAR_PAGER_CARD_F, a
+	jr z, .no_pager
+	ld c, POKEGEARSTATE_PAGERINIT
+	ld b, POKEGEARCARD_PAGER
+	jr .done
+
+.no_pager
+	ld a, [wPokegearFlags]
+	bit POKEGEAR_RADIO_CARD_F, a
+	ret z
+	ld c, POKEGEARSTATE_RADIOINIT
+	ld b, POKEGEARCARD_RADIO
+	jr .done
+
+.left
+	ld c, POKEGEARSTATE_CLOCKINIT
+	ld b, POKEGEARCARD_CLOCK
+.done
+	call Pokegear_SwitchPage
+	ret
+
+.cancel
+	ld hl, wJumptableIndex
+	set 7, [hl]
+	ret
+
+.DPad:
+	ld hl, hJoyLast
+	ld a, [hl]
+	and D_UP
+	jr nz, .up
+	ld a, [hl]
+	and D_DOWN
+	jr nz, .down
+	ret
+
+.up
+	ld hl, wPokegearMapCursorLandmark
+	ld a, [hl]
+	cp d
+	jr c, .wrap_around_up
+	ld a, e
+	dec a
+	ld [hl], a
+.wrap_around_up
+	inc [hl]
+	jr .done_dpad
+
+.down
+	ld hl, wPokegearMapCursorLandmark
+	ld a, [hl]
+	cp e
+	jr nz, .wrap_around_down
+	ld a, d
+	inc a
+	ld [hl], a
+.wrap_around_down
+	dec [hl]
+.done_dpad
+	ld a, [wPokegearMapCursorLandmark]
+	call PokegearMap_UpdateLandmarkName
+	ld a, [wPokegearMapCursorObjectPointer]
+	ld c, a
+	ld a, [wPokegearMapCursorObjectPointer + 1]
+	ld b, a
+	ld a, [wPokegearMapCursorLandmark]
+	call PokegearMap_UpdateCursorPosition
+	ret
+
+PokegearMap_InitPlayerIcon:
+	push af
+	depixel 0, 0
+	ld b, SPRITE_ANIM_OBJ_RED_WALK
+	ld a, [wPlayerGender]
+	and a ; MALE
+	jr z, .got_gender
+	ld b, SPRITE_ANIM_INDEX_GREEN_WALK
+	dec a ; FEMALE
+	jr z, .got_gender
+	ld b, SPRITE_ANIM_INDEX_PURPLE_WALK
+.got_gender
+	ld a, b
+	call InitSpriteAnimStruct
+	ld hl, SPRITEANIMSTRUCT_TILE_ID
+	add hl, bc
+	ld [hl], $10
+	pop af
+	ld e, a
+	push bc
+	farcall GetLandmarkCoords
+	pop bc
+	ld hl, SPRITEANIMSTRUCT_XCOORD
+	add hl, bc
+	ld [hl], e
+	ld hl, SPRITEANIMSTRUCT_YCOORD
+	add hl, bc
+	ld [hl], d
+	ret
+
+PokegearMap_InitCursor:
+	push af
+	depixel 0, 0
+	ld a, SPRITE_ANIM_OBJ_POKEGEAR_ARROW
+	call InitSpriteAnimStruct
+	ld hl, SPRITEANIMSTRUCT_TILE_ID
+	add hl, bc
+	ld [hl], $04
+	ld hl, SPRITEANIMSTRUCT_ANIM_SEQ_ID
+	add hl, bc
+	ld [hl], SPRITE_ANIM_FUNC_NULL
+	pop af
+	push bc
+	call PokegearMap_UpdateCursorPosition
+	pop bc
+	ret
+
+PokegearMap_UpdateLandmarkName:
+	push af
+	hlcoord 8, 0
+	lb bc, 2, 12
+	call ClearBox
+	pop af
+	ld e, a
+	push de
+	farcall GetLandmarkName
+	pop de
+	farcall TownMap_ConvertLineBreakCharacters
+	hlcoord 8, 0
+	ld [hl], $54
+	ret
+
+PokegearMap_UpdateCursorPosition:
+	push bc
+	ld e, a
+	farcall GetLandmarkCoords
+	pop bc
+	ld hl, SPRITEANIMSTRUCT_XCOORD
+	add hl, bc
+	ld [hl], e
+	ld hl, SPRITEANIMSTRUCT_YCOORD
+	add hl, bc
+	ld [hl], d
+	ret
+
+TownMap_GetKantoLandmarkLimits:
+	ld a, [wStatusFlags]
+	bit STATUSFLAGS_HALL_OF_FAME_F, a
+	jr z, .not_hof
+	ld d, LANDMARK_ROUTE_25
+	ld e, LANDMARK_PALLET_TOWN
+	ret
+
+.not_hof
+	ld d, LANDMARK_INDIGO_PLATEAU
+	ld e, LANDMARK_PALLET_TOWN
+	ret
+
+PokegearRadio_Init:
+	call InitPokegearTilemap
+	depixel 4, 10, 4, 4
+	ld a, SPRITE_ANIM_OBJ_RADIO_TUNING_KNOB
+	call InitSpriteAnimStruct
+	ld hl, SPRITEANIMSTRUCT_TILE_ID
+	add hl, bc
+	ld [hl], $08
+	call _UpdateRadioStation
+	ld hl, wJumptableIndex
+	inc [hl]
+	ret
+
+PokegearRadio_Joypad:
+	ld hl, hJoyLast
+	ld a, [hl]
+	and B_BUTTON
+	jr nz, .cancel
+	ld a, [hl]
+	and D_LEFT
+	jr nz, .left
+	ld a, [wPokegearRadioChannelAddr]
+	ld l, a
+	ld a, [wPokegearRadioChannelAddr + 1]
+	ld h, a
+	ld a, [wPokegearRadioChannelBank]
+	and a
+	ret z
+	rst FarCall
+	ret
+
+.left
+	ld a, [wPokegearFlags]
+	bit POKEGEAR_PAGER_CARD_F, a
+	jr z, .no_pager
+	ld c, POKEGEARSTATE_PAGERINIT
+	ld b, POKEGEARCARD_PAGER
+	jr .switch_page
+
+.no_pager
+	ld a, [wPokegearFlags]
+	bit POKEGEAR_MAP_CARD_F, a
+	jr z, .no_map
+	ld c, POKEGEARSTATE_MAPCHECKREGION
+	ld b, POKEGEARCARD_MAP
+	jr .switch_page
+
+.no_map
+	ld c, POKEGEARSTATE_CLOCKINIT
+	ld b, POKEGEARCARD_CLOCK
+.switch_page
+	call Pokegear_SwitchPage
+	ret
+
+.cancel
+	ld hl, wJumptableIndex
+	set 7, [hl]
+	ret
+
+PokegearPager_Init:
+	ld hl, wJumptableIndex
+	inc [hl]
+	xor a
+	ld [wPokegearPagerScrollPosition], a
+	ld [wPokegearPagerCursorPosition], a
+	ld [wPokegearPagerSelectedPerson], a
+	call InitPokegearTilemap
+	call ExitPokegearRadio_HandleMusic
+	ld hl, PokegearAskWhoPageText
+	call PrintText
+	ret
+
+PokegearPager_Joypad:
+	ld hl, hJoyPressed
+	ld a, [hl]
+	and B_BUTTON
+	jr nz, .b
+	ld a, [hl]
+	and A_BUTTON
+	jr nz, .a
+	ld hl, hJoyLast
+	ld a, [hl]
+	and D_LEFT
+	jr nz, .left
+	ld a, [hl]
+	and D_RIGHT
+	jr nz, .right
+	call PokegearPager_GetDPad
+	ret
+
+.left
+	ld a, [wPokegearFlags]
+	bit POKEGEAR_MAP_CARD_F, a
+	jr z, .no_map
+	ld c, POKEGEARSTATE_MAPCHECKREGION
+	ld b, POKEGEARCARD_MAP
+	jr .switch_page
+
+.no_map
+	ld c, POKEGEARSTATE_CLOCKINIT
+	ld b, POKEGEARCARD_CLOCK
+	jr .switch_page
+
+.right
+	ld a, [wPokegearFlags]
+	bit POKEGEAR_RADIO_CARD_F, a
+	ret z
+	ld c, POKEGEARSTATE_RADIOINIT
+	ld b, POKEGEARCARD_RADIO
+.switch_page
+	call Pokegear_SwitchPage
+	ret
+
+.b
+	ld hl, wJumptableIndex
+	set 7, [hl]
+	ret
+
+.a
+	ld hl, wPagerList
+	ld a, [wPokegearPagerScrollPosition]
+	ld e, a
+	ld d, 0
+	add hl, de
+	ld a, [wPokegearPagerCursorPosition]
+	ld e, a
+	ld d, 0
+	add hl, de
+	ld a, [hl]
+	and a
+	ret z
+	ld [wPokegearPagerSelectedPerson], a
+	hlcoord 1, 4
+	ld a, [wPokegearPagerCursorPosition]
+	ld bc, SCREEN_WIDTH * 2
+	call AddNTimes
+	ld [hl], "▷"
+	call PokegearPagerContactSubmenu
+	jr c, .quit_submenu
+	ld hl, wJumptableIndex
+	inc [hl]
+	ret
+
+.quit_submenu
+	ld a, POKEGEARSTATE_PAGERJOYPAD
+	ld [wJumptableIndex], a
+	ret
+
+PokegearPager_MakePagerCall:
+	call GetMapPagerService
+	and a
+	jr nz, .no_service
+	ld hl, wOptions
+	res NO_TEXT_SCROLL, [hl]
+	xor a
+	ldh [hInMenu], a
+	ld de, SFX_CALL
+	call PlaySFX
+	ld hl, .GearEllipseText
+	call PrintText
+	ld de, SFX_CALL
+	call WaitPlaySFX
+	ld hl, .GearEllipseText
+	call PrintText
+	call WaitSFX
+	ld a, [wPokegearPagerSelectedPerson]
+	ld b, a
+	call UsePagerFromPokegear
+	ld c, 10
+	call DelayFrames
+	ld hl, wOptions
+	set NO_TEXT_SCROLL, [hl]
+	ld a, $1
+	ldh [hInMenu], a
+	call PokegearPager_UpdateCursor
+	ld hl, wJumptableIndex
+	inc [hl]
+	ret
+
+.no_service
+	farcall Pager_NoSignal
+	ld hl, .GearOutOfServiceText
+	call PrintText
+	ld a, POKEGEARSTATE_PAGERJOYPAD
+	ld [wJumptableIndex], a
+	ld hl, PokegearAskWhoPageText
+	call PrintText
+	ret
+
+.GearEllipseText:
+	text_far _GearEllipseText
+	text_end
+
+.GearOutOfServiceText:
+	text_far _GearOutOfServiceText
+	text_end
+
+PokegearPager_FinishPagerCall:
+	ldh a, [hJoyPressed]
+	and A_BUTTON | B_BUTTON
+	ret z
+	farcall HangUp
+	ld a, POKEGEARSTATE_PAGERJOYPAD
+	ld [wJumptableIndex], a
+	ld hl, PokegearAskWhoPageText
+	call PrintText
+	ret
+
+PokegearPager_GetDPad:
+	ld hl, hJoyLast
+	ld a, [hl]
+	and D_UP
+	jr nz, .up
+	ld a, [hl]
+	and D_DOWN
+	jr nz, .down
+	ret
+
+.up
+	ld hl, wPokegearPagerCursorPosition
+	ld a, [hl]
+	and a
+	jr z, .scroll_page_up
+	dec [hl]
+	jr .done_joypad_same_page
+
+.scroll_page_up
+	ld hl, wPokegearPagerScrollPosition
+	ld a, [hl]
+	and a
+	ret z
+	dec [hl]
+	jr .done_joypad_update_page
+
+.down
+	ld hl, wPokegearPagerCursorPosition
+	ld a, [hl]
+	cp PAGER_DISPLAY_HEIGHT - 1
+	jr nc, .scroll_page_down
+	inc [hl]
+	jr .done_joypad_same_page
+
+.scroll_page_down
+	ld hl, wPokegearPagerScrollPosition
+	ld a, [hl]
+	cp CONTACT_LIST_SIZE - PAGER_DISPLAY_HEIGHT
+	ret nc
+	inc [hl]
+	jr .done_joypad_update_page
+
+.done_joypad_same_page
+	xor a
+	ldh [hBGMapMode], a
+	call PokegearPager_UpdateCursor
+	call WaitBGMap
+	ret
+
+.done_joypad_update_page
+	xor a
+	ldh [hBGMapMode], a
+	call PokegearPager_UpdateDisplayList
+	call WaitBGMap
+	ret
+
+PokegearPager_UpdateCursor:
+	ld a, " "
+for y, PAGER_DISPLAY_HEIGHT
+	hlcoord 1, 4 + y * 2
+	ld [hl], a
+endr
+	hlcoord 1, 4
+	ld a, [wPokegearPagerCursorPosition]
+	ld bc, 2 * SCREEN_WIDTH
+	call AddNTimes
+	ld [hl], "▶"
+	ret
+
+PokegearPager_UpdateDisplayList:
+	hlcoord 1, 3
+	ld b, PAGER_DISPLAY_HEIGHT * 2 + 1
+	ld a, " "
+.row
+	ld c, SCREEN_WIDTH - 2
+.col
+	ld [hli], a
+	dec c
+	jr nz, .col
+	inc hl
+	inc hl
+	dec b
+	jr nz, .row
+	ld a, [wPokegearPagerScrollPosition]
+	ld e, a
+	ld d, 0
+	ld hl, wPagerList
+	add hl, de
+	xor a
+	ld [wPokegearPagerDisplayPosition], a
+.loop
+	ld a, [hli]
+	push hl
+	push af
+	hlcoord 2, 4
+	ld a, [wPokegearPagerDisplayPosition]
+	ld bc, 2 * SCREEN_WIDTH
+	call AddNTimes
+	ld d, h
+	ld e, l
+	pop af
+	ld b, a
+	call GetPagerClassAndName
+	pop hl
+	ld a, [wPokegearPagerDisplayPosition]
+	inc a
+	ld [wPokegearPagerDisplayPosition], a
+	cp PAGER_DISPLAY_HEIGHT
+	jr c, .loop
+	call PokegearPager_UpdateCursor
+	ret
+
+PokegearPager_DeletePagerNumber:
+	ld hl, wPagerList
+	ld a, [wPokegearPagerScrollPosition]
+	ld e, a
+	ld d, 0
+	add hl, de
+	ld a, [wPokegearPagerCursorPosition]
+	ld e, a
+	ld d, 0
+	add hl, de
+	ld [hl], 0
+	ld hl, wPagerList
+	ld c, CONTACT_LIST_SIZE
+.loop
+	ld a, [hli]
+	and a
+	jr nz, .skip
+	ld a, [hld]
+	ld [hli], a
+	ld [hl], 0
+.skip
+	dec c
+	jr nz, .loop
+	ret
+
+PokegearPagerContactSubmenu:
+	ld hl, wPagerList
+	ld a, [wPokegearPagerScrollPosition]
+	ld e, a
+	ld d, 0
+	add hl, de
+	ld a, [wPokegearPagerCursorPosition]
+	ld e, a
+	ld d, 0
+	add hl, de
+	ld c, [hl]
+	farcall CheckCanDeletePagerNumber
+	ld a, c
+	and a
+	jr z, .cant_delete
+	ld hl, .PageDeleteCancelJumptable
+	ld de, .PageDeleteCancelStrings
+	jr .got_menu_data
+
+.cant_delete
+	ld hl, .PageCancelJumptable
+	ld de, .PageCancelStrings
+.got_menu_data
+	xor a
+	ldh [hBGMapMode], a
+	push hl
+	push de
+	ld a, [de]
+	ld l, a
+	inc de
+	ld a, [de]
+	ld h, a
+	inc de
+	push hl
+	bccoord -1, -2, 0
+	add hl, bc
+	ld a, [de]
+	inc de
+	sla a
+	ld b, a
+	ld c, 8
+	push de
+	call Textbox
+	pop de
+	pop hl
+	inc hl
+	call PlaceString
+	pop de
+	xor a
+	ld [wPokegearPagerSubmenuCursor], a
+	call .UpdateCursor
+	call WaitBGMap
+.loop
+	push de
+	call JoyTextDelay
+	pop de
+	ld hl, hJoyPressed
+	ld a, [hl]
+	and D_UP
+	jr nz, .d_up
+	ld a, [hl]
+	and D_DOWN
+	jr nz, .d_down
+	ld a, [hl]
+	and A_BUTTON | B_BUTTON
+	jr nz, .a_b
+	call DelayFrame
+	jr .loop
+
+.d_up
+	ld hl, wPokegearPagerSubmenuCursor
+	ld a, [hl]
+	and a
+	jr z, .loop
+	dec [hl]
+	call .UpdateCursor
+	jr .loop
+
+.d_down
+	ld hl, 2
+	add hl, de
+	ld a, [wPokegearPagerSubmenuCursor]
+	inc a
+	cp [hl]
+	jr nc, .loop
+	ld [wPokegearPagerSubmenuCursor], a
+	call .UpdateCursor
+	jr .loop
+
+.a_b
+	xor a
+	ldh [hBGMapMode], a
+	call PokegearPager_UpdateDisplayList
+	ld a, $1
+	ldh [hBGMapMode], a
+	pop hl
+	ldh a, [hJoyPressed]
+	and B_BUTTON
+	jr nz, .Cancel
+	ld a, [wPokegearPagerSubmenuCursor]
+	ld e, a
+	ld d, 0
+	add hl, de
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp hl
+
+.Cancel:
+	ld hl, PokegearAskWhoPageText
+	call PrintText
+	scf
+	ret
+
+.Delete:
+	ld hl, PokegearAskDeleteText
+	call MenuTextbox
+	call YesNoBox
+	call ExitMenu
+	jr c, .CancelDelete
+	call PokegearPager_DeletePagerNumber
+	xor a
+	ldh [hBGMapMode], a
+	call PokegearPager_UpdateDisplayList
+	ld hl, PokegearAskWhoPageText
+	call PrintText
+	call WaitBGMap
+.CancelDelete:
+	scf
+	ret
+
+.Page:
+	and a
+	ret
+
+.UpdateCursor:
+	push de
+	ld a, [de]
+	inc de
+	ld l, a
+	ld a, [de]
+	inc de
+	ld h, a
+	ld a, [de]
+	ld c, a
+	push hl
+	ld a, " "
+	ld de, SCREEN_WIDTH * 2
+.clear_column
+	ld [hl], a
+	add hl, de
+	dec c
+	jr nz, .clear_column
+	pop hl
+	ld a, [wPokegearPagerSubmenuCursor]
+	ld bc, SCREEN_WIDTH  * 2
+	call AddNTimes
+	ld [hl], "▶"
+	pop de
+	ret
+
+.PageDeleteCancelStrings:
+	dwcoord 10, 6
+	db 3
+	db   "PAGE"
+	next "DELETE"
+	next "CANCEL"
+	db   "@"
+
+.PageDeleteCancelJumptable:
+	dw .Page
+	dw .Delete
+	dw .Cancel
+
+.PageCancelStrings:
+	dwcoord 10, 8
+	db 2
+	db   "PAGE"
+	next "CANCEL"
+	db   "@"
+
+.PageCancelJumptable:
+	dw .Page
+	dw .Cancel
+
+GetAMPMHours: ; unreferenced
+	ldh a, [hHours]
+	cp NOON_HOUR
+	jr c, .am
+	sub NOON_HOUR
+	ld [wTempByteValue], a
+	scf
+	ret
+
+.am
+	ld [wTempByteValue], a
+	and a
+	ret
+
+Pokegear_SwitchPage:
+	ld de, SFX_PRESS_AB_1
+	call PlaySFX
+	ld a, c
+	ld [wJumptableIndex], a
+	ld a, b
+	ld [wPokegearCard], a
+	call DeleteSpriteAnimStruct2ToEnd
+	ret
+
+ExitPokegearRadio_HandleMusic:
+	ld a, [wPokegearRadioMusicPlaying]
+	cp RESTART_MAP_MUSIC
+	jr z, .restart_map_music
+	cp ENTER_MAP_MUSIC
+	call z, PlayMapMusicBike
+	xor a
+	ld [wPokegearRadioMusicPlaying], a
+	ret
+
+.restart_map_music
+	call RestartMapMusic
+	xor a
+	ld [wPokegearRadioMusicPlaying], a
+	ret
+
+DeleteSpriteAnimStruct2ToEnd:
+	ld hl, wSpriteAnim2
+	ld bc, wSpriteAnimationStructsEnd - wSpriteAnim2
+	xor a
+	call ByteFill
+	ld a, 2
+	ld [wSpriteAnimCount], a
+	ret
+
+Pokegear_LoadTilemapRLE:
+	; Format: repeat count, tile ID
+	; Terminated with -1
+	hlcoord 0, 0
+.loop
+	ld a, [de]
+	cp -1
+	ret z
+	ld b, a
+	inc de
+	ld a, [de]
+	ld c, a
+	inc de
+	ld a, b
+.load
+	ld [hli], a
+	dec c
+	jr nz, .load
+	jr .loop
+
+PokegearAskWhoPageText:
+	text_far _PokegearAskWhoPageText
+	text_end
+
+PokegearPressButtonText:
+	text_far _PokegearPressButtonText
+	text_end
+
+PokegearAskDeleteText:
+	text_far _PokegearAskDeleteText
+	text_end
+
+PokegearSpritesGFX:
+INCBIN "gfx/pokegear/pokegear_sprites.2bpp.lz"
+
+RadioTilemapRLE:
+INCBIN "gfx/pokegear/radio.tilemap.rle"
+PagerTilemapRLE:
+INCBIN "gfx/pokegear/pager.tilemap.rle"
+ClockTilemapRLE:
+INCBIN "gfx/pokegear/clock.tilemap.rle"
+
+_UpdateRadioStation:
+	jr UpdateRadioStation
+
+; called from engine/sprite_anims/functions.asm
+
+AnimateTuningKnob:
+	push bc
+	call .TuningKnob
+	pop bc
+	ld a, [wRadioTuningKnob]
+	ld hl, SPRITEANIMSTRUCT_XOFFSET
+	add hl, bc
+	ld [hl], a
+	ret
+
+.TuningKnob:
+	ld hl, hJoyLast
+	ld a, [hl]
+	and D_DOWN
+	jr nz, .down
+	ld a, [hl]
+	and D_UP
+	jr nz, .up
+	ret
+
+.down
+	ld hl, wRadioTuningKnob
+	ld a, [hl]
+	and a
+	ret z
+	dec [hl]
+	dec [hl]
+	jr .update
+
+.up
+	ld hl, wRadioTuningKnob
+	ld a, [hl]
+	cp 80
+	ret nc
+	inc [hl]
+	inc [hl]
+.update
+UpdateRadioStation:
+	ld hl, wRadioTuningKnob
+	ld d, [hl]
+	ld hl, RadioChannels
+.loop
+	ld a, [hli]
+	cp -1
+	jr z, .nostation
+	cp d
+	jr z, .foundstation
+	inc hl
+	inc hl
+	jr .loop
+
+.nostation
+	call NoRadioStation
+	ret
+
+.foundstation
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld de, .returnafterstation
+	push de
+	jp hl
+
+.returnafterstation
+	ld a, [wPokegearRadioChannelBank]
+	and a
+	ret z
+	xor a
+	ldh [hBGMapMode], a
+	hlcoord 2, 9
+	call PlaceString
+	ld a, $1
+	ldh [hBGMapMode], a
+	ret
+
+LoadPokegearRadioChannelPointer: ; unreferenced
+	ld [wPokegearRadioChannelBank], a
+	ld a, [hli]
+	ld [wPokegearRadioChannelAddr], a
+	ld a, [hli]
+	ld [wPokegearRadioChannelAddr + 1], a
+	ret
+
+RadioChannels:
+; entries correspond to constants/radio_constants.asm
+; frequency value given here = 4 × ingame_frequency − 2
+	dbw 16, .PKMNTalkAndPokedexShow ; 04.5
+	dbw 28, .PokemonMusic           ; 07.5
+	dbw 32, .LuckyChannel           ; 08.5
+	dbw 40, .BuenasPassword         ; 10.5
+	dbw 52, .RuinsOfAlphRadio       ; 13.5
+	dbw 64, .PlacesAndPeople        ; 16.5
+	dbw 72, .LetsAllSing            ; 18.5
+	dbw 78, .PokeFluteRadio         ; 20.0
+	dbw 80, .EvolutionRadio         ; 20.5
+	db -1
+
+.PKMNTalkAndPokedexShow:
+; Pokédex Show in the morning
+; Oak's Pokémon Talk in the afternoon and evening
+	call .InJohto
+	jr nc, .NoSignal
+	ld a, [wTimeOfDay]
+	and a
+	jp z, LoadStation_PokedexShow
+	jp LoadStation_OaksPokemonTalk
+
+.PokemonMusic:
+	call .InJohto
+	jr nc, .NoSignal
+	jp LoadStation_PokemonMusic
+
+.LuckyChannel:
+	call .InJohto
+	jr nc, .NoSignal
+	jp LoadStation_LuckyChannel
+
+.BuenasPassword:
+	call .InJohto
+	jr nc, .NoSignal
+	jp LoadStation_BuenasPassword
+
+.RuinsOfAlphRadio:
+	ld a, [wPokegearMapPlayerIconLandmark]
+	cp LANDMARK_RUINS_OF_ALPH
+	jr nz, .NoSignal
+	jp LoadStation_UnownRadio
+
+.PlacesAndPeople:
+	call .InJohto
+	jr c, .NoSignal
+	ld a, [wPokegearFlags]
+	bit POKEGEAR_EXPN_CARD_F, a
+	jr z, .NoSignal
+	jp LoadStation_PlacesAndPeople
+
+.LetsAllSing:
+	call .InJohto
+	jr c, .NoSignal
+	ld a, [wPokegearFlags]
+	bit POKEGEAR_EXPN_CARD_F, a
+	jr z, .NoSignal
+	jp LoadStation_LetsAllSing
+
+.PokeFluteRadio:
+	call .InJohto
+	jr c, .NoSignal
+	ld a, [wPokegearFlags]
+	bit POKEGEAR_EXPN_CARD_F, a
+	jr z, .NoSignal
+	jp LoadStation_PokeFluteRadio
+
+.EvolutionRadio:
+; This station airs in the Lake of Rage area when Team Rocket is still in Mahogany.
+	ld a, [wStatusFlags]
+	bit STATUSFLAGS_ROCKET_SIGNAL_F, a
+	jr z, .NoSignal
+	ld a, [wPokegearMapPlayerIconLandmark]
+	cp LANDMARK_MAHOGANY_TOWN
+	jr z, .ok
+	cp LANDMARK_ROUTE_43
+	jr z, .ok
+	cp LANDMARK_LAKE_OF_RAGE
+	jr nz, .NoSignal
+.ok
+	jp LoadStation_EvolutionRadio
+
+.NoSignal:
+	call NoRadioStation
+	ret
+
+.InJohto:
+; if in Johto or on the S.S. Aqua, set carry
+; otherwise clear carry
+	ld a, [wPokegearMapPlayerIconLandmark]
+	cp LANDMARK_SS_ANNE
+	jr z, .johto
+	cp KANTO_LANDMARK
+	jr c, .johto
+; kanto
+	and a
+	ret
+
+.johto
+	scf
+	ret
+
+LoadStation_OaksPokemonTalk:
+	xor a ; OAKS_POKEMON_TALK
+	ld [wCurRadioLine], a
+	ld [wNumRadioLinesPrinted], a
+	ld a, BANK(PlayRadioShow)
+	ld hl, PlayRadioShow
+	call Radio_BackUpFarCallParams
+	ld de, OaksPKMNTalkName
+	ret
+
+LoadStation_PokedexShow:
+	ld a, POKEDEX_SHOW
+	ld [wCurRadioLine], a
+	xor a
+	ld [wNumRadioLinesPrinted], a
+	ld a, BANK(PlayRadioShow)
+	ld hl, PlayRadioShow
+	call Radio_BackUpFarCallParams
+	ld de, PokedexShowName
+	ret
+
+LoadStation_PokemonMusic:
+	ld a, POKEMON_MUSIC
+	ld [wCurRadioLine], a
+	xor a
+	ld [wNumRadioLinesPrinted], a
+	ld a, BANK(PlayRadioShow)
+	ld hl, PlayRadioShow
+	call Radio_BackUpFarCallParams
+	ld de, PokemonMusicName
+	ret
+
+LoadStation_LuckyChannel:
+	ld a, LUCKY_CHANNEL
+	ld [wCurRadioLine], a
+	xor a
+	ld [wNumRadioLinesPrinted], a
+	ld a, BANK(PlayRadioShow)
+	ld hl, PlayRadioShow
+	call Radio_BackUpFarCallParams
+	ld de, LuckyChannelName
+	ret
+
+LoadStation_BuenasPassword:
+	ld a, BUENAS_PASSWORD
+	ld [wCurRadioLine], a
+	xor a
+	ld [wNumRadioLinesPrinted], a
+	ld a, BANK(PlayRadioShow)
+	ld hl, PlayRadioShow
+	call Radio_BackUpFarCallParams
+	ld de, NotBuenasPasswordName
+	ld a, [wStatusFlags2]
+	bit STATUSFLAGS2_ROCKETS_IN_RADIO_TOWER_F, a
+	ret z
+	ld de, BuenasPasswordName
+	ret
+
+BuenasPasswordName:    db "BUENA'S PASSWORD@"
+NotBuenasPasswordName: db "@"
+
+LoadStation_UnownRadio:
+	ld a, UNOWN_RADIO
+	ld [wCurRadioLine], a
+	xor a
+	ld [wNumRadioLinesPrinted], a
+	ld a, BANK(PlayRadioShow)
+	ld hl, PlayRadioShow
+	call Radio_BackUpFarCallParams
+	ld de, UnownStationName
+	ret
+
+LoadStation_PlacesAndPeople:
+	ld a, PLACES_AND_PEOPLE
+	ld [wCurRadioLine], a
+	xor a
+	ld [wNumRadioLinesPrinted], a
+	ld a, BANK(PlayRadioShow)
+	ld hl, PlayRadioShow
+	call Radio_BackUpFarCallParams
+	ld de, PlacesAndPeopleName
+	ret
+
+LoadStation_LetsAllSing:
+	ld a, LETS_ALL_SING
+	ld [wCurRadioLine], a
+	xor a
+	ld [wNumRadioLinesPrinted], a
+	ld a, BANK(PlayRadioShow)
+	ld hl, PlayRadioShow
+	call Radio_BackUpFarCallParams
+	ld de, LetsAllSingName
+	ret
+
+LoadStation_RocketRadio:
+	ld a, ROCKET_RADIO
+	ld [wCurRadioLine], a
+	xor a
+	ld [wNumRadioLinesPrinted], a
+	ld a, BANK(PlayRadioShow)
+	ld hl, PlayRadioShow
+	call Radio_BackUpFarCallParams
+	ld de, LetsAllSingName
+	ret
+
+LoadStation_PokeFluteRadio:
+	ld a, POKE_FLUTE_RADIO
+	ld [wCurRadioLine], a
+	xor a
+	ld [wNumRadioLinesPrinted], a
+	ld a, BANK(PlayRadioShow)
+	ld hl, PlayRadioShow
+	call Radio_BackUpFarCallParams
+	ld de, PokeFluteStationName
+	ret
+
+LoadStation_EvolutionRadio:
+	ld a, EVOLUTION_RADIO
+	ld [wCurRadioLine], a
+	xor a
+	ld [wNumRadioLinesPrinted], a
+	ld a, BANK(PlayRadioShow)
+	ld hl, PlayRadioShow
+	call Radio_BackUpFarCallParams
+	ld de, UnownStationName
+	ret
+
+DummyLoadStation: ; unreferenced
+	ret
+
+RadioMusicRestartDE:
+	push de
+	ld a, e
+	ld [wPokegearRadioMusicPlaying], a
+	ld de, MUSIC_NONE
+	call PlayMusic
+	pop de
+	ld a, e
+	ld [wMapMusic], a
+	call PlayMusic
+	ret
+
+RadioMusicRestartPokemonChannel:
+	push de
+	ld a, RESTART_MAP_MUSIC
+	ld [wPokegearRadioMusicPlaying], a
+	ld de, MUSIC_NONE
+	call PlayMusic
+	pop de
+	ld de, MUSIC_POKEMON_CHANNEL
+	call PlayMusic
+	ret
+
+Radio_BackUpFarCallParams:
+	ld [wPokegearRadioChannelBank], a
+	ld a, l
+	ld [wPokegearRadioChannelAddr], a
+	ld a, h
+	ld [wPokegearRadioChannelAddr + 1], a
+	ret
+
+NoRadioStation:
+	call NoRadioMusic
+	call NoRadioName
+; no radio channel
+	xor a
+	ld [wPokegearRadioChannelBank], a
+	ld [wPokegearRadioChannelAddr], a
+	ld [wPokegearRadioChannelAddr + 1], a
+	ld a, $1
+	ldh [hBGMapMode], a
+	ret
+
+NoRadioMusic:
+	ld de, MUSIC_NONE
+	call PlayMusic
+	ld a, ENTER_MAP_MUSIC
+	ld [wPokegearRadioMusicPlaying], a
+	ret
+
+NoRadioName:
+	xor a
+	ldh [hBGMapMode], a
+	hlcoord 1, 8
+	lb bc, 3, 18
+	call ClearBox
+	hlcoord 0, 12
+	lb bc, 4, 18
+	call Textbox
+	ret
+
+OaksPKMNTalkName:     db "OAK's <PK><MN> Talk@"
+PokedexShowName:      db "#DEX Show@"
+PokemonMusicName:     db "#MON Music@"
+LuckyChannelName:     db "Lucky Channel@"
+UnownStationName:     db "?????@"
+
+PlacesAndPeopleName:  db "Places & People@"
+LetsAllSingName:      db "Let's All Sing!@"
+PokeFluteStationName: db "# FLUTE@"
+
+_TownMap:
+	ld hl, wOptions
+	ld a, [hl]
+	push af
+	set NO_TEXT_SCROLL, [hl]
+
+	ldh a, [hInMenu]
+	push af
+	ld a, $1
+	ldh [hInMenu], a
+
+	ld a, [wStateFlags]
+	push af
+	xor a
+	ld [wStateFlags], a
+
+	call ClearBGPalettes
+	call ClearTilemap
+	call ClearSprites
+	call DisableLCD
+	call Pokegear_LoadGFX
+	farcall ClearSpriteAnims
+	ld a, 8
+	call SkipMusic
+	ld a, LCDC_DEFAULT
+	ldh [rLCDC], a
+	call TownMap_GetCurrentLandmark
+	ld [wTownMapPlayerIconLandmark], a
+	ld [wTownMapCursorLandmark], a
+	xor a
+	ldh [hBGMapMode], a
+	call .InitTilemap
+	call WaitBGMap2
+	ld a, [wTownMapPlayerIconLandmark]
+	call PokegearMap_InitPlayerIcon
+	ld a, [wTownMapCursorLandmark]
+	call PokegearMap_InitCursor
+	ld a, c
+	ld [wTownMapCursorObjectPointer], a
+	ld a, b
+	ld [wTownMapCursorObjectPointer + 1], a
+	ld b, SCGB_POKEGEAR_PALS
+	call GetSGBLayout
+	call SetDefaultBGPAndOBP
+	ldh a, [hCGB]
+	and a
+	jr z, .dmg
+	ld a, %11100100
+	call DmgToCgbObjPal0
+	call DelayFrame
+
+.dmg
+	ld a, [wTownMapPlayerIconLandmark]
+	cp KANTO_LANDMARK
+	jr nc, .kanto
+	ld d, KANTO_LANDMARK - 1
+	ld e, 1
+	call .loop
+	jr .resume
+
+.kanto
+	call TownMap_GetKantoLandmarkLimits
+	call .loop
+
+.resume
+	pop af
+	ld [wStateFlags], a
+	pop af
+	ldh [hInMenu], a
+	pop af
+	ld [wOptions], a
+	call ClearBGPalettes
+	ret
+
+.loop
+	call JoyTextDelay
+	ld hl, hJoyPressed
+	ld a, [hl]
+	and B_BUTTON
+	ret nz
+
+	ld hl, hJoyLast
+	ld a, [hl]
+	and D_UP
+	jr nz, .pressed_up
+
+	ld a, [hl]
+	and D_DOWN
+	jr nz, .pressed_down
+.loop2
+	push de
+	farcall PlaySpriteAnimations
+	pop de
+	call DelayFrame
+	jr .loop
+
+.pressed_up
+	ld hl, wTownMapCursorLandmark
+	ld a, [hl]
+	cp d
+	jr c, .okay
+	ld a, e
+	dec a
+	ld [hl], a
+
+.okay
+	inc [hl]
+	jr .next
+
+.pressed_down
+	ld hl, wTownMapCursorLandmark
+	ld a, [hl]
+	cp e
+	jr nz, .okay2
+	ld a, d
+	inc a
+	ld [hl], a
+
+.okay2
+	dec [hl]
+
+.next
+	push de
+	ld a, [wTownMapCursorLandmark]
+	call PokegearMap_UpdateLandmarkName
+	ld a, [wTownMapCursorObjectPointer]
+	ld c, a
+	ld a, [wTownMapCursorObjectPointer + 1]
+	ld b, a
+	ld a, [wTownMapCursorLandmark]
+	call PokegearMap_UpdateCursorPosition
+	pop de
+	jr .loop2
+
+.InitTilemap:
+	ld a, [wTownMapPlayerIconLandmark]
+	cp KANTO_LANDMARK
+	jr nc, .kanto2
+	ld e, JOHTO_REGION
+	jr .okay_tilemap
+
+.kanto2
+	ld e, KANTO_REGION
+.okay_tilemap
+	farcall PokegearMap
+	ld a, $07
+	ld bc, 6
+	hlcoord 1, 0
+	call ByteFill
+	hlcoord 0, 0
+	ld [hl], $06
+	hlcoord 7, 0
+	ld [hl], $17
+	hlcoord 7, 1
+	ld [hl], $16
+	hlcoord 7, 2
+	ld [hl], $26
+	ld a, $07
+	ld bc, NAME_LENGTH
+	hlcoord 8, 2
+	call ByteFill
+	hlcoord 19, 2
+	ld [hl], $17
+	ld a, [wTownMapCursorLandmark]
+	call PokegearMap_UpdateLandmarkName
+	farcall TownMapPals
+	ret
+
+PlayRadio:
+	ld hl, wOptions
+	ld a, [hl]
+	push af
+	set NO_TEXT_SCROLL, [hl]
+	call .PlayStation
+	ld c, 100
+	call DelayFrames
+.loop
+	call JoyTextDelay
+	ldh a, [hJoyPressed]
+	and A_BUTTON | B_BUTTON
+	jr nz, .stop
+	ld a, [wPokegearRadioChannelAddr]
+	ld l, a
+	ld a, [wPokegearRadioChannelAddr + 1]
+	ld h, a
+	ld a, [wPokegearRadioChannelBank]
+	and a
+	jr z, .zero
+	rst FarCall
+.zero
+	call DelayFrame
+	jr .loop
+
+.stop
+	pop af
+	ld [wOptions], a
+	call ExitPokegearRadio_HandleMusic
+	ret
+
+.PlayStation:
+	ld a, ENTER_MAP_MUSIC
+	ld [wPokegearRadioMusicPlaying], a
+	ld hl, PlayRadioStationPointers
+	ld d, 0
+	add hl, de
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld de, .jump_return
+	push de
+	jp hl
+
+.jump_return
+	push de
+	hlcoord 0, 12
+	lb bc, 4, 18
+	call Textbox
+	hlcoord 1, 14
+	ld [hl], "“"
+	pop de
+	hlcoord 2, 14
+	call PlaceString
+	ld h, b
+	ld l, c
+	ld [hl], "”"
+	call WaitBGMap
+	ret
+
+PlayRadioStationPointers:
+; entries correspond to MAPRADIO_* constants
+	table_width 2, PlayRadioStationPointers
+	dw LoadStation_PokemonChannel
+	dw LoadStation_OaksPokemonTalk
+	dw LoadStation_PokedexShow
+	dw LoadStation_PokemonMusic
+	dw LoadStation_LuckyChannel
+	dw LoadStation_UnownRadio
+	dw LoadStation_PlacesAndPeople
+	dw LoadStation_LetsAllSing
+	dw LoadStation_RocketRadio
+	assert_table_length NUM_MAP_RADIO_STATIONS
+
+LoadStation_PokemonChannel:
+	call IsInJohto
+	and a
+	jr nz, .kanto
+	call UpdateTime
+	ld a, [wTimeOfDay]
+	and a
+	jp z, LoadStation_PokedexShow
+	jp LoadStation_OaksPokemonTalk
+
+.kanto:
+	jp LoadStation_PlacesAndPeople
+
+PokegearMap:
+	ld a, e
+	and a
+	jr nz, .kanto
+	call LoadTownMapGFX
+	call FillJohtoMap
+	ret
+
+.kanto
+	call LoadTownMapGFX
+	call FillKantoMap
+	ret
+
+_FlyMap:
+	call ClearBGPalettes
+	call ClearTilemap
+	call ClearSprites
+	ld hl, hInMenu
+	ld a, [hl]
+	push af
+	ld [hl], $1
+	xor a
+	ldh [hBGMapMode], a
+	farcall ClearSpriteAnims
+	call LoadTownMapGFX
+	ld de, FlyMapLabelBorderGFX
+	ld hl, vTiles2 tile $50
+	lb bc, BANK(FlyMapLabelBorderGFX), 6
+	call Request1bpp
+	call FlyMap
+	call Pokegear_DummyFunction
+	ld b, SCGB_POKEGEAR_PALS
+	call GetSGBLayout
+	call SetDefaultBGPAndOBP
+.loop
+	call JoyTextDelay
+	ld hl, hJoyPressed
+	ld a, [hl]
+	and B_BUTTON
+	jr nz, .pressedB
+	ld a, [hl]
+	and A_BUTTON
+	jr nz, .pressedA
+	call .HandleDPad
+	call GetMapCursorCoordinates
+	farcall PlaySpriteAnimations
+	call DelayFrame
+	jr .loop
+
+.pressedB
+	ld a, -1
+	jr .exit
+
+.pressedA
+	ld a, [wTownMapPlayerIconLandmark]
+	ld l, a
+	ld h, 0
+	add hl, hl
+	ld de, Flypoints + 1
+	add hl, de
+	ld a, [hl]
+.exit
+	ld [wTownMapPlayerIconLandmark], a
+	pop af
+	ldh [hInMenu], a
+	call ClearBGPalettes
+	ld a, SCREEN_HEIGHT_PX
+	ldh [hWY], a
+	xor a ; LOW(vBGMap0)
+	ldh [hBGMapAddress], a
+	ld a, HIGH(vBGMap0)
+	ldh [hBGMapAddress + 1], a
+	ld a, [wTownMapPlayerIconLandmark]
+	ld e, a
+	ret
+
+.HandleDPad:
+	ld a, [wStartFlypoint]
+	ld e, a
+	ld a, [wEndFlypoint]
+	ld d, a
+	ld hl, hJoyLast
+	ld a, [hl]
+	and D_UP
+	jr nz, .ScrollNext
+	ld a, [hl]
+	and D_DOWN
+	jr nz, .ScrollPrev
+	ret
+
+.ScrollNext:
+	ld hl, wTownMapPlayerIconLandmark
+	ld a, [hl]
+	cp d
+	jr nz, .NotAtEndYet
+	ld a, e
+	dec a
+	ld [hl], a
+.NotAtEndYet:
+	inc [hl]
+	call CheckIfVisitedFlypoint
+	jr z, .ScrollNext
+	jr .Finally
+
+.ScrollPrev:
+	ld hl, wTownMapPlayerIconLandmark
+	ld a, [hl]
+	cp e
+	jr nz, .NotAtStartYet
+	ld a, d
+	inc a
+	ld [hl], a
+.NotAtStartYet:
+	dec [hl]
+	call CheckIfVisitedFlypoint
+	jr z, .ScrollPrev
+.Finally:
+	call TownMapBubble
+	call WaitBGMap
+	xor a
+	ldh [hBGMapMode], a
+	ret
+
+TownMapBubble:
+; Draw the bubble containing the location text in the town map HUD
+
+; Top-left corner
+	hlcoord 1, 0
+	ld a, $50
+	ld [hli], a
+; Top row
+	ld bc, 16
+	ld a, " "
+	call ByteFill
+; Top-right corner
+	ld a, $51
+	ld [hl], a
+	hlcoord 1, 1
+
+; Middle row
+	ld bc, SCREEN_WIDTH - 2
+	ld a, " "
+	call ByteFill
+
+; Bottom-left corner
+	hlcoord 1, 2
+	ld a, $52
+	ld [hli], a
+; Bottom row
+	ld bc, 16
+	ld a, " "
+	call ByteFill
+; Bottom-right corner
+	ld a, $53
+	ld [hl], a
+
+; Print "Where?"
+	hlcoord 2, 0
+	ld de, .Where
+	call PlaceString
+; Print the name of the default flypoint
+	call .Name
+; Up/down arrows
+	hlcoord 18, 1
+	ld [hl], $54
+	ret
+
+.Where:
+	db "Where?@"
+
+.Name:
+; We need the map location of the default flypoint
+	ld a, [wTownMapPlayerIconLandmark]
+	ld l, a
+	ld h, 0
+	add hl, hl ; two bytes per flypoint
+	ld de, Flypoints
+	add hl, de
+	ld e, [hl]
+	farcall GetLandmarkName
+	hlcoord 2, 1
+	ld de, wStringBuffer1
+	call PlaceString
+	ret
+
+GetMapCursorCoordinates:
+	ld a, [wTownMapPlayerIconLandmark]
+	ld l, a
+	ld h, 0
+	add hl, hl
+	ld de, Flypoints
+	add hl, de
+	ld e, [hl]
+	farcall GetLandmarkCoords
+	ld a, [wTownMapCursorCoordinates]
+	ld c, a
+	ld a, [wTownMapCursorCoordinates + 1]
+	ld b, a
+	ld hl, 4
+	add hl, bc
+	ld [hl], e
+	ld hl, 5
+	add hl, bc
+	ld [hl], d
+	ret
+
+CheckIfVisitedFlypoint:
+; Check if the flypoint loaded in [hl] has been visited yet.
+	push bc
+	push de
+	push hl
+	ld l, [hl]
+	ld h, 0
+	add hl, hl
+	ld de, Flypoints + 1
+	add hl, de
+	ld c, [hl]
+	call HasVisitedSpawn
+	pop hl
+	pop de
+	pop bc
+	and a
+	ret
+
+HasVisitedSpawn:
+; Check if spawn point c has been visited.
+	ld hl, wVisitedSpawns
+	ld b, CHECK_FLAG
+	ld d, 0
+	predef SmallFarFlagAction
+	ld a, c
+	ret
+
+INCLUDE "data/maps/flypoints.asm"
+
+Pokegear_DummyFunction:
+	ret
+
+FlyMap:
+	ld a, [wMapGroup]
+	ld b, a
+	ld a, [wMapNumber]
+	ld c, a
+	call GetWorldMapLocation
+; If we're not in a valid location, i.e. Pokecenter floor 2F,
+; the backup map information is used.
+	cp LANDMARK_SPECIAL
+	jr nz, .CheckRegion
+	ld a, [wBackupMapGroup]
+	ld b, a
+	ld a, [wBackupMapNumber]
+	ld c, a
+	call GetWorldMapLocation
+.CheckRegion:
+; The first 46 locations are part of Johto. The rest are in Kanto.
+	cp KANTO_LANDMARK
+	jr nc, .KantoFlyMap
+; Johto fly map
+; Note that .NoKanto should be modified in tandem with this branch
+	push af
+	ld a, JOHTO_FLYPOINT ; first Johto flypoint
+	ld [wTownMapPlayerIconLandmark], a ; first one is default (New Bark Town)
+	ld [wStartFlypoint], a
+	ld a, KANTO_FLYPOINT - 1 ; last Johto flypoint
+	ld [wEndFlypoint], a
+; Fill out the map
+	call FillJohtoMap
+	call .MapHud
+	pop af
+	call TownMapPlayerIcon
+	ret
+
+.KantoFlyMap:
+; The event that there are no flypoints enabled in a map is not
+; accounted for. As a result, if you attempt to select a flypoint
+; when there are none enabled, the game will crash. Additionally,
+; the flypoint selection has a default starting point that
+; can be flown to even if none are enabled.
+; To prevent both of these things from happening when the player
+; enters Kanto, fly access is restricted until Indigo Plateau is
+; visited and its flypoint enabled.
+	push af
+	ld c, SPAWN_INDIGO
+	call HasVisitedSpawn
+	and a
+	jr z, .NoKanto
+; Kanto's map is only loaded if we've visited Indigo Plateau
+	ld a, KANTO_FLYPOINT ; first Kanto flypoint
+	ld [wStartFlypoint], a
+	ld a, NUM_FLYPOINTS - 1 ; last Kanto flypoint
+	ld [wEndFlypoint], a
+	ld [wTownMapPlayerIconLandmark], a ; last one is default (Indigo Plateau)
+; Fill out the map
+	call FillKantoMap
+	call .MapHud
+	pop af
+	call TownMapPlayerIcon
+	ret
+
+.NoKanto:
+; If Indigo Plateau hasn't been visited, we use Johto's map instead
+	ld a, JOHTO_FLYPOINT ; first Johto flypoint
+	ld [wTownMapPlayerIconLandmark], a ; first one is default (New Bark Town)
+	ld [wStartFlypoint], a
+	ld a, KANTO_FLYPOINT - 1 ; last Johto flypoint
+	ld [wEndFlypoint], a
+	call FillJohtoMap
+	pop af
+.MapHud:
+	call TownMapBubble
+	call TownMapPals
+	hlbgcoord 0, 0 ; BG Map 0
+	call TownMapBGUpdate
+	call TownMapMon
+	ld a, c
+	ld [wTownMapCursorCoordinates], a
+	ld a, b
+	ld [wTownMapCursorCoordinates + 1], a
+	ret
+
+Pokedex_GetArea:
+; e: Current landmark
+	ld a, [wTownMapPlayerIconLandmark]
+	push af
+	ld a, [wTownMapCursorLandmark]
+	push af
+	ld a, e
+	ld [wTownMapPlayerIconLandmark], a
+	call ClearSprites
+	xor a
+	ldh [hBGMapMode], a
+	ld a, $1
+	ldh [hInMenu], a
+	ld de, PokedexNestIconGFX
+	ld hl, vTiles0 tile $7f
+	lb bc, BANK(PokedexNestIconGFX), 1
+	call Request2bpp
+	call .GetPlayerOrFastShipIcon
+	ld hl, vTiles0 tile $78
+	ld c, 4
+	call Request2bpp
+	call LoadTownMapGFX
+	call FillKantoMap
+	call .PlaceString_MonsNest
+	call TownMapPals
+	hlbgcoord 0, 0, vBGMap1
+	call TownMapBGUpdate
+	call .PlaceString_MonsNest
+	call TownMapPals
+	hlbgcoord 0, 0
+	call TownMapBGUpdate
+	ld b, SCGB_POKEGEAR_PALS
+	call GetSGBLayout
+	call SetDefaultBGPAndOBP
+	xor a
+	call .GetAndPlaceNest
+.loop
+	call JoyTextDelay
+	ld hl, hJoyPressed
+	ld a, [hl]
+	and A_BUTTON | B_BUTTON
+	jr nz, .a_b
+	ldh a, [hJoypadDown]
+	and SELECT
+	jr nz, .select
+	call .LeftRightInput
+	call .BlinkNestIcons
+	jr .next
+
+.select
+	call .HideNestsShowPlayer
+.next
+	call DelayFrame
+	jr .loop
+
+.a_b
+	call ClearSprites
+	pop af
+	ld [wTownMapCursorLandmark], a
+	pop af
+	ld [wTownMapPlayerIconLandmark], a
+	ret
+
+.LeftRightInput:
+	ld a, [hl]
+	and D_LEFT
+	jr nz, .left
+	ld a, [hl]
+	and D_RIGHT
+	jr nz, .right
+	ret
+
+.left
+	ldh a, [hWY]
+	cp SCREEN_HEIGHT_PX
+	ret z
+	call ClearSprites
+	ld a, SCREEN_HEIGHT_PX
+	ldh [hWY], a
+	xor a ; JOHTO_REGION
+	call .GetAndPlaceNest
+	ret
+
+.right
+	ld a, [wStatusFlags]
+	bit STATUSFLAGS_HALL_OF_FAME_F, a
+	ret z
+	ldh a, [hWY]
+	and a
+	ret z
+	call ClearSprites
+	xor a
+	ldh [hWY], a
+	ld a, KANTO_REGION
+	call .GetAndPlaceNest
+	ret
+
+.BlinkNestIcons:
+	ldh a, [hVBlankCounter]
+	ld e, a
+	and $f
+	ret nz
+	ld a, e
+	and $10
+	jr nz, .copy_sprites
+	call ClearSprites
+	ret
+
+.copy_sprites
+	hlcoord 0, 0
+	ld de, wShadowOAM
+	ld bc, wShadowOAMEnd - wShadowOAM
+	call CopyBytes
+	ret
+
+.PlaceString_MonsNest:
+	hlcoord 0, 0
+	ld bc, SCREEN_WIDTH
+	ld a, " "
+	call ByteFill
+	hlcoord 0, 1
+	ld a, $06
+	ld [hli], a
+	ld bc, SCREEN_WIDTH - 2
+	ld a, $07
+	call ByteFill
+	ld [hl], $17
+	call GetPokemonName
+	hlcoord 2, 0
+	call PlaceString
+	ld h, b
+	ld l, c
+	ld de, .String_SNest
+	call PlaceString
+	ret
+
+.String_SNest:
+	db "'S NEST@"
+
+.GetAndPlaceNest:
+	ld [wTownMapCursorLandmark], a
+	ld e, a
+	farcall FindNest ; load nest landmarks into wTilemap[0,0]
+	decoord 0, 0
+	ld hl, wShadowOAMSprite00
+.nestloop
+	ld a, [de]
+	and a
+	jr z, .done_nest
+	push de
+	ld e, a
+	push hl
+	farcall GetLandmarkCoords
+	pop hl
+	; load into OAM
+	ld a, d
+	sub 4
+	ld [hli], a ; y
+	ld a, e
+	sub 4
+	ld [hli], a ; x
+	ld a, $7f ; nest icon
+	ld [hli], a ; tile id
+	xor a
+	ld [hli], a ; attributes
+	; next
+	pop de
+	inc de
+	jr .nestloop
+
+.done_nest
+	ld hl, wShadowOAM
+	decoord 0, 0
+	ld bc, wShadowOAMEnd - wShadowOAM
+	call CopyBytes
+	ret
+
+.HideNestsShowPlayer:
+	call .CheckPlayerLocation
+	ret c
+	ld a, [wTownMapPlayerIconLandmark]
+	ld e, a
+	farcall GetLandmarkCoords
+	ld c, e
+	ld b, d
+	ld de, .PlayerOAM
+	ld hl, wShadowOAMSprite00
+.ShowPlayerLoop:
+	ld a, [de]
+	cp $80
+	jr z, .clear_oam
+	add b
+	ld [hli], a ; y
+	inc de
+	ld a, [de]
+	add c
+	ld [hli], a ; x
+	inc de
+	ld a, [de]
+	add $78 ; where the player's sprite is loaded
+	ld [hli], a ; tile id
+	inc de
+	push bc
+	ld c, PAL_OW_RED
+	ld a, [wPlayerGender]
+<<<<<<< HEAD
+	and a ; MALE
+	jr z, .got_gender
+	inc c ; PAL_OW_GREEN
+	dec a ; FEMALE
+	jr z, .got_gender
+	inc c ; PAL_OW_PURPLE
+.got_gender
+=======
+	bit PLAYERGENDER_FEMALE_F, a
+	jr z, .male
+	inc c ; PAL_OW_BLUE
+.male
+>>>>>>> parent of 4432df05c (Add more assert cases in the codebase (#1115))
+	ld a, c
+	ld [hli], a ; attributes
+	pop bc
+	jr .ShowPlayerLoop
+
+.clear_oam
+	ld hl, wShadowOAMSprite04
+	ld bc, wShadowOAMEnd - wShadowOAMSprite04
+	xor a
+	call ByteFill
+	ret
+
+.PlayerOAM:
+	; y pxl, x pxl, tile offset
+	db -1 * TILE_WIDTH, -1 * TILE_WIDTH, 0 ; top left
+	db -1 * TILE_WIDTH,  0 * TILE_WIDTH, 1 ; top right
+	db  0 * TILE_WIDTH, -1 * TILE_WIDTH, 2 ; bottom left
+	db  0 * TILE_WIDTH,  0 * TILE_WIDTH, 3 ; bottom right
+	db $80 ; terminator
+
+.CheckPlayerLocation:
+; Don't show the player's sprite if you're
+; not in the same region as what's currently
+; on the screen.
+	ld a, [wTownMapPlayerIconLandmark]
+	cp LANDMARK_SS_ANNE
+	jr z, .johto
+	cp KANTO_LANDMARK
+	jr c, .johto
+; kanto
+	ld a, [wTownMapCursorLandmark]
+	and a
+	jr z, .clear
+	jr .ok
+
+.johto
+	ld a, [wTownMapCursorLandmark]
+	and a
+	jr nz, .clear
+.ok
+	and a
+	ret
+
+.clear
+	ld hl, wShadowOAM
+	ld bc, wShadowOAMEnd - wShadowOAM
+	xor a
+	call ByteFill
+	scf
+	ret
+
+.GetPlayerOrFastShipIcon:
+	ld a, [wTownMapPlayerIconLandmark]
+	cp LANDMARK_SS_ANNE
+	jr z, .FastShip
+	farcall GetPlayerIcon
+	ret
+
+.FastShip:
+	ld de, FastShipGFX
+	ld b, BANK(FastShipGFX)
+	ret
+
+TownMapBGUpdate:
+; Update BG Map tiles and attributes
+
+; BG Map address
+	ld a, l
+	ldh [hBGMapAddress], a
+	ld a, h
+	ldh [hBGMapAddress + 1], a
+; Only update palettes on CGB
+	ldh a, [hCGB]
+	and a
+	jr z, .tiles
+; BG Map mode 2 (palettes)
+	ld a, 2
+	ldh [hBGMapMode], a
+; The BG Map is updated in thirds, so we wait
+
+; 3 frames to update the whole screen's palettes.
+	ld c, 3
+	call DelayFrames
+.tiles
+; Update BG Map tiles
+	call WaitBGMap
+; Turn off BG Map update
+	xor a
+	ldh [hBGMapMode], a
+	ret
+
+FillJohtoMap:
+	ld de, JohtoMap
+	jr FillTownMap
+
+FillKantoMap:
+	ld de, KantoMap
+FillTownMap:
+	hlcoord 0, 0
+.loop
+	ld a, [de]
+	cp -1
+	ret z
+	ld a, [de]
+	ld [hli], a
+	inc de
+	jr .loop
+
+TownMapPals:
+; Assign palettes based on tile ids
+	hlcoord 0, 0
+	decoord 0, 0, wAttrmap
+	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
+.loop
+; Current tile
+	ld a, [hli]
+	push hl
+; The palette map covers tiles $00 to $7e, $7f and above aren't available
+	cp $60
+	jr nc, .pal0
+
+; The palette data is condensed to nybbles, least-significant first.
+	ld hl, .PalMap
+	srl a
+	jr c, .odd
+; Even-numbered tile ids take the bottom nybble...
+	add l
+	ld l, a
+	ld a, h
+	adc 0
+	ld h, a
+	ld a, [hl]
+	and PALETTE_MASK
+	jr .update
+
+.odd
+; ...and odd ids take the top.
+	add l
+	ld l, a
+	ld a, h
+	adc 0
+	ld h, a
+	ld a, [hl]
+	swap a
+	and PALETTE_MASK
+	jr .update
+
+.pal0
+	xor a
+.update
+	pop hl
+	ld [de], a
+	inc de
+	dec bc
+	ld a, b
+	or c
+	jr nz, .loop
+	ret
+
+.PalMap:
+INCLUDE "gfx/pokegear/town_map_palette_map.asm"
+
+TownMapMon:
+; Draw the FlyMon icon at town map location
+
+; Get FlyMon species
+	ld a, [wCurPartyMon]
+	ld hl, wPartySpecies
+	ld e, a
+	ld d, 0
+	add hl, de
+	ld a, [hl]
+	ld [wTempIconSpecies], a
+; Get FlyMon icon
+	ld e, $08 ; starting tile in VRAM
+	farcall GetSpeciesIcon
+; Animation/palette
+	depixel 0, 0
+	ld a, SPRITE_ANIM_OBJ_PARTY_MON
+	call InitSpriteAnimStruct
+	ld hl, SPRITEANIMSTRUCT_TILE_ID
+	add hl, bc
+	ld [hl], $08
+	ld hl, SPRITEANIMSTRUCT_ANIM_SEQ_ID
+	add hl, bc
+	ld [hl], SPRITE_ANIM_FUNC_NULL
+	ret
+
+TownMapPlayerIcon:
+; Draw the player icon at town map location in a
+	push af
+	farcall GetPlayerIcon
+; Standing icon
+	ld hl, vTiles0 tile $10
+	ld c, 4 ; # tiles
+	call Request2bpp
+; Walking icon
+	ld hl, 12 tiles
+	add hl, de
+	ld d, h
+	ld e, l
+	ld hl, vTiles0 tile $14
+	ld c, 4 ; # tiles
+	ld a, BANK(RedSpriteGFX) ; does nothing
+	call Request2bpp
+; Animation/palette
+	depixel 0, 0
+	ld b, SPRITE_ANIM_OBJ_RED_WALK ; Male
+	ld a, [wPlayerGender]
+	and a ; MALE
+	jr z, .got_gender
+	ld b, SPRITE_ANIM_INDEX_GREEN_WALK ; Female
+	dec a ; FEMALE
+	jr z, .got_gender
+	ld b, SPRITE_ANIM_INDEX_PURPLE_WALK ; Enby
+.got_gender
+	ld a, b
+	call InitSpriteAnimStruct
+	ld hl, SPRITEANIMSTRUCT_TILE_ID
+	add hl, bc
+	ld [hl], $10
+	pop af
+	ld e, a
+	push bc
+	farcall GetLandmarkCoords
+	pop bc
+	ld hl, SPRITEANIMSTRUCT_XCOORD
+	add hl, bc
+	ld [hl], e
+	ld hl, SPRITEANIMSTRUCT_YCOORD
+	add hl, bc
+	ld [hl], d
+	ret
+
+LoadTownMapGFX:
+	ld hl, TownMapGFX
+	ld de, vTiles2
+	lb bc, BANK(TownMapGFX), $50
+	call DecompressRequest2bpp
+	ret
+
+JohtoMap:
+INCBIN "gfx/pokegear/johto.bin"
+
+KantoMap:
+INCBIN "gfx/pokegear/kanto.bin"
+
+PokedexNestIconGFX:
+INCBIN "gfx/pokegear/dexmap_nest_icon.2bpp"
+FlyMapLabelBorderGFX:
+INCBIN "gfx/pokegear/flymap_label_border.1bpp"
+
+EntireFlyMap: ; unreferenced
+; Similar to _FlyMap, but scrolls through the entire
+; Flypoints data of both regions. A debug function?
+	xor a
+	ld [wTownMapPlayerIconLandmark], a
+	call ClearBGPalettes
+	call ClearTilemap
+	call ClearSprites
+	ld hl, hInMenu
+	ld a, [hl]
+	push af
+	ld [hl], $1
+	xor a
+	ldh [hBGMapMode], a
+	farcall ClearSpriteAnims
+	call LoadTownMapGFX
+	ld de, FlyMapLabelBorderGFX
+	ld hl, vTiles2 tile $30
+	lb bc, BANK(FlyMapLabelBorderGFX), 6
+	call Request1bpp
+	call FillKantoMap
+	call TownMapBubble
+	call TownMapPals
+	hlbgcoord 0, 0, vBGMap1
+	call TownMapBGUpdate
+	call FillJohtoMap
+	call TownMapBubble
+	call TownMapPals
+	hlbgcoord 0, 0
+	call TownMapBGUpdate
+	call TownMapMon
+	ld a, c
+	ld [wTownMapCursorCoordinates], a
+	ld a, b
+	ld [wTownMapCursorCoordinates + 1], a
+	ld b, SCGB_POKEGEAR_PALS
+	call GetSGBLayout
+	call SetDefaultBGPAndOBP
+.loop
+	call JoyTextDelay
+	ld hl, hJoyPressed
+	ld a, [hl]
+	and B_BUTTON
+	jr nz, .pressedB
+	ld a, [hl]
+	and A_BUTTON
+	jr nz, .pressedA
+	call .HandleDPad
+	call GetMapCursorCoordinates
+	farcall PlaySpriteAnimations
+	call DelayFrame
+	jr .loop
+
+.pressedB
+	ld a, -1
+	jr .exit
+
+.pressedA
+	ld a, [wTownMapPlayerIconLandmark]
+	ld l, a
+	ld h, 0
+	add hl, hl
+	ld de, Flypoints + 1
+	add hl, de
+	ld a, [hl]
+.exit
+	ld [wTownMapPlayerIconLandmark], a
+	pop af
+	ldh [hInMenu], a
+	call ClearBGPalettes
+	ld a, SCREEN_HEIGHT_PX
+	ldh [hWY], a
+	xor a ; LOW(vBGMap0)
+	ldh [hBGMapAddress], a
+	ld a, HIGH(vBGMap0)
+	ldh [hBGMapAddress + 1], a
+	ld a, [wTownMapPlayerIconLandmark]
+	ld e, a
+	ret
+
+.HandleDPad:
+	ld hl, hJoyLast
+	ld a, [hl]
+	and D_DOWN | D_RIGHT
+	jr nz, .ScrollNext
+	ld a, [hl]
+	and D_UP | D_LEFT
+	jr nz, .ScrollPrev
+	ret
+
+.ScrollNext:
+	ld hl, wTownMapPlayerIconLandmark
+	ld a, [hl]
+	cp NUM_FLYPOINTS - 1
+	jr c, .NotAtEndYet
+	ld [hl], -1
+.NotAtEndYet:
+	inc [hl]
+	jr .FillMap
+
+.ScrollPrev:
+	ld hl, wTownMapPlayerIconLandmark
+	ld a, [hl]
+	and a
+	jr nz, .NotAtStartYet
+	ld [hl], NUM_FLYPOINTS
+.NotAtStartYet:
+	dec [hl]
+.FillMap:
+	ld a, [wTownMapPlayerIconLandmark]
+	cp KANTO_FLYPOINT
+	jr c, .InJohto
+	call FillKantoMap
+	xor a
+	ld b, HIGH(vBGMap1)
+	jr .Finally
+
+.InJohto:
+	call FillJohtoMap
+	ld a, SCREEN_HEIGHT_PX
+	ld b, HIGH(vBGMap0)
+.Finally:
+	ldh [hWY], a
+	ld a, b
+	ldh [hBGMapAddress + 1], a
+	call TownMapBubble
+	call WaitBGMap
+	xor a
+	ldh [hBGMapMode], a
+	ret
diff --git a/engine/pokemon/european_mail.asm b/engine/pokemon/european_mail.asm
index f2fc4d1e6ca..85b7a26496d 100644
--- a/engine/pokemon/european_mail.asm
+++ b/engine/pokemon/european_mail.asm
@@ -6,20 +6,16 @@ ParseMailLanguage:
 	cp "E"
 	ret nz
 	ld a, [hli]
-	assert MAIL_LANG_ENGLISH + 1 == MAIL_LANG_FRENCH
-	inc c
+	inc c ; MAIL_LANG_FRENCH
 	cp "F"
 	ret z
-	assert MAIL_LANG_FRENCH + 1 == MAIL_LANG_GERMAN
-	inc c
+	inc c ; MAIL_LANG_GERMAN
 	cp "G"
 	ret z
-	assert MAIL_LANG_GERMAN + 1 == MAIL_LANG_ITALIAN
-	inc c
+	inc c ; MAIL_LANG_ITALIAN
 	cp "I"
 	ret z
-	assert MAIL_LANG_ITALIAN + 1 == MAIL_LANG_SPANISH
-	inc c
+	inc c ; MAIL_LANG_SPANISH
 	cp "S"
 	ret z
 	ld c, MAIL_LANG_ENGLISH
diff --git a/home/tilemap.asm b/home/tilemap.asm
index 96251e2eb8f..4f87e02d52d 100644
--- a/home/tilemap.asm
+++ b/home/tilemap.asm
@@ -229,10 +229,8 @@ GetHPPal::
 	ld a, e
 	cp (HP_BAR_LENGTH_PX * 50 / 100) ; 24
 	ret nc
-	assert HP_GREEN + 1 == HP_YELLOW
-	inc d
+	inc d ; HP_YELLOW
 	cp (HP_BAR_LENGTH_PX * 21 / 100) ; 10
 	ret nc
-	assert HP_YELLOW + 1 == HP_RED
-	inc d
+	inc d ; HP_RED
 	ret