stackear        segment stack
        db      64 dup('stack...')
top     label   word
stackear   ends

dseg     segment para    'data'

mus_time0       dw 1

mus_freq        dw 330,294,262,294,3 dup(330)
                dw 3 dup(294),330,392h,392
                dw 330,294,262,294,4 dup(330)
                dw 294,294,330,294,262
mus_time        dw 6 dup(1*6),2*6
                dw 2 dup(1*6,1*6,2*6)
                dw 12 dup(1*6),4*6
;------生日快乐MUSIC-------------
mus_freq1       dw 262,262,294,262,349,330,262,262,294,262,392,349
                dw 262,262,523,440,349,330,294,446,446,440,262,392,349
mus_time1       dw 2 dup(2*6)
                dw 3 dup(4*6),8*6,2*6,2*6
                dw 3 dup(4*6),8*6,2*6,2*6
                dw 4 dup(4*6),8*6,2*6,2*6,4*6,4*6,4*6,8*6,8*6     
;-----------------------------------------
mus_freq2       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

mus_time2       dw 3 dup(2*6),1*6,1*6,2*6,1*6,1*6,4*6
                dw 2 dup(2*6,2*6,1*6,1*6),4*6
                dw 3 dup(2*6,1*6,1*6),4*6

table_1 dw 262     ;c
        dw 294     ;d
        dw 330     ;e
        dw 349     ;f
        dw 392     ;g
        dw 440     ;a
        dw 494     ;b
        dw 523    ;c

;****************
flag            db      00h

ratio           equ     1

blank           db 0dh,0ah,0dh,0ah,'$'
err_1           db '    The press key is no use.',0dh,0ah
                db '    Please press the ESC key to up page !',0dh,0ah,'$'
string          db '    Please press <1> or <2> key to select playing music!'
                db 0dh,0ah,0dh,0ah,'$'
string0         db '*******************************************************',0dh,0ah
                db '     If you do not want to lisen or play the music.',0dh,0ah
                db '       -> Please press ESC key to return to dos.',0dh,0ah
                db '       -> Please ENTERN key to reflash the screen.',0dh,0ah
                db '*******************************************************',0dh,0ah,'$'
string1         db '                   <1>  music_1',0dh,0ah,0dh,0ah,'$'
string2         db '                   <2>  music_2',0dh,0ah,'$'
string3         db 0dh,0ah,'                   <3>  music_3',0dh,0ah,'$'
string4         db 0dh,0ah,'------Press SPACE key to self_play with 1 to 8 key',0dh,0ah,'$'  

str_11          db '       ---music_1 is playing.',0dh,0ah,0dh,0ah,'$'
str_21          db '       ---music_2 is playing.',0dh,0ah,0dh,0ah,'$'

str_31          db '    ---music_3 is playing.',0dh,0ah,0dh,0ah,'$'
str_41          db 0dh,0ah,'     --->please press 1 to 8 key to play your music',0dh,0ah
                db '          or press ENTERN key to up page',0dh,0ah,'$'
dseg    ends
;**************************************************
cseg    segment para 'code'
        assume  cs:cseg,ss:stackear,ds:dseg
start:   ;L proc far
        mov     ax,dseg
        mov     ds,ax
        mov     ax,stackear
        mov     ss,ax
        mov     sp,offset top
kk:
        mov     ah,0
        mov     al,3
        int     10h

        call    clr_screen

        lea     dx,blank
        mov     ah,9
        int     21h

        lea     dx,string
        mov     ah,09h
        int     21h
        lea     dx,string1
        mov     ah,09h
        int     21h
        lea     dx,string2
        mov     ah,09h
        int     21h

        lea     dx,string3
        int     21h
        lea     dx,string4
        int     21h
        lea     dx,blank
        int     21h
        lea     dx,string0
        mov     ah,09h
        int     21h

re_read:

        mov     ah,1
        int     16h
        jnz     re_read

        mov     ah,0
        int     16h
        cmp     ah,02h  
        jz     key_1
        cmp     ah,03h   
        jz      key_2
       cmp     ah,04      
        jz      key_3
        cmp     ah,01h     
        jz      key_esck
        cmp     ah,39h
        jz      key_space  
        cmp     ah,1ch
        jz      key_ent   

        mov     ah,0      
        mov     al,3
        int     10h

        call    clr_screen

        mov     ah,0      
        mov     al,3
        int     10h
        
        or      flag,00000001b
        lea     dx,blank
        mov     ah,09
        int     21h
        lea     dx,err_1   
        mov     ah,09h
        int     21h

        lea     si,mus_time2
        mov     bx,0350h
        call    sound_play
        jmp     re_read
key_esck:
        jmp     key_esc

key_1:
        or      flag,00000010b
        lea     dx,str_11
        mov     ah,9
        int     21h
        call    play_1
        and     flag,11111101b
        jmp     re_read
key_2:
        or      flag,00000100b
        lea     dx,str_21
        mov     ah,9
        int     21h
        call    play_2
        and     flag,11111011b
        jmp     re_read
key_3:
        or      flag,00001000b
        lea     dx,str_31
        mov     ah,9
        int     21h
        call    play_3
        and     flag,11110111b
        jmp     re_read
key_space:
        lea     dx,str_41
        mov     ah,09h
        int     21h
        call    self_play   
        ret

key_ent:
        jmp     kk
key_esc:
        test    flag,01h     
        jz      esc_0

        mov     ah,0        
        mov     al,3
        int     10h

        call    clr_screen

        mov     ah,0         
        mov     al,3
        int     10h

        lea     dx,blank
        mov     ah,09
        int     21h

        lea     dx,string   
        mov     ah,09h
        int     21h
        lea     dx,string1
        mov     ah,09h
        int     21h
        lea     dx,string2   
        mov     ah,09h
        int     21h
        lea     dx,blank
        int     21h
        lea     dx,string0
        mov     ah,09h
        int     21h

        and    flag,11111110b
        jmp    re_read
esc_0:
        call    clr_screen
        jmp     retdos
        
play_1:
        call    music
        and     flag,11111101b
        ret
play_2:
        call    music
        and     flag,11111011b
        ret
play_3:
        call    music
        and     flag,11110111b
        ret
;/////////////////////////////////
music:
        test    flag,00000010b
        jnz      mus_1
        mov     cx,28
        lea     si,mus_time2      
        lea     bp,ds:mus_freq2
        jmp     musl
mus_1:
        test    flag,00000100b
        jnz     mus_2
        mov     cx,26
        lea     si,mus_time
        lea     bp,ds:mus_freq
        jmp     musl
mus_2:
        mov     cx,25
        lea     si,mus_time1
        lea     bp,ds:mus_freq1
musl:
        push    cx
        mov     bx,ds:[bp]
;        add     bx,0fffh   

        call    sound_play   
        add     si,2
        add     bp,2
        pop     cx
        loop    musl    ;oo
        ret
;////////////////////////////////////
re_readk:
        jmp     kk
;////////////////////////////////////
self_play:
        mov     ah,0
        int     16h
        cmp     al,0dh
        je      re_readk
        mov     bx,offset table_1
        cmp     al,'1'
        jb      self_play
        cmp     al,'8'
        ja      self_play      
        and     ax,0fh
        shl     ax,1         
        sub     ax,2
        mov     si,ax
        mov     di,[bx][si]   
      
        mov     bx,[si]      
        lea     si,mus_time0
        call    sound_play
        jmp    self_play
        ret     
;/////////////////////////////////////////////
clr_screen:   
        push    ax
        push    bx
        push    cx
        push    dx

        mov     ah,6
        mov     ah,0
        mov     bh,7
        mov     ch,0
        mov     cl,0
        mov     dh,24
        mov     dl,79
        int     10h

        mov     dx,0
        mov     ah,2
        int     10h

        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
retdos:
        mov     ah,0
        mov     al,3
        int     10h
               
        mov     ax,4c00h
        int     21h

;       ***********************************
;       *     声音播放                    *
;       ***********************************
sound_play proc
        assume  cs:cseg
        ; need set BX (Used for Frequency)
        ;         
        push    es
        push    ax
        push    cx

        in      al,61h
        or      al,03h
        and     al,0ffh
        out     61h,al
        mov     al,0b6h
        out     43h,al
        mov     al,bl
        out     42h,al
        mov     al,bh
        out     42h,al

        mov     cx,0040h
        mov     es,cx
        mov     cx,es:[006ch]

        push    ax
        mov     ax,[si]

        push    bx
        mov     bl,ratio
        mul     bl
        pop     bx

        add     ax,cx
        mov     cx,ax
        pop     ax
s_wait:
        cmp     cx,es:[006ch]
        jnb     s_wait

        in      al,62h
        and     al,0fch
        out     61h,al
        
        pop     cx
        pop     ax
        pop     es
        ret
sound_play endp

soundf  proc far
        push    ax
        push    bx
        push    cx
        push    dx
        push    di
        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     61,al
wait1:  mov     cx,2800
delay:  loop    delay
        dec     bx
        jnz     wait1
        mov     al,ah
        out     61h,al
        pop     di
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
soundf  endp

cseg    ends
        end     start

稍微注释了下！

str_11          db '       ---music_1 is playing.',0dh,0ah,0dh,0ah,'$'
str_21          db '       ---music_2 is playing.',0dh,0ah,0dh,0ah,'$'

str_31          db '    ---music_3 is playing.',0dh,0ah,0dh,0ah,'$'
str_41          db 0dh,0ah,'     --->please press 1 to 8 key to play

此3条代码是 分别代表3种不同的音月   

[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)