ORG 0000H
AJMP MAIN
MAIN:
CLR A
MOV P2,#0FFH
JNB P1.0,LOOP1
JNB P1.1,LOOP2
JNB P1.2,LOOP3
AJMP ABC
LOOP1:
MOV A,#07FH
ABC1:
MOV P2,A
LCALL DEL
RR A
LJMP ABC1
AJMP ABC
LOOP2:
MOV A,#0FEH
ABC2:
MOV P2,A
LCALL DEL
RL A
LJMP ABC2
LOOP3:
MOV A,#03FH
ABC33:
MOV P2,A
LCALL DEL
MOV P2,#09FH
LCALL DEL
MOV P2,#0CFH
LCALL DEL
MOV P2,#0E7H
LCALL DEL
MOV P2,#0F3H
LCALL DEL
MOV P2,#0F9H
LCALL DEL
MOV P2,#0FCH
LCALL DEL
MOV P2,#09FH
JNB P1.0,LOOP1
JNB P1.1,LOOP2
LJMP ABC33
DEL:
MOV R3,#10
MOV TMOD,#10H
MOV TH1,#3CH
MOV TL1,#0B0H
SETB TR1
LP1:
JNB P1.0,LOOP1
JNB P1.1,LOOP2
JNB P1.2,LOOP3
JBC TF1,LP2
SJMP LP2
LP2:
MOV TH1,#3CH
MOV TL1,#0B0H
DJNZ R3,LP1
RET
AJMP ABC
ABC:
END