pokecrystal-board/engine/tilesets/map_palettes.asm

87 lines
1019 B
NASM
Raw Normal View History

_SwapTextboxPalettes::
hlcoord 0, 0
decoord 0, 0, wAttrmap
ld b, SCREEN_HEIGHT
.loop
push bc
ld c, SCREEN_WIDTH
.innerloop
ld a, [hl]
push hl
srl a
jr c, .UpperNybble
2018-01-23 14:39:09 -08:00
ld hl, wTilesetPalettes
add [hl]
ld l, a
2018-01-23 14:39:09 -08:00
ld a, [wTilesetPalettes + 1]
2018-02-04 10:16:40 -08:00
adc 0
ld h, a
ld a, [hl]
and $f
jr .next
.UpperNybble:
2018-01-23 14:39:09 -08:00
ld hl, wTilesetPalettes
add [hl]
ld l, a
2018-01-23 14:39:09 -08:00
ld a, [wTilesetPalettes + 1]
2018-02-04 10:16:40 -08:00
adc 0
ld h, a
ld a, [hl]
swap a
and $f
.next
pop hl
ld [de], a
res 7, [hl]
inc hl
inc de
dec c
jr nz, .innerloop
pop bc
dec b
jr nz, .loop
ret
_ScrollBGMapPalettes::
2018-01-23 14:39:09 -08:00
ld hl, wBGMapBuffer
ld de, wBGMapPalBuffer
.loop
ld a, [hl]
push hl
srl a
jr c, .UpperNybble
; .LowerNybble
2018-01-23 14:39:09 -08:00
ld hl, wTilesetPalettes
add [hl]
ld l, a
2018-01-23 14:39:09 -08:00
ld a, [wTilesetPalettes + 1]
2018-02-04 10:16:40 -08:00
adc 0
ld h, a
ld a, [hl]
and $f
jr .next
.UpperNybble:
2018-01-23 14:39:09 -08:00
ld hl, wTilesetPalettes
add [hl]
ld l, a
2018-01-23 14:39:09 -08:00
ld a, [wTilesetPalettes + 1]
2018-02-04 10:16:40 -08:00
adc 0
ld h, a
ld a, [hl]
swap a
and $f
.next
pop hl
ld [de], a
res 7, [hl]
inc hl
inc de
dec c
jr nz, .loop
ret