;
STACK SEGMENT STACK
      DB 64 DUP(?)
STACK ENDS
;
DATA SEGMENT
mus_freq DW 330,392,330,294,330,392,330,294,330
         DW 330,392,330,294,262,294,330,392,294
         DW 262,262,220,196,196,220,262,294,330,262
         
DATA ENDS
;
CODE SEGMENT
     ASSUME CS:CODE,DS:DATA
;樂曲主程序
music: MOV AX,DATA
       MOV DS,AX

       mov dx,63h
       mov al,90h
       out dx,al 
A:     mov dx, 43h         
       mov al,10110000B
       out 43H,al

aa:    MOV AL,0FFH
       out 42h,al
       mov al,0FFH
       out 42h,al
       MOV DX,60H
       IN AL,DX
       AND AL,00000001B
       CMP AL,00000001B

        
       JE  start
       jmp   aa  

MOV AX,DATA 
MOV DS,AX                   
start: MOV SI,OFFSET mus_freq
     
 
FF:     MOV AL,0B6H
        OUT 43H,AL
        MOV DX,11H
        MOV AX,0BD04H
        DIV WORD PTR[SI] 
        OUT 42H,AL
        MOV AL,AH
        OUT 42H,AL


        MOV DX,63H
        MOV AL,90H 
        OUT DX,AL   

       MOV DX,60H
       IN AL,DX
       AND AL,00000001B
       CMP AL,00000000B
       JE A
       ADD SI,2
       JMP FF


CODE ENDS 
     END music