Page 200 -
P. 200
MOV A,R4
MOVC A,@A+DPTR
MOV P2,A
INC R4
MOV A,B
DJNZ R1,FOR
;---------------------------
MOV R1,#03H ;3 圈
REV: MOV R2,#C8H ;200 STEPS
XX2: RR A
MOV P3,A
MOV R5,#01H
ACALL DELAY2
DJNZ R2,XX2
MOV B,A
MOV DPTR,#TABLE
MOV A,R4
MOVC A,@A+DPTR
MOV P1,A
INC R4
MOV A,R4
MOVC A,@A+DPTR
MOV P2,A
INC R4
MOV A,B
DJNZ R1,REV
OFF3: JNB P0.2,OFF3
AJMP OK
;---------------------------
DELAY1: MOV R6,#FAH
DE1: MOV R7,#FAH
DE2: DJNZ R7,DE2
JNB P0.3,STOP
DJNZ R6,DE1
JNB P0.3,STOP
DJNZ R5,DELAY1
JNB P0.3,STOP
RET
;------------------------
