power.asm

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

         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         0F0H           ;程序从00F0H开始执行

 MAIN:  clr   p3.4
         mov r2,#00h              ;  记数器
         setb    out                ;初始化
         setb    IR    
         SETB    DE_0
         CLR     DE_IC7


;中短开始*********************


 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 
         AJMP    WAIT1
         RET

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


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

     END