Порядок из хаоса. Напишем клеточный автомат «Муравей Лэнгтона» на p5py в браузере и анимируем с помощью state machine

COLORED equ 0b00110100


;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
;W                       ОБЩАЯ ОБЛАСТЬ                         W
;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW

ldi a, 32
ldi c, display
ldi d, display_blue
clear:;заполняем дисплей
st b, c
st b, d
inc c
inc d
dec a
jnz clear

jmp cycle


;###############################################################
;функция получения байта дисплея, его координаты и координаты бита. a - x, b - y, с - позиция(для однобайтового режима), d - индекс перехода

;сама функция
get_point:

ldi c, 0b00000111;индекс бита(0 - старший)
and c, a
st c, buffer;временно сохраняем в память

shl b;умножаем ypos на 2

ldi c, 0b00001000;если xpos > 7, прибавляем 1
and c, a
test c
jz plus_1_end

inc b
plus_1_end:
ld a, buffer;a - индекс бита(0 - старший), b - индекс байта

ldi c, 7;вычитаем a из 7, чтобы 0 стал младшим битом
sub c, a
mov a, c

ldi c, 1
pow:;получаем в c число с активным битом номер a
test a
jz pow_end
shl c
dec a
jmp pow
pow_end:

INDEX_CHANGE equ $ + 1;для чтения из необходимой части дисплея редактируем байт следующей команды
ldi a, display;прибавляем к b адрес дисплея
add b, a
ld a, b;считываем нужный байт из дисплея

;возвращает: a - байт дисплея, b - адрес на дисплее, c - маска для получения нужного бита

jmp d;переход обратно
;###############################################################

buffer db 0,0,0,0,0

x db 8
y db 8
new_x db 0
new_y db 0
rotate db 3

counter db 0;0x3A
indicator2 db 0;0x3B
terminal_input db 0;0x3C
terminal_graphics db 0;0x3D
connect db COLORED;0x3E
bank db 1;0x3F

display db          0b00000000, 0b00000000,
                    0b00000000, 0b00000000,
                    0b10010000, 0b00000000,
                    0b01001000, 0b00000000,
                    0b01001000, 0b00000000,
                    0b01111000, 0b00000000,
                    0b11111011, 0b00011000,
                    0b11011111, 0b10111100,
                    0b01110111, 0b11111110,
                    0b00000111, 0b10111111,
                    0b00001001, 0b00001000,
                    0b00010010, 0b00000100,
                    0b00100100, 0b00000010,
                    0b00000000, 0b00000000,
                    0b00000000, 0b00000000,
                    0b00000000, 0b00000000

display_blue db     0b00000000, 0b00000000,
                    0b00000000, 0b00000000,
                    0b10010000, 0b00000000,
                    0b01001000, 0b00000000,
                    0b01001000, 0b00000000,
                    0b01111000, 0b00000000,
                    0b11111011, 0b00011000,
                    0b11011111, 0b10111100,
                    0b01110111, 0b11111110,
                    0b00000111, 0b10111111,
                    0b00001001, 0b00001000,
                    0b00010010, 0b00000100,
                    0b00100100, 0b00000010,
                    0b00000000, 0b00000000,
                    0b00000000, 0b00000000,
                    0b00000000, 0b00000000
					
;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
;W                           БАНК 1                            W
;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW

cycle:

ld a, x
ld b, y
ldi d, $ + 4
jmp get_point
or a, c;or между c и байтом дисплея(потому что красим цветом)
st a, b;устанавливаем измененный байт обратно на дисплей


ldi a, display_blue
st a, INDEX_CHANGE
ld a, x
ld b, y
ldi d, $ + 4
jmp get_point
mov d, a
and d, c

xor a, c;инвертируем бит дисплея
st a, b

ld b, rotate
ldi c, 0b00000011
test d
jnz left_rotate
inc b
and b, c
jmp left_rotate_end
left_rotate:
dec b
and b, c
left_rotate_end:
st b, rotate


ld a, x
ld b, y
ld c, rotate

clr d
sub d, c
jnz up_else
dec b
up_else:

ldi d, 1
sub d, c
jnz right_else
inc a
right_else:

