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

;##############################################################
        PROC  FYCL,FYJTBCL
;********************************
;       发音处理
;********************************
;功能:  开关标志=0
;       发送:(90H),键序号,音量
;--------------------------------
;入口:  JXH     键序号
;       DPTR    时间地址
;--------------------------------
;出口:  XFS_BZ=0       需发送标志
;--------------------------------
;资源   无
;--------------------------------
FYCL:
        PUSH  ACC
        PUSH  00H              ;R0
        LCALL SJYLCL           ;时间音量处理(出口: YLDX 音量大小)
        CLR   ES
        MOV   R0,TXD_IN        ;发送数据放入地址
        ;-----声相---------------------------------
       ; MOV   RLSX,JXH         ;声相参数=键序号
       ; ;-------------
       ; MOV   A,#0B0H          ;声相:B0 0A 参数
       ; MOVX  @R0,A
       ; INC   TXD_IN
       ; ANL   TXD_IN,#01111111B;发送缓冲长度限制
       ; MOV   R0,TXD_IN
       ; ;-------------
       ; MOV   A,#0AH           ;声相:B0 0A 参数
       ; MOVX  @R0,A
       ; INC   TXD_IN
       ; ANL   TXD_IN,#01111111B;发送缓冲长度限制
       ; MOV   R0,TXD_IN
       ; ;-------------
       ; MOV   A,RLSX           ;声相:B0 0A 参数
       ; MOVX  @R0,A
       ; INC   TXD_IN
       ; ANL   TXD_IN,#01111111B;发送缓冲长度限制
       ; MOV   R0,TXD_IN
       ;;----------------------------------------------
        JNB   BZ_KGJP,FYCL1    ;如果已经打开,省略90H.
        CLR   BZ_KGJP          ;开关键盘标志0=开.
FYCL1:  ;不省略90H             ;?????
        MOV   A,#90H           ;发音
        MOVX  @R0,A
        INC   TXD_IN
        ANL   TXD_IN,#01111111B;发送缓冲长度限制
        MOV   R0,TXD_IN
;FYCL1: ;省略90H
        MOV    A,JXH           ;键序号
        MOVX   @R0,A
        INC   TXD_IN
        ANL   TXD_IN,#01111111B;发送缓冲长度限制
        MOV   R0,TXD_IN
        MOV   A,YLDX           ;音量大小
        MOVX   @R0,A
        INC   TXD_IN
        ANL   TXD_IN,#01111111B;发送缓冲长度限制
        CLR   BZ_XFS           ;需发送标志,0=需
        SETB  ES
        POP   00H              ;R0
        POP   ACC
        RET
        include "软件陷阱.asm"
;********************************
;       放音脚踏板处理
;********************************
;功能:  开脚踏板: B0 40 7F
;--------------------------------
;入口:  无
;--------------------------------
;出口:  XFS_BZ=0       需发送标志
;--------------------------------
;资源   无
;--------------------------------
FYJTBCL:
        PUSH  ACC
        PUSH  00H              ;R0
        CLR   ES
        MOV   R0,TXD_IN        ;发送数据放入地址

        MOV   A,#0B0H          ;开脚踏板: B0 40 7F
        MOVX  @R0,A
        INC   TXD_IN
        ANL   TXD_IN,#01111111B;发送缓冲长度限制
        MOV   R0,TXD_IN

        MOV    A,#40H          ;开脚踏板: B0 40 7F
        MOVX   @R0,A
        INC   TXD_IN
        ANL   TXD_IN,#01111111B;发送缓冲长度限制
        MOV   R0,TXD_IN

        MOV    A,#7FH          ;开脚踏板: B0 40 7F
        MOVX   @R0,A
        INC   TXD_IN
        ANL   TXD_IN,#01111111B;发送缓冲长度限制

        CLR   BZ_XFS           ;需发送标志,0=需
        SETB  ES
        POP   00H              ;R0
        POP   ACC
        RET
        include "软件陷阱.asm"
;********************************
        END
;##############################################################