?? pentucx.txt
字號:
;利用循環(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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -