pokecrystal/home/lcd.asm

; LCD handling


Function547:: ; 547
; Unreferenced
	ld a, [hFFC6]
	cp rSCX - $ff00
	ret nz
	ld c, a
	ld a, [LYOverrides]
	ld [$ff00+c], a
	ret
; 552


LCD:: ; 552
	push af
	ld a, [hFFC6]
	and a
	jr z, .done

; At this point it's assumed we're in WRAM bank 5!
	push bc
	ld a, [rLY]
	ld c, a
	ld b, LYOverrides >> 8
	ld a, [bc]
	ld b, a
	ld a, [hFFC6]
	ld c, a
	ld a, b
	ld [$ff00+c], a
	pop bc

.done
	pop af
	reti
; 568


DisableLCD:: ; 568
; Turn the LCD off

; Don't need to do anything if the LCD is already off
	ld a, [rLCDC]
	bit 7, a ; lcd enable
	ret z

	xor a
	ld [rIF], a
	ld a, [rIE]
	ld b, a

; Disable VBlank
	res 0, a ; vblank
	ld [rIE], a

.wait
; Wait until VBlank would normally happen
	ld a, [rLY]
	cp 145
	jr nz, .wait

	ld a, [rLCDC]
	and %01111111 ; lcd enable off
	ld [rLCDC], a

	xor a
	ld [rIF], a
	ld a, b
	ld [rIE], a
	ret
; 58a


EnableLCD:: ; 58a
	ld a, [rLCDC]
	set 7, a ; lcd enable
	ld [rLCDC], a
	ret
; 591
split lcd functions out of main.asm 2013-08-29 22:52:16 +00:00			`; LCD handling`


Use :: to export labels between objects. This fixes the build. 2014-02-02 01:26:39 +00:00			`Function547:: ; 547`
Map script and color shenanigans 2015-12-17 02:57:42 +00:00			`; Unreferenced`
jumptable macro repurposed 2015-12-27 02:59:03 +00:00			`ld a, [hFFC6]`
Use "- $ff00" instead of "& $ff" when dealing with hram. 2014-12-29 16:47:47 +00:00			`cp rSCX - $ff00`
split lcd functions out of main.asm 2013-08-29 22:52:16 +00:00			`ret nz`
			`ld c, a`
			`ld a, [LYOverrides]`
			`ld [$ff00+c], a`
			`ret`
			`; 552`


Use :: to export labels between objects. This fixes the build. 2014-02-02 01:26:39 +00:00			`LCD:: ; 552`
split lcd functions out of main.asm 2013-08-29 22:52:16 +00:00			`push af`
jumptable macro repurposed 2015-12-27 02:59:03 +00:00			`ld a, [hFFC6]`
split lcd functions out of main.asm 2013-08-29 22:52:16 +00:00			`and a`
			`jr z, .done`

			`; At this point it's assumed we're in WRAM bank 5!`
			`push bc`
			`ld a, [rLY]`
			`ld c, a`
			`ld b, LYOverrides >> 8`
			`ld a, [bc]`
			`ld b, a`
jumptable macro repurposed 2015-12-27 02:59:03 +00:00			`ld a, [hFFC6]`
split lcd functions out of main.asm 2013-08-29 22:52:16 +00:00			`ld c, a`
			`ld a, b`
			`ld [$ff00+c], a`
			`pop bc`

			`.done`
			`pop af`
			`reti`
			`; 568`


Use :: to export labels between objects. This fixes the build. 2014-02-02 01:26:39 +00:00			`DisableLCD:: ; 568`
split lcd functions out of main.asm 2013-08-29 22:52:16 +00:00			`; Turn the LCD off`

			`; Don't need to do anything if the LCD is already off`
			`ld a, [rLCDC]`
			`bit 7, a ; lcd enable`
			`ret z`

			`xor a`
			`ld [rIF], a`
			`ld a, [rIE]`
			`ld b, a`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00
split lcd functions out of main.asm 2013-08-29 22:52:16 +00:00			`; Disable VBlank`
			`res 0, a ; vblank`
			`ld [rIE], a`

			`.wait`
			`; Wait until VBlank would normally happen`
			`ld a, [rLY]`
			`cp 145`
			`jr nz, .wait`

			`ld a, [rLCDC]`
			`and %01111111 ; lcd enable off`
			`ld [rLCDC], a`

			`xor a`
			`ld [rIF], a`
			`ld a, b`
			`ld [rIE], a`
			`ret`
			`; 58a`


Use :: to export labels between objects. This fixes the build. 2014-02-02 01:26:39 +00:00			`EnableLCD:: ; 58a`
split lcd functions out of main.asm 2013-08-29 22:52:16 +00:00			`ld a, [rLCDC]`
			`set 7, a ; lcd enable`
			`ld [rLCDC], a`
			`ret`
			`; 591`