ref: e33423374b6a1468de8db7a8db0b588786cffa7a
parent: de8e7ca4222a52db05ef188c788e5675610ffa98
author: yenatch <[email protected]>
date: Mon Sep 9 10:33:04 EDT 2013
split sgb stuff into predef/sgb.asm
--- a/main.asm
+++ b/main.asm
@@ -12063,596 +12063,7 @@
; 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
--- /dev/null
+++ b/predef/sgb.asm
@@ -1,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
+