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

;***********************************
;       参数修正
;-----------------------------------
;入口:  A  音量大小   0~255(0~127)
;       B  修正系数   60H=不变,反比例
;-----------------------------------
;出口:  A  修正后音量 1~127
;-----------------------------------
;资源： 无
;-----------------------------------
        PROC  CSXZ
CSXZ:
        PUSH  PSW
        PUSH  ACC
        MOV   A,B
        CJNE  A,#60H,CSXZ_1
        ;修正系数=#60H
        POP   ACC
        CJNE  A,#0,$+4
        INC   A
        CJNE  A,#127,$+3
        JC    CSXZ_E
        MOV  A,#127
        LJMP  CSXZ_E
        include "软件陷阱.asm"
CSXZ_1:
        JC    CSXZ_2
        ;修正系数>#60H
        SUBB  A,#60H
        MOV   B,A
        POP   ACC
        SUBB  A,B
        JC    CSXZ_1A
        CJNE  A,#127,$+3
        JC    CSXZ_1B
        MOV  A,#127
        LJMP  CSXZ_E
        include "软件陷阱.asm"
CSXZ_1B:
        CJNE  A,#0,CSXZ_E
CSXZ_1A:
        MOV   A,#1         ;音量min=1
        LJMP  CSXZ_E
        include "软件陷阱.asm"
CSXZ_2:
        ;修正系数<#60H
        MOV   A,#60H
        CLR   C
        SUBB  A,B
        MOV   B,A
        POP   ACC
        ADD   A,B
        JC    CSXZ_2A
        CJNE  A,#127,$+3
        JC    CSXZ_E
CSXZ_2A:
        MOV  A,#127
CSXZ_E:
        POP   PSW
        RET
        include "软件陷阱.asm"
        END
;***********************************