LY_BLANK and rLCDC constants

This commit is contained in:
xCrystal
2017-12-29 18:53:21 +01:00
parent 69762a2bfd
commit 3c6c80f1b2
21 changed files with 54 additions and 48 deletions

View File

@@ -8395,11 +8395,11 @@ BattleIntro: ; 3f4dd
ld b, SCGB_BATTLE_GRAYSCALE
call GetSGBLayout
ld hl, rLCDC
res 6, [hl]
res rLCDC_WINDOW_TILEMAP, [hl] ; select 9800-9BFF
call InitBattleDisplay
call BattleStartMessage
ld hl, rLCDC
set 6, [hl]
set rLCDC_WINDOW_TILEMAP, [hl] ; select 9C00-9FFF
xor a
ld [hBGMapMode], a
call EmptyBattleTextBox

View File

@@ -617,7 +617,7 @@ ApplyPals:
ApplyAttrMap:
ld a, [rLCDC]
bit 7, a
bit rLCDC_ENABLE, a
jr z, .UpdateVBank1
ld a, [hBGMapMode]
push af
@@ -1073,7 +1073,7 @@ SGBBorder_PushBGPals:
ld bc, $100 tiles
call CopyData
call DrawDefaultTiles
ld a, $e3
ld a, rLCDC_DEFAULT
ld [rLCDC], a
ld hl, PalPacket_9d06
call PushSGBPals
@@ -1107,7 +1107,7 @@ SGBBorder_MorePalPushing:
ld bc, 16 palettes
call CopyData
call DrawDefaultTiles
ld a, $e3
ld a, rLCDC_DEFAULT
ld [rLCDC], a
ld hl, PalPacket_9d46
call PushSGBPals
@@ -1131,7 +1131,7 @@ SGBBorder_YetMorePalPushing:
dec b
jr nz, .loop
call DrawDefaultTiles
ld a, $e3
ld a, rLCDC_DEFAULT
ld [rLCDC], a
ld hl, PalPacket_9d36
call PushSGBPals

View File

@@ -34,7 +34,7 @@ _DummyGame: ; e1e5b (38:5e5b)
ld [wJumptableIndex], a
ld a, $1
ld [hBGMapMode], a
ld a, $e3
ld a, rLCDC_DEFAULT
ld [rLCDC], a
ld a, $e4
call DmgToCgbBGPals

View File

@@ -1035,7 +1035,7 @@ StartTitleScreen: ; 6219
ld [rSVBK], a
ld hl, rLCDC
res 2, [hl]
res rLCDC_SPRITE_SIZE, [hl] ; 8x8
call ClearScreen
call WaitBGMap2
xor a

View File

@@ -116,7 +116,7 @@ DoMysteryGift: ; 1048ba (41:48ba)
.PrintTextAndExit: ; 1049c5 (41:49c5)
call PrintText
ld a, $e3
ld a, rLCDC_DEFAULT
ld [rLCDC], a
ret
; 1049cd (41:49cd)
@@ -262,7 +262,7 @@ Function104a95: ; 104a95 (41:4a95)
; Delay frame
.ly_loop
ld a, [rLY]
cp $90
cp LY_VBLANK
jr c, .ly_loop
ld c, LOW(rRP)
ld a, $c0
@@ -281,14 +281,14 @@ Function104a95: ; 104a95 (41:4a95)
and b
ld b, a
ld a, [rLY]
cp $90
cp LY_VBLANK
jr nc, .ly_loop2
.ly_loop3
ld a, [$ff00+c]
and b
ld b, a
ld a, [rLY]
cp $90
cp LY_VBLANK
jr c, .ly_loop3
ld a, b
@@ -1497,7 +1497,7 @@ Function10571a: ; 10571a (41:571a)
asm_105726: ; 105726 (41:5726)
call PrintText
ld a, $e3
ld a, rLCDC_DEFAULT
ld [rLCDC], a
ret
; 10572e (41:572e)

View File

