来自「静音琴的源码,有兴趣的拼音可以下载下来看看,这个是可以生产的程序.」· 代码 · 共 46 行

;********************************
;       声卡初始化
;********************************
;出口:  XFS_BZ=0       需发送标志
;--------------------------------
;资源   无
;--------------------------------
        PROC  MIDI_SK_CSH
MIDI_SK_CSH:
        PUSH  ACC
        PUSH  00H               ;R0
        PUSH  01H               ;R1
        PUSH  DPH
        PUSH  DPL
        CLR   ES
        ;------------------------
        MOV   DPTR,#TAB_MIDI_SK_CSH
        include "求数量程序片断.asm"
MIDI_SK_CSH_1:
        include "发送数据程序片断.asm"
        DJNZ  R1,MIDI_SK_CSH_1
        ;------------------------
        CLR   BZ_XFS           ;需发送标志,0=需
        SETB  ES
        POP   DPL
        POP   DPH
        POP   01H              ;R1
        POP   00H              ;R0
        POP   ACC
        RET
        include "软件陷阱.asm"
;********************************
TAB_MIDI_SK_CSH:;美德理电钢初始化数据
        DB    23                        ;数量
        DB    0C0H,01H                  ;音色,明亮的钢琴
                                        ;专用合成属性控制
        DB    0B0H,63H,37H,0B0H,62H,55H,0B0H,06H,3BH
       ;DB    0B0H,50H,04H              ;大厅环境
        DB    0B0H,50H,01H              ;??环境
        DB    0B0H,5BH,5FH              ;混响深度
        DB    0B0H,51H,02H              ;合唱3
        DB    0B0H,5DH,35H              ;合唱同步深度
        include "软件陷阱.asm"
;********************************
        END