Эффект появления картинки

 

Камрад в чятике попросил помощи с показом эффектов. Вчера придумался этот способ, и сегодня я решил попробовать код:

;compile with sjasmplus

device zxspectrum128
        ORG #4000
 incbin "girl.screen"
 ds 768
        ORG #6000
begin
ld hl,$5800
ld de,15
;заливать
flp2:
push hl
ei:halt
flp1:
ld (hl),$78
add hl,de
ld a,h
cp $5B
jr nz,flp1

pop hl
inc l
ld a,l
cp 16
jr nz,flp2
jr $
end
display /d,end-begin
savesna "!void.sna",begin

Исходник со снапшотом. Если поэкспериментировать с кодом, то могут получиться разные эффекты.