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

[CityAceE]

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

    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

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

[Advertiser]

[ivagor]

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

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

    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

[свернуть]

[CityAceE]

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

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

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

[ivagor]

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

[lexarr]

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

[rst]

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

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

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

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

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

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

[Serg6845]

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

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