Вывод текста через каждые 10 секунд или по нажатию

;---получение значения счетчика и установка задержки
            MOV   AH,0   ;номер функции для "чтения"
            INT   1AH    ;получаем значение счетчика
            ADD   DX,91  ;добавляем 5 сек. к младшему слову 18,2*5=91
            MOV   BX,DX  ;запоминаем требуемое значение в BX
;---постоянная проверка значения счетчика времени суток BIOS
REPEAT:     INT   1AH    ;получаем значение счетчика
            CMP   DX,BX  ;сравниваем с искомым
            JNE   REPEAT ;если неравен, то повторяем снова
                         ;иначе, задержка окончена

            MOV   AH,0   
            INT   1Ah   
            ADD   DX,182
            MOV   Timer,DX
REPEAT: mov ah,1
            int 16h
            jnz exit
            MOV   AH,0
            int   1Ah    ;получаем значение счетчика
            CMP   DX,Timer  ;сравниваем с искомым
            JNE   REPEAT
exit:

klava proc
 mov ah,1
 int 16h
 jz klava_exit
 mov ah,0
 int 16h
 jmp klava
klava_exit:
 ret
endp

 cli
 xor ax,ax
 mov es,ax
 mov al,byte ptr es:[41ah]
 mov byte ptr es:[41ch],al
 push ds
 pop es
 sti

model small
 stack 100h
 
dataseg
  algoritm dd 0       ;рандом число
       min dd 1         ;минимальн. число для рандома
       max dd 5        ;максм.число для рандома
     timer dw 0         ;время 
codeseg
.386
start:
 mov ax,@data
 mov ds,ax
 mov es,ax
 
 mov ax,3
 int 10h
 
osnova:
 mov ah,0
 int 1ah
 add dx,182    ;18,2тик в секунду * 10 = 10 секунд
 mov [timer],dx  
 
repeat: 
 mov ah,01h
 int 16h
 
;если нажата была F1
 cmp ax,3b00h ;F1
 je f1
;если нажата была F2
 cmp ax,3c00h ;F2
 je f2
;если нажата была F3, выход в ДОС
 cmp ax,3d00h ;F3
 je exit 
 
 call klava
;читать часы (счетчик тиков),
 mov ah,0h
 int 1ah
 cmp dx,[timer]
 
;если прошло 10 секунд или более
 ja sec_10
;если  прошло менее 10 секунд
 jb repeat  ;на цикл
 
;прошло 10 секунд
sec_10:
;получим число рандом
  call random
;запишем число в квадрат 
call write_chislo
;приыгаем на основной цикл
 jmp osnova
 
;нажата была клава F1
f1:
 call klava
 inc [algoritm]       ;увеличиваем число
 call write_chislo  ;запишем число в квадрат 
 jmp osnova         ;приыгаем на основной цикл
 
;нажата была клава F2
f2:
; mov ax,0
; int 16h
 call klava
 call random
 call write_chislo
 jmp osnova
 
;нажата была клава F3, выход в дос
exit:
; mov ax,0
; int 16h
 call klava
 mov ax,4c00h
 int 21h
 
;procedure random
;получение рандом числа, взято в сети интернет
random proc
 push ecx edx ebx edi esi
 db 0Fh ;опкод команды rdtsc
 db 31h ;
 xchg esi,eax
 xchg edi,edx
 db 0Fh ;
 db 31h ;опкод команды rdtsc
 xor eax,edi
 xor edx,esi
 xor edx,edx
 mov ecx,[max]
 add ecx,1h
 sub ecx,[min]
 div ecx
 add edx,[min]
 mov eax,edx
 pop esi edi ebx edx ecx
 mov [algoritm],eax          ;рандомное число в квадрат
 ret
endp
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
пишем число
write_chislo proc
;проверим больше ли оно 5, если увеличивали клавишей F1, если больше то будет оно 1
 cmp [algoritm],5
 jbe write_chislo_1
 mov [algoritm],1
 
write_chislo_1: 
 mov eax,[algoritm]
 add eax,30h        ;чтоб символ был на экране прибавим 30h, смотрите таблицу ASCII
 
;запись в видеобуфер числа
 push 0B800h
 pop es
 mov bx,1680
 mov ah,7  
 mov word ptr es:[bx],ax
 push ds
 pop es
 ret              ;возврат
endp
 
;очистка буфера клавиатуры
klava proc
 mov ah,1
 int 16h
 jz klava_exit
 mov ah,0
 int 16h
 jmp klava
klava_exit:
 ret
endp
end start

 cli
 xor ax,ax
 mov es,ax
 mov al,byte ptr es:[41ah]
 mov byte ptr es:[41ch],al
 push ds
 pop es
 sti

;Модель small поддерживает один сегмент кода и один сегмент данных.
model small
 
;Стек - это структура данных, которая используется для временного,  хранения информации. в данном случаи он 256 байт.
 stack 100h
 
