Assemler, не могу установить звуковой сигнал.

[FieldyTR]

Это будильник, который после активации через, 5 секунд после подает визуальный сигнал. Но я не могу понять, как сделать так чтоб он еще и спикером это дело делал. Кто знает, помогите=)

text segment 'code'

assume CS:text, DS:text


org 100h

kurs:


mov ax, 0600h
mov bh, 07
mov cx, 0000
mov dx, 184fh
int 10h

mov ah, 09h
lea dx, info
int 21h

lea DI, sSize[20]
mov AX, iSize
call schet

lea DX, sSize	
mov AH, 09h		
int 21h	

mov ah,09h
lea dx,any
int 21h

mov ah,07h
int 21h

mov ah,09
lea dx,budil
int 21h

push DS
mov AX,354Ah
int 21h 
 
mov word ptr old_4a,BX
mov word ptr old_4a+2,ES  
mov AX,254Ah                         
mov DX,offset new_4a
int 21h
pop DS              



mov ah,02
int 1Ah

mov ah,06
add dh,5
int 1Ah



mov ah,07h
int 21h

mov ah,07h
int 1Ah

mov ax, 4c00h
int 21h


new_4a proc
pushf

call CS:old_4a  

push AX 
mov AH,09h 
mov AL,'*'  
mov bh,0
mov cx,5 
int 10h  
mov AL,20h     
out 20h,AL 
pop AX


	
iret
new_4a endp

SCHET proc
mov CX,0010           
AA:

cmp AX,0010            
jb  CB                 
xor DX,DX              
div CX                 
or  DL,30H
mov [DI],DL            
dec DI
jmp AA

CB:

or  AL,30H             
mov [DI],AL            
ret
SCHET endp

old_4a dd 0

any   db "Press any key...",10,13
      db "$"
budil db "Budilnik uspeshno ustanovlen!",10,13
      db " ",10,13
      db "Cherez 5 sekund na ekrane budet 5 simvolov <*> ",10,13
      db "$" 

info  db "Kursovoy proekt", 10,13
      db "Predmet: Sistemnoe programmirovanie",10,13
      db "Vipolnil:  a.",10,13
      db "Studen gruppi 08-PO",10,13
      db "Variant 6",10,13,10,13
      db "$"


sEND db 10,13,"Rabota programmi zakonchena. Vihod.",10,13,10
iEND_len = $ - sEND
sSize	db "Razmer programmy:     bait.",10,13,"$"	
iSize=$-kurs
text ends
end kurs