汇编写的一段音乐——两只老虎
来源：互联网 发布：万科建筑设计优化微盘 编辑：程序博客网 时间：2024/05/16 18:37
研究了几天程序发声，这是从网上下来的一段程序，和大多汇编程序一样，在win7上无法正常播放。
;Assemble with:masm music;Link with:link music;Author:ZhuLiang;--------数据段-----------DATA SEGMENT INFO1 DB 0DH,0AH,'----------------------------------' INFO2 DB 0DH,0AH,' Welcome To Music World INFO3 DB 0DH,0AH,'Input error! INFO4 DB 0DH,0AH,'Please input again!INFO5 DB 0Dh,0AH,'INFO6 DB 0Dh,0Ah,'^.^INFO7 DB 0DH,0AH,' Welcome To Music World $ 'MUSLIST DB 0DH,0AH,' ' DB 0DH,0AH,' The Menu ' DB 0DH,0AH,'----------------------------- ' DB 0DH,0AH,' ' DB 0DH,0AH,' 1.<<Two Tigers>> ' DB 0DH,0AH,' Please input:1' DB 0DH,0AH,' ' DB 0DH,0AH,' 2.<<Two Tigers(quick version)>>' DB 0DH,0AH,' Please input:2' DB 0DH,0AH,' ' DB 0Dh,0AH,' 3.<<Two Tigers(time)>>' DB 0DH,0AH,' Please input:3' DB 0DH,0AH,' ' DB 0DH,0AH,' 4.<<Two Tigers(Media Player)>>' DB 0DH,0AH,' Please input:4' DB 0DH,0AH,' ' DB 0DH,0AH,' 5.<<Mary Had a little Lamb>>' DB 0DH,0AH,' Please input:5' DB 0DH,0AH,' ' DB 0DH,0AH,' 6.EXIT---exit ' DB 0DH,0AH,' Please input:Q' DB 0DH,0AH,' ' DB 0DH,0AH,'----------------------------- ' DB 0DH,0AH,' ;音乐播放时，提示的字符msgdoing DB 0DH,0AH,0DH,0AH DB 0DH,0AH,'Now,playing the music which you chose ' DB 0DH,0AH,'please waiting...' DB 0DH,0AH,0DH,0AH,' ;-----------------------------音乐 -----------------------------MUS_FREG1 dw 262,294,330,262,262,294,330,262 ;两只老虎_频率表 dw 330,349,392,330,349,392,392,440 dw 392,349,330,262,392,440,392,349 dw 330,262,294,196,262,294,196,262,-1 MUS_TIME1 dw 10 dup(25) ;两只老虎_节拍时间表 dw 50,25,25,50,4 dup(12),25,25 dw 4 dup(12),4 dup(25),50,25,25,50MUS_FREG2 dw 262,294,330,262,262,294,330,262 ;两只老虎_频率表 dw 330,349,392,330,349,392,392,440 dw 392,349,330,262,392,440,392,349 dw 330,262,294,196,262,294,196,262,-1MUS_TIME2 dw 10 dup(12) ;两只老虎(加快版)_节拍时间表 dw 25,12,12,25,4 dup(6),12,12 dw 4 dup(6),4 dup(12),25,12,12,25MUS_FREG3 dw 330,294,262,294,3 dup(330),3 dup(294),330,392,392 ;《Mary Had a little Lamb》频率表 dw 330,294,262,294,4 dup(330),294,294,330,294,262,-1 ;《Mary Had a little Lamb》最后一个-1控制结束MUS_TIME3 dw 6 dup(25),50,2 dup(25,25,50),12 dup(25),100 DATA ENDS;-------------------数据段finsh-----------------------------;----------------------堆栈段-----------------------------STACK SEGMENT DB 300 DUP('STACK……') STACK ENDS ;----------------------堆栈段finsh-----------------------------;----------------------代码段-----------------------------CODE SEGMENT ;------------------------------------------------------------main proc far ASSUME DS:DATA,SS:STACK,CS:CODE START: MOV AX,DATA MOV DS,AX MOV AH, 0 ;ah设置显示方式 MOV AL,00 ;AL=00代表采用40*25 黑白文本，16级灰度 INT 10H ;-----------------------用来调用显示字符串的宏SHOW MACRO b LEA DX,b MOV AH,9 ;显示字符串 INT 21H ENDM ;-----------------------音乐地址宏 ADDRESS MACRO A,B LEA SI,A ;将A的地址传给SI寄存器 LEA BP,DS:B ;将数据段Data内B的地址传给BP寄存器ENDM ;-----------------------------show INFO1 show MUSLIST INPUT: MOV AH,01H ;输入1和Q来选择开始和退出 INT 21H CMP AL,'Q' JZ RETU1 CMP AL,'1' JNZ B0 ADDRESS MUS_FREG1,MUS_TIME1 CALL MUSIC0 JMP EXIT1 B0: CMP AL,'2' JNZ C0 ADDRESS MUS_FREG2,MUS_TIME2 CALL MUSIC0 JMP EXIT1 C0: CMP AL,'3' JNZ D0 ADDRESS MUS_FREG1,MUS_TIME1 CALL MUSIC1 D0: cmp al,'4' jnz E0 address MUS_FREG1,MUS_TIME1 CALL MUSIC2 JMP EXIT1E0: CMP AL,'5' JNZ EXIT ADDRESS MUS_FREG3,MUS_TIME3 CALL MUSIC0EXIT1: show INFO4 JMP INPUT RETU1: JMP RETUEXIT: show INFO3 show INFO4 show INFO1 show MUSLIST jmp INPUT RETU: MOV AH,4CH INT 21H RETmain endp ;----------------------------------------------------------发声 GENSOUND PROC NEAR PUSH AX PUSH BX PUSH CX PUSH DX PUSH DI MOV AL,0B6H ;该控制字对定时器2进行初始化 OUT 43H,AL ;43端口送一个控制字 MOV DX,12H ;DX存放高地址 MOV AX,348ch ;AX存放低地址 DIV DI ;value of freq OUT 42H,AL ;分两次把ax里 MOV AL,AH ;面的内容 OUT 42H,AL ;输到端口42H IN AL,61H ;把端口61H的内容送到AL MOV AH,AL ;保存端口61H的初始内容 OR AL,3 OUT 61H,AL ;turn on the speakerWAIT1: ;时间延迟 MOV CX,5000 ;循环次数，wait for specified interval CALL waitf DELAY1: DEC BX JNZ WAIT1 MOV AL,AH ; OUT 61H,AL ;turn off the speaker POP DI POP DX POP CX POP BX POP AX RET GENSOUND ENDP ;--------------发声finish--------------------;----------------------------- WAITF PROC NEAR PUSH AX WAITF1: IN AL,61H ;监控端口61H存放到AL中 AND AL,10H ;检测PB4位是否为1 CMP AL,AH ;did it just change JE WAITF1 ;wait for change MOV AH,AL ;save the new PB4 status LOOP WAITF1 ;continue until CX becomes 0 POP AX RET WAITF ENDP ;-----------------------------MUSIC0 PROC NEAR SHOW msgdoing PUSH DS SUB AX,AX PUSH AX FREG0: MOV DI,[SI];将SI指向的内容传给DI CMP DI,-1 ;判断是否到了到了最后 JE END_MUS0 MOV BX,DS:[BP] ;将数据段的内容（节拍表）传给BX CALL GENSOUND ADD SI,2 ADD BP,2 JMP FREG0 END_MUS0: RET MUSIC0 ENDP MUSIC1 PROC NEAR PUSH DS SUB AX,AX PUSH AX FREG1: MOV DI,[SI] ;将SI指向的内容传给DI CMP DI,-1 ;判断是否到了到了最后 JE END_MUS1 MOV BX,DS:[BP] NEW_NOTE: MOV AH,01H int 21H CMP AL,'0' JNE NEW_NOTE CALL GENSOUND ADD SI,2 ADD BP,2 JMP FREG1 END_MUS1: RET MUSIC1 ENDP MUSIC2 PROC NEAR SHOW INFO7 PUSH DS SUB AX,AX PUSH AX FREG2: MOV DI,[SI] ;将SI指向的内容（频率表）传给DI CMP DI,-1 ;判断是否到了到了最后 JE END_MUS2 MOV BX,DS:[BP] ;将数据段的内容（节拍表）传给BX CALL GENSOUND MOV AH,9 MOV AL,13 MOV CX,50 INT 10H SHOW INFO6 ADD SI,2 ADD BP,2 JMP FREG2 END_MUS2: RET MUSIC2 ENDP CODE ENDS END START
- 汇编写的一段音乐——两只老虎
- 汇编实验——乐曲程序（两只老虎）
- CPLD板播放音乐“两只老虎”
- 汇编乐曲编程 两只老虎
- 两只老虎背后的故事[转贴]
- 两只老虎
- 周末分享——通往成功的三只老虎
- 玲珑杯----两只老虎
- 51数码时钟(调时闪烁，闹钟音乐两只老虎，闹钟时间互不影响)
- 【单片机】单片机演奏两只老虎
- 两只老虎改编（天线宝宝版）
- 汇编写的音乐播放器
- 毕业前必做的20件事情--抄自两只老虎的BLOG改进版本
- 一只老虎引发的联想
- 诺基亚联姻微软是两只火鸡还是两只老虎？
- C# beep 演奏两只老虎乐曲代码[K.8]
- 2017广东工业大学程序设计竞赛决赛 A 两只老虎
- GDUT2017校赛：Problem A: 两只老虎（数学）
- PHP for windows VC9 VC6区别
- 为STL库增加类似 std::ptr_func_ref 功能
- apk反编译
- 统计在线人数
- LIBCD.lib(crt0.obj) : error LNK2001: unresolved external symbol _main
- 汇编写的一段音乐——两只老虎
- 生成模型和判别模型
- The Problem with Cloud-Computing Standardization
- 绘制验证码图片
- js filter的使用
- 为App签名(为apk签名)
- XmlDataDocument加载数据库
- HDFS的基本概念
- administrator改名
