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

;********************************
;       键盘扫描
;********************************
JPSM:
        ;第1板1组----------------
        SETB  YX373              ;禁止板输出(组输出被禁止)
        MOV   P2,#11101111B      ;第1组允许位
        SETB  CS1                ;输入第1板
        CLR   CS1                ;锁存第1板
        MOV   P2,#0FFH           ;输入状态
        CLR   YX373              ;允许板输出(选中组输出允许)
        MOV   DYJP,P2            ;采样低音键状态!
        SETB  YX373              ;禁止板输出,组被禁止
        MOV   P2,#0FFH           ;OE1_4/OE1_3/OE1_2/OE1_1/CP1_4/CP1_3/CP1_2/CP1_1
        SETB  CS1                ;第1板输入
        CLR   CS1                ;第1板锁存
        ;第3板3组----------------
        MOV   P1,#00011111B      ;第3组允许位
        MOV   GYJP,P2            ;采样高音键状态!
        MOV   P1,#00111111B      ;禁止第3板输出
                                 ;CS2/CS1/OE3_3/OE3_2/OE3_1/CP3_3/CP3_2/CP3_1
        ;------------------------
        RET
;********************************