¼

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

;********************************
;       录音10组上处理
;********************************
;入口:  A=变化键  1=变化     栈顶
;       B=键状态  0=过
;--------------------------------
;功能:  键盘上标志=0/1
;       计录时间
;       键回标志=1
;       收音处理
;--------------------------------
        PROC  LY10SCL
LY10SCL:;73号键
        JNB   ACC.0,LY10SCL0   ;键未动
        JNB   B.0,$+14         ;3字节
        ORL   JP10S,#00000001B ;3字节
        LJMP  $+11             ;3字节
        include "软件陷阱.asm" ;5字节
        ANL   JP10S,#11111110B ;3字节
        MOV   DPTR,#220H       ;时间地址
        LCALL JLSJCL           ;计录时间处理
        JB    JP10H.0,LY10SCL0 ;键回标志
        SETB  JP10H.0
        MOV   JXH,#93          ;键序号
        LCALL SYCL             ;收音处理
LY10SCL0:;74号键
        JNB   ACC.1,LY10SCL1   ;键未动
        JNB   B.1,$+14         ;3字节
        ORL   JP10S,#00000010B ;3字节
        LJMP  $+11             ;3字节
        include "软件陷阱.asm" ;5字节
        ANL   JP10S,#11111101B ;3字节
        MOV   DPTR,#224H       ;时间地址
        LCALL JLSJCL           ;计录时间处理
        JB    JP10H.1,LY10SCL1 ;键回标志
        SETB  JP10H.1
        MOV   JXH,#94          ;键序号
        LCALL SYCL             ;收音处理
LY10SCL1:;75号键
        JNB   ACC.2,LY10SCL2   ;键未动
        JNB   B.2,$+14         ;3字节
        ORL   JP10S,#00000100B ;3字节
        LJMP  $+11             ;3字节
        include "软件陷阱.asm" ;5字节
        ANL   JP10S,#11111011B ;3字节
        MOV   DPTR,#228H       ;时间地址
        LCALL JLSJCL           ;计录时间处理
        JB    JP10H.2,LY10SCL2 ;键回标志
        SETB  JP10H.2
        MOV   JXH,#95          ;键序号
        LCALL SYCL             ;收音处理
LY10SCL2:;76号键
        JNB   ACC.3,LY10SCL3   ;键未动
        JNB   B.3,$+14         ;3字节
        ORL   JP10S,#00001000B ;3字节
        LJMP  $+11             ;3字节
        include "软件陷阱.asm" ;5字节
        ANL   JP10S,#11110111B ;3字节
        MOV   DPTR,#22CH       ;时间地址
        LCALL JLSJCL           ;计录时间处理
        JB    JP10H.3,LY10SCL3 ;键回标志
        SETB  JP10H.3
        MOV   JXH,#96          ;键序号
        LCALL SYCL             ;收音处理
LY10SCL3:;77号键
        JNB   ACC.4,LY10SCL4   ;键未动
        JNB   B.4,$+14         ;3字节
        ORL   JP10S,#00010000B ;3字节
        LJMP  $+11             ;3字节
        include "软件陷阱.asm" ;5字节
        ANL   JP10S,#11101111B ;3字节
        MOV   DPTR,#230H       ;时间地址
        LCALL JLSJCL           ;计录时间处理
        JB    JP10H.4,LY10SCL4 ;键回标志
        SETB  JP10H.4
        MOV   JXH,#97          ;键序号
        LCALL SYCL             ;收音处理
LY10SCL4:;78号键
        JNB   ACC.5,LY10SCL5   ;键未动
        JNB   B.5,$+14         ;3字节
        ORL   JP10S,#00100000B ;3字节
        LJMP  $+11             ;3字节
        include "软件陷阱.asm" ;5字节
        ANL   JP10S,#11011111B ;3字节
        MOV   DPTR,#234H       ;时间地址
        LCALL JLSJCL           ;计录时间处理
        JB    JP10H.5,LY10SCL5 ;键回标志
        SETB  JP10H.5
        MOV   JXH,#98          ;键序号
        LCALL SYCL             ;收音处理
LY10SCL5:;79号键
        JNB   ACC.6,LY10SCL6   ;键未动
        JNB   B.6,$+14         ;3字节
        ORL   JP10S,#01000000B ;3字节
        LJMP  $+11             ;3字节
        include "软件陷阱.asm" ;5字节
        ANL   JP10S,#10111111B ;3字节
        MOV   DPTR,#238H       ;时间地址
        LCALL JLSJCL           ;计录时间处理
        JB    JP10H.6,LY10SCL6 ;键回标志
        SETB  JP10H.6
        MOV   JXH,#99          ;键序号
        LCALL SYCL             ;收音处理
LY10SCL6:;80号键
        JNB   ACC.7,LY10SCL7   ;键未动
        JNB   B.7,$+14         ;3字节
        ORL   JP10S,#10000000B ;3字节
        LJMP  $+11             ;3字节
        include "软件陷阱.asm" ;5字节
        ANL   JP10S,#01111111B ;3字节
        MOV   DPTR,#23CH       ;时间地址
        LCALL JLSJCL           ;计录时间处理
        JB    JP10H.7,LY10SCL7 ;键回标志
        SETB  JP10H.7
        MOV   JXH,#100         ;键序号
        LCALL SYCL             ;收音处理
LY10SCL7:
        RET
        include "软件陷阱.asm"
        END
;********************************