Привет! СРОЧНО нужна помощь! Спасайте!!!!!!нужно написать эту программу так,чтобы сердце появлялось на экране и им(этим изображением) можно было двигать с помощью стрелок по экрану(сердце не должно выходить за пределы экрана-так как оно сейчас является,) . Если возможно,с коментариями



.MODEL TINY
.386
.CODE
assume cs:@code,ds:@code
org 100h
; Основная программа
main proc
mov ax,cs
mov ds,ax
mov ax,0a000h
mov es,ax
; Устанавливаем режим - 320x200
mov ax, 13h
int 10h
; Создаем палитру в 256 цветов
mov cx,255
palset:
push cx
mov bx,cx
shr cx,2
mov ch,cl
mov dh,cl
shl cl,3
shl dh,1
shr ch,1
mov ax,1010h
int 10h
pop cx
loop palset
; Цикл опроса клавиатуры
keycycle:
mov ax,mcol
add ax,dltc
cmp ax,10
jna resize
cmp ax,450
jna savemcol
resize:
not dltc
mov ax,mcol
savemcol:
mov mcol,ax
; Основной цикл расчета экрана
mov si,0
megacycle1:
mov di,0
megacycle2:
push di
push si
sub di,160
sub si,140
shl si,2
shl di,1
; Zi {BX} и Zr {CX}
mov cx,mcol
mov bx,mcol
; Цвет полагается равным 0
mov [col],0
fractcycle:
mov al,col
inc al
mov col,al
cmp al,20
jz output
; Считается промежуточное значение равное 2*Zi*Zr+Ci {X}
mov ax,cx
imul bx
shl ax,1
rcl dx,1
mov al,ah
mov ah,dl
add ax,di
xchg ax,bx
imul ax
mov al,ah
mov ah,dl
push ax
xchg ax,cx
imul ax
mov al,ah
mov ah,dl
push ax
sub ax,cx
add ax,si
mov cx,ax
pop ax
pop dx
add ax,dx
cmp ah,2
jna fractcycle
output:
mov al,col
shl al,3
add al,30
pop si
pop di
call plot
inc di
cmp di,320
jnz megacycle2
inc si
cmp si,200
jnz megacycle1
mov ah,0bh
int 21h
or al,al
jz keycycle
mov ax, 3
int 10h
mov ax,4c00h
int 21h
main endp
; Процедура установки точки - di- x, si- y, al- c
plot proc near
push di
mov bx,si
shl bx,6
add di,bx
shl bx,2
add di,bx
stosb
pop di
ret
plot endp
col db 1
mcol dw 450
dltc dw 0FFF7h
end main