Не работает задержка перед выводом символа - Assembler

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

пытаюсь решить задачу: напечатать символ * в строку то-есть от x = 0h y=ch до x=4fh y=ch план такой: печатаю, удаляю, жду 1 сек, смещаюсь в право, и по кругу но код тупо уходит в право и задержка не фурычит

                    Листинг программы
                
 
                        
                          
                    
s1 segment
org 100h
begin:
mov ax,3
int 10h
mov ah,2
mov dl,0h
mov dh,ch
int 10h
mov cx,40
 
s:
 
 call pechat
 
mov ah,9h
mov al,0
mov bl,0Eh
mov cx,1
int 10h
 
call pause
 
 mov ah,2
inc dl
int 10h
loop s
mov ah,10h
int 16h
 
int 20h
pechat proc
 push cx
mov ah,9h
mov al,42
mov bl,0Eh
mov cx,1
int 10h
pop cx
ret
pechat endp
pause proc
push cx
push dx
nop
MOV     CX, 0FH
MOV     DX, 4240H
MOV     AH, 86H
INT     15H
 
pop dx
pop cx
ret
pause endp
 
s1 ends
end begin

Решение задачи: «Не работает задержка перед выводом символа»

textual
                            Листинг программы 
                        
 
                        
                          
                    
delay proc
push cx
 
mov cx,20000
big:
push cx
 
mov cx,20000
mini:
nop
loop mini
 
pop cx
loop big
 
pop cx
 
ret
delay endp