djfj.asm

步进电机调速proteus仿真

ORG  0H
        MOV SP,#60H
START:  JB P3.0,$
        JB     P3.1,REV
		ANL P1,#11110000B
FOR:    CLR    P1.3
         SETB P1.0
		 ACALL SPEED
		 CLR    P1.0
         SETB P1.1
		 ACALL SPEED
		 CLR    P1.1
         SETB P1.2
		 ACALL SPEED
		 CLR    P1.2
         SETB P1.3
		 ACALL SPEED
		 AJMP START
REV:     CLR P1.0
          SETB P1.3
		  ACALL SPEED
		  CLR P1.3
          SETB P1.2
		  ACALL SPEED
		  CLR P1.2
          SETB P1.1
		  ACALL SPEED
		  CLR P1.1
          SETB P1.0
		  ACALL SPEED
SPEED:    MOV A,P2
          ANL A,#0FH
		  MOV R7,A
X2:       MOV R6,#20H
X1:       MOV R5,#90H
          DJNZ R5,$
		  DJNZ R6,X1
		  DJNZ R7,X2
		  RET
		  END