pokecrystal/home/lcd.asm

73 lines
919 B
NASM
Raw Normal View History

2013-08-29 22:52:16 +00:00
; LCD handling
2018-06-24 14:09:41 +00:00
Unreferenced_Function547::
ldh a, [hLCDCPointer]
2018-08-25 18:34:25 +00:00
cp LOW(rSCX)
2013-08-29 22:52:16 +00:00
ret nz
ld c, a
2018-01-23 22:39:09 +00:00
ld a, [wLYOverrides]
2019-02-16 17:17:55 +00:00
ldh [c], a
2013-08-29 22:52:16 +00:00
ret
2018-06-24 14:09:41 +00:00
LCD::
2013-08-29 22:52:16 +00:00
push af
ldh a, [hLCDCPointer]
2013-08-29 22:52:16 +00:00
and a
jr z, .done
2020-06-16 19:49:32 +00:00
; At this point it's assumed we're in BANK(wLYOverrides)!
2013-08-29 22:52:16 +00:00
push bc
ldh a, [rLY]
2013-08-29 22:52:16 +00:00
ld c, a
2018-01-23 22:39:09 +00:00
ld b, HIGH(wLYOverrides)
2013-08-29 22:52:16 +00:00
ld a, [bc]
ld b, a
ldh a, [hLCDCPointer]
2013-08-29 22:52:16 +00:00
ld c, a
ld a, b
2019-02-16 17:17:55 +00:00
ldh [c], a
2013-08-29 22:52:16 +00:00
pop bc
.done
pop af
reti
2018-06-24 14:09:41 +00:00
DisableLCD::
2013-08-29 22:52:16 +00:00
; Turn the LCD off
; Don't need to do anything if the LCD is already off
ldh a, [rLCDC]
2017-12-29 17:53:21 +00:00
bit rLCDC_ENABLE, a
2013-08-29 22:52:16 +00:00
ret z
xor a
ldh [rIF], a
ldh a, [rIE]
2013-08-29 22:52:16 +00:00
ld b, a
2013-08-29 22:52:16 +00:00
; Disable VBlank
2019-05-05 16:14:46 +00:00
res VBLANK, a
ldh [rIE], a
2013-08-29 22:52:16 +00:00
.wait
; Wait until VBlank would normally happen
ldh a, [rLY]
2017-12-29 17:53:21 +00:00
cp LY_VBLANK + 1
2013-08-29 22:52:16 +00:00
jr nz, .wait
ldh a, [rLCDC]
2017-12-29 18:22:33 +00:00
and $ff ^ (1 << rLCDC_ENABLE)
ldh [rLCDC], a
2013-08-29 22:52:16 +00:00
xor a
ldh [rIF], a
2013-08-29 22:52:16 +00:00
ld a, b
ldh [rIE], a
2013-08-29 22:52:16 +00:00
ret
2018-06-24 14:09:41 +00:00
EnableLCD::
ldh a, [rLCDC]
2017-12-29 17:53:21 +00:00
set rLCDC_ENABLE, a
ldh [rLCDC], a
2013-08-29 22:52:16 +00:00
ret