test3.asm

双 极 2 相 步 进 电 机 驱 动

 ;步进电机驱动程序
org  000h
 ajmp  aa
 org  010h

aa:
 mov  20h,#250
 mov r0,#5
 
loop1:
 mov  p1,#00110000b
 acall  delay 
  mov  p1,#00001100b
 acall  delay
 mov  p1,#00000011b
 acall  delay
mov  p1,#11000000b
 acall  delay

  dec r0
 
cjne r0,#1,loop1
;mov p1,#0
acall d5
acall d5
acall d5
acall d5
acall d5
acall d5
 ajmp aa
delay:
 mov  r6,#15
d0:mov r2 ,#2
d1: mov  r7,20h
d6: djnz  r7,d6
d2: djnz  r2,d1
 djnz  r6,d0
 ret

d5:
    mov  r5,#250
d3: mov  r4,#250
d4: djnz  r4,d4
 djnz  r5,d3 
ret
nop
 end