text1.asm

单片机控制步进电机的Keil、C51、Proteus仿真

      ORG 0
      NOP
      CALL DLY
STOP: ORL P2,#0FFH
LOOP: JNB P1.0,FOR2
      JNB P1.1,REV2
      JNB P1.2,STP1
      JMP LOOP
FOR:  MOV R0,#0
FOR1: MOV A,R0
      MOV DPTR,#TAB
      MOVC A,@A+DPTR
      JZ FOR 
      MOV P2,A
      JNB P1.2,STP1
      JNB P1.1,REV2
      ACALL DLY
      INC R0
      JMP FOR1
REV:  MOV R0,#5
REV1: MOV A,R0
      MOV DPTR,#TAB
      MOVC A,@A+DPTR
      JZ REV 
      MOV P2,A
      JNB P1.2,STP1
      JNB P1.0,FOR2
      ACALL DLY
      INC R0
      JMP REV1
STP1: ACALL DLY
      JNB P1.2,$
      ACALL DLY
      JMP STOP
FOR2: ACALL DLY
      JNB P1.0,$
      ACALL DLY
      JMP FOR 
REV2: ACALL DLY 
      JNB P1.1,$
      ACALL DLY
      JMP REV
DLY:  MOV R1,#20
D1:   MOV R2,#248
      DJNZ R2,$
      DJNZ R1,D1
      RET
TAB:  DB 3,6,0CH,9
      DB 0 
      DB 3,9,0CH,6
      DB 0
      END