¼

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

;########################################################
;********************************
;       录音处理
;********************************
LYCL:
        ;采样上点:
        MOV   P0,VA              ;上比较点
        ;-----延时:
        NOP
        NOP
        NOP
        NOP
        ;----温州延时1-----------
        ;MOV   R7,#25
        ;DJNZ  R7,$
        ;-----第1板--------------
        include "第1板1组上程序片断.asm"
        include "第1板2组上程序片断.asm"
        include "第1板3组上程序片断.asm"
        include "第1板4组上程序片断.asm"
        SETB  YX373              ;禁止板输出,组被禁止
        MOV   P2,#0FFH           ;OE1_4/OE1_3/OE1_2/OE1_1/CP1_4/CP1_3/CP1_2/CP1_1
        SETB  CS1                ;第1板输入
        CLR   CS1                ;第1板锁存
        ;-----第2板--------------
        include "第2板1组上程序片断.asm"
        include "第2板2组上程序片断.asm"
        include "第2板3组上程序片断.asm"
        include "第2板4组上程序片断.asm"
        SETB  YX373              ;禁止板输出,组被禁止
        MOV   P2,#0FFH           ;OE2_4/OE2_3/OE2_2/OE2_1/CP2_4/CP2_3/CP2_2/CP2_1
        SETB  CS2                ;第2板输入
        CLR   CS2                ;第2板锁存
        ;-----第3板--------------
        include "第3板1组上程序片断.asm"
        include "第3板2组上程序片断.asm"
        include "第3板3组上程序片断.asm"
        MOV   P1,#00111111B      ;禁止第3板输出
                                 ;CS2/CS1/OE3_3/OE3_2/OE3_1/CP3_3/CP3_2/CP3_1
        ;-----脚踏板-------------
        include "脚踏板上程序片断.asm"
        ;+++++++++++++++++++++++++++++++++++++
        ;采样下点:
        MOV   P0,VB              ;下比较点
        ;-----延时:
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        ;----温州延时2-----------
        ;MOV   R7,#25
        ;DJNZ  R7,$
        ;-----第1板--------------
        include "第1板1组下程序片断.asm"
        include "第1板2组下程序片断.asm"
        include "第1板3组下程序片断.asm"
        include "第1板4组下程序片断.asm"
        SETB  YX373              ;禁止板输出,组被禁止
        MOV   P2,#0FFH           ;OE1_4/OE1_3/OE1_2/OE1_1/CP1_4/CP1_3/CP1_2/CP1_1
        SETB  CS1                ;第1板输入
        CLR   CS1                ;第1板锁存
        ;-----第2板--------------
        include "第2板1组下程序片断.asm"
        include "第2板2组下程序片断.asm"
        include "第2板3组下程序片断.asm"
        include "第2板4组下程序片断.asm"
        SETB  YX373              ;禁止板输出,组被禁止
        MOV   P2,#0FFH           ;OE2_4/OE2_3/OE2_2/OE2_1/CP2_4/CP2_3/CP2_2/CP2_1
        SETB  CS2                ;第2板输入
        CLR   CS2                ;第2板锁存
        ;-----第3板--------------
        include "第3板1组下程序片断.asm"
        include "第3板2组下程序片断.asm"
        include "第3板3组下程序片断.asm"
        MOV   P1,#00111111B      ;禁止第3板输出
                                 ;CS2/CS1/OE3_3/OE3_2/OE3_1/CP3_3/CP3_2/CP3_1
        ;-----脚踏板-------------
        include "脚踏板下程序片断.asm"
        ;+++++处理完++++++++++++++++++++++++++
        RET
        include "软件陷阱.asm"
;********************************
        include "录音1组上处理.asm"
        include "录音2组上处理.asm"
        include "录音3组上处理.asm"
        include "录音4组上处理.asm"
        include "录音5组上处理.asm"
        include "录音6组上处理.asm"
        include "录音7组上处理.asm"
        include "录音8组上处理.asm"
        include "录音9组上处理.asm"
        include "录音10组上处理.asm"
        include "录音11组上处理.asm"
        include "计录时间处理.asm"
        include "收音处理.asm"
        ;------------------------
        include "录音1组下处理.asm"
        include "录音2组下处理.asm"
        include "录音3组下处理.asm"
        include "录音4组下处理.asm"
        include "录音5组下处理.asm"
        include "录音6组下处理.asm"
        include "录音7组下处理.asm"
        include "录音8组下处理.asm"
        include "录音9组下处理.asm"
        include "录音10组下处理.asm"
        include "录音11组下处理.asm"
        include "时间音量处理.asm"
        include "发音处理.asm"
;########################################################