计算机发声及音乐演奏.pptVIP

计算机发声及音乐演奏 声音的产生 1.19318MHz=1234DCHHz data segment bg db two tigers,$ 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),0 time dw 10 dup(25),50,25,25,50 dw 2 dup(12,12,12,12,25,25) dw 2 dup(25,25,50) data ends 1 2 3 1 | 1 2 3 1 | 3 4 5- | 3 4 5 - | 56 54 3 1 |56 54 3 1 |2 5 1 - | 2 5 1 - | __ __ __ __ . . code segment assume cs:code,ds:data start:mov ax,data mov ds,ax lea dx,bg mov ah,9 int 21h； 显示歌曲名字 lea si,freq； 频率数据首地址送si lea bp,time；时间数据首地址送bp call sing； 调用唱歌子程序 mov ah,4ch；返回DOS int 21h sing proc；唱歌子程序 push di push si push bp push bx rept1:mov di,[si]；频率数据送di cmp di,0h je end_sing；若是零，则程序结束 mov bx,ds:[bp]；时间数据送bx call sound； 调用声音子程序 add si,2； 调整频率数据指针 add bp,2； 调整时间数据指针 jmp rept1 end_sing:pop bx pop bp pop si pop di ret sing endp sound proc push ax push cx push dx push di mov al,0b6h；初始化8253，计数器2，方式3 out 43h,al；二进制计数，计数值送两次 mov dx,12h mov ax,34dch div di；计算计数值，在ax中 out 42h,al mov al,ah out 42h,al in al,61h mov ah,al；将PB口原来的值送ah or al,3 out 61h,al；将8255的PB1、PB0置成1 delay:mov cx,2801；标准延时10ms程序段 dl10ms:loop dl10ms dec bx；时间数据×10ms jnz delay mov al,ah out 61h,al；恢复PB原来的值 pop di pop dx pop cx pop ax ret sound endp code ends end start * * 岳旦部买挤帧疟剥立绞官享呈滦芋嘴换畔姚层艘朱鸭寨恋液蔫航趴败寅浊计算机发声及音乐演奏计算机发声及音乐演奏 宫坦恃蹬周豌叁株募策颁揭钡钟笔焰朴配青镊惩简坝嗽径醋涌烙喜干瀑窖计算机发声及音乐演奏计算机发声及音乐演奏 音名 唱名 频率 C 1 . 131 D 2 . 147 E 3 . 165 F 4 . 175 G 5 . 196 A 6 . 220 B 7 . 247 C 1 262 D 2 294 E 3 330 F 4 349 G 5 392 A 6 440 B 7 494 C