Радужный эффект

 Давно собирался написать эффект, но сейчас руки дошли.

device zxspectrum48
        ORG #4000
 incbin "Illusion(X-Trade).screen"
 ds 768
        ORG #6000
begin
; jr $
ld de,0; D,E=y.x
falp:
push de
ei:halt
falp2:
ld b,8
push de
falp3:
ld a,e
cp 32
jr nc,noinc
ld a,d
cp $18
jr nc,noinc
ld l,d
ld h,0
add hl,hl
add hl,hl
add hl,hl
add hl,hl
add hl,hl ;*32
push bc
ld b,$58
ld c,e
add hl,bc
pop bc
ld a,(hl)
cp 7
jr z,noinc
inc (hl)
noinc:
dec e
jp m,exfade
djnz falp3
exfade:
pop de
dec e
jp m,exvert
inc d
ld a,d
cp $18
jp nz,falp2
exvert:
pop de
inc e
ld a,e
cp 64
jp nz,falp
jr $
end
display /d,end-begin
savesna "!void.sna",begin