интро до 128 байт

[goblinish]

вбросим немножко. результат исследования программы - фрактал Серпинского. 59 байт, но сократимо.

    device zxspectrum128
        ORG #8000

begin
        ld    a, 80h
        ld    hl, 4000h    ; sierpinsky
        ld    de, 4100h
        ld    (hl), a
        ld    b, 0B7h

loc_F00E:
        push    bc
        ld    bc, 20h
        push    de
        push    de
        push    de
        ldir
        pop    hl
        ld    b, 20h
loc_F01A:
        ld    c, (hl)
        ex    af, af'
        rr    (hl)
        ex    af, af'
        ld    a, c
        xor    (hl)
        ld    (hl), a
        inc    hl
        djnz    loc_F01A
        pop    hl
        pop    de
        call    sub_F270
        pop    bc
        djnz    loc_F00E
stu jr stu
sub_F270:
        inc    d
        ld    a, d
        and    7
        ret    nz
        ld    a, e
        add    a, 20h
        ld    e, a
        ret    c
        ld    a, d
        sub    8
        ld    d, a
        ret

end
    display /d,end-begin
    savesna "test.sna",begin