望着你我CALL GO_FOR CALL GO_FOR
JMP LOOP
;---------------------------------------------- X1: JB K2,X2 JNB K2,$ CALL LED_BL
CALL GO_BACK ;后退展示 CALL GO_BACK CALL GO_BACK
JMP LOOP
;---------------------------------------------- X2: JB K3,X3 JNB K3,$ CALL LED_BL
CALL GO_LEFT ;左转展示 CALL GO_LEFT CALL GO_LEFT
JMP LOOP
;---------------------------------------------- X3: JB K4,X4 JNB K4,$ CALL LED_BL
CALL GO_RIGHT ;右转展示
CALL GO_RIGHT
红外线遥控小车报告
- 9 -
CALL GO_RIGHT
JMP LOOP
;---------------------------------------------- X4:
JMP LOOP
;---------------------------------------------- ;DELAY R5*10ms;延迟子程序 DELAY: MOV R6,#50
D1: MOV R7,#100 DJNZ R7,$ DJNZ R6,D1 DJNZ R5,DELAY
RET ;---------------------------------------------- ;工作指示灯闪烁 LED_BL: MOV R4,#2
L0: CPL WLED MOV R5,#5 CALL DELAY DJNZ R4,L0 SETB WLED
RET ;---------------------------------------------- ;伺服机1反转控制
红外线遥控小车报告
- 10 -
PUL_BACK: SETB PUL2 CLR PUL1 MOV A,GDP MOV R4,A
A1: CALL DEL DJNZ R4,A1 CLR PUL1 CLR PUL2 MOV A,DDP MOV R4,A A2: CALL DEL DJNZ R4,A2
RET ;---------------------------------------------- ;伺服机1正转控制 PUL_FOR: SETB PUL1 CLR PUL2 MOV A,GDP MOV R4,A
B1: CALL DEL DJNZ R4,B1 CLR PUL1
CLR PUL2
红外线遥控小车报告
- 11 -
MOV A,DDP MOV R4,A
B2: CALL DEL DJNZ R4,B2
RET
;-------------------------------------------- ;直流电机正转展示 DEMO_FOR: MOV R3,#TS
C1: CALL PUL_FOR DJNZ R3,C1
RET ;-------------------------------------------- ;直流电机反转展示 DEMO_BACK: MOV R3,#TS
E1: CALL PUL_BACK DJNZ R3,E1
RET ;-------------------------------------------- ;DELAY R5*0.1ms;0.1秒延迟子程序 DEL:
MOV R5,#1
DELAY1:
MOV R6,#2
红外线遥控小车报告
- 12 -
F1: MOV R7,#17 DJNZ R7,$ DJNZ R6,F1 DJNZ R5,DELAY1
RET
;---------------------------------------------- ;直流电机2反转控制 PUR_BACK: SETB PUR2 CLR PUR1 MOV A,GDP MOV R4,A
G1: CALL DEL DJNZ R4,G1 CLR PUR1 CLR PUR2 MOV A,DDP MOV R4,A G2: CALL DEL DJNZ R4,G2
RET ;---------------------------------------------- ;直流电机2正转控制 PUR_FOR:
SETB PUR1
红外线遥控小车报告
- 13 -
