mirror of
https://github.com/pret/pokegold.git
synced 2026-10-02 06:40:03 -04:00
Rangi
63 lines
739 B
NASM
63 lines
739 B
NASM
; LCD handling
|
|
|
|
LCD::
|
|
push af
|
|
ldh a, [hLCDCPointer]
|
|
and a
|
|
jr z, .done
|
|
|
|
push hl
|
|
ldh a, [rLY]
|
|
ld l, a
|
|
ld h, HIGH(wLYOverrides)
|
|
ld h, [hl]
|
|
ldh a, [hLCDCPointer]
|
|
ld l, a
|
|
ld a, h
|
|
ld h, HIGH(rSCY)
|
|
ld [hl], a
|
|
pop hl
|
|
|
|
.done
|
|
pop af
|
|
reti
|
|
|
|
DisableLCD::
|
|
; Turn the LCD off
|
|
|
|
; Don't need to do anything if the LCD is already off
|
|
ldh a, [rLCDC]
|
|
bit B_LCDC_ENABLE, a
|
|
ret z
|
|
|
|
xor a
|
|
ldh [rIF], a
|
|
ldh a, [rIE]
|
|
ld b, a
|
|
|
|
; Disable VBlank
|
|
res B_IE_VBLANK, a
|
|
ldh [rIE], a
|
|
|
|
.wait
|
|
; Wait until VBlank would normally happen
|
|
ldh a, [rLY]
|
|
cp LY_VBLANK + 1
|
|
jr nz, .wait
|
|
|
|
ldh a, [rLCDC]
|
|
and ~LCDC_ON
|
|
ldh [rLCDC], a
|
|
|
|
xor a
|
|
ldh [rIF], a
|
|
ld a, b
|
|
ldh [rIE], a
|
|
ret
|
|
|
|
EnableLCD::
|
|
ldh a, [rLCDC]
|
|
set B_LCDC_ENABLE, a
|
|
ldh [rLCDC], a
|
|
ret
|