Snake в 93 байт

[krt17]

84 байта, с небольшим уменьшением скорости, при этом мне стало комфортнее играть.

Скрытый текст

	device	zxspectrum48
	org	#8000
begin
	ld	h, #5b
rabbit1
	ld	a, r
	ld	(hl), e
	cp	l
	jr	z, rabbit2
	inc	(hl)
rabbit2
	dec	hl
	bit	3, h
	jr	nz, rabbit1
	ld	c, l
	ld	hl, 0x598f
;---
l1
	ld	(hl), 0x21
	ld	d, 0x5a
move1
	ld	a, (de)
	dec	a
	cp	0xfe
	jr	nc, move2
	ld	(de), a
move2
	jr	nz, move3
	dec	(hl)
move3
	dec	de
	bit	6, d
	jr	nz, move1
;---
	xor	a
	out	(0xfe), a
	in	a, (0xfe)
	rra
	rra
	jr	c, $+4
	ld	c, 0xe0
	rra
	jr	c, $+4
	ld	c, 0x20
	rra
	jr	c, $+4
	ld	c, 0x01
	rra
	jr	c, $+3
	ld	c, e
	ld	a, c
	rla
	sbc	a, a
	ld	b, a
;---
	ld	a, (hl)
	and	00100000b
	add	hl, bc
	or	(hl)
	inc	a
	cp	7
	jr	nc, begin
	ld	a, h
	inc	a
	and	00000011b
	jr	z, begin
	jr l1
	display	/A,$-0x8000
	savesna	"snake.sna", 0x8000

[свернуть]

Завтра еще гляну, вроде еще можно подужать, жаль что все игроки в "оптимизацию" молчат.

[Advertiser]