decompile more pokedex functions (#65)

* decompile more pokedex functions

* use spaces instead of tabs

* mostly fix up sub_808D690

* fix sub_808DBE8

* decompile sub_808E398

2 files changed, 681 insertions, 2146 deletions

diff --git a/asm/rom5_part2.s b/asm/rom5_part2.s
index c347a0069..acc4a5309 100644
--- a/asm/rom5_part2.s
+++ b/asm/rom5_part2.s
@@ -6,2146 +6,6 @@
 
 	.text
 
-	thumb_func_start sub_808D344
-sub_808D344: @ 808D344
-	push {r4-r6,lr}
-	sub sp, 0x8
-	lsls r0, 24
-	lsrs r5, r0, 24
-	ldr r1, _0808D364
-	ldr r2, _0808D368
-	adds r0, r1, r2
-	ldrb r0, [r0]
-	adds r3, r1, 0
-	cmp r0, 0x6
-	bhi _0808D38C
-	lsls r0, 2
-	ldr r1, _0808D36C
-	adds r0, r1
-	ldr r0, [r0]
-	mov pc, r0
-	.align 2, 0
-_0808D364: .4byte gMain
-_0808D368: .4byte 0x0000043c
-_0808D36C: .4byte _0808D370
-	.align 2, 0
-_0808D370:
-	.4byte _0808D38C
-	.4byte _0808D49C
-	.4byte _0808D4D8
-	.4byte _0808D50C
-	.4byte _0808D564
-	.4byte _0808D590
-	.4byte _0808D610
-_0808D38C:
-	ldr r0, _0808D3FC
-	ldrb r1, [r0, 0x7]
-	movs r0, 0x80
-	ands r0, r1
-	lsls r0, 24
-	lsrs r6, r0, 24
-	cmp r6, 0
-	beq _0808D39E
-	b _0808D634
-_0808D39E:
-	movs r0, 0
-	bl SetVBlankCallback
-	ldr r4, _0808D400
-	ldr r0, [r4]
-	ldr r1, _0808D404
-	adds r0, r1
-	strb r5, [r0]
-	movs r0, 0
-	bl sub_8091060
-	ldr r1, _0808D408
-	ldr r0, [r4]
-	ldr r2, _0808D40C
-	adds r0, r2
-	ldrb r0, [r0]
-	strh r0, [r1]
-	ldr r0, _0808D410
-	movs r1, 0xC0
-	lsls r1, 19
-	bl LZ77UnCompVram
-	ldr r0, _0808D414
-	ldr r1, _0808D418
-	bl LZ77UnCompVram
-	ldr r0, _0808D41C
-	ldr r1, _0808D420
-	bl LZ77UnCompVram
-	ldr r1, _0808D424
-	add r0, sp, 0x4
-	strh r6, [r0]
-	ldr r0, _0808D428
-	add r2, sp, 0x4
-	str r2, [r0]
-	str r1, [r0, 0x4]
-	ldr r1, _0808D42C
-	str r1, [r0, 0x8]
-	ldr r0, [r0, 0x8]
-	cmp r5, 0
-	bne _0808D438
-	ldr r0, _0808D430
-	ldr r1, _0808D434
-	bl LZ77UnCompVram
-	b _0808D440
-	.align 2, 0
-_0808D3FC: .4byte gPaletteFade
-_0808D400: .4byte gUnknown_0202FFB4
-_0808D404: .4byte 0x0000064a
-_0808D408: .4byte REG_BG2VOFS
-_0808D40C: .4byte 0x0000062d
-_0808D410: .4byte gPokedexMenu_Gfx
-_0808D414: .4byte gUnknown_08E96738
-_0808D418: .4byte 0x06006800
-_0808D41C: .4byte gUnknown_08E9C6DC
-_0808D420: .4byte 0x06007800
-_0808D424: .4byte 0x06006000
-_0808D428: .4byte 0x040000d4
-_0808D42C: .4byte 0x81000280
-_0808D430: .4byte gUnknown_08E96888
-_0808D434: .4byte 0x06006500
-_0808D438:
-	ldr r0, _0808D45C
-	ldr r1, _0808D460
-	bl LZ77UnCompVram
-_0808D440:
-	bl ResetPaletteFade
-	cmp r5, 0
-	bne _0808D46C
-	ldr r0, _0808D464
-	ldr r1, [r0]
-	ldr r0, _0808D468
-	adds r1, r0
-	ldrb r2, [r1]
-	movs r0, 0x2
-	negs r0, r0
-	ands r0, r2
-	b _0808D47A
-	.align 2, 0
-_0808D45C: .4byte gUnknown_08E96994
-_0808D460: .4byte 0x06006500
-_0808D464: .4byte gUnknown_0202FFB4
-_0808D468: .4byte 0x0000064c
-_0808D46C:
-	ldr r0, _0808D48C
-	ldr r1, [r0]
-	ldr r2, _0808D490
-	adds r1, r2
-	ldrb r0, [r1]
-	movs r2, 0x1
-	orrs r0, r2
-_0808D47A:
-	strb r0, [r1]
-	bl sub_808D640
-	ldr r0, _0808D494
-	ldr r1, _0808D498
-	adds r0, r1
-	movs r1, 0x1
-	strb r1, [r0]
-	b _0808D634
-	.align 2, 0
-_0808D48C: .4byte gUnknown_0202FFB4
-_0808D490: .4byte 0x0000064c
-_0808D494: .4byte gMain
-_0808D498: .4byte 0x0000043c
-_0808D49C:
-	bl ResetSpriteData
-	bl FreeAllSpritePalettes
-	ldr r1, _0808D4C4
-	movs r0, 0x8
-	strb r0, [r1]
-	ldr r0, _0808D4C8
-	bl LoadCompressedObjectPic
-	ldr r0, _0808D4CC
-	bl LoadSpritePalettes
-	adds r0, r5, 0
-	bl sub_808E978
-	ldr r1, _0808D4D0
-	ldr r2, _0808D4D4
-	adds r1, r2
-	b _0808D5E4
-	.align 2, 0
-_0808D4C4: .4byte gReservedSpritePaletteCount
-_0808D4C8: .4byte gUnknown_083A05CC
-_0808D4CC: .4byte gUnknown_083A05DC
-_0808D4D0: .4byte gMain
-_0808D4D4: .4byte 0x0000043c
-_0808D4D8:
-	ldr r4, _0808D4F8
-	adds r0, r4, 0
-	bl SetUpWindowConfig
-	adds r0, r4, 0
-	bl InitMenuWindow
-	ldr r0, _0808D4FC
-	ldr r1, _0808D500
-	bl LZ77UnCompVram
-	ldr r1, _0808D504
-	ldr r0, _0808D508
-	adds r1, r0
-	b _0808D5E4
-	.align 2, 0
-_0808D4F8: .4byte gWindowConfig_81E7048
-_0808D4FC: .4byte gUnknown_0839FA7C
-_0808D500: .4byte 0x0600ff80
-_0808D504: .4byte gMain
-_0808D508: .4byte 0x0000043c
-_0808D50C:
-	cmp r5, 0
-	bne _0808D524
-	ldr r0, _0808D550
-	ldr r1, [r0]
-	ldr r2, _0808D554
-	adds r0, r1, r2
-	ldrb r0, [r0]
-	adds r2, 0x4
-	adds r1, r2
-	ldrb r1, [r1]
-	bl sub_808D690
-_0808D524:
-	ldr r4, _0808D550
-	ldr r0, [r4]
-	ldr r1, _0808D558
-	adds r0, r1
-	ldrh r0, [r0]
-	movs r1, 0xE
-	bl sub_808E0CC
-	ldr r0, [r4]
-	movs r2, 0xCA
-	lsls r2, 3
-	adds r0, r2
-	movs r1, 0
-	strb r1, [r0]
-	ldr r0, [r4]
-	adds r2, 0x4
-	adds r0, r2
-	strh r1, [r0]
-	ldr r1, _0808D55C
-	ldr r0, _0808D560
-	adds r1, r0
-	b _0808D5E4
-	.align 2, 0
-_0808D550: .4byte gUnknown_0202FFB4
-_0808D554: .4byte 0x00000612
-_0808D558: .4byte 0x0000060e
-_0808D55C: .4byte gMain
-_0808D560: .4byte 0x0000043c
-_0808D564:
-	movs r0, 0x1
-	negs r0, r0
-	movs r1, 0
-	str r1, [sp]
-	movs r2, 0x10
-	movs r3, 0
-	bl BeginNormalPaletteFade
-	ldr r0, _0808D584
-	bl SetVBlankCallback
-	ldr r1, _0808D588
-	ldr r2, _0808D58C
-	adds r1, r2
-	b _0808D5E4
-	.align 2, 0
-_0808D584: .4byte sub_808C0B8
-_0808D588: .4byte gMain
-_0808D58C: .4byte 0x0000043c
-_0808D590:
-	ldr r1, _0808D5EC
-	ldr r2, _0808D5F0
-	adds r0, r2, 0
-	strh r0, [r1]
-	adds r1, 0x2
-	ldr r2, _0808D5F4
-	adds r0, r2, 0
-	strh r0, [r1]
-	ldr r0, _0808D5F8
-	movs r1, 0
-	strh r1, [r0]
-	adds r0, 0x4
-	strh r1, [r0]
-	subs r0, 0x2
-	strh r1, [r0]
-	adds r0, 0x4
-	strh r1, [r0]
-	adds r0, 0xA
-	strh r1, [r0]
-	adds r0, 0x2
-	strh r1, [r0]
-	adds r0, 0x2
-	strh r1, [r0]
-	ldr r1, _0808D5FC
-	ldr r2, _0808D600
-	adds r0, r2, 0
-	strh r0, [r1]
-	subs r1, 0x4
-	ldr r2, _0808D604
-	adds r0, r2, 0
-	strh r0, [r1]
-	subs r1, 0x2
-	movs r2, 0xC0
-	lsls r2, 4
-	adds r0, r2, 0
-	strh r0, [r1]
-	subs r1, 0x8
-	ldr r2, _0808D608
-	adds r0, r2, 0
-	strh r0, [r1]
-	ldr r0, _0808D60C
-	adds r1, r3, r0
-_0808D5E4:
-	ldrb r0, [r1]
-	adds r0, 0x1
-	strb r0, [r1]
-	b _0808D634
-	.align 2, 0
-_0808D5EC: .4byte REG_WININ
-_0808D5F0: .4byte 0x00003f3f
-_0808D5F4: .4byte 0x00001d3f
-_0808D5F8: .4byte REG_WIN0H
-_0808D5FC: .4byte REG_BG3CNT
-_0808D600: .4byte 0x00000f03
-_0808D604: .4byte 0x00000d01
-_0808D608: .4byte 0x00009f40
-_0808D60C: .4byte 0x0000043c
-_0808D610:
-	ldr r0, _0808D62C
-	ldrb r1, [r0, 0x7]
-	movs r0, 0x80
-	ands r0, r1
-	lsls r0, 24
-	lsrs r2, r0, 24
-	cmp r2, 0
-	bne _0808D634
-	ldr r1, _0808D630
-	adds r0, r3, r1
-	strb r2, [r0]
-	movs r0, 0x1
-	b _0808D636
-	.align 2, 0
-_0808D62C: .4byte gPaletteFade
-_0808D630: .4byte 0x0000043c
-_0808D634:
-	movs r0, 0
-_0808D636:
-	add sp, 0x8
-	pop {r4-r6}
-	pop {r1}
-	bx r1
-	thumb_func_end sub_808D344
-
-	thumb_func_start sub_808D640
-sub_808D640: @ 808D640
-	push {lr}
-	ldr r0, _0808D658
-	ldr r0, [r0]
-	ldr r1, _0808D65C
-	adds r0, r1
-	ldrb r1, [r0]
-	movs r0, 0x1
-	ands r0, r1
-	cmp r0, 0
-	beq _0808D664
-	ldr r0, _0808D660
-	b _0808D66E
-	.align 2, 0
-_0808D658: .4byte gUnknown_0202FFB4
-_0808D65C: .4byte 0x0000064c
-_0808D660: .4byte gUnknown_0839F67C + 0x2
-_0808D664:
-	bl sub_806912C
-	cmp r0, 0
-	bne _0808D67C
-	ldr r0, _0808D678
-_0808D66E:
-	movs r1, 0x1
-	movs r2, 0xBE
-	bl LoadPalette
-	b _0808D686
-	.align 2, 0
-_0808D678: .4byte gPokedexMenu_Pal + 0x2
-_0808D67C:
-	ldr r0, _0808D68C
-	movs r1, 0x1
-	movs r2, 0xBE
-	bl LoadPalette
-_0808D686:
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0808D68C: .4byte gUnknown_0839F73C + 0x2
-	thumb_func_end sub_808D640
-
-	thumb_func_start sub_808D690
-sub_808D690: @ 808D690
-	push {r4-r7,lr}
-	mov r7, r10
-	mov r6, r9
-	mov r5, r8
-	push {r5-r7}
-	sub sp, 0x8
-	lsls r0, 24
-	lsrs r4, r0, 24
-	lsls r1, 24
-	lsrs r6, r1, 24
-	ldr r0, _0808D6C4
-	ldr r0, [r0]
-	ldr r1, _0808D6C8
-	adds r0, r1
-	movs r5, 0
-	strh r5, [r0]
-	cmp r4, 0
-	beq _0808D6B8
-	cmp r4, 0x1
-	beq _0808D6CC
-_0808D6B8:
-	mov r1, sp
-	movs r0, 0xCA
-	strh r0, [r1]
-	movs r0, 0x1
-	strh r0, [r1, 0x2]
-	b _0808D6E8
-	.align 2, 0
-_0808D6C4: .4byte gUnknown_0202FFB4
-_0808D6C8: .4byte 0x0000060c
-_0808D6CC:
-	bl sub_806912C
-	cmp r0, 0
-	beq _0808D6E0
-	mov r0, sp
-	movs r1, 0xC1
-	lsls r1, 1
-	strh r1, [r0]
-	strh r5, [r0, 0x2]
-	b _0808D6E8
-_0808D6E0:
-	mov r0, sp
-	movs r1, 0xCA
-	strh r1, [r0]
-	strh r4, [r0, 0x2]
-_0808D6E8:
-	cmp r6, 0x5
-	bls _0808D6EE
-	b _0808DB70
-_0808D6EE:
-	lsls r0, r6, 2
-	ldr r1, _0808D6F8
-	adds r0, r1
-	ldr r0, [r0]
-	mov pc, r0
-	.align 2, 0
-_0808D6F8: .4byte _0808D6FC
-	.align 2, 0
-_0808D6FC:
-	.4byte _0808D714
-	.4byte _0808D888
-	.4byte _0808D934
-	.4byte _0808D9C4
-	.4byte _0808DA5C
-	.4byte _0808DAEC
-_0808D714:
-	mov r0, sp
-	ldrh r0, [r0, 0x2]
-	cmp r0, 0
-	beq _0808D7BC
-	movs r4, 0
-	mov r0, sp
-	ldrh r0, [r0]
-	cmp r4, r0
-	blt _0808D728
-	b _0808DB70
-_0808D728:
-	mov r5, sp
-	ldr r2, _0808D7B4
-	mov r8, r2
-	movs r3, 0x1
-	mov r9, r3
-_0808D732:
-	lsls r4, 16
-	asrs r4, 16
-	adds r7, r4, 0x1
-	mov r10, r7
-	lsls r0, r7, 16
-	lsrs r6, r0, 16
-	adds r0, r6, 0
-	bl HoennToNationalOrder
-	strh r0, [r5, 0x4]
-	mov r2, r8
-	ldr r1, [r2]
-	lsls r4, 2
-	adds r1, r4
-	strh r0, [r1]
-	ldrh r0, [r5, 0x4]
-	movs r1, 0
-	bl sub_8090D90
-	mov r3, r8
-	ldr r2, [r3]
-	adds r2, r4
-	mov r3, r9
-	ands r3, r0
-	ldrb r0, [r2, 0x2]
-	movs r7, 0x2
-	negs r7, r7
-	adds r1, r7, 0
-	ands r0, r1
-	orrs r0, r3
-	strb r0, [r2, 0x2]
-	ldrh r0, [r5, 0x4]
-	movs r1, 0x1
-	bl sub_8090D90
-	mov r1, r8
-	ldr r3, [r1]
-	adds r3, r4
-	mov r2, r9
-	ands r2, r0
-	lsls r2, 1
-	ldrb r0, [r3, 0x2]
-	subs r7, 0x1
-	adds r1, r7, 0
-	ands r0, r1
-	orrs r0, r2
-	strb r0, [r3, 0x2]
-	mov r0, r8
-	ldr r1, [r0]
-	adds r4, r1, r4
-	ldrb r0, [r4, 0x2]
-	lsls r0, 31
-	cmp r0, 0
-	beq _0808D7A6
-	ldr r2, _0808D7B8
-	adds r0, r1, r2
-	mov r3, r10
-	strh r3, [r0]
-_0808D7A6:
-	adds r4, r6, 0
-	lsls r0, r4, 16
-	asrs r0, 16
-	ldrh r7, [r5]
-	cmp r0, r7
-	blt _0808D732
-	b _0808DB70
-	.align 2, 0
-_0808D7B4: .4byte gUnknown_0202FFB4
-_0808D7B8: .4byte 0x0000060c
-_0808D7BC:
-	movs r4, 0
-	movs r5, 0
-	mov r10, r5
-	mov r0, sp
-	ldrh r0, [r0]
-	cmp r4, r0
-	blt _0808D7CC
-	b _0808DB70
-_0808D7CC:
-	mov r6, sp
-	ldr r0, _0808D880
-	mov r8, r0
-	movs r1, 0x1
-	mov r9, r1
-_0808D7D6:
-	lsls r4, 16
-	asrs r0, r4, 16
-	adds r0, 0x1
-	strh r0, [r6, 0x4]
-	ldrh r0, [r6, 0x4]
-	movs r1, 0
-	bl sub_8090D90
-	lsls r0, 24
-	adds r7, r4, 0
-	cmp r0, 0
-	beq _0808D7F2
-	movs r2, 0x1
-	mov r10, r2
-_0808D7F2:
-	mov r3, r10
-	cmp r3, 0
-	beq _0808D86E
-	mov r4, r8
-	ldr r1, [r4]
-	lsls r0, r5, 16
-	asrs r5, r0, 16
-	lsls r4, r5, 2
-	adds r1, r4
-	ldrh r0, [r6, 0x4]
-	strh r0, [r1]
-	ldrh r0, [r6, 0x4]
-	movs r1, 0
-	bl sub_8090D90
-	mov r1, r8
-	ldr r2, [r1]
-	adds r2, r4
-	mov r3, r9
-	ands r3, r0
-	mov r12, r3
-	ldrb r0, [r2, 0x2]
-	movs r3, 0x2
-	negs r3, r3
-	adds r1, r3, 0
-	ands r0, r1
-	mov r1, r12
-	orrs r0, r1
-	strb r0, [r2, 0x2]
-	ldrh r0, [r6, 0x4]
-	movs r1, 0x1
-	bl sub_8090D90
-	mov r2, r8
-	ldr r3, [r2]
-	adds r3, r4
-	mov r2, r9
-	ands r2, r0
-	lsls r2, 1
-	mov r12, r2
-	ldrb r0, [r3, 0x2]
-	movs r2, 0x3
-	negs r2, r2
-	adds r1, r2, 0
-	ands r0, r1
-	mov r1, r12
-	orrs r0, r1
-	strb r0, [r3, 0x2]
-	mov r3, r8
-	ldr r2, [r3]
-	adds r4, r2, r4
-	ldrb r0, [r4, 0x2]
-	lsls r0, 31
-	cmp r0, 0
-	beq _0808D868
-	adds r1, r5, 0x1
-	ldr r4, _0808D884
-	adds r0, r2, r4
-	strh r1, [r0]
-_0808D868:
-	adds r0, r5, 0x1
-	lsls r0, 16
-	lsrs r5, r0, 16
-_0808D86E:
-	movs r1, 0x80
-	lsls r1, 9
-	adds r0, r7, r1
-	lsrs r4, r0, 16
-	asrs r0, 16
-	ldrh r2, [r6]
-	cmp r0, r2
-	blt _0808D7D6
-	b _0808DB70
-	.align 2, 0
-_0808D880: .4byte gUnknown_0202FFB4
-_0808D884: .4byte 0x0000060c
-_0808D888:
-	movs r4, 0
-	mov r5, sp
-	ldr r3, _0808D928
-	mov r8, r3
-	ldr r6, _0808D92C
-	movs r7, 0x1
-	mov r9, r7
-_0808D896:
-	ldr r1, _0808D930
-	lsls r4, 16
-	asrs r0, r4, 15
-	adds r0, r1
-	ldrh r0, [r0]
-	strh r0, [r5, 0x4]
-	ldrh r0, [r5, 0x4]
-	bl NationalToHoennOrder
-	lsls r0, 16
-	lsrs r0, 16
-	adds r7, r4, 0
-	ldrh r1, [r5]
-	cmp r0, r1
-	bhi _0808D914
-	ldrh r0, [r5, 0x4]
-	movs r1, 0
-	bl sub_8090D90
-	lsls r0, 24
-	cmp r0, 0
-	beq _0808D914
-	mov r3, r8
-	ldr r2, [r3]
-	adds r3, r2, r6
-	ldrh r0, [r3]
-	lsls r0, 2
-	adds r0, r2, r0
-	ldrh r1, [r5, 0x4]
-	strh r1, [r0]
-	ldrh r0, [r3]
-	lsls r0, 2
-	adds r2, r0
-	ldrb r0, [r2, 0x2]
-	mov r4, r9
-	orrs r0, r4
-	strb r0, [r2, 0x2]
-	ldrh r0, [r5, 0x4]
-	movs r1, 0x1
-	bl sub_8090D90
-	mov r1, r8
-	ldr r3, [r1]
-	adds r1, r3, r6
-	ldrh r1, [r1]
-	lsls r1, 2
-	adds r3, r1
-	mov r2, r9
-	ands r2, r0
-	lsls r2, 1
-	ldrb r0, [r3, 0x2]
-	movs r4, 0x3
-	negs r4, r4
-	adds r1, r4, 0
-	ands r0, r1
-	orrs r0, r2
-	strb r0, [r3, 0x2]
-	mov r0, r8
-	ldr r1, [r0]
-	adds r1, r6
-	ldrh r0, [r1]
-	adds r0, 0x1
-	strh r0, [r1]
-_0808D914:
-	movs r2, 0x80
-	lsls r2, 9
-	adds r1, r7, r2
-	lsrs r4, r1, 16
-	movs r0, 0xCD
-	lsls r0, 17
-	cmp r1, r0
-	ble _0808D896
-	b _0808DB70
-	.align 2, 0
-_0808D928: .4byte gUnknown_0202FFB4
-_0808D92C: .4byte 0x0000060c
-_0808D930: .4byte gPokedexOrder_Alphabetical
-_0808D934:
-	ldr r4, _0808D9B0
-	lsls r0, r4, 16
-	mov r5, sp
-	ldr r7, _0808D9B4
-	ldr r6, _0808D9B8
-_0808D93E:
-	ldr r1, _0808D9BC
-	asrs r0, 15
-	adds r0, r1
-	ldrh r0, [r0]
-	strh r0, [r5, 0x4]
-	ldrh r0, [r5, 0x4]
-	bl NationalToHoennOrder
-	lsls r0, 16
-	lsrs r0, 16
-	ldrh r3, [r5]
-	cmp r0, r3
-	bhi _0808D99E
-	ldrh r0, [r5, 0x4]
-	movs r1, 0x1
-	bl sub_8090D90
-	lsls r0, 24
-	cmp r0, 0
-	beq _0808D99E
-	ldr r2, [r7]
-	adds r3, r2, r6
-	ldrh r0, [r3]
-	lsls r0, 2
-	adds r0, r2, r0
-	ldrh r1, [r5, 0x4]
-	strh r1, [r0]
-	ldrh r0, [r3]
-	lsls r0, 2
-	adds r2, r0
-	ldrb r0, [r2, 0x2]
-	movs r1, 0x1
-	orrs r0, r1
-	strb r0, [r2, 0x2]
-	ldr r2, [r7]
-	adds r0, r2, r6
-	ldrh r0, [r0]
-	lsls r0, 2
-	adds r2, r0
-	ldrb r0, [r2, 0x2]
-	movs r1, 0x2
-	orrs r0, r1
-	strb r0, [r2, 0x2]
-	ldr r1, [r7]
-	adds r1, r6
-	ldrh r0, [r1]
-	adds r0, 0x1
-	strh r0, [r1]
-_0808D99E:
-	lsls r0, r4, 16
-	ldr r4, _0808D9C0
-	adds r0, r4
-	lsrs r4, r0, 16
-	lsls r0, r4, 16
-	cmp r0, 0
-	bge _0808D93E
-	b _0808DB70
-	.align 2, 0
-_0808D9B0: .4byte 0x00000181
-_0808D9B4: .4byte gUnknown_0202FFB4
-_0808D9B8: .4byte 0x0000060c
-_0808D9BC: .4byte gPokedexOrder_Weight
-_0808D9C0: .4byte 0xffff0000
-_0808D9C4:
-	movs r4, 0
-	mov r5, sp
-	ldr r7, _0808DA4C
-	mov r8, r7
-	ldr r6, _0808DA50
-	ldr r0, _0808DA54
-	mov r9, r0
-_0808D9D2:
-	ldr r1, _0808DA58
-	lsls r4, 16
-	asrs r0, r4, 15
-	adds r0, r1
-	ldrh r0, [r0]
-	strh r0, [r5, 0x4]
-	ldrh r0, [r5, 0x4]
-	bl NationalToHoennOrder
-	lsls r0, 16
-	lsrs r0, 16
-	adds r7, r4, 0
-	ldrh r1, [r5]
-	cmp r0, r1
-	bhi _0808DA3A
-	ldrh r0, [r5, 0x4]
-	movs r1, 0x1
-	bl sub_8090D90
-	lsls r0, 24
-	cmp r0, 0
-	beq _0808DA3A
-	mov r3, r8
-	ldr r2, [r3]
-	adds r3, r2, r6
-	ldrh r0, [r3]
-	lsls r0, 2
-	adds r0, r2, r0
-	ldrh r1, [r5, 0x4]
-	strh r1, [r0]
-	ldrh r0, [r3]
-	lsls r0, 2
-	adds r2, r0
-	ldrb r0, [r2, 0x2]
-	movs r1, 0x1
-	orrs r0, r1
-	strb r0, [r2, 0x2]
-	mov r4, r8
-	ldr r2, [r4]
-	adds r0, r2, r6
-	ldrh r0, [r0]
-	lsls r0, 2
-	adds r2, r0
-	ldrb r0, [r2, 0x2]
-	movs r1, 0x2
-	orrs r0, r1
-	strb r0, [r2, 0x2]
-	ldr r1, [r4]
-	adds r1, r6
-	ldrh r0, [r1]
-	adds r0, 0x1
-	strh r0, [r1]
-_0808DA3A:
-	movs r1, 0x80
-	lsls r1, 9
-	adds r0, r7, r1
-	lsrs r4, r0, 16
-	asrs r0, 16
-	cmp r0, r9
-	ble _0808D9D2
-	b _0808DB70
-	.align 2, 0
-_0808DA4C: .4byte gUnknown_0202FFB4
-_0808DA50: .4byte 0x0000060c
-_0808DA54: .4byte 0x00000181
-_0808DA58: .4byte gPokedexOrder_Weight
-_0808DA5C:
-	ldr r4, _0808DAD8
-	lsls r0, r4, 16
-	mov r5, sp
-	ldr r7, _0808DADC
-	ldr r6, _0808DAE0
-_0808DA66:
-	ldr r1, _0808DAE4
-	asrs r0, 15
-	adds r0, r1
-	ldrh r0, [r0]
-	strh r0, [r5, 0x4]
-	ldrh r0, [r5, 0x4]
-	bl NationalToHoennOrder
-	lsls r0, 16
-	lsrs r0, 16
-	ldrh r2, [r5]
-	cmp r0, r2
-	bhi _0808DAC6
-	ldrh r0, [r5, 0x4]
-	movs r1, 0x1
-	bl sub_8090D90
-	lsls r0, 24
-	cmp r0, 0
-	beq _0808DAC6
-	ldr r2, [r7]
-	adds r3, r2, r6
-	ldrh r0, [r3]
-	lsls r0, 2
-	adds r0, r2, r0
-	ldrh r1, [r5, 0x4]
-	strh r1, [r0]
-	ldrh r0, [r3]
-	lsls r0, 2
-	adds r2, r0
-	ldrb r0, [r2, 0x2]
-	movs r1, 0x1
-	orrs r0, r1
-	strb r0, [r2, 0x2]
-	ldr r2, [r7]
-	adds r0, r2, r6
-	ldrh r0, [r0]
-	lsls r0, 2
-	adds r2, r0
-	ldrb r0, [r2, 0x2]
-	movs r1, 0x2
-	orrs r0, r1
-	strb r0, [r2, 0x2]
-	ldr r1, [r7]
-	adds r1, r6
-	ldrh r0, [r1]
-	adds r0, 0x1
-	strh r0, [r1]
-_0808DAC6:
-	lsls r0, r4, 16
-	ldr r3, _0808DAE8
-	adds r0, r3
-	lsrs r4, r0, 16
-	lsls r0, r4, 16
-	cmp r0, 0
-	bge _0808DA66
-	b _0808DB70
-	.align 2, 0
-_0808DAD8: .4byte 0x00000181
-_0808DADC: .4byte gUnknown_0202FFB4
-_0808DAE0: .4byte 0x0000060c
-_0808DAE4: .4byte gPokedexOrder_Height
-_0808DAE8: .4byte 0xffff0000
-_0808DAEC:
-	movs r4, 0
-	mov r5, sp
-	ldr r7, _0808DBD4
-	mov r8, r7
-	ldr r6, _0808DBD8
-	ldr r0, _0808DBDC
-	mov r9, r0
-_0808DAFA:
-	ldr r1, _0808DBE0
-	lsls r4, 16
-	asrs r0, r4, 15
-	adds r0, r1
-	ldrh r0, [r0]
-	strh r0, [r5, 0x4]
-	ldrh r0, [r5, 0x4]
-	bl NationalToHoennOrder
-	lsls r0, 16
-	lsrs r0, 16
-	adds r7, r4, 0
-	ldrh r1, [r5]
-	cmp r0, r1
-	bhi _0808DB62
-	ldrh r0, [r5, 0x4]
-	movs r1, 0x1
-	bl sub_8090D90
-	lsls r0, 24
-	cmp r0, 0
-	beq _0808DB62
-	mov r3, r8
-	ldr r2, [r3]
-	adds r3, r2, r6
-	ldrh r0, [r3]
-	lsls r0, 2
-	adds r0, r2, r0
-	ldrh r1, [r5, 0x4]
-	strh r1, [r0]
-	ldrh r0, [r3]
-	lsls r0, 2
-	adds r2, r0
-	ldrb r0, [r2, 0x2]
-	movs r1, 0x1
-	orrs r0, r1
-	strb r0, [r2, 0x2]
-	mov r4, r8
-	ldr r2, [r4]
-	adds r0, r2, r6
-	ldrh r0, [r0]
-	lsls r0, 2
-	adds r2, r0
-	ldrb r0, [r2, 0x2]
-	movs r1, 0x2
-	orrs r0, r1
-	strb r0, [r2, 0x2]
-	ldr r1, [r4]
-	adds r1, r6
-	ldrh r0, [r1]
-	adds r0, 0x1
-	strh r0, [r1]
-_0808DB62:
-	movs r1, 0x80
-	lsls r1, 9
-	adds r0, r7, r1
-	lsrs r4, r0, 16
-	asrs r0, 16
-	cmp r0, r9
-	ble _0808DAFA
-_0808DB70:
-	ldr r1, _0808DBD4
-	ldr r0, [r1]
-	ldr r2, _0808DBD8
-	adds r0, r2
-	ldrh r4, [r0]
-	lsls r3, r4, 16
-	asrs r0, r3, 16
-	ldr r2, _0808DBDC
-	cmp r0, r2
-	bgt _0808DBC4
-	adds r5, r1, 0
-	movs r4, 0x2
-	negs r4, r4
-	mov r9, r4
-	movs r7, 0x3
-	negs r7, r7
-	mov r8, r7
-	adds r7, r2, 0
-	ldr r0, _0808DBE4
-	adds r6, r0, 0
-_0808DB98:
-	ldr r1, [r5]
-	asrs r3, 16
-	lsls r4, r3, 2
-	adds r1, r4
-	ldrh r0, [r1]
-	orrs r0, r6
-	strh r0, [r1]
-	ldrb r2, [r1, 0x2]
-	mov r0, r9
-	ands r0, r2
-	strb r0, [r1, 0x2]
-	ldr r1, [r5]
-	adds r1, r4
-	ldrb r2, [r1, 0x2]
-	mov r0, r8
-	ands r0, r2
-	strb r0, [r1, 0x2]
-	adds r3, 0x1
-	lsls r3, 16
-	asrs r0, r3, 16
-	cmp r0, r7
-	ble _0808DB98
-_0808DBC4:
-	add sp, 0x8
-	pop {r3-r5}
-	mov r8, r3
-	mov r9, r4
-	mov r10, r5
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0808DBD4: .4byte gUnknown_0202FFB4
-_0808DBD8: .4byte 0x0000060c
-_0808DBDC: .4byte 0x00000181
-_0808DBE0: .4byte gPokedexOrder_Height
-_0808DBE4: .4byte 0x0000ffff
-	thumb_func_end sub_808D690
-
-	thumb_func_start sub_808DBE8
-sub_808DBE8: @ 808DBE8
-	push {r4-r7,lr}
-	mov r7, r10
-	mov r6, r9
-	mov r5, r8
-	push {r5-r7}
-	lsls r0, 24
-	lsrs r0, 24
-	lsls r1, 16
-	lsrs r1, 16
-	lsls r2, 16
-	lsrs r7, r2, 16
-	cmp r0, 0x1
-	beq _0808DCE0
-	cmp r0, 0x1
-	ble _0808DC0C
-	cmp r0, 0x2
-	bne _0808DC0C
-	b _0808DDD8
-_0808DC0C:
-	subs r0, r1, 0x5
-	lsls r0, 16
-	lsrs r1, r0, 16
-	movs r0, 0
-	mov r9, r0
-_0808DC16:
-	lsls r0, r1, 16
-	lsrs r5, r0, 16
-	mov r10, r0
-	ldr r1, _0808DC48
-	cmp r5, r1
-	bhi _0808DC36
-	ldr r2, _0808DC4C
-	mov r8, r2
-	ldr r0, [r2]
-	mov r3, r10
-	asrs r6, r3, 14
-	adds r0, r6
-	ldrh r0, [r0]
-	ldr r1, _0808DC50
-	cmp r0, r1
-	bne _0808DC54
-_0808DC36:
-	mov r2, r9
-	lsls r1, r2, 25
-	lsrs r1, 24
-	movs r0, 0x11
-	adds r2, r7, 0
-	bl sub_808E090
-	b _0808DCC8
-	.align 2, 0
-_0808DC48: .4byte 0x00000181
-_0808DC4C: .4byte gUnknown_0202FFB4
-_0808DC50: .4byte 0x0000ffff
-_0808DC54:
-	mov r3, r9
-	lsls r0, r3, 25
-	lsrs r4, r0, 24
-	movs r0, 0x11
-	adds r1, r4, 0
-	adds r2, r7, 0
-	bl sub_808E090
-	mov r1, r8
-	ldr r0, [r1]
-	adds r0, r6
-	ldrb r0, [r0, 0x2]
-	lsls r0, 31
-	cmp r0, 0
-	beq _0808DCA6
-	adds r0, r5, 0
-	movs r1, 0x12
-	adds r2, r4, 0
-	adds r3, r7, 0
-	bl sub_808DEB0
-	mov r2, r8
-	ldr r0, [r2]
-	adds r0, r6
-	ldrb r0, [r0, 0x2]
-	lsls r0, 30
-	lsrs r0, 31
-	movs r1, 0x11
-	adds r2, r4, 0
-	adds r3, r7, 0
-	bl sub_808DF88
-	mov r3, r8
-	ldr r0, [r3]
-	adds r0, r6
-	ldrh r0, [r0]
-	movs r1, 0x17
-	adds r2, r4, 0
-	bl sub_808DFE4
-	b _0808DCC8
-_0808DCA6:
-	adds r0, r5, 0
-	movs r1, 0x12
-	adds r2, r4, 0
-	adds r3, r7, 0
-	bl sub_808DEB0
-	movs r0, 0
-	movs r1, 0x11
-	adds r2, r4, 0
-	adds r3, r7, 0
-	bl sub_808DF88
-	movs r0, 0
-	movs r1, 0x17
-	adds r2, r4, 0
-	bl sub_808DFE4
-_0808DCC8:
-	movs r0, 0x80
-	lsls r0, 9
-	add r0, r10
-	lsrs r1, r0, 16
-	mov r0, r9
-	adds r0, 0x1
-	lsls r0, 16
-	lsrs r0, 16
-	mov r9, r0
-	cmp r0, 0xA
-	bls _0808DC16
-	b _0808DEA2
-_0808DCE0:
-	subs r0, r1, 0x5
-	lsls r1, r0, 16
-	lsrs r5, r1, 16
-	ldr r0, _0808DD10
-	ldr r2, _0808DD14
-	cmp r5, r0
-	bhi _0808DCFE
-	adds r6, r2, 0
-	ldr r3, [r6]
-	asrs r4, r1, 14
-	adds r0, r3, r4
-	ldrh r1, [r0]
-	ldr r0, _0808DD18
-	cmp r1, r0
-	bne _0808DD1C
-_0808DCFE:
-	ldr r0, [r2]
-	movs r1, 0xC6
-	lsls r1, 3
-	adds r0, r1
-	movs r2, 0
-	ldrsh r1, [r0, r2]
-	lsls r1, 25
-	b _0808DE16
-	.align 2, 0
-_0808DD10: .4byte 0x00000181
-_0808DD14: .4byte gUnknown_0202FFB4
-_0808DD18: .4byte 0x0000ffff
-_0808DD1C:
-	movs r1, 0xC6
-	lsls r1, 3
-	adds r0, r3, r1
-	movs r2, 0
-	ldrsh r1, [r0, r2]
-	lsls r1, 25
-	lsrs r1, 24
-	movs r0, 0x11
-	adds r2, r7, 0
-	bl sub_808E090
-	ldr r1, [r6]
-	adds r0, r1, r4
-	ldrb r0, [r0, 0x2]
-	lsls r0, 31
-	cmp r0, 0
-	beq _0808DD8C
-	movs r3, 0xC6
-	lsls r3, 3
-	adds r0, r1, r3
-	movs r1, 0
-	ldrsh r2, [r0, r1]
-	lsls r2, 25
-	lsrs r2, 24
-	adds r0, r5, 0
-	movs r1, 0x12
-	adds r3, r7, 0
-	bl sub_808DEB0
-	ldr r1, [r6]
-	adds r0, r1, r4
-	ldrb r0, [r0, 0x2]
-	lsls r0, 30
-	lsrs r0, 31
-	movs r2, 0xC6
-	lsls r2, 3
-	adds r1, r2
-	movs r3, 0
-	ldrsh r2, [r1, r3]
-	lsls r2, 25
-	lsrs r2, 24
-	movs r1, 0x11
-	adds r3, r7, 0
-	bl sub_808DF88
-	ldr r1, [r6]
-	adds r0, r1, r4
-	ldrh r0, [r0]
-	movs r2, 0xC6
-	lsls r2, 3
-	adds r1, r2
-	movs r3, 0
-	ldrsh r2, [r1, r3]
-	lsls r2, 25
-	lsrs r2, 24
-	b _0808DDD0
-_0808DD8C:
-	movs r2, 0xC6
-	lsls r2, 3
-	adds r0, r1, r2
-	movs r3, 0
-	ldrsh r2, [r0, r3]
-	lsls r2, 25
-	lsrs r2, 24
-	adds r0, r5, 0
-	movs r1, 0x12
-	adds r3, r7, 0
-	bl sub_808DEB0
-	ldr r0, [r6]
-	movs r1, 0xC6
-	lsls r1, 3
-	adds r0, r1
-	movs r3, 0
-	ldrsh r2, [r0, r3]
-	lsls r2, 25
-	lsrs r2, 24
-	movs r0, 0
-	movs r1, 0x11
-	adds r3, r7, 0
-	bl sub_808DF88
-	ldr r0, [r6]
-	movs r1, 0xC6
-	lsls r1, 3
-	adds r0, r1
-	movs r3, 0
-	ldrsh r2, [r0, r3]
-	lsls r2, 25
-	lsrs r2, 24
-	movs r0, 0
-_0808DDD0:
-	movs r1, 0x17
-	bl sub_808DFE4
-	b _0808DEA2
-_0808DDD8:
-	adds r0, r1, 0x5
-	lsls r0, 16
-	lsrs r1, r0, 16
-	ldr r0, _0808DE24
-	mov r8, r0
-	ldr r3, [r0]
-	movs r2, 0xC6
-	lsls r2, 3
-	adds r0, r3, r2
-	ldrh r0, [r0]
-	adds r0, 0xA
-	lsls r0, 16
-	lsrs r2, r0, 16
-	cmp r2, 0xF
-	bls _0808DDFE
-	adds r0, r2, 0
-	subs r0, 0x10
-	lsls r0, 16
-	lsrs r2, r0, 16
-_0808DDFE:
-	lsls r1, 16
-	lsrs r5, r1, 16
-	ldr r0, _0808DE28
-	cmp r5, r0
-	bhi _0808DE14
-	asrs r6, r1, 14
-	adds r0, r3, r6
-	ldrh r1, [r0]
-	ldr r0, _0808DE2C
-	cmp r1, r0
-	bne _0808DE30
-_0808DE14:
-	lsls r1, r2, 25
-_0808DE16:
-	lsrs r1, 24
-	movs r0, 0x11
-	adds r2, r7, 0
-	bl sub_808E090
-	b _0808DEA2
-	.align 2, 0
-_0808DE24: .4byte gUnknown_0202FFB4
-_0808DE28: .4byte 0x00000181
-_0808DE2C: .4byte 0x0000ffff
-_0808DE30:
-	lsls r0, r2, 25
-	lsrs r4, r0, 24
-	movs r0, 0x11
-	adds r1, r4, 0
-	adds r2, r7, 0
-	bl sub_808E090
-	mov r3, r8
-	ldr r0, [r3]
-	adds r0, r6
-	ldrb r0, [r0, 0x2]
-	lsls r0, 31
-	cmp r0, 0
-	beq _0808DE80
-	adds r0, r5, 0
-	movs r1, 0x12
-	adds r2, r4, 0
-	adds r3, r7, 0
-	bl sub_808DEB0
-	mov r1, r8
-	ldr r0, [r1]
-	adds r0, r6
-	ldrb r0, [r0, 0x2]
-	lsls r0, 30
-	lsrs r0, 31
-	movs r1, 0x11
-	adds r2, r4, 0
-	adds r3, r7, 0
-	bl sub_808DF88
-	mov r2, r8
-	ldr r0, [r2]
-	adds r0, r6
-	ldrh r0, [r0]
-	movs r1, 0x17
-	adds r2, r4, 0
-	bl sub_808DFE4
-	b _0808DEA2
-_0808DE80:
-	adds r0, r5, 0
-	movs r1, 0x12
-	adds r2, r4, 0
-	adds r3, r7, 0
-	bl sub_808DEB0
-	movs r0, 0
-	movs r1, 0x11
-	adds r2, r4, 0
-	adds r3, r7, 0
-	bl sub_808DF88
-	movs r0, 0
-	movs r1, 0x17
-	adds r2, r4, 0
-	bl sub_808DFE4
-_0808DEA2:
-	pop {r3-r5}
-	mov r8, r3
-	mov r9, r4
-	mov r10, r5
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	thumb_func_end sub_808DBE8
-
-	thumb_func_start sub_808DEB0
-sub_808DEB0: @ 808DEB0
-	push {r4-r7,lr}
-	mov r7, r10
-	mov r6, r9
-	mov r5, r8
-	push {r5-r7}
-	sub sp, 0x8
-	lsls r0, 16
-	lsls r1, 24
-	lsrs r1, 24
-	mov r8, r1
-	lsls r2, 24
-	lsrs r2, 24
-	mov r9, r2
-	lsls r3, 16
-	lsrs r3, 16
-	mov r10, r3
-	ldr r1, _0808DF7C
-	ldr r1, [r1]
-	lsrs r0, 14
-	adds r0, r1, r0
-	ldrh r7, [r0]
-	ldr r0, _0808DF80
-	adds r1, r0
-	ldrh r0, [r1]
-	cmp r0, 0
-	bne _0808DEEE
-	adds r0, r7, 0
-	bl NationalToHoennOrder
-	lsls r0, 16
-	lsrs r7, r0, 16
-_0808DEEE:
-	add r6, sp, 0x4
-	movs r0, 0xFF
-	lsls r0, 2
-	strh r0, [r6]
-	adds r0, 0x1
-	strh r0, [r6, 0x2]
-	mov r4, sp
-	adds r0, r7, 0
-	movs r1, 0x64
-	bl __udivsi3
-	adds r0, 0xA1
-	strb r0, [r4]
-	mov r5, sp
-	adds r0, r7, 0
-	movs r1, 0x64
-	bl __umodsi3
-	adds r4, r0, 0
-	lsls r4, 16
-	lsrs r4, 16
-	adds r0, r4, 0
-	movs r1, 0xA
-	bl __udivsi3
-	adds r0, 0xA1
-	strb r0, [r5, 0x1]
-	mov r5, sp
-	adds r0, r4, 0
-	movs r1, 0xA
-	bl __umodsi3
-	adds r0, 0xA1
-	strb r0, [r5, 0x2]
-	mov r1, sp
-	movs r0, 0xFF
-	strb r0, [r1, 0x3]
-	mov r1, r8
-	lsls r2, r1, 1
-	mov r3, r10
-	lsls r0, r3, 11
-	mov r3, r9
-	lsls r1, r3, 6
-	adds r0, r1
-	adds r2, r0
-	movs r0, 0xC0
-	lsls r0, 19
-	adds r1, r2, r0
-	ldrh r0, [r6]
-	strh r0, [r1]
-	ldr r1, _0808DF84
-	adds r2, r1
-	ldrh r0, [r6, 0x2]
-	strh r0, [r2]
-	mov r1, r8
-	subs r1, 0xF
-	lsls r1, 24
-	lsrs r1, 24
-	mov r0, sp
-	mov r2, r9
-	bl MenuPrint
-	add sp, 0x8
-	pop {r3-r5}
-	mov r8, r3
-	mov r9, r4
-	mov r10, r5
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0808DF7C: .4byte gUnknown_0202FFB4
-_0808DF80: .4byte 0x00000612
-_0808DF84: .4byte 0x06000040
-	thumb_func_end sub_808DEB0
-
-	thumb_func_start sub_808DF88
-sub_808DF88: @ 808DF88
-	push {r4-r6,lr}
-	sub sp, 0x4
-	lsls r0, 16
-	lsrs r4, r0, 16
-	lsls r1, 24
-	lsrs r5, r1, 24
-	lsls r2, 24
-	lsrs r6, r2, 24
-	lsls r3, 16
-	lsrs r3, 16
-	cmp r4, 0
-	beq _0808DFB0
-	mov r1, sp
-	ldr r0, _0808DFAC
-	strh r0, [r1]
-	adds r0, 0x1
-	strh r0, [r1, 0x2]
-	b _0808DFB6
-	.align 2, 0
-_0808DFAC: .4byte 0x000003fe
-_0808DFB0:
-	mov r0, sp
-	strh r4, [r0]
-	strh r4, [r0, 0x2]
-_0808DFB6:
-	lsls r2, r5, 1
-	lsls r0, r3, 11
-	lsls r1, r6, 6
-	adds r0, r1
-	adds r2, r0
-	movs r0, 0xC0
-	lsls r0, 19
-	adds r1, r2, r0
-	mov r0, sp
-	ldrh r0, [r0]
-	strh r0, [r1]
-	ldr r0, _0808DFE0
-	adds r2, r0
-	mov r0, sp
-	ldrh r0, [r0, 0x2]
-	strh r0, [r2]
-	add sp, 0x4
-	pop {r4-r6}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0808DFE0: .4byte 0x06000040
-	thumb_func_end sub_808DF88
-
-	thumb_func_start sub_808DFE4
-sub_808DFE4: @ 808DFE4
-	push {r4-r6,lr}
-	sub sp, 0xC
-	lsls r0, 16
-	lsrs r3, r0, 16
-	lsls r1, 24
-	lsrs r5, r1, 24
-	lsls r2, 24
-	lsrs r6, r2, 24
-	movs r4, 0
-	movs r1, 0
-_0808DFF8:
-	mov r2, sp
-	adds r0, r2, r4
-	strb r1, [r0]
-	adds r0, r4, 0x1
-	lsls r0, 24
-	lsrs r4, r0, 24
-	cmp r4, 0x9
-	bls _0808DFF8
-	adds r0, r2, r4
-	movs r1, 0xFF
-	strb r1, [r0]
-	adds r0, r3, 0
-	bl NationalPokedexNumToSpecies
-	adds r3, r0, 0
-	cmp r3, 0
-	beq _0808E058
-	movs r4, 0
-	ldr r2, _0808E054
-	movs r0, 0xB
-	adds r1, r3, 0
-	muls r1, r0
-	adds r0, r1, r2
-	ldrb r0, [r0]
-	subs r5, 0x11
-	lsls r6, 19
-	cmp r0, 0xFF
-	beq _0808E070
-	adds r3, r1, 0
-_0808E032:
-	mov r0, sp
-	adds r1, r0, r4
-	adds r0, r4, r3
-	adds r0, r2
-	ldrb r0, [r0]
-	strb r0, [r1]
-	adds r0, r4, 0x1
-	lsls r0, 24
-	lsrs r4, r0, 24
-	adds r0, r4, r3
-	adds r0, r2
-	ldrb r0, [r0]
-	cmp r0, 0xFF
-	beq _0808E070
-	cmp r4, 0x9
-	bls _0808E032
-	b _0808E070
-	.align 2, 0
-_0808E054: .4byte gSpeciesNames
-_0808E058:
-	movs r4, 0
-	subs r5, 0x11
-	lsls r6, 19
-	movs r1, 0xAE
-_0808E060:
-	mov r2, sp
-	adds r0, r2, r4
-	strb r1, [r0]
-	adds r0, r4, 0x1
-	lsls r0, 24
-	lsrs r4, r0, 24
-	cmp r4, 0x9
-	bls _0808E060
-_0808E070:
-	lsls r1, r5, 27
-	movs r0, 0xFC
-	lsls r0, 24
-	adds r1, r0
-	lsrs r1, 24
-	lsrs r2, r6, 16
-	mov r0, sp
-	movs r3, 0
-	bl sub_80729D8
-	adds r0, r4, 0
-	add sp, 0xC
-	pop {r4-r6}
-	pop {r1}
-	bx r1
-	thumb_func_end sub_808DFE4
-
-	thumb_func_start sub_808E090
-sub_808E090: @ 808E090
-	push {r4-r7,lr}
-	lsls r0, 24
-	lsrs r5, r0, 24
-	lsls r1, 24
-	lsls r2, 16
-	movs r3, 0
-	lsrs r2, 5
-	lsrs r1, 18
-	adds r4, r2, r1
-	movs r2, 0
-	movs r7, 0xC0
-	lsls r7, 19
-	ldr r6, _0808E0C8
-_0808E0AA:
-	adds r0, r5, r3
-	lsls r0, 1
-	adds r0, r4
-	adds r1, r0, r7
-	strh r2, [r1]
-	adds r0, r6
-	strh r2, [r0]
-	adds r0, r3, 0x1
-	lsls r0, 24
-	lsrs r3, r0, 24
-	cmp r3, 0xB
-	bls _0808E0AA
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0808E0C8: .4byte 0x06000040
-	thumb_func_end sub_808E090
-
-	thumb_func_start sub_808E0CC
-sub_808E0CC: @ 808E0CC
-	push {r4-r7,lr}
-	mov r7, r8
-	push {r7}
-	lsls r0, 16
-	lsrs r5, r0, 16
-	lsls r1, 16
-	lsrs r7, r1, 16
-	movs r3, 0
-	ldr r0, _0808E1E0
-	mov r8, r0
-	mov r6, r8
-	ldr r2, _0808E1E4
-	ldr r1, _0808E1E8
-	adds r4, r1, 0
-_0808E0E8:
-	ldr r1, [r6]
-	lsls r0, r3, 1
-	adds r1, r2
-	adds r1, r0
-	ldrh r0, [r1]
-	orrs r0, r4
-	strh r0, [r1]
-	adds r0, r3, 0x1
-	lsls r0, 24
-	lsrs r3, r0, 24
-	cmp r3, 0x3
-	bls _0808E0E8
-	mov r4, r8
-	ldr r0, [r4]
-	ldr r2, _0808E1EC
-	adds r0, r2
-	ldr r1, _0808E1E8
-	strh r1, [r0]
-	movs r0, 0
-	adds r1, r5, 0
-	adds r2, r7, 0
-	bl sub_808DBE8
-	ldr r1, _0808E1F0
-	ldr r0, [r4]
-	ldr r2, _0808E1F4
-	adds r0, r2
-	ldrb r0, [r0]
-	strh r0, [r1]
-	subs r0, r5, 0x1
-	lsls r0, 16
-	lsrs r0, 16
-	bl sub_808E888
-	lsls r0, 16
-	lsrs r0, 16
-	ldr r4, _0808E1E8
-	cmp r0, r4
-	beq _0808E15A
-	movs r1, 0x60
-	movs r2, 0x50
-	bl sub_808E8C8
-	lsls r0, 24
-	lsrs r1, r0, 24
-	ldr r3, _0808E1F8
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r1, r3, 0
-	adds r1, 0x1C
-	adds r1, r0, r1
-	ldr r2, _0808E1FC
-	str r2, [r1]
-	adds r0, r3
-	ldr r1, _0808E200
-	strh r1, [r0, 0x38]
-_0808E15A:
-	adds r0, r5, 0
-	bl sub_808E888
-	lsls r0, 16
-	lsrs r0, 16
-	cmp r0, r4
-	beq _0808E18C
-	movs r1, 0x60
-	movs r2, 0x50
-	bl sub_808E8C8
-	lsls r0, 24
-	lsrs r1, r0, 24
-	ldr r3, _0808E1F8
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r1, r3, 0
-	adds r1, 0x1C
-	adds r1, r0, r1
-	ldr r2, _0808E1FC
-	str r2, [r1]
-	adds r0, r3
-	movs r1, 0
-	strh r1, [r0, 0x38]
-_0808E18C:
-	adds r0, r5, 0x1
-	lsls r0, 16
-	lsrs r0, 16
-	bl sub_808E888
-	lsls r0, 16
-	lsrs r0, 16
-	cmp r0, r4
-	beq _0808E1C2
-	movs r1, 0x60
-	movs r2, 0x50
-	bl sub_808E8C8
-	lsls r0, 24
-	lsrs r1, r0, 24
-	ldr r3, _0808E1F8
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r1, r3, 0
-	adds r1, 0x1C
-	adds r1, r0, r1
-	ldr r2, _0808E1FC
-	str r2, [r1]
-	adds r0, r3
-	movs r1, 0x20
-	strh r1, [r0, 0x38]
-_0808E1C2:
-	mov r1, r8
-	ldr r0, [r1]
-	movs r2, 0xC6
-	lsls r2, 3
-	adds r1, r0, r2
-	movs r2, 0
-	strh r2, [r1]
-	ldr r1, _0808E204
-	adds r0, r1
-	strh r2, [r0]
-	pop {r3}
-	mov r8, r3
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0808E1E0: .4byte gUnknown_0202FFB4
-_0808E1E4: .4byte 0x0000061e
-_0808E1E8: .4byte 0x0000ffff
-_0808E1EC: .4byte 0x00000626
-_0808E1F0: .4byte REG_BG2VOFS
-_0808E1F4: .4byte 0x0000062d
-_0808E1F8: .4byte gSprites
-_0808E1FC: .4byte sub_808EE28
-_0808E200: .4byte 0x0000ffe0
-_0808E204: .4byte 0x00000632
-	thumb_func_end sub_808E0CC
-
-	thumb_func_start sub_808E208
-sub_808E208: @ 808E208
-	push {r4-r7,lr}
-	mov r7, r8
-	push {r7}
-	lsls r0, 24
-	lsrs r4, r0, 24
-	lsls r1, 24
-	lsrs r5, r1, 24
-	lsls r2, 24
-	lsrs r6, r2, 24
-	ldr r0, _0808E23C
-	ldr r3, [r0]
-	ldr r1, _0808E240
-	adds r2, r3, r1
-	ldrb r1, [r2]
-	adds r7, r0, 0
-	cmp r1, 0
-	bne _0808E22C
-	b _0808E36C
-_0808E22C:
-	subs r0, r1, 0x1
-	strb r0, [r2]
-	cmp r4, 0x1
-	beq _0808E244
-	cmp r4, 0x2
-	beq _0808E2D8
-	b _0808E34C
-	.align 2, 0
-_0808E23C: .4byte gUnknown_0202FFB4
-_0808E240: .4byte 0x0000062e
-_0808E244:
-	movs r3, 0
-	ldr r2, _0808E2BC
-	mov r12, r2
-	ldr r4, _0808E2C0
-	mov r8, r4
-	adds r2, r7, 0
-_0808E250:
-	ldr r0, [r2]
-	lsls r1, r3, 1
-	ldr r4, _0808E2C4
-	adds r0, r4
-	adds r1, r0, r1
-	ldrh r0, [r1]
-	cmp r0, r12
-	beq _0808E26E
-	lsls r1, r0, 4
-	adds r1, r0
-	lsls r1, 2
-	add r1, r8
-	ldrh r0, [r1, 0x38]
-	adds r0, r5
-	strh r0, [r1, 0x38]
-_0808E26E:
-	adds r0, r3, 0x1
-	lsls r0, 16
-	lsrs r3, r0, 16
-	cmp r3, 0x3
-	bls _0808E250
-	ldr r4, [r7]
-	ldr r5, _0808E2C8
-	adds r0, r4, r5
-	ldrb r0, [r0]
-	subs r0, r6, r0
-	lsls r0, 4
-	adds r1, r6, 0
-	bl __divsi3
-	lsls r0, 24
-	lsrs r3, r0, 24
-	ldr r2, _0808E2CC
-	ldr r0, _0808E2D0
-	adds r1, r4, r0
-	adds r5, 0x4
-	adds r0, r4, r5
-	movs r5, 0
-	ldrsh r0, [r0, r5]
-	lsls r0, 4
-	ldrb r1, [r1]
-	adds r0, r1
-	subs r0, r3
-	strh r0, [r2]
-	ldr r0, _0808E2D4
-	adds r2, r4, r0
-	movs r1, 0xC5
-	lsls r1, 3
-	adds r4, r1
-	ldrb r1, [r4]
-	ldrb r0, [r2]
-	subs r0, r1
-	strb r0, [r2]
-	b _0808E34C
-	.align 2, 0
-_0808E2BC: .4byte 0x0000ffff
-_0808E2C0: .4byte gSprites
-_0808E2C4: .4byte 0x0000061e
-_0808E2C8: .4byte 0x0000062e
-_0808E2CC: .4byte REG_BG2VOFS
-_0808E2D0: .4byte 0x0000062d
-_0808E2D4: .4byte 0x0000062c
-_0808E2D8:
-	movs r3, 0
-	ldr r2, _0808E350
-	mov r12, r2
-	ldr r4, _0808E354
-	mov r8, r4
-	adds r2, r7, 0
-_0808E2E4:
-	ldr r0, [r2]
-	lsls r1, r3, 1
-	ldr r4, _0808E358
-	adds r0, r4
-	adds r1, r0, r1
-	ldrh r0, [r1]
-	cmp r0, r12
-	beq _0808E302
-	lsls r1, r0, 4
-	adds r1, r0
-	lsls r1, 2
-	add r1, r8
-	ldrh r0, [r1, 0x38]
-	subs r0, r5
-	strh r0, [r1, 0x38]
-_0808E302:
-	adds r0, r3, 0x1
-	lsls r0, 16
-	lsrs r3, r0, 16
-	cmp r3, 0x3
-	bls _0808E2E4
-	ldr r4, [r7]
-	ldr r5, _0808E35C
-	adds r0, r4, r5
-	ldrb r0, [r0]
-	subs r0, r6, r0
-	lsls r0, 4
-	adds r1, r6, 0
-	bl __divsi3
-	lsls r0, 24
-	lsrs r3, r0, 24
-	ldr r2, _0808E360
-	ldr r0, _0808E364
-	adds r1, r4, r0
-	adds r5, 0x4
-	adds r0, r4, r5
-	movs r5, 0
-	ldrsh r0, [r0, r5]
-	lsls r0, 4
-	ldrb r1, [r1]
-	adds r0, r1
-	adds r0, r3
-	strh r0, [r2]
-	ldr r0, _0808E368
-	adds r1, r4, r0
-	movs r2, 0xC5
-	lsls r2, 3
-	adds r4, r2
-	ldrb r0, [r4]
-	ldrb r3, [r1]
-	adds r0, r3
-	strb r0, [r1]
-_0808E34C:
-	movs r0, 0
-	b _0808E386
-	.align 2, 0
-_0808E350: .4byte 0x0000ffff
-_0808E354: .4byte gSprites
-_0808E358: .4byte 0x0000061e
-_0808E35C: .4byte 0x0000062e
-_0808E360: .4byte REG_BG2VOFS
-_0808E364: .4byte 0x0000062d
-_0808E368: .4byte 0x0000062c
-_0808E36C:
-	ldr r2, _0808E390
-	ldr r4, _0808E394
-	adds r1, r3, r4
-	movs r5, 0xC6
-	lsls r5, 3
-	adds r0, r3, r5
-	movs r3, 0
-	ldrsh r0, [r0, r3]
-	lsls r0, 4
-	ldrb r1, [r1]
-	adds r0, r1
-	strh r0, [r2]
-	movs r0, 0x1
-_0808E386:
-	pop {r3}
-	mov r8, r3
-	pop {r4-r7}
-	pop {r1}
-	bx r1
-	.align 2, 0
-_0808E390: .4byte REG_BG2VOFS
-_0808E394: .4byte 0x0000062d
-	thumb_func_end sub_808E208
-
-	thumb_func_start sub_808E398
-sub_808E398: @ 808E398
-	push {r4-r6,lr}
-	lsls r0, 24
-	lsrs r2, r0, 24
-	lsls r1, 16
-	lsrs r3, r1, 16
-	ldr r4, _0808E3C0
-	ldr r0, [r4]
-	movs r5, 0xC6
-	lsls r5, 3
-	adds r1, r0, r5
-	ldrh r1, [r1]
-	ldr r6, _0808E3C4
-	adds r0, r6
-	strh r1, [r0]
-	cmp r2, 0x1
-	beq _0808E3C8
-	cmp r2, 0x2
-	beq _0808E428
-	b _0808E484
-	.align 2, 0
-_0808E3C0: .4byte gUnknown_0202FFB4
-_0808E3C4: .4byte 0x00000632
-_0808E3C8:
-	subs r0, r3, 0x1
-	lsls r0, 16
-	lsrs r0, 16
-	bl sub_808E888
-	lsls r0, 16
-	lsrs r1, r0, 16
-	ldr r0, _0808E414
-	cmp r1, r0
-	beq _0808E402
-	adds r0, r1, 0
-	movs r1, 0x60
-	movs r2, 0x50
-	bl sub_808E8C8
-	lsls r0, 24
-	lsrs r1, r0, 24
-	ldr r3, _0808E418
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r1, r3, 0
-	adds r1, 0x1C
-	adds r1, r0, r1
-	ldr r2, _0808E41C
-	str r2, [r1]
-	adds r0, r3
-	ldr r1, _0808E420
-	strh r1, [r0, 0x38]
-_0808E402:
-	ldr r0, [r4]
-	adds r1, r0, r5
-	ldrh r2, [r1]
-	movs r3, 0
-	ldrsh r0, [r1, r3]
-	cmp r0, 0
-	ble _0808E424
-	subs r0, r2, 0x1
-	b _0808E482
-	.align 2, 0
-_0808E414: .4byte 0x0000ffff
-_0808E418: .4byte gSprites
-_0808E41C: .4byte sub_808EE28
-_0808E420: .4byte 0x0000ffc0
-_0808E424:
-	movs r0, 0xF
-	b _0808E482
-_0808E428:
-	adds r0, r3, 0x1
-	lsls r0, 16
-	lsrs r0, 16
-	bl sub_808E888
-	lsls r0, 16
-	lsrs r1, r0, 16
-	ldr r0, _0808E474
-	cmp r1, r0
-	beq _0808E462
-	adds r0, r1, 0
-	movs r1, 0x60
-	movs r2, 0x50
-	bl sub_808E8C8
-	lsls r0, 24
-	lsrs r1, r0, 24
-	ldr r3, _0808E478
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r1, r3, 0
-	adds r1, 0x1C
-	adds r1, r0, r1
-	ldr r2, _0808E47C
-	str r2, [r1]
-	adds r0, r3
-	movs r1, 0x40
-	strh r1, [r0, 0x38]
-_0808E462:
-	ldr r0, [r4]
-	adds r1, r0, r5
-	ldrh r2, [r1]
-	movs r6, 0
-	ldrsh r0, [r1, r6]
-	cmp r0, 0xE
-	bgt _0808E480
-	adds r0, r2, 0x1
-	b _0808E482
-	.align 2, 0
-_0808E474: .4byte 0x0000ffff
-_0808E478: .4byte gSprites
-_0808E47C: .4byte sub_808EE28
-_0808E480:
-	movs r0, 0
-_0808E482:
-	strh r0, [r1]
-_0808E484:
-	pop {r4-r6}
-	pop {r0}
-	bx r0
-	thumb_func_end sub_808E398
-
 	thumb_func_start sub_808E48C
 sub_808E48C: @ 808E48C
 	push {r4-r7,lr}
diff --git a/src/pokedex.c b/src/pokedex.c
index 3c7647be7..ded629987 100644
--- a/src/pokedex.c
+++ b/src/pokedex.c
@@ -1,5 +1,6 @@
 #include "gba/gba.h"
 #include "main.h"
+#include "menu.h"
 #include "palette.h"
 #include "rng.h"
 #include "songs.h"
@@ -10,9 +11,9 @@
 
 struct PokedexListItem {
     u16 a;
-    u8 seen:1;
-    u8 owned:1;
-    u8 c;
+    u16 seen:1;
+    u16 owned:1;
+    //u8 c;
 };
 
 struct PokedexView {
@@ -38,8 +39,8 @@ struct PokedexView {
     u8 unk62D;
     u8 unk62E;
     u8 unk62F;
-    u16 unk630;
-    u16 unk632;
+    s16 unk630;
+    s16 unk632;
     u16 unk634;
     u16 unk636;
     u16 unk638;
@@ -65,6 +66,17 @@ extern struct PokedexView *gUnknown_0202FFB4;
 extern u16 gUnknown_0202FFB8;
 extern u8 gUnknown_0202FFBA;
 extern u8 gUnknown_03005CE8;
+extern u8 gPokedexMenu_Gfx[];
+extern u8 gUnknown_08E96738[];
+extern u8 gUnknown_08E9C6DC[];
+extern u8 gUnknown_08E96888[];
+extern u8 gUnknown_08E96994[];
+extern u8 gUnknown_083A05CC[];
+extern struct SpritePalette gUnknown_083A05DC[];
+extern u8 gUnknown_0839FA7C[];
+extern u8 gUnknown_0839F67C[];
+extern u8 gPokedexMenu_Pal[];
+extern u8 gUnknown_0839F73C[];
 
 extern void m4aMPlayVolumeControl(struct MusicPlayerInfo *mplayInfo, u16 trackBits, u16 volume);
 extern bool8 BeginNormalPaletteFade(u32, s8, u8, u8, u16);
@@ -74,6 +86,14 @@ extern u16 pokedex_count(u8);
 extern u8 sub_8091E3C(void);
 extern void sub_80690C8(void);
 extern void sub_805469C(void);
+extern void LoadCompressedObjectPic(void *);
+extern void LZ77UnCompVram(const void *, void *);
+extern u16 HoennToNationalOrder(u16);
+extern u16 NationalToHoennOrder(u16);
+extern u16 gPokedexOrder_Alphabetical[];
+extern u16 gPokedexOrder_Weight[];
+extern u16 gPokedexOrder_Height[];
+extern u8 gSpeciesNames[][11];
 
 void ClearPokedexView(struct PokedexView *);
 void Task_PokedexShowMainScreen(u8 taskId);
@@ -108,6 +128,17 @@ void Task_PokedexResultsScreenMenu(u8 taskId);
 void Task_PokedexResultsScreenReturnToMainScreen(u8 taskId);
 void sub_808CEF8(u8 taskId);
 void Task_PokedexResultsScreenExitPokedex(u8 taskId);
+void sub_808D640(void);
+void sub_808E978(u8);
+bool8 sub_8090D90(u16, u8);
+void sub_808E090(u8, u8, u16);
+void sub_808DEB0(u16, u8, u8, u16);
+void sub_808DF88(u16, u8, u8, u16);
+u8 sub_808DFE4(u16, u8, u8);
+u16 sub_808E888(u16);
+u32 sub_808E8C8(u16, u16, u16);
+void sub_808EE28(struct Sprite *sprite);
+u16 sub_8091818(u8, u16, u16, u16);
 
 void sub_808C02C(void)
 {
@@ -211,7 +242,7 @@ void CB2_InitPokedex(void)
             SetVBlankCallback(NULL);
             sub_8091060(0);
             addr = (u8 *)VRAM;
-            size = 0x18000;
+            size = VRAM_SIZE;
             while(1)
             {
                 DmaFill16(3, 0, addr, 0x1000);
@@ -715,3 +746,647 @@ void Task_PokedexResultsScreenExitPokedex(u8 taskId)
         gTasks[taskId].func = Task_ClosePokedex;
     }
 }
+
+
+bool8 sub_808D344(u8 a)
+{
+    switch(gMain.state)
+    {
+        case 0:
+        default:
+            if(gPaletteFade.active)
+                return 0;
+            //_0808D39E
+            SetVBlankCallback(NULL);
+            gUnknown_0202FFB4->unk64A = a;
+            sub_8091060(0);
+            REG_BG2VOFS = gUnknown_0202FFB4->unk62D;
+            LZ77UnCompVram(gPokedexMenu_Gfx, (void *)(VRAM));
+            LZ77UnCompVram(gUnknown_08E96738, (void *)(VRAM + 0x6800));
+            LZ77UnCompVram(gUnknown_08E9C6DC, (void *)(VRAM + 0x7800));
+            DmaClear16(3, VRAM + 0x6000, 0x500);
+            if(a == 0)
+                LZ77UnCompVram(gUnknown_08E96888, (void *)(VRAM + 0x6500));
+            else
+                LZ77UnCompVram(gUnknown_08E96994, (void *)(VRAM + 0x6500));
+            ResetPaletteFade();
+            if(a == 0)
+                gUnknown_0202FFB4->unk64C_1 = 0;
+            else
+                gUnknown_0202FFB4->unk64C_1 = 1;
+            sub_808D640();
+            gMain.state = 1;
+            break;
+        case 1:
+            ResetSpriteData();
+            FreeAllSpritePalettes();
+            gReservedSpritePaletteCount = 8;
+            LoadCompressedObjectPic(gUnknown_083A05CC);
+            LoadSpritePalettes(gUnknown_083A05DC);
+            sub_808E978(a);
+            gMain.state++;
+            break;
+        case 2:
+            SetUpWindowConfig(&gWindowConfig_81E7048);
+            InitMenuWindow(&gWindowConfig_81E7048);
+            LZ77UnCompVram(gUnknown_0839FA7C, (void *)(VRAM + 0xFF80));
+            gMain.state++;
+            break;
+        case 3:
+            if(a == 0)
+                sub_808D690(gUnknown_0202FFB4->unk612, gUnknown_0202FFB4->unk616);
+            sub_808E0CC(gUnknown_0202FFB4->unk60E, 0xE);
+            gUnknown_0202FFB4->unk650 = 0;
+            gUnknown_0202FFB4->unk654 = 0;
+            gMain.state++;
+            break;
+        case 4:
+            BeginNormalPaletteFade(-1, 0, 0x10, 0, 0);
+            SetVBlankCallback(sub_808C0B8);
+            gMain.state++;
+            break;
+        case 5:
+            REG_WININ = 0x3F3F;
+            REG_WINOUT = 0x1D3F;
+            REG_WIN0H = 0;
+            REG_WIN0V = 0;
+            REG_WIN1H = 0;
+            REG_WIN1V = 0;
+            REG_BLDCNT = 0;
+            REG_BLDALPHA = 0;
+            REG_BLDY = 0;
+            REG_BG3CNT = 0xF03;
+            REG_BG1CNT = 0xD01;
+            REG_BG0CNT = 0xC00;
+            REG_DISPCNT = 0x9F40;
+            gMain.state++;
+            break;
+        case 6:
+            if(!gPaletteFade.active)
+            {
+                gMain.state = 0;
+                return 1;
+            }
+            else
+                return 0;
+    }
+    return 0;
+}
+
+void sub_808D640(void)
+{
+    if(gUnknown_0202FFB4->unk64C_1)
+        LoadPalette(gUnknown_0839F67C + 0x2, 1, 0xBE);
+    else if(!sub_806912C())
+        LoadPalette(gPokedexMenu_Pal + 0x2, 1, 0xBE);
+    else
+        LoadPalette(gUnknown_0839F73C + 0x2, 1, 0xBE);
+}
+
+//Pokedex sorting function
+void sub_808D690(u8 a, u8 mode)
+{
+    u16 vars[3]; //I have no idea why three regular variables are stored in an array, but whatever.
+    s16 i;
+    
+    gUnknown_0202FFB4->unk60C = 0;
+    
+    switch(a)
+    {
+        default:
+        case 0:
+            vars[0] = 202;
+            vars[1] = 1;
+            break;
+        case 1:
+            if(sub_806912C())
+            {
+                vars[0] = 386;
+                vars[1] = 0;
+            }
+            else
+            {
+                vars[0] = 202;
+                vars[1] = a;
+            }
+            break;
+    }
+    
+    switch(mode)
+    {
+        case 0:
+        {
+            if(vars[1])
+            {
+                for(i = 0; i < vars[0]; i++)
+                {
+                    vars[2] = HoennToNationalOrder(i + 1);
+                    gUnknown_0202FFB4->unk0[i].a = vars[2];
+                    gUnknown_0202FFB4->unk0[i].seen = sub_8090D90(vars[2], 0);
+                    gUnknown_0202FFB4->unk0[i].owned = sub_8090D90(vars[2], 1);
+                    if(gUnknown_0202FFB4->unk0[i].seen)
+                        gUnknown_0202FFB4->unk60C = i + 1;
+                }
+            }
+            else
+            {
+                bool32 r10;
+                s16 r5;
+
+                r10 = r5 = i = 0;
+                for(i = 0; i < vars[0]; i++)
+                {
+                    vars[2] = i + 1;
+                    if(sub_8090D90(vars[2], 0))
+                        r10 = 1;
+                    if(r10)
+                    {
+                        asm("");    //Needed to match for some reason
+                        gUnknown_0202FFB4->unk0[r5].a = vars[2];
+                        gUnknown_0202FFB4->unk0[r5].seen = sub_8090D90(vars[2], 0);
+                        gUnknown_0202FFB4->unk0[r5].owned = sub_8090D90(vars[2], 1);
+                        if(gUnknown_0202FFB4->unk0[r5].seen)
+                            gUnknown_0202FFB4->unk60C = r5 + 1;
+                        r5++;
+                    }
+                }
+            }
+            break;
+        }
+        case 1:
+            for(i = 0; i < 411; i++)
+            {
+                vars[2] = gPokedexOrder_Alphabetical[i];
+                
+                if(NationalToHoennOrder(vars[2]) <= vars[0] && sub_8090D90(vars[2], 0))
+                {
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].a = vars[2];
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].seen = 1;
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].owned = sub_8090D90(vars[2], 1);
+                    gUnknown_0202FFB4->unk60C++;
+                }
+            }
+            break;
+        case 2:
+            for(i = 385; i >= 0; i--)
+            {
+                vars[2] = gPokedexOrder_Weight[i];
+                
+                if(NationalToHoennOrder(vars[2]) <= vars[0] && sub_8090D90(vars[2], 1))
+                {
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].a = vars[2];
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].seen = 1;
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].owned = 1;
+                    gUnknown_0202FFB4->unk60C++;
+                }
+            }
+            break;
+        case 3:
+            for(i = 0; i < 386; i++)
+            {
+                vars[2] = gPokedexOrder_Weight[i];
+                
+                if(NationalToHoennOrder(vars[2]) <= vars[0] && sub_8090D90(vars[2], 1))
+                {
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].a = vars[2];
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].seen = 1;
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].owned = 1;
+                    gUnknown_0202FFB4->unk60C++;
+                }
+            }
+            break;
+        case 4:
+            for(i = 385; i >=0; i--)
+            {
+                vars[2] = gPokedexOrder_Height[i];
+                
+                if(NationalToHoennOrder(vars[2]) <= vars[0] && sub_8090D90(vars[2], 1))
+                {
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].a = vars[2];
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].seen = 1;
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].owned = 1;
+                    gUnknown_0202FFB4->unk60C++;
+                }
+            }
+            break;
+        case 5:
+            for(i = 0; i < 386; i++)
+            {
+                vars[2] = gPokedexOrder_Height[i];
+                
+                if(NationalToHoennOrder(vars[2]) <= vars[0] && sub_8090D90(vars[2], 1))
+                {
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].a = vars[2];
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].seen = 1;
+                    gUnknown_0202FFB4->unk0[gUnknown_0202FFB4->unk60C].owned = 1;
+                    gUnknown_0202FFB4->unk60C++;
+                }
+            }
+            break;        
+    }
+    for(i = gUnknown_0202FFB4->unk60C; i < 386; i++)
+    {
+        gUnknown_0202FFB4->unk0[i].a |= 0xFFFF;
+        gUnknown_0202FFB4->unk0[i].seen = 0;
+        gUnknown_0202FFB4->unk0[i].owned = 0;
+    }
+}
+
+void sub_808DBE8(u8 a, u16 b, u16 c)
+{
+    switch(a)
+    {
+        case 0:
+        default:
+        {
+            u16 i;
+            s16 _b = b - 5;
+            
+            for(i = 0; i <= 10; i++)
+            {
+                if((u16)_b > 385 || gUnknown_0202FFB4->unk0[_b].a == 0xFFFF)
+                    sub_808E090(0x11, i * 2, c);
+                else
+                {
+                    sub_808E090(0x11, i * 2, c);
+                    if(gUnknown_0202FFB4->unk0[_b].seen)
+                    {
+                        sub_808DEB0(_b, 0x12, i * 2, c);
+                        sub_808DF88(gUnknown_0202FFB4->unk0[_b].owned, 0x11, i * 2, c);
+                        sub_808DFE4(gUnknown_0202FFB4->unk0[_b].a, 0x17, i * 2);
+                    }
+                    else
+                    {
+                        sub_808DEB0(_b, 0x12, i * 2, c);
+                        sub_808DF88(0, 0x11, i * 2, c);
+                        sub_808DFE4(0, 0x17, i * 2);
+                    }
+                }
+                _b++;
+            }
+            break;
+        }
+        case 1:
+        {
+            s16 _b = b - 5;
+            
+            if((u16)_b > 385 || gUnknown_0202FFB4->unk0[_b].a == 0xFFFF)
+                sub_808E090(0x11, gUnknown_0202FFB4->unk630 * 2, c);
+            else
+            {
+                sub_808E090(0x11, gUnknown_0202FFB4->unk630 * 2, c);
+                if(gUnknown_0202FFB4->unk0[_b].seen)
+                {
+                    sub_808DEB0(_b, 0x12, gUnknown_0202FFB4->unk630 * 2, c);
+                    sub_808DF88(gUnknown_0202FFB4->unk0[_b].owned, 0x11, gUnknown_0202FFB4->unk630 * 2, c);
+                    sub_808DFE4(gUnknown_0202FFB4->unk0[_b].a, 0x17, gUnknown_0202FFB4->unk630 * 2);
+                }
+                else
+                {
+                    sub_808DEB0(_b, 0x12, gUnknown_0202FFB4->unk630 * 2, c);
+                    sub_808DF88(0, 0x11, gUnknown_0202FFB4->unk630 * 2, c);
+                    sub_808DFE4(0, 0x17, gUnknown_0202FFB4->unk630 * 2);
+                }
+            }
+            break;
+        }
+        case 2:
+        {
+            s16 _b = b + 5;
+            u16 r2 = gUnknown_0202FFB4->unk630 + 10;
+            
+            if(r2 > 15)
+                r2 -= 16;
+            if((u16)_b > 385 || gUnknown_0202FFB4->unk0[_b].a == 0xFFFF)
+                sub_808E090(0x11, r2 * 2, c);
+            else
+            {
+                sub_808E090(0x11, r2 * 2, c);
+                if(gUnknown_0202FFB4->unk0[_b].seen)
+                {
+                    sub_808DEB0(_b, 0x12, r2 * 2, c);
+                    sub_808DF88(gUnknown_0202FFB4->unk0[_b].owned, 0x11, r2 * 2, c);
+                    sub_808DFE4(gUnknown_0202FFB4->unk0[_b].a, 0x17, r2 * 2);
+                }
+                else
+                {
+                    sub_808DEB0(_b, 0x12, r2 * 2, c);
+                    sub_808DF88(0, 0x11, r2 * 2, c);
+                    sub_808DFE4(0, 0x17, r2 * 2);
+                }
+            }
+            break;
+        }
+    }
+}
+
+void sub_808DEB0(u16 a, u8 b, u8 c, u16 d)
+{
+    u8 text[4];
+    u16 unk[2];
+    u16 r7 = gUnknown_0202FFB4->unk0[a].a;
+    
+    if(gUnknown_0202FFB4->unk612 == 0)
+        r7 = NationalToHoennOrder(r7);
+    unk[0] = 0x3FC;
+    unk[1] = 0x3FD;
+    text[0] = r7 / 100 + 0xA1;
+    text[1] = (r7 % 100) / 10 + 0xA1;
+    text[2] = (r7 % 100) % 10 + 0xA1;
+    text[3] = 0xFF;
+    *(u16 *)(VRAM + d * 0x800 + c * 0x40 + b * 2) = unk[0];
+    *(u16 *)(VRAM + 0x40 + d * 0x800 + c * 0x40 + b * 2) = unk[1];
+    MenuPrint(text, b - 15, c);
+}
+
+void sub_808DF88(u16 a, u8 b, u8 c, u16 d)
+{
+    u16 unk[2];
+    
+    if(a)
+    {
+        unk[0] = 0x3FE;
+        unk[1] = 0x3FF;
+    }
+    else
+    {
+        unk[0] = 0;
+        unk[1] = 0;
+    }
+    *(u16 *)(VRAM + d * 0x800 + c * 0x40 + b * 2) = unk[0];
+    *(u16 *)(VRAM + 0x40 + d * 0x800 + c * 0x40 + b * 2) = unk[1];
+}
+
+#ifdef NONMATCHING
+//FixMe
+u8 sub_808DFE4(u16 a, u8 b, u8 c)
+{
+    u8 text[10];
+    u8 i;
+    u32 species;
+    
+    for(i = 0; i < 10; i++)
+        text[i] = 0;
+    text[i] = EOS;
+    species = NationalPokedexNumToSpecies(a);
+    if(species)
+    {
+        for(i = 0; gSpeciesNames[species][i] != EOS && i < 10; i++)
+            text[i] = gSpeciesNames[species][i];
+    }
+    else
+    {
+        for(i = 0; i < 10; i++)
+            text[i] = 0xAE;
+    }
+    sub_80729D8(text, (b - 0x11) * 8 + 0xFC, c * 8, 0);
+}
+#else
+__attribute__((naked))
+u8 sub_808DFE4(u16 a, u8 b, u8 c)
+{
+    asm(".syntax unified\n\
+    push {r4-r6,lr}\n\
+    sub sp, 0xC\n\
+    lsls r0, 16\n\
+    lsrs r3, r0, 16\n\
+    lsls r1, 24\n\
+    lsrs r5, r1, 24\n\
+    lsls r2, 24\n\
+    lsrs r6, r2, 24\n\
+    movs r4, 0\n\
+    movs r1, 0\n\
+_0808DFF8:\n\
+    mov r2, sp\n\
+    adds r0, r2, r4\n\
+    strb r1, [r0]\n\
+    adds r0, r4, 0x1\n\
+    lsls r0, 24\n\
+    lsrs r4, r0, 24\n\
+    cmp r4, 0x9\n\
+    bls _0808DFF8\n\
+    adds r0, r2, r4\n\
+    movs r1, 0xFF\n\
+    strb r1, [r0]\n\
+    adds r0, r3, 0\n\
+    bl NationalPokedexNumToSpecies\n\
+    adds r3, r0, 0\n\
+    cmp r3, 0\n\
+    beq _0808E058\n\
+    movs r4, 0\n\
+    ldr r2, _0808E054\n\
+    movs r0, 0xB\n\
+    adds r1, r3, 0\n\
+    muls r1, r0\n\
+    adds r0, r1, r2\n\
+    ldrb r0, [r0]\n\
+    subs r5, 0x11\n\
+    lsls r6, 19\n\
+    cmp r0, 0xFF\n\
+    beq _0808E070\n\
+    adds r3, r1, 0\n\
+_0808E032:\n\
+    mov r0, sp\n\
+    adds r1, r0, r4\n\
+    adds r0, r4, r3\n\
+    adds r0, r2\n\
+    ldrb r0, [r0]\n\
+    strb r0, [r1]\n\
+    adds r0, r4, 0x1\n\
+    lsls r0, 24\n\
+    lsrs r4, r0, 24\n\
+    adds r0, r4, r3\n\
+    adds r0, r2\n\
+    ldrb r0, [r0]\n\
+    cmp r0, 0xFF\n\
+    beq _0808E070\n\
+    cmp r4, 0x9\n\
+    bls _0808E032\n\
+    b _0808E070\n\
+    .align 2, 0\n\
+_0808E054: .4byte gSpeciesNames\n\
+_0808E058:\n\
+    movs r4, 0\n\
+    subs r5, 0x11\n\
+    lsls r6, 19\n\
+    movs r1, 0xAE\n\
+_0808E060:\n\
+    mov r2, sp\n\
+    adds r0, r2, r4\n\
+    strb r1, [r0]\n\
+    adds r0, r4, 0x1\n\
+    lsls r0, 24\n\
+    lsrs r4, r0, 24\n\
+    cmp r4, 0x9\n\
+    bls _0808E060\n\
+_0808E070:\n\
+    lsls r1, r5, 27\n\
+    movs r0, 0xFC\n\
+    lsls r0, 24\n\
+    adds r1, r0\n\
+    lsrs r1, 24\n\
+    lsrs r2, r6, 16\n\
+    mov r0, sp\n\
+    movs r3, 0\n\
+    bl sub_80729D8\n\
+    adds r0, r4, 0\n\
+    add sp, 0xC\n\
+    pop {r4-r6}\n\
+    pop {r1}\n\
+    bx r1\n\
+    .syntax divided\n");
+}
+#endif
+
+void sub_808E090(u8 a, u8 b, u16 c)
+{
+    u8 i;
+    
+    for(i = 0; i < 12; i++)
+    {
+        *(u16 *)(VRAM + c * 0x800 + b * 64 + (a + i) * 2) = 0;
+        *(u16 *)(VRAM + 0x40 + c * 0x800 + b * 64 + (a + i) * 2) = 0;
+    }
+}
+
+void sub_808E0CC(u16 a, u16 b)
+{
+    u8 i;
+    u16 unk;
+    u8 spriteId;
+    
+    for(i = 0; i < 4; i++)
+        gUnknown_0202FFB4->unk61E[i] |= 0xFFFF;
+    gUnknown_0202FFB4->unk626 = 0xFFFF;
+    sub_808DBE8(0, a, b);
+    REG_BG2VOFS = gUnknown_0202FFB4->unk62D;
+    unk = sub_808E888(a - 1);
+    if(unk != 0xFFFF)
+    {
+        spriteId = sub_808E8C8(unk, 0x60, 0x50);
+        gSprites[spriteId].callback = sub_808EE28;
+        gSprites[spriteId].data5 = -32;
+    }
+    unk = sub_808E888(a);
+    if(unk != 0xFFFF)
+    {
+        spriteId = sub_808E8C8(unk, 0x60, 0x50);
+        gSprites[spriteId].callback = sub_808EE28;
+        gSprites[spriteId].data5 = 0;
+    }
+    unk = sub_808E888(a + 1);
+    if(unk != 0xFFFF)
+    {
+        spriteId = sub_808E8C8(unk, 0x60, 0x50);
+        gSprites[spriteId].callback = sub_808EE28;
+        gSprites[spriteId].data5 = 32;
+    }
+    gUnknown_0202FFB4->unk630 = 0;
+    gUnknown_0202FFB4->unk632 = 0;
+}
+
+bool8 sub_808E208(u8 a, u8 b, u8 c)
+{
+    u16 i;
+    u8 foo;
+ 
+    if(gUnknown_0202FFB4->unk62E)
+    {
+        gUnknown_0202FFB4->unk62E--;
+        switch(a)
+        {
+            case 1:
+                for(i = 0; i < 4; i++)
+                {
+                    if(gUnknown_0202FFB4->unk61E[i] != 0xFFFF)
+                        gSprites[gUnknown_0202FFB4->unk61E[i]].data5 += b;
+                }
+                foo = 16 * (c - gUnknown_0202FFB4->unk62E) / c;
+                REG_BG2VOFS = gUnknown_0202FFB4->unk62D + gUnknown_0202FFB4->unk632 * 16 - foo;
+                gUnknown_0202FFB4->unk62C -= gUnknown_0202FFB4->unk628;
+                break;
+            case 2:
+                for(i = 0; i < 4; i++)
+                {
+                    if(gUnknown_0202FFB4->unk61E[i] != 0xFFFF)
+                        gSprites[gUnknown_0202FFB4->unk61E[i]].data5 -= b;
+                }
+                foo = 16 * (c - gUnknown_0202FFB4->unk62E) / c;
+                REG_BG2VOFS = gUnknown_0202FFB4->unk62D + gUnknown_0202FFB4->unk632 * 16 + foo;
+                gUnknown_0202FFB4->unk62C += gUnknown_0202FFB4->unk628;
+                break;
+        }
+        return 0;
+    }
+    //_0808E36C
+    else
+    {
+        REG_BG2VOFS = gUnknown_0202FFB4->unk62D + gUnknown_0202FFB4->unk630 * 16;
+        return 1;
+    }
+}
+
+void sub_808E398(u8 a, u16 b)
+{
+    u16 unk;
+    u8 spriteId;
+    
+    gUnknown_0202FFB4->unk632 = gUnknown_0202FFB4->unk630;
+    switch(a)
+    {
+        case 1:
+        {
+            unk = sub_808E888(b - 1);
+            if(unk != 0xFFFF)
+            {
+                spriteId = sub_808E8C8(unk, 0x60, 0x50);
+                gSprites[spriteId].callback = sub_808EE28;
+                gSprites[spriteId].data5 = 0xFFC0;
+            }
+            if(gUnknown_0202FFB4->unk630 > 0)
+                gUnknown_0202FFB4->unk630--;
+            else
+                gUnknown_0202FFB4->unk630 = 0xF;
+            break;
+        }
+        case 2:
+        {
+            unk = sub_808E888(b + 1);
+            if(unk != 0xFFFF)
+            {
+                spriteId = sub_808E8C8(unk, 0x60, 0x50);
+                gSprites[spriteId].callback = sub_808EE28;
+                gSprites[spriteId].data5 = 0x40;
+            }
+            if(gUnknown_0202FFB4->unk630 <= 0xE)
+                gUnknown_0202FFB4->unk630++;
+            else
+                gUnknown_0202FFB4->unk630 = 0;
+            break;
+        }
+    }
+}
+
+/*
+u16 sub_808E48C(u16 a, u16 b)
+{
+    if((gMain.heldKeys & 0x40) || a == 0)
+    {
+        //_0808E4B6
+        if(gMain.heldKeys & 0x80)
+        {
+            
+        }
+        //_0808E4CE
+    }
+    //_0808E5E4
+    else
+    {
+        sub_8091818(1, a, 0, gUnknown_0202FFB4->unk60C - 1);
+        sub_808E398(1, a);
+        sub_808DBE8(1, a, b);
+        PlaySE(0x6C);
+    }
+    
+}
+*/