code segment
assume cs:code,ds:data
delay proc ;Процедура-подпрограмма
push CX ;Сохраним СХ основной программы
mov CX,2000 ;Счетчик внешнего цикла
del1: push CX ;Сохраним его
mov CX,0 ;Счетчик внутреннего цикла
del2: loop del2 ;Внутренний цикл (64К шагов)
pop CX ;Восстановим внешний счетчик
loop del1 ;Внешний цикл (2000 шагов)
pop CX ; Восстановим СХ программы
ret ;Возврат в подпрограмму
delay endp
main proc
mov AX,data ;Настроим DS
mov DX,AX ;на сегмент данных
mov AH,09h ;Функция вывода на экран
mov DX,offset npl1 ;Адрес первой строки
mov CX,3 ;Будем выводить строки в цикле
cntrl1: int 21h ;Вызов DOS