实验3.1 乐曲程序
1.题目:乐曲程序
2.实验要求:
(1)采用位触发方式编写程序,使计算机发出音响并奏出《两只老虎》的乐曲。
;***************************************************************************
stack segment para stack 'stack'
db 64 dup('stack...')
stack ends
;*******************************************************************
dseg segment para 'data'
mus_freq 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_time dw 25,25,25,25,25,25,25,25,25,25
dw 50,25,25,50,12,12,12,12,25,25
dw 12,12,12,12,25,25,25,25,50,25,25,50
dseg ends
;*******************************************************************
cseg segment para 'code'
assume cs:cseg,ss:stack,ds:dseg
;-------------------------------------------------------------------
music proc far
mov ax,ds