¼

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

;********************************
;       录音处理(键盘修正)
;********************************
LYCLJPXZ:
        ;清零计数器
        MOV   R0,#JSQ1D
        MOV   R1,#JSQ1G
        MOV   R7,#8
LYCLJPXZ0:
        MOV   @R0,#0
        MOV   @R1,#0
        INC   R0
        INC   R1
        DJNZ  R7,LYCLJPXZ0
        ;计数器清零完毕
        MOV   R7,#255
LYCLJPXZ1:
        LCALL JPSM         ;键盘扫描(DYJP,GYJP)
LYCLJPXZ2:
        MOV   R0,#JSQ1D
        MOV   R2,#1
        MOV   R6,#8
LYCLJPXZ3:
        MOV   A,DYJP
        ANL   A,R2
        JNZ   LYCLJPXZ4
        ;有压键
        INC   @R0
LYCLJPXZ4:
        MOV   A,R2
        RL    A
        MOV   R2,A
        INC   R0
        DJNZ  R6,LYCLJPXZ3
        ;--------------
LYCLJPXZ5:
        MOV   R1,#JSQ1G
        MOV   R2,#1
        MOV   R6,#8
LYCLJPXZ6:
        MOV   A,GYJP
        ANL   A,R2
        JNZ   LYCLJPXZ7
        ;有压键
        INC   @R1
LYCLJPXZ7:
        MOV   A,R2
        RL    A
        MOV   R2,A
        INC   R1
        DJNZ  R6,LYCLJPXZ6
        DJNZ  R7,LYCLJPXZ1
        LCALL JPTJ              ;键盘统计
        RET
;********************************