From 8ab56853a2c5552634042ed900b09f2f62485e7d Mon Sep 17 00:00:00 2001
From: yenatch <yenatch@gmail.com>
Date: Thu, 5 Feb 2015 23:02:17 -0800
Subject: [PATCH] A bunch of bank 5c incbins.

---
 main.asm | 1053 +++++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 1001 insertions(+), 52 deletions(-)

diff --git a/main.asm b/main.asm
index 697f95db0..bd9caaa48 100644
--- a/main.asm
+++ b/main.asm
@@ -125620,6 +125620,9 @@ Function11d4aa: ; 11d4aa
 
 
 Unknown_11d4fe:
+; Pokemon sorted by kana.
+; Notably, Rhydon is missing.
+
 	dw Unknown_11d558
 	dw Unknown_11d55f
 	dw Unknown_11d565
@@ -127916,7 +127919,112 @@ Function170121: ; 170121
 	ret
 ; 170139
 
-INCBIN "baserom.gbc",$170139,$170215 - $170139
+Function170139: ; 170139
+	ld a, $5
+	call GetSRAMBank
+	ld de, $aa41
+	ld h, $0
+	ld l, h
+	ld bc, $03e8
+	call Function17020c
+	ld bc, $0064
+	call Function17020c
+	ld bc, $000a
+	call Function17020c
+	ld a, [de]
+	ld c, a
+	ld b, $0
+	add hl, bc
+	call CloseSRAM
+	ld a, h
+	ld [$c608], a
+	ld a, l
+	ld [$c609], a
+	ld hl, $c628
+	ld a, [PlayerID]
+	ld [hli], a
+	ld a, [$d47c]
+	ld [hli], a
+	ld a, [$d84a]
+	ld [hli], a
+	ld a, [$d84b]
+	ld [hli], a
+	ld e, l
+	ld d, h
+	ld hl, PlayerName
+	ld bc, $0005
+	call CopyBytes
+	ld bc, PlayerID
+	ld de, PlayerGender
+	callba Function4e929
+	ld de, $c631
+	ld a, c
+	ld [de], a
+	inc de
+	ld a, $df
+	ld [$cd49], a
+	ld a, $dc
+	ld [$cd4a], a
+	ld a, $41
+	ld [$cd4b], a
+	ld a, $de
+	ld [$cd4c], a
+	ld a, $3
+.asm_1701ac
+	push af
+	ld a, [$cd49]
+	ld l, a
+	ld a, [$cd4a]
+	ld h, a
+	ld bc, $0030
+	call CopyBytes
+	ld a, l
+	ld [$cd49], a
+	ld a, h
+	ld [$cd4a], a
+	ld a, [$cd4b]
+	ld l, a
+	ld a, [$cd4c]
+	ld h, a
+	ld bc, $0006
+	call CopyBytes
+	ld a, l
+	ld [$cd4b], a
+	ld a, h
+	ld [$cd4c], a
+	pop af
+	dec a
+	jr nz, .asm_1701ac
+	ld a, $4
+	call GetSRAMBank
+	ld hl, $a013
+	ld bc, $0024
+	call CopyBytes
+	call CloseSRAM
+	ld a, $5
+	call GetSRAMBank
+	ld hl, $a894
+	ld bc, $0006
+	call CopyBytes
+	ld hl, $c608
+	ld de, $a948
+	ld bc, $00f6
+	call CopyBytes
+	call CloseSRAM
+	ret
+; 17020c
+
+Function17020c: ; 17020c
+	ld a, [de]
+	inc de
+	and a
+	ret z
+.asm_170210
+	add hl, bc
+	dec a
+	jr nz, .asm_170210
+	ret
+; 170215
 
 Function170215: ; 170215
 	xor a
@@ -127951,8 +128059,8 @@ Function17022c: ; 17022c
 Function17023a: ; 17023a
 	ld a, [$cf63]
 	ld e, a
-	ld d, $0
-	ld hl, $4249
+	ld d, 0
+	ld hl, Jumptable_170249
 	add hl, de
 	add hl, de
 	ld a, [hli]
@@ -127961,7 +128069,275 @@ Function17023a: ; 17023a
 	jp [hl]
 ; 170249
 
