CHIP-8 move sprite

OPTION BINARY
ALIGN OFF

	ld v0,28
	ld v1,10
	ld I,sprite
	drw v0,v1,12	;рисуем спрайт в центре экрана

	ld v4, 1	;регистр v4 будем использовать для изменения координаты на 1 пиксель

loop:
	ld v3, 2	;в регистре v3 сохраняем номер клавиши
	sknp v3		;пропускаем следующую инструкцию если эта клавиша не нажата
	call up		;если клавиша оказалась нажата, то вызываем подпрограмму up

	ld v3, 8	;остальное подобно предыдущему блоку
	sknp v3
	call down

	ld v3, 4
	sknp v3
	call left

	ld v3, 6
	sknp v3
	call right

	jp loop

up:
	drw v0,v1,12	;стираем спрайт
	sub v1, v4	;вычисляем новую координату
	drw v0,v1,12	;рисуем спрайт на новом месте
	ret		;возвращаемся из подпрограммы в место вызова

down:
	drw v0,v1,12	;подобно функции up
	add v1, v4
	drw v0,v1,12
	ret

left:
	drw v0,v1,12
	sub v0, v4
	drw v0,v1,12
	ret

right:
	drw v0,v1,12
	add v0, v4
	drw v0,v1,12
	ret

sprite:
	db $......1.
	db $..111.1.
	db $..111.1.
	db $..1.1.1.
	db $..111.1.
	db $11111.1.
	db $11111111
	db $11111.1.
	db $.1111...
	db $..111...
	db $..1.1...
	db $..1.1...