那样我们写个music岂不是得计算半天?原来的dos下的basic有个play的函数,能够用
play "ABCDEFG"来发声。以前我就仿照这个做了,就是关于-廷时-不好作。
这是我的主程序。
用来播放<一剪梅>的
DOSSEG
.MODEL SMALL
.DATA
.STACK
.CODE
THIS_PROGRAM:
INCLUDE PLAY.MAC
INCLUDE SOUND.MAC
PLAY 'C6E6G6G6A8G6E6C6G6G6G6E8C8<G6G6G6G6G6G6>C8'
PLAY '<G8>C8C8<A8B8G8A8B8>C8C8E8C8D8E8G8G8E8E8C8E8G8E8D8D8'
PLAY 'A8G8D8E8G8E8G8E8D8E8C8E8'
PLAY '<G8A8>C8C8E8E8G8G8D6D6D6<A8>D8'
PLAY '<G8A8>C8D8E8G8A8 A8>C8<A8G8E8G8 A8>C8<A8G8E8G8 A8>C8<A8G8E8G8A8E8'
PLAY 'E8G8E8D8C8D8 E8G8E8D8C8D8 E8G8E8D8<B8G8A8>C8'
PLAY 'F8A8A8A8C8G8G8G8 C8D8E8A8G8E8 >C8<G8A8'
EXIT:
MOV AH,4CH
INT 21H
END THIS_PROGRAM