-INCBIN "baserom.gbc", $170249, $17042c - $170249
+Jumptable_170249: ; 170249
+	dw Function17024d
+	dw Function1704c9
+; 17024d
+
+Function17024d: ; 17024d
+	ld a, [Options]
+	push af
+	ld hl, Options
+	set 6, [hl]
+	ld a, [$cfc0]
+	push af
+	or $1
+	ld [$cfc0], a
+	xor a
+	ld [InLinkBattle], a
+	callba Function1060a2
+	callba Functionc658
+	call Function1702b7
+	call Function170bf7
+	ld a, $16
+	call Predef
+	callba Function1500c
+	callba Functionc658
+	ld a, [$d0ee]
+	ld [ScriptVar], a
+	and a
+	jr nz, .asm_1702a9
+	ld a, $1
+	call GetSRAMBank
+	ld a, [$be46]
+	ld [$cf64], a
+	call CloseSRAM
+	ld hl, StringBuffer3
+	ld a, [$cf64]
+	add $f7
+	ld [hli], a
+	ld a, $50
+	ld [hl], a
+
+.asm_1702a9
+	pop af
+	ld [$cfc0], a
+	pop af
+	ld [Options], a
+	ld a, $1
+	ld [$cf63], a
+	ret
+; 1702b7
+
+Function1702b7: ; 1702b7
+	call Function1704a2
+	ld de, $c643
+	ld c, $b
+	callba Function17d073
+	jr nc, .asm_1702db
+	ld a, [$c613]
+	ld [$d265], a
+	call GetPokemonName
+	ld l, e
+	ld h, d
+	ld de, $c643
+	ld bc, $000b
+	call CopyBytes
+
+.asm_1702db
+	ld de, $c67e
+	ld c, $b
+	callba Function17d073
+	jr nc, .asm_1702fc
+	ld a, [$c64e]
+	ld [$d265], a
+	call GetPokemonName
+	ld l, e
+	ld h, d
+	ld de, $c67e
+	ld bc, $000b
+	call CopyBytes
+
+.asm_1702fc
+	ld de, $c6b9
+	ld c, $b
+	callba Function17d073
+	jr nc, .asm_17031d
+	ld a, [$c689]
+	ld [$d265], a
+	call GetPokemonName
+	ld l, e
+	ld h, d
+	ld de, $c6b9
+	ld bc, $000b
+	call CopyBytes
+
+.asm_17031d
+	ld a, $50
+	ld [$c64d], a
+	ld [$c688], a
+	ld [$c6c3], a
+	call Function170c98
+	ld de, $c608
+	ld c, $a
+	callba Function17d073
+	jr nc, .asm_17033d
+	ld hl, String_170426
+	jr .asm_170340
+
+.asm_17033d
+	ld hl, $c608
+
+.asm_170340
+	ld de, $d26b
+	ld bc, $000a
+	call CopyBytes
+	ld a, $50
+	ld [de], a
+	ld hl, $c612
+	ld a, [hli]
+	ld [OtherTrainerClass], a
+	ld a, $ea
+	ld [BGMapBuffer], a
+	ld a, $d3
+	ld [$cd21], a
+	ld de, OTPartyMon1Species
+	ld bc, OTPartyCount
+	ld a, $3
+	ld [bc], a
+	inc bc
+.asm_170367
+	push af
+	ld a, [hl]
+	ld [bc], a
+	inc bc
+	push bc
+	ld bc, $0030
+	call CopyBytes
+	push de
+	ld a, [BGMapBuffer]
+	ld e, a
+	ld a, [$cd21]
+	ld d, a
+	ld bc, $000b
+	call CopyBytes
+	ld a, e
+	ld [BGMapBuffer], a
+	ld a, d
+	ld [$cd21], a
+	pop de
+	pop bc
+	pop af
+	dec a
+	and a
+	jr nz, .asm_170367
+	ld a, $ff
+	ld [bc], a
+	ret
+; 170394
+
+Function170394: ; 170394
+	ld hl, $c613
+	ld d, $3
+.asm_170399
+	push de
+	push hl
+	ld b, h
+	ld c, l
+	ld a, [hl]
+	and a
+	jr z, .asm_1703b1
+	cp $ff
+	jr z, .asm_1703b1
+	cp $fe
+	jr z, .asm_1703b1
+	cp $fd
+	jr z, .asm_1703b1
+	cp $fc
+	jr nz, .asm_1703b4
+
+.asm_1703b1
+	ld a, $eb
+	ld [hl], a
+
+.asm_1703b4
+	ld [CurSpecies], a
+	call GetBaseData
+	ld a, $5
+	call GetSRAMBank
+	ld a, [$b2fb]
+	call CloseSRAM
+	ld e, a
+	ld hl, $001f
+	add hl, bc
+	ld a, [hl]
+	cp $2
+	ld a, $2
+	jr c, .asm_1703d6
+	ld a, [hl]
+	cp e
+	jr c, .asm_1703d7
+	ld a, e
+
+.asm_1703d6
+	ld [hl], a
+
+.asm_1703d7
+	ld [CurPartyLevel], a
+	ld hl, $0002
+	add hl, bc
+	ld d, $3
+	ld a, [hli]
+	and a
+	jr z, .asm_1703ea
+	cp $fc
+	jr nc, .asm_1703ea
+	jr .asm_1703f4
+
+.asm_1703ea
+	dec hl
+	ld a, $1
+	ld [hli], a
+	xor a
+	ld [hli], a
+	ld [hli], a
+	ld [hl], a
+	jr .asm_1703ff
+
+.asm_1703f4
+	ld a, [hl]
+	cp $fc
+	jr c, .asm_1703fb
+	ld [hl], $0
+
+.asm_1703fb
+	inc hl
+	dec d
+	jr nz, .asm_1703f4
+
+.asm_1703ff
+	ld hl, $0024
+	add hl, bc
+	ld d, h
+	ld e, l
+	push hl
+	push de
+	ld hl, $000a
+	add hl, bc
+	ld b, $1
+	ld a, $c
+	call Predef
+	pop de
+	pop hl
+	dec de
+	dec de
+	ld a, [hli]
+	ld [de], a
+	inc de
+	ld a, [hl]
+	ld [de], a
+	pop hl
+	ld bc, $003b
+	add hl, bc
+	pop de
+	dec d
+	jp nz, .asm_170399
+	ret
+; 170426
+
+String_170426: ; 170426
+	db "CHRIS@"
+; 17042c
 
 Function17042c: ; 17042c
 	ld hl, OTPartyMon2ID
