Сформировать программную задержку

;masm
.model small
 
.stack 100h
 
.data
    row db ? ;позиция курсора по горизонтали
    col db ? ;позиция курсора по вертикали
    symbol db ? ;хранит ASCII-код символа
    attr db ?   ;хранит атрибуты символа
    side db ?   ;хранит кол-во символов, сост. сторону квадрата
    ps db ?
    pp db ?
    
.code
prog:
;Очистка экрана текущей видеостраницы
    mov ah,00h
    mov al,03h
    int 10h
    
    mov ax,@data     ;в ax помещаем адрес начала сегмента данных
    mov ds,ax        ;определяем сегмент данных
    
;Установка адресного регистра в начало строки
    mov row,7
    mov col,30
    mov symbol,064   ;будем выводить квадрат с помощью символа "@"
    mov attr, 07h    ;напишем на черном 
    mov side,10      ;размер стороны квадрата
    
;вызовем процедуру вывода первой строки
    call printfs
ml:
;если выводим последнюю строку, то перейдем на метку m2, иначе выполним операнды
    cmp row,17     ;последняя ли строка выводится row (текущая) сравнивается с ps(последней)
    jz m2          ;если последняя то перейдем к метке m2
    inc row        ;перейдем к следующей строке
 
    call printos   ;вызов печати промежуточной строки
    jmp ml         ;вернемся к началу цикла
m2:
    mov col,30
    inc row
    call printls
    
    xor ax,ax
    int 16h
    mov ah,4ch
    int 21h
;Подпрограмма для вывода на экран первой строки - полной стороны квадрата
printfs proc
    mov cx,10
    @@:
    push cx
;позиционирование курсора
    mov ah,02h
    mov dh,row
    mov dl,col
    int 10h
 
;Вывод на экране цветом (опредееляется содержимым bl)
;символов в коничестве side (определяется cx), код которого помещается в регистр al
;Выбрана нулевая видеостраница
    mov ah,09h
    mov bh,00h
    mov bl,07h
    mov al,symbol
    mov cx,1
    int 10h
    pop cx
    add col,2
    loop @b
ret
printfs endp
 
 
;Подпрограмма для вывода на экран последней строки - полной стороны квадрата
printls proc
    mov cx,10
    @@:
    push cx
;позиционирование курсора
    mov ah,02h
    mov dh,row
    mov dl,col
    int 10h
 
;Вывод на экране цветом (опредееляется содержимым bl)
;символов в коничестве side (определяется cx), код которого помещается в регистр al
;Выбрана нулевая видеостраница
    mov ah,09h
    mov bh,00h
    mov bl,07h
    mov al,symbol
    mov cx,1
    int 10h
    pop cx
    add col,2
    loop @b
ret
printls endp
 
;Подпрограмма печати промежуточных строк
printos proc
    mov col,30
;выведем первый символ
;позиционирование курсора
    mov ah,02h
    mov dh,row
    mov dl,col
    int 10h
;Вывод на экране на бордовом фоне синим цветом (опредееляется содержимым bl)
;символов в количестве 1 (определяется cx), код которого помещается в регистр al
;Выбрана нулевая видеостраница
    mov ah,09h
    mov bh,00h
    mov bl,07h
    mov al,symbol
    mov cx,1
    int 10h 
    
    add col,18
;позиционирование курсора
    mov ah,02h
    mov dh,row
    mov dl,col
    int 10h
;Вывод на экране на бордовом фоне синим цветом (опредееляется содержимым bl)
;символов в количестве 1 (определяется cx), код которого помещается в регистр al
;Выбрана нулевая видеостраница
    mov ah,09h
    mov bh,00h
    mov bl,07h
    mov al,64  ;выводим пустые символы
    mov cx,1
    int 10h
    ret
printos endp
end prog