Future/pokecrystal
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace hardware_constants.asm with the community-standard hardware.inc 5.0 (#1186)

Browse Source
This commit is contained in:
Rangi
2025-06-23 09:11:33 -04:00
committed by GitHub
parent ae7ee67d21
commit 4c540aa43b
149 changed files with 3444 additions and 3103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
engine/gfx/cgb_layouts.asm
View File

@@ -116,7 +116,7 @@ _CGB_BattleColors:
_CGB_FinishBattleScreenLayout:
call InitPartyMenuBGPal7
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld bc, SCREEN_AREA
ld a, PAL_BATTLE_BG_ENEMY_HP
call ByteFill
hlcoord 0, 4, wAttrmap
@@ -601,17 +601,17 @@ _CGB_UnownPuzzle:
ld a, PREDEFPAL_UNOWN_PUZZLE
call GetPredefPal
call LoadHLPaletteIntoDE
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wOBPals1)
ldh [rSVBK], a
ldh [rWBK], a
ld hl, wOBPals1
ld a, LOW(palred 31 + palgreen 0 + palblue 0)
ld [hli], a
ld a, HIGH(palred 31 + palgreen 0 + palblue 0)
ld [hl], a
pop af
ldh [rSVBK], a
ldh [rWBK], a
call WipeAttrmap
call ApplyAttrmap
ret
@@ -648,7 +648,7 @@ _CGB_TrainerCard:
; fill screen with opposite-gender palette for the card border
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld bc, SCREEN_AREA
ld a, [wPlayerGender]
and a
ld a, $1 ; kris

64
engine/gfx/color.asm
View File