@@ -127979,10 +128355,10 @@ Function17042c: ; 17042c
 	cp $f
 	jr nc, .asm_17045b
 	push hl
-	ld hl, $4470
+	ld hl, Unknown_170470
 	dec a
 	ld e, a
-	ld d, $0
+	ld d, 0
 	add hl, de
 	ld a, [hl]
 	pop hl
@@ -128018,7 +128394,54 @@ Function17042c: ; 17042c
 	ret
 ; 170470
 
-INCBIN "baserom.gbc", $170470, $1704e1 - $170470
+Unknown_170470:
+	db $12, $24, $45, $45, $42, $42, $45, $42, $27, $27, $45, $27, $42, $24
+
+Unknown_17047e:
+INCBIN "baserom.gbc", $17047e, $1704a2 - $17047e
+; 1704a2
+
+Function1704a2: ; 1704a2
+	ld a, [rSVBK]
+	push af
+	ld a, $3
+	ld [rSVBK], a
+	ld hl, LYOverrides
+	ld de, $c608
+	ld bc, $00e0
+	call CopyBytes
+	pop af
+	ld [rSVBK], a
+	ld a, $1
+	call GetSRAMBank
+	ld a, $2
+	ld [$be45], a
+	ld hl, $be46
+	inc [hl]
+	call CloseSRAM
+Function1704c9:
+	ret
+; 1704ca
+
+Function1704ca: ; 1704ca
+	ld a, [$be46]
+	cp $7
+	jr c, .asm_1704d3
+	ld a, $6
+
+.asm_1704d3
+	ld hl, $afce
+	ld de, -$e0
+.asm_1704d9
+	and a
+	jr z, .asm_1704e0
+	add hl, de
+	dec a
+	jr .asm_1704d9
+
+.asm_1704e0
+	ret
+; 1704e1
 
 Function1704e1: ; 1704e1
 	call SpeechTextBox
@@ -128049,8 +128472,8 @@ Function1704f1: ; 1704f1
 Function170510: ; 170510
 	ld a, [$cf63]
 	ld e, a
-	ld d, $0
-	ld hl, $451f
+	ld d, 0
+	ld hl, Jumptable_17051f
 	add hl, de
 	add hl, de
 	ld a, [hli]
@@ -128059,7 +128482,241 @@ Function170510: ; 170510
 	jp [hl]
 ; 17051f
 
