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

;********************************
;       键盘修正
;********************************
JPXZ:
        MOV   P0,VB
        CLR   XLDZ               ;下拉电阻
        NOP
        NOP
        NOP
        NOP
        MOV   XZJSQ,#250         ;修正计数器
JPXZ1:
        LCALL LYCLJPXZ           ;录音处理(键盘修正)
        MOV   A,JSQDJ
        CJNE  A,#3,JPXZDJ        ;低音3个键及以上为够键
JPXZDJ:
        JC    JPXZ3
        ;低音够键
        MOV   A,JSQGJ
        CJNE  A,#3,JPXZGJ        ;高音3个键及以上为够键
JPXZGJ:
        JC    JPXZ3
        ;高音也够键
        LCALL XZ                 ;修正
        LJMP  JPXZE
JPXZ3:
        ;少键
        DEC   XZJSQ
        MOV   A,XZJSQ
        JNZ   JPXZ1
JPXZE:
        LCALL XZTCCL             ;退出处理
        RET
;********************************
;       退出处理
;********************************
 XZTCCL:
        RET
;********************************
;       修正
;********************************
XZ:
        LCALL FWY
        LJMP  XZ
        RET
;********************************