¼

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

;********************************
;       录音1组下处理
;********************************
;入口:  A=变化键  1=变化     栈顶
;       B=键状态  0=过
;--------------------------------
;功能:  键盘下标志=0/1
;       键回标志=0
;       发音处理
;--------------------------------
        PROC  LY1XCL
LY1XCL:;1号键
        JNB   ACC.0,LY1XCL0   ;键未动
        JNB   B.0,$+14        ;3字节
        ORL   JP1X,#00000001B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP1X,#11111110B ;3字节
        JNB   JP1H.0,LY1XCL0
        CLR   JP1H.0
        MOV   JXH,#21         ;键序号
        MOV   DPTR,#100H      ;时间地址
        LCALL FYCL            ;发音处理
LY1XCL0:;2号键
        JNB   ACC.1,LY1XCL1   ;键未动
        JNB   B.1,$+14        ;3字节
        ORL   JP1X,#00000010B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP1X,#11111101B ;3字节
        JNB   JP1H.1,LY1XCL1
        CLR   JP1H.1
        MOV   JXH,#22         ;键序号
        MOV   DPTR,#104H      ;时间地址
        LCALL FYCL            ;发音处理
LY1XCL1:;3号键
        JNB   ACC.2,LY1XCL2   ;键未动
        JNB   B.2,$+14        ;3字节
        ORL   JP1X,#00000100B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP1X,#11111011B ;3字节
        JNB   JP1H.2,LY1XCL2
        CLR   JP1H.2
        MOV   JXH,#23         ;键序号
        MOV   DPTR,#108H      ;时间地址
        LCALL FYCL            ;发音处理
LY1XCL2:;4号键
        JNB   ACC.3,LY1XCL3   ;键未动
        JNB   B.3,$+14        ;3字节
        ORL   JP1X,#00001000B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP1X,#11110111B ;3字节
        JNB   JP1H.3,LY1XCL3
        CLR   JP1H.3
        MOV   JXH,#24         ;键序号
        MOV   DPTR,#10CH      ;时间地址
        LCALL FYCL            ;发音处理
LY1XCL3:;5号键
        JNB   ACC.4,LY1XCL4   ;键未动
        JNB   B.4,$+14        ;3字节
        ORL   JP1X,#00010000B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP1X,#11101111B ;3字节
        JNB   JP1H.4,LY1XCL4
        CLR   JP1H.4
        MOV   JXH,#25         ;键序号
        MOV   DPTR,#110H      ;时间地址
        LCALL FYCL            ;发音处理
LY1XCL4:;6号键
        JNB   ACC.5,LY1XCL5   ;键未动
        JNB   B.5,$+14        ;3字节
        ORL   JP1X,#00100000B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP1X,#11011111B ;3字节
        JNB   JP1H.5,LY1XCL5
        CLR   JP1H.5
        MOV   JXH,#26         ;键序号
        MOV   DPTR,#114H      ;时间地址
        LCALL FYCL            ;发音处理
LY1XCL5:;7号键
        JNB   ACC.6,LY1XCL6   ;键未动
        JNB   B.6,$+14        ;3字节
        ORL   JP1X,#01000000B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP1X,#10111111B ;3字节
        JNB   JP1H.6,LY1XCL6
        CLR   JP1H.6
        MOV   JXH,#27         ;键序号
        MOV   DPTR,#118H      ;时间地址
        LCALL FYCL            ;发音处理
LY1XCL6:;8号键
        JNB   ACC.7,LY1XCL7   ;键未动
        JNB   B.7,$+14        ;3字节
        ORL   JP1X,#10000000B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP1X,#01111111B ;3字节
        JNB   JP1H.7,LY1XCL7
        CLR   JP1H.7
        MOV   JXH,#28         ;键序号
        MOV   DPTR,#11CH      ;时间地址
        LCALL FYCL            ;发音处理
LY1XCL7:
        RET
        include "软件陷阱.asm"
        END
;********************************