静音琴的源码,有兴趣的拼音可以下载下来看看,这个是可以生产的程序.

;********************************
;       关闭音符
;********************************
;出口:  XFS_BZ=0       需发送标志
;--------------------------------
;资源   无
;--------------------------------
        PROC  MIDI_GBYF
MIDI_GBYF:
        PUSH  ACC
        PUSH  00H                    ;R0
        PUSH  01H                    ;R1
        PUSH  DPH
        PUSH  DPL
        CLR   ES
        ;------------------------
        MOV   DPTR,#TAB_MIDI_GBYF
        include "求数量程序片断.asm"
MIDI_GBYF_1:
        include "发送数据程序片断.asm"
        DJNZ  R1,MIDI_GBYF_1
        ;------------------------
        CLR   BZ_XFS           ;需发送标志,0=需
        SETB  ES
        POP   DPL
        POP   DPH
        POP   01H              ;R1
        POP   00H              ;R0
        POP   ACC
        RET
        include "软件陷阱.asm"
;********************************
TAB_MIDI_GBYF:;关闭音符
        DB    48                        ;数量
        DB    0B0H,7BH,00H              ;通道0
        DB    0B1H,7BH,00H              ;通道1
        DB    0B2H,7BH,00H              ;通道2
        DB    0B3H,7BH,00H              ;通道3
        DB    0B4H,7BH,00H              ;通道4
        DB    0B5H,7BH,00H              ;通道5
        DB    0B6H,7BH,00H              ;通道6
        DB    0B7H,7BH,00H              ;通道7
        DB    0B8H,7BH,00H              ;通道8
        DB    0B9H,7BH,00H              ;通道9
        DB    0BAH,7BH,00H              ;通道10
        DB    0BBH,7BH,00H              ;通道11
        DB    0BCH,7BH,00H              ;通道12
        DB    0BDH,7BH,00H              ;通道13
        DB    0BEH,7BH,00H              ;通道14
        DB    0BFH,7BH,00H              ;通道15
        include "软件陷阱.asm"
;********************************
        END