ну пости здесь, разрушим барьеры что-ли.
- - - Добавлено - - -
34 байта без jr $Код:device zxspectrum128 ORG #6000 begin ld de,$4000 lp1: ld a,e and 31 ld l,a add hl,hl add hl,hl ld h,$1E add hl,hl inc h push de ld b,8 lp2: ld a,(hl) ld (de),a inc hl inc d djnz lp2 pop de inc e jr nz,lp1 ld a,d add a,8 ld d,a cp $58 jr nz,lp1 jr $ end display /d,end-begin savesna "!void.sna",begin





Ответить с цитированием