pokecrystal-board/home/palettes.asm

334 lines
3.8 KiB
NASM
Raw Normal View History

; Functions dealing with palettes.
2018-06-24 07:09:41 -07:00
UpdatePalsIfCGB::
2018-01-01 06:08:21 -08:00
; update bgp data from wBGPals2
; update obp data from wOBPals2
; return carry if successful
; check cgb
ldh a, [hCGB]
and a
ret z
2018-06-24 07:09:41 -07:00
UpdateCGBPals::
; return carry if successful
; any pals to update?
ldh a, [hCGBPalUpdate]
and a
ret z
; fallthrough
2018-06-24 07:09:41 -07:00
ForceUpdateCGBPals::
ldh a, [rSVBK]
push af
2018-01-01 06:08:21 -08:00
ld a, BANK(wBGPals2)
ldh [rSVBK], a
2018-01-01 06:08:21 -08:00
ld hl, wBGPals2
; copy 8 pals to bgpd
ld a, 1 << rBGPI_AUTO_INCREMENT
ldh [rBGPI], a
ld c, LOW(rBGPD)
ld b, 8 / 2
.bgp
rept (1 palettes) * 2
ld a, [hli]
2019-02-16 09:17:55 -08:00
ldh [c], a
2015-12-09 08:38:40 -08:00
endr
dec b
jr nz, .bgp
2018-01-01 06:08:21 -08:00
; hl is now wOBPals2
; copy 8 pals to obpd
ld a, 1 << rOBPI_AUTO_INCREMENT
ldh [rOBPI], a
ld c, LOW(rOBPD)
ld b, 8 / 2
.obp
rept (1 palettes) * 2
ld a, [hli]
2019-02-16 09:17:55 -08:00
ldh [c], a
2015-12-09 08:38:40 -08:00
endr
dec b
jr nz, .obp
pop af
ldh [rSVBK], a
; clear pal update queue
xor a
ldh [hCGBPalUpdate], a
scf
ret
2018-06-24 07:09:41 -07:00
DmgToCgbBGPals::
; exists to forego reinserting cgb-converted image data
; input: a -> bgp
ldh [rBGP], a
push af
2015-11-09 13:41:09 -08:00
; Don't need to be here if DMG
ldh a, [hCGB]
and a
jr z, .end
push hl
push de
push bc
2020-06-16 12:49:32 -07:00
ldh a, [rSVBK]
push af
2018-01-01 06:08:21 -08:00
ld a, BANK(wBGPals2)
ldh [rSVBK], a
; copy & reorder bg pal buffer
2018-01-01 06:08:21 -08:00
ld hl, wBGPals2 ; to
ld de, wBGPals1 ; from
; order
ldh a, [rBGP]
ld b, a
; all pals
ld c, 8
call CopyPals
; request pal update
ld a, 1
ldh [hCGBPalUpdate], a
pop af
ldh [rSVBK], a
2020-06-16 12:49:32 -07:00
pop bc
pop de
pop hl
.end
pop af
ret
2018-06-24 07:09:41 -07:00
DmgToCgbObjPals::
; exists to forego reinserting cgb-converted image data
; input: d -> obp1
; e -> obp2
ld a, e
ldh [rOBP0], a
ld a, d
ldh [rOBP1], a
ldh a, [hCGB]
and a
ret z
push hl
push de
push bc
2020-06-16 12:49:32 -07:00
ldh a, [rSVBK]
push af
2018-01-01 06:08:21 -08:00
ld a, BANK(wOBPals2)
ldh [rSVBK], a
; copy & reorder obj pal buffer
2018-01-01 06:08:21 -08:00
ld hl, wOBPals2 ; to
ld de, wOBPals1 ; from
; order
ldh a, [rOBP0]
ld b, a
; all pals
ld c, 8
call CopyPals
; request pal update
ld a, 1
ldh [hCGBPalUpdate], a
pop af
ldh [rSVBK], a
2020-06-16 12:49:32 -07:00
pop bc
pop de
pop hl
ret
2018-06-24 07:09:41 -07:00
DmgToCgbObjPal0::
ldh [rOBP0], a
push af
2015-10-16 10:35:43 -07:00
2015-12-09 08:38:40 -08:00
; Don't need to be here if not CGB
ldh a, [hCGB]
and a
2015-12-09 08:38:40 -08:00
jr z, .dmg
2015-10-16 10:35:43 -07:00
push hl
push de
push bc
2015-10-16 10:35:43 -07:00
ldh a, [rSVBK]
push af
2018-01-01 06:08:21 -08:00
ld a, BANK(wOBPals2)
ldh [rSVBK], a
2015-10-16 10:35:43 -07:00
2018-01-01 06:08:21 -08:00
ld hl, wOBPals2 palette 0
ld de, wOBPals1 palette 0
ldh a, [rOBP0]
ld b, a
2015-12-09 08:38:40 -08:00
ld c, 1
call CopyPals
2015-12-09 08:38:40 -08:00
ld a, 1
ldh [hCGBPalUpdate], a
2015-10-16 10:35:43 -07:00
pop af
ldh [rSVBK], a
2015-10-16 10:35:43 -07:00
pop bc
pop de
pop hl
2015-12-09 08:38:40 -08:00
.dmg
pop af
ret
2018-06-24 07:09:41 -07:00
DmgToCgbObjPal1::
ldh [rOBP1], a
push af
2015-12-09 08:38:40 -08:00
ldh a, [hCGB]
and a
2015-12-09 08:38:40 -08:00
jr z, .dmg
push hl
push de
push bc
2015-12-09 08:38:40 -08:00
ldh a, [rSVBK]
push af
2018-01-01 06:08:21 -08:00
ld a, BANK(wOBPals2)
ldh [rSVBK], a
2015-12-09 08:38:40 -08:00
2018-01-01 06:08:21 -08:00
ld hl, wOBPals2 palette 1
ld de, wOBPals1 palette 1
ldh a, [rOBP1]
ld b, a
2015-12-09 08:38:40 -08:00
ld c, 1
call CopyPals
2015-12-09 08:38:40 -08:00
ld a, 1
ldh [hCGBPalUpdate], a
2015-12-09 08:38:40 -08:00
pop af
ldh [rSVBK], a
2015-12-09 08:38:40 -08:00
pop bc
pop de
pop hl
2015-12-09 08:38:40 -08:00
.dmg
pop af
ret
2018-06-24 07:09:41 -07:00
CopyPals::
; copy c palettes in order b from de to hl
push bc
2017-12-26 17:33:41 -08:00
ld c, NUM_PAL_COLORS
.loop
push de
push hl
; get pal color
ld a, b
2018-01-26 18:25:49 -08:00
maskbits 1 << PAL_COLOR_SIZE
; 2 bytes per color
add a
ld l, a
ld h, 0
add hl, de
ld e, [hl]
inc hl
ld d, [hl]
; dest
pop hl
; write color
ld [hl], e
inc hl
ld [hl], d
inc hl
; next pal color
2018-01-26 18:25:49 -08:00
rept PAL_COLOR_SIZE
srl b
2018-01-26 18:25:49 -08:00
endr
; source
pop de
; done pal?
dec c
jr nz, .loop
; de += 8 (next pal)
2018-01-22 16:57:35 -08:00
ld a, PALETTE_SIZE
add e
jr nc, .ok
inc d
.ok
ld e, a
; how many more pals?
pop bc
dec c
jr nz, CopyPals
ret
2018-06-24 07:09:41 -07:00
ClearVBank1::
ldh a, [hCGB]
and a
ret z
2015-11-16 18:07:26 -08:00
ld a, 1
ldh [rVBK], a
2015-11-16 18:07:26 -08:00
ld hl, VRAM_Begin
ld bc, VRAM_End - VRAM_Begin
xor a
call ByteFill
2015-11-16 18:07:26 -08:00
ld a, 0
ldh [rVBK], a
ret
GSReloadPalettes:: ; dummied out
ret
2018-06-24 07:09:41 -07:00
ReloadSpritesNoPalettes::
ldh a, [hCGB]
and a
ret z
ldh a, [rSVBK]
push af
2018-01-01 06:08:21 -08:00
ld a, BANK(wBGPals2)
ldh [rSVBK], a
2018-01-01 06:08:21 -08:00
ld hl, wBGPals2
ld bc, (8 palettes) + (2 palettes)
xor a
call ByteFill
pop af
ldh [rSVBK], a
ld a, 1
ldh [hCGBPalUpdate], a
call DelayFrame
ret
SwapTextboxPalettes::
homecall _SwapTextboxPalettes
ret
ScrollBGMapPalettes::
homecall _ScrollBGMapPalettes
ret