@@ -378,10 +378,10 @@ LoadStatsScreenPals:
dec c
add hl, bc
add hl, bc
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wBGPals1)
ldh [rSVBK], a
ldh [rWBK], a
ld a, [hli]
ld [wBGPals1 palette 0], a
ld [wBGPals1 palette 2], a
@@ -389,7 +389,7 @@ LoadStatsScreenPals:
ld [wBGPals1 palette 0 + 1], a
ld [wBGPals1 palette 2 + 1], a
pop af
ldh [rSVBK], a
ldh [rWBK], a
call ApplyPals
ld a, $1
ret
@@ -470,10 +470,10 @@ GetPredefPal:
ret
LoadHLPaletteIntoDE:
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wOBPals1)
ldh [rSVBK], a
ldh [rWBK], a
ld c, 1 palettes
.loop
ld a, [hli]
@@ -482,14 +482,14 @@ LoadHLPaletteIntoDE:
dec c
jr nz, .loop
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
LoadPalette_White_Col1_Col2_Black:
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wBGPals1)
ldh [rSVBK], a
ldh [rWBK], a
ld a, LOW(PALRGB_WHITE)
ld [de], a
@@ -498,7 +498,7 @@ LoadPalette_White_Col1_Col2_Black:
ld [de], a
inc de
ld c, 2 * PAL_COLOR_SIZE
ld c, 2 * COLOR_SIZE
.loop
ld a, [hli]
ld [de], a
@@ -513,7 +513,7 @@ LoadPalette_White_Col1_Col2_Black:
inc de
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
FillBoxCGB:
@@ -538,10 +538,10 @@ ResetBGPals:
push de
push hl
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wBGPals1)
ldh [rSVBK], a
ldh [rWBK], a
ld hl, wBGPals1
ld c, 1 palettes
@@ -560,7 +560,7 @@ ResetBGPals:
jr nz, .loop
pop af
ldh [rSVBK], a
ldh [rWBK], a
pop hl
pop de
@@ -570,7 +570,7 @@ ResetBGPals:
WipeAttrmap:
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld bc, SCREEN_AREA
xor a
call ByteFill
ret
@@ -585,7 +585,7 @@ ApplyPals:
ApplyAttrmap:
ldh a, [rLCDC]
bit rLCDC_ENABLE, a
bit B_LCDC_ENABLE, a
jr z, .UpdateVBank1
ldh a, [hBGMapMode]
push af
@@ -613,7 +613,7 @@ ApplyAttrmap:
inc de
dec c
jr nz, .col
ld a, BG_MAP_WIDTH - SCREEN_WIDTH
ld a, TILEMAP_WIDTH - SCREEN_WIDTH
add e
jr nc, .okay
inc d
@@ -720,7 +720,7 @@ CGBCopyBattleObjectPals: ; unreferenced
call CheckCGB
ret z
ld hl, BattleObjectPals
ld a, (1 << rOBPI_AUTO_INCREMENT) | $10
ld a, OBPI_AUTOINC | $10
ldh [rOBPI], a
ld c, 6 palettes
.loop
@@ -741,7 +741,7 @@ INCLUDE "gfx/battle_anims/battle_anims.pal"
CGBCopyTwoPredefObjectPals: ; unreferenced
call CheckCGB
ret z
ld a, (1 << rOBPI_AUTO_INCREMENT) | $10
ld a, OBPI_AUTOINC | $10
ldh [rOBPI], a
ld a, PREDEFPAL_TRADE_TUBE
call GetPredefPal
@@ -880,7 +880,7 @@ InitCGBPals::
call ByteFill
ld a, BANK(vTiles0)
ldh [rVBK], a
ld a, 1 << rBGPI_AUTO_INCREMENT
ld a, BGPI_AUTOINC
ldh [rBGPI], a
ld c, 4 * TILE_WIDTH
.bgpals_loop
@@ -890,7 +890,7 @@ InitCGBPals::
ldh [rBGPD], a
dec c
jr nz, .bgpals_loop
ld a, 1 << rOBPI_AUTO_INCREMENT
ld a, OBPI_AUTOINC
ldh [rOBPI], a
ld c, 4 * TILE_WIDTH
.obpals_loop
@@ -900,16 +900,16 @@ InitCGBPals::
ldh [rOBPD], a
dec c
jr nz, .obpals_loop
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wBGPals1)
ldh [rSVBK], a
ldh [rWBK], a
ld hl, wBGPals1
call .LoadWhitePals
ld hl, wBGPals2
call .LoadWhitePals
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
.LoadWhitePals:
@@ -1038,7 +1038,7 @@ endr
SGBBorder_PushBGPals:
call DisableLCD
ld a, %11100100
ld a, BGP_SGB_TRANSFER
ldh [rBGP], a
ld hl, PredefPals
ld de, vTiles1
@@ -1055,7 +1055,7 @@ SGBBorder_PushBGPals:
SGBBorder_MorePalPushing:
call DisableLCD
ld a, $e4
ld a, BGP_SGB_TRANSFER
ldh [rBGP], a
ld de, vTiles1
ld bc, (6 + SCREEN_WIDTH + 6) * 5 * 2
@@ -1089,7 +1089,7 @@ SGBBorder_MorePalPushing:
SGBBorder_YetMorePalPushing:
call DisableLCD
ld a, %11100100
ld a, BGP_SGB_TRANSFER
ldh [rBGP], a
ld de, vTiles1
ld b, $80
@@ -1138,7 +1138,7 @@ ClearBytes:
DrawDefaultTiles:
; Draw 240 tiles (2/3 of the screen) from tiles in VRAM
hlbgcoord 0, 0 ; BG Map 0
ld de, BG_MAP_WIDTH - SCREEN_WIDTH
ld de, TILEMAP_WIDTH - SCREEN_WIDTH
ld a, $80 ; starting tile
ld c, 12 + 1
.line
@@ -1171,7 +1171,7 @@ INCLUDE "gfx/sgb/pal_packets.asm"
INCLUDE "data/sgb_ctrl_packets.asm"
PredefPals:
table_width PALETTE_SIZE
table_width PAL_SIZE
INCLUDE "gfx/sgb/predef.pal"
assert_table_length NUM_PREDEF_PALS
@@ -1220,10 +1220,10 @@ LoadMapPals:
add hl, de
ld e, l
ld d, h
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wBGPals1)
ldh [rSVBK], a
ldh [rWBK], a
ld hl, wBGPals1
ld b, 8
.outer_loop
@@ -1252,7 +1252,7 @@ LoadMapPals:
dec b
jr nz, .outer_loop
pop af
ldh [rSVBK], a
ldh [rWBK], a
.got_pals
ld a, [wTimeOfDayPal]
@@ -1308,7 +1308,7 @@ MapObjectPals::
INCLUDE "gfx/overworld/npc_sprites.pal"
RoofPals:
table_width PAL_COLOR_SIZE * 2 * 2
table_width COLOR_SIZE * 2 * 2
INCLUDE "gfx/tilesets/roofs.pal"
assert_table_length NUM_MAP_GROUPS + 1

