summaryrefslogtreecommitdiff
path: root/engine/movie/crystal_intro.asm
diff options
context:
space:
mode:
Diffstat (limited to 'engine/movie/crystal_intro.asm')
-rw-r--r--engine/movie/crystal_intro.asm384
1 files changed, 192 insertions, 192 deletions
diff --git a/engine/movie/crystal_intro.asm b/engine/movie/crystal_intro.asm
index 467c1671a..bb9cd6936 100644
--- a/engine/movie/crystal_intro.asm
+++ b/engine/movie/crystal_intro.asm
@@ -4,14 +4,14 @@ Copyright_GFPresents:
call ClearBGPalettes
call ClearTileMap
ld a, HIGH(vBGMap0)
- ld [hBGMapAddress + 1], a
+ ldh [hBGMapAddress + 1], a
xor a ; LOW(vBGMap0)
- ld [hBGMapAddress], a
- ld [hJoyDown], a
- ld [hSCX], a
- ld [hSCY], a
+ ldh [hBGMapAddress], a
+ ldh [hJoyDown], a
+ ldh [hSCX], a
+ ldh [hSCY], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
call WaitBGMap
ld b, SCGB_GAMEFREAK_LOGO
call GetSGBLayout
@@ -27,7 +27,7 @@ Copyright_GFPresents:
call .GetGFLogoGFX
.joy_loop
call JoyTextDelay
- ld a, [hJoyLast]
+ ldh a, [hJoyLast]
and BUTTONS
jr nz, .pressed_button
ld a, [wJumptableIndex]
@@ -54,10 +54,10 @@ Copyright_GFPresents:
lb bc, BANK(GameFreakLogo), 28
call Get1bpp
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wDecompressScratch)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, IntroLogoGFX
ld de, wDecompressScratch
@@ -75,7 +75,7 @@ Copyright_GFPresents:
call Request2bpp
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
farcall ClearSpriteAnims
depixel 10, 11, 4, 0
@@ -94,12 +94,12 @@ Copyright_GFPresents:
ld [wJumptableIndex], a
ld [wIntroSceneFrameCounter], a
ld [wIntroSceneTimer], a
- ld [hSCX], a
- ld [hSCY], a
+ ldh [hSCX], a
+ ldh [hSCY], a
ld a, $1
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
lb de, %11100100, %11100100
call DmgToCgbObjPals
ret
@@ -304,18 +304,18 @@ GameFreakLogoScene4:
ld hl, GameFreakLogoPalettes
add hl, de
add hl, de
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wOBPals2)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld a, [hli]
ld [wOBPals2 + 12], a
ld a, [hli]
ld [wOBPals2 + 13], a
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ld a, $1
- ld [hCGBPalUpdate], a
+ ldh [hCGBPalUpdate], a
ret
.asm_e47a3
@@ -334,18 +334,18 @@ INCBIN "gfx/splash/logo1.1bpp"
INCBIN "gfx/splash/logo2.1bpp"
CrystalIntro:
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wGBCPalettes)
- ld [rSVBK], a
- ld a, [hInMenu]
+ ldh [rSVBK], a
+ ldh a, [hInMenu]
push af
- ld a, [hVBlank]
+ ldh a, [hVBlank]
push af
call .InitRAMAddrs
.loop
call JoyTextDelay
- ld a, [hJoyLast]
+ ldh a, [hJoyLast]
and BUTTONS
jr nz, .ShutOffMusic
ld a, [wJumptableIndex]
@@ -365,27 +365,27 @@ CrystalIntro:
call ClearSprites
call ClearTileMap
xor a
- ld [hSCX], a
- ld [hSCY], a
+ ldh [hSCX], a
+ ldh [hSCY], a
ld a, $7
- ld [hWX], a
+ ldh [hWX], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
pop af
- ld [hVBlank], a
+ ldh [hVBlank], a
pop af
- ld [hInMenu], a
+ ldh [hInMenu], a
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ret
.InitRAMAddrs:
xor a
- ld [hVBlank], a
+ ldh [hVBlank], a
ld a, $1
- ld [hInMenu], a
+ ldh [hInMenu], a
xor a
- ld [hMapAnims], a
+ ldh [hMapAnims], a
ld [wJumptableIndex], a
ret
@@ -442,14 +442,14 @@ IntroScene1:
call ClearSprites
call ClearTileMap
xor a
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
ld a, $1
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroTilemap001
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
ld a, $0
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroUnownsGFX
ld de, vTiles2 tile $00
call Intro_DecompressRequest2bpp_128Tiles
@@ -459,10 +459,10 @@ IntroScene1:
ld hl, IntroTilemap002
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, IntroPalette2
ld de, wBGPals1
ld bc, 16 palettes
@@ -472,14 +472,14 @@ IntroScene1:
ld bc, 16 palettes
call CopyBytes
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
xor a
- ld [hSCX], a
- ld [hSCY], a
+ ldh [hSCX], a
+ ldh [hSCY], a
ld a, $7
- ld [hWX], a
+ ldh [hWX], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
farcall ClearSpriteAnims
call Intro_SetCGBPalUpdate
xor a
@@ -518,24 +518,24 @@ IntroScene3:
call ClearSprites
call ClearTileMap
xor a
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
ld a, $1
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroTilemap003
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
ld a, $0
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroBackgroundGFX
ld de, vTiles2 tile $00
call Intro_DecompressRequest2bpp_128Tiles
ld hl, IntroTilemap004
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, IntroPalette1
ld de, wBGPals1
ld bc, 16 palettes
@@ -545,14 +545,14 @@ IntroScene3:
ld bc, 16 palettes
call CopyBytes
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
xor a
- ld [hSCX], a
- ld [hSCY], a
+ ldh [hSCX], a
+ ldh [hSCY], a
ld a, $7
- ld [hWX], a
+ ldh [hWX], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
call Intro_ResetLYOverrides
call Intro_SetCGBPalUpdate
xor a
@@ -580,15 +580,15 @@ IntroScene5:
call ClearSprites
call ClearTileMap
xor a
- ld [hBGMapMode], a
- ld [hLCDCPointer], a
+ ldh [hBGMapMode], a
+ ldh [hLCDCPointer], a
ld a, $1
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroTilemap005
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
ld a, $0
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroUnownsGFX
ld de, vTiles2 tile $00
call Intro_DecompressRequest2bpp_128Tiles
@@ -598,10 +598,10 @@ IntroScene5:
ld hl, IntroTilemap006
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, IntroPalette2
ld de, wBGPals1
ld bc, 16 palettes
@@ -611,14 +611,14 @@ IntroScene5:
ld bc, 16 palettes
call CopyBytes
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
xor a
- ld [hSCX], a
- ld [hSCY], a
+ ldh [hSCX], a
+ ldh [hSCY], a
ld a, $7
- ld [hWX], a
+ ldh [hWX], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
farcall ClearSpriteAnims
call Intro_SetCGBPalUpdate
xor a
@@ -678,10 +678,10 @@ IntroScene7:
call ClearSprites
call ClearTileMap
xor a
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
ld a, $1
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroTilemap003
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
@@ -691,7 +691,7 @@ IntroScene7:
call Intro_DecompressRequest2bpp_128Tiles
ld a, $0
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroSuicuneRunGFX
ld de, vTiles0 tile $00
call Intro_DecompressRequest2bpp_255Tiles
@@ -704,10 +704,10 @@ IntroScene7:
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, IntroPalette1
ld de, wBGPals1
@@ -720,15 +720,15 @@ IntroScene7:
call CopyBytes
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
xor a
- ld [hSCX], a
- ld [hSCY], a
+ ldh [hSCX], a
+ ldh [hSCY], a
ld a, $7
- ld [hWX], a
+ ldh [hWX], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
call Intro_ResetLYOverrides
farcall ClearSpriteAnims
depixel 13, 27, 4, 0
@@ -775,7 +775,7 @@ IntroScene8:
IntroScene9:
; Set up the next scene (same bg).
xor a
- ld [hLCDCPointer], a
+ ldh [hLCDCPointer], a
call ClearSprites
hlcoord 0, 0, wAttrMap
; first 12 rows have palette 1
@@ -791,18 +791,18 @@ IntroScene9:
ld a, $3
call ByteFill
ld a, $2
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
call DelayFrame
call DelayFrame
call DelayFrame
ld a, $c ; $980c
- ld [hBGMapAddress], a
+ ldh [hBGMapAddress], a
call DelayFrame
call DelayFrame
call DelayFrame
xor a
- ld [hBGMapMode], a
- ld [hBGMapAddress], a
+ ldh [hBGMapMode], a
+ ldh [hBGMapAddress], a
ld [wGlobalAnimXOffset], a
xor a
ld [wIntroSceneFrameCounter], a
@@ -848,25 +848,25 @@ IntroScene11:
call ClearSprites
call ClearTileMap
xor a
- ld [hBGMapMode], a
- ld [hLCDCPointer], a
+ ldh [hBGMapMode], a
+ ldh [hLCDCPointer], a
ld a, $1
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroTilemap007
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
ld a, $0
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroUnownsGFX
ld de, vTiles2 tile $00
call Intro_DecompressRequest2bpp_128Tiles
ld hl, IntroTilemap008
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, IntroPalette2
ld de, wBGPals1
ld bc, 16 palettes
@@ -876,14 +876,14 @@ IntroScene11:
ld bc, 16 palettes
call CopyBytes
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
xor a
- ld [hSCX], a
- ld [hSCY], a
+ ldh [hSCX], a
+ ldh [hSCY], a
ld a, $7
- ld [hWX], a
+ ldh [hWX], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
farcall ClearSpriteAnims
call Intro_SetCGBPalUpdate
xor a
@@ -972,14 +972,14 @@ IntroScene13:
call ClearSprites
call ClearTileMap
xor a
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
ld a, $1
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroTilemap003
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
ld a, $0
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroSuicuneRunGFX
ld de, vTiles0 tile $00
call Intro_DecompressRequest2bpp_255Tiles
@@ -989,10 +989,10 @@ IntroScene13:
ld hl, IntroTilemap004
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, IntroPalette1
ld de, wBGPals1
ld bc, 16 palettes
@@ -1002,14 +1002,14 @@ IntroScene13:
ld bc, 16 palettes
call CopyBytes
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
xor a
- ld [hSCX], a
- ld [hSCY], a
+ ldh [hSCX], a
+ ldh [hSCY], a
ld a, $7
- ld [hWX], a
+ ldh [hWX], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
farcall ClearSpriteAnims
depixel 13, 11, 4, 0
ld a, SPRITE_ANIM_INDEX_INTRO_SUICUNE
@@ -1027,9 +1027,9 @@ IntroScene13:
IntroScene14:
; Suicune runs then jumps.
- ld a, [hSCX]
+ ldh a, [hSCX]
sub 10
- ld [hSCX], a
+ ldh [hSCX], a
ld hl, wIntroSceneFrameCounter
ld a, [hl]
inc [hl]
@@ -1076,14 +1076,14 @@ IntroScene15:
call ClearSprites
call ClearTileMap
xor a
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
ld a, $1
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroTilemap009
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
ld a, $0
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroSuicuneJumpGFX
ld de, vTiles2 tile $00
call Intro_DecompressRequest2bpp_128Tiles
@@ -1098,10 +1098,10 @@ IntroScene15:
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
call Intro_LoadTilemap
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, IntroPalette5
ld de, wBGPals1
ld bc, 16 palettes
@@ -1111,15 +1111,15 @@ IntroScene15:
ld bc, 16 palettes
call CopyBytes
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
xor a
- ld [hSCX], a
+ ldh [hSCX], a
ld a, $90
- ld [hSCY], a
+ ldh [hSCY], a
ld a, $7
- ld [hWX], a
+ ldh [hWX], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
farcall ClearSpriteAnims
call Intro_SetCGBPalUpdate
depixel 8, 5
@@ -1142,11 +1142,11 @@ IntroScene16:
cp $80
jr nc, .done
call Intro_Scene16_AnimateSuicune
- ld a, [hSCY]
+ ldh a, [hSCY]
and a
ret z
add 8
- ld [hSCY], a
+ ldh [hSCY], a
ret
.done
call NextIntroScene
@@ -1158,24 +1158,24 @@ IntroScene17:
call ClearSprites
call ClearTileMap
xor a
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
ld a, $1
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroTilemap011
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
ld a, $0
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroSuicuneCloseGFX
ld de, vTiles1 tile $00
call Intro_DecompressRequest2bpp_255Tiles
ld hl, IntroTilemap012
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, IntroPalette4
ld de, wBGPals1
ld bc, 16 palettes
@@ -1185,14 +1185,14 @@ IntroScene17:
ld bc, 16 palettes
call CopyBytes
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
xor a
- ld [hSCX], a
- ld [hSCY], a
+ ldh [hSCX], a
+ ldh [hSCY], a
ld a, $7
- ld [hWX], a
+ ldh [hWX], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
farcall ClearSpriteAnims
call Intro_SetCGBPalUpdate
xor a
@@ -1208,11 +1208,11 @@ IntroScene18:
inc [hl]
cp $60
jr nc, .done
- ld a, [hSCX]
+ ldh a, [hSCX]
cp $60
ret z
add 8
- ld [hSCX], a
+ ldh [hSCX], a
ret
.done
call NextIntroScene
@@ -1224,14 +1224,14 @@ IntroScene19:
call ClearSprites
call ClearTileMap
xor a
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
ld a, $1
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroTilemap013
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
ld a, $0
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroSuicuneBackGFX
ld de, vTiles2 tile $00
call Intro_DecompressRequest2bpp_128Tiles
@@ -1246,10 +1246,10 @@ IntroScene19:
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
call Intro_LoadTilemap
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, IntroPalette5
ld de, wBGPals1
ld bc, 16 palettes
@@ -1259,15 +1259,15 @@ IntroScene19:
ld bc, 16 palettes
call CopyBytes
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
xor a
- ld [hSCX], a
+ ldh [hSCX], a
ld a, $d8
- ld [hSCY], a
+ ldh [hSCY], a
ld a, $7
- ld [hWX], a
+ ldh [hWX], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
farcall ClearSpriteAnims
ld hl, wSpriteAnimDict
xor a
@@ -1296,9 +1296,9 @@ IntroScene20:
jr nc, .AppearUnown
cp $28
ret nc
- ld a, [hSCY]
+ ldh a, [hSCY]
inc a
- ld [hSCY], a
+ ldh [hSCY], a
ret
.AppearUnown:
@@ -1335,7 +1335,7 @@ IntroScene21:
ld c, 3
call DelayFrames
xor a
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
ld [wIntroSceneFrameCounter], a
ld [wIntroSceneTimer], a
call NextIntroScene
@@ -1401,24 +1401,24 @@ IntroScene26:
call ClearSprites
call ClearTileMap
xor a
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
ld a, $1
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroTilemap015
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
ld a, $0
- ld [rVBK], a
+ ldh [rVBK], a
ld hl, IntroCrystalUnownsGFX
ld de, vTiles2 tile $00
call Intro_DecompressRequest2bpp_128Tiles
ld hl, IntroTilemap017
debgcoord 0, 0
call Intro_DecompressRequest2bpp_64Tiles
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, IntroPalette3
ld de, wBGPals1
ld bc, 16 palettes
@@ -1428,14 +1428,14 @@ IntroScene26:
ld bc, 16 palettes
call CopyBytes
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
xor a
- ld [hSCX], a
- ld [hSCY], a
+ ldh [hSCX], a
+ ldh [hSCY], a
ld a, $7
- ld [hWX], a
+ ldh [hWX], a
ld a, $90
- ld [hWY], a
+ ldh [hWY], a
farcall ClearSpriteAnims
call Intro_SetCGBPalUpdate
xor a
@@ -1503,10 +1503,10 @@ Intro_Scene24_ApplyPaletteFade:
adc h
ld h, a
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals2)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld de, wBGPals2
ld b, 8 ; number of BG pals
.loop1
@@ -1522,9 +1522,9 @@ Intro_Scene24_ApplyPaletteFade:
dec b
jr nz, .loop1
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ld a, $1
- ld [hCGBPalUpdate], a
+ ldh [hCGBPalUpdate], a
ret
.FadePals:
@@ -1592,10 +1592,10 @@ CrystalIntro_UnownFade:
ld c, a
ld b, $0
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals2)
- ld [rSVBK], a
+ ldh [rSVBK], a
push hl
push bc
@@ -1646,9 +1646,9 @@ CrystalIntro_UnownFade:
ld [hli], a
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ld a, $1
- ld [hCGBPalUpdate], a
+ ldh [hCGBPalUpdate], a
ret
.BWFade:
@@ -1693,10 +1693,10 @@ Intro_Scene20_AppearUnown:
add a
add a
ld c, a
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals2)
- ld [rSVBK], a
+ ldh [rSVBK], a
push bc
ld de, wBGPals2
@@ -1724,9 +1724,9 @@ Intro_Scene20_AppearUnown:
call CopyBytes
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ld a, $1
- ld [hCGBPalUpdate], a
+ ldh [hCGBPalUpdate], a
ret
.pal1
@@ -1757,10 +1757,10 @@ endr
ld c, a
ld b, $0
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals2)
- ld [rSVBK], a
+ ldh [rSVBK], a
push hl
ld hl, .FastFadePalettes
@@ -1787,9 +1787,9 @@ endr
ld [hli], a
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ld a, $1
- ld [hCGBPalUpdate], a
+ ldh [hCGBPalUpdate], a
ret
.FastFadePalettes:
@@ -1809,10 +1809,10 @@ hue = hue + -1
endr
Intro_LoadTilemap:
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wDecompressScratch)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, wDecompressScratch
decoord 0, 0
@@ -1835,7 +1835,7 @@ Intro_LoadTilemap:
jr nz, .row
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ret
Intro_Scene16_AnimateSuicune:
@@ -1848,7 +1848,7 @@ Intro_Scene16_AnimateSuicune:
.PrepareForSuicuneSwap:
xor a
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
ret
Intro_ColoredSuicuneFrameSwap:
@@ -1869,7 +1869,7 @@ Intro_ColoredSuicuneFrameSwap:
or b
jr nz, .loop
ld a, $1
- ld [hBGMapMode], a
+ ldh [hBGMapMode], a
ret
Intro_RustleGrass:
@@ -1902,14 +1902,14 @@ Intro_RustleGrass:
Intro_SetCGBPalUpdate:
ld a, $1
- ld [hCGBPalUpdate], a
+ ldh [hCGBPalUpdate], a
ret
Intro_ClearBGPals:
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wBGPals2)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, wBGPals2
ld bc, 16 palettes
@@ -1917,18 +1917,18 @@ Intro_ClearBGPals:
call ByteFill
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ld a, $1
- ld [hCGBPalUpdate], a
+ ldh [hCGBPalUpdate], a
call DelayFrame
call DelayFrame
ret
Intro_DecompressRequest2bpp_128Tiles:
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wDecompressScratch)
- ld [rSVBK], a
+ ldh [rSVBK], a
push de
ld de, wDecompressScratch
@@ -1940,14 +1940,14 @@ Intro_DecompressRequest2bpp_128Tiles:
call Request2bpp
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ret
Intro_DecompressRequest2bpp_255Tiles:
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wDecompressScratch)
- ld [rSVBK], a
+ ldh [rSVBK], a
push de
ld de, wDecompressScratch
@@ -1959,14 +1959,14 @@ Intro_DecompressRequest2bpp_255Tiles:
call Request2bpp
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ret
Intro_DecompressRequest2bpp_64Tiles:
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wDecompressScratch)
- ld [rSVBK], a
+ ldh [rSVBK], a
push de
ld de, wDecompressScratch
@@ -1978,14 +1978,14 @@ Intro_DecompressRequest2bpp_64Tiles:
call Request2bpp
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ret
Intro_ResetLYOverrides:
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wLYOverrides)
- ld [rSVBK], a
+ ldh [rSVBK], a
ld hl, wLYOverrides
ld bc, wLYOverridesEnd - wLYOverrides
@@ -1993,16 +1993,16 @@ Intro_ResetLYOverrides:
call ByteFill
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ld a, rSCX - $ff00
- ld [hLCDCPointer], a
+ ldh [hLCDCPointer], a
ret
Intro_PerspectiveScrollBG:
- ld a, [rSVBK]
+ ldh a, [rSVBK]
push af
ld a, BANK(wLYOverrides)
- ld [rSVBK], a
+ ldh [rSVBK], a
; Scroll the grass every frame.
; Scroll the trees every other frame and at half speed.
; This creates an illusion of perspective.
@@ -2024,9 +2024,9 @@ Intro_PerspectiveScrollBG:
ld bc, $31
call ByteFill
ld a, [wLYOverrides + 0]
- ld [hSCX], a
+ ldh [hSCX], a
pop af
- ld [rSVBK], a
+ ldh [rSVBK], a
ret
IntroSuicuneRunGFX:
generated by cgit v1.2.3 (git 2.25.1) at 2025-07-15 10:40:04 +0000