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

;********************************
;       第2板1组下程序片断
;********************************
D2B1ZX:
        ;     采样:
        SETB  YX373              ;禁止板输出(组输出被禁止)
        MOV   P2,#11101111B      ;第1组允许位
        SETB  CS2                ;输入第2板
        CLR   CS2                ;锁存第2板
        MOV   P2,#0FFH           ;输入状态
        CLR   YX373              ;允许板输出(选中组输出允许)
        MOV   B,P2               ;采样下比较点键状态
        ;     处理琴键:
        MOV   A,JP5X             ;前次下标志
        XRL   A,B                ;键变化?
        JZ    D2B1ZX_END         ;没变
        ;     琴键有变化:
        LCALL LY5XCL             ;录音5下处理
D2B1ZX_END:
;********************************