Воспроизведение звука

SST SEGMENT STACK "STACK"
  dw 10
SST ENDS
DAT SEGMENT
DAT ENDS
COD SEGMENT
assume ss:sst, ds:dat, cs:cod
 
proc1 proc 
 
    Div bX           
    Out 42h,AL       
    Mov AL,AH         
    Out 42h,AL         
 
    in AL,61h           
    Or AL,00000011b        
    Out 61h,AL        
    cli                 
    mov ah,0              
    int 1ah              
    mov ax,54          
    add dx,ax         
    mov bx,dx         
 
   repeat:
    mov ah,0       
    int 1Ah           
    cmp dx,bx           
    jne repeat
 
    And AL,11111100b     
    Out 61h,AL      
    stI               
ret                
proc1 endp
 
begin: mov ax,dat
    mov ds,ax
 
    mov cx,15
nn: 
    mov ax,65      
    mul cx                
    mov bx,523                
    add bx,ax               
    Mov AL,0B6h                  
    Out 43h,AL             
    Mov DX,12h                 
    Mov AX,34DCh                
     Push cx                    
    call proc1                      
    pop cx                            
 
    loop nn                       
 
    mov ah,4ch
    int 21h
COD ENDS
END begin