bujindianji.txt

步进电机的程序 用８０５１编程

;****************************************
               ;P1.4,P1.5,P1.6,P1.7分别接电机模块的A,B,C,D
               ;****************************************  
               CSEG AT 4000H
               LJMP START
               CSEG AT 4100H
               
               
START:
               MOV P1,#10010000B  ;p1口先置DA相通电信号为A通电走一步作准备
               ;**************************
               ;R1,R2确定所走的步数
               ;**************************
               
               MOV R1,#32        ;读数转动32格
START1:        MOV R2,#08       ;8个循环共走64步，读数转动一格
START2:        MOV A,#00010000B  ;A通电走一步
               MOV P1,A
               ACALL DELAY
    

               MOV A,#00110000B  ;AB通电走一步
               MOV P1,A
               ACALL DELAY
      

               MOV A,#00100000B  ;B通电走一步  
               MOV P1,A
               ACALL DELAY
     

               MOV A,#01100000B  ;BC通电走一步
               MOV P1,A
               ACALL DELAY
      

               MOV A,#01000000B  ;C通电走一步
               MOV P1,A
               ACALL DELAY
    

               MOV A,#11000000B   ;CD通电走一步
               MOV P1,A
               ACALL DELAY
     

               MOV A,#10000000B   ;D通电走一步
               MOV P1,A
               ACALL DELAY
      

               MOV A,#10010000B   ;DA通电走一步
               MOV P1,A
               ACALL DELAY
               ;***************************************************************
               DJNZ R2,START2  
               DJNZ R1,START1
               SJMP STOP
               ;***************************************************************
                                                           ;改变延时调节速度
DELAY:         MOV  TMOD,#01010001B;定时器0定时1方式,定时器1计数1方式       
               MOV  TH0,#0EEH      ;写入定时常数    
               MOV  TL0,#30H                               
               SETB TR0            ;开始定时
               JNB  TF0,$          ;等待定时时间到
               CLR  TF0       
               RET 
               ;*************************************************************** 
STOP:          NOP         
               END