-INCBIN "baserom.gbc",$17051f,$170687 - $17051f
+Jumptable_17051f: ; 17051f
+	dw Function170525
+	dw Function170571
+	dw Function170577
+; 170525
+
+Function170525: ; 170525
+	ld a, $5
+	call GetSRAMBank
+	ld hl, $a89c
+	ld de, StringBuffer3
+	ld bc, $0016
+	call CopyBytes
+	ld hl, $a8b2
+	ld de, $c608
+	ld bc, $0096
+	call CopyBytes
+	call CloseSRAM
+	ld hl, $c4b5
+	ld de, StringBuffer3
+	call PlaceString
+	ld hl, $c4dd
+	ld de, String_170676
+	call PlaceString
+	ld hl, $c4e0
+	ld de, StringBuffer4
+	call PlaceString
+	ld hl, $c4e4
+	ld de, String_17067a
+	call PlaceString
+	call Function1705b7
+	call Function1705f0
+	jr Function1705b2
+
+Function170571:
+	call Function32f9
+	call Function1705b2
+
+Function170577:
+	ld hl, hJoyPressed
+	ld a, [hl]
+	and $1
+	jr nz, .asm_1705ac
+	ld a, [hl]
+	and $2
+	jr nz, .asm_1705ac
+	ld a, [hl]
+	and $40
+	jr nz, .asm_17058f
+	ld a, [hl]
+	and $80
+	jr nz, .asm_17059d
+	ret
+
+.asm_17058f
+	ld a, [$cf64]
+	and a
+	ret z
+	sub $f
+	ld [$cf64], a
+	call Function1705f0
+	ret
+
+.asm_17059d
+	ld a, [$cf64]
+	cp $3c
+	ret z
+	add $f
+	ld [$cf64], a
+	call Function1705f0
+	ret
+
+.asm_1705ac
+	ld hl, $cf63
+	set 7, [hl]
+	ret
+
+Function1705b2:
+	ld hl, $cf63
+	inc [hl]
+	ret
+; 1705b7
+
+Function1705b7: ; 1705b7
+	ld hl, $c4f0
+	ld a, $79
+	ld [hli], a
+	ld c, $12
+.asm_1705bf
+	ld a, $7a
+	ld [hli], a
+	dec c
+	jr nz, .asm_1705bf
+	ld a, $7b
+	ld [hli], a
+	ld de, $0014
+	ld c, $c
+.asm_1705cd
+	ld a, $7c
+	ld [hl], a
+	add hl, de
+	dec c
+	jr nz, .asm_1705cd
+	ld a, $7d
+	ld [hli], a
+	ld c, $12
+.asm_1705d9
+	ld a, $7a
+	ld [hli], a
+	dec c
+	jr nz, .asm_1705d9
+	ld a, $7e
+	ld [hl], a
+	ld de, $ffec
+	add hl, de
+	ld c, $c
+.asm_1705e8
+	ld a, $7c
+	ld [hl], a
+	add hl, de
+	dec c
+	jr nz, .asm_1705e8
+	ret
+; 1705f0
+
+Function1705f0: ; 1705f0
+	call Function17064b
+	call Function17065d
+	ld a, $50
+	ld [$cd4e], a
+	ld hl, $c608
+	ld a, [$cf64]
+	ld c, a
+	xor a
+	ld b, a
+	add hl, bc
+	push hl
+	pop bc
+	ld hl, $c519
+	ld a, $6
+.asm_17060c
+	push af
+	push hl
+	ld a, $3
+.asm_170610
+	push af
+	ld de, $cd49
+	ld a, [bc]
+	and a
+	jr z, .asm_170625
+	ld a, $5
+.asm_17061a
+	push af
+	ld a, [bc]
+	ld [de], a
+	inc bc
+	inc de
+	pop af
+	dec a
+	jr nz, .asm_17061a
+	jr .asm_170631
+
+.asm_170625
+	ld a, $5
+.asm_170627
+	push af
+	ld a, $e3
+	ld [de], a
+	inc de
+	inc bc
+	pop af
+	dec a
+	jr nz, .asm_170627
+
+.asm_170631
+	ld de, $cd49
+	push bc
+	call PlaceString
+	ld de, $0006
+	add hl, de
+	pop bc
+	pop af
+	dec a
+	jr nz, .asm_170610
+	pop hl
+	ld de, $0028
+	add hl, de
+	pop af
+	dec a
+	jr nz, .asm_17060c
+	ret
+; 17064b
+
+Function17064b: ; 17064b
+	ld hl, $c505
+	xor a
+	ld b, $c
+.asm_170651
+	ld c, $12
+.asm_170653
+	ld [hli], a
+	dec c
+	jr nz, .asm_170653
+	inc hl
+	inc hl
+	dec b
+	jr nz, .asm_170651
+	ret
+; 17065d
+
+Function17065d: ; 17065d
+	ld a, [$cf64]
+	and a
+	jr z, .asm_170669
+	ld hl, $c516
+	ld a, $61
+	ld [hl], a
+
+.asm_170669
+	ld a, [$cf64]
+	cp $3c
+	ret z
+	ld hl, $c5f2
+	ld a, $ee
+	ld [hl], a
+	ret
+; 170676
+
+String_170676: ; 170676
+	db "ルーム@"
+; 17067a
+
+String_17067a: ; 17067a
+	db "れきだいりーダーいちらん@"
+; 170687
 
 Function170687: ; 170687
 	ld a, [ScriptVar]
