Есть работающая программа. Если вставить дополнительную процедуру по очистке экрана(но не вызывать ее!!!), то программа глючит! В чем дело???

Sweeney, 
Чтатайте внимательно правила форума
особенно п. 3

Программа выглядит следующим образом:

data segment 'data'

String1 db 'First Parameter - $'
           
String2 db 'Second Parameter - $'
            
String3 db 'Third Parameter - $'
 Number = 1
i db 1
                                    
                                    
data ends
                                  
code segment 'code'
assume cs:code,ds:data
                                      
;!!!!!!!!!!!!!!!!!!!!!!!! Если сюда вставить следующую процедуру(закомментирована), то ничего не работает.

;---------------------------------------
;ClearScreen proc
;    mov ax,0600h
;    mov bh,71h
;    mov cx,0000h
;    mov dx,184fh
;    int 10h
;    ret 
;---------------------------------------

 CountDown proc
dec cx
 inc bx
mov dl,0ah
int 21h
ret
                                     
ShowParameter proc
                                     
cycl:
                                  
    mov dl,es:82h+bx
    cmp dl,20h
    je CountDown
    mov ah,2
    int 21h
    inc bx
                                    
    loop cycl
                                      
    mov ah,1
    int 21h
    ret
                                      
 ShowFirstParameter proc
                                       
lea dx,String1
 mov ah,9
int 21h
                                     
call ShowParameter
 ret
                                      
ShowSecondParameter proc
                                      
lea dx,String2
mov ah,9
int 21h
                                     
call ShowParameter
  ret
                                     
endm
                                     
ShowThirdParameter proc
                                     
    lea dx,String3
    mov ah,9
    int 21h
                                    
    call ShowParameter
    ret
    
                                      

        
    
    
    

start:
                                      
mov ax,data
mov ds,ax
                                      
mov cl,es:80h
mov bx,0h
                                     
ShowNextParameter:
                                      
call ShowFirstParameter
call ShowSecondParameter
call ShowThirdParameter 

mov cl,es:80h
mov bx,0h      


                                    
                                      
                                      
                                      
code ends
end start

Sweeney, при вставке исходного текста пользуйся кнопкой "Код".

оно и без вставки этой процедуры не работает. мешанина...

ничего не менял(пардон, ), только подправил чутка: