【汇编】dosbox钢琴

 DATA SEGMENT
      msg DB 0DH,0AH,'[ 1 2 3 4 5 6 7 ]'
          DB 0DH,0AH,' [ q w e r t y u ]'
          DB 0DH,0AH,'_________________'
          DB 0DH,0AH,'9: EXIT'
          DB 0DH,0AH,'_________________','$'
 ;********音调******后面用到-1判断音乐播是否放完
      sound_0 DW -
      sound_11 DW ,-
      sound_12 DW ,-
      sound_13 DW ,-
      sound_14 DW ,-
      sound_15 DW ,-
      sound_16 DW ,-
      sound_17 DW ,-
      sound_1 DW ,-
      sound_2 DW ,-
      sound_3 DW ,-
      sound_4 DW ,-
      sound_5 DW ,-
      sound_6 DW ,-
      sound_7 DW ,-
      time    DW
 DATA ENDS
 ;************************
 STACK SEGMENT
     Db  DUP ('STACK')
 STACK ENDS
 ;***********************
 CODE SEGMENT
   ASSUME DS:DATA,SS:STACK,CS:CODE
 START:
       MOV AX,DATA
       MOV DS,AX

       MOV aH,
       MOV AL,
       INT 10H

 ;*****定义一个宏*****
 SHOW MACRO b
     LEA DX,b
     MOV AH,
     INT 21H
 ENDM

 ;********一个声音宏********
 onesound macro soundis,jumpis,letteris
      CMP AL,letteris
      JNZ jumpis
      LEA SI,soundis
      LEA BP,DS:time
      CALL MUSIC
      JMP input
 ENDM

 show msg

 INPUT: MOV AH,01H
        INT 21H
        CMP AL,''
        jnz go

        mov ah,4ch
        int 21h

 go: onesound sound_11,a0,'q'
 a0: onesound sound_12,b0,'w'
 b0: onesound sound_13,c0,'e'
 c0: onesound sound_14,d0,'r'
 d0: onesound sound_15,e0,'t'
 e0: onesound sound_16,f0,'y'
 f0: onesound sound_17,g0,'u'
 g0: onesound sound_1,h0,''
 h0: onesound sound_2,i0,''
 i0: onesound sound_3,j0,''
 j0: onesound sound_4,k0,''
 k0: onesound sound_5,l0,''
 l0: onesound sound_6,m0,''
 m0: onesound sound_7,n0,''
 n0: onesound sound_0,o0,al
 o0: jmp input
 ;********************发声

 GENSOUND PROC NEAR
 ;-------------
 PUSH AX
 PUSH BX
 PUSH CX
 PUSH DX
 PUSH DI
 ;--------------
 MOV AL,0B6H
 OUT 43H,AL
 MOV DX,12H
 MOV AX,348ch
 DIV DI
 OUT 42H,AL
 MOV AL,AH
 OUT 42H,AL
 IN AL,61H
 MOV AH,AL
 OR AL,
 OUT 61H,AL

 WAIT1: MOV CX,
 call waitf
 DELAY1: DEC BX
 JNZ WAIT1
 MOV AL,AH
 OUT 61H,AL

 ;----------------
 POP DI
 POP DX
 POP CX
 POP BX
 POP AX
 ;-------------------
 RET
 GENSOUND ENDP

 ;**************************
 waitf proc near
 push ax
 waitf1:
 in al,61h
 and al,10h
 cmp al,ah
 je waitf1
 mov ah,al
 loop waitf1
 pop ax
 ret
 waitf endp

 ;************************
 MUSIC PROC NEAR
 PUSH DS
 SUB AX,AX
 PUSH AX
 FREG: MOV DI,[SI]

 CMP DI,-;音乐是否放完？
 JE END_MUS

 MOV BX,DS:[BP]
 CALL GENSOUND
 ADD SI,
 ADD BP,
 JMP FREG
 END_MUS:
 RET
 MUSIC ENDP
 CODE ENDS
 ;**********************
 END START