@@ -128766,7 +129423,7 @@ Function170b44: ; 170b44
 	ld b, $0
 	pop af
 	ld [rSVBK], a
-	ld hl, $4b90
+	ld hl, Unknown_170b90
 	add hl, bc
 	ld a, [hl]
 	ld [$cd49], a
@@ -128795,6 +129452,7 @@ Function170b44: ; 170b44
 	ret
 ; 170b90
 
+Unknown_170b90:
 INCBIN "baserom.gbc",$170b90,$170bd2 - $170b90
 
 Function170bd2: ; 170bd2
@@ -128826,7 +129484,119 @@ Function170be4: ; 170be4
 	ret
 ; 170bf7
 
-INCBIN "baserom.gbc", $170bf7, $170c8b - $170bf7
+Function170bf7: ; 170bf7
+	ld a, $5
+	call GetSRAMBank
+	ld hl, $a89a
+	xor a
+	ld [hli], a
+	ld [hl], a
+	call CloseSRAM
+	ret
+; 170c06
+
+Function170c06: ; 170c06
+	ld a, $5
+	call GetSRAMBank
+	ld hl, $a894
+	ld a, [$d0ee]
+	and a
+	jr nz, .asm_170c15
+	inc [hl]
+
+.asm_170c15
+	inc hl
+	inc hl
+	ld a, [$a89b]
+	add [hl]
+	ld [hld], a
+	ld a, [$a89a]
+	adc [hl]
+	ld [hli], a
+	jr nc, .asm_170c27
+	ld a, $ff
+	ld [hld], a
+	ld [hli], a
+
+.asm_170c27
+	inc hl
+	push hl
+	ld de, 0
+	xor a
+	ld [$d265], a
+.asm_170c30
+	ld hl, PartyMon1HP
+	ld a, [$d265]
+	call GetPartyLocation
+	ld a, [hli]
+	ld b, a
+	ld c, [hl]
+	inc hl
+	inc hl
+	ld a, [hld]
+	sub c
+	ld c, a
+	ld a, [hl]
+	sbc b
+	ld b, a
+	push de
+	pop hl
+	add hl, bc
+	push hl
+	pop de
+	jr c, .asm_170c58
+	ld a, [$d265]
+	inc a
+	ld [$d265], a
+	cp $3
+	jr c, .asm_170c30
+	jr .asm_170c5b
+
+.asm_170c58
+	ld de, -1
+
+.asm_170c5b
+	pop hl
+	inc hl
+	ld a, e
+	add [hl]
+	ld [hld], a
+	ld a, d
+	adc [hl]
+	ld [hli], a
+	jr nc, .asm_170c69
+	ld a, $ff
+	ld [hld], a
+	ld [hli], a
+
+.asm_170c69
+	inc hl
+	push hl
+	ld b, $0
+	ld c, $0
+.asm_170c6f
+	ld hl, PartyMon1HP
+	ld a, b
+	push bc
+	call GetPartyLocation
+	pop bc
+	ld a, [hli]
+	or [hl]
+	jr nz, .asm_170c7d
+	inc c
+
+.asm_170c7d
+	inc b
+	ld a, b
+	cp $3
+	jr c, .asm_170c6f
+	pop hl
+	ld a, [hl]
+	add c
+	ld [hl], a
+	call CloseSRAM
+	ret
+; 170c8b
 
 Function170c8b: ; 170c8b
 	ld hl, LastPlayerCounterMove
@@ -128840,7 +129610,97 @@ Function170c8b: ; 170c8b
 	ret
 ; 170c98
 
