piano.asm

这是一个电话号码程序

extrn soundf:far
stack segment para 'stack'
db 64 dup('stack...')
stack ends
dseg segment para 'data'
table dw 262
dw 294
dw 330
dw 349
dw 392
dw 440
dw 494 
dw 523
dseg ends
cseg segment para 'code'
assume cs:cseg,ds:dseg,ss:stack
main proc far
mov ax,dseg
mov ds,ax
new_note:
mov ah,0
int 16h
cmp al,0dh
je exit
mov bx,offset table
cmp al,'1'
jb new_note
cmp al,'8'
ja new_note 
and ax,0fh
shl ax,1
sub ax,2
mov si,ax
mov di,[bx][si]
mov bx,10
call soundf
jmp new_note
exit:
mov ax,4c00h
int 21h
main endp
cseg ends
end main