汇编实现乐曲演奏《两只老虎》

1.原理 （1）定义音符和节拍：音符根据表格。 节拍根据12，25，50存入，根据公式计算脉冲和持续时间。 （2）通过不断变换端口61h第一位的值，控制开关电路发出一串脉冲。 2.代码 datas segment ;定义音频表 freq  dw    2 dup(262,294,330,262)       dw      2 dup(330,349,392)       dw      2 dup(392,440,392,349,330,262)       dw      2 dup(294,196,262) ;定义节拍表    一个数字为一拍（25），56加下划线为每一个数字半个节拍（12）  5 ——为两个节拍（50） beat    dw      10 dup(25),50         dw      2 dup(25),50,4 dup(12),25,25,4 dup(12),25,25       dw    25,25,50,25,25,50 datas ends codes segment main proc far    assume cs:codes,ds:datas    org 100h    start:          mov ax,datas        mov ds,ax        mov cx,32d        lea si,freq        lea di,beat    play:         push cx        call player        add si,2d        add di,2d        pop cx        loop play        mov al,48h        out 61h,al                mov ah,4ch        int 21h main endp ;播放一个字符 player  proc  near       ;将音符的频率转化为控制脉冲宽度的计数值   75页 脉宽 = 2801 * 50 / freq      mov ax,2801      mov bx,50      mul bx        mov bx,[si] ;取出在freq中的对应的音符的频率      div bx;计算脉宽      mov dx,ax  ;存放脉宽           push dx  ;16位的乘法，结果放在ax  dx中      ;计算节拍  节拍决定了各音频持续的时间      mov bx,[di]      mov ax,120  ;  8太快      mul bx   ;16位的乘法，结果放在ax bx中      mov bx,ax      ;位触发模式发声        in al,61h      mov ah,al      and al,11111100b           pop dx    silent:      xor al,2      out 61h,al      mov cx,dx    wait1:      loop wait1      dec bx      jnz silent           mov al,ah      out 61h,al      ret      player endp   codes ends      end start