¼

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

;********************************
;       录音7组上处理
;********************************
;入口:  A=变化键  1=变化     栈顶
;       B=键状态  0=过
;--------------------------------
;功能:  键盘上标志=0/1
;       计录时间
;       键回标志=1
;       收音处理
;--------------------------------
        PROC  LY7SCL
LY7SCL:;49号键
        JNB   ACC.0,LY7SCL0   ;键未动
        JNB   B.0,$+14        ;3字节
        ORL   JP7S,#00000001B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP7S,#11111110B ;3字节
        MOV   DPTR,#1C0H      ;时间地址
        LCALL JLSJCL          ;计录时间处理
        JB    JP7H.0,LY7SCL0  ;键回标志
        SETB  JP7H.0
        MOV   JXH,#69         ;键序号
        LCALL SYCL            ;收音处理
LY7SCL0:;50号键
        JNB   ACC.1,LY7SCL1   ;键未动
        JNB   B.1,$+14        ;3字节
        ORL   JP7S,#00000010B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP7S,#11111101B ;3字节
        MOV   DPTR,#1C4H      ;时间地址
        LCALL JLSJCL          ;计录时间处理
        JB    JP7H.1,LY7SCL1  ;键回标志
        SETB  JP7H.1
        MOV   JXH,#70         ;键序号
        LCALL SYCL            ;收音处理
LY7SCL1:;51号键
        JNB   ACC.2,LY7SCL2   ;键未动
        JNB   B.2,$+14        ;3字节
        ORL   JP7S,#00000100B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP7S,#11111011B ;3字节
        MOV   DPTR,#1C8H      ;时间地址
        LCALL JLSJCL          ;计录时间处理
        JB    JP7H.2,LY7SCL2  ;键回标志
        SETB  JP7H.2
        MOV   JXH,#71         ;键序号
        LCALL SYCL            ;收音处理
LY7SCL2:;52号键
        JNB   ACC.3,LY7SCL3   ;键未动
        JNB   B.3,$+14        ;3字节
        ORL   JP7S,#00001000B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP7S,#11110111B ;3字节
        MOV   DPTR,#1CCH      ;时间地址
        LCALL JLSJCL          ;计录时间处理
        JB    JP7H.3,LY7SCL3  ;键回标志
        SETB  JP7H.3
        MOV   JXH,#72         ;键序号
        LCALL SYCL            ;收音处理
LY7SCL3:;53号键
        JNB   ACC.4,LY7SCL4   ;键未动
        JNB   B.4,$+14        ;3字节
        ORL   JP7S,#00010000B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP7S,#11101111B ;3字节
        MOV   DPTR,#1D0H      ;时间地址
        LCALL JLSJCL          ;计录时间处理
        JB    JP7H.4,LY7SCL4  ;键回标志
        SETB  JP7H.4
        MOV   JXH,#73         ;键序号
        LCALL SYCL            ;收音处理
LY7SCL4:;54号键
        JNB   ACC.5,LY7SCL5   ;键未动
        JNB   B.5,$+14        ;3字节
        ORL   JP7S,#00100000B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP7S,#11011111B ;3字节
        MOV   DPTR,#1D4H      ;时间地址
        LCALL JLSJCL          ;计录时间处理
        JB    JP7H.5,LY7SCL5  ;键回标志
        SETB  JP7H.5
        MOV   JXH,#74         ;键序号
        LCALL SYCL            ;收音处理
LY7SCL5:;55号键
        JNB   ACC.6,LY7SCL6   ;键未动
        JNB   B.6,$+14        ;3字节
        ORL   JP7S,#01000000B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP7S,#10111111B ;3字节
        MOV   DPTR,#1D8H      ;时间地址
        LCALL JLSJCL          ;计录时间处理
        JB    JP7H.6,LY7SCL6  ;键回标志
        SETB  JP7H.6
        MOV   JXH,#75         ;键序号
        LCALL SYCL            ;收音处理
LY7SCL6:;56号键
        JNB   ACC.7,LY7SCL7   ;键未动
        JNB   B.7,$+14        ;3字节
        ORL   JP7S,#10000000B ;3字节
        LJMP  $+11            ;3字节
        include "软件陷阱.asm";5字节
        ANL   JP7S,#01111111B ;3字节
        MOV   DPTR,#1DCH      ;时间地址
        LCALL JLSJCL          ;计录时间处理
        JB    JP7H.7,LY7SCL7  ;键回标志
        SETB  JP7H.7
        MOV   JXH,#76         ;键序号
        LCALL SYCL            ;收音处理
LY7SCL7:
        RET
        include "软件陷阱.asm"
        END
;********************************