4
engine/gfx/crystal_layouts.asm
View File

@@ -46,7 +46,7 @@ Crystal_FillBoxCGB:
Crystal_WipeAttrmap:
; This is a copy of WipeAttrmap.
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
ld bc, SCREEN_AREA
xor a
call ByteFill
ret
@@ -140,7 +140,7 @@ _CrystalCGB_MobileLayout1:
call FarCopyWRAM
call Crystal_WipeAttrmap
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld bc, SCREEN_AREA
xor a
call ByteFill
hlcoord 0, 14, wAttrmap

80
engine/gfx/dma_transfer.asm
View File

@@ -116,16 +116,16 @@ Function1040d4: ; unreferenced
ld a, $1
ldh [rVBK], a
ld a, BANK(w3_d800)
ldh [rSVBK], a
ldh [rWBK], a
ld de, w3_d800
ldh a, [hBGMapAddress + 1]
ldh [rHDMA1], a
ldh [rVDMA_SRC_HIGH], a
ldh a, [hBGMapAddress]
ldh [rHDMA2], a
ldh [rVDMA_SRC_LOW], a
ld a, d
ldh [rHDMA3], a
ldh [rVDMA_DEST_HIGH], a
ld a, e
ldh [rHDMA4], a
ldh [rVDMA_DEST_LOW], a
ld a, $23
ldh [hDMATransfer], a
call WaitDMATransfer
@@ -139,7 +139,7 @@ Function1040fb: ; unreferenced
ld a, $1
ldh [rVBK], a
ld a, BANK(w3_d800)
ldh [rSVBK], a
ldh [rWBK], a
ld hl, w3_d800
call HDMATransferToWRAMBank3
ret
@@ -210,10 +210,10 @@ CallInSafeGFXMode:
xor a
ldh [hBGMapMode], a
ldh [hMapAnims], a
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wScratchTilemap)
ldh [rSVBK], a
ldh [rWBK], a
ldh a, [rVBK]
push af
@@ -222,7 +222,7 @@ CallInSafeGFXMode:
pop af
ldh [rVBK], a
pop af
ldh [rSVBK], a
ldh [rWBK], a
pop af
ldh [hMapAnims], a
pop af
@@ -278,19 +278,19 @@ HDMATransfer_NoDI:
ld e, a
ld c, 2 * SCREEN_HEIGHT
; [rHDMA1, rHDMA2] = hl & $fff0
; [rVDMA_SRC_HIGH, rVDMA_SRC_LOW] = hl & $fff0
ld a, h
ldh [rHDMA1], a
ldh [rVDMA_SRC_HIGH], a
ld a, l
and $f0
ldh [rHDMA2], a
; [rHDMA3, rHDMA4] = de & $1ff0
ldh [rVDMA_SRC_LOW], a
; [rVDMA_DEST_HIGH, rVDMA_DEST_LOW] = de & $1ff0
ld a, d
and $1f
ldh [rHDMA3], a
ldh [rVDMA_DEST_HIGH], a
ld a, e
and $f0
ldh [rHDMA4], a
ldh [rVDMA_DEST_LOW], a
; b = c | %10000000
ld a, c
dec c
@@ -308,11 +308,11 @@ HDMATransfer_NoDI:
; while not [rSTAT] & 3: pass
.loop2
ldh a, [rSTAT]
and $3
and STAT_MODE
jr z, .loop2
; load the 5th byte of HDMA
ld a, b
ldh [rHDMA5], a
ldh [rVDMA_LEN], a
; wait until rLY advances (c + 1) times
ldh a, [rLY]
inc c
@@ -323,7 +323,7 @@ HDMATransfer_NoDI:
ld a, [hl]
dec c
jr nz, .loop3
ld hl, rHDMA5
ld hl, rVDMA_LEN
res 7, [hl]
ret
@@ -335,19 +335,19 @@ HDMATransfer_WaitForScanline128:
ld b, $7f
_continue_HDMATransfer:
; a lot of waiting around for hardware registers
; [rHDMA1, rHDMA2] = hl & $fff0
; [rVDMA_SRC_HIGH, rVDMA_SRC_LOW] = hl & $fff0
ld a, h
ldh [rHDMA1], a
ldh [rVDMA_SRC_HIGH], a
ld a, l
and $f0 ; high nybble
ldh [rHDMA2], a
; [rHDMA3, rHDMA4] = de & $1ff0
ldh [rVDMA_SRC_LOW], a
; [rVDMA_DEST_HIGH, rVDMA_DEST_LOW] = de & $1ff0
ld a, d
and $1f ; lower 5 bits
ldh [rHDMA3], a
ldh [rVDMA_DEST_HIGH], a
ld a, e
and $f0 ; high nybble
ldh [rHDMA4], a
ldh [rVDMA_DEST_LOW], a
; e = c | %10000000
ld a, c
dec c
@@ -367,16 +367,16 @@ _continue_HDMATransfer:
; while [rSTAT] & 3: pass
.rstat_loop_1
ldh a, [rSTAT]
and $3
and STAT_MODE
jr nz, .rstat_loop_1
; while not [rSTAT] & 3: pass
.rstat_loop_2
ldh a, [rSTAT]
and $3
and STAT_MODE
jr z, .rstat_loop_2
; load the 5th byte of HDMA
ld a, e
ldh [rHDMA5], a
ldh [rVDMA_LEN], a
; wait until rLY advances (c + 1) times
ldh a, [rLY]
inc c
@@ -387,7 +387,7 @@ _continue_HDMATransfer:
ld a, [hl]
dec c
jr nz, .final_ly_loop
ld hl, rHDMA5
ld hl, rVDMA_LEN
res 7, [hl]
ei
@@ -395,14 +395,14 @@ _continue_HDMATransfer:
_LoadHDMAParameters:
ld a, h
ldh [rHDMA1], a
ldh [rVDMA_SRC_HIGH], a
ld a, l
ldh [rHDMA2], a
ldh [rVDMA_SRC_LOW], a
ldh a, [hBGMapAddress + 1]
and $1f
ldh [rHDMA3], a
ldh [rVDMA_DEST_HIGH], a
ldh a, [hBGMapAddress]
ldh [rHDMA4], a
ldh [rVDMA_DEST_LOW], a
ret
PadTilemapForHDMATransfer:
@@ -435,7 +435,7 @@ PadMapForHDMATransfer:
; load the original padding value of c into hl for 32 - 20 = 12 rows
ldh a, [hMapObjectIndex]
ld b, BG_MAP_WIDTH - SCREEN_WIDTH
ld b, TILEMAP_WIDTH - SCREEN_WIDTH
.loop3
ld [hli], a
dec b
@@ -452,10 +452,10 @@ PadMapForHDMATransfer:
HDMATransfer2bpp::
; 2bpp when [rLCDC] & $80
; switch to WRAM bank 6
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wScratchTilemap)
ldh [rSVBK], a
ldh [rWBK], a
push bc
push hl
@@ -490,7 +490,7 @@ HDMATransfer2bpp::
; restore the previous bank
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
HDMATransfer1bpp::
@@ -520,10 +520,10 @@ HDMATransfer1bpp::
jr .loop
.bankswitch
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wScratchTilemap)
ldh [rSVBK], a
ldh [rWBK], a
push bc
push hl
@@ -554,7 +554,7 @@ HDMATransfer1bpp::
call HDMATransfer_WaitForScanline128
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
HDMATransfer_OnlyTopFourRows:
@@ -593,7 +593,7 @@ HDMATransfer_OnlyTopFourRows:
dec c
jr nz, .inner_loop
ld a, l
add BG_MAP_WIDTH - SCREEN_WIDTH
add TILEMAP_WIDTH - SCREEN_WIDTH
ld l, a
ld a, h
adc 0

