
setspr	.macro
	 stwi  \2,<_si
	 lda   #\3
	 sta   <_cl
	 lda   #\1
	 jsr   set_sprite
	.endm

setpal	.macro
	 lda   #\1
	 sta   <_al
	 stwi  \2,<_si
	 lda   #\3
	 sta   <_cl
	 jsr   set_palette
	.endm

vload	.macro
	 stwi  \1,<_di
	 stwi  \2,<_si
	 stwi  \3,<_cx
	 jsr   load_vram
	.endm

