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

[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]