First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

home/lcd.asm

@@ -0,0 +1,63 @@
+; LCD handling
+
+LCD::
+	push af
+	ldh a, [hLCDCPointer]
+	and a
+	jr z, .done
+
+; At this point it's assumed we're in BANK(wLYOverrides)!
+	push bc
+	ldh a, [rLY]
+	ld c, a
+	ld b, HIGH(wLYOverrides)
+	ld a, [bc]
+	ld b, a
+	ldh a, [hLCDCPointer]
+	ld c, a
+	ld a, b
+	ldh [c], a
+	pop bc
+
+.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 rLCDC_ENABLE, a
+	ret z
+
+	xor a
+	ldh [rIF], a
+	ldh a, [rIE]
+	ld b, a
+
+; Disable VBlank
+	res 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 ~(1 << rLCDC_ENABLE)
+	ldh [rLCDC], a
+
+	xor a
+	ldh [rIF], a
+	ld a, b
+	ldh [rIE], a
+	ret
+
+EnableLCD::
+	ldh a, [rLCDC]
+	set rLCDC_ENABLE, a
+	ldh [rLCDC], a
+	ret