text1.asm

双 极 2 相 步 进 电 机 驱 动

;K1驱动步进电机顺时针转动,K2驱动步进电机逆时针转动
 org  000h
 ajmp  aa
 org  010h
;马达正转
aa:
 mov  20h,#250
; JB  P3.6,Bb  ;如果Ｐ３．６为1则转到Ｂｂ如果为0则顺序执行
a1:
 mov  r0,#15
loop1:
 mov  p1,#00110011b
 acall  delay
 mov  p1,#11000011b
 acall  delay
 mov  p1,#11001100b
 acall  delay
 mov  p1,#00111100b
 acall  delay
 djnz  r0,loop1
 mov  a,20h
 cjne  a,#30,l1 ;不相等，就转移
 ajmp  l3
l1: dec  20h
l3:
 JB  P3.6,Bb
 jmp  a1
Bb: JB  P3.7,aa
a2:
 mov  r0,#15
loop2:
 mov  p1,#00111100b
 acall  delay
 mov  p1,#11001100b
 acall  delay
 mov  p1,#11000011b
 acall  delay
 mov  p1,#00110011b
 acall  delay
 djnz  r0,loop2
 mov  a,20h
 cjne  a,#30,l2 ;不相等，就转移
 ajmp  l4
l2: dec  20h
l4:
 JB  P3.7,bb
 jmp  a2
 ret
delay:
 mov  r6,#10
d1: mov  r7,20h
d2: djnz  r7,d2
 djnz  r6,d1
 ret
 end