Snake в 93 байт

[Firestarter]

Огромное спасибо поправил

[Advertiser]

[drbars]

Огромное спасибо поправил

	jr c,$+5		----> jr c,$+4
	ld bc,#0001		----> ld c,#01

-1 байт

[krt17]

-1 байт

Да только не работает, нажми вверх и вправо.
можно вместо ld a, 0xef, сделать xor a, будет работать вся клава, но зато будет работать и -1. Вообще конечно в таких вещах говорить думал 2 часа не совсем верно. Если больше 10 лет было интересно переделать, да еще и на хабре перед непосвященными похвастаться, значит сидело глубоко в голове и потрачено на это намного больше. Но эт лирика, нормальный питон получился.

[Firestarter]

так как, опрос клавиатуры не изменяет геймплей и управление 6789, то я сократил до 93 БАЙТ!

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

begin	ld de,#598f;snake xy
	ld hl,#5aff
	ld b,l
	ld c,l
;---
rabbit1	ld (hl),b
	ld a,r
	cp l
	jr z,rabbit2
	inc (hl)
rabbit2 dec hl
	bit 3,h
	jr nz,rabbit1
	ex hl,de
;---
l1	xor a
	out (#fe),a
clr	ld (de),a
	dec de
	bit 6,d
	jr nz,clr
;---
;	xor a
	in a,(#fe)
	rra
	rra
	jr c,$+5
	ld bc,#ffe0
	rra
	jr c,$+5
	ld bc,#0020
	rra
	jr c,$+5
	ld bc,#0001
	rra
	jr c,$+4
	ld b,e;ld bc,#ffff
	ld c,e
;---
	ld (hl),33
	ld d,#5a
move1	ld a,(de)
	dec a
	cp 254
	jr nc,move2
	ld (de),a
move2	jr nz,move3
	dec (hl)
move3	dec de
	bit 3,d
	jr nz,move1
;---
	ld a,(hl)
	and %00100000
	add hl,bc
	or (hl)
	inc a
	cp 7
	jr nc,begin
	ld a,h
	inc a
	and %00000011
	jr z,begin
	jr l1

[свернуть]

P.S. Уважаемые модераторы поменяйте название темы до 93 байт.

- - - Добавлено - - -

Кто читал статью на хабре, добавил раздел краткое описание алгоритма.