12
engine/gfx/load_font.asm
View File

@@ -20,22 +20,22 @@ _LoadStandardFont::
ld hl, vTiles1
lb bc, BANK(Font), 128 ; "A" to "9"
ldh a, [rLCDC]
bit rLCDC_ENABLE, a
bit B_LCDC_ENABLE, a
jp z, Copy1bpp
ld de, Font
ld hl, vTiles1
lb bc, BANK(Font), 32 ; "A" to "]"
call Get1bppViaHDMA
ld de, Font + 32 * LEN_1BPP_TILE
ld de, Font + 32 * TILE_1BPP_SIZE
ld hl, vTiles1 tile $20
lb bc, BANK(Font), 32 ; "a" to $bf
call Get1bppViaHDMA
ld de, Font + 64 * LEN_1BPP_TILE
ld de, Font + 64 * TILE_1BPP_SIZE
ld hl, vTiles1 tile $40
lb bc, BANK(Font), 32 ; "Ä" to "←"
call Get1bppViaHDMA
ld de, Font + 96 * LEN_1BPP_TILE
ld de, Font + 96 * TILE_1BPP_SIZE
ld hl, vTiles1 tile $60
lb bc, BANK(Font), 32 ; "'" to "9"
call Get1bppViaHDMA
@@ -74,7 +74,7 @@ _LoadFontsBattleExtra::
LoadFrame:
ld a, [wTextboxFrame]
maskbits NUM_FRAMES
ld bc, TEXTBOX_FRAME_TILES * LEN_1BPP_TILE
ld bc, TEXTBOX_FRAME_TILES * TILE_1BPP_SIZE
ld hl, Frames
call AddNTimes
ld d, h
@@ -128,7 +128,7 @@ StatsScreen_LoadFont:
ld hl, vTiles2 tile $78
lb bc, BANK(HPExpBarBorderGFX), 1
call Get1bppViaHDMA
ld de, HPExpBarBorderGFX + 3 * LEN_1BPP_TILE
ld de, HPExpBarBorderGFX + 3 * TILE_1BPP_SIZE
ld hl, vTiles2 tile $76
lb bc, BANK(HPExpBarBorderGFX), 2
call Get1bppViaHDMA

