split sgb stuff into predef/sgb.asm

2 files changed, 592 insertions, 590 deletions

diff --git a/main.asm b/main.asm
index f95d09263..b2ca179fa 100644
--- a/main.asm
+++ b/main.asm
@@ -12063,596 +12063,7 @@ PredefPointers: ; 856b
 ; 864c
 
 
-Function864c: ; 864c
-; LoadSGBLayout
-	call CheckCGB
-	jp nz, Function8d59
-
-	ld a, b
-	cp $ff
-	jr nz, .asm_865a
-	ld a, [SGBPredef]
-
-.asm_865a
-	cp $fc
-	jp z, Function8ade
-	ld l, a
-	ld h, 0
-	add hl, hl
-	ld de, Table866f
-	add hl, de
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	ld de, Function8a60
-	push de
-	jp [hl]
-; 866f
-
-Table866f: ; 866f
-	dw Function86ad
-	dw Function86b4
-	dw Function875c
-	dw Function8763
-	dw Function87b2
-	dw Function8852
-	dw Function8859
-	dw Function8867
-	dw Function8860
-	dw Function88b1
-	dw Function87ab
-	dw Function88cd
-	dw Function8884
-	dw Function891a
-	dw Function873c
-	dw Function8897
-	dw Function882a
-	dw Function889e
-	dw Function8928
-	dw Function8890
-	dw Function884b
-	dw Function891a
-	dw Function8823
-	dw Function87e9
-	dw Function8921
-	dw Function89a6
-	dw Function89ad
-	dw Function89d9
-	dw Function89e0
-	dw Function8860
-	dw Function8969
-; 86ad
-
-Function86ad: ; 86ad
-	ld hl, $5c66
-	ld de, $5aa6
-	ret
-; 86b4
-
-Function86b4: ; 86b4
-	ld hl, $5aa6
-	call Function9809
-	ld hl, $5ce6
-	ld de, $cda9
-	ld bc, $0010
-	call CopyBytes
-	ld a, [PlayerHPPal]
-	ld l, a
-	ld h, $0
-	add hl, hl
-	add hl, hl
-	ld de, $68be
-	add hl, de
-	ld a, [hli]
-	ld [$cdac], a
-	ld a, [hli]
-	ld [$cdad], a
-	ld a, [hli]
-	ld [$cdae], a
-	ld a, [hl]
-	ld [$cdaf], a
-	ld a, [EnemyHPPal]
-	ld l, a
-	ld h, $0
-	add hl, hl
-	add hl, hl
-	ld de, $68be
-	add hl, de
-	ld a, [hli]
-	ld [$cdb2], a
-	ld a, [hli]
-	ld [$cdb3], a
-	ld a, [hli]
-	ld [$cdb4], a
-	ld a, [hl]
-	ld [$cdb5], a
-	ld hl, $5cf6
-	ld de, $cdb9
-	ld bc, $0010
-	call CopyBytes
-	call Function9729
-	ld a, [hli]
-	ld [$cdbc], a
-	ld a, [hli]
-	ld [$cdbd], a
-	ld a, [hli]
-	ld [$cdbe], a
-	ld a, [hl]
-	ld [$cdbf], a
-	call Function973a
-	ld a, [hli]
-	ld [$cdc2], a
-	ld a, [hli]
-	ld [$cdc3], a
-	ld a, [hli]
-	ld [$cdc4], a
-	ld a, [hl]
-	ld [$cdc5], a
-	ld hl, $cda9
-	ld de, $cdb9
-	ld a, $1
-	ld [SGBPredef], a
-	ret
-; 873c
-
-Function873c: ; 873c
-	ld hl, $5bd6
-	ld de, $cda9
-	ld bc, $0010
-	call CopyBytes
-	ld hl, $cdaa
-	ld [hl], $10
-	inc hl
-	inc hl
-	ld a, [PlayerHPPal]
-	add $2f
-	ld [hl], a
-	ld hl, $cda9
-	ld de, $5ad6
-	ret
-; 875c
-
-Function875c: ; 875c
-	ld hl, $5c76
-	ld de, $5a86
-	ret
-; 8763
-
-Function8763: ; 8763
-	ld hl, $5ce6
-	ld de, $cda9
-	ld bc, $0010
-	call CopyBytes
-	ld a, [$cda1]
-	ld l, a
-	ld h, $0
-	add hl, hl
-	add hl, hl
-	ld de, $68be
-	add hl, de
-	ld a, [hli]
-	ld [$cdac], a
-	ld a, [hli]
-	ld [$cdad], a
-	ld a, [hli]
-	ld [$cdae], a
-	ld a, [hl]
-	ld [$cdaf], a
-	ld a, [CurPartySpecies]
-	ld bc, TempMonDVs
-	call Function974b
-	ld a, [hli]
-	ld [$cdb2], a
-	ld a, [hli]
-	ld [$cdb3], a
-	ld a, [hli]
-	ld [$cdb4], a
-	ld a, [hl]
-	ld [$cdb5], a
-	ld hl, $cda9
-	ld de, $5ac6
-	ret
-; 87ab
-
-Function87ab: ; 87ab
-	ld hl, $5c56
-	ld de, $cdaa
-	ret
-; 87b2
-
-Function87b2: ; 87b2
-	ld hl, $5ce6
-	ld de, $cda9
-	ld bc, $0010
-	call CopyBytes
-	ld hl, $cdac
-	ld [hl], $9f
-	inc hl
-	ld [hl], $2a
-	inc hl
-	ld [hl], $5a
-	inc hl
-	ld [hl], $19
-	ld a, [CurPartySpecies]
-	call Function9775
-	ld a, [hli]
-	ld [$cdb2], a
-	ld a, [hli]
-	ld [$cdb3], a
-	ld a, [hli]
-	ld [$cdb4], a
-	ld a, [hl]
-	ld [$cdb5], a
-	ld hl, $cda9
-	ld de, $5ae6
-	ret
-; 87e9
-
-Function87e9: ; 87e9
-	ld hl, $5ce6
-	ld de, $cda9
-	ld bc, $0010
-	call CopyBytes
-	ld hl, $cdac
-	ld [hl], $9f
-	inc hl
-	ld [hl], $2a
-	inc hl
-	ld [hl], $5a
-	inc hl
-	ld [hl], $19
-	ld a, [CurPartySpecies]
-	ld bc, TempMonDVs
-	call Function974b
-	ld a, [hli]
-	ld [$cdb2], a
-	ld a, [hli]
-	ld [$cdb3], a
-	ld a, [hli]
-	ld [$cdb4], a
-	ld a, [hl]
-	ld [$cdb5], a
-	ld hl, $cda9
-	ld de, $5ae6
-	ret
-; 8823
-
-Function8823: ; 8823
-	call Function87b2
-	ld de, $5af6
-	ret
-; 882a
-
-Function882a: ; 882a
-	ld hl, $5ce6
-	ld de, $cda9
-	ld bc, $0010
-	call CopyBytes
-	ld hl, $cdac
-	ld [hl], $9f
-	inc hl
-	ld [hl], $2a
-	inc hl
-	ld [hl], $5a
-	inc hl
-	ld [hl], $19
-	ld hl, $cda9
-	ld de, $5a86
-	ret
-; 884b
-
-Function884b: ; 884b
-	ld hl, $5c36
-	ld de, $5a86
-	ret
-; 8852
-
-Function8852: ; 8852
-	ld hl, $5c96
-	ld de, $5b06
-	ret
-; 8859
-
-Function8859: ; 8859
-	ld hl, $5ca6
-	ld de, $5b76
-	ret
-; 8860
-
-Function8860: ; 8860
-	ld hl, $5cb6
-	ld de, $5a86
-	ret
-; 8867
-
-Function8867: ; 8867
-	ld b, $0
-	ld hl, $4878
-	add hl, bc
-	add hl, bc
-	add hl, bc
-	add hl, bc
-	ld e, [hl]
-	inc hl
-	ld d, [hl]
-	inc hl
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	ret
-; 8878
-
-INCBIN "baserom.gbc", $8878, $8884 - $8878
-
-Function8884: ; 8884
-	ld hl, $5b96
-	ld de, $5b56
-	ld a, $8
-	ld [SGBPredef], a
-	ret
-; 8890
-
-Function8890: ; 8890
-	ld hl, $5ba6
-	ld de, $5b86
-	ret
-; 8897
-
-Function8897: ; 8897
-	ld hl, $5c46
-	ld de, $5a86
-	ret
-; 889e
-
-Function889e: ; 889e
-	ld hl, $5a86
-	ld de, PlayerLightScreenCount
-	ld bc, $0010
-	call CopyBytes
-	ld hl, $5bb6
-	ld de, $5a86
-	ret
-; 88b1
-
-Function88b1: ; 88b1
-	ld hl, $5bd6
-	ld de, $cda9
-	ld bc, $0010
-	call CopyBytes
-	call Function8a0c
-	ld hl, $cdaa
-	ld [hld], a
-	ld de, $5a86
-	ld a, $9
-	ld [SGBPredef], a
-	ret
-; 88cd
-
-Function88cd: ; 88cd
-	push bc
-	ld hl, $5ce6
-	ld de, $cda9
-	ld bc, $0010
-	call CopyBytes
-	pop bc
-	ld a, c
-	and a
-	jr z, .asm_88ef
-	ld hl, $cdac
-	ld [hl], $e7
-	inc hl
-	ld [hl], $1c
-	inc hl
-	ld [hl], $62
-	inc hl
-	ld [hl], $c
-	jr .asm_8913
-
-.asm_88ef
-	ld hl, PartyMon1DVs
-	ld bc, $0030
-	ld a, [CurPartyMon]
-	call AddNTimes
-	ld c, l
-	ld b, h
-	ld a, [PlayerHPPal]
-	call Function974b
-	ld a, [hli]
-	ld [$cdac], a
-	ld a, [hli]
-	ld [$cdad], a
-	ld a, [hli]
-	ld [$cdae], a
-	ld a, [hl]
-	ld [$cdaf], a
-
-.asm_8913
-	ld hl, $cda9
-	ld de, $5a86
-	ret
-; 891a
-
-Function891a: ; 891a
-	ld hl, $5cb6
-	ld de, $5a86
-	ret
-; 8921
-
-Function8921: ; 8921
-	ld hl, $5bc6
-	ld de, $5a86
-	ret
-; 8928
-
-Function8928: ; 8928
-	ld hl, $5bd6
-	ld de, $cda9
-	ld bc, $0010
-	call CopyBytes
-	ld hl, $5a86
-	ld de, $cdb9
-	ld bc, $0010
-	call CopyBytes
-	call Function8a0c
-	ld hl, $cdaa
-	ld [hl], a
-	ld hl, $cdac
-	ld [hl], $2e
-	ld hl, $cdbc
-	ld a, $5
-	ld [hli], a
-	ld a, [$cf83]
-	ld [hli], a
-	ld a, [$cf82]
-	ld [hli], a
-	ld a, [$cf85]
-	ld [hli], a
-	ld a, [$cf84]
-	ld [hl], a
-	ld hl, $cda9
-	ld de, $cdb9
-	ret
-; 8969
-
-Function8969: ; 8969
-	ld hl, $5ce6
-	ld de, $cda9
-	ld bc, $0010
-	call CopyBytes
-	ld a, [CurPartySpecies]
-	ld l, a
-	ld h, $0
-	add hl, hl
-	add hl, hl
-	add hl, hl
-	ld de, $68ce
-	add hl, de
-	ld a, [$cf65]
-	and $3
-	sla a
-	sla a
-	ld c, a
-	ld b, $0
-	add hl, bc
-	ld a, [hli]
-	ld [$cdac], a
-	ld a, [hli]
-	ld [$cdad], a
-	ld a, [hli]
-	ld [$cdae], a
-	ld a, [hl]
-	ld [$cdaf], a
-	ld hl, $cda9
-	ld de, $5a86
-	ret
-; 89a6
-
-Function89a6: ; 89a6
-	ld hl, $5cd6
-	ld de, $5a86
-	ret
-; 89ad
-
-Function89ad: ; 89ad
-	ld hl, $5ce6
-	ld de, $cda9
-	ld bc, $0010
-	call CopyBytes
-	ld a, [CurPartySpecies]
-	ld bc, TempMonDVs
-	call Function974b
-	ld a, [hli]
-	ld [$cdac], a
-	ld a, [hli]
-	ld [$cdad], a
-	ld a, [hli]
-	ld [$cdae], a
-	ld a, [hl]
-	ld [$cdaf], a
-	ld hl, $cda9
-	ld de, $5a86
-	ret
-; 89d9
-
-Function89d9: ; 89d9
-	ld hl, $5cc6
-	ld de, $5a86
-	ret
-; 89e0
-
-Function89e0: ; 89e0
-	ld hl, $5ce6
-	ld de, $cda9
-	ld bc, $0010
-	call CopyBytes
-	ld a, [CurPartySpecies]
-	ld bc, TempMonDVs
-	call Function9764
-	ld a, [hli]
-	ld [$cdac], a
-	ld a, [hli]
-	ld [$cdad], a
-	ld a, [hli]
-	ld [$cdae], a
-	ld a, [hl]
-	ld [$cdaf], a
-	ld hl, $cda9
-	ld de, $5a86
-	ret
-; 8a0c
-
-Function8a0c: ; 8a0c
-	ld a, [TimeOfDayPal]
-	cp $2
-	jr c, .asm_8a16
-	ld a, $19
-	ret
-
-.asm_8a16
-	ld a, [$d19a]
-	cp $2
-	jr z, .asm_8a39
-	cp $4
-	jr z, .asm_8a3c
-	cp $7
-	jr z, .asm_8a3c
-	cp $5
-	jr z, .asm_8a3f
-	cp $6
-	jr z, .asm_8a42
-	ld a, [MapGroup]
-	ld e, a
-	ld d, $0
-	ld hl, $4a45
-	add hl, de
-	ld a, [hl]
-	ret
-
-.asm_8a39
-	ld a, $0
-	ret
-
-.asm_8a3c
-	ld a, $18
-	ret
-
-.asm_8a3f
-	ld a, $6
-	ret
-
-.asm_8a42
-	ld a, $3
-	ret
-; 8a45
-
-INCBIN "baserom.gbc", $8a45, $8a60 - $8a45
-
-Function8a60: ; 8a60
-	push de
-	call Function9809
-	pop hl
-	jp Function9809
-; 8a68
+INCLUDE "predef/sgb.asm"
 
 
 CheckShininess: ; 8a68