-INCBIN "baserom.gbc",$170c98,$1719c8 - $170c98
+Function170c98: ; 170c98
+	ld c, $3
+	ld hl, $c615
+.asm_170c9d
+	push hl
+	ld a, [hl]
+	cp $fc
+	jr c, .asm_170ca6
+	ld a, $1
+	ld [hl], a
+
+.asm_170ca6
+	inc hl
+	ld b, $3
+.asm_170ca9
+	ld a, [hl]
+	and a
+	jr z, .asm_170cb1
+	cp $fc
+	jr c, .asm_170cb9
+
+.asm_170cb1
+	xor a
+	ld [hl], a
+	inc hl
+	dec b
+	jr nz, .asm_170cb1
+	jr .asm_170cbd
+
+.asm_170cb9
+	inc hl
+	dec b
+	jr nz, .asm_170ca9
+
+.asm_170cbd
+	pop hl
+	ld de, $003b
+	add hl, de
+	dec c
+	jr nz, .asm_170c9d
+	ret
+; 170cc6
+
+Function170cc6: ; 170cc6
+	ld a, [rSVBK]
+	push af
+	ld a, $6
+	ld [rSVBK], a
+	ld hl, LZ_170d16
+	ld de, $d000
+	call Decompress
+	ld a, $1
+	ld [rVBK], a
+	ld de, $d000
+	ld hl, VTiles0
+	lb bc, $6, $c1
+	call Get2bpp
+	xor a
+	ld [rVBK], a
+	ld hl, LZ_1715a4
+	ld de, $d000
+	call Decompress
+	ld de, Unkn1Pals
+	ld hl, VTiles0
+	lb bc, $6, $53
+	call Get2bpp
+	pop af
+	ld [rSVBK], a
+	ret
+; 170d02
+
+Function170d02: ; 170d02
+	ld a, $1
+	ld [rVBK], a
+	ld de, GFX_171848
+	ld hl, $8c10
+	lb bc, BANK(GFX_171848), $18
+	call Get2bpp
+	xor a
+	ld [rVBK], a
+	ret
+; 170d16
+
+LZ_170d16:
+INCBIN "baserom.gbc", $170d16, $1715a4 - $170d16
+
+LZ_1715a4:
+INCBIN "baserom.gbc", $1715a4, $171848 - $1715a4
+
+GFX_171848:
+INCBIN "baserom.gbc", $171848, $1719c8 - $171848
 
 Function1719c8: ; 1719c8 (5c:59c8)
 	ld a, [$ffaa]
@@ -128949,12 +129809,17 @@ Function171a5d: ; 171a5d (5c:5a5d)
 Function171a95: ; 171a95 (5c:5a95)
 	callba Function171ccd
 	hlcoord 2, 8
-	ld de, $5aa7
+	ld de, String_171aa7
 	call PlaceString
 	jp Function171c66
 ; 171aa7 (5c:5aa7)
 
-INCBIN "baserom.gbc",$171aa7,$171ac9 - $171aa7
+String_171aa7: ; 171aa7
+	db   "モバイルアダプタに"
+	next "せつぞく しています"
+	next "しばらく おまちください"
+	db   "@"
+; 171ac9
 
 Function171ac9: ; 171ac9 (5c:5ac9)
 	ld de, $cd81
@@ -129034,21 +129899,21 @@ Function171b42: ; 171b42 (5c:5b42)
 	jr Function171b42
 
 Function171b4b: ; 171b4b (5c:5b4b)
-	ld de, $4010
+	lb de, $40, $10
 	ld a, $1d
 	call Function3b2a
 	ld hl, $c
 	add hl, bc
 	ld a, $8
 	ld [hl], a
-	ld de, $4098
+	lb de, $40, $98
 	ld a, $1d
 	call Function3b2a
 	ld hl, $c
 	add hl, bc
 	ld a, $9
 	ld [hl], a
-	ld de, $8a70
+	lb de, $8a, $70
 	ld a, $1d
 	call Function3b2a
 	ld hl, $c
@@ -129131,13 +129996,13 @@ Function171beb: ; 171beb (5c:5beb)
 	ld a, [$cd4a]
 	ld [$aa4a], a
 	call CloseSRAM
-	ld hl, $5c6b
+	ld hl, MenuDataHeader_171c6b
 	call LoadMenuDataHeader
 	call Function1cbb
 	call Function1cfd
 	callba Function104061
 	hlcoord 1, 14
-	ld de, $5c73
+	ld de, String_171c73
 	call PlaceString
 	ld a, [$cd4a]
 	cp $2
@@ -129186,31 +130051,42 @@ Function171c66: ; 171c66 (5c:5c66)
 	ret
 ; 171c6b (5c:5c6b)
 
-INCBIN "baserom.gbc",$171c6b,$171c87 - $171c6b
+MenuDataHeader_171c6b: ; 171c6b
+	db $40 ; flags
+	db 12,  0 ; start coords
+	db 17, 19 ; end coords
+	dw NULL
+	db 0 ; default option
+; 171c73
+
+String_171c73: ; 171c73
+	db   "モバイルセンターを けってい"
+	next "しました@"
+; 171c87
 
 Function171c87: ; 171c87 (5c:5c87)
 	call DisableLCD
-	ld hl, $5db1
+	ld hl, GFX_171db1
 	ld de, $9000
 	ld bc, $6e0
 	call CopyBytes
-	ld hl, $6abd
+	ld hl, LZ_172abd
 	ld de, $8000
 	call Decompress
 	call EnableLCD
-	ld hl, $6491
+	ld hl, Tilemap_172491
 	ld de, TileMap ; $c4a0 (aliases: SpritesEnd)
 	ld bc, $168
 	call CopyBytes
-	ld hl, $67ed
+	ld hl, Attrmap_1727ed
 	ld de, AttrMap ; $cdd9
 	ld bc, $168
 	call CopyBytes
 	hlcoord 3, 2
