Заполнение экрана Специалиста точками случайного цвета

Вот такую штуку на досуге написал. Практической ценности нет. Кто сделает короче/быстрее? ;)

Код:

---

    org    0
   
    ld    bc, 0x9000
m1:
    ld    hl, (seed)
    ld    d, h
    ld    e, l
    add    hl, hl
    add    hl, hl
    add    hl, de    ; HL=HL*5
    inc    hl    ; +1
    ld    (seed), hl
   
    ld    a, h
    out    (0xfa), a
    ld    (bc), a

    inc    bc
    ld    a, 0xc0
    cp    b
    jp    nz, m1

    halt

seed:    dw    0x1234

---

https://pic.maxiol.com/images2/17434...127.screen.png

P.S. У вложения уберите фейковое расширение txt - оно было добавлено, чтобы была возможность загрузить такой формат на форум, а зипование многократно увеличивает размер.

Если не менять "ГСЧ", то например так

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

Код:

---

    org    0
   
    ld    bc, 0x9000
    ld    hl, 0x1234
m1:
    ld    d, h
    ld    e, l
    add    hl, hl
    add    hl, hl
    add    hl, de    ; HL=HL*5
    inc    hl    ; +1
   
    ld    a, h
    out    (0xfa), a
    ld    (bc), a

    inc    bc
    ld    a, 0xc0
    cp    b
    jp    nz, m1

    halt

---

[свернуть]

А ведь действительно, сохранение HL тут было совершенно излишне!

Цитата:

---

Сообщение от ivagor

Если не менять "ГСЧ"

---

А есть более короткий вариант с приемлемым распределением?

16 битный LFSR чуть длиннее (8 байт вместо 6), но быстрее и не трогает DE.
Можно сократить на байт, если заполнять в обратную сторону, от BFFF до 8000h. Тогда проверку окончания можно упростить (xor a\ or b\ jp m,m1), правда будет затираться область 8000-8FFF (не вижу в этом проблемы).

Подобная штука, побитовая экранная ГСЧ-заполнялка

Цитата:

---

Сообщение от CityAceE

Кто сделает короче/быстрее?

---

Для Z80 не писал, может ошибусь, но для i8080

Цитата:

---

Сообщение от ivagor

inc bc
ld a, 0xc0
cp b
jp nz, m1

---

можно заменить на:

Код:

---

    INR  C
    JNZ  m1
    INR  B
    MVI  A, 0C0h
    CMP  B
    JNZ  m1

---

Мнемоники у Z80 как я понимаю - другие, но команды аналогичные должны быть.
Чуть длиннее, но немного быстрее.

Цитата:

---

Сообщение от CityAceE

Вот такую штуку на досуге написал. Практической ценности нет. Кто сделает короче/быстрее? ;)

---

не будет работать на компах с Z80 - из-за команды out.