@@ -48,7 +48,7 @@ NamingScreen: ; 116c1
call DisableLCD
call LoadNamingScreenGFX
call NamingScreen_InitText
ld a, $e3
ld a, rLCDC_DEFAULT
ld [rLCDC], a
call .GetNamingScreenSetup
call WaitBGMap
@@ -1017,7 +1017,7 @@ _ComposeMailMessage: ; 11e75 (mail?)
add hl, bc
ld [hl], $0
call .InitCharset
ld a, $e3
ld a, rLCDC_DEFAULT
ld [rLCDC], a
call .initwNamingScreenMaxNameLength
ld b, SCGB_DIPLOMA

View File

@@ -59,7 +59,7 @@ PokeGear: ; 90b8d (24:4b8d)
call InitPokegearModeIndicatorArrow
ld a, 8
call SkipMusic
ld a, $e3
ld a, rLCDC_DEFAULT
ld [rLCDC], a
call TownMap_InitCursorAndPlayerIconPositions
xor a
@@ -1851,7 +1851,7 @@ _TownMap: ; 9191c
farcall ClearSpriteAnims
ld a, 8
call SkipMusic
ld a, $e3
ld a, rLCDC_DEFAULT
ld [rLCDC], a
call TownMap_GetCurrentLandmark
ld [wTownMapPlayerIconLandmark], a

View File

@@ -23,8 +23,8 @@ GetSquareRoot: ; 13b87
ret
.Squares: ; 13b98
root set 1
root = 1
rept $ff
dw root*root
root set root+1
dw root * root
root = root + 1
endr

View File

@@ -17,7 +17,7 @@ PhoneRing_CopyTilemapAtOnce: ; 4d188
ld [hMapAnims], a
.wait
ld a, [rLY]
cp $8f
cp LY_VBLANK - 1
jr c, .wait
di
@@ -31,7 +31,7 @@ PhoneRing_CopyTilemapAtOnce: ; 4d188
call .CopyTilemapAtOnce
.wait2
ld a, [rLY]
cp $8f
cp LY_VBLANK - 1
jr c, .wait2
ei

View File

@@ -89,7 +89,7 @@ _SlotMachine:
ld hl, Options
res NO_TEXT_SCROLL, [hl]
ld hl, rLCDC
res 2, [hl]
res rLCDC_SPRITE_SIZE, [hl] ; 8x8
ret
.InitGFX: ; 926f7 (24:66f7)
@@ -134,7 +134,7 @@ _SlotMachine:
call CopyBytes
ld hl, rLCDC
set 2, [hl]
set rLCDC_SPRITE_SIZE, [hl] ; 8x16
call EnableLCD
ld hl, wSlots
ld bc, wSlotsEnd - wSlots

View File

@@ -201,7 +201,7 @@ _TitleScreen: ; 10ed67
; Set sprite size to 8x16
ld a, [rLCDC]
set 2, a
set rLCDC_SPRITE_SIZE, a
ld [rLCDC], a
ld a, +112

View File

@@ -45,7 +45,7 @@ UnownPuzzle: ; e1190
ld [wHoldingUnownPuzzlePiece], a
ld [wUnownPuzzleCursorPosition], a
ld [wUnownPuzzleHeldPiece], a
ld a, $93
ld a, %10010011
ld [rLCDC], a
call WaitBGMap
ld b, SCGB_UNOWN_PUZZLE
@@ -85,7 +85,7 @@ UnownPuzzle: ; e1190
call ClearBGPalettes
call ClearTileMap
call ClearSprites
ld a, $e3
ld a, rLCDC_DEFAULT
ld [rLCDC], a
ret
; e124e

View File

@@ -55,8 +55,8 @@ UnusedTitleScreen: ; 10c000
call EnableLCD
ld a, [rLCDC]
set 1, a
set 2, a
set rLCDC_SPRITE_ENABLE, a
set rLCDC_SPRITE_SIZE, a
ld [rLCDC], a
call DelayFrame