Проблема с остановкой цикла.

[gra-iro]

PHP код:

       .model   tiny
        .386
        .code
        org      100h
        
start:

        mov ax,3 ; установить текущей нулевую  видео страницу
        int 10h
        
        mov ax,0b800h ; номер видео страницы
        mov es,ax     ; загрузка 0b800h в сегментный регистр es
 
        xor si,si               ;копирование
        
        ; доска 8x8
        mov dx,8
        mov cx,8

stolb:
        push cx 
        
;1-а  строка
                mov cx,8
        line:
                push cx
                mov cx,2
;color
                cmp ah,dl               
                je nx
                mov ah,dl               ;
                jmp kub
        nx:
                mov ah,dh               
                kub:
                        mov byte ptr es:[si],0dbh
                        inc si
                        mov byte ptr es:[si],ah
                        inc si
                loop kub
                pop cx  
                loop line
                
        pop cx                ;
        xchg dh,dl      
        mov ah,1                ;sboi
        add si,128
        loop stolb
        
        call TIMER
        xor si,si
        mov cx,8
        xchg dl,dh              ; dh = dl
        add ah,7                ;определение цвета для нового кадра

        jmp  stolb
        ;цикл бесконечный, поэтому нет выхода из программы
        
 TIMER proc
        push es
        mov ax,40h
        mov es,ax        
mf:
        mov al,byte ptr es:[40h]
        sub al,50                               ;чем больше значение тем дольше (не более 0ffh или 255d)
ms:
        cmp al,byte ptr es:[40h]
        jle ms        
        pop es
        
        mov ah,01h
        int 16h
        cmp ah,39h
        
        je finish
ret

finish:
mov ah,1
int 21h

mov ah,09               ; фyнкция N9 - вывод текста на экpан
mov dx,offset msg     ; в dx заносим адpес сообщения msg
int 21h                
                             
msg     db 'Программа завершена успешно! $'  

TIMER endp
end start 


Программа рисует на экране шахматную доску и по таймеру инвертирует цвета клеток. По окончанию программы нужно вывести сообщение о завершении программы и ее размер..
Обработку выхода из цикла сделал, но сообщение на экран не выводится, не работает задержка..

Помогите пожалуйста..

[vadimych]

gra-iro, куда-то Вы не туда влепили финиш. Здесь по нажатию ESC программа будет завершаться.

       .model   tiny
        .386
        .code
        org      100h
        
start:

        mov ax,3 ; установить текущей нулевую  видео страницу
        int 10h
        
        mov ax,0b800h ; номер видео страницы
        mov es,ax     ; загрузка 0b800h в сегментный регистр es
 
        xor si,si               ;копирование
        
        ; доска 8x8
        mov dx,8
        mov cx,8

stolb:
        push cx 
        
;1-а  строка
                mov cx,8
        line:
                push cx
                mov cx,2
;color
                cmp ah,dl               
                je nx
                mov ah,dl               ;
                jmp kub
        nx:
                mov ah,dh               
                kub:
                        mov byte ptr es:[si],0dbh
                        inc si
                        mov byte ptr es:[si],ah
                        inc si
                loop kub
                pop cx  
                loop line
                
        pop cx                ;
        xchg dh,dl      
        mov ah,1                ;sboi
        add si,128
        loop stolb
        
        call TIMER
mov ah,1
int 16h
dec ah
jnz next

mov ah,09               ; фyнкция N9 - вывод текста на экpан
mov dx,offset msg     ; в dx заносим адpес сообщения msg
int 21h                

mov ah,1
int 21h

ret

next:
        xor si,si
        mov cx,8
        xchg dl,dh              ; dh = dl
        add ah,7                ;определение цвета для нового кадра

        jmp  stolb
        ;цикл бесконечный, поэтому нет выхода из программы
        
 TIMER proc
        push es
        mov ax,40h
        mov es,ax        
mf:
        mov al,byte ptr es:[40h]
        sub al,50                               ;чем больше значение тем дольше (не более 0ffh или 255d)
ms:
        cmp al,byte ptr es:[40h]
        jle ms        
        pop es
        
  ret
      
                             
msg     db 'Программа завершена успешно! $'  

TIMER endp
end start

[gra-iro]

спасибо большое за помощь!!! вы мне очень помогли!

[gra-iro]

 .model   tiny
        .386
        .code
        org      100h
        
start:

        mov ax,3 ; установить текущей нулевую  видео страницу
        int 10h
        
        mov ax,0b800h ; номер видео страницы
        mov es,ax     ; загрузка 0b800h в сегментный регистр es
 
        xor si,si               ;копирование
        
        ; доска 8x8
        mov dx,8
        mov cx,8
		
		

stolb:
        push cx 
        
;1-а  строка
                mov cx,8
        line:
                push cx
                mov cx,2
;color
                cmp ah,dl               
                je nx
                mov ah,dl               ;
                jmp kub
        nx:
                mov ah,dh               
                kub:
                        mov byte ptr es:[si],0dbh
                        inc si
                        mov byte ptr es:[si],ah
                        inc si
                loop kub
                pop cx  
                loop line
                
        pop cx                ;
        xchg dh,dl      
        mov ah,1                ;sboi
        add si,128
        loop stolb
        
        call TIMER
mov ah,1
int 16h
dec ah
jnz next

mov ax,3 ; установить текущей нулевую  видео страницу
int 10h

mov ah,09               ; фyнкция N9 - вывод текста на экpан
mov dx,offset msg     ; в dx заносим адpес сообщения msg
int 21h

; задержка экрана
xor ah,ah
int 16h              

mov ah,1
int 21h
jmp fin
ret

next:
        xor si,si
        mov cx,8
        xchg dl,dh              ; dh = dl
        add ah,7                ;определение цвета для нового кадра

        jmp  stolb
        ;цикл бесконечный, поэтому нет выхода из программы
        
 TIMER proc
        push es
        mov ax,40h
        mov es,ax        
mf:
        mov al,byte ptr es:[40h]
        sub al,50                               ;чем больше значение тем дольше (не более 0ffh или 255d)
ms:
        cmp al,byte ptr es:[40h]
        jle ms        
        pop es
        
  ret
	 
fin:

sizeProg=fin-start	 
msg     db 'Size program $'  

TIMER endp
end start

А чтобы вывести размер программы, как мне правильно вывести sizeProg на экран? можете помочь?

[vadimych]

gra-iro, ни метка fin,ни jmp на неё не нужны. Инструкция ret после ожидания нажатия клавиши обеспечивает завершение программы. А Ваш джамп гарантирует зависание. Про вывод почитайте там, где Вы отрапортовали о решении задачи. Первая тема в разделе.

TIMER endp
sizeProg=$-start
end start

[gra-iro]

спасибо большое!!! очень благодарен вам за помощь!