LJMP MAIN1
ORG 003H
LJMP INT0
ORG 030H
MIAN1:MOV P1,#0FFH
NOP
NOP
MOV P1,#00H
MOV P0,#0FFH
NOP
NOP
MOV P0,#00H
CLR 00H
CLR P1.0
CLR P2.1
CLR P2.3
CLR P2.2
SETB EA
SETB EX0
SETB EX1
SETB PX0
SJMP $
INTO:CPL OOH
JNB 00H ,KK
LJMP YAO
KK:LJMP XUNJI
RETI
YAO:MOV A,P1 ;遙控判斷
ANL A,#0FH
MOV P1,A
CJNE A,#01H,NC1
LCALL ST
NC1:CJNE A,#02H,NC2
LCALL LEF2
NC2:CJNE A,#04H,NC3
LCALL RIG2
NC3:LJMP YAO
XUNJI:JNB P1.3,N1
LCALL ST
N1:JNB P1.2, N2
LCALL LEF1
N2:JNB P1.4,N3
LCALL RIG1
N3:JNB P1.0,N4
LCALL LEF2
N4:JNB P1.5,N5
LCALL RIG2
N5:LJMP XUNJI
ST:SETB P2.1
SETB P2.3
MOV R2,# ;可變驅動時間
LCALL DEL1
CLR P2.1
CLR P2.3
RET
LEF1:SETB P2.3
MOV R2,#
LCALL DEL1
CLR P2.3
RET
RIG1:SETB P2.1
MOV R2,#
LCALL DEL1
CLR P2.1
RET
LEF2:SETB P2.3
MOV R2,# ; 二級判斷
LCALL DEL1
CLR P2.3
RET
RIG2:SETB P2.1
MOV R2,#
LCALL DEL1
CLR P2.1
RET
DEL1:MOV R3,#90 ;定時約100ms,可精調
DD2:MOV R4,#50
DD3,MOV R5,#10
DJNZ R5,$
DJNZ R4,DD3
DJNZ R3,DD2
DJNZ R2,DEL1
RET