28
engine/gfx/load_pics.asm
View File

@@ -53,11 +53,11 @@ GetMonFrontpic:
ld [wCurSpecies], a
call IsAPokemon
ret c
ldh a, [rSVBK]
ldh a, [rWBK]
push af
call _GetFrontpic
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
GetAnimatedFrontpic:
@@ -65,14 +65,14 @@ GetAnimatedFrontpic:
ld [wCurSpecies], a
call IsAPokemon
ret c
ldh a, [rSVBK]
ldh a, [rWBK]
push af
xor a
ldh [hBGMapMode], a
call _GetFrontpic
call GetAnimatedEnemyFrontpic
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
_GetFrontpic:
@@ -84,7 +84,7 @@ _GetFrontpic:
push bc
call GetFrontpicPointer
ld a, BANK(wDecompressEnemyFrontpic)
ldh [rSVBK], a
ldh [rWBK], a
ld a, b
ld de, wDecompressEnemyFrontpic
call FarDecompress
@@ -201,10 +201,10 @@ GetMonBackpic:
ld b, a
ld a, [wUnownLetter]
ld c, a
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wDecompressScratch)
ldh [rSVBK], a
ldh [rWBK], a
push de
; These are assumed to be at the same address in their respective banks.
@@ -241,7 +241,7 @@ GetMonBackpic:
ld b, a
call Get2bpp
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
FixPicBank:
@@ -320,10 +320,10 @@ GetTrainerPic:
dec a
ld bc, 3
call AddNTimes
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wDecompressScratch)
ldh [rSVBK], a
ldh [rWBK], a
push de
ld a, BANK(TrainerPicPointers)
call GetFarByte
@@ -342,7 +342,7 @@ GetTrainerPic:
ld b, a
call Get2bpp
pop af
ldh [rSVBK], a
ldh [rWBK], a
call WaitBGMap
ld a, 1
ldh [hBGMapMode], a
@@ -351,10 +351,10 @@ GetTrainerPic:
DecompressGet2bpp:
; Decompress lz data from b:hl to wDecompressScratch, then copy it to address de.
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wDecompressScratch)
ldh [rSVBK], a
ldh [rWBK], a
push de
push bc
@@ -369,7 +369,7 @@ DecompressGet2bpp:
call Get2bpp
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
FixBackpicAlignment:

