Издавать писк при вводе цифр на дополнительной клавиатуре

.model tiny ;тип файла COM
.code ; начало сегмента кода
org 100h ; смещение памяти на 100h (для COM)
 
PROGRAM:    
 
mov ah,09h
mov dx, offset message
int 21h
 
compare:
mov ah,01h
int 21h
 
cmp al,'0'
jz sound_mov
 
cmp al,'1'
jz sound_mov
 
cmp al,'2'
jz sound_mov
 
cmp al,'3'
jz sound_mov
 
cmp al,'4'
jz sound_mov
 
cmp al,'5'
jz sound_mov
 
cmp al,'6'
jz sound_mov
 
cmp al,'7'
jz sound_mov
 
cmp al,'8'
jz sound_mov
 
cmp al,'9'
jz sound_mov
 
call warning 
 
 
sound_mov:
    call sound
 
proc warning
mov ah,09h
mov dx,offset bad_data
int 21h
call exit
warning endp
 
proc sound
  mov di,6000 ;частота звука
    mov bx,20   ;длительность
    mov al,0b6H
    out 43H,al
    mov dx,0014H
    mov ax,4f38H
    div di
    out 42H,al
    mov al,ah
    out 42H,al
    in al,61H
    mov ah,al
    or al,3
    out 61H,al
    l1:     mov cx,2801H
    l2:     loop l2
    dec bx
    jnz l1
    mov al,ah
    out 61H,al
    
    ;call exit
sound endp
 
exit proc
int 20h
exit endp
 
;DATA
message db "Enter Data",0Dh,0Ah,'$'
bad_data db 0Dh,0Ah,"Warning: inaccurate data",'$'
end PROGRAM

model   tiny
.code
org 100h
begin:  xor ax,ax
    int 16h
    push    ax
    call    show
    pop ax
    cmp ah,1
    jnz begin
    ret
Show:   mov al,ah
    aam 16
    xchg    ah,al
    call    @@00
    xchg    ah,al
@@00:   push    ax
    cmp al,10
    jb  @@01
    add al,7
@@01:   add al,'0'
    int 29h
    pop ax
    ret
    end begin

.model small
.386
.stack 100h
.code       ;начало сегмента кода
 
PROGRAM: 
start:
mov ax,cs ; Сохраняем значение сегмента кода в ax
mov ds,ax ; Приравниваем значение сегмента кода регистру сегмента данных
mov es,ax ; Приравниваем значение сегмента кода дополнительному регистру сегмента
 
mov ah,0h   ;установка видеорежима
mov al,3    ;режим номер 3
int 10h     ;вызов 10h прерывания
 
enter_letter:
 
mov ah,00h ; Считываем следующую нажатую клавишу
int 16h
mov dh,ah ; Сохраняем в dh скан-код
mov dl,al ; Сохраняем в dl ASCII код
 
mov ah,02h ; Выводим символ на экран
int 21h
 
cmp dl,27 ; Если нажат escape,
jz e_esc ; то переходим к завершению программы
 
cli ; Запрет прерываний
 
cmp dh,52h
jz compare
 
cmp dh,4Fh
jz compare
 
cmp dh,50h
jz compare
 
cmp dh,51h
jz compare
 
cmp dh,4Bh
jz compare
 
cmp dh,4Ch
jz compare
 
cmp dh,4Dh
jz compare
 
cmp dh,47h
jz compare 
 
cmp dh,48h ; Проверяем нажата ли клавиша num8
jz compare ; Если нет – переходим к проверке num9
 
cmp dh,49h
jz compare
 
jmp enter_letter ; Переходим к считыванию следующего символа
 
compare:
 
cmp dl,30h
jz space
 
cmp dl,31h
je space
 
cmp dl,32h
jz space
 
cmp dl,33h
jz space
 
cmp dl,34h
jz space
 
cmp dl,35h
jz space
 
cmp dl,36h
jz space
 
cmp dl,37h
jz space
 
cmp dl,38h ; Проверяем введен ли символ 8 (включен
jz space
 
cmp dl,39h
jz space
 
jmp enter_letter
 
space:
    call sound
    
proc sound
  mov di,6000 ;частота звука
    mov bx,20   ;длительность
    mov al,0b6H
    out 43H,al
    mov dx,0014H
    mov ax,4f38H
    div di
    out 42H,al
    mov al,ah
    out 42H,al
    in al,61H
    mov ah,al
    or al,3
    out 61H,al
    l1:     mov cx,2801H
    l2:     loop l2
    dec bx
    jnz l1
    mov al,ah
    out 61H,al
    jmp enter_letter
sound endp
 
e_esc:
mov ax,4c00h ; Завершаем программу
int 21h
 
;DATA
 
end PROGRAM