pokecrystal-board/engine/color.asm
yenatch cf2acc1001 Use :: to export labels between objects.
This fixes the build.
2014-02-01 20:26:39 -05:00

1373 lines
16 KiB
NASM

INCLUDE "predef/sgb.asm"
CheckShininess: ; 8a68
; Check if a mon is shiny by DVs at bc.
; Return carry if shiny.
ld l, c
ld h, b
; Attack
ld a, [hl]
and %0010 << 4
jr z, .NotShiny
; Defense
ld a, [hli]
and %1111
cp %1010
jr nz, .NotShiny
; Speed
ld a, [hl]
and %1111 << 4
cp %1010 << 4
jr nz, .NotShiny
; Special
ld a, [hl]
and %1111
cp %1010
jr nz, .NotShiny
.Shiny
scf
ret
.NotShiny
and a
ret
; 8a88
CheckContestMon: ; 8a88
; Check a mon's DVs at hl in the bug catching contest.
; Return carry if its DVs are good enough to place in the contest.
; Attack
ld a, [hl]
cp 10 << 4
jr c, .Bad
; Defense
ld a, [hli]
and $f
cp 10
jr c, .Bad
; Speed
ld a, [hl]
cp 10 << 4
jr c, .Bad
; Special
ld a, [hl]
and $f
cp 10
jr c, .Bad
.Good
scf
ret
.Bad
and a
ret
; 8aa4
Function8aa4: ; 8aa4
push de
push bc
ld hl, $5ce6
ld de, $cda9
ld bc, $0010
call CopyBytes
pop bc
pop de
ld a, c
ld [$cdac], a
ld a, b
ld [$cdad], a
ld a, e
ld [$cdae], a
ld a, d
ld [$cdaf], a
ld hl, $cda9
call Function9809
ld hl, $5a86
call Function9809
ret
; 8ad1
Function8ad1: ; 8ad1
ld hl, $5c57
call Function9610
call Function971a
call Function9699
ret
; 8ade
Function8ade: ; 8ade
ld hl, $cd9b
ld a, [$cda9]
ld e, a
ld d, $0
add hl, de
ld e, l
ld d, h
ld a, [de]
and a
ld e, $5
jr z, .asm_8af7
dec a
ld e, $a
jr z, .asm_8af7
ld e, $f
.asm_8af7
push de
ld hl, $cdb3
ld bc, $0006
ld a, [$cda9]
call AddNTimes
pop de
ld [hl], e
ret
; 8b07
Function8b07: ; 8b07
call CheckCGB
ret z
ld hl, Palette8b2f
ld de, $d000
ld bc, $0008
ld a, $5
call FarCopyWRAM
ld hl, Palette8b37
ld de, MartPointer
ld bc, $0008
ld a, $5
call FarCopyWRAM
call Function96a4
ld a, $1
ld [hCGBPalUpdate], a
ret
; 8b2f
Palette8b2f: ; 8b2f
RGB 31, 31, 31
RGB 18, 23, 31
RGB 15, 20, 31
RGB 00, 00, 00
; 8b37
Palette8b37: ; 8b37
RGB 31, 31, 31
RGB 31, 31, 12
RGB 08, 16, 28
RGB 00, 00, 00
; 8b3f
Function8b3f: ; 8b3f
call CheckCGB
ret nz
ld a, [hSGB]
and a
ret z
ld hl, $5a86
jp Function9809
; 8b4d
Function8b4d: ; 8b4d
call CheckCGB
jr nz, .asm_8b5c
ld a, [hSGB]
and a
ret z
ld hl, $5c26
jp Function9809
.asm_8b5c
ld de, Unkn2Pals
ld a, $3b
call Function9625
jp Function9630
; 8b67
Function8b67: ; 8b67
call CheckCGB
jr nz, .asm_8b76
ld a, [hSGB]
and a
ret z
ld hl, $5c36
jp Function9809
.asm_8b76
ld de, Unkn2Pals
ld a, $3c
call Function9625
jp Function9630
; 8b81
Function8b81: ; 8b81
call CheckCGB
jr nz, .asm_8bb2
ld a, [hSGB]
and a
ret z
ld a, c
push af
ld hl, $5ce6
ld de, $cda9
ld bc, $0010
call CopyBytes
pop af
call Function9775
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
jp Function9809
.asm_8bb2
ld de, Unkn2Pals
ld a, c
call Function9775
call Function9643
ret
; 8bbd
Function8bbd: ; 8bbd
ld a, [TrainerClass]
call Function976b
ld a, e
jr .asm_8bd7
ld a, [CurPartySpecies]
call Function97ee
ld a, e
bit 7, a
jr z, .asm_8bd7
and $7f
inc hl
inc hl
inc hl
inc hl
.asm_8bd7
push hl
ld hl, Unkn1Pals
ld de, $0008
.asm_8bde
and a
jr z, .asm_8be5
add hl, de
dec a
jr .asm_8bde
.asm_8be5
ld e, l
ld d, h
pop hl
call Function9643
ret
; 8bec
Function8bec: ; 8bec
ld a, [hCGB]
and a
jr nz, .asm_8bf7
ld hl, PlayerLightScreenCount
jp Function9809
.asm_8bf7
ld a, [EnemyLightScreenCount]
ld c, a
ld a, [EnemyReflectCount]
ld hl, AttrMap
ld de, $0014
.asm_8c04
and a
jr z, .asm_8c0b
add hl, de
dec a
jr .asm_8c04
.asm_8c0b
ld b, $0
add hl, bc
ld bc, $0604
ld a, [$c705]
and $3
call Function9663
call Function323d
ret
; 8c1d
Function8c1d: ; 8c1d
call CheckCGB
ret z
ld a, e
and a
jr z, .asm_8c2d
ld a, [CurPartySpecies]
call Function9775
jr .asm_8c33
.asm_8c2d
ld a, [TrainerClass]
call Function976b
.asm_8c33
ld de, Unkn1Pals
call Function9643
call Function9699
call Function96b3
call Function96a4
ret
; 8c43
Function8c43: ; 8c43
ld a, [$d10a]
and a
jr z, .asm_8c52
cp $1
jr z, .asm_8c57
cp $2
jr z, .asm_8c70
ret
.asm_8c52
ld de, $d092
jr .asm_8c5a
.asm_8c57
ld de, $d09a
.asm_8c5a
ld l, c
ld h, $0
add hl, hl
add hl, hl
ld bc, $68be
add hl, bc
ld bc, $0004
ld a, $5
call FarCopyWRAM
ld a, $1
ld [hCGBPalUpdate], a
ret
.asm_8c70
ld e, c
inc e
ld hl, $cdf8
ld bc, $0028
ld a, [CurPartyMon]
.asm_8c7b
and a
jr z, .asm_8c82
add hl, bc
dec a
jr .asm_8c7b
.asm_8c82
ld bc, $0208
ld a, e
call Function9663
ret
; 8c8a
Function8c8a: ; 8c8a
call CheckCGB
ret z
ld hl, $4f6a
ld b, $0
dec c
add hl, bc
add hl, bc
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld a, [hli]
ld [Unkn1Pals], a
ld [$d010], a
ld a, [hl]
ld [$d001], a
ld [$d011], a
pop af
ld [rSVBK], a
call Function96a4
ld a, $1
ret
; 8cb4
Function8cb4: ; 8cb4
ld l, e
ld h, $0
add hl, hl
add hl, hl
add hl, hl
ld de, Data8d05
add hl, de
call CheckCGB
jr nz, .asm_8cf0
push hl
ld hl, $5ce6
ld de, $cda9
ld bc, $0010
call CopyBytes
pop hl
inc hl
inc hl
ld a, [hli]
ld [$cdac], a
ld a, [hli]
ld [$cdad], a
ld a, [hli]
ld [$cdae], a
ld a, [hli]
ld [$cdaf], a
ld hl, $cda9
call Function9809
ld hl, $5a86
call Function9809
ret
.asm_8cf0
ld de, $d000
ld bc, $0008
ld a, $5
call FarCopyWRAM
call Function96a4
call Function9699
call Function96b3
ret
; 8d05
Data8d05: ; 8d05
INCBIN "baserom.gbc", $8d05, $8d55 - $8d05
; 8d55
INCLUDE "predef/cgb.asm"
INCBIN "baserom.gbc", $95f0, $9610 - $95f0
Function9610: ; 9610
ld de, $d000
ld c, $4
Function9615: ; 9615
push bc
ld a, [hli]
push hl
call Function9625
call Function9630
pop hl
inc hl
pop bc
dec c
jr nz, Function9615
ret
; 9625
Function9625: ; 9625
ld l, a
ld h, $0
add hl, hl
add hl, hl
add hl, hl
ld bc, $5df6
add hl, bc
ret
; 9630
Function9630: ; 9630
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld c, $8
.asm_9639
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .asm_9639
pop af
ld [rSVBK], a
ret
; 9643
Function9643: ; 9643
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld a, $ff
ld [de], a
inc de
ld a, $7f
ld [de], a
inc de
ld c, $4
.asm_9654
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .asm_9654
xor a
ld [de], a
inc de
ld [de], a
inc de
pop af
ld [rSVBK], a
ret
; 9663
Function9663: ; 9663
.asm_9663
push bc
push hl
.asm_9665
ld [hli], a
dec c
jr nz, .asm_9665
pop hl
ld bc, $0014
add hl, bc
pop bc
dec b
jr nz, .asm_9663
ret
; 9673
Function9673: ; 9673
push af
push bc
push de
push hl
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, $d000
ld c, $8
.asm_9683
ld a, $ff
ld [hli], a
ld [hli], a
ld [hli], a
ld [hli], a
xor a
ld [hli], a
ld [hli], a
ld [hli], a
ld [hli], a
dec c
jr nz, .asm_9683
pop af
ld [rSVBK], a
pop hl
pop de
pop bc
pop af
ret
; 9699
Function9699: ; 9699
ld hl, AttrMap
ld bc, $0168
xor a
call ByteFill
ret
; 96a4
Function96a4: ; 96a4
ld hl, $d000
ld de, $d080
ld bc, $0080
ld a, $5
call FarCopyWRAM
ret
; 96b3
Function96b3: ; 96b3
ld a, [rLCDC]
bit 7, a
jr z, .asm_96d0
ld a, [hBGMapMode]
push af
ld a, $2
ld [hBGMapMode], a
call DelayFrame
call DelayFrame
call DelayFrame
call DelayFrame
pop af
ld [hBGMapMode], a
ret
.asm_96d0
ld hl, AttrMap
ld de, VBGMap0
ld b, $12
ld a, $1
ld [rVBK], a
.asm_96dc
ld c, $14
.asm_96de
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .asm_96de
ld a, $c
add e
jr nc, .asm_96ea
inc d
.asm_96ea
ld e, a
dec b
jr nz, .asm_96dc
ld a, $0
ld [rVBK], a
ret
; 96f3
Function96f3: ; 96f3
ld hl, $cd9b
ld a, [$cda9]
ld e, a
ld d, $0
add hl, de
ld e, l
ld d, h
ld a, [de]
inc a
ld e, a
ld hl, $ce0c
ld bc, $0028
ld a, [$cda9]
.asm_970b
and a
jr z, .asm_9712
add hl, bc
dec a
jr .asm_970b
.asm_9712
ld bc, $0208
ld a, e
call Function9663
ret
; 971a
Function971a: ; 971a
ld hl, $7681
ld de, MartPointer
ld bc, $0010
ld a, $5
call FarCopyWRAM
ret
; 9729
Function9729: ; 9729
push de
callba Function3da85
ld c, l
ld b, h
ld a, [TempBattleMonSpecies]
call Function974b
pop de
ret
; 973a
Function973a: ; 973a
push de
callba Function3da97
ld c, l
ld b, h
ld a, [TempEnemyMonSpecies]
call Function9764
pop de
ret
; 974b
Function974b: ; 974b
and a
jp nz, Function97f9
ld a, [$d45b]
bit 2, a
jr nz, .asm_9760
ld a, [PlayerGender]
and a
jr z, .asm_9760
ld hl, FalknerPalette
ret
.asm_9760
ld hl, $70ce
ret
; 9764
Function9764: ; 9764
and a
jp nz, Function97f9
ld a, [TrainerClass]
Function976b: ; 976b
ld l, a
ld h, $0
add hl, hl
add hl, hl
ld bc, $70ce
add hl, bc
ret
; 9775
Function9775: ; 9775
call Function97ee
ret
; 9779
INCBIN "baserom.gbc", $9779, $97ee - $9779
Function97ee: ; 97ee
ld l, a
ld h, $0
add hl, hl
add hl, hl
add hl, hl
ld bc, $68ce
add hl, bc
ret
; 97f9
Function97f9: ; 97f9
push bc
call Function97ee
pop bc
push hl
call CheckShininess
pop hl
ret nc
inc hl
inc hl
inc hl
inc hl
ret
; 9809
Function9809: ; 9809
ld a, [$cfbe]
push af
set 7, a
ld [$cfbe], a
call Function981a
pop af
ld [$cfbe], a
ret
; 981a
Function981a: ; 981a
ld a, [hl]
and $7
ret z
ld b, a
.asm_981f
push bc
xor a
ld [rJOYP], a
ld a, $30
ld [rJOYP], a
ld b, $10
.asm_9829
ld e, $8
ld a, [hli]
ld d, a
.asm_982d
bit 0, d
ld a, $10
jr nz, .asm_9835
ld a, $20
.asm_9835
ld [rJOYP], a
ld a, $30
ld [rJOYP], a
rr d
dec e
jr nz, .asm_982d
dec b
jr nz, .asm_9829
ld a, $20
ld [rJOYP], a
ld a, $30
ld [rJOYP], a
call Function9a7a
pop bc
dec b
jr nz, .asm_981f
ret
; 9853
Function9853: ; 9853
call CheckCGB
ret nz
di
ld a, [$cfbe]
push af
set 7, a
ld [$cfbe], a
xor a
ld [rJOYP], a
ld [hSGB], a
call Function994a
jr nc, .asm_988a
ld a, $1
ld [hSGB], a
call Function98eb
call Function99b4
call Function9a7a
call Function993f
call Function992c
call Function9a7a
call Function993f
ld hl, $5d66
call Function981a
.asm_988a
pop af
ld [$cfbe], a
ei
ret
; 9890
Function9890:: ; 9890
call CheckCGB
ret z
ld a, $1
ld [rVBK], a
ld hl, VTiles0
ld bc, $2000
xor a
call ByteFill
ld a, $0
ld [rVBK], a
ld a, $80
ld [rBGPI], a
ld c, $20
.asm_98ac
ld a, $ff
ld [rBGPD], a
ld a, $7f
ld [rBGPD], a
dec c
jr nz, .asm_98ac
ld a, $80
ld [rOBPI], a
ld c, $20
.asm_98bd
ld a, $ff
ld [rOBPD], a
ld a, $7f
ld [rOBPD], a
dec c
jr nz, .asm_98bd
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, $d000
call Function98df
ld hl, $d080
call Function98df
pop af
ld [rSVBK], a
ret
; 98df
Function98df: ; 98df
ld c, $40
.asm_98e1
ld a, $ff
ld [hli], a
ld a, $7f
ld [hli], a
dec c
jr nz, .asm_98e1
ret
; 98eb
Function98eb: ; 98eb
ld hl, $58ff
ld c, $9
.asm_98f0
push bc
ld a, [hli]
push hl
ld h, [hl]
ld l, a
call Function981a
pop hl
inc hl
pop bc
dec c
jr nz, .asm_98f0
ret
; 98ff
INCBIN "baserom.gbc", $98ff, $992c - $98ff
Function992c: ; 992c
call Function9938
push de
call Function9a24
pop hl
call Function99d8
ret
; 9938
Function9938: ; 9938
ld hl, SGBBorder
ld de, $606e
ret
; 993f
Function993f: ; 993f
ld hl, VTiles0
ld bc, $2000
xor a
call ByteFill
ret
; 994a
Function994a: ; 994a
ld hl, $5d26
call Function981a
call Function9a7a
ld a, [rJOYP]
and $3
cp $3
jr nz, .asm_99a6
ld a, $20
ld [rJOYP], a
ld a, [rJOYP]
ld a, [rJOYP]
call Function9a7a
call Function9a7a
ld a, $30
ld [rJOYP], a
call Function9a7a
call Function9a7a
ld a, $10
ld [rJOYP], a
ld a, [rJOYP]
ld a, [rJOYP]
ld a, [rJOYP]
ld a, [rJOYP]
ld a, [rJOYP]
ld a, [rJOYP]
call Function9a7a
call Function9a7a
ld a, $30
ld [rJOYP], a
ld a, [rJOYP]
ld a, [rJOYP]
ld a, [rJOYP]
call Function9a7a
call Function9a7a
ld a, [rJOYP]
and $3
cp $3
jr nz, .asm_99a6
call Function99ab
and a
ret
.asm_99a6
call Function99ab
scf
ret
; 99ab
Function99ab: ; 99ab
ld hl, $5d16
call Function981a
jp Function9a7a
; 99b4
Function99b4: ; 99b4
call DisableLCD
ld a, $e4
ld [rBGP], a
ld hl, $5df6
ld de, VTiles1
ld bc, $1000
call CopyData
call DrawDefaultTiles
ld a, $e3
ld [rLCDC], a
ld hl, $5d06
call Function981a
xor a
ld [rBGP], a
ret
; 99d8
Function99d8: ; 99d8
call DisableLCD
ld a, $e4
ld [rBGP], a
ld de, VTiles1
ld bc, $0140
call CopyData
ld b, $12
.asm_99ea
push bc
ld bc, $000c
call CopyData
ld bc, $0028
call ClearBytes
ld bc, $000c
call CopyData
pop bc
dec b
jr nz, .asm_99ea
ld bc, $0140
call CopyData
ld bc, Start
call ClearBytes
ld bc, $0080
call CopyData
call DrawDefaultTiles
ld a, $e3
ld [rLCDC], a
ld hl, $5d46
call Function981a
xor a
ld [rBGP], a
ret
; 9a24
Function9a24: ; 9a24
call DisableLCD
ld a, $e4
ld [rBGP], a
ld de, VTiles1
ld b, $80
.asm_9a30
push bc
ld bc, $0010
call CopyData
ld bc, $0010
call ClearBytes
pop bc
dec b
jr nz, .asm_9a30
call DrawDefaultTiles
ld a, $e3
ld [rLCDC], a
ld hl, $5d36
call Function981a
xor a
ld [rBGP], a
ret
; 9a52
CopyData: ; 0x9a52
; copy bc bytes of data from hl to de
ld a, [hli]
ld [de], a
inc de
dec bc
ld a, c
or b
jr nz, CopyData
ret
; 0x9a5b
ClearBytes: ; 0x9a5b
; clear bc bytes of data starting from de
xor a
ld [de], a
inc de
dec bc
ld a, c
or b
jr nz, ClearBytes
ret
; 0x9a64
DrawDefaultTiles: ; 0x9a64
; Draw 240 tiles (2/3 of the screen) from tiles in VRAM
ld hl, VBGMap0 ; BG Map 0
ld de, 32 - 20
ld a, $80 ; starting tile
ld c, 12 + 1
.line
ld b, 20
.tile
ld [hli], a
inc a
dec b
jr nz, .tile
; next line
add hl, de
dec c
jr nz, .line
ret
; 0x9a7a
Function9a7a: ; 9a7a
ld de, $1b58
.asm_9a7d
nop
nop
nop
dec de
ld a, d
or e
jr nz, .asm_9a7d
ret
; 9a86
INCBIN "baserom.gbc", $9a86, $a51e - $9a86
SGBBorder:
INCBIN "gfx/misc/sgb_border.2bpp"
INCBIN "baserom.gbc", $a8be, $a8d6 - $a8be
PokemonPalettes:
INCLUDE "gfx/pics/palette_pointers.asm"
INCBIN "baserom.gbc", $b0ae, $b0d2 - $b0ae
TrainerPalettes:
INCLUDE "gfx/trainers/palette_pointers.asm"
Functionb1de: ; b1de
callba Function494ac
jr c, .asm_b230
ld a, [$d19a]
and $7
ld e, a
ld d, $0
ld hl, $7279
add hl, de
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [TimeOfDayPal]
and $3
add a
add a
add a
ld e, a
ld d, $0
add hl, de
ld e, l
ld d, h
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld hl, Unkn1Pals
ld b, $8
.asm_b210
ld a, [de]
push de
push hl
ld l, a
ld h, $0
add hl, hl
add hl, hl
add hl, hl
ld de, MornPal
add hl, de
ld e, l
ld d, h
pop hl
ld c, $8
.asm_b222
ld a, [de]
inc de
ld [hli], a
dec c
jr nz, .asm_b222
pop de
inc de
dec b
jr nz, .asm_b210
pop af
ld [rSVBK], a
.asm_b230
ld a, [TimeOfDayPal]
and $3
ld bc, $0040
ld hl, $7469
call AddNTimes
ld de, Unkn2Pals
ld bc, $0040
ld a, $5
call FarCopyWRAM
ld a, [$d19a]
cp $1
jr z, .asm_b253
cp $2
ret nz
.asm_b253
ld a, [MapGroup]
ld l, a
ld h, $0
add hl, hl
add hl, hl
add hl, hl
ld de, $7569
add hl, de
ld a, [TimeOfDayPal]
and $3
cp $2
jr c, .asm_b26d
inc hl
inc hl
inc hl
inc hl
.asm_b26d
ld de, $d032
ld bc, $0004
ld a, $5
call FarCopyWRAM
ret
; b279
INCBIN "baserom.gbc", $b279, $b319 - $b279
MornPal: ; 0xb319
INCLUDE "tilesets/morn.pal"
; 0xb359
DayPal: ; 0xb359
INCLUDE "tilesets/day.pal"
; 0xb399
NitePal: ; 0xb399
INCLUDE "tilesets/nite.pal"
; 0xb3d9
DarkPal: ; 0xb3d9
INCLUDE "tilesets/dark.pal"
; 0xb419
INCBIN "baserom.gbc", $b419, $b7a9 - $b419
Paletteb7a9: ; b7a9
RGB 31, 31, 31
RGB 24, 25, 28
RGB 24, 24, 09
RGB 00, 00, 00
RGB 31, 31, 31
RGB 30, 10, 06
RGB 24, 24, 09
RGB 00, 00, 00
RGB 31, 31, 31
RGB 15, 31, 00
RGB 24, 24, 09
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 15, 31
RGB 24, 24, 09
RGB 00, 00, 00
RGB 31, 31, 31
RGB 15, 21, 31
RGB 24, 24, 09
RGB 00, 00, 00
RGB 31, 31, 11
RGB 31, 31, 06
RGB 24, 24, 09
RGB 00, 00, 00
RGB 31, 31, 31
RGB 16, 19, 29
RGB 25, 22, 00
RGB 00, 00, 00
RGB 31, 31, 31
RGB 21, 21, 21
RGB 13, 13, 13
RGB 00, 00, 00
RGB 31, 31, 31
RGB 30, 10, 06
RGB 31, 00, 00
RGB 00, 00, 00
RGB 31, 31, 31
RGB 12, 25, 01
RGB 05, 14, 00
RGB 00, 00, 00
RGB 31, 31, 31
RGB 12, 25, 01
RGB 30, 10, 06
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 06
RGB 20, 15, 03
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 06
RGB 15, 21, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 06
RGB 20, 15, 03
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 24, 21
RGB 31, 13, 31
RGB 00, 00, 00
RGB 31, 31, 31
RGB 31, 31, 31
RGB 00, 00, 00
RGB 00, 00, 00
; b829