pokecrystal-board/predef/cgb.asm
yenatch 2b144fcfd4 Finish off SGB and CGB code and data.
That should be it for bank 2.
2014-03-02 16:02:55 -05:00

1113 lines
16 KiB
NASM

; Replaces the functionality of sgb.asm to work with CGB hardware.
CheckCGB: ; 8d55
ld a, [hCGB]
and a
ret
; 8d59
Function8d59: ; 8d59
ld a, b
cp $ff
jr nz, .asm_8d61
ld a, [SGBPredef]
.asm_8d61
cp $fc
jp z, Function96f3
call Function9673
ld l, a
ld h, 0
add hl, hl
ld de, Table8d7a
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
ld de, Function8d79
push de
jp [hl]
; 8d79
Function8d79: ; 8d79
ret
; 8d7a
Table8d7a: ; 8d7a
dw Function8db8
dw Function8ddb
dw Function8eb9
dw Function8edb
dw Function8f70
dw Function906e
dw Function90f8
dw Function9122
dw Function91ad
dw Function91c8
dw Function91d1
dw Function91e4
dw Function9228
dw Function9251
dw Function9373
dw Function93a6
dw Function93ba
dw Function9195
dw Function9499
dw Function94d0
dw Function93d3
dw Function9289
dw Function903e
dw Function8fca
dw Function925e
dw Function94fa
dw Function9529
dw Function9555
dw Function9578
dw Function9591
dw Function9542
; 8db8
Function8db8: ; 8db8
ld hl, PalPacket_9c66 + 1
ld de, $d000
ld c, $4
call Function9615
ld hl, PalPacket_9c66 + 1
ld de, $d020
ld c, $4
call Function9615
ld hl, PalPacket_9c66 + 1
ld de, MartPointer
ld c, $2
call Function9615
jr Function8e23
Function8ddb: ; 8ddb
ld de, $d000
call Function9729
push hl
call Function9643
call Function973a
push hl
call Function9643
ld a, [EnemyHPPal]
ld l, a
ld h, $0
add hl, hl
add hl, hl
ld bc, Palettes_a8be
add hl, bc
call Function9643
ld a, [PlayerHPPal]
ld l, a
ld h, $0
add hl, hl
add hl, hl
ld bc, Palettes_a8be
add hl, bc
call Function9643
ld hl, Palettes_a8ca
call Function9643
ld de, MartPointer
pop hl
call Function9643
pop hl
call Function9643
ld a, $1
ld [SGBPredef], a
call Function96a4
Function8e23: ; 8e23
call Function8e85
ld hl, AttrMap
ld bc, $0168
ld a, $2
call ByteFill
ld hl, $ce29
ld bc, $080a
ld a, $0
call Function9663
ld hl, $cde3
ld bc, $070a
ld a, $1
call Function9663
ld hl, AttrMap
ld bc, $040a
ld a, $2
call Function9663
ld hl, $ce6f
ld bc, $050a
ld a, $3
call Function9663
ld hl, $cebf
ld bc, $0109
ld a, $4
call Function9663
ld hl, $cec9
ld bc, $0078
ld a, $7
call ByteFill
ld hl, Palettes_979c
ld de, $d050
ld bc, $0030
ld a, $5
call FarCopyWRAM
call Function96b3
ret
; 8e85
Function8e85: ; 8e85
callba Function100dc0
Function8e8b: ; 8e8b
ld hl, Palette_b311
jr nc, .asm_8e93
ld hl, Palette_b309
.asm_8e93
ld de, $d038
ld bc, $0008
ld a, $5
call FarCopyWRAM
ret
; 8e9f
Function8e9f: ; 8e9f
callba Function100dc0
ld hl, Palette_b311
jr nc, .asm_8ead
ld hl, Palette_b309
.asm_8ead
ld de, $d000
ld bc, $0008
ld a, $5
call FarCopyWRAM
ret
; 8eb9
Function8eb9: ; 8eb9
ld a, [PlayerGender]
bit 0, a
jr z, .asm_8ec5
ld hl, Palettes_b759
jr .asm_8ec8
.asm_8ec5
ld hl, Palettes_b729
.asm_8ec8
ld de, $d000
ld bc, $0030
ld a, $5
call FarCopyWRAM
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 8edb
Function8edb: ; 8edb
ld de, $d000
ld a, [$cda1]
ld l, a
ld h, $0
add hl, hl
add hl, hl
ld bc, Palettes_a8be
add hl, bc
call Function9643
ld a, [CurPartySpecies]
ld bc, TempMonDVs
call Function974b
call Function9643
ld hl, Palettes_a8ca
call Function9643
ld hl, Palette8f52
ld de, $d018
ld bc, $0018
ld a, $5
call FarCopyWRAM
call Function9699
ld hl, AttrMap
ld bc, $0814
ld a, $1
call Function9663
ld hl, $cf23
ld bc, $000a
ld a, $2
call ByteFill
ld hl, $ce4a
ld bc, $0202
ld a, $3
call Function9663
ld hl, $ce4c
ld bc, $0202
ld a, $4
call Function9663
ld hl, $ce4e
ld bc, $0202
ld a, $5
call Function9663
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 8f52
Palette8f52: ; 8f52
RGB 31, 31, 31
RGB 31, 19, 31
RGB 31, 15, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 21, 31, 14
RGB 17, 31, 00
RGB 00, 00, 00
RGB 31, 31, 31
RGB 17, 31, 31
RGB 17, 31, 31
RGB 00, 00, 00
; 8f6a
Unknown_8f6a: ; 8f6a
RGB 31, 19, 31
RGB 21, 31, 14
RGB 17, 31, 31
; 8f70
Function8f70: ; 8f70
ld de, Unkn1Pals
ld a, $1d
call Function9625
call Function9630
ld a, [CurPartySpecies]
cp $ff
jr nz, .asm_8f8a
ld hl, Palette8fba
call Function9630
jr .asm_8f90
.asm_8f8a
call Function9775
call Function9643
.asm_8f90
call Function9699
ld hl, $cdee
ld bc, $0707
ld a, $1
call Function9663
call Function971a
ld hl, Palette8fc2
ld de, $d078
ld bc, $0008
ld a, $5
call FarCopyWRAM
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 8fba
Palette8fba: ; 8fba
RGB 11, 23, 00
RGB 07, 17, 00
RGB 06, 16, 03
RGB 05, 12, 01
Palette8fc2: ; 8fc2
RGB 00, 00, 00
RGB 11, 23, 00
RGB 07, 17, 00
RGB 00, 00, 00
; 8fca
Function8fca: ; 8fca
ld de, Unkn1Pals
ld a, $1d
call Function9625
call Function9630
ld a, [CurPartySpecies]
cp $ff
jr nz, .asm_8fe4
ld hl, Palette9036
call Function9630
jr .asm_8fed
.asm_8fe4
ld bc, TempMonDVs
call Function974b
call Function9643
.asm_8fed
call Function9699
ld hl, $ce2a
ld bc, $0707
ld a, $1
call Function9663
call Function971a
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 9009
Function9009: ; 9009
ld hl, Palette9036
call Function9630
jr .asm_901a
ld bc, TempMonDVs
call Function974b
call Function9643
.asm_901a
call Function9699
ld hl, $cdee
ld bc, $0707
ld a, $1
call Function9663
call Function971a
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 9036
Palette9036: ; 9036
RGB 31, 15, 00
RGB 23, 12, 00
RGB 15, 07, 00
RGB 00, 00, 00
; 903e
Function903e: ; 903e
ld de, Unkn1Pals
ld a, $1d
call Function9625
call Function9630
ld a, [CurPartySpecies]
call Function9775
call Function9643
call Function9699
ld hl, $ce44
ld bc, $0707
ld a, $1
call Function9663
call Function971a
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 906e
Function906e: ; 906e
ld hl, Palettes_b7a9
ld de, Unkn1Pals
ld bc, $0080
ld a, $5
call FarCopyWRAM
call Function9699
ld hl, $ce01
ld bc, $0a03
ld a, $2
call Function9663
ld hl, $ce12
ld bc, $0a03
ld a, $2
call Function9663
ld hl, $ce29
ld bc, $0603
ld a, $3
call Function9663
ld hl, $ce3a
ld bc, $0603
ld a, $3
call Function9663
ld hl, $ce51
ld bc, $0203
ld a, $4
call Function9663
ld hl, $ce62
ld bc, $0203
ld a, $4
call Function9663
ld hl, $ce05
ld bc, $020c
ld a, $1
call Function9663
ld hl, $ce04
ld bc, $0a01
ld a, $1
call Function9663
ld hl, $ce11
ld bc, $0a01
ld a, $1
call Function9663
ld hl, $cec9
ld bc, $0078
ld a, $7
call ByteFill
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 90f8
Function90f8: ; 90f8
ld hl, PalPacket_9ca6 + 1
call Function9610
call Function9699
ld de, Unkn2Pals
ld a, $3c
call Function9625
call Function9630
ld hl, $ce51
ld bc, $0c14
ld a, $1
call Function9663
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 9122
Function9122: ; 9122
ld b, 0
ld hl, Jumptable_912d
add hl, bc
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
jp [hl]
; 912d
Jumptable_912d: ; 912d
dw Function9133
dw Function9166
dw Function9180
; 9133
Function9133: ; 9133
ld hl, Palette_914e
ld de, Unkn1Pals
call Function9630
ld hl, Palette_9156
ld de, Unkn2Pals
ld bc, $0010
ld a, $5
call FarCopyWRAM
call Function9699
ret
; 914e
Palette_914e: ; 914e
RGB 19, 31, 19
RGB 18, 23, 31
RGB 11, 21, 28
RGB 04, 16, 24
Palette_9156: ; 9156
RGB 29, 29, 29
RGB 20, 19, 20
RGB 19, 06, 04
RGB 03, 04, 06
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 00, 00
RGB 03, 04, 06
; 9166
Function9166: ; 9166
ld de, Unkn1Pals
ld a, $38
call Function9625
call Function9630
ld de, Unkn2Pals
ld a, $39
call Function9625
call Function9630
call Function9699
ret
; 9180
Function9180: ; 9180
ld hl, PalPacket_9c36 + 1
call Function9610
ld de, Unkn2Pals
ld a, $3a
call Function9625
call Function9630
call Function9699
ret
; 9195
Function9195: ; 9195
ld hl, Palettes_b789
ld de, Unkn1Pals
ld bc, $0028
ld a, $5
call FarCopyWRAM
call Function96a4
call Function9699
call Function96b3
ret
; 91ad
Function91ad: ; 91ad
ld hl, Palettes_b641
ld de, Unkn1Pals
ld bc, $0080
ld a, $5
call FarCopyWRAM
ld hl, PalPacket_9cb6 + 1
call Function9610
call Function9699
call Function96b3
ret
; 91c8
Function91c8: ; 91c8
call Functionb1de
ld a, $9
ld [SGBPredef], a
ret
; 91d1
Function91d1: ; 91d1
ld hl, PalPacket_9c56 + 1
call Function9610
call Function8e9f
call Function8e85
call Function971a
call Function96b3
ret
; 91e4
Function91e4: ; 91e4
ld de, Unkn1Pals
ld a, c
and a
jr z, .asm_91f5
ld a, $1a
call Function9625
call Function9630
jr .asm_921a
.asm_91f5
ld hl, PartyMon1DVs
ld bc, $0030
ld a, [CurPartyMon]
call AddNTimes
ld c, l
ld b, h
ld a, [PlayerHPPal]
call Function974b
call Function9643
ld hl, Palettes_979c
ld de, $d050
ld bc, $0030
ld a, $5
call FarCopyWRAM
.asm_921a
call Function9699
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 9228
Function9228: ; 9228
ld hl, Palettes_b6f1
ld de, Unkn1Pals
ld bc, $0028
ld a, $5
call FarCopyWRAM
ld hl, Palettes_b719
ld de, Unkn2Pals
ld bc, $0010
ld a, $5
call FarCopyWRAM
ld a, $8
ld [SGBPredef], a
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 9251
Function9251: ; 9251
ld hl, PalPacket_9cb6 + 1
call Function9610
call Function9699
call Function96b3
ret
; 925e
Function925e: ; 925e
ld hl, PalPacket_9bc6 + 1
call Function9610
ld de, Unkn2Pals
ld a, $4c
call Function9625
call Function9630
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, Unkn2Pals
ld a, $1f
ld [hli], a
ld a, $0
ld [hl], a
pop af
ld [rSVBK], a
call Function9699
call Function96b3
ret
; 9289
Function9289: ; 9289
ld de, Unkn1Pals
xor a
call Function976b
call Function9643
ld a, $1
call Function976b
call Function9643
ld a, $3
call Function976b
call Function9643
ld a, $2
call Function976b
call Function9643
ld a, $4
call Function976b
call Function9643
ld a, $7
call Function976b
call Function9643
ld a, $6
call Function976b
call Function9643
ld a, $5
call Function976b
call Function9643
ld a, $24
call Function9625
call Function9630
ld hl, AttrMap
ld bc, $0168
ld a, [PlayerGender]
and a
ld a, $1
jr z, .asm_92e3
ld a, $0
.asm_92e3
call ByteFill
ld hl, $cdfb
ld bc, $0705
ld a, [PlayerGender]
and a
ld a, $0
jr z, .asm_92f6
ld a, $1
.asm_92f6
call Function9663
ld hl, $cdff
ld [hl], $1
ld hl, $ceb7
ld bc, $0204
ld a, $1
call Function9663
ld hl, $cebb
ld bc, $0204
ld a, $2
call Function9663
ld hl, $cebf
ld bc, $0204
ld a, $3
call Function9663
ld hl, $cec3
ld bc, $0204
ld a, $4
call Function9663
ld hl, $cef3
ld bc, $0204
ld a, $5
call Function9663
ld hl, $cef7
ld bc, $0204
ld a, $6
call Function9663
ld hl, $cefb
ld bc, $0204
ld a, $7
call Function9663
ld a, [PlayerGender]
and a
push af
jr z, .asm_935d
ld hl, $ceff
ld bc, $0204
ld a, $1
call Function9663
.asm_935d
pop af
ld c, $0
jr nz, .asm_9363
inc c
.asm_9363
ld a, c
ld hl, $cdff
ld [hl], a
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 9373
Function9373: ; 9373
ld de, Unkn1Pals
ld a, $10
call Function9625
call Function9630
ld a, [PlayerHPPal]
ld l, a
ld h, 0
add hl, hl
add hl, hl
ld bc, Palettes_a8be
add hl, bc
call Function9643
call Function9699
ld hl, $cdf8
ld bc, $0209
ld a, $1
call Function9663
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 93a6
Function93a6: ; 93a6
ld hl, PalPacket_9c46 + 1
call Function9610
call Function9699
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 93ba
Function93ba: ; 93ba
ld de, Unkn1Pals
ld a, $1d
call Function9625
call Function9630
call Function9699
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 93d3
Function93d3: ; 93d3
ld a, [BattleType]
cp $3
jr z, .asm_93e6
ld a, [PlayerGender]
bit 0, a
jr z, .asm_93e6
ld hl, Palettes_9469
jr .asm_93e9
.asm_93e6
ld hl, Palettes_9439
.asm_93e9
ld de, Unkn1Pals
ld bc, $0040
ld a, $5
call FarCopyWRAM
call Function9699
ld hl, AttrMap
ld bc, $010a
ld a, $1
call Function9663
ld hl, $cde3
ld bc, $010a
ld a, $2
call Function9663
ld hl, $ce08
ld bc, $0901
ld a, $3
call Function9663
ld hl, $ce65
ld bc, $0305
ld a, $4
call Function9663
ld hl, $ce15
ld bc, $0305
ld a, $5
call Function9663
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 9439
Palettes_9439: ; 9439
RGB 31, 31, 31
RGB 15, 15, 31
RGB 00, 00, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 15, 15, 31
RGB 00, 00, 31
RGB 00, 00, 00
RGB 31, 11, 31
RGB 15, 15, 31
RGB 00, 00, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 15, 15, 31
RGB 00, 00, 31
RGB 31, 00, 00
RGB 31, 31, 31
RGB 15, 15, 31
RGB 31, 00, 00
RGB 00, 00, 00
RGB 31, 31, 31
RGB 07, 19, 07
RGB 07, 19, 07
RGB 00, 00, 00
; 9469
Palettes_9469: ; 9469
RGB 31, 31, 31
RGB 31, 14, 31
RGB 31, 07, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 14, 31
RGB 31, 07, 31
RGB 00, 00, 00
RGB 15, 15, 31
RGB 31, 14, 31
RGB 31, 07, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 14, 31
RGB 31, 07, 31
RGB 31, 00, 00
RGB 31, 31, 31
RGB 31, 14, 31
RGB 31, 00, 00
RGB 00, 00, 00
RGB 31, 31, 31
RGB 07, 19, 07
RGB 07, 19, 07
RGB 00, 00, 00
; 9499
Function9499: ; 9499
call Function91c8
ld de, $0014
ld hl, AttrMap
ld a, [$cf82]
.asm_94a5
and a
jr z, .asm_94ac
dec a
add hl, de
jr .asm_94a5
.asm_94ac
ld a, [$cf83]
ld e, a
ld d, $0
add hl, de
ld a, [$cf82]
ld b, a
ld a, [$cf84]
inc a
sub b
ld b, a
ld a, [$cf83]
ld c, a
ld a, [$cf85]
sub c
inc a
ld c, a
ld a, $0
call Function9663
call Function96b3
ret
; 94d0
Function94d0: ; 94d0
ld hl, PalPacket_9ba6 + 1
call Function9610
call Function9699
ld hl, $ce29
ld bc, $0a14
ld a, $2
call Function9663
ld hl, $ce51
ld bc, $0614
ld a, $1
call Function9663
call Function96b3
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 94fa
Function94fa: ; 94fa
ld de, Unkn1Pals
ld a, $4e
call Function9625
call Function9630
ld hl, Palette_9521
ld de, Unkn2Pals
call Function9630
ld hl, Palette_9521
ld de, $d048
call Function9630
call Function9699
call Function96b3
call Function96a4
ret
; 9521
Palette_9521: ; 9521
RGB 31, 31, 31
RGB 13, 11, 00
RGB 23, 12, 28
RGB 00, 00, 00
; 9529
Function9529: ; 9529
ld de, Unkn1Pals
ld a, [CurPartySpecies]
ld bc, TempMonDVs
call Function974b
call Function9643
call Function9699
call Function96b3
call Function96a4
ret
; 9542
Function9542: ; 9542
ld de, Unkn1Pals
ld a, [CurPartySpecies]
call Function9775
call Function9643
call Function9699
call Function96b3
ret
; 9555
Function9555: ; 9555
ld hl, PalPacket_9cc6 + 1
call Function9610
ld hl, Palettes_b681
ld de, Unkn2Pals
ld bc, $0008
ld a, $5
call FarCopyWRAM
ld de, $d078
ld a, $1c
call Function9625
call Function9630
call Function9699
ret
; 9578
Function9578: ; 9578
ld de, Unkn1Pals
ld a, [CurPartySpecies]
ld bc, TempMonDVs
call Function9764
call Function9643
call Function9699
call Function96b3
call Function96a4
ret
; 9591
Function9591: ; 9591
ld hl, Palette95e0
ld de, Unkn1Pals
ld bc, $0010
ld a, $5
call FarCopyWRAM
call Function96a4
call Function9699
ld hl, $ce68
ld bc, $080e
ld a, $1
call Function9663
ld hl, $ce3e
ld bc, $0112
ld a, $1
call Function9663
ld hl, $cf1a
ld bc, $0112
ld a, $1
call Function9663
ld hl, AttrMap
ld bc, $1102
ld a, $1
call Function9663
ld hl, $ce4f
ld bc, $0c01
ld a, $1
call Function9663
call Function96b3
ret
; 95e0
Palette95e0: ; 95e0
RGB 31, 31, 31
RGB 16, 31, 14
RGB 05, 14, 21
RGB 05, 13, 10
RGB 31, 31, 31
RGB 11, 21, 25
RGB 05, 14, 21
RGB 00, 03, 19
; 95f0