ldi d, 2
sub d, c
jnz down_else
inc b
down_else:

ldi d, 3
sub d, c
jnz left_else
dec a
left_else:

ldi c, 0b00001111
and a, c
and b, c

st a, new_x
st b, new_y

ldi a, display
st a, INDEX_CHANGE

ld a, x
ld b, y
ldi d, $ + 4
jmp get_point
not c;инвертируем c, так как красим в белый
and a, c;and между c и байтом дисплея(потому что красим в белый. Если красить цветом, то нужен or)
st a, b;устанавливаем измененный байт обратно на дисплей

ld a, new_x
st a, x
ld a, new_y
st a, y

ld a, counter
ld b, indicator2
clr c
ldi d, 1
add a, d
adc b, c
st a, counter
st b, indicator2
jmp cycle

А я сегодня как раз сделал муравья лэнгтона для восьмибитного процессора...

Вы ещё пишете код слева направо? Тогда мы идём к вам

У меня сложилось ощущение, будто гексовая сетка нужна только для фона, уж очень странно на нее ложатся команды

Разбор JIT-Компилятора AsmX и краткая биография его создателя

А почему автор статьи говорит в третьем лице о авторе asmx, хотя по последующим статьям понятно, что он и является автором asmx?
Выглядит как попытка всех запутать

Странные ИИ‑существа из 00-х, которые научились размножаться сами

А где можно скачать игру?

Как я снимал короткометражку с тремя нейросетями и одним агентом

Почему такой странный сценарий?
Конечно, необычно, но прямо какая - то странная фигня происходит

8-битный Тьюринг-полный компьютер в Factorio

Я делал комп в стрелочках(веб - игра "logic arrows" от onigiri), возможно перенесу в факторио
И еще в статье не подгрузились все картинки почему - то

Говорим о грызунах: наши истории о выборе идеальной мыши

Всегда пользовался дешевой logitech или подобными за 400 рублей и не жаловался

Кино по играм: почему адаптации проваливаются и что нужно, чтобы они выстрелили?

На самом деле многим фанатам майнкрафта экранизация не понравилась. По мне, она слишком детская, сюжет какой то странный и ужатый, графика похожа на нейросеть. Понятное дело, детям зашло, но более взрослой аудитории скорее нет

Что будет, если не обновлять Windows

Для меня обновления являются проблемой... Потому что я не выключаю компьютер. Максимум гибернация или спящий режим. Кстати, мой рекорд - 2 месяца

Я был дизайнером 6 лет, делал картинки для новостей, а потом пришла нейросеть

Только меня раздражает, что нейросеть переводит большинство картинок в оранжевый?

Ищем игры для Atari в случайных данных

Надо бы попробовать сделать игру при помощи нейросети для распознавания и генетического алгоритма

Пятничные клеточные автоматы: 10 удивительных правил с нотацией Хенселя

А можно глянуть код?
Не нашел нормального описания реализации этой модели. Минус означает все паттерны, кроме тех, что после минуса, или что все положения клеток, кроме положений на выбранных паттернах?

Мои эксперименты с искусственной жизнью

java

Мои эксперименты с искусственной жизнью

Да. Пробовал добавить память, но она не приживается - боты не любят сложное поведение

Мои эксперименты с искусственной жизнью

Сделал гитхаб

Мои эксперименты с искусственной жизнью

Я все - таки решил положить весь код на гитхаб, но версий и экспериментов много, потребуется где - то неделя.

Мои эксперименты с искусственной жизнью

Это больше подойдет для нейросетей. Я давно уже понял, что боты стремятся к максимально простому и эффективному поведению. Например, они могут делится командой при достижении 200 энергии(тогда боты будут быстрее размножаться), а не 800 при автоматическом делении, но для ботов это слишком сложно, и им проще не парится, и заниматься только получением энергии и поворотом(чтобы если бот не может поделиться, он не тупил)

Мои эксперименты с искусственной жизнью

Там все версии, половина с исполняемыми файлами.

Мои эксперименты с искусственной жизнью

В зависимости от количества ботов. Если мало, то 1/100 секунду(это минимум), если весь мир заполнен - примерно раз в секунду (вообще я не мерил, это на глаз)