Leahnaya/pokeyellow
1
0
Fork 0
mirror of https://github.com/pret/pokeyellow.git synced 2026-05-10 21:01:33 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity
1ecccfcf22
pokeyellow/engine/palettes.asm
YamaArashi d8975211f5 GBC palette code
2016-03-26 14:59:59 -07:00

1110 lines
19 KiB
NASM
Executable File
Raw Blame History

_RunPaletteCommand: ; 71ddf (1c:5ddf)
call GetPredefRegisters
ld a, b
cp $ff
jr nz, .next
ld a, [wDefaultPaletteCommand] ; use default command if command ID is $ff
.next
cp UPDATE_PARTY_MENU_BLK_PACKET
jp z, UpdatePartyMenuBlkPacket
ld l, a
ld h, 0
add hl, hl
ld de, SetPalFunctions
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
ld de, SendSGBPackets
push de
jp [hl]
SetPal_Black: ; 71ed3 (1c:5ed3)
ld hl, PalPacket_Black
ld de, BlkPacket_Battle
ret
; uses PalPacket_Empty to build a packet based on mon IDs and health color
SetPal_Battle: ; 71eda (1c:5eda)
ld hl, PalPacket_Empty
ld de, wPalPacket
ld bc, $10
call CopyData
;ld a, [wPlayerBattleStatus3]
ld hl, wBattleMonSpecies
ld a, [hl]
and a
jr z, .asm_71ef9
ld hl, wPartyMon1
ld a, [wPlayerMonNumber]
ld bc, wPartyMon2 - wPartyMon1
call AddNTimes
.asm_71ef9
call DeterminePaletteID
ld b, a
;ld a, [wEnemyBattleStatus3]
ld hl, wEnemyMonSpecies2
call DeterminePaletteID
ld c, a
ld hl, wPalPacket + 1
ld a, [wPlayerHPBarColor]
add PAL_GREENBAR
ld [hli], a
inc hl
ld a, [wEnemyHPBarColor]
add PAL_GREENBAR
ld [hli], a
inc hl
ld a, b
ld [hli], a
inc hl
ld a, c
ld [hl], a
ld hl, wPalPacket
ld de, BlkPacket_Battle
ld a, SET_PAL_BATTLE
ld [wDefaultPaletteCommand], a
ret
SetPal_TownMap: ; 71f26 (1c:5f26)
ld hl, PalPacket_TownMap
ld de, BlkPacket_WholeScreen
ret
; uses PalPacket_Empty to build a packet based the mon ID
SetPal_StatusScreen: ; 71f2d (1c:5f2d)
ld hl, PalPacket_Empty
ld de, wPalPacket
ld bc, $10
call CopyData
ld a, [wcf91]
cp VICTREEBEL + 1
jr c, .pokemon
ld a, $1 ; not pokemon
.pokemon
call DeterminePaletteIDOutOfBattle
push af
ld hl, wPalPacket + 1
ld a, [wStatusScreenHPBarColor]
add PAL_GREENBAR
ld [hli], a
inc hl
pop af
ld [hl], a
ld hl, wPalPacket
ld de, BlkPacket_StatusScreen
ret
SetPal_PartyMenu: ; 71f59 (1c:5f59)
ld hl, PalPacket_PartyMenu
ld de, wPartyMenuBlkPacket
ret
SetPal_Pokedex: ; 71f60 (1c:5f60)
ld hl, PalPacket_Pokedex
ld de, wPalPacket
ld bc, $10
call CopyData
ld a, [wcf91]
call DeterminePaletteIDOutOfBattle
ld hl, wPalPacket + 3
ld [hl], a
ld hl, wPalPacket
ld de, BlkPacket_Pokedex
ret
SetPal_Slots: ; 71f7d (1c:5f7d)
ld hl, PalPacket_Slots
ld de, BlkPacket_Slots
ret
SetPal_Titlescreen: ; 71f84 (1c:5f84)
ld hl, PalPacket_Titlescreen
ld de, BlkPacket_Titlescreen
ret
; used mostly for menus and the Oak intro
SetPal_Generic: ; 71f8b (1c:5f8b)
ld hl, PalPacket_Generic
ld de, BlkPacket_WholeScreen
ret
SetPal_NidorinoIntro: ; 71f92 (1c:5f92)
ld hl, PalPacket_NidorinoIntro
ld de, BlkPacket_NidorinoIntro
ret
SetPal_GameFreakIntro: ; 71f99 (1c:5f99)
ld hl, PalPacket_GameFreakIntro
ld de, BlkPacket_GameFreakIntro
ld a, SET_PAL_GENERIC
ld [wDefaultPaletteCommand], a
ret
; uses PalPacket_Empty to build a packet based on the current map
SetPal_Overworld: ; 71fa5 (1c:5fa5)
ld hl, PalPacket_Empty
ld de, wPalPacket
ld bc, $10
call CopyData
ld a, [wCurMapTileset]
cp CEMETERY
jr z, .PokemonTowerOrAgatha
cp CAVERN
jr z, .caveOrBruno
ld a, [wCurMap]
cp REDS_HOUSE_1F
jr c, .townOrRoute
cp UNKNOWN_DUNGEON_2
jr c, .normalDungeonOrBuilding
cp NAME_RATERS_HOUSE
jr c, .caveOrBruno
cp LORELEIS_ROOM
jr z, .Lorelei
cp BRUNOS_ROOM
jr z, .caveOrBruno
cp TRADE_CENTER
jr z, .asm_71ffd
cp COLOSSEUM
jr z, .asm_71ffd
.normalDungeonOrBuilding
ld a, [wLastMap] ; town or route that current dungeon or building is located
.townOrRoute
cp SAFFRON_CITY + 1
jr c, .town
ld a, PAL_ROUTE - 1
.town
inc a ; a town's palette ID is its map ID + 1
ld hl, wPalPacket + 1
ld [hld], a
ld de, BlkPacket_WholeScreen
ld a, SET_PAL_OVERWORLD
ld [wDefaultPaletteCommand], a
ret
.PokemonTowerOrAgatha
ld a, PAL_GREYMON - 1
jr .town
.caveOrBruno
ld a, PAL_CAVE - 1
jr .town
.Lorelei
xor a
jr .town
.asm_71ffd
ld a, $18
jr .town
; used when a Pokemon is the only thing on the screen
; such as evolution, trading and the Hall of Fame
SetPal_PokemonWholeScreen: ; 72001 (1c:6001)
push bc
ld hl, PalPacket_Empty
ld de, wPalPacket
ld bc, $10
call CopyData
pop bc
ld a, c
and a
ld a, PAL_BLACK
jr nz, .next
ld a, [wWholeScreenPaletteMonSpecies]
call DeterminePaletteIDOutOfBattle
.next
ld [wPalPacket + 1], a
ld hl, wPalPacket
ld de, BlkPacket_WholeScreen
ret
SetPal_TrainerCard: ; 72025 (1c:6025)
ld hl, BlkPacket_TrainerCard
ld de, wTrainerCardBlkPacket
ld bc, $40
call CopyData
ld de, BadgeBlkDataLengths
ld hl, wTrainerCardBlkPacket + 2
ld a, [wObtainedBadges]
ld c, 8
.badgeLoop
srl a
push af
jr c, .haveBadge
; The player doens't have the badge, so zero the badge's blk data.
push bc
ld a, [de]
ld c, a
xor a
.zeroBadgeDataLoop
ld [hli], a
dec c
jr nz, .zeroBadgeDataLoop
pop bc
jr .nextBadge
.haveBadge
; The player does have the badge, so skip past the badge's blk data.
ld a, [de]
.skipBadgeDataLoop
inc hl
dec a
jr nz, .skipBadgeDataLoop
.nextBadge
pop af
inc de
dec c
jr nz, .badgeLoop
ld hl, PalPacket_TrainerCard
ld de, wTrainerCardBlkPacket
ret
SendUnknownPalPacket_7205d:: ; 7205d (1c:605d)
ld hl, UnknownPalPacket_72811
ld de, BlkPacket_WholeScreen
ret
SendUnknownPalPacket_72064:: ; 72064 (1c:6064)
ld hl, UnknownPalPacket_72821
ld de, UnknownPacket_72751
ret
SetPalFunctions: ; 7206b (1c:606b)
dw SetPal_Black
dw SetPal_Battle
dw SetPal_TownMap
dw SetPal_StatusScreen
dw SetPal_Pokedex
dw SetPal_Slots
dw SetPal_Titlescreen
dw SetPal_NidorinoIntro
dw SetPal_Generic
dw SetPal_Overworld
dw SetPal_PartyMenu
dw SetPal_PokemonWholeScreen
dw SetPal_GameFreakIntro
dw SetPal_TrainerCard
dw SendUnknownPalPacket_7205d
dw SendUnknownPalPacket_72064
; The length of the blk data of each badge on the Trainer Card.
; The Rainbow Badge has 3 entries because of its many colors.
BadgeBlkDataLengths: ; 7208b (1c:608b)
db 6 ; Boulder Badge
db 6 ; Cascade Badge
db 6 ; Thunder Badge
db 6 * 3 ; Rainbow Badge
db 6 ; Soul Badge
db 6 ; Marsh Badge
db 6 ; Volcano Badge
db 6 ; Earth Badge
DeterminePaletteID: ; 72093 (1c:6093)
ld a, [hl]
DeterminePaletteIDOutOfBattle: ; 72094 (1c:6094)
ld [wd11e], a
and a ; is the mon index 0?
jr z, .skipDexNumConversion
push bc
predef IndexToPokedex
pop bc
ld a, [wd11e]
.skipDexNumConversion
ld e, a
ld d, 0
ld hl, MonsterPalettes ; not just for Pokemon, Trainers use it too
add hl, de
ld a, [hl]
ret
Func_720ad:: ; 720ad (1c:60ad)
ld a, e
and a
jr nz, Func_720bd
ld hl, PalPacket_Generic
ld a, [hGBC]
and a
jp z, SendSGBPacket
jp InitGBCPalettes
Func_720bd:: ; 720bd (1c:60bd)
ld hl, UnknownPalPacket_72811
ld a, [hGBC]
and a
jp z, SendSGBPacket
call InitGBCPalettes
ld hl, PalPacket_Generic
inc hl
ld a, [hli]
call GetGBCBasePalAddress
ld a, e
ld [wGBCBasePalPointers + 2], a
ld a, d
ld [wGBCBasePalPointers + 2 + 1], a
xor a ; CONVERT_BGP
call DMGPalToGBCPal
ld a, 1
call TransferCurBGPData
ret
Func_720e3:: ; 720e3 (1c:60e3)
ld hl, PalPacket_Empty
ld de, wPalPacket
ld bc, $10
call CopyData
call Func_7213b
ld hl, wPartyMenuBlkPacket
ld [hl], a
ld hl, wPartyMenuBlkPacket + 2
ld a, $26
ld [hl], a
ld hl, wPalPacket
ld a, [hGBC]
and a
jr nz, .asm_72109
call SendSGBPacket
jr .asm_7210c
.asm_72109
call InitGBCPalettes
.asm_7210c
ld hl, BlkPacket_WholeScreen
ld de, wPalPacket
ld bc, $10
call CopyData
ld hl, wPartyMenuBlkPacket + 2
ld a, $5
ld [hli], a
ld a, $7
ld [hli], a
ld a, $6
ld [hli], a
ld a, $b
ld [hli], a
ld a, $a
ld [hl], a
ld hl, wPalPacket
ld a, [hGBC]
and a
jr nz, .asm_72137
call SendSGBPacket
jr .asm_7213a
.asm_72137
call InitGBCPalettes
.asm_7213a
ret
Func_7213b:: ; 7213b (1c:613b)
; similar to SetPal_Overworld
ld a, [wCurMapTileset]
cp CEMETERY
jr z, .PokemonTowerOrAgatha
cp CAVERN
jr z, .caveOrBruno
ld a, [wCurMap]
cp REDS_HOUSE_1F
jr c, .townOrRoute
cp UNKNOWN_DUNGEON_2
jr c, .normalDungeonOrBuilding
cp NAME_RATERS_HOUSE
jr c, .caveOrBruno
cp LORELEIS_ROOM
jr z, .Lorelei
cp BRUNOS_ROOM
jr z, .caveOrBruno
cp TRADE_CENTER
jr z, .battleOrTradeCenter
cp COLOSSEUM
jr z, .battleOrTradeCenter
.normalDungeonOrBuilding
ld a, [wLastMap] ; town or route that current dungeon or building is located
.townOrRoute
cp SAFFRON_CITY + 1
jr c, .town
ld a, PAL_ROUTE - 1
.town
inc a ; a town's pallete ID is its map ID + 1
ret
.PokemonTowerOrAgatha
ld a, PAL_GREYMON - 1
jr .town
.caveOrBruno
ld a, PAL_CAVE - 1
jr .town
.Lorelei
xor a
jr .town
.battleOrTradeCenter
ld a, $18
jr .town
InitPartyMenuBlkPacket: ; 7217f (1c:617f)
ld hl, BlkPacket_PartyMenu
ld de, wPartyMenuBlkPacket
ld bc, $30
jp CopyData
UpdatePartyMenuBlkPacket: ; 7218b (1c:618b)
; Update the blk packet with the palette of the HP bar that is
; specified in [wWhichPartyMenuHPBar].
ld hl, wPartyMenuHPBarColors
ld a, [wWhichPartyMenuHPBar]
ld e, a
ld d, 0
add hl, de
ld e, l
ld d, h
ld a, [de]
and a
ld e, (1 << 2) | 1 ; green
jr z, .next
dec a
ld e, (2 << 2) | 2 ; yellow
jr z, .next
ld e, (3 << 2) | 3 ; red
.next
push de
ld hl, wPartyMenuBlkPacket + 8 + 1
ld bc, 6
ld a, [wWhichPartyMenuHPBar]
call AddNTimes
pop de
ld [hl], e
ret
SendSGBPacket: ; 721b4 (1c:61b4)
ld a, 1
ld [hDisableJoypadPolling], a ; don't poll joypad while sending packet
call _SendSGBPacket
xor a
ld [hDisableJoypadPolling], a
ret
_SendSGBPacket: ; 71feb (1c:5feb)
;check number of packets
ld a, [hl]
and a, $07
ret z
; store number of packets in B
ld b, a
.loop2
; save B for later use
push bc
; send RESET signal (P14=LOW, P15=LOW)
xor a
ld [rJOYP], a
; set P14=HIGH, P15=HIGH
ld a, $30
ld [rJOYP], a
;load length of packets (16 bytes)
ld b, $10
.nextByte
;set bit counter (8 bits per byte)
ld e, $08
; get next byte in the packet
ld a, [hli]
ld d, a
.nextBit0
bit 0, d
; if 0th bit is not zero set P14=HIGH, P15=LOW (send bit 1)
ld a, $10
jr nz, .next0
; else (if 0th bit is zero) set P14=LOW, P15=HIGH (send bit 0)
ld a, $20
.next0
ld [rJOYP], a
; must set P14=HIGH, P15=HIGH between each "pulse"
ld a, $30
ld [rJOYP], a
; rotation will put next bit in 0th position (so we can always use command
; "bit 0, d" to fetch the bit that has to be sent)
rr d
; decrease bit counter so we know when we have sent all 8 bits of current byte
dec e
jr nz, .nextBit0
dec b
jr nz, .nextByte
; send bit 1 as a "stop bit" (end of parameter data)
ld a, $20
ld [rJOYP], a
; set P14=HIGH, P15=HIGH
ld a, $30
ld [rJOYP], a
call Wait7000
; wait for about 70000 cycles
; call Wait7000
; restore (previously pushed) number of packets
pop bc
dec b
; return if there are no more packets
ret z
; else send 16 more bytes
jr .loop2
LoadSGB: ; 721f8 (1c:61f8)
xor a
ld [wOnSGB], a
call CheckSGB
jr c, .onSGB
ld a, [hGBC]
and a
jr z, .onDMG
ld a, $1
ld [wOnSGB], a
.onDMG
ret
.onSGB
ld a, $1
ld [wOnSGB], a
di
call PrepareSuperNintendoVRAMTransfer
ei
ld a, 1
ld [wCopyingSGBTileData], a
ld de, ChrTrnPacket
ld hl, SGBBorderGraphics
call CopyGfxToSuperNintendoVRAM
xor a
ld [wCopyingSGBTileData], a
ld de, PctTrnPacket
ld hl, BorderPalettes
call CopyGfxToSuperNintendoVRAM
xor a
ld [wCopyingSGBTileData], a
ld de, PalTrnPacket
ld hl, SuperPalettes
call CopyGfxToSuperNintendoVRAM
call ClearVram
ld hl, MaskEnCancelPacket
jp SendSGBPacket
PrepareSuperNintendoVRAMTransfer: ; 72247 (1c:6247)
ld hl, .packetPointers
ld c, 9
.loop
push bc
ld a, [hli]
push hl
ld h, [hl]
ld l, a
call SendSGBPacket
pop hl
inc hl
pop bc
dec c
jr nz, .loop
ret
.packetPointers ; 7225b (1c:625b)
; Only the first packet is needed.
dw MaskEnFreezePacket
dw DataSnd_728a1
dw DataSnd_728b1
dw DataSnd_728c1
dw DataSnd_728d1
dw DataSnd_728e1
dw DataSnd_728f1
dw DataSnd_72901
dw DataSnd_72911
CheckSGB: ; 7226d (1c:626d)
ld hl, MltReq2Packet
call SendSGBPacket
call Wait7000
ld a, [rJOYP]
and $3
cp $3
jr nz, .isSGB
ld a, $20
ld [rJOYP], a
ld a, [rJOYP]
ld a, [rJOYP]
call Wait7000
call Wait7000
ld a, $30
ld [rJOYP], a
call Wait7000
call Wait7000
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 Wait7000
call Wait7000
ld a, $30
ld [rJOYP], a
ld a, [rJOYP]
ld a, [rJOYP]
ld a, [rJOYP]
call Wait7000
call Wait7000
ld a, [rJOYP]
and $3
cp $3
jr nz, .isSGB
call SendMltReq1Packet
and a
ret
.isSGB
call SendMltReq1Packet
scf
ret
SendMltReq1Packet: ; 722ce (1c:62ce)
ld hl, MltReq1Packet
call SendSGBPacket
jp Wait7000
CopyGfxToSuperNintendoVRAM: ; 722d7 (1c:62d7)
di
push de
call DisableLCD
ld a, $e4
ld [rBGP], a
call _UpdateGBCPal_BGP_CheckDMG
ld de, vChars1
ld a, [wCopyingSGBTileData]
and a
jr z, .notCopyingTileData
call CopySGBBorderTiles
jr .next
.notCopyingTileData
ld bc, $1000
call CopyData
.next
ld hl, vBGMap0
ld de, $c
ld a, $80
ld c, $d
.loop
ld b, $14
.innerLoop
ld [hli], a
inc a
dec b
jr nz, .innerLoop
add hl, de
dec c
jr nz, .loop
ld a, $e3
ld [rLCDC], a
pop hl
call SendSGBPacket
xor a
ld [rBGP], a
call _UpdateGBCPal_BGP_CheckDMG
ei
ret
Wait7000: ; 7231c (1c:631c)
; Each loop takes 9 cycles so this routine actually waits 63000 cycles.
ld de, 7000
.loop
nop
nop
nop
dec de
ld a, d
or e
jr nz, .loop
ret
SendSGBPackets: ; 72328 (1c:6328)
ld a, [hGBC]
and a
jr z, .notGBC
push de
call InitGBCPalettes
pop hl
call InitGBCPalettes
ld a, [rLCDC]
and rLCDC_ENABLE_MASK
ret z
call Delay3
ret
.notGBC
push de
call SendSGBPacket
pop hl
jp SendSGBPacket
InitGBCPalettes: ; 72346 (1c:6346)
ld a, [hl]
and $f8
cp $20
jp z, TranslatePalPacketToBGMapAttributes
inc hl
index = 0
REPT NUM_ACTIVE_PALS
IF index > 0
pop hl
ENDC
ld a, [hli]
inc hl
IF index < (NUM_ACTIVE_PALS + -1)
push hl
ENDC
call GetGBCBasePalAddress
ld a, e
ld [wGBCBasePalPointers + index * 2], a
ld a, d
ld [wGBCBasePalPointers + index * 2 + 1], a
xor a ; CONVERT_BGP
call DMGPalToGBCPal
ld a, index
call TransferCurBGPData
ld a, CONVERT_OBP0
call DMGPalToGBCPal
ld a, index
call TransferCurOBPData
ld a, CONVERT_OBP1
call DMGPalToGBCPal
ld a, index + 4
call TransferCurOBPData
index = index + 1
ENDR
ret
GetGBCBasePalAddress:: ; 723fe (1c:63fe)
; Input: a = palette ID
; Output: de = palette address
push hl
ld l, a
xor a
ld h, a
add hl, hl
add hl, hl
add hl, hl
ld de, GBCBasePalettes
add hl, de
ld a, l
ld e, a
ld a, h
ld d, a
pop hl
ret
DMGPalToGBCPal:: ; 7240f (1c:640f)
; Populate wGBCPal with colors from a base palette, selected using one of the
; DMG palette registers.
; Input:
; a = which DMG palette register
; de = address of GBC base palette
and a
jr nz, .notBGP
ld a, [rBGP]
ld [wLastBGP], a
jr .convert
.notBGP
dec a
jr nz, .notOBP0
ld a, [rOBP0]
ld [wLastOBP0], a
jr .convert
.notOBP0
ld a, [rOBP1]
ld [wLastOBP1], a
.convert
color_index = 0
REPT NUM_COLORS
ld b, a
and %11
call .GetColorAddress
ld a, [hli]
ld [wGBCPal + color_index * 2], a
ld a, [hl]
ld [wGBCPal + color_index * 2 + 1], a
IF color_index < (NUM_COLORS + -1)
ld a, b
rrca
rrca
ENDC
color_index = color_index + 1
ENDR
ret
.GetColorAddress: ; 7246a (1c:646a)
add a
ld l, a
xor a
ld h, a
add hl, de
ret
TransferCurBGPData:: ; 72470 (1c:6470)
push de
add a
add a
add a
or $80 ; auto-increment
ld [rBGPI], a
ld de, rBGPD
ld hl, wGBCPal
ld b, %10 ; mask for non-V-blank/non-H-blank STAT mode
ld a, [rLCDC]
and rLCDC_ENABLE_MASK
jr nz, .lcdEnabled
rept NUM_COLORS
call TransferPalColorLCDDisabled
endr
jr .done
.lcdEnabled
rept NUM_COLORS
call TransferPalColorLCDEnabled
endr
.done
pop de
ret
BufferBGPPal:: ; 724a2 (1c:64a2)
; Copy wGBCPal to palette a in wBGPPalsBuffer.
push de
add a
add a
add a
ld l, a
xor a
ld h, a
ld de, wBGPPalsBuffer
add hl, de
ld de, wGBCPal
ld c, PAL_SIZE
.loop
ld a, [de]
ld [hli], a
inc de
dec c
jr nz, .loop
pop de
ret
TransferBGPPals:: ; 724ba (1c:64ba)
; Transfer the buffered BG palettes.
ld a, [rLCDC]
and rLCDC_ENABLE_MASK
jr z, .lcdDisabled
di
.waitLoop
ld a, [rLY]
cp 144
jr c, .waitLoop
.lcdDisabled
call .DoTransfer
ei
ret
.DoTransfer: ; 724cc (1c:64cc)
xor a
or $80 ; auto-increment
ld [rBGPI], a
ld de, rBGPD
ld hl, wBGPPalsBuffer
ld c, 4 * PAL_SIZE
.loop
ld a, [hli]
ld [de], a
dec c
jr nz, .loop
ret
TransferCurOBPData: ; 724df (1c:64df)
push de
add a
add a
add a
or $80 ; auto-increment
ld [rOBPI], a
ld de, rOBPD
ld hl, wGBCPal
ld b, %10 ; mask for non-V-blank/non-H-blank STAT mode
ld a, [rLCDC]
and rLCDC_ENABLE_MASK
jr nz, .lcdEnabled
rept NUM_COLORS
call TransferPalColorLCDDisabled
endr
jr .done
.lcdEnabled
rept NUM_COLORS
call TransferPalColorLCDEnabled
endr
.done
pop de
ret
TransferPalColorLCDEnabled: ; 72511 (1c:6511)
; Transfer a palette color while the LCD is enabled.
; In case we're already in H-blank or V-blank, wait for it to end. This is a
; precaution so that the transfer doesn't extend past the blanking period.
ld a, [rSTAT]
and b
jr z, TransferPalColorLCDEnabled
; Wait for H-blank or V-blank to begin.
.notInBlankingPeriod
ld a, [rSTAT]
and b
jr nz, .notInBlankingPeriod
; fall through
TransferPalColorLCDDisabled: ; 7251b (1c:651b)
; Transfer a palette color while the LCD is disabled.
ld a, [hli]
ld [de], a
ld a, [hli]
ld [de], a
ret
_UpdateGBCPal_BGP_CheckDMG:: ; 72520 (1c:6520)
ld a, [hGBC]
and a
ret z
; fall through
_UpdateGBCPal_BGP:: ; 72524 (1c:6524)
index = 0
REPT NUM_ACTIVE_PALS
ld a, [wGBCBasePalPointers + index * 2]
ld e, a
ld a, [wGBCBasePalPointers + index * 2 + 1]
ld d, a
xor a ; CONVERT_BGP
call DMGPalToGBCPal
ld a, index
call BufferBGPPal
index = index + 1
ENDR
call TransferBGPPals
ret
_UpdateGBCPal_OBP:: ; 7256c (1c:656c)
index = 0
REPT NUM_ACTIVE_PALS
ld a, [wGBCBasePalPointers + index * 2]
ld e, a
ld a, [wGBCBasePalPointers + index * 2 + 1]
ld d, a
ld a, c
call DMGPalToGBCPal
ld a, c
dec a
rlca
rlca
IF index > 0
IF index == 1
inc a
ELSE
add index
ENDC
ENDC
call TransferCurOBPData
index = index + 1
ENDR
ret
TranslatePalPacketToBGMapAttributes:: ; 725be (1c:65be)
; translate the SGB pal packets into something usable for the GBC
push hl
pop de
ld hl, PalPacketPointers
ld a, [hli]
ld c, a
.loop
ld a, e
.innerLoop
cp [hl]
jr z, .checkHighByte
inc hl
inc hl
dec c
jr nz, .innerLoop
ret
.checkHighByte
; the low byte of pointer matched, so check the high byte
inc hl
ld a, d
cp [hl]
jr z, .foundMatchingPointer
inc hl
dec c
jr nz, .loop
ret
.foundMatchingPointer
callba LoadBGMapAttributes
ret
PalPacketPointers:: ; 725e2 (1c:65e2)
db (palPacketPointersEnd - palPacketPointers) / 2
palPacketPointers
dw BlkPacket_WholeScreen
dw BlkPacket_Battle
dw BlkPacket_StatusScreen
dw BlkPacket_Pokedex
dw BlkPacket_Slots
dw BlkPacket_Titlescreen
dw BlkPacket_NidorinoIntro
dw wPartyMenuBlkPacket
dw wTrainerCardBlkPacket
dw BlkPacket_GameFreakIntro
dw wPalPacket
dw UnknownPacket_72751
palPacketPointersEnd
CopySGBBorderTiles: ; 725fb (1c:65fb)
; SGB tile data is stored in a 4BPP planar format.
; Each tile is 32 bytes. The first 16 bytes contain bit planes 1 and 2, while
; the second 16 bytes contain bit planes 3 and 4.
; This function converts 2BPP planar data into this format by mapping
; 2BPP colors 0-3 to 4BPP colors 0-3. 4BPP colors 4-15 are not used.
ld b, 128
.tileLoop
; Copy bit planes 1 and 2 of the tile data.
ld c, 16
.copyLoop
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .copyLoop
; Zero bit planes 3 and 4.
ld c, 16
xor a
.zeroLoop
ld [de], a
inc de
dec c
jr nz, .zeroLoop
dec b
jr nz, .tileLoop
ret
INCLUDE "data/sgb_packets.asm"
INCLUDE "data/mon_palettes.asm"
INCLUDE "data/super_palettes.asm"
INCLUDE "data/sgb_border.asm"
Reference in New Issue View Git Blame Copy Permalink