src/ubox/ubox_set_tiles_colors.z80


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

.globl _ubox_set_tiles_colors

LDIRVM = 0x005c
BG_COLS = 0x2000

_ubox_set_tiles_colors::
	ld de, #BG_COLS
	ld bc, #256 * 8
	push hl
	call LDIRVM
	pop hl

	ld de, #BG_COLS + 256  * 8
	ld bc, #256 * 8
	push hl
	call LDIRVM
	pop hl

	ld de, #BG_COLS + 256  * 8 * 2
	ld bc, #256 * 8
	jp LDIRVM