diff --git a/predef/sgb.asm b/predef/sgb.asm
new file mode 100644
index 000000000..323a0fbb7
--- /dev/null
+++ b/predef/sgb.asm
@@ -0,0 +1,591 @@
+Function864c: ; 864c
+; LoadSGBLayout
+	call CheckCGB
+	jp nz, Function8d59
+
+	ld a, b
+	cp $ff
+	jr nz, .asm_865a
+	ld a, [SGBPredef]
+
+.asm_865a
+	cp $fc
+	jp z, Function8ade
+	ld l, a
+	ld h, 0
+	add hl, hl
+	ld de, Table866f
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld de, Function8a60
+	push de
+	jp [hl]
+; 866f
+
+Table866f: ; 866f
+	dw Function86ad
+	dw Function86b4
+	dw Function875c
+	dw Function8763
+	dw Function87b2
+	dw Function8852
+	dw Function8859
+	dw Function8867
+	dw Function8860
+	dw Function88b1
+	dw Function87ab
+	dw Function88cd
+	dw Function8884
+	dw Function891a
+	dw Function873c
+	dw Function8897
+	dw Function882a
+	dw Function889e
+	dw Function8928
+	dw Function8890
+	dw Function884b
+	dw Function891a
+	dw Function8823
+	dw Function87e9
+	dw Function8921
+	dw Function89a6
+	dw Function89ad
+	dw Function89d9
+	dw Function89e0
+	dw Function8860
+	dw Function8969
+; 86ad
+
+Function86ad: ; 86ad
+	ld hl, $5c66
+	ld de, $5aa6
+	ret
+; 86b4
+
+Function86b4: ; 86b4
+	ld hl, $5aa6
+	call Function9809
+	ld hl, $5ce6
+	ld de, $cda9
+	ld bc, $0010
+	call CopyBytes
+	ld a, [PlayerHPPal]
+	ld l, a
+	ld h, $0
+	add hl, hl
+	add hl, hl
+	ld de, $68be
+	add hl, de
+	ld a, [hli]
+	ld [$cdac], a
+	ld a, [hli]
+	ld [$cdad], a
+	ld a, [hli]
+	ld [$cdae], a
+	ld a, [hl]
+	ld [$cdaf], a
+	ld a, [EnemyHPPal]
+	ld l, a
+	ld h, $0
+	add hl, hl
+	add hl, hl
+	ld de, $68be
+	add hl, de
+	ld a, [hli]
+	ld [$cdb2], a
+	ld a, [hli]
+	ld [$cdb3], a
+	ld a, [hli]
+	ld [$cdb4], a
+	ld a, [hl]
+	ld [$cdb5], a
+	ld hl, $5cf6
+	ld de, $cdb9
+	ld bc, $0010
+	call CopyBytes
+	call Function9729
+	ld a, [hli]
+	ld [$cdbc], a
+	ld a, [hli]
+	ld [$cdbd], a
+	ld a, [hli]
+	ld [$cdbe], a
+	ld a, [hl]
+	ld [$cdbf], a
+	call Function973a
+	ld a, [hli]
+	ld [$cdc2], a
+	ld a, [hli]
+	ld [$cdc3], a
+	ld a, [hli]
+	ld [$cdc4], a
+	ld a, [hl]
+	ld [$cdc5], a
+	ld hl, $cda9
+	ld de, $cdb9
+	ld a, $1
+	ld [SGBPredef], a
+	ret
+; 873c
+
+Function873c: ; 873c
+	ld hl, $5bd6
+	ld de, $cda9
+	ld bc, $0010
+	call CopyBytes
+	ld hl, $cdaa
+	ld [hl], $10
+	inc hl
+	inc hl
+	ld a, [PlayerHPPal]
+	add $2f
+	ld [hl], a
+	ld hl, $cda9
+	ld de, $5ad6
+	ret
+; 875c
+
+Function875c: ; 875c
+	ld hl, $5c76
+	ld de, $5a86
+	ret
+; 8763
+
+Function8763: ; 8763
+	ld hl, $5ce6
+	ld de, $cda9
+	ld bc, $0010
+	call CopyBytes
+	ld a, [$cda1]
+	ld l, a
+	ld h, $0
+	add hl, hl
+	add hl, hl
+	ld de, $68be
+	add hl, de
+	ld a, [hli]
+	ld [$cdac], a
+	ld a, [hli]
+	ld [$cdad], a
+	ld a, [hli]
+	ld [$cdae], a
+	ld a, [hl]
+	ld [$cdaf], a
+	ld a, [CurPartySpecies]
+	ld bc, TempMonDVs
+	call Function974b
+	ld a, [hli]
+	ld [$cdb2], a
+	ld a, [hli]
+	ld [$cdb3], a
+	ld a, [hli]
+	ld [$cdb4], a
+	ld a, [hl]
+	ld [$cdb5], a
+	ld hl, $cda9
+	ld de, $5ac6
+	ret
+; 87ab
+
+Function87ab: ; 87ab
+	ld hl, $5c56
+	ld de, $cdaa
+	ret
+; 87b2
+
+Function87b2: ; 87b2
+	ld hl, $5ce6
+	ld de, $cda9
+	ld bc, $0010
+	call CopyBytes
+	ld hl, $cdac
+	ld [hl], $9f
+	inc hl
+	ld [hl], $2a
+	inc hl
+	ld [hl], $5a
+	inc hl
+	ld [hl], $19
+	ld a, [CurPartySpecies]
+	call Function9775
+	ld a, [hli]
+	ld [$cdb2], a
+	ld a, [hli]
+	ld [$cdb3], a
+	ld a, [hli]
+	ld [$cdb4], a
+	ld a, [hl]
+	ld [$cdb5], a
+	ld hl, $cda9
+	ld de, $5ae6
+	ret
+; 87e9
+
+Function87e9: ; 87e9
+	ld hl, $5ce6
+	ld de, $cda9
+	ld bc, $0010
+	call CopyBytes
+	ld hl, $cdac
+	ld [hl], $9f
+	inc hl
+	ld [hl], $2a
+	inc hl
+	ld [hl], $5a
+	inc hl
+	ld [hl], $19
+	ld a, [CurPartySpecies]
+	ld bc, TempMonDVs
+	call Function974b
+	ld a, [hli]
+	ld [$cdb2], a
+	ld a, [hli]
+	ld [$cdb3], a
+	ld a, [hli]
+	ld [$cdb4], a
+	ld a, [hl]
+	ld [$cdb5], a
+	ld hl, $cda9
+	ld de, $5ae6
+	ret
+; 8823
+
+Function8823: ; 8823
+	call Function87b2
+	ld de, $5af6
+	ret
+; 882a
+
+Function882a: ; 882a
+	ld hl, $5ce6
+	ld de, $cda9
+	ld bc, $0010
+	call CopyBytes
+	ld hl, $cdac
+	ld [hl], $9f
+	inc hl
+	ld [hl], $2a
+	inc hl
+	ld [hl], $5a
+	inc hl
+	ld [hl], $19
+	ld hl, $cda9
+	ld de, $5a86
+	ret
+; 884b
+
+Function884b: ; 884b
+	ld hl, $5c36
+	ld de, $5a86
+	ret
+; 8852
+
+Function8852: ; 8852
+	ld hl, $5c96
+	ld de, $5b06
+	ret
+; 8859
+
+Function8859: ; 8859
+	ld hl, $5ca6
+	ld de, $5b76
+	ret
+; 8860
+
+Function8860: ; 8860
+	ld hl, $5cb6
+	ld de, $5a86
+	ret
+; 8867
+
+Function8867: ; 8867
+	ld b, $0
+	ld hl, $4878
+	add hl, bc
+	add hl, bc
+	add hl, bc
+	add hl, bc
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	inc hl
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ret
+; 8878
+
+INCBIN "baserom.gbc", $8878, $8884 - $8878
+
+Function8884: ; 8884
+	ld hl, $5b96
+	ld de, $5b56
+	ld a, $8
+	ld [SGBPredef], a
+	ret
+; 8890
+
+Function8890: ; 8890
+	ld hl, $5ba6
+	ld de, $5b86
+	ret
+; 8897
+
+Function8897: ; 8897
+	ld hl, $5c46
+	ld de, $5a86
+	ret
+; 889e
+
+Function889e: ; 889e
+	ld hl, $5a86
+	ld de, PlayerLightScreenCount
+	ld bc, $0010
+	call CopyBytes
+	ld hl, $5bb6
+	ld de, $5a86
+	ret
+; 88b1
+
+Function88b1: ; 88b1
+	ld hl, $5bd6
+	ld de, $cda9
+	ld bc, $0010
+	call CopyBytes
+	call Function8a0c
+	ld hl, $cdaa
+	ld [hld], a
+	ld de, $5a86
+	ld a, $9
+	ld [SGBPredef], a
+	ret
+; 88cd
+
+Function88cd: ; 88cd
+	push bc
+	ld hl, $5ce6
+	ld de, $cda9
+	ld bc, $0010
+	call CopyBytes
+	pop bc
+	ld a, c
+	and a
+	jr z, .asm_88ef
+	ld hl, $cdac
+	ld [hl], $e7
+	inc hl
+	ld [hl], $1c
+	inc hl
+	ld [hl], $62
+	inc hl
+	ld [hl], $c
+	jr .asm_8913
+
+.asm_88ef
+	ld hl, PartyMon1DVs
+	ld bc, $0030
+	ld a, [CurPartyMon]
+	call AddNTimes
+	ld c, l
+	ld b, h
+	ld a, [PlayerHPPal]
+	call Function974b
+	ld a, [hli]
+	ld [$cdac], a
+	ld a, [hli]
+	ld [$cdad], a
+	ld a, [hli]
+	ld [$cdae], a
+	ld a, [hl]
+	ld [$cdaf], a
+
+.asm_8913
+	ld hl, $cda9
+	ld de, $5a86
+	ret
+; 891a
+
+Function891a: ; 891a
+	ld hl, $5cb6
+	ld de, $5a86
+	ret
+; 8921
+
+Function8921: ; 8921
+	ld hl, $5bc6
+	ld de, $5a86
+	ret
+; 8928
+
+Function8928: ; 8928
+	ld hl, $5bd6
+	ld de, $cda9
+	ld bc, $0010
+	call CopyBytes
+	ld hl, $5a86
+	ld de, $cdb9
+	ld bc, $0010
+	call CopyBytes
+	call Function8a0c
+	ld hl, $cdaa
+	ld [hl], a
+	ld hl, $cdac
+	ld [hl], $2e
+	ld hl, $cdbc
+	ld a, $5
+	ld [hli], a
+	ld a, [$cf83]
+	ld [hli], a
+	ld a, [$cf82]
+	ld [hli], a
+	ld a, [$cf85]
+	ld [hli], a
+	ld a, [$cf84]
+	ld [hl], a
+	ld hl, $cda9
+	ld de, $cdb9
+	ret
+; 8969
+
+Function8969: ; 8969
+	ld hl, $5ce6
+	ld de, $cda9
+	ld bc, $0010
+	call CopyBytes
+	ld a, [CurPartySpecies]
+	ld l, a
+	ld h, $0
+	add hl, hl
+	add hl, hl
+	add hl, hl
+	ld de, $68ce
+	add hl, de
+	ld a, [$cf65]
+	and $3
+	sla a
+	sla a
+	ld c, a
+	ld b, $0
+	add hl, bc
+	ld a, [hli]
+	ld [$cdac], a
+	ld a, [hli]
+	ld [$cdad], a
+	ld a, [hli]
+	ld [$cdae], a
+	ld a, [hl]
+	ld [$cdaf], a
+	ld hl, $cda9
+	ld de, $5a86
+	ret
+; 89a6
+
+Function89a6: ; 89a6
+	ld hl, $5cd6
+	ld de, $5a86
+	ret
+; 89ad
+
+Function89ad: ; 89ad
+	ld hl, $5ce6
+	ld de, $cda9
+	ld bc, $0010
+	call CopyBytes
+	ld a, [CurPartySpecies]
+	ld bc, TempMonDVs
+	call Function974b
+	ld a, [hli]
+	ld [$cdac], a
+	ld a, [hli]
+	ld [$cdad], a
+	ld a, [hli]
+	ld [$cdae], a
+	ld a, [hl]
+	ld [$cdaf], a
+	ld hl, $cda9
+	ld de, $5a86
+	ret
+; 89d9
+
+Function89d9: ; 89d9
+	ld hl, $5cc6
+	ld de, $5a86
+	ret
+; 89e0
+
+Function89e0: ; 89e0
+	ld hl, $5ce6
+	ld de, $cda9
+	ld bc, $0010
+	call CopyBytes
+	ld a, [CurPartySpecies]
+	ld bc, TempMonDVs
+	call Function9764
+	ld a, [hli]
+	ld [$cdac], a
+	ld a, [hli]
+	ld [$cdad], a
+	ld a, [hli]
+	ld [$cdae], a
+	ld a, [hl]
+	ld [$cdaf], a
+	ld hl, $cda9
+	ld de, $5a86
+	ret
+; 8a0c
+
+Function8a0c: ; 8a0c
+	ld a, [TimeOfDayPal]
+	cp $2
+	jr c, .asm_8a16
+	ld a, $19
+	ret
+
+.asm_8a16
+	ld a, [$d19a]
+	cp $2
+	jr z, .asm_8a39
+	cp $4
+	jr z, .asm_8a3c
+	cp $7
+	jr z, .asm_8a3c
+	cp $5
+	jr z, .asm_8a3f
+	cp $6
+	jr z, .asm_8a42
+	ld a, [MapGroup]
+	ld e, a
+	ld d, $0
+	ld hl, $4a45
+	add hl, de
+	ld a, [hl]
+	ret
+
+.asm_8a39
+	ld a, $0
+	ret
+
+.asm_8a3c
+	ld a, $18
+	ret
+
+.asm_8a3f
+	ld a, $6
+	ret
+
+.asm_8a42
+	ld a, $3
+	ret
+; 8a45
+
+INCBIN "baserom.gbc", $8a45, $8a60 - $8a45
+
+Function8a60: ; 8a60
+	push de
+	call Function9809
+	pop hl
+	jp Function9809
+; 8a68
+