music.asm

这是一个电话号码程序

extrn soundf:far
stack segment para stack 'stack'
db 64 dup('stack...')
stack ends

dseg segment para 'data'
mus_freq dw 330,294,262,294,3 dup(330)
dw 3 dup(294),330,392,392
dw 330,294,262,294,4 dup(330)
dw 294,294,330,294,262,-1
mus_time dw 6 dup(25),50
dw 2 dup(25,25,50)
dw 12 dup(25),100
dseg ends
cseg segment para 'code'
assume cs:cseg,ss:stack,ds:dseg
music proc far
mov ax,dseg
mov ds,ax
lea si,mus_freq
lea bp,ds:mus_time
freq:
mov di,[si]
cmp di,-1
je end_mus
mov bx,ds:[bp]
call soundf
add si,2
add bp,2
jmp freq
end_mus:
mov ax,4c00h
int 21h
music endp
cseg ends
end music