;使用8253实现使用1到8弹奏歌曲

;其他键退出

data segment
 message  db 'Use 1 ... 8 to play the music','$'
 frequ dw 262, 294, 330, 347, 392, 440, 494, 524
data ends
code segment
 assume cs:code, ds:data
start:
 mov ax, data
 mov ds, ax
 
 lea dx, message
 mov ah, 09h
 int 21h
 
 mov al, 10110110b
 out 43h, al  ;set the control
 
next: mov ah, 7
 int 21h
 
 cmp al, '1'
 jb  exit
 cmp al, '8'
 ja  exit
 ;get the frequency of the number
 sub al, 30h
 mov ah, 0
 mov bx, ax
 sub bx, 1
 shl bx, 1
 mov cx, frequ[bx]
 ;get the counter
 mov ax, 34dch
        mov dx, 12h  ;DX:AX=1234DCH=1193180D
        div cx
 mov bx, ax   ;set the counter
 
 mov ax, bx
        out 42h, al  ;send the lower
        mov al, ah
        out 42h, al  ;send th  higner       
 
 in  al, 61h  ;set the 0 and 1 as '1'
 or  al, 03h
 out 61h, al
 
 mov cx, 0ffffh
delay:  mov dx, 100h
dec_dx: dec dx
        jnz dec_dx
        loop delay
       
        in  al, 61h
        and al, 11111100b
        out 61h, al  ;open the voice     
 jmp next
exit:
 mov ah, 4ch
 int 21h 
code ends
end start