键盘控制发声的程序，发出6，7，1，2，3，4，5，6，7，i，十个音调

根据《ＩＢＭ—ＰＣ汇编语言程序设计》的八度音程的钢琴程序，整理，

能发出6，7，1，2，3，4，5，6，7，i，十个音调

DATAS SEGMENT para 'data'
table dw 494  ;0,7.
      dw 524  ;1
      dw 588  ;2
      dw 660  ;3
      dw 698  ;4
      dw 784  ;5
      dw 880  ;6
      dw 988  ;7
      dw 1048 ;8,i
      dw 440  ;9,6.
message db 'Paly the piano with number key(1-9) ,exit with space bar!',13,10,'$'
DATAS ENDS

STACKS SEGMENT  para  'stack'
      db 64 dup('stack...')
STACKS ENDS

CODES SEGMENT
main proc far
     ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
     MOV   AX,DATAS
     MOV   DS,AX
     mov   ah,9
     mov   dx,offset message