2
engine/gfx/load_push_oam.asm
View File

@@ -19,7 +19,7 @@ hTransferShadowOAM::
ld a, HIGH(wShadowOAM)
ldh [rDMA], a
; wait for DMA to finish
ld a, NUM_SPRITE_OAM_STRUCTS
ld a, OAM_COUNT
.wait
dec a
jr nz, .wait

36
engine/gfx/pic_animation.asm
View File

@@ -103,10 +103,10 @@ LoadMonAnimation:
ret
SetUpPokeAnim:
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wPokeAnimStruct)
ldh [rSVBK], a
ldh [rWBK], a
ld a, [wPokeAnimSceneIndex]
ld c, a
ld b, 0
@@ -121,7 +121,7 @@ SetUpPokeAnim:
ld a, [wPokeAnimSceneIndex]
ld c, a
pop af
ldh [rSVBK], a
ldh [rWBK], a
ld a, c
and JUMPTABLE_EXIT
ret z
@@ -254,16 +254,16 @@ PokeAnim_StereoCry:
ret
PokeAnim_DeinitFrames:
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wPokeAnimCoord)
ldh [rSVBK], a
ldh [rWBK], a
call PokeAnim_PlaceGraphic
farcall HDMATransferTilemapToWRAMBank3
call PokeAnim_SetVBank0
farcall HDMATransferAttrmapToWRAMBank3
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
AnimateMon_CheckIfPokemon:
@@ -280,10 +280,10 @@ AnimateMon_CheckIfPokemon:
ret
PokeAnim_InitPicAttributes:
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wPokeAnimStruct)
ldh [rSVBK], a
ldh [rWBK], a
push bc
push de
@@ -328,14 +328,14 @@ PokeAnim_InitPicAttributes:
ld [wPokeAnimFrontpicHeight], a
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
PokeAnim_InitAnim:
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wPokeAnimIdleFlag)
ldh [rSVBK], a
ldh [rWBK], a
push bc
ld hl, wPokeAnimIdleFlag
ld bc, wPokeAnimStructEnd - wPokeAnimIdleFlag
@@ -350,7 +350,7 @@ PokeAnim_InitAnim:
call GetMonFramesPointer
call GetMonBitmaskPointer
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
PokeAnim_DoAnimScript:
@@ -819,16 +819,16 @@ PokeAnim_PlaceGraphic:
ret
PokeAnim_SetVBank1:
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wPokeAnimCoord)
ldh [rSVBK], a
ldh [rWBK], a
xor a
ldh [hBGMapMode], a
call .SetFlag
farcall HDMATransferAttrmapToWRAMBank3
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
.SetFlag:
@@ -939,10 +939,10 @@ GetMonAnimPointer:
ret
PokeAnim_GetFrontpicDims:
ldh a, [rSVBK]
ldh a, [rWBK]
push af
ld a, BANK(wCurPartySpecies)
ldh [rSVBK], a
ldh [rWBK], a
ld a, [wCurPartySpecies]
ld [wCurSpecies], a
call GetBaseData
@@ -950,7 +950,7 @@ PokeAnim_GetFrontpicDims:
and $f
ld c, a
pop af
ldh [rSVBK], a
ldh [rWBK], a
ret
GetMonFramesPointer: