dahai.txt

汇编语言写的大海音乐程序,下载源代码后直接在DOS环境中编译,连接,即可运行

data    segment   
   freq    dw    196,220   
             dw    262,262,262,262,262,220,196   
             dw    262,262,262,262,294,262,220,262   
             dw    294,294,294,294,294,262,220   
             dw    294,294,294,294,330,294,330,392   
             dw    440,440,392,440,392,330   
             dw    294,294,330,294,262,220,196,220   
             dw    262,262,262,262,262,220   
             dw    262,196,220   
             dw    440,440,392,440,524,440   
             dw    392,330,294,262,220,196,220   
             dw    262,262,262,262,294,262   
             dw    262,330,392   
             dw    440,440,440,440,524,440   
             dw    392,392,392,440,392,330,294   
             dw    262,262,262,262,294   
             dw    330,330,294   
             dw    262,262,262,262,524,440   
             dw    392,392,392,440,392,330,392   
             dw    440,524,524,440,392   
             dw    392,330,392   
             dw    440,440,440,440,524,440   
             dw    392,392,392,440,392,330,294   
             dw    262,262,262,262,392   
             dw    330,330,294   
             dw    262,262,262,262,294,330   
             dw    392,392,330,392,330,392   
             dw    440   
             dw    9,9,196,660,294,294,262   
             dw    262,-1   
    
   time    dw    400,400   
             dw    400,200,400,400,800,400,400   
             dw    400,200,400,200,200,800,400,400   
             dw    400,200,400,400,800,400,400   
             dw    400,200,400,200,200,800,400,400   
             dw    400,800,400,800,400,400   
             dw    400,200,200,400,400,800,400,400   
             dw    400,200,400,400,800,800   
             dw    1600,800,800   
             dw    400,800,400,800,400,400   
             dw    400,400,400,400,800,400,400   
             dw    400,800,400,800,400,200   
             dw    2400,400,400   
             dw    400,800,400,800,400,400   
             dw    400,800,200,200,800,400,400   
             dw    400,800,400,800,800   
             dw    2400,400,400   
             dw    400,800,400,800,400,400   
             dw    400,800,200,200,800,400,400   
             dw    800,400,800,400,200   
             dw    2400,400,400   
             dw    400,800,400,800,400,400   
             dw    400,800,200,200,800,400,400   
             dw    400,800,400,800,800   
             dw    2400,400,400   
             dw    400,800,400,800,400,400   
             dw    400,800,400,800,400,400   
             dw    3200   
             dw    800,400,400,400,400,400,400   
             dw    4000   
   data    ends   
    
   code    segment   
   assume    cs:code,ds:data   
   main    proc    far   
   start:mov    ax,data   
               mov    ds,ax   
               mov    si,offset    freq   
               mov    di,offset    time   
   l1:      mov    cx,[si]   
               cmp    cx,-1   
               je    exit   
               mov    bx,[di]   
               call    gensound   
               add    si,2   
               add    di,2   
               jmp    l1   
   exit:mov    ax,4c00h   
               int    21h   
   main    endp   
    
   gensound    proc    near   
                 push    dx   
                 mov    al,0b6h   
                 out    43h,al   
                 mov    dx,08h   
                 mov    ax,3208h   
                 div    cx   
                 out    42h,al       
                 mov    al,ah   
                 out    42h,al   
                 in    al,61h   
                 mov    ah,al   
                 or    al,3   
                 out    61h,al   
   l2:          push    dx   
                 push    ax   
                 mov    dx,8h   
                 mov    ax,0f05h   
   s1:          sub    ax,1   
                 sbb    dx,0   
                 jnz    s1   
                 pop    ax   
                 pop    dx   
                 dec    bx   
                 jnz    l2   
        
       mov    al,ah   
       out    61h,al   
       pop    dx   
       ret   
       gensound    endp   
       code    ends   
       end    start