rf.a51

自走車應用. 8051 IR car remote control. code

INCLUDE reg_51.pdf

VT		EQU	P3.0

DATA1	EQU	P3.2
DATA2	EQU	P3.3
DATA3	EQU	P3.4
DATA4	EQU	P3.5

DEV1	EQU	P1.7
DEV2	EQU	P1.6
DEV3	EQU	P1.5
DEV4	EQU	P1.4

CSEG     AT      0        ; RESET VECTOR
;---------==========----------==========---------=========---------
;              PROCESSOR INTERRUPT AND RESET VECTORS
;---------==========----------==========---------=========---------
 
	ORG     00H    		; Reset
	JMP     MAIN

;---------==========----------==========---------=========---------
;  Main routine. Program execution starts here.
;---------==========----------==========---------=========---------
MAIN:	
   	MOV SP,#2FH
   
   	MOV P1,#0FFH
TOP:  SETB VT
   	JB VT,$
   
   	SETB DATA1
   	SETB DATA2
   	SETB DATA3
   	SETB DATA4
   	JB DATA1,DOWN1
   	CPL DEV1
   	JNB DATA1,$
DOWN1:JB DATA2,DOWN2
   	CPL DEV2
   	JNB DATA2,$
DOWN2:JB DATA3,DOWN3
   	CPL DEV3
   	JNB DATA3,$
DOWN3:JB DATA4,DOWN4
   	CPL DEV4
   	JNB DATA4,$
DOWN4:AJMP TOP  	
   
   

;**********************************************************
DELAY:
	MOV R1,#055H
REP2:	MOV R2,#0FFH
REP1:	NOP
	DJNZ R2,REP1
	DJNZ R1,REP2
	RET
;**********************************************************	
END