.globl _ubox_get_tile

RDVRM = 0x004a

_ubox_get_tile::
	ld hl, #2
	add hl, sp

	ld b, #0
	ld c, (hl)
	inc hl
	ld l, (hl)

	ld h, #0
	add hl, hl
	add hl, hl
	add hl, hl
	add hl, hl
	add hl, hl
	add hl, bc

	ld bc, #0x1800
	add hl, bc

	call RDVRM
	ld l, a
	ret