-	ld de, $6e31
+	ld de, String_172e31
 	call PlaceString
 	hlcoord 3, 16
-	ld de, $6e3f
+	ld de, String_172e3f
 	call PlaceString
 	ret
 
@@ -129219,7 +130095,7 @@ Function171ccd: ; 171ccd (5c:5ccd)
 	push af
 	ld a, $5
 	ld [rSVBK], a ; $ff00+$70
-	ld hl, $5d71
+	ld hl, Palette_171d71
 	ld de, Unkn1Pals ; $d000
 	ld bc, $40
 	call CopyBytes
@@ -129243,50 +130119,81 @@ Function171cf0: ; 171cf0 (5c:5cf0)
 	ld [$cd4b], a
 	and a
 	jr nz, .asm_171d16
-	ld hl, $651d
+	ld hl, Tilemap_17251d
 	decoord 0, 7
 	ld bc, $8c
 	call CopyBytes
 	hlcoord 3, 16
-	ld de, $6e3f
+	ld de, String_172e3f
 	jp PlaceString
 .asm_171d16
-	ld hl, $65f9
+	ld hl, Tilemap_1725f9
 	decoord 0, 7
 	ld bc, $8c
 	call CopyBytes
 	hlcoord 3, 16
-	ld de, $6e4e
+	ld de, String_172e4e
 	jp PlaceString
 
 Function171d2b: ; 171d2b (5c:5d2b)
 	call DisableLCD
-	ld hl, $5db1
+	ld hl, GFX_171db1
 	ld de, $9000
 	ld bc, $6e0
 	call CopyBytes
-	ld hl, $6abd
+	ld hl, LZ_172abd
 	ld de, $8000
 	call Decompress
 	call EnableLCD
-	ld hl, $6685
+	ld hl, Tilemap_172685
 	ld de, TileMap ; $c4a0 (aliases: SpritesEnd)
 	ld bc, $168
 	call CopyBytes
-	ld hl, $6955
+	ld hl, Attrmap_172955
 	ld de, AttrMap ; $cdd9
 	ld bc, $168
 	call CopyBytes
 	hlcoord 2, 2
-	ld de, $6e5d
+	ld de, String_172e5d
 	call PlaceString
 	hlcoord 14, 16
-	ld de, $6e58
+	ld de, String_172e58
 	call PlaceString
 	ret
 ; 171d71 (5c:5d71)
 
-INCBIN "baserom.gbc",$171d71,$172e78 - $171d71
+Palette_171d71:
+INCBIN "baserom.gbc", $171d71, $171db1 - $171d71
+GFX_171db1:
+INCBIN "baserom.gbc", $171db1, $172491 - $171db1
+Tilemap_172491:
+INCBIN "baserom.gbc", $172491, $17251d - $172491
+Tilemap_17251d:
+INCBIN "baserom.gbc", $17251d, $1725f9 - $17251d
+Tilemap_1725f9:
+INCBIN "baserom.gbc", $1725f9, $172685 - $1725f9
+Tilemap_172685:
+INCBIN "baserom.gbc", $172685, $1727ed - $172685
+Attrmap_1727ed:
+INCBIN "baserom.gbc", $1727ed, $172955 - $1727ed
+Attrmap_172955:
+INCBIN "baserom.gbc", $172955, $172abd - $172955
+LZ_172abd:
+INCBIN "gfx/pokedex/slowpoke.2bpp.lz"
+
+String_172e31: ; 172e31
+	db "パスワード", $1f, "いれてください@"
+String_172e3f: ; 172e3f
+	db "きりかえ やめる  けってい@"
+String_172e4e: ; 172e4e
+	db "きりかえ やめる  "
+String_172e58:
+	db "けってい@"
+String_172e5d: ; 172e5d
+	db "せつぞくする モバイルセンターを"
+	next "えらんで ください@"
+; 172e78
+
 
 Function172e78: ; 172e78 (5c:6e78)
 	ld a, $7f
@@ -129298,16 +130205,16 @@ Function172e78: ; 172e78 (5c:6e78)
 	ld bc, $168
 	call ByteFill
 	call DisableLCD
-	ld hl, $6f1f
+	ld hl, GFX_172f1f
 	ld de, $9000
 	ld bc, $610
 	call CopyBytes
 	call EnableLCD
-	ld hl, $73af
+	ld hl, Tilemap_1733af
 	ld de, TileMap ; $c4a0 (aliases: SpritesEnd)
 	ld bc, $168
 	call CopyBytes
-	ld hl, $7517
+	ld hl, Attrmap_173517
 	ld de, AttrMap ; $cdd9
 	ld bc, $168
 	call CopyBytes
