ID EQU 30H
K1 BIT P1.0
D1 BIT P2.0
ORG 0000H
CLR P1.7
MOV ID,#00H
START: JB K1,REL
LCALL DELAY10MS
JB K1,REL
INC ID
MOV A,ID
CJNE A,#02,REL
MOV ID,#00H
REL: JNB K1,$
MOV A,ID
CJNE A,#00H,IS0
CLR D1
LCALL DELAY光
SJMP START
IS0: CJNE A,#01H,START;
SETB D1
LCALL DELAY
SJMP START
DELAY10MS: MOV R6,#20
LOOP1: MOV R7,#248
DJNZ R7,$
DJNZ R6,LOOP1
RET
DELAY: MOV R5,#20
LOOP2: LCALL DELAY10MS
DJNZ R5,LOOP2
RET
END