;利用循環(huán)小車開始畫好幾個(gè)圓
;2008-7-30   kjcxyrg

ORG		00H
JMP		START

START:
MOV		R2,#2	;控制小車畫圓的個(gè)數(shù)

LOOP:
;;************************************
;指示燈閃爍
MOV		R0,#24
MOV		A,#0FEH
NEX1:
MOV		P0,A
CALL	DELAY01S
RL		A
DJNZ	R0,NEX1
;************************************


;************************************
;驅(qū)動前輪左轉(zhuǎn)	 45度
MOV		R0,#1	;延遲 0.1s
NEX2:
CLR		P2.2	;前輪電機(jī)左轉(zhuǎn)
SETB	P2.3
CALL	DELAY01S
DJNZ	R0,NEX2
SETB	P2.2
SETB	P2.3
;************************************


;************************************
;小車向前走	 一圈
 MOV	R0,#70
 CALL	PENQI	;開始噴漆
 NEX3:
 CLR	P2.4
 CALL	DELAY01S
 DJNZ	R0,NEX3

;************************************
SETB	P2.4	;小車停止
CALL	UNPENQI	;關(guān)閉噴漆

;************************************
;驅(qū)動前輪右轉(zhuǎn)	 45度
MOV		R0,#1	;延遲0.1s
NEX4:
CLR		P2.3	;前輪電機(jī)左右轉(zhuǎn)
SETB	P2.2
CALL	DELAY01S
DJNZ	R0,NEX4
SETB	P2.2
SETB	P2.3
;************************************

;************************************
;小車向前走	  ,接著畫另外一個(gè)圓
 MOV	R0,#20
 NEX5:
 CLR	P2.4
 CALL	DELAY01S
 DJNZ	R0,NEX5
 SETB	P2.4
;************************************

DJNZ	R2,LOOP	;小車開始畫另外一個(gè)圓

AJMP	$


PENQI: 			;噴漆
;************************************
MOV		R1,#30
AGAI2:
SETB	P2.0		;向前推
CLR		P2.1
CALL	DELAY01S
DJNZ	R1,AGAI2
SETB	P2.0  		;停止向前推
SETB	P2.1
RET
;************************************


UNPENQI: 			;不噴漆
;************************************
MOV		R1,#30
AGAI1:
SETB	P2.1		;向后推
CLR		P2.0
CALL	DELAY01S
DJNZ	R1,AGAI1
SETB	P2.0  		;停止向前推
SETB	P2.1
RET
;************************************


DELAY01S:    ;在12m的晶振下產(chǎn)生0.1s的延時(shí)
;************************************	
MOV		R7,#250
DV:			
MOV		R6,#200
DJNZ	R6,$
DJNZ	R7,DV
RET
;************************************	
END