@@ -129319,11 +130226,11 @@ Function172eb9:
 	push af
 	ld a, $5
 	ld [rSVBK], a ; $ff00+$70
-	ld hl, $6edf
+	ld hl, Palette_172edf
 	ld de, Unkn1Pals ; $d000
 	ld bc, $40
 	call CopyBytes
-	ld hl, $6edf
+	ld hl, Palette_172edf
 	ld de, BGPals ; $d080
 	ld bc, $40
 	call CopyBytes
@@ -129333,7 +130240,17 @@ Function172eb9:
 	ret
 ; 172edf (5c:6edf)
 
-INCBIN "baserom.gbc",$172edf,$17367f - $172edf
+Palette_172edf:
+INCBIN "baserom.gbc",$172edf,$172f1f - $172edf
+
+GFX_172f1f:
+INCBIN "baserom.gbc",$172f1f,$1733af - $172f1f
+
+Tilemap_1733af:
+INCBIN "baserom.gbc",$1733af,$173517 - $1733af
+
+Attrmap_173517:
+INCBIN "baserom.gbc",$173517,$17367f - $173517
 
 
 SECTION "bank5D", ROMX, BANK[$5D]
@@ -129606,23 +130523,25 @@ Function17d0f3: ; 17d0f3
 ; 17d187
 
 Function17d187: ; 17d187
-	ld hl, $5194
+	ld hl, Unknown_17d194
 	ld de, $c63d
 	ld bc, $0005
 	call CopyBytes
 	ret
 ; 17d194
 
+Unknown_17d194:
 INCBIN "baserom.gbc", $17d194, $17d199 - $17d194
 
 Function17d199: ; 17d199
-	ld hl, $51a6
+	ld hl, Unknown_17d1a6
 	ld de, $c642
 	ld bc, $0005
 	call CopyBytes
 	ret
 ; 17d1a6
 
+Unknown_17d1a6:
 INCBIN "baserom.gbc", $17d1a6, $17d1ab - $17d1a6
 
 Function17d1ab: ; 17d1ab
@@ -129630,13 +130549,14 @@ Function17d1ab: ; 17d1ab
 	ld hl, $c647
 	ld bc, $0021
 	call ByteFill
-	ld hl, $51c3
+	ld hl, Unknown_17d1c3
 	ld de, $c647
 	ld bc, $0006
 	call CopyBytes
 	ret
 ; 17d1c3
 
+Unknown_17d1c3:
 INCBIN "baserom.gbc", $17d1c3, $17d1c9 - $17d1c3
 
 Function17d1c9: ; 17d1c9
@@ -129644,7 +130564,7 @@ Function17d1c9: ; 17d1c9
 	ld de, $c668
 	ld bc, $0005
 	call ByteFill
-	ld hl, $5194
+	ld hl, Unknown_17d194
 	ld de, $c668
 	ld bc, $0005
 	call CopyBytes
@@ -129704,13 +130624,13 @@ Function17d224: ; 17d224
 	jr nz, .asm_17d234
 	ld a, $4
 	ld [ScriptVar], a
-	ld hl, $526a
+	ld hl, MenuDataHeader_17d26a
 	jr .asm_17d23c
 
 .asm_17d234
 	ld a, $4
 	ld [ScriptVar], a
-	ld hl, $528f
+	ld hl, MenuDataHeader_17d28f
 
 .asm_17d23c
 	call LoadMenuDataHeader
@@ -129745,7 +130665,36 @@ Function17d246: ; 17d246
 	ret
 ; 17d26a
 
-INCBIN "baserom.gbc",$17d26a,$17d2b6 - $17d26a
+MenuDataHeader_17d26a: ; 17d26a
+	db $40 ; flags
+	db  0,  0 ; start coords
+	db  9, 14 ; end coords
+	dw MenuData2_17d272
+	db 1 ; default option
+
+MenuData2_17d272: ; 17d272
+	db $a0 ; flags
+	db 4
+	db "ニュース", $1f, "よみこむ@"
+	db "ニュース", $1f, "みる@"
+	db "せつめい@"
+	db "やめる@"
+; 17d28f
+
+MenuDataHeader_17d28f: ; 17d28f
+	db $40 ; flags
+	db  0,  0 ; start coords
+	db  7, 14 ; end coords
+	dw MenuData2_17d297
+	db 1 ; default option
+
+MenuData2_17d297: ; 17d297
+	db $a0 ; flags
+	db 3
+	db "Challenge@"
+	db "Explanation@"
+	db "Cancel@"
+; 17d2b6
 
 Function17d2b6: ; 17d2b6
 	call Function17d2c0