power3

一个不错的电机驱动系统程序 有加速

;调速OK
;中断OK




         DE_IC7  EQU  P1.3  ;定时脉冲 
         DE_0    EQU  P1.0  ;定时触发
         IR      equ  p1.6  ;脉冲IN
         out     equ  p1.7  ;脉冲OUT

         ORG         0000H
         AJMP        MAIN
         ORG         0003H         ;程序从00F0H开始执行
         AJMP        WAIT1    
         ORG         0040H

         
       
 MAIN:   clr   p3.4
         mov   r2, #00h              ; 记数器
         setb     out                ; 初始化
         setb     IR    
         SETB     DE_0
         setb     DE_IC7
;中断设置******************
         CLR        IT0
	 SETB        EX0
	 SETB        EA
LED :
    NOP 
    NOP 
    AJMP    LED


;中短开始*********************
 WAIT1: 
         JB    IR, WAIT1            ;脉冲起动等待INT0变低

         CLR    DE_0
         ACALL   DELAY2
         SETB   DE_0


s0 :     inc r2                       ; 记数器加1
         JB DE_IC7, s0                 ;等待3424定时脉冲  [低电频]


S1:      JB  IR, S3                   ;查还有没触发脉冲
S2:      clr  out                     ;输出信号  ,起动 
         jmp  s1

S3:    	 setb    out                  ;关闭 out 
        
         RETI

;------------DELAY-------------------------------


DELAY2:  MOV  R0,#03H
D0:      MOV  R1,#00H
D1:      DJNZ R1,D1
         DJNZ R0,D0
         RET
         END