pokecrystal-board/home/lcd.asm

73 lines
912 B
NASM
Raw Normal View History

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