Реализовать эффект дождя из одиночных различных типов заливки произвольного цвета - Assembler

Формулировка задачи:

Помогите пожалуйста реализовать эффект дождя из одиночных различных типов заливки произвольного цвета. Капли по одной в столбце падают.

Решение задачи: «Реализовать эффект дождя из одиночных различных типов заливки произвольного цвета»

textual
                            Листинг программы 
                        

                            .model small
.386
 
.data
 
.stack
db 255 dup(?)
 
.code
start:
mov ax,@data
mov ds,ax
 
mov ah,00h
mov al,03h
int 10h
 
push 0B800h
pop es
xor di,di
 
mov ax,0107h
big:
mov cx,80
 
push cx
push di
 
mov cx,25
less:
mov word ptr es:[di],ax
 
call delay
 
mov word ptr es:[di],0020h
 
add di,80*2
 
loop less
 
pop di
pop cx
 
add di,2
 
cmp ah,07h
jne skip
 
xor ah,ah 
 
skip:
inc ah
 
loop big
 
xor ah,ah
int 16h
 
mov ah,4Ch
mov al,00h
int 21h
 
delay proc
push cx
 
mov cx,1000
one:
push cx
 
mov cx,10000
two:
nop
loop two
 
pop cx
loop one
 
pop cx
 
ret
delay endp
end start
                        