TASM, задержка звука

d_s segment
 s dw 0
 sec dw 2
 koef dw 2
d_s ends
c_s segment
 assume ds:d_s, cs:c_s
 begin:
 mov ax,d_s
  mov ds, ax
 
;настроить канал 2 микросхемы таймера на генерацию прямоугольных колебаний
 
progr:
mov ah, 8h
 int 21h; ожидание ввода символа
 
 cmp al, 31h
 je met1
 
 cmp al, 32h
 je met2
 
 cmp al, 33h
 je met3
 
met1:
mov s, 345
 jmp sound 
 
met2:
mov s, 567 
 jmp sound
 
met3:
mov s, 123
 jmp sound
 
sound:
mov al,0b6h ; сзаписат в регистр режим таймера
out 43h,al
mov dx,12h ; делитель времени
mov ax,34dch ; частота
mov cx, s
div cx
out 42h,al ; записать младший байт счетчика таймера 2
mov al,ah
out 42h,al ; записать старший байт счетчика таймера 2
 
in al,61h   ;получить в регистре статус порта 61h 
 
or al,00000001b ; включить динамик
or al,00000010b
out 61h,al
cli
 ;jmp progr
 
mov ax,sec              
mov cx, 18   
mul cx                       
mov sec,ax                 
mov ah,0   
int 1Ah
add dx,sec                
mov bx,dx                 
repeat:
int 1Ah
cmp dx,bx
jne repeat
 
 off_sound:
  in al, 61h
  and al,11111100b
  out 61h,al
  StI
 
jmp progr
  
 
exit:
mov ah,4ch
int 21h
 
c_s ends
end begin

mov sec,2

jmp progr