Buscamos urgentemente un programa fuente de ensamblaje de automóviles con control remoto inalámbrico y seguimiento por infrarrojos
LJMP PRINCIPAL1
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; Juicio de control remoto
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 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, #; tiempo de accionamiento variable
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, #; Juicio de segundo nivel
LCALL DEL1
CLR P2.3
RET
RIG2: SETB P2.1
MOV R2, #
LCALL DEL1
CLR P2.1
RET
DEL1: MOV R3, #90; El tiempo es
aproximadamente 100 ms, se puede ajustar
DD2: MOV R4, #50
DD3, MOV R5, #10
DJNZ R5, $
DJNZ R4, DD3
DJNZ R3, DD2
DJNZ R2, DEL1
RET