;начало сегмента данных
dataseg
  algoritm dd 0       ;рандом число
       min dd 1         ;минимальн. число для рандома
       max dd 5        ;максм.число для рандома
     timer dw 0         ;время 
 
     ;сегмент кода
codeseg
 
;директива что будем использовать инструкции 386 процессора 
.386
 
;метка начало кода
start:
; настройка сегментынх регистров на данные
 mov ax,@data
 mov ds,ax
 mov es,ax
 
;очишаем экран
 mov ax,3
 int 10h
 
;рисуем квадрат, прямой записью в видео буфер
 push 0B800h ;настройка сегмента на видеобуфер
 pop es             
 mov bx,1020  ;смещение в памяти, с которой начинаем рисовать
 mov cx,10      ;размер квадрата( вдоль столбца)
vid_2:
 push cx
 mov cx,20   ;размер квадрата( вдоль строки)
 mov al,219  ; символ для зарисовки
 mov ah,3     ;цвет символа
vid_1:
 mov word ptr es:[bx],ax ; помещаем ax в видеобуфер
 inc bx       ;смещение=смещение+1;
 inc bx
 loop vid_1     ;цикл пока CX>0,метка vid_1
 add bx,120   ;смещение в буфере для следующей строчки, рисуем квадрат
 pop cx            ;возвращаем cx
 loop vid_2     ;цикл пока CX>0,метка vid_2
 
 push ds  ;восстанавливаем регистр ds
 pop es
 
;начало основного цикла опроса нажатия клавиш и работа таймера  
osnova:
;читать часы (счетчик тиков),
;CX,DX = счетчик тиков с момента сброса. CX - старшая часть значения.
 mov ah,0
 int 1ah
 add dx,182    ;18,2тик в секунду * 10 = 10 секунд
 mov [timer],dx   ;переменная которая содержит время когда пройжет 10 секунд ожидания
 
;начало под-цикла опроса нажатия клавиш и работа задержки  
repeat: 
;Получить состояние клавиатуры
;AH - скан-код
;AL - ASCII код
 mov ax,0100h
 int 16h
 jz tik2 ;если не была нажата какая либо клавиша
 
;если нажата была F1
 cmp ax,3b00h ;F1
 je f1
;если нажата была F2
 cmp ax,3c00h ;F2
 je f2
;если нажата была F3, выход в ДОС
 cmp ax,3d00h ;F3
 je exit 
 
tik2:
;читать часы (счетчик тиков),
 mov ah,0h
 int 1ah
 cmp dx,[timer]
;если прошло 10 секунд или более
 ja sec_10
 
;если  прошло менее 10 секунд
 jb repeat  ;на цикл
 
;прошло 10 секунд
sec_10:
;получим число рандом
  call random
;запишем число в квадрат 
 call write_chislo
;приыгаем на основной цикл
 jmp osnova
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;нажата была клава F1
f1:
 call klava
 inc [algoritm]       ;увеличиваем число
 call write_chislo  ;запишем число в квадрат 
 jmp osnova         ;приыгаем на основной цикл
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;нажата была клава F2
f2:
 call klava
 call random
 call write_chislo
 jmp osnova
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;нажата была клава F3, выход в дос
exit:
 call klava
 mov ax,4c00h
 int 21h
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;procedure random
;получение рандом числа, взято в сети интернет
random proc
 push ecx edx ebx edi esi
 db 0Fh ;опкод команды rdtsc
 db 31h ;
 xchg esi,eax
 xchg edi,edx
 db 0Fh ;
 db 31h ;опкод команды rdtsc
 xor eax,edi
 xor edx,esi
 xor edx,edx
 mov ecx,[max]
 add ecx,1h
 sub ecx,[min]
 div ecx
 add edx,[min]
 mov eax,edx
 pop esi edi ebx edx ecx
 mov [algoritm],eax          ;рандомное число в квадрат
 ret
endp
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
пишем число внутрь квадрата
write_chislo proc
;проверим больше ли оно 5, если увеличивали клавишей F1, если больше то будет оно 1
 cmp [algoritm],5
 jbe write_chislo_1
 mov [algoritm],1
 
write_chislo_1: 
 mov eax,[algoritm]
 add eax,30h        ;чтоб символ был на экране прибавим 30h, смотрите таблицу ASCII
 
;запись в видеобуфер числа
 push 0B800h
 pop es
 mov bx,1680
 mov ah,7    ;;fon
 mov word ptr es:[bx],ax
 push ds
 pop es
 ret              ;возврат
endp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
;очистка буфера клавиатуры
klava proc
 cli ;запрещаем прерывания
 xor ax,ax 
 mov es,ax
 mov al,byte ptr es:[41ah] делаем чтоб указатель на конец буфера указывал на начало буфера
 mov byte ptr es:[41ch],al
 push ds
 pop es
 sti ;разрешаем прерывания
 ret
endp
 
end start