plasmax db 0
plasmay db 11


; Entr‚es : ES=dest
DoPlasma:
  
  mov dx,1000
  .dap_loop:
    call Random
    shr eax,16
    mov di,ax
    mov cl,32
    .rect1:
      mov ch,32
      .rect2:
        mov al,[es:di]
        add al,4
        and al,63
        stosb

        dec ch
      jnz .rect2

      add di,256-32
    loop .rect1

    dec dx
  jnz .dap_loop

Blur:
  mov cx,8
  xor di,di
  .blur:
    mov al,[es:di-1]
    add al,[es:di+1]
    add al,[es:di+256]
    add al,[es:di-256]
    shr al,2
    stosb
    inc di
    inc di
  jnz .blur
  loop .blur
ret


; Entr‚es : ES=src
;           FS=dest
;MovePlasma:
;  xor si,si

;  mov cx,0
;  .mp_loop:
;    mov bx,si
;    add bl,[Timer]
;    add al,[es:bx]
;    mov bx,si
;    sub bl,[Timer]
;    add al,[es:bx+30]
;    mov bx,si
;    add bh,[Timer]
;    add al,[es:bx]
;    mov bx,si
;    sub bh,[Timer]
;    add al,[es:bx-82]
;    shr al,2
;    mov [fs:si],al
;    inc si
;  loop .mp_loop
;ret

