The CGB boot ROM will now not finish if the user is still selecting palettes

This commit is contained in:
Lior Halphon 2017-06-09 19:52:40 +03:00
parent 144d0348dd
commit 204e22657b

View File

@ -35,15 +35,7 @@ Start:
ld a, $77
ldh [$24], a
ld hl, $FF30
; Init waveform
xor a
ld c, $10
.waveformLoop
ldi [hl], a
cpl
dec c
jr nz, .waveformLoop
call InitWaveform
; Init BG palette
ld a, $fc
@ -196,8 +188,15 @@ Start:
call PlaySound
; Wait ~0.5 seconds
ld b, 30
call WaitBFrames
ld a, 30
ld [WaitLoopCounter], a
.waitLoop
call GetInputPaletteIndex
call WaitFrame
ld hl, WaitLoopCounter
dec [hl]
jr nz, .waitLoop
call Preboot
; Will be filled with NOPs
@ -871,7 +870,7 @@ LoadPalettesFromIndex: ; a = index of combination
call LoadBGPalettes
ret
BrithenColor:
BrightenColor:
ld a, [hli]
ld e, a
ld a, [hld]
@ -929,7 +928,7 @@ FadeOut:
ld hl, BgPalettes
.frameLoop
push bc
call BrithenColor
call BrightenColor
pop bc
dec c
jr nz, .frameLoop
@ -1062,7 +1061,9 @@ ChangeAnimationPalette:
ld d, 64 ; Length of write
ld e, 0 ; Index of write
call LoadBGPalettes
; Delay the wait loop while the user is selecting a palette
ld a, 30
ld [WaitLoopCounter], a
pop de
pop bc
pop hl
@ -1098,6 +1099,18 @@ LoadDMGTilemap:
pop af
ret
InitWaveform:
ld hl, $FF30
; Init waveform
xor a
ld c, $10
.waveformLoop
ldi [hl], a
cpl
dec c
jr nz, .waveformLoop
ret
SECTION "ROMMax", ROM0[$900]
; Prevent us from overflowing
ds 1
@ -1107,3 +1120,5 @@ BgPalettes:
ds 8 * 4 * 2
InputPalette:
ds 1
WaitLoopCounter:
ds 1