ORG?0000H
LJMP?MAIN
ORG?0030H
MAIN:
MOV?SP,#5FH
LOOP:
MOV?A,P2
MOV?B,A
MOV?P0,A
MOV?P1,#0FFH
LOOP1:
LCALL?DELAY
MOV?C,P1.7
MOV?A,P0
RLC?A
MOV?P0,A
MOV?A,P1
RLC?A
MOV?P1,A
MOV?A,P2
CJNE?A,B,LOOP
SJMP?LOOP1
DELAY:
MOV?R2,#60
DELAY1:
MOV?R3,#250
DJNZ?R3,$
DJNZ?R2,DELAY1
RET
END
程序2：
ORG?0000H
LJMP?MAIN
ORG?0030H
MAIN:
MOV?SP,#5FH
JNB?P2.0,LOOP1;
JNB?P2.1,LOOP2;
SJMP?MAIN
LOOP1:
MOV?P0,#0FEH
MOV?P1,#0FFH
LOOP11:
MOV?C,P1.7
MOV?A,P0
RLC?A
MOV?P0,A
MOV?A,P1
RLC?A
MOV?P1,A
JNB?P2.1,LOOP2
SJMP?LOOP11
LOOP2:
MOV?P0,#0FCH
MOV?P1,#0FFH
LOOP21:
MOV?C,P1.7
MOV?A,P0
RLC?A
MOV?P0,A
MOV?A,P1
RLC?A
MOV?P1,A
JNB?P2.0,LOOP1
SJMP?LOOP21
DELAY:
MOV?R2,#60
DELAY1:
MOV?R3,#250
DJNZ?R3,$
DJNZ?R2,DELAY1
RET
END