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

;********************************
;       发送处理
;********************************
        PROC  FSCL
FSCL:
        PUSH  PSW
        PUSH  ACC
        MOV   A,R1
        PUSH  ACC
        ;--------
        CLR   ES
        JNB   BZ_TXD,FSCLE     ;发送标志,0=有(不需起动发送,中断会连续发送)
        JNB   BZ_FSWB,FSCL1    ;发送完毕标志,0=没完(不需起动发送,中断会连续发送)
        MOV   R1,TXD_OUT
        MOVX  A,@R1
        MOV   SBUF,A           ;起动发送
        ;-----力度修改---------
        JB    BZ_QDXZ,FSCL_B   ;启动修正标志,1=不起动
        JB    BZ_FSSJ,FSCL_B   ;发送数据标志,1=不需处理
        CJNE  A,#0B0H,FSCL_A
        MOV   SFSJML,#3        ;准备接收踏板第2位
        LJMP  FSCL_B
        include "软件陷阱.asm"
FSCL_A:
        MOV  SFSJML,#1         ;准备接收键号
FSCL_B:
        ;----------------------
        INC   TXD_OUT
        ANL   TXD_OUT,#01111111B
        MOV   A,TXD_OUT
        CJNE  A,TXD_IN,FSCL1
        SETB  BZ_TXD           ;发送标志,1=无
        LJMP  FSCLE
        include "软件陷阱.asm"
FSCL1:
        CLR   BZ_TXD           ;发送标志,0=有
FSCLE:
        SETB  ES
        SETB  BZ_XFS           ;需发送标志,1=不需
        ;---------
        POP   ACC
        MOV   R1,A
        POP   ACC
        POP   PSW
        RET
        include "软件陷阱.asm"
        END
;********************************