th38.asm

来自「请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都」· 汇编 代码 · 共 70 行

; step motor control
; 步进电机

Astep  equ 01h
Bstep  equ 02h
Cstep  equ 04h
Dstep  equ 08h
 ctl   equ 10h
dly_c  equ 60h

       org 0h

step:
      mov dly_c,#10H
      ljmp   loop

; 单/双八拍工作方式
loop:

      mov   a,#Astep                ;A
      cpl   a
      mov   p2,a
      ACALL  delay
      mov   a,#Astep+Bstep          ;A+B
      cpl   a
      mov   p2,a
      ACALL  delay
      mov   a,#Bstep                ;B
      cpl   a
      mov   p2,a
      ACALL  delay
      mov   a,#Bstep+Cstep          ;B+C
      cpl   a
      mov   p2,a
      ACALL  delay
      mov   a,#Cstep                ;C
      cpl   a
      mov   p2,a
      ACALL  delay
      mov   a,#Cstep+Dstep          ;C+D
      cpl   a
      mov   p2,a
      ACALL  delay
      mov   a,#Dstep                ;D
      cpl   a
      mov   p2,a
      ACALL  delay
      mov   a,#Dstep+Astep          ;D+A
      cpl   a
      mov   p2,a
      ACALL  delay
      mov   a, dly_c
      dec   a                   ; 提高转速
      cjne  a,#1, nn1           ; 最快速度
      inc   a
nn1:  mov   dly_c,a
      ljmp  Loop

delay:
      mov  r6,dly_c
dd1:  MOV  R5,68H
DD2:  mov  r7,#0ffh
DD3:  djnz r7,DD3
      djnz r5,dd2
      DJNZ R6,DD1
      ret


      end