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

;********************************
;       脚踏板下程序片断
;********************************
JTBX:
        MOV   C,VK89             ;脚踏板状态
        JC    JTBX1              
        ;-----脚踏板=0------------
        JNB   BZ_JTBX,JTBX_END   ;脚踏板变化?
        ;脚踏板有变化:
        CLR   BZ_JTBX            ;脚踏板下标志,0=踏下
        LJMP  JTBX2
        include "软件陷阱.asm" 
JTBX1:  ;-----脚踏板=1------------
        JB    BZ_JTBX,JTBX_END   ;脚踏板变化?
        ;脚踏板有变化:
        SETB  BZ_JTBX            ;脚踏板下标志,1=没踏下
JTBX2:
        JNB   BZ_JTBH,JTBX_END   ;脚踏板回过位?
        ;脚踏板回过位:
        CLR   BZ_JTBH            ;0=未回位
        LCALL FYJTBCL            ;发音脚踏板处理
JTBX_END:
;********************************