pokered/home/lcd.asm

DisableLCD::
	xor a
	ldh [rIF], a
	ldh a, [rIE]
	ld b, a
	res 0, a
	ldh [rIE], a

.wait
	ldh a, [rLY]
	cp LY_VBLANK
	jr nz, .wait

	ldh a, [rLCDC]
	and $ff ^ rLCDC_ENABLE_MASK
	ldh [rLCDC], a
	ld a, b
	ldh [rIE], a
	ret

EnableLCD::
	ldh a, [rLCDC]
	set rLCDC_ENABLE, a
	ldh [rLCDC], a
	ret
Reorganize home header 2020-07-03 17:03:21 +00:00			`DisableLCD::`
			`xor a`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rIF], a`
			`ldh a, [rIE]`
Reorganize home header 2020-07-03 17:03:21 +00:00			`ld b, a`
			`res 0, a`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rIE], a`
Reorganize home header 2020-07-03 17:03:21 +00:00
			`.wait`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [rLY]`
Reorganize home header 2020-07-03 17:03:21 +00:00			`cp LY_VBLANK`
			`jr nz, .wait`

Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [rLCDC]`
Reorganize home header 2020-07-03 17:03:21 +00:00			`and $ff ^ rLCDC_ENABLE_MASK`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rLCDC], a`
Reorganize home header 2020-07-03 17:03:21 +00:00			`ld a, b`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rIE], a`
Reorganize home header 2020-07-03 17:03:21 +00:00			`ret`

			`EnableLCD::`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [rLCDC]`
Reorganize home header 2020-07-03 17:03:21 +00:00			`set rLCDC_ENABLE, a`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rLCDC], a`
Reorganize home header 2020-07-03 17:03:21 +00:00			`ret`