debug下发声程序

.model small
.386
.CODE      
MAIN  PROC  near
  
START:   
  MOV  DI, 1000;  400   292  ;这里的数值，是频率
  MOV  AL,  0B6H 
  OUT 43H,AL 
  MOV DX,12H 
  MOV AX,348CH 
  DIV DI 
  OUT 42H,AL 
  MOV AL,AH 
  OUT 42H,AL 
  IN AL,61H 
  MOV AH,AL 
  OR AL,3 
  OUT 61H,AL         ;打开扬声器

  MOV   DX,200      ;下面控制发音时间
SOUND:
  MOV   CX,65535
WAIT1:
  LOOP   WAIT1  
  loop   $
  loop   $
  loop   $
  DEC     DX  
  JNE     SOUND  
  IN  AL,  61H      ;关闭扬声器
  AND AL,  0fch 
  OUT  61H,  AL 

  MOV     AH,4CH  
  INT   21H  
  MAIN       ENDP  
END   START