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

;********************************
;       键盘统计
;********************************
JPTJ:
        MOV   R0,#JSQ1D
        MOV   R2,#00000001B
        MOV   R3,#11111110B
        MOV   R7,#8
JPTJ1:
        MOV   A,@R0
        CJNE  A,#80H,JPTJ2
JPTJ2:
        JC    JPTJ3
        ;有键
        MOV   A,R2
        ORL   A,DYJP        ;低音键盘
        MOV   DYJP,A
        LJMP  JPTJ4
JPTJ3:
        ;无键
        MOV   A,R3
        ANL   A,DYJP
        MOV   DYJP,A
JPTJ4:
        MOV   A,R2
        RL    A
        MOV   R2,A
        MOV   A,R3
        RL    A
        MOV   R3,A
        INC   R0
        DJNZ  R7,JPTJ1
        ;------------
        MOV   JSQDJ,#0
        MOV   R2,#00000001B
        MOV   R7,#8
JPTJ5:
        MOV   A,DYJP
        ANL   A,R2
        JZ    JPTJ6
        ;有键
        INC   JSQDJ         ;低音键数量计数器
JPTJ6:
        DJNZ  R7,JPTJ5
        ;-----------------------
        MOV   R0,#JSQ1G
        MOV   R2,#00000001B
        MOV   R3,#11111110B
        MOV   R7,#8
JPTJ1A:
        MOV   A,@R0
        CJNE  A,#80H,JPTJ2A
JPTJ2A:
        JC    JPTJ3A
        ;有键
        MOV   A,R2
        ORL   A,GYJP
        MOV   GYJP,A
        LJMP  JPTJ4A
JPTJ3A:
        ;无键
        MOV   A,R3
        ANL   A,GYJP
        MOV   GYJP,A
JPTJ4A:
        MOV   A,R2
        RL    A
        MOV   R2,A
        MOV   A,R3
        RL    A
        MOV   R3,A
        INC   R0
        DJNZ  R7,JPTJ1A
        ;------------
        MOV   JSQGJ,#0
        MOV   R2,#00000001B
        MOV   R7,#8
JPTJ5A:
        MOV   A,GYJP
        ANL   A,R2
        JZ    JPTJ6A
        ;有键
        INC   JSQGJ             ;高音键数量计数器
JPTJ6A:
        DJNZ  R7,JPTJ5A
        RET
;********************************