使用8051弹片机做的步进电机程序,运用了中断等.

ORG 0001H
LJMP MAIN
ORG 8000H
MAIN:MOV R2,#06H
MOV SP,#60H
MOV R0,#39H
LOOP:MOV @R0,#1AH
INC R0
DJNZ R2,LOOP
SETB PSW.3
MOV A,#01H
CLR PSW.3
MOV 40H,A
MOV 3DH,A
SETB PSW.3
MOV A,#02H
CLR PSW.3
MOV 41H,A
MOV 3EH,A
MOV 32H,#34H
MOV 33H,#08H
MOV R1,#00H
STRT:MOV A,32H
JZ GAO
GAO:MOV A,33H
JZ SCRN
MOV A,3EH
CJNE A,#00H,ABC
MOV DPTR,#TAB2
AJMP NEXT
ABC:MOV DPTR,#TAB1
NEXT:MOV A,R1
CJNE A,#04H,CHK
MOV R1,#00H
CHK:MOV A,R1
MOVC A,@A+DPTR
MOV P1,A
INC R1
DLY:MOV R3,40H
PUSH ACC
SETB PSW.3
LEA:SETB 64H
CLR PSW.3
POP ACC
DJNZ R3,LEA
JIAN:MOV A,32H
JZ GAO2
AJMP NCY
GAO2:DEC 33H
NCY:DEC 32H
LCALL HB2
PUSH ACC
SETB PSW.3
SCRN:SETB 64H
CLR PSW.3
POP ACC
LJMP STRT
HB2:MOV R7,32H
MOV R6,33H
CLR A
MOV R3,A
MOV R4,A
MOV R5,A
MOV R2,#10H
HB3:MOV A,R7
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R5
ADDC A,R5
DA A
MOV R5,A
MOV A,R4
ADDC A,R4
DA A
MOV R4,A
MOV A,R3
ADDC A,R3
MOV R3,A
DJNZ R2,HB3
MOV A,R5
ANL A,#0FH
MOV 39H,A
MOV A,R5
ANL A,#0F0H
SWAP A
MOV 3AH,A
MOV A,R4
ANL A,#0FH
MOV 3BH,A
MOV A,R4
ANL A,#0F0H
SWAP A
MOV 3CH,A
RET
TAB1:DB 5FH,9FH,0AFH,6FH
TAB2:DB 6FH,